From 7d82d86660b77633a6abacf892e9d6a677917365 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Mon, 30 May 2005 16:19:23 +0000
Subject: r7115: specify what properties can be used on what objects...

metze
(This used to be commit 2287ed4afa8ffe99e21496e4ec6a2a0b7cc0952c)
---
 source4/build/pidl/validator.pm | 171 ++++++++++++++++++++++++++--------------
 1 file changed, 114 insertions(+), 57 deletions(-)

diff --git a/source4/build/pidl/validator.pm b/source4/build/pidl/validator.pm
index 50f7083b4b..3c7e1f51d0 100644
--- a/source4/build/pidl/validator.pm
+++ b/source4/build/pidl/validator.pm
@@ -44,87 +44,144 @@ sub el_name($)
 
 my %property_list = (
 	# interface
-	"helpstring"		=> {},
-	"version"		=> {},
-	"uuid"			=> {},
-	"endpoint"		=> {},
-	"pointer_default"	=> {},
-	"pointer_default_top"	=> {},
-	"depends"		=> {},
-	"authservice"		=> {},
+	"helpstring"		=> {INTERFACE	=> 1,
+				    FUNCTION	=> 1,
+				    },
+	"version"		=> {INTERFACE	=> 1,
+				    },
+	"uuid"			=> {INTERFACE	=> 1,
+				    },
+	"endpoint"		=> {INTERFACE	=> 1,
+				    },
+	"pointer_default"	=> {INTERFACE	=> 1,
+				    },
+	"pointer_default_top"	=> {INTERFACE	=> 1,
+				    },
+	"depends"		=> {INTERFACE	=> 1,
+				    },
+	"authservice"		=> {INTERFACE	=> 1,
+				    },
 
 	# dcom
-	"object"		=> {},
-	"local"			=> {},
-	"iid_is"		=> {},
-	"call_as"		=> {},
-	"iid_is"		=> {},
-	"idempotent"		=> {},
+	"object"		=> {INTERFACE	=> 1,
+				    },
+	"local"			=> {INTERFACE	=> 1,
+				    FUNCTION	=> 1,
+				    },
+	"iid_is"		=> {ELEMENT	=> 1,
+				    },
+	"call_as"		=> {FUNCTION	=> 1,
+				    },
+	"idempotent"		=> {FUNCTION	=> 1,
+				    },
 
 	# function
-	"noopnum"		=> {},
-	"in"			=> {},
-	"out"			=> {},
+	"noopnum"		=> {FUNCTION	=> 1,
+				    },
+	"in"			=> {ELEMENT	=> 1,
+				    },
+	"out"			=> {ELEMENT	=> 1,
+				    },
 
 	# pointer
-	"ref"			=> {},
-	"ptr"			=> {},
-	"unique"		=> {},
-	"relative"		=> {},
+	"ref"			=> {ELEMENT	=> 1,
+				    },
+	"ptr"			=> {ELEMENT	=> 1,
+				    },
+	"unique"		=> {ELEMENT	=> 1,
+				    },
+	"relative"		=> {ELEMENT	=> 1,
+				    },
 
 	# ndr_size
-	"gensize"		=> {},
-	"value"			=> {},
-	"flag"			=> {},
+	"gensize"		=> {TYPEDEF	=> 1,
+				    },
+	"value"			=> {ELEMENT	=> 1,
+				    },
+	"flag"			=> {ELEMENT	=> 1,
+				    TYPEDEF	=> 1,
+				    },
 
 	# generic
-	"public"		=> {},
-	"nopush"		=> {},
-	"nopull"		=> {},
-	"noprint"		=> {},
+	"public"		=> {FUNCTION	=> 1,
+				    TYPEDEF	=> 1,
+				    },
+	"nopush"		=> {FUNCTION	=> 1,
+				    TYPEDEF	=> 1,
+				    },
+	"nopull"		=> {FUNCTION	=> 1,
+				    TYPEDEF	=> 1,
+				    },
+	"noprint"		=> {FUNCTION	=> 1,
+				    TYPEDEF	=> 1,
+				    },
 
 	# union
-	"switch_is"		=> {},
-	"switch_type"		=> {},
-	"nodiscriminant"	=> {},
-	"case"			=> {},
-	"default"		=> {},
+	"switch_is"		=> {ELEMENT	=> 1,
+				    },
+	"switch_type"		=> {ELEMENT	=> 1,
+				    TYPEDEF	=> 1,
+				    },
+	"nodiscriminant"	=> {TYPEDEF	=> 1,
+				    },
+	"case"			=> {ELEMENT	=> 1,
+				    },
+	"default"		=> {ELEMENT	=> 1,
+				    },
 
 	# subcontext
-	"subcontext"		=> {},
-	"subcontext_size"	=> {},
-	"compression"		=> {},
-	"obfuscation"		=> {},
+	"subcontext"		=> {ELEMENT	=> 1,
+				    },
+	"subcontext_size"	=> {ELEMENT	=> 1,
+				    },
+	"compression"		=> {ELEMENT	=> 1,
+				    },
+	"obfuscation"		=> {ELEMENT	=> 1,
+				    },
 
 	# enum
-	"enum8bit"		=> {},
-	"enum16bit"		=> {},
-	"v1_enum"		=> {},
+	"enum8bit"		=> {TYPEDEF	=> 1,
+				    },
+	"enum16bit"		=> {TYPEDEF	=> 1,
+				    },
+	"v1_enum"		=> {TYPEDEF	=> 1,
+				    },
 
 	# bitmap
-	"bitmap8bit"		=> {},
-	"bitmap16bit"		=> {},
-	"bitmap32bit"		=> {},
-	"bitmap64bit"		=> {},
+	"bitmap8bit"		=> {TYPEDEF	=> 1,
+				    },
+	"bitmap16bit"		=> {TYPEDEF	=> 1,
+				    },
+	"bitmap32bit"		=> {TYPEDEF	=> 1,
+				    },
+	"bitmap64bit"		=> {TYPEDEF	=> 1,
+				    },
 
 	# array
-	"range"			=> {},
-	"size_is"		=> {},
-	"length_is"		=> {},
+	"range"			=> {ELEMENT	=> 1,
+				    },
+	"size_is"		=> {ELEMENT	=> 1,
+				    },
+	"length_is"		=> {ELEMENT	=> 1,
+				    },
 );
 
 #####################################################################
 # check for unknown properties
