summaryrefslogtreecommitdiff
path: root/source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm')
-rw-r--r--source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm15
1 files changed, 14 insertions, 1 deletions
diff --git a/source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm b/source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm
index aeca3d90f8..b2657b032f 100644
--- a/source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm
+++ b/source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm
@@ -8,7 +8,7 @@ package Parse::Pidl::Ethereal::Conformance;
require Exporter;
@ISA = qw(Exporter);
-@EXPORT_OK = qw(EmitProhibited);
+@EXPORT_OK = qw(EmitProhibited FindDissectorParam);
use strict;
@@ -33,10 +33,14 @@ sub handle_hf_rename($$)
$hf_renames{$old} = $new;
}
+my %dissectorparams = ();
+
sub handle_param_value($$)
{
my ($dissector_name,$value) = @_;
+ $dissectorparams{$dissector_name} = $value;
+
}
sub handle_hf_field($$$$$$$$)
@@ -96,4 +100,13 @@ sub EmitProhibited($)
return 0;
}
+sub FindDissectorParam($)
+{
+ my $type = shift;
+
+ return $dissectorparams{$type} if defined ($dissectorparams{$type});
+
+ return 0;
+}
+
1;