diff options
Diffstat (limited to 'source4/build/pidl/ndr_header.pm')
| -rw-r--r-- | source4/build/pidl/ndr_header.pm | 22 |
1 files changed, 13 insertions, 9 deletions
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"; } } |