From: Tim Potter <tpot@samba.org>
Date: Thu, 3 Jun 2004 00:53:09 +0000 (+0000)
Subject: r985: Add stub function for dumping enums to prevent perl warnings in eparser.
X-Git-Tag: samba-4.0.0alpha6~801^3~14292
X-Git-Url: http://git.samba.org/samba.git/?a=commitdiff_plain;h=525d2fba27af4295a470b2df9a32f31a4346d731;p=bbaumbach%2Fsamba-autobuild%2F.git

r985: Add stub function for dumping enums to prevent perl warnings in eparser.
(This used to be commit 12c7d3a464fea87c3289f2914ee9696a17ce5a81)
---

diff --git a/source4/build/pidl/dump.pm b/source4/build/pidl/dump.pm
index c186999b210..e74ffe6203d 100644
--- a/source4/build/pidl/dump.pm
+++ b/source4/build/pidl/dump.pm
@@ -78,6 +78,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";
     }