summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse/Pidl/Ethereal
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2005-09-08 21:59:40 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:37:52 -0500
commitd9cdaccaa7049c773e876047320839dd6d2d9459 (patch)
tree0d55d40beb24e22cdd6822bf0218aad7f928a6eb /source4/pidl/lib/Parse/Pidl/Ethereal
parent3e941e6a92e273dc8d5bca982870b3a91cbcd521 (diff)
downloadsamba-d9cdaccaa7049c773e876047320839dd6d2d9459.tar.gz
samba-d9cdaccaa7049c773e876047320839dd6d2d9459.tar.bz2
samba-d9cdaccaa7049c773e876047320839dd6d2d9459.zip
r10093: Fix the HF_FIELD conformance file command
(This used to be commit 0c0a4b55cff4079276073060dae91ff0c19af42f)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Ethereal')
-rw-r--r--source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm9
-rw-r--r--source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm19
2 files changed, 14 insertions, 14 deletions
diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
index 8a4782073d..d0a3047939 100644
--- a/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
+++ b/source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm
@@ -29,7 +29,6 @@ sub handle_type($$$$$$$$)
};
}
-
sub handle_hf_rename($$$)
{
my ($data,$old,$new) = @_;
@@ -45,11 +44,11 @@ sub handle_param_value($$$)
sub handle_hf_field($$$$$$$$$)
{
- my ($data,$hf,$title,$filter,$ft_type,$base_type,$valsstring,$mask,$blurb) = @_;
+ my ($data,$index,$name,$filter,$ft_type,$base_type,$valsstring,$mask,$blurb) = @_;
- $data->{header_fields}->{$hf} = {
- HF => $hf,
- TITLE => $title,
+ $data->{header_fields}->{$index} = {
+ INDEX => $index,
+ NAME => $name,
FILTER => $filter,
FT_TYPE => $ft_type,
BASE_TYPE => $base_type,
diff --git a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
index ee774d1898..315c31a6f6 100644
--- a/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
+++ b/source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm
@@ -16,10 +16,9 @@ use Parse::Pidl::Dump qw(DumpTypedef DumpFunction);
use Parse::Pidl::Ethereal::Conformance qw(ReadConformance);
my %types;
-my %hf;
my @ett;
-my $conformance = {imports=>{}};
+my $conformance = undef;
my %ptrtype_mappings = (
"unique" => "NDR_POINTER_UNIQUE",
@@ -671,7 +670,10 @@ sub Initialize($)
{
my $cnf_file = shift;
- $conformance = {};
+ $conformance = {
+ imports => {},
+ header_fields=> {}
+ };
ReadConformance($cnf_file, $conformance) or print "Warning: No conformance file `$cnf_file'\n";
@@ -716,7 +718,6 @@ sub Parse($$$$)
$tabs = "";
%res = (code=>"",def=>"",hdr=>"");
- %hf = ();
@ett = ();
my $notice =
@@ -814,13 +815,13 @@ sub register_hf_field($$$$$$$$)
return $conformance->{hf_renames}->{$index} if defined ($conformance->{hf_renames}->{$index});
- $hf{$index} = {
+ $conformance->{header_fields}->{$index} = {
INDEX => $index,
NAME => $name,
FILTER => $filter_name,
FT_TYPE => $ft_type,
BASE_TYPE => $base_type,
- VALS => $valsstring,
+ VALSSTRING => $valsstring,
MASK => $mask,
BLURB => $blurb
};
@@ -834,7 +835,7 @@ sub DumpHfDeclaration()
$res = "\n/* Header field declarations */\n";
- foreach (keys %hf)
+ foreach (keys %{$conformance->{header_fields}})
{
$res .= "static gint $_ = -1;\n";
}
@@ -846,10 +847,10 @@ sub DumpHfList()
{
my $res = "\tstatic hf_register_info hf[] = {\n";
- foreach (values %hf)
+ foreach (values %{$conformance->{header_fields}})
{
$res .= "\t{ &$_->{INDEX},
- { \"$_->{NAME}\", \"$_->{FILTER}\", $_->{FT_TYPE}, $_->{BASE_TYPE}, $_->{VALS}, $_->{MASK}, \"$_->{BLURB}\", HFILL }},
+ { \"$_->{NAME}\", \"$_->{FILTER}\", $_->{FT_TYPE}, $_->{BASE_TYPE}, $_->{VALSSTRING}, $_->{MASK}, \"$_->{BLURB}\", HFILL }},
";
}