sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-12 09:18:10 +03:00
Code

added support for 'const' in IDL files. This makes it easy to define

Browse Source 
symbolic names for bitfields etc.
(This used to be commit 344a6e1682)
This commit is contained in:
Andrew Tridgell 2003-11-22 22:09:10 +00:00
parent 277322b9d4
commit e79e6bc472
3 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
source4/build/pidl/header.pm
View File

@ -75,7 +75,7 @@ sub HeaderStruct($$)
{
my($struct) = shift;
my($name) = shift;
$res .= "struct $name {\n";
$res .= "\nstruct $name {\n";
$tab_depth++;
if (defined $struct->{ELEMENTS}) {
foreach my $e (@{$struct->{ELEMENTS}}) {
@ -143,7 +143,15 @@ sub HeaderTypedef($)
{
my($typedef) = shift;
HeaderType($typedef, $typedef->{DATA}, $typedef->{NAME});
$res .= ";\n\n";
$res .= ";\n";
}
#####################################################################
# parse a typedef
sub HeaderConst($)
{
my($const) = shift;
$res .= "#define $const->{NAME}\t( $const->{VALUE} )\n";
}
#####################################################################
@ -165,7 +173,7 @@ sub HeaderFunctionInOut($$)
sub HeaderFunction($)
{
my($fn) = shift;
$res .= "struct $fn->{NAME} {\n";
$res .= "\nstruct $fn->{NAME} {\n";
$tab_depth++;
tabs();
$res .= "struct {\n";
@ -208,7 +216,7 @@ sub HeaderInterface($)
foreach my $d (@{$data}) {
if ($d->{TYPE} eq "FUNCTION") {
my $u_name = uc $d->{NAME};
$res .= "#define DCERPC_$u_name $count\n";
$res .= "#define DCERPC_$u_name " . sprintf("0x%02x", $count) . "\n";
$count++;
}
}
@ -216,6 +224,8 @@ sub HeaderInterface($)
$res .= "\n\n";
foreach my $d (@{$data}) {
($d->{TYPE} eq "CONST") &&
HeaderConst($d);
($d->{TYPE} eq "TYPEDEF") &&
HeaderTypedef($d);
($d->{TYPE} eq "FUNCTION") &&

12
source4/build/pidl/idl.gram
View File

@ -28,6 +28,16 @@ interface: 'interface' <commit> identifier '{' definition(s?) '}'
definition : cpp_prefix
| typedef { $item[1] }
| function { $item[1] }
| const { $item[1] }
const : 'const' <commit> identifier identifier '=' constant ';'
{{
"TYPE" => "CONST",
"DTYPE" => $item[3],
"NAME" => $item[4],
"VALUE" => $item{constant}
}}
| <error?>
typedef : 'typedef' <commit> type identifier array_len(?) ';'
{{
@ -165,7 +175,7 @@ anytext: text2 '(' <commit> anytext ')' anytext
call: expression '(' <commit> expression ')'
{{ "$item[1]($item[4])" }}
constant: /-?\d+/
constant: /-?[\dx]+/
| '*'
cpp_prefix: '#' /.*/

16
source4/librpc/idl/samr.idl
View File

@ -732,16 +732,16 @@
/************************/
/* Function 0x2c */
/*
const ULONG DOMAIN_PASSWORD_COMPLEX = 0x00000001;
const ULONG DOMAIN_PASSWORD_NO_ANON_CHANGE = 0x00000002;
const ULONG DOMAIN_PASSWORD_NO_CLEAR_CHANGE = 0x00000004;
const ULONG DOMAIN_PASSWORD_STORE_CLEARTEXT = 0x00000010;
const ULONG DOMAIN_REFUSE_PASSWORD_CHANGE = 0x00000020;
*/
/* password properties flags */
const uint32 DOMAIN_PASSWORD_COMPLEX = 0x00000001;
const uint32 DOMAIN_PASSWORD_NO_ANON_CHANGE = 0x00000002;
const uint32 DOMAIN_PASSWORD_NO_CLEAR_CHANGE = 0x00000004;
const uint32 DOMAIN_PASSWORD_STORE_CLEARTEXT = 0x00000010;
const uint32 DOMAIN_REFUSE_PASSWORD_CHANGE = 0x00000020;
typedef struct {
uint16 min_pwd_len;
uint32 passwd_properties;
uint32 password_properties;
} samr_PwInfo;
NTSTATUS samr_GetUserPwInfo(