svn commit: samba r10010 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba: .

jelmer at samba.org jelmer at samba.org
Sat Sep 3 20:09:19 GMT 2005


Author: jelmer
Date: 2005-09-03 20:09:19 +0000 (Sat, 03 Sep 2005)
New Revision: 10010

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

Log:
Support base_type() attribute

Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm	2005-09-03 19:43:35 UTC (rev 10009)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba/TDR.pm	2005-09-03 20:09:19 UTC (rev 10010)
@@ -167,7 +167,7 @@
 sub ParserEnum($$$$)
 {
 	my ($e,$n,$t,$p) = @_;
-	my $bt = Parse::Pidl::Typelist::enum_type_fn($e);
+	my $bt = ($e->{PROPERTIES}->{base_type} or "uint8");
 	
 	pidl static($p)."NTSTATUS tdr_$t\_$n (struct tdr_$t *tdr".printarg($t).", enum $n *v)";
 	pidl "{";
@@ -190,6 +190,8 @@
 
 	return if (has_property($e, "no$t"));
 
+	$e->{DATA}->{PROPERTIES} = $e->{PROPERTIES};
+
 	{ STRUCT => \&ParserStruct, UNION => \&ParserUnion, 
 		ENUM => \&ParserEnum, BITMAP => \&ParserBitmap
 	}->{$e->{DATA}->{TYPE}}($e->{DATA}, $e->{NAME}, $t, has_property($e, "public"));



More information about the samba-cvs mailing list