Revision 975c44654d2f992bab20f963a70f12fe6a63e1ba authored by KWSys Upstream on 09 June 2022, 18:19:13 UTC, committed by Brad King on 09 June 2022, 18:19:27 UTC
Code extracted from: https://gitlab.kitware.com/utils/kwsys.git at commit 9b65e88d077e023f5e4e22f31bd0970e4071eb5b (master). Upstream Shortlog ----------------- Saleem Abdulrasool (1): 0969597d SystemTools: add a clonefile optimization on macOS
1 parent 6b88084
kwsysHeaderDump.pl
#!/usr/bin/perl
# Distributed under the OSI-approved BSD 3-Clause License. See accompanying
# file Copyright.txt or https://cmake.org/licensing#kwsys for details.
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");
}
Computing file changes ...