interface/create

   1 #!/usr/bin/perl
   2
   3 $count = 0;
   4
   5 foreach (@ARGV) {
   6     print "#define\tinterface_", $_, "\t\t", $count, "\n";
   7     $count ++;
   8 }
   9
  10 print "#ifdef USE_FUNCTABLE\n";
  11
  12 print "#define MAX_PROF_TABLE ", $count, "\n";
  13
  14 print "static char *func_table[] = {\n";
  15
  16 foreach (@ARGV) {
  17     print "\"", $_, "\",\n";
  18 }
  19
  20 print "};\n";
  21 print "#endif\n";
  22