src/install+setup/libsmooth/makelangs.pl

   1 #!/usr/bin/perl
   2 #
   3 # $Id: makelangs.pl,v 1.4 2003/12/11 11:25:53 riddles Exp $
   4 #
   5 # Used to process lang_en.c and build the enum type from comments embeded
   6 # within said source file.
   7
   8 while (<>)
   9 {
  10         if (/\/\* (TR_[A-Z0-9_]*)/) {
  11                 print "\t$1,\n"; }
  12 }
  13 print "};\n";