mirror of
https://github.com/Kitware/CMake.git
synced 2026-01-04 04:40:56 -06:00
773b36e5d4
Code extracted from:
http://public.kitware.com/KWSys.git
at commit 18c654114de3aa65429542f95308720bc68f9231 (master).
Upstream Shortlog
-----------------
Brad King (14):
37306a1c FStream: Quiet unused argument warning
15e90a3c Sort includes to stabilize include order w.r.t. clang-format
26509227 Copyright.txt: Add notice of copyright by contributors
fc42d3f2 Add temporary script to filter license notices
c41c1bc4 Simplify KWSys per-source license notices
1d4c0b4a Remove temporary script that filtered license notices
a4f5ef79 SystemInformation: Remove stray comment
8649a886 kwsysPrivate: Protect KWSYS_HEADER macro from clang-format
89b98af5 Configure clang-format for KWSys source tree
547dacad Add a script to run clang-format on the entire source tree
aa94be0c CONTRIBUTING: Add a section on coding style
6604c4b6 Empty commit at end of history preceding clang-format style transition
2b3e2b1c Tell Git to not export 'clang-format' infrastructure
18c65411 FStream: Include Configure.hxx before other headers
Kitware Robot (1):
6c973b46 Revise C++ coding style using clang-format
42 lines
959 B
Perl
Executable File
42 lines
959 B
Perl
Executable File
#!/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");
|
|
}
|