diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-12-13 13:14:23 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:47:18 -0500 |
| commit | a3b0f53f4762ee54179e367770acc85633853f13 (patch) | |
| tree | 598a5f91d503bf73909ea0262c67dcfadf04c8a5 /source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm | |
| parent | 5352b3892832ca4055dd01a19b2093b4902dfd4c (diff) | |
| download | samba-a3b0f53f4762ee54179e367770acc85633853f13.tar.gz samba-a3b0f53f4762ee54179e367770acc85633853f13.tar.bz2 samba-a3b0f53f4762ee54179e367770acc85633853f13.zip | |
r12206: Fix some issues in NOEMIT
(This used to be commit 905cebd117f3b05a286f014e2c21b0843e8f7caf)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm')
| -rw-r--r-- | source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm index 7dc94763ea..b400d1ade0 100644 --- a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm +++ b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm @@ -22,6 +22,7 @@ use Parse::Pidl::Util qw(has_property ParseExpr property_matches make_str); use Parse::Pidl::NDR qw(ContainsString GetNextLevel); use Parse::Pidl::Dump qw(DumpTypedef DumpFunction); use Parse::Pidl::Ethereal::Conformance qw(ReadConformance); +use File::Basename; use vars qw($VERSION); $VERSION = '0.01'; @@ -206,6 +207,7 @@ sub Bitmap($$$) if (defined($conformance->{tfs}->{$hf_bitname})) { pidl_def " $conformance->{tfs}->{$hf_bitname}->{TRUE_STRING},"; pidl_def " $conformance->{tfs}->{$hf_bitname}->{FALSE_STRING},"; + $conformance->{tfs}->{$hf_bitname}->{USED} = 1; } else { pidl_def " \"$en is SET\","; pidl_def " \"$en is NOT SET\","; @@ -827,7 +829,6 @@ sub Parse($$$$) $res{headers} .= "#include \"packet-dcerpc-nt.h\"\n"; $res{headers} .= "#include \"packet-windows-common.h\"\n"; - use File::Basename; my $h_basename = basename($h_filename); $res{headers} .= "#include \"$h_basename\"\n"; @@ -1009,6 +1010,12 @@ sub CheckUsed($) print "$_->{POS}: warning: description never used\n"; } } + + foreach (values %{$conformance->{tfs}}) { + if (not $_->{USED}) { + print "$_->{POS}: warning: True/False description never used\n"; + } + } } 1; |