From 525d2fba27af4295a470b2df9a32f31a4346d731 Mon Sep 17 00:00:00 2001 From: Tim Potter Date: Thu, 3 Jun 2004 00:53:09 +0000 Subject: r985: Add stub function for dumping enums to prevent perl warnings in eparser. (This used to be commit 12c7d3a464fea87c3289f2914ee9696a17ce5a81) --- source4/build/pidl/dump.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 @@ -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"; } -- cgit