svn commit: samba r5426 - in branches/SAMBA_4_0/source/build/pidl: .
jelmer at samba.org
jelmer at samba.org
Thu Feb 17 11:20:28 GMT 2005
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);
}
}
More information about the samba-cvs
mailing list