summaryrefslogtreecommitdiff
path: root/source4/build/pidl/validator.pm
diff options
context:
space:
mode:
Diffstat (limited to 'source4/build/pidl/validator.pm')
-rw-r--r--source4/build/pidl/validator.pm171
1 files 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") {