diff options
| author | Andrew Tridgell <tridge@samba.org> | 2003-11-22 22:09:10 +0000 |
|---|---|---|
| committer | Andrew Tridgell <tridge@samba.org> | 2003-11-22 22:09:10 +0000 |
| commit | e79e6bc4726dc96d553e245e34e94e39de7c2da3 (patch) | |
| tree | 7f30f01f8f4223795f7daa5e35723c11155b2d95 /source4/build/pidl | |
| parent | 277322b9d4b9d009782f1a47baf09ee4033c8328 (diff) | |
| download | samba-e79e6bc4726dc96d553e245e34e94e39de7c2da3.tar.gz samba-e79e6bc4726dc96d553e245e34e94e39de7c2da3.tar.bz2 samba-e79e6bc4726dc96d553e245e34e94e39de7c2da3.zip | |
added support for 'const' in IDL files. This makes it easy to define
symbolic names for bitfields etc.
(This used to be commit 344a6e1682cc1afab24735e73d05cf15f6eb9816)
Diffstat (limited to 'source4/build/pidl')
| -rw-r--r-- | source4/build/pidl/header.pm | 18 | ||||
| -rw-r--r-- | source4/build/pidl/idl.gram | 12 |
2 files changed, 25 insertions, 5 deletions
diff --git a/source4/build/pidl/header.pm b/source4/build/pidl/header.pm index 25f0fecd47..751383a2b3 100644 --- a/source4/build/pidl/header.pm +++ b/source4/build/pidl/header.pm @@ -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") && diff --git a/source4/build/pidl/idl.gram b/source4/build/pidl/idl.gram index ac373a5260..70d1c36b5e 100644 --- a/source4/build/pidl/idl.gram +++ b/source4/build/pidl/idl.gram @@ -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: '#' /.*/ |