summaryrefslogtreecommitdiffstats
path: root/test/API/driver/kwsys/kwsysHeaderDump.pl
diff options
context:
space:
mode:
Diffstat (limited to 'test/API/driver/kwsys/kwsysHeaderDump.pl')
-rw-r--r--test/API/driver/kwsys/kwsysHeaderDump.pl41
1 files changed, 0 insertions, 41 deletions
diff --git a/test/API/driver/kwsys/kwsysHeaderDump.pl b/test/API/driver/kwsys/kwsysHeaderDump.pl
deleted file mode 100644
index e3391e7..0000000
--- a/test/API/driver/kwsys/kwsysHeaderDump.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/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");
-}