svn commit: samba r10123 - in
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl: . Ethereal
jelmer at samba.org
jelmer at samba.org
Fri Sep 9 18:21:59 GMT 2005
Author: jelmer
Date: 2005-09-09 18:21:59 +0000 (Fri, 09 Sep 2005)
New Revision: 10123
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=10123
Log:
Add more warnings. Support quotes in conformance command arguments
Modified:
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Util.pm
Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm 2005-09-09 18:09:44 UTC (rev 10122)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm 2005-09-09 18:21:59 UTC (rev 10123)
@@ -31,7 +31,7 @@
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 @@
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 @@
{
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 @@
return;
}
- $data->{imports}->{$dissectorname} = join(' ', @_);
+ $data->{imports}->{$dissectorname} = {
+ NAME => $dissectorname,
+ DATA => join(' ', @_),
+ USED => 0,
+ POS => $pos
+ };
}
my %field_handlers = (
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm 2005-09-09 18:09:44 UTC (rev 10122)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Ethereal/NDR.pm 2005-09-09 18:21:59 UTC (rev 10123)
@@ -10,12 +10,11 @@
use strict;
use Parse::Pidl::Typelist;
-use Parse::Pidl::Util qw(has_property ParseExpr property_matches);
+use Parse::Pidl::Util qw(has_property ParseExpr property_matches make_str);
use Parse::Pidl::NDR;
use Parse::Pidl::Dump qw(DumpTypedef DumpFunction);
use Parse::Pidl::Ethereal::Conformance qw(ReadConformance);
-my %types;
my @ett;
my %hf_used = ();
@@ -238,7 +237,8 @@
my $param = 0;
if (defined($conformance->{dissectorparams}->{$myname})) {
- $param = $conformance->{dissectorparams}->{$myname};
+ $conformance->{dissectorparams}->{$myname}->{PARAM} = 1;
+ $param = $conformance->{dissectorparams}->{$myname}->{PARAM};
}
if ($l->{TYPE} eq "POINTER") {
@@ -285,10 +285,12 @@
} else {
my $call;
- if (defined($types{$l->{DATA_TYPE}})) {
- $call= $types{$l->{DATA_TYPE}}->{CALL};
- } elsif ($conformance->{imports}->{$l->{DATA_TYPE}}) {
- $call = $conformance->{imports}->{$l->{DATA_TYPE}};
+ if ($conformance->{imports}->{$l->{DATA_TYPE}}) {
+ $call = $conformance->{imports}->{$l->{DATA_TYPE}}->{DATA};
+ $conformance->{imports}->{$l->{DATA_TYPE}}->{USED} = 1;
+ } elsif (defined($conformance->{types}->{$l->{DATA_TYPE}})) {
+ $call= $conformance->{types}->{$l->{DATA_TYPE}}->{DISSECTOR_NAME};
+ $conformance->{types}->{$l->{DATA_TYPE}}->{USED} = 1;
} else {
if ($l->{DATA_TYPE} =~ /^([a-z]+)\_(.*)$/)
{
@@ -557,7 +559,7 @@
# These can be changed to non-pidl_code names if the old dissectors
# in epan/dissctors are deleted.
- my $name = "\"" . uc($x->{NAME}) . " (pidl)\"";
+ my $name = uc($x->{NAME}) . " (pidl)";
my $short_name = uc($x->{NAME});
my $filter_name = $x->{NAME};
@@ -571,7 +573,7 @@
$filter_name = $conformance->{protocols}->{$x->{NAME}}->{FILTERNAME};
}
- pidl_code "proto_dcerpc_$x->{NAME} = proto_register_protocol($name, \"$short_name\", \"$filter_name\");";
+ pidl_code "proto_dcerpc_$x->{NAME} = proto_register_protocol(".make_str($name).", ".make_str($short_name).", ".make_str($filter_name).");";
pidl_code "proto_register_field_array(proto_dcerpc_$x->{NAME}, hf, array_length (hf));";
pidl_code "proto_register_subtree_array(ett, array_length(ett));";
@@ -674,14 +676,14 @@
{
my ($type,$call,$ft,$base,$mask,$vals,$length) = @_;
- $types{$type} = {
- TYPE => $type,
- CALL => $call,
+ $conformance->{types}->{$type} = {
+ NAME => $type,
+ DISSECTOR_NAME => $call,
FT_TYPE => $ft,
- BASE => $base,
+ BASE_TYPE => $base,
MASK => $mask,
VALSSTRING => $vals,
- LENGTH => $length
+ ALIGNMENT => $length
};
}
@@ -854,7 +856,8 @@
if ((not defined($blurb) or $blurb eq "") and
defined($conformance->{fielddescription}->{$index})) {
$conformance->{header_fields}->{$index}->{BLURB} =
- $conformance->{fielddescription}->{$index};
+ $conformance->{fielddescription}->{$index}->{DESCRIPTION};
+ $conformance->{fielddescription}->{$index}->{USED} = 1;
}
return $index;
@@ -881,7 +884,7 @@
foreach (values %{$conformance->{header_fields}})
{
$res .= "\t{ &$_->{INDEX},
- { \"$_->{NAME}\", \"$_->{FILTER}\", $_->{FT_TYPE}, $_->{BASE_TYPE}, $_->{VALSSTRING}, $_->{MASK}, \"$_->{BLURB}\", HFILL }},
+ { ".make_str($_->{NAME}).", ".make_str($_->{FILTER}).", $_->{FT_TYPE}, $_->{BASE_TYPE}, $_->{VALSSTRING}, $_->{MASK}, ".make_str($_->{BLURB}).", HFILL }},
";
}
@@ -925,12 +928,29 @@
}
}
- #FIXME: PARAM_VALUE's
- #FIXME: TYPE
- #FIXME: FIELDDESCRIPTION
- #FIXME: Import
-}
+ foreach (values %{$conformance->{dissectorparams}}) {
+ if (not $_->{USED}) {
+ print "$_->{POS}: warning: dissector param never used\n";
+ }
+ }
+ foreach (values %{$conformance->{imports}}) {
+ if (not $_->{USED}) {
+ print "$_->{POS}: warning: import never used\n";
+ }
+ }
+ foreach (values %{$conformance->{types}}) {
+ if (not $_->{USED} and defined($_->{POS})) {
+ print "$_->{POS}: warning: type never used\n";
+ }
+ }
+ foreach (values %{$conformance->{fielddescription}}) {
+ if (not $_->{USED}) {
+ print "$_->{POS}: warning: description never used\n";
+ }
+ }
+}
+
1;
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Util.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Util.pm 2005-09-09 18:09:44 UTC (rev 10122)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Util.pm 2005-09-09 18:21:59 UTC (rev 10123)
@@ -6,7 +6,7 @@
require Exporter;
@ISA = qw(Exporter);
- at EXPORT = qw(has_property property_matches ParseExpr is_constant);
+ at EXPORT = qw(has_property property_matches ParseExpr is_constant make_str);
use strict;
More information about the samba-cvs
mailing list