blob: d7f01691d846544ca2547f1bde61f838a4c329af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/perl
#
# Program: KWSys - Kitware System Library
# Module: $RCSfile$
#
# Copyright (c) Kitware, Inc., Insight Consortium. All rights reserved.
# See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
#
# This software is distributed WITHOUT ANY WARRANTY; without even
# the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the above copyright notices for more information.
#
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 !~ /^\#/) &&
($line =~ s/.*kwsys${name}_([A-Za-z0-9_]*).*/\1/) &&
($i{$line}++ < 1))
{
push(@lines, "$line");
if (length($line) > $max)
{
$max = length($line);
}
}
}
close(INFILE);
$width = $max + 13;
print sprintf("#define %-${width}s kwsys_ns(${name})\n", "kwsys${name}");
foreach $l (@lines)
{
print sprintf("#define %-${width}s kwsys_ns(${name}_$l)\n",
"kwsys${name}_$l");
}
print "\n";
print sprintf("# undef kwsys${name}\n");
foreach $l (@lines)
{
print sprintf("# undef kwsys${name}_$l\n");
}
|
