#!/usr/bin/perl $count = 0; foreach (@ARGV) { print "#define\tinterface_", $_, "\t\t", $count, "\n"; $count ++; } print "#ifdef USE_FUNCTABLE\n"; print "#define MAX_PROF_TABLE ", $count, "\n"; print "static char *func_table[] = {\n"; foreach (@ARGV) { print "\"", $_, "\",\n"; } print "};\n"; print "#endif\n";