- generate both the pull and push side

- fixed lots of bugs
(This used to be commit 96e269fefedd1e8541eae7ad5e3fb98df978c81b)

1 files changed, 30 insertions, 13 deletions

diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm
index 53e391eb42..1c8ad720bb 100644
--- a/source4/build/pidl/util.pm
+++ b/source4/build/pidl/util.pm
@@ -147,21 +147,24 @@ sub LoadStructure($)
 # see if a pidl property list contains a give property
 sub has_property($$)
 {
-    my($props) = shift;
-    my($p) = shift;
-
-    foreach my $d (@{$props}) {
-	if (ref($d) ne "HASH") {
-	    return 1, if ($d eq $p);
-	    return 1, if ($d eq "in,out" && ($p eq "in" || $p eq "out"));
-	} else {
-	    foreach my $k (keys %{$d}) {
-		return $d->{$k}, if ($k eq $p);
-	    }
+	my($props) = shift;
+	my($p) = shift;
+	
+	foreach my $d (@{$props}) {
+		if (ref($d) ne "HASH") {
+			if ($d eq $p) {
+				return 1;
+			}
+		} else {
+			foreach my $k (keys %{$d}) {
+				if ($k eq $p) {
+					return $d->{$k};
+				}
+			}
+		}
 	}
-    }
 
-    return 0;
+    return undef;
 }
 
 
@@ -181,6 +184,20 @@ sub is_scalar_type($)
     return 0;
 }
 
+sub is_builtin_type($)
+{
+    my($type) = shift;
+
+    return 1, if (is_scalar_type($type));
+    return 1, if ($type eq "unistr");
+    return 1, if ($type eq "security_descriptor");
+    return 1, if ($type eq "dom_sid");
+    return 1, if ($type eq "dom_sid2");
+    return 1, if ($type eq "policy_handle");
+
+    return 0;
+}
+
 
 1;