svn commit: samba r8919 - in branches/SAMBA_4_0/source/build/pidl: .
tpot at samba.org
tpot at samba.org
Tue Aug 2 16:06:35 GMT 2005
Author: tpot
Date: 2005-08-02 16:06:35 +0000 (Tue, 02 Aug 2005)
New Revision: 8919
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=8919
Log:
Return references to structs and unions in parse tree. Fill in type
names for structs and unions also.
Modified:
branches/SAMBA_4_0/source/build/pidl/smb_interfaces.yp
Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/smb_interfaces.yp
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/smb_interfaces.yp 2005-08-02 14:58:59 UTC (rev 8918)
+++ branches/SAMBA_4_0/source/build/pidl/smb_interfaces.yp 2005-08-02 16:06:35 UTC (rev 8919)
@@ -27,7 +27,7 @@
my $name = defined($_[2]) ? $_[2] : $_[7];
{
"NAME" => $name,
- "TYPE" => "STRUCT",
+ "TYPE" => "struct",
"DATA" => $_[4],
}
}
@@ -39,7 +39,7 @@
my $name = defined($_[2]) ? $_[2] : $_[7];
{
"NAME" => $name,
- "TYPE" => "UNION",
+ "TYPE" => "union",
"DATA" => $_[4],
}
}
@@ -69,19 +69,29 @@
| struct
| union
| STRUCT IDENTIFIER pointers IDENTIFIER ';'
+ {{
+ "NAME" => $_[2],
+ "POINTERS" => $_[3],
+ "TYPE" => "struct $_[2]",
+ }}
| UNION IDENTIFIER pointers IDENTIFIER ';'
+ {{
+ "NAME" => $_[2],
+ "POINTERS" => $_[3],
+ "TYPE" => "union $_[2]",
+ }}
| CONST type pointers IDENTIFIER array ';'
- {{
+ {{
"NAME" => $_[4],
"TYPE" => $_[2],
"POINTERS" => $_[3],
- }}
+ }}
| type pointers IDENTIFIER array ';'
- {{
+ {{
"NAME" => $_[3],
"TYPE" => $_[1],
"POINTERS" => $_[2],
- }}
+ }}
;
array: #empty
@@ -90,6 +100,7 @@
type: IDENTIFIER
| ENUM IDENTIFIER
+ { "enum $_[2]" }
;
pointers:
More information about the samba-cvs
mailing list