r9088: More ethereal parser generator updates
[samba.git] / source4 / build / pidl / Parse / Pidl / Ethereal / Conformance.pm
index aeca3d90f863890bc0d61635527465f24d181e9c..b2657b032fd63f59c698829f4db9dd0180f92c30 100644 (file)
@@ -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;