Add back original PERL-based script under new name

2022-05-22 18:29:01 +02:00 · 2022-05-22 18:29:01 +02:00 · f1c570a5f1
parent 181b96257c
commit f1c570a5f1
1 changed files with 22 additions and 0 deletions
--- a/interface/create.pl
+++ b/interface/create.pl
@ -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";
+