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

tpot at samba.org tpot at samba.org
Tue Aug 2 16:21:31 GMT 2005


Author: tpot
Date: 2005-08-02 16:21:30 +0000 (Tue, 02 Aug 2005)
New Revision: 8920

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=8920

Log:
Make NAME hash entry for struct elements a list.

Return array length entries for elements that have an array specifier.

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 16:06:35 UTC (rev 8919)
+++ branches/SAMBA_4_0/source/build/pidl/smb_interfaces.yp	2005-08-02 16:21:30 UTC (rev 8920)
@@ -70,7 +70,7 @@
 	| union
 	| STRUCT IDENTIFIER pointers IDENTIFIER ';'
 		{{
-			"NAME" => $_[2],
+			"NAME" => [$_[2]],
 			"POINTERS" => $_[3],
 			"TYPE" => "struct $_[2]",
 		}}
@@ -82,20 +82,21 @@
 		}}
 	| CONST type pointers IDENTIFIER array ';'
 		{{
-			   "NAME" => $_[4],
+			   "NAME" => [$_[4]],
 			   "TYPE" => $_[2],
 			   "POINTERS" => $_[3],
 		}}
 	| type pointers IDENTIFIER array ';'
 		{{
-			   "NAME" => $_[3],
+			   "NAME" => [$_[3]],
 			   "TYPE" => $_[1],
 			   "POINTERS" => $_[2],
+			   "ARRAY_LENGTH" => $_[4]
 		}}
 ;
 
 array: #empty
-	| '[' CONSTANT  ']'
+	| '[' CONSTANT  ']'	{ int($_[2]) }
 ;
 
 type: IDENTIFIER



More information about the samba-cvs mailing list