sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-22 13:34:15 +03:00
Code

r3998: allow const arrays (see next commit to drsuapi.idl)

Browse Source 
metze
(This used to be commit 7264a2227d)
This commit is contained in:
Stefan Metzmacher 2004-11-29 11:08:15 +00:00 committed by Gerald (Jerry) Carter
parent 3558d8b40d
commit ee0d68dc30
3 changed files with 752 additions and 595 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -208,11 +208,15 @@ sub HeaderTypedefProto($)
}
#####################################################################
# parse a typedef
# parse a const
sub HeaderConst($)
{
my($const) = shift;
$res .= "#define $const->{NAME}\t( $const->{VALUE} )\n";
if (!defined($const->{ARRAY_LEN})) {
$res .= "#define $const->{NAME}\t( $const->{VALUE} )\n";
} else {
$res .= "#define $const->{NAME}\t $const->{VALUE}\n";
}
}
#####################################################################

1330
source4/build/pidl/idl.pm
View File

File diff suppressed because it is too large Load Diff

9
source4/build/pidl/idl.yp
View File

@ -65,6 +65,14 @@ const: 'const' identifier identifier '=' anytext ';'
"NAME" => $_[3],
"VALUE" => $_[5]
}}
| 'const' identifier identifier array_len '=' anytext ';'
{{
"TYPE" => "CONST",
"DTYPE" => $_[2],
"NAME" => $_[3],
"ARRAY_LEN" => $_[4],
"VALUE" => $_[6],
}}
;
@ -227,6 +235,7 @@ anytext: #empty
| anytext '/' anytext { "$_[1]$_[2]$_[3]" }
| anytext '+' anytext { "$_[1]$_[2]$_[3]" }
| anytext '(' commalisttext ')' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
| anytext '{' commalisttext '}' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
;
identifier: IDENTIFIER