svn commit: samba r8919 - in branches/SAMBA_4_0/source/build/pidl: .

[tpot at samba.org]

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: