diff options
| author | Tim Potter <tpot@samba.org> | 2004-06-03 00:53:09 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 12:56:24 -0500 |
| commit | 525d2fba27af4295a470b2df9a32f31a4346d731 (patch) | |
| tree | 7934206e1c80f2c5496de912a3df3d98cf1061bd /source4/build/pidl | |
| parent | 21c71e0bed040e5079c03f3b53a3a5f53a578668 (diff) | |
| download | samba-525d2fba27af4295a470b2df9a32f31a4346d731.tar.gz samba-525d2fba27af4295a470b2df9a32f31a4346d731.tar.bz2 samba-525d2fba27af4295a470b2df9a32f31a4346d731.zip | |
r985: Add stub function for dumping enums to prevent perl warnings in eparser.
(This used to be commit 12c7d3a464fea87c3289f2914ee9696a17ce5a81)
Diffstat (limited to 'source4/build/pidl')
| -rw-r--r-- | source4/build/pidl/dump.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm index c186999b21..e74ffe6203 100644 --- a/source4/build/pidl/dump.pm +++ b/source4/build/pidl/dump.pm @@ -79,6 +79,19 @@ sub DumpStruct($) ##################################################################### +# dump a struct +sub DumpEnum($) +{ + my($enum) = shift; + my($res); + + $res .= "enum"; + + return $res; +} + + +##################################################################### # dump a union element sub DumpUnionElement($) { @@ -126,6 +139,8 @@ sub DumpType($) ($res .= DumpStruct($data)); ($data->{TYPE} eq "UNION") && ($res .= DumpUnion($data)); + ($data->{TYPE} eq "ENUM") && + ($res .= DumpEnum($data)); } else { $res .= "$data"; } |