-sub ValidProperties($)
+sub ValidProperties($$)
 {
 	my $e = shift;
+	my $t = shift;
 
 	return unless defined $e->{PROPERTIES};
 
 	foreach my $key (keys %{$e->{PROPERTIES}}) {
-		if (not defined $property_list{$key}) {
-			fatal($e, el_name($e) . ": unknown property '$key'\n");
-		}
+		fatal($e, el_name($e) . ": unknown property '$key'\n")
+			if not defined($property_list{$key});
+
+		next if defined($property_list{$key}{ANY});
+    		fatal($e, el_name($e) . ": property '$key' not allowed on '$t'\n")
+			if not defined($property_list{$key}{$t});
 	}
 }
 
@@ -134,7 +191,7 @@ sub ValidElement($)
 {
 	my $e = shift;
 
-	ValidProperties($e);
+	ValidProperties($e,"ELEMENT");
 
 	if (util::has_property($e, "ptr")) {
 		fatal($e, el_name($e) . " : pidl does not support full NDR pointers yet\n");
@@ -186,7 +243,7 @@ sub ValidStruct($)
 {
 	my($struct) = shift;
 
-	ValidProperties($struct);
+	ValidProperties($struct,"STRUCT");
 
 	foreach my $e (@{$struct->{ELEMENTS}}) {
 		$e->{PARENT} = $struct;
@@ -200,7 +257,7 @@ sub ValidUnion($)
 {
 	my($union) = shift;
 
-	ValidProperties($union);
+	ValidProperties($union,"UNION");
 
 	if (util::has_property($union->{PARENT}, "nodiscriminant") and util::has_property($union->{PARENT}, "switch_type")) {
 		fatal($union->{PARENT}, $union->{PARENT}->{NAME} . ": switch_type() on union without discriminant");
@@ -235,7 +292,7 @@ sub ValidTypedef($)
 	my($typedef) = shift;
 	my $data = $typedef->{DATA};
 
-	ValidProperties($typedef);
+	ValidProperties($typedef,"TYPEDEF");
 
 	$data->{PARENT} = $typedef;
 
@@ -256,7 +313,7 @@ sub ValidFunction($)
 {
 	my($fn) = shift;
 
-	ValidProperties($fn);
+	ValidProperties($fn,"FUNCTION");
 
 	foreach my $e (@{$fn->{ELEMENTS}}) {
 		$e->{PARENT} = $fn;
@@ -274,7 +331,7 @@ sub ValidInterface($)
 	my($interface) = shift;
 	my($data) = $interface->{DATA};
 
-	ValidProperties($interface);
+	ValidProperties($interface,"INTERFACE");
 
 	if (util::has_property($interface, "pointer_default") && 
 		$interface->{PROPERTIES}->{pointer_default} eq "ptr") {
-- 
cgit