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