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

r2221: Experiment with extra properties for telling the ethereal parser what

Browse Source 
to do.  There is a patch to the grammar and idl files for this but I
won't commit that just yet.
(This used to be commit 4e155b966c6027daa34166c7daf30cbff96ff679)
This commit is contained in:
Tim Potter 2004-09-04 01:31:02 +00:00 committed by Gerald (Jerry) Carter
parent 26abe13ff7
commit 7c583b2adb
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
source4/build/pidl/eparser.pm
View File

@ -822,12 +822,18 @@ sub type2ft($)
return "FT_BYTES";
}
sub type2base($)
# Determine the display base for an element
sub elementbase($)
{
my($t) = shift;
my($e) = shift;
if (my $base = util::has_property($e, "display")) {
return "BASE_" . uc($base);
}
return "BASE_DEC", if ($t eq "uint32") or ($t eq "uint16") or
($t eq "uint8");
return "BASE_DEC", if ($e->{TYPE} eq "uint32") or
($e->{TYPE} eq "uint16") or ($e->{TYPE} eq "uint8");
return "BASE_NONE";
}
@ -857,8 +863,8 @@ sub NeededFunction($)
'name' => field2name($e->{NAME}),
'type' => $e->{TYPE},
'ft' => type2ft($e->{TYPE}),
'base' => type2base($e->{TYPE})
};
'base' => elementbase($e)
}, if !defined($needed{"hf_$e->{NAME}_$e->{TYPE}"});
$e->{PARENT} = $fn;
} else {
$needed{"ett_$e->{TYPE}"} = 1;
@ -887,7 +893,7 @@ sub NeededTypedef($)
'name' => field2name($e->{NAME}),
'type' => $e->{TYPE},
'ft' => type2ft($e->{TYPE}),
'base' => type2base($e->{TYPE})
'base' => elementbase($e)
};
$e->{PARENT} = $t->{DATA};