From 8017286589abfeb9642bf2aea53dccfcb4956143 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 27 May 2005 18:36:23 +0000
Subject: r7037: Add enough pointers in the header file as well Fix a couple of
 warnings. (This used to be commit fcaa9d495c13af5065dd32f8ed65d4260b3a5539)

---
 source4/build/pidl/ndr_header.pm | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

(limited to 'source4/build/pidl/ndr_header.pm')

diff --git a/source4/build/pidl/ndr_header.pm b/source4/build/pidl/ndr_header.pm
index 05c2f1f55c..05265bbf5b 100644
--- a/source4/build/pidl/ndr_header.pm
+++ b/source4/build/pidl/ndr_header.pm
@@ -60,20 +60,24 @@ sub HeaderElement($)
     pidl tabs();
     HeaderType($element, $element->{TYPE}, "");
     pidl " ";
-    my $pointers = 0;
+	my $prefix = "";
+	my $postfix = "";
 	foreach my $l (@{$element->{LEVELS}}) 
 	{
 		if (($l->{TYPE} eq "POINTER")) {
 			next if ($element->{TYPE} eq "string");
-		    pidl "*";
-		    $pointers+=1;
-	    } elsif ($l->{TYPE} eq "ARRAY") {
-	    	if (!$pointers and !$l->{IS_FIXED}) { pidl "*"; }
-    		pidl "$element->{NAME}";
-		if ($l->{IS_FIXED}) { pidl "[$l->{SIZE_IS}]"; }
-		last; #FIXME
+			$prefix .= "*";
+	    } elsif (($l->{TYPE} eq "ARRAY")) {
+			my $pl = Ndr::GetPrevLevel($element, $l);
+			next if ($pl and $pl->{TYPE} eq "POINTER");
+
+			if ($l->{IS_FIXED}) { 
+				$postfix .= "[$l->{SIZE_IS}]"; 
+			} else {
+				$prefix .= "*";
+			}
 	    } elsif ($l->{TYPE} eq "DATA") {
-    		pidl "$element->{NAME}";
+    		pidl "$prefix$element->{NAME}$postfix";
 		}
 	}
 	
-- 
cgit