sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-13 13:18:06 +03:00
Code

r985: Add stub function for dumping enums to prevent perl warnings in eparser.

Browse Source
This commit is contained in:
Tim Potter 2004-06-03 00:53:09 +00:00 committed by Gerald (Jerry) Carter
parent d0d0734845
commit 12c7d3a464
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
source/build/pidl/dump.pm
View File

@ -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";
}