use Parse::Pidl::Ethereal::Conformance qw(ReadConformance);
my %types;
+my %hf;
+my @ett;
my $conformance = {imports=>{}};
} elsif ($conformance->{imports}->{$l->{DATA_TYPE}}) {
$call = $conformance->{imports}->{$l->{DATA_TYPE}};
} else {
- warn("Unknown data type `$l->{DATA_TYPE}'");
- pidl_code "/* FIXME: Handle unknown data type $l->{DATA_TYPE} */";
if ($l->{DATA_TYPE} =~ /^([a-z]+)\_(.*)$/)
{
pidl_code "offset = $1_dissect_$2(tvb,offset,pinfo,tree,drep,$hf,$param);";
$tabs = "";
%res = (code=>"",def=>"",hdr=>"");
+ %hf = ();
+ @ett = ();
my $notice =
"/* DO NOT EDIT
# ETT
###############################################################################
-my @ett = ();
-
sub register_ett($)
{
my $name = shift;
# HF
###############################################################################
-my %hf = ();
-
sub register_hf_field($$$$$$$$)
{
my ($index,$name,$filter_name,$ft_type,$base_type,$valsstring,$mask,$blurb) = @_;