diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2005-02-21 20:51:26 +0000 |
|---|---|---|
| committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 13:10:50 -0500 |
| commit | 9c6ad1f762a07082156673dc1bc67e171fe96251 (patch) | |
| tree | 186caeea86b10aac6dd1216788a374fb8a7e18eb /source4/build/pidl/com_header.pm | |
| parent | 4d10f2a86a4d44960b0c5590da988483c672cfba (diff) | |
| download | samba-9c6ad1f762a07082156673dc1bc67e171fe96251.tar.gz samba-9c6ad1f762a07082156673dc1bc67e171fe96251.tar.bz2 samba-9c6ad1f762a07082156673dc1bc67e171fe96251.zip | |
r5492: Update example coclass, autogenerate some parts.
(This used to be commit 3c31cbaac0cd916e6af49bfd2260bc3b1a75b677)
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($) |