svn commit: samba r5426 - in branches/SAMBA_4_0/source/build/pidl: .

[jelmer at samba.org]

Author: jelmer
Date: 2005-02-17 11:20:28 +0000 (Thu, 17 Feb 2005)
New Revision: 5426

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

Log:
Warn about embedded ref pointers.

Modified:
   branches/SAMBA_4_0/source/build/pidl/ndr.pm
   branches/SAMBA_4_0/source/build/pidl/validator.pm


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/ndr.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-02-16 21:54:01 UTC (rev 5425)
+++ branches/SAMBA_4_0/source/build/pidl/ndr.pm	2005-02-17 11:20:28 UTC (rev 5426)
@@ -84,6 +84,7 @@
 	return "ptr" if (util::has_property($e, "ptr"));
 	return "unique" if (util::has_property($e, "unique"));
 	return "relative" if (util::has_property($e, "relative"));
+	return "ignore" if (util::has_property($e, "ignore"));
 
 	return undef;
 }

Modified: branches/SAMBA_4_0/source/build/pidl/validator.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/validator.pm	2005-02-16 21:54:01 UTC (rev 5425)
+++ branches/SAMBA_4_0/source/build/pidl/validator.pm	2005-02-17 11:20:28 UTC (rev 5426)
@@ -68,12 +68,15 @@
 	my($struct) = shift;
 
 	foreach my $e (@{$struct->{ELEMENTS}}) {
+		if (util::has_property($e, "ref")) {
+			fatal(el_name($e) . " : embedded ref pointers are not supported yet\n");
+		}
+	
 		$e->{PARENT} = $struct;
 		ValidElement($e);
 	}
 }
 
-
 #####################################################################
 # parse a union
 sub ValidUnion($)
@@ -92,6 +95,11 @@
 			fatal "Union member $e->{NAME} must have default or case property\n";
 		}
 
+		if (util::has_property($e, "ref")) {
+			fatal(el_name($e) . " : embedded ref pointers are not supported yet\n");
+		}
+
+
 		ValidElement($e);
 	}
 }