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

[metze at samba.org]

Author: metze
Date: 2005-03-28 18:21:13 +0000 (Mon, 28 Mar 2005)
New Revision: 6097

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

Log:
allow compression only on subcontexts

metze

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


Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/validator.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/validator.pm	2005-03-28 15:21:23 UTC (rev 6096)
+++ branches/SAMBA_4_0/source/build/pidl/validator.pm	2005-03-28 18:21:13 UTC (rev 6097)
@@ -76,6 +76,10 @@
 		fatal(el_name($e) . " : subcontext_size() on non-subcontext element");
 	}
 
+	if (defined (util::has_property($e, "compression")) and not defined(util::has_property($e, "subcontext"))) {
+		fatal(el_name($e) . " : compression() on non-subcontext element");
+	}
+
 	if (!$e->{POINTERS} && (
 		util::has_property($e, "ptr") or
 		util::has_property($e, "unique") or
@@ -177,12 +181,12 @@
 	}
 
 	if (util::has_property($interface, "object")) {
-     	if(util::has_property($interface, "version") && 
+     		if (util::has_property($interface, "version") && 
 			$interface->{PROPERTIES}->{version} != 0) {
 			fatal "Object interfaces must have version 0.0 ($interface->{NAME})\n";
 		}
 
-		if(!defined($interface->{BASE}) && 
+		if (!defined($interface->{BASE}) && 
 			not ($interface->{NAME} eq "IUnknown")) {
 			fatal "Object interfaces must all derive from IUnknown ($interface->{NAME})\n";
 		}