diff options
Diffstat (limited to 'source4/build/pidl/com_header.pm')
| -rw-r--r-- | source4/build/pidl/com_header.pm | 8 |
1 files changed, 7 insertions, 1 deletions
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($) |