diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-10-04 19:38:35 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:39:24 -0500 |
| commit | 9879bc6aa6c7997220079b3501b9a4fb3682c813 (patch) | |
| tree | a447269ee5ecdbbfe9e62a04bf724e4bba896355 /source4/pidl/lib/Parse/Pidl/Samba3/Header.pm | |
| parent | eea74cde05c1532d59b9f8ecc4f88c191a4b200f (diff) | |
| download | samba-9879bc6aa6c7997220079b3501b9a4fb3682c813.tar.gz samba-9879bc6aa6c7997220079b3501b9a4fb3682c813.tar.bz2 samba-9879bc6aa6c7997220079b3501b9a4fb3682c813.zip | |
r10717: Another bunch of small updates. All generated files except parse_dfs.c
compile now when generated from Samba4's dfs.idl.
(This used to be commit 2b315b1942e77640eca8e0a3347b2a9ed1920f6a)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Samba3/Header.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Samba3/Header.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm index 13f506a7da..1e0e2c7270 100644 --- a/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm +++ b/source4/pidl/lib/Parse/Pidl/Samba3/Header.pm @@ -58,7 +58,7 @@ sub ParseFunction($$) my @in = (); my @out = (); - foreach (@{$_->{ELEMENTS}}) { + foreach (@{$fn->{ELEMENTS}}) { push (@in, $_) if (grep(/in/, @{$_->{DIRECTION}})); push (@out, $_) if (grep(/out/, @{$_->{DIRECTION}})); } @@ -93,10 +93,10 @@ sub ParseUnion($$$) { my ($if,$u,$n) = @_; - pidl "typedef union {"; + pidl "typedef union $if->{NAME}_$n {"; #FIXME: What about elements that require more then one variable? ParseElement($_) foreach (@{$u->{ELEMENTS}}); - pidl "} $n;"; + pidl "} ".uc($if->{NAME}."_".$n) .";"; pidl ""; } |