r9088: More ethereal parser generator updates
[samba.git] / source4 / build / pidl / Parse / Pidl / Ethereal / Conformance.pm
1 ###################################################
2 # parse an ethereal conformance file
3 # Copyright jelmer@samba.org 2005
4 # released under the GNU GPL
5
6 package Parse::Pidl::Ethereal::Conformance;
7
8 require Exporter;
9
10 @ISA = qw(Exporter);
11 @EXPORT_OK = qw(EmitProhibited FindDissectorParam);
12
13 use strict;
14
15 use Parse::Pidl::Util qw(has_property);
16
17 sub handle_union_tag_size($$)
18 {
19         #FIXME  
20 }
21
22 sub handle_type($$$$$$$)
23 {
24         my ($name,$dissectorname,$ft_type,$base_type,$mask,$valsstring,$alignment) = @_;
25         #FIXME
26 }
27
28 my %hf_renames = ();
29
30 sub handle_hf_rename($$)
31 {
32         my ($old,$new) = @_;
33         $hf_renames{$old} = $new;
34 }
35
36 my %dissectorparams = ();
37
38 sub handle_param_value($$)
39 {
40         my ($dissector_name,$value) = @_;
41
42         $dissectorparams{$dissector_name} = $value;
43
44 }
45
46 sub handle_hf_field($$$$$$$$)
47 {
48         my ($hf,$title,$filter,$ft_type,$base_type,$valsstring,$mask,$blub) = @_;
49
50 }
51
52 sub handle_strip_prefix($)
53 {
54         #FIXME
55 }
56
57 my @noemit = ();
58
59 sub handle_noemit($)
60 {
61         my $type = shift;
62
63         push (@noemit, $type);
64 }
65
66 my %field_handlers = (
67         UNION_TAG_SIZE => \&handle_union_tag_size,
68         TYPE => \&handle_type,
69         NOEMIT => \&handle_noemit, 
70         PARAM_VALUE => \&handle_param_value, 
71         HF_FIELD => \&handle_hf_field, 
72         HF_RENAME => \&handle_hf_rename, 
73         STRIP_PREFIX => \&handle_strip_prefix
74 );
75
76 sub Parse($)
77 {
78         my $f = shift;
79
80         open(IN,$f) or return undef;
81
82         foreach (<IN>) {
83                 next if (/^#.*$/);
84                 next if (/^$/);
85
86                 my @fields = split(/ /);
87                 
88                 $field_handlers{$fields[0]}(@fields);
89         }
90
91         close(IN);
92 }
93
94 sub EmitProhibited($)
95 {
96         my $type = shift;
97
98         return 1 if (grep(/$type/,@noemit));
99
100         return 0;
101 }
102
103 sub FindDissectorParam($)
104 {
105         my $type = shift;
106
107         return $dissectorparams{$type} if defined ($dissectorparams{$type});
108
109         return 0;
110 }
111
112 1;