Add back original PERL-based script under new name
This commit is contained in:
parent
181b96257c
commit
f1c570a5f1
|
@ -0,0 +1,22 @@
|
|||
#!/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";
|
||||
|
Loading…
Reference in New Issue