diff options
Diffstat (limited to 'source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm')
-rw-r--r-- | source4/build/pidl/Parse/Pidl/Ethereal/Conformance.pm | 15 |
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; |