svn commit: samba r3282 - in branches/SAMBA_4_0/source/build/pidl: .
tridge at samba.org
tridge at samba.org
Wed Oct 27 04:43:01 GMT 2004
Author: tridge
Date: 2004-10-27 04:43:01 +0000 (Wed, 27 Oct 2004)
New Revision: 3282
WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/branches/SAMBA_4_0/source/build/pidl&rev=3282&nolog=1
Log:
some C pre-processors don't like expressions like
uuid(1ff70682-0a51-30e8-076d-740be8cee98b) so we now accept
uuid("1ff70682-0a51-30e8-076d-740be8cee98b") in pidl, and
automagically add quotes only if needed
Modified:
branches/SAMBA_4_0/source/build/pidl/header.pm
branches/SAMBA_4_0/source/build/pidl/swig.pm
branches/SAMBA_4_0/source/build/pidl/util.pm
Changeset:
Modified: branches/SAMBA_4_0/source/build/pidl/header.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/header.pm 2004-10-27 04:33:36 UTC (rev 3281)
+++ branches/SAMBA_4_0/source/build/pidl/header.pm 2004-10-27 04:43:01 UTC (rev 3282)
@@ -280,7 +280,8 @@
if (defined $interface->{PROPERTIES}->{uuid}) {
my $name = uc $interface->{NAME};
- $res .= "#define DCERPC_$name\_UUID \"$interface->{PROPERTIES}->{uuid}\"\n";
+ $res .= "#define DCERPC_$name\_UUID " .
+ util::make_str($interface->{PROPERTIES}->{uuid}) . "\n";
if(!defined $interface->{PROPERTIES}->{version}) { $interface->{PROPERTIES}->{version} = "0.0"; }
$res .= "#define DCERPC_$name\_VERSION $interface->{PROPERTIES}->{version}\n";
Modified: branches/SAMBA_4_0/source/build/pidl/swig.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/swig.pm 2004-10-27 04:33:36 UTC (rev 3281)
+++ branches/SAMBA_4_0/source/build/pidl/swig.pm 2004-10-27 04:43:01 UTC (rev 3282)
@@ -662,7 +662,8 @@
if ($hdr->{PROPERTIES}{uuid}) {
my($name) = $hdr->{NAME};
- $result .= "#define DCERPC_" . uc($name) . "_UUID \"$hdr->{PROPERTIES}->{uuid}\"\n";
+ $result .= "#define DCERPC_" . uc($name) . "_UUID " .
+ util::make_str($hdr->{PROPERTIES}->{uuid}) . "\n";
$result .= "const int DCERPC_" . uc($name) . "_VERSION = " . $hdr->{PROPERTIES}->{version} . ";\n";
$result .= "#define DCERPC_" . uc($name) . "_NAME \"" . $name . "\"\n";
$result .= "\n";
Modified: branches/SAMBA_4_0/source/build/pidl/util.pm
===================================================================
--- branches/SAMBA_4_0/source/build/pidl/util.pm 2004-10-27 04:33:36 UTC (rev 3281)
+++ branches/SAMBA_4_0/source/build/pidl/util.pm 2004-10-27 04:43:01 UTC (rev 3282)
@@ -390,5 +390,15 @@
return 0;
}
+# return a "" quoted string, unless already quoted
+sub make_str($)
+{
+ my $str = shift;
+ if (substr($str, 0, 1) eq "\"") {
+ return $str;
+ }
+ return "\"" . $str . "\"";
+}
+
1;
More information about the samba-cvs
mailing list