More improvements.
[sfrench/samba-autobuild/.git] / source4 / pidl / lib / Parse / Pidl / Samba4 / COM / Header.pm
index bc592e7f803eaa182d061e8ffcbe08f2cb84d05e..855798b70bb5c33924da030971bde27665a51319 100644 (file)
@@ -130,6 +130,13 @@ sub Parse($$)
        $res .= "#include \"librpc/gen_ndr/orpc.h\"\n" . 
                        "#include \"$ndr_header\"\n\n";
 
+       foreach (@{$idl})
+       {
+               if ($_->{TYPE} eq "INTERFACE" && has_property($_, "object")) {
+                       $res .="struct $_->{NAME};\n";
+               }
+       }
+
        foreach (@{$idl})
        {
                if ($_->{TYPE} eq "INTERFACE" && has_property($_, "object")) {