From d9cdaccaa7049c773e876047320839dd6d2d9459 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Thu, 8 Sep 2005 21:59:40 +0000
Subject: r10093: Fix the HF_FIELD conformance file command (This used to be
 commit 0c0a4b55cff4079276073060dae91ff0c19af42f)

---
 source4/pidl/lib/Parse/Pidl/Ethereal/Conformance.pm |  9 ++++-----
 source4/pidl/lib/Parse/Pidl/Ethereal/NDR.pm         | 19 ++++++++++---------
 source4/pidl/lib/Parse/Pidl/IDL.pm                  |  2 +-
 3 files changed, 15 insertions(+), 15 deletions(-)

(limited to 'source4/pidl/lib/Parse/Pidl')

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 }},
 ";
 	}
 
diff --git a/source4/pidl/lib/Parse/Pidl/IDL.pm b/source4/pidl/lib/Parse/Pidl/IDL.pm
index dd667cb9eb..1aa4426cd6 100644
--- a/source4/pidl/lib/Parse/Pidl/IDL.pm
+++ b/source4/pidl/lib/Parse/Pidl/IDL.pm
@@ -2775,7 +2775,7 @@ sub parse_idl($$)
 	undef $/;
 	my $cpp = $ENV{CPP};
 	if (! defined $cpp) {
-		$cpp = "CPP";
+		$cpp = "cpp";
 	}
 	my $data = `$cpp -D__PIDL__ -xc $filename`;
 	$/ = $saved_delim;
-- 
cgit