sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-03-14 00:58:38 +03:00
Code

r22640: - generate nicer output

Browse Source 
- fix compiler warning about unused ';'

metze
This commit is contained in:
Stefan Metzmacher 2007-05-02 18:00:02 +00:00 committed by Gerald (Jerry) Carter
parent 8197cb975e
commit 715060187f
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
source/pidl/lib/Parse/Pidl/Samba4/Header.pm
View File

@ -43,7 +43,7 @@ sub HeaderProperties($$)
}
if ($ret) {
pidl "/* [" . substr($ret, 0, -1) . "] */";
pidl " /* [" . substr($ret, 0, -1) . "] */";
}
}
@ -108,10 +108,12 @@ sub HeaderStruct($$)
pidl tabs()."char _empty_;\n";
}
$tab_depth--;
pidl tabs()."}";
pidl "};";
if (defined $struct->{PROPERTIES}) {
HeaderProperties($struct->{PROPERTIES}, []);
}
pidl "\n\n";
}
#####################################################################
@ -132,10 +134,10 @@ sub HeaderEnum($$)
}
pidl "\n";
$tab_depth--;
pidl "}\n";
pidl "};\n";
pidl "#else\n";
my $count = 0;
pidl "enum $name { __donnot_use_enum_$name=0x7FFFFFFF}\n";
pidl "enum $name { __donnot_use_enum_$name=0x7FFFFFFF};\n";
my $with_val = 0;
my $without_val = 0;
foreach my $e (@{$enum->{ELEMENTS}}) {
@ -191,11 +193,12 @@ sub HeaderUnion($$)
}
}
$tab_depth--;
pidl "}";
pidl "};";
if (defined $union->{PROPERTIES}) {
HeaderProperties($union->{PROPERTIES}, []);
}
pidl "\n\n";
}
#####################################################################
@ -297,7 +300,7 @@ sub HeaderFunction($)
HeaderFunctionInOut($fn, "in");
HeaderFunctionInOut($fn, "inout");
$tab_depth--;
pidl tabs()."} in;\n\n";
pidl tabs()."} in;\n";
$needed++;
}
@ -311,7 +314,7 @@ sub HeaderFunction($)
pidl tabs().mapTypeName($fn->{RETURN_TYPE}) . " result;\n";
}
$tab_depth--;
pidl tabs()."} out;\n\n";
pidl tabs()."} out;\n";
$needed++;
}
@ -362,11 +365,6 @@ sub HeaderInterface($)
HeaderUnion($d, $d->{NAME}) if ($d->{TYPE} eq "UNION");
HeaderEnum($d, $d->{NAME}) if ($d->{TYPE} eq "ENUM");
HeaderBitmap($d, $d->{NAME}) if ($d->{TYPE} eq "BITMAP");
pidl ";\n\n" if ($d->{TYPE} eq "BITMAP" or
$d->{TYPE} eq "STRUCT" or
$d->{TYPE} eq "TYPEDEF" or
$d->{TYPE} eq "UNION" or
$d->{TYPE} eq "ENUM");
}
foreach my $d (@{$interface->{DATA}}) {