2 files changed, 0 insertions, 90 deletions
diff --git a/rt/tools/genbuild.pl b/rt/tools/genbuild.pl
deleted file mode 100644
index 1acabc0..0000000
--- a/rt/tools/genbuild.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/usr/bin/env perl
-
-$comment="";
-
-print "#include <stdio.h>\n";
-print "#include <dlfcn.h>\n";
-print "#include <pthread.h>\n";
-print "#include <string.h>\n";
-print "#include \"plugin.h\"\n\n";
-
-print "int load_plugin_from_dl_(dlhandle_t dl, plugin_t* plug)\n";
-print "{\n";
-print "  void* ptr;\n";
-print "  int ret = 0;\n";
-print "\n";
-print "  const char** name = dlsym(dl, \"plugin_name\");\n";
-print "  memset(plug, 0, sizeof(*plug));\n";
-print "  if (name) {\n";
-print "    plug->plugin_name = *name;\n";
-print "  } else {\n";
-print "    plug->plugin_name = NULL;\n";
-print "  }\n";
-print "  plug->state = NULL;\n";
-print "  plug->library_handle = dl;\n";
-print "\n";
-while (<>) {
-  if (/^\s*EXPORT/) {
-    my $line = "$_";
-    while (not ($line =~ /;$/)) {
-      my $nextline = <STDIN>;
-      last unless defined $nextline;
-
-      $line="$line$nextline";
-    }
-    if ($line =~ /^\s*EXPORT\(\s*((?:\w|\s*\*\s*)+)\s*\(\*(\w+)\)\s*\((.*)\)\);/s) {
-      print "\n";
-      print "  ptr = dlsym(dl, \"$2\");\n";
-      print "  if (!ptr) {\n";
-      print "    fprintf(stderr, \"Plugin missing %s\\n\", \"$2\");\n";
-      print "    ret |= 1;\n";
-      print "  }\n";
-      print "  plug->$2 = ptr;\n";
-      $comment="";
-    }
-  }
-}
-print "\n  return ret;\n";
-print "}\n";
diff --git a/rt/tools/genintf.pl b/rt/tools/genintf.pl
deleted file mode 100644
index 794f966..0000000
--- a/rt/tools/genintf.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/env perl
-
-$comment="";
-
-print "#ifndef _PLUG_INTF\n";
-print "#define _PLUG_INTF\n";
-print "\n#include <stdint.h>\n";
-print "\n#include <plugin_types.h>\n";
-
-while (<STDIN>) {
-  if (/^\s*\/\*/) {
-    $_ =~ s/^\s*//;
-    $comment="$_";
-    next;
-  }
-
-  if (/^\s*\*/) {
-    $_ =~ s/^\s*/ /;
-    $comment="$comment$_";
-    next;
-  }
-
-  if (/^\s*EXPORT_INCLUDE\((.*)\)/) {
-    print "#include $1\n";
-  } elsif (/^\s*EXPORT/) {
-    my $line = "$_";
-    while (not ($line =~ /;$/)) {
-      my $nextline = <STDIN>;
-      last unless defined $nextline;
-
-      $line="$line$nextline";
-    }
-    if ($line =~ /^\s*EXPORT\(\s*((?:\w|\s*\*\s*)+)\s*\(\*(\w+)\)\s*\((.*)\)\);/s) {
-      print "$comment";
-      print "$1 $2($3);\n\n";
-      $comment="";
-    } elsif ($line =~ /^\s*EXPORT\((.*)\);/s) {
-      print "$1\n";
-    }
-  }
-}
-print "#endif /* _PLUG_INTF */\n";