svn commit: samba r24523 - in branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3: .

[metze at samba.org]

Author: metze
Date: 2007-08-17 13:47:03 +0000 (Fri, 17 Aug 2007)
New Revision: 24523

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

Log:
we don't support multi-dimentional [out] arrays
for the samba3 server stubs yet, so bail out.

metze
Modified:
   branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm


Changeset:
Modified: branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm
===================================================================
--- branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm	2007-08-17 13:45:18 UTC (rev 24522)
+++ branches/SAMBA_4_0/source/pidl/lib/Parse/Pidl/Samba3/ServerNDR.pm	2007-08-17 13:47:03 UTC (rev 24523)
@@ -72,7 +72,15 @@
 		$l = $nl if ($nl->{TYPE} eq "ARRAY");
 	}
 
+	# we don't support multi-dimentional arrays yet
 	if ($l->{TYPE} eq "ARRAY") {
+		my $nl = GetNextLevel($e, $l);
+		if ($nl->{TYPE} eq "ARRAY") {
+			fatal($e->{ORIGINAL},"multi-dimentional [out] arrays are not supported!");
+		}
+	}
+
+	if ($l->{TYPE} eq "ARRAY") {
 		my $size = ParseExpr($l->{SIZE_IS}, $env, $e);
 		pidl "$name = talloc_zero_array($mem_ctx, " . DeclLevel($e, 1) . ", $size);";
 	} else {