summaryrefslogtreecommitdiff
path: root/source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm
diff options
context:
space:
mode:
authorJelmer Vernooij <jelmer@samba.org>2008-09-12 13:58:40 +0200
committerJelmer Vernooij <jelmer@samba.org>2008-09-15 17:39:42 +0200
commit30be012bfdc9c9139fb573232ccb28ec74a8bfd2 (patch)
tree08dbabe8675c882f59684eb510d62e0699b3d879 /source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm
parentdf06b36b46d5feb627aea253587c4716cbbef6d5 (diff)
downloadsamba-30be012bfdc9c9139fb573232ccb28ec74a8bfd2.tar.gz
samba-30be012bfdc9c9139fb573232ccb28ec74a8bfd2.tar.bz2
samba-30be012bfdc9c9139fb573232ccb28ec74a8bfd2.zip
Cope with struct renames in DCE/RPC and NDR libraries.
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm')
-rw-r--r--source4/pidl/lib/Parse/Pidl/Samba4/COM/Header.pm7
1 files changed, 6 insertions, 1 deletions
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")) {