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

[jelmer]

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"));