Cope with struct renames in DCE/RPC and NDR libraries.

[samba.git] / source4 / pidl / lib / Parse / Pidl / Samba4 / COM / Header.pm

diff --git a/source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm b/source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm
index f8ba4fc18a92c022bf4f5c417d126b701d34db4a..bc592e7f803eaa182d061e8ffcbe08f2cb84d05e 100644 (file)
--- a/source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm
+++ b/source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm
@@ -78,6 +78,9 @@ sub ParseInterface($)
        my $if = shift;
        my $res;
 
+       $res .= "\n#ifndef _$if->{NAME}_\n";
+       $res .= "#define _$if->{NAME}_\n";
+
        $res .="\n\n/* $if->{NAME} */\n";
 
        $res .="#define COM_" . uc($if->{NAME}) . "_UUID $if->{PROPERTIES}->{uuid}\n\n";
@@ -102,12 +105,14 @@ sub ParseInterface($)
                $res .="\n";
        }
 
+       $res .= "#endif\n";
+
        return $res;
 }
 
 sub ParseCoClass($)
 {
-       my $c = shift;
+       my ($c) = @_;
        my $res = "";
        $res .= "#define CLSID_" . uc($c->{NAME}) . " $c->{PROPERTIES}->{uuid}\n";
        if (has_property($c, "progid")) {