diff options
| -rwxr-xr-x | Source/kwsys/kwsysHeaderDump.pl | 8 |
1 files 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 = <INFILE>)) { 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 = <INFILE>)) } } 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"; |