kolan/CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ENH: Renaming kwsys macro to kwsys_ns to work around borland preprocessor bug.

Browse Source
This commit is contained in:
Brad King 2004-05-10 13:15:45 -04:00
parent 914a9fb3b4
commit 5017fc66e5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/kwsys/kwsysHeaderDump.pl
View File

@ -23,7 +23,7 @@ open(INFILE, $ARGV[1]);
while (chomp ($line = <INFILE>)) while (chomp ($line = <INFILE>))
{ {
if (($line !~ /^\#/) && if (($line !~ /^\#/) &&
($line =~ s/.*kwsys${name}_([A-Za-z0-9_]*).*/\1/) && ($line =~ s/.*kwsys${name}_([A-Za-z0-9_]*).*/\1/) &&
($i{$line}++ < 1)) ($i{$line}++ < 1))
{ {
push(@lines, "$line"); push(@lines, "$line");
@ -34,12 +34,12 @@ while (chomp ($line = <INFILE>))
} }
} }
close(INFILE); close(INFILE);
$width = $max + 13; $width = $max + 13;
print sprintf("#define %-${width}s kwsys(${name})\n", "kwsys${name}"); print sprintf("#define %-${width}s kwsys_ns(${name})\n", "kwsys${name}");
foreach $l (@lines) foreach $l (@lines)
{ {
print sprintf("#define %-${width}s kwsys(${name}_$l)\n", print sprintf("#define %-${width}s kwsys_ns(${name}_$l)\n",
"kwsys${name}_$l"); "kwsys${name}_$l");
} }
print "\n"; print "\n";