CMakeLua/Source/kwsys/kwsysHeaderDump.pl

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