summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-12-13 13:14:23 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:47:18 -0500
commita3b0f53f4762ee54179e367770acc85633853f13 (patch)
tree598a5f91d503bf73909ea0262c67dcfadf04c8a5 /source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
parent5352b3892832ca4055dd01a19b2093b4902dfd4c (diff)
downloadsamba-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.pm9
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;