From 30be012bfdc9c9139fb573232ccb28ec74a8bfd2 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Fri, 12 Sep 2008 13:58:40 +0200
Subject: Cope with struct renames in DCE/RPC and NDR libraries.

---
 source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to '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 f8ba4fc18a..bc592e7f80 100644
--- 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")) {
-- 
cgit