summaryrefslogtreecommitdiff
path: root/source4/build/pidl
diff options
context:
space:
mode:
authorTim Potter <tpot@samba.org>2004-06-03 00:53:09 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 12:56:24 -0500
commit525d2fba27af4295a470b2df9a32f31a4346d731 (patch)
tree7934206e1c80f2c5496de912a3df3d98cf1061bd /source4/build/pidl
parent21c71e0bed040e5079c03f3b53a3a5f53a578668 (diff)
downloadsamba-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.pm15
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";
}