diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2005-09-09 18:21:59 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:38:01 -0500 |
commit | 5d6706e0775b6c9a9920966f6ef9fcd4a8d34345 (patch) | |
tree | 991317fcd3d047d524a0e33d98a40a5c46fdc568 /source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm | |
parent | 6635e7b2ad97d482f74d696cfb1b277d62d949c1 (diff) | |
download | samba-5d6706e0775b6c9a9920966f6ef9fcd4a8d34345.tar.gz samba-5d6706e0775b6c9a9920966f6ef9fcd4a8d34345.tar.bz2 samba-5d6706e0775b6c9a9920966f6ef9fcd4a8d34345.zip |
r10123: Add more warnings. Support quotes in conformance command arguments
(This used to be commit e6842fcc9809bcf8de678199a6f28fbbde6c0b83)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm index 47107b5969..c12731eca2 100644 --- a/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm +++ b/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm @@ -31,7 +31,7 @@ sub handle_type($$$$$$$$$$) print "$pos: warning: invalid FT_TYPE `$ft_type'\n"; } - unless(alid_base_type($base_type)) { + unless (valid_base_type($base_type)) { print "$pos: warning: invalid BASE_TYPE `$base_type'\n"; } @@ -74,7 +74,12 @@ sub handle_param_value($$$$) return; } - $data->{dissectorparams}->{$dissector_name} = $value; + $data->{dissectorparams}->{$dissector_name} = { + DISSECTOR => $dissector_name, + PARAM => $value, + POS => $pos, + USED => 0 + }; } sub valid_base_type($) @@ -158,7 +163,11 @@ sub handle_fielddescription($$$$) { my ($pos,$data,$field,$desc) = @_; - $data->{fielddescription}->{$field} = $desc; + $data->{fielddescription}->{$field} = { + DESCRIPTION => $desc, + POS => $pos, + USED => 0 + }; } sub handle_import @@ -172,7 +181,12 @@ sub handle_import return; } - $data->{imports}->{$dissectorname} = join(' ', @_); + $data->{imports}->{$dissectorname} = { + NAME => $dissectorname, + DATA => join(' ', @_), + USED => 0, + POS => $pos + }; } my %field_handlers = ( |