From f1c570a5f1657622387aef002709aec2ee92c399 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 22 May 2022 18:29:01 +0200
Subject: [PATCH] Add back original PERL-based script under new name

---
 interface/create.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 interface/create.pl

diff --git a/interface/create.pl b/interface/create.pl
new file mode 100644
index 0000000..0b9cefa
--- /dev/null
+++ 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";
+
-- 
2.7.4