svn commit: samba r24516 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4: .

[metze]

Author: metze
Date: 2007-08-17 12:04:41 +0000 (Fri, 17 Aug 2007)
New Revision: 24516

WebSVN: 
http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=24516

Log:
don't use ->{ORIGINAL}

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm      
2007-08-17 11:24:25 UTC (rev 24515)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba4/Header.pm      
2007-08-17 12:04:41 UTC (rev 24516)
@@ -10,6 +10,7 @@
 use Parse::Pidl qw(fatal);
 use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);
 use Parse::Pidl::Util qw(has_property is_constant);
+use Parse::Pidl::NDR qw(GetPrevLevel);
 use Parse::Pidl::Samba4 qw(is_intree);
 
 use vars qw($VERSION);
@@ -64,23 +65,30 @@
                        HeaderType($element, $element->{TYPE}, "");
                }
                pidl " ";
-               my $numstar = $element->{ORIGINAL}->{POINTERS};
+               my $numstar = 0;
+               foreach my $l (@{$element->{LEVELS}}) {
+                       next unless ($l->{TYPE} eq "POINTER");
+                       $numstar++;
+               }
                if ($numstar >= 1) {
                        $numstar-- if (scalar_is_reference($element->{TYPE}));
                }
-               foreach (@{$element->{ORIGINAL}->{ARRAY_LEN}})
-               {
-                       next if is_constant($_) and 
+               foreach my $l (@{$element->{LEVELS}}) {
+                       next unless ($l->{TYPE} eq "ARRAY");
+                       next if ($l->{IS_FIXED}) and
                                not has_property($element, "charset");
+                       my $pl = GetPrevLevel($element, $l);
+                       next if (defined($pl) and $pl->{TYPE} eq "POINTER");
                        $numstar++;
                }
                pidl "*" foreach (1..$numstar);
        }
        pidl $element->{NAME};
-       foreach (@{$element->{ORIGINAL}->{ARRAY_LEN}}) {
-               next unless (is_constant($_) and 
+       foreach my $l (@{$element->{LEVELS}}) {
+               next unless ($l->{TYPE} eq "ARRAY");
+               next unless ($l->{IS_FIXED} and
                        not has_property($element, "charset"));
-               pidl "[$_]";
+               pidl "[$l->{SIZE_IS}]";
        }
 
        pidl ";";