From 5017fc66e5b0c466d1ddd747e3737a3c738e438c Mon Sep 17 00:00:00 2001 From: Brad King Date: Mon, 10 May 2004 13:15:45 -0400 Subject: ENH: Renaming kwsys macro to kwsys_ns to work around borland preprocessor bug. --- Source/kwsys/kwsysHeaderDump.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Source/kwsys/kwsysHeaderDump.pl b/Source/kwsys/kwsysHeaderDump.pl index 6a88f50..d7f0169 100755 --- a/Source/kwsys/kwsysHeaderDump.pl +++ b/Source/kwsys/kwsysHeaderDump.pl @@ -23,7 +23,7 @@ open(INFILE, $ARGV[1]); while (chomp ($line = )) { if (($line !~ /^\#/) && - ($line =~ s/.*kwsys${name}_([A-Za-z0-9_]*).*/\1/) && + ($line =~ s/.*kwsys${name}_([A-Za-z0-9_]*).*/\1/) && ($i{$line}++ < 1)) { push(@lines, "$line"); @@ -34,12 +34,12 @@ while (chomp ($line = )) } } close(INFILE); - + $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) { - print sprintf("#define %-${width}s kwsys(${name}_$l)\n", + print sprintf("#define %-${width}s kwsys_ns(${name}_$l)\n", "kwsys${name}_$l"); } print "\n"; -- cgit v0.12