From 9c6ad1f762a07082156673dc1bc67e171fe96251 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Mon, 21 Feb 2005 20:51:26 +0000
Subject: r5492: Update example coclass, autogenerate some parts. (This used to
 be commit 3c31cbaac0cd916e6af49bfd2260bc3b1a75b677)

---
 source4/build/pidl/com_header.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'source4/build')

diff --git a/source4/build/pidl/com_header.pm b/source4/build/pidl/com_header.pm
index b0523c935a..18df78f90d 100644
--- a/source4/build/pidl/com_header.pm
+++ b/source4/build/pidl/com_header.pm
@@ -106,7 +106,13 @@ sub ParseInterface($)
 sub ParseCoClass($)
 {
 	my $c = shift;
-	return "#define CLSID_$c->{NAME} $c->{PROPERTIES}->{uuid}\n\n";
+	my $res = "";
+	$res .= "#define CLSID_" . uc($c->{NAME}) . " $c->{PROPERTIES}->{uuid}\n";
+	if (util::has_property($c, "progid")) {
+		$res .= "#define PROGID_" . uc($c->{NAME}) . " $c->{PROPERTIES}->{progid}\n";
+	}
+	$res .= "\n";
+	return $res;
 }
 
 sub Parse($)
-- 
cgit