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

r746: Add entry in proto tree when we don't handle an IDL type.

Browse Source 
Start parsing for parsing unions, structs and enums.

Don't display field type in display name.
This commit is contained in:
Tim Potter 2004-05-15 12:26:46 +00:00 committed by Gerald (Jerry) Carter
parent b886cb65f8
commit e170d9c3dc
1 changed files with 50 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
source/build/pidl/eparser.pm
View File

@ -63,10 +63,9 @@ sub ParseParameter($)
return $res;
}
$res .= "\t/* Unhandled IDL type '$p->{TYPE}' in $p->{PARENT}->{NAME} */\n";
$res .= "\tproto_tree_add_text(tree, tvb, offset, -1, \"Unhandled IDL type '$p->{TYPE}'\");\n";
return $res;
# exit(1);
}
#####################################################################
@ -112,6 +111,51 @@ sub ParseFunction($)
return $res;
}
#####################################################################
# parse a function
sub ParseEnum($$)
{
my($name) = shift;
my($enum) = shift;
return "/* Enum $name */\n\n";
}
#####################################################################
# parse a function
sub ParseStruct($$)
{
my($name) = shift;
my($struct) = shift;
return "/* Struct $name */\n\n";
}
#####################################################################
# parse a function
sub ParseUnion($$)
{
my($name) = shift;
my($union) = shift;
return "/* Union $name */\n\n";
}
#####################################################################
# parse a function
sub ParseTypedef($)
{
my($typedef) = shift;
my($data) = $typedef->{DATA};
my($res) = "";
$res .= ParseEnum($typedef->{NAME}, $data), if $data->{TYPE} eq "ENUM";
$res .= ParseStruct($typedef->{NAME}, $data), if $data->{TYPE} eq "STRUCT";
$res .= ParseUnion($typedef->{NAME}, $data), if $data->{TYPE} eq "UNION";
return $res;
}
#####################################################################
# parse the interface definitions
sub Pass2Interface($)
@ -122,6 +166,7 @@ sub Pass2Interface($)
foreach my $d (@{$data}) {
$res .= ParseFunction($d), if $d->{TYPE} eq "FUNCTION";
$res .= ParseTypedef($d), if $d->{TYPE} eq "TYPEDEF";
}
return $res;
@ -226,7 +271,8 @@ EOF
$res .= "static int hf_$hf_name = -1;\n";
$hf_info{$hf_name} = {
'ft' => type2ft($params->{TYPE}),
'base' => type2base($params->{TYPE})
'base' => type2base($params->{TYPE}),
'name' => $params->{NAME}
};
}
}
@ -312,7 +358,7 @@ EOF
foreach my $hf (keys(%hf_info)) {
$hf_register_info .= "\t{ &hf_$hf,\n";
$hf_register_info .= "\t { \"$hf\", \"$hf\", $hf_info{$hf}{ft}, $hf_info{$hf}{base},\n";
$hf_register_info .= "\t { \"$hf_info{$hf}{name}\", \"$hf\", $hf_info{$hf}{ft}, $hf_info{$hf}{base},\n";
$hf_register_info .= "\t NULL, 0, \"$hf\", HFILL }},\n";
}