Add back original PERL-based script under new name

This commit is contained in:
Martin Kroeker 2022-05-22 18:29:01 +02:00 committed by GitHub
parent 181b96257c
commit f1c570a5f1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 0 deletions

22
interface/create.pl Normal file
View File

@ -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";