summaryrefslogtreecommitdiff
path: root/source4/build/pidl/validator.pm
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2005-03-28 18:21:13 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 13:11:19 -0500
commit4f4d18d66c2fd111864df688d911b151b22cefbe (patch)
tree7a25013dd0bd50afff51a716deaec4f7fec0a558 /source4/build/pidl/validator.pm
parente6aeeb5269a4953e48dd023e03aeba0cf47f6698 (diff)
downloadsamba-4f4d18d66c2fd111864df688d911b151b22cefbe.tar.gz
samba-4f4d18d66c2fd111864df688d911b151b22cefbe.tar.bz2
samba-4f4d18d66c2fd111864df688d911b151b22cefbe.zip
r6097: allow compression only on subcontexts
metze (This used to be commit 2a7eead1c8058f829395723028a43b0336a1cf87)
Diffstat (limited to 'source4/build/pidl/validator.pm')
-rw-r--r--source4/build/pidl/validator.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/source4/build/pidl/validator.pm b/source4/build/pidl/validator.pm
index 5e1f1e1660..d3f3cbe1e7 100644
--- a/source4/build/pidl/validator.pm
+++ b/source4/build/pidl/validator.pm
@@ -76,6 +76,10 @@ sub ValidElement($)
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 @@ sub ValidInterface($)
}
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";
}