Updates will be applied today, at 4 pm EDT (UTC-0400). No interruption, and site should remain available.

kwsysHeaderDump.pl 959 Bytes
Newer Older
1
#!/usr/bin/perl
2 3
# Distributed under the OSI-approved BSD 3-Clause License.  See accompanying
# file Copyright.txt or https://cmake.org/licensing#kwsys for details.
4 5 6 7 8 9 10 11 12 13 14 15 16

if ( $#ARGV+1 < 2 )
{
    print "Usage: ./kwsysHeaderDump.pl <name> <header>\n";
    exit(1);
}

$name = $ARGV[0];
$max = 0;
open(INFILE, $ARGV[1]);
while (chomp ($line = <INFILE>))
{
    if (($line !~ /^\#/) &&
17
        ($line =~ s/.*kwsys${name}_([A-Za-z0-9_]*).*/\1/) &&
18 19 20 21 22 23 24 25 26 27
        ($i{$line}++ < 1))
    {
        push(@lines, "$line");
        if (length($line) > $max)
        {
            $max = length($line);
        }
    }
}
close(INFILE);
28

29
$width = $max + 13;
30
print sprintf("#define %-${width}s kwsys_ns(${name})\n", "kwsys${name}");
31 32
foreach $l (@lines)
{
33
    print sprintf("#define %-${width}s kwsys_ns(${name}_$l)\n",
34 35 36 37 38 39 40 41
                  "kwsys${name}_$l");
}
print "\n";
print sprintf("# undef kwsys${name}\n");
foreach $l (@lines)
{
    print sprintf("# undef kwsys${name}_$l\n");
}