23 lines
335 B
Perl
23 lines
335 B
Perl
#!/usr/bin/env 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";
|
|
|