1 files changed, 0 insertions, 38 deletions
diff --git a/render/makeenum b/render/makeenum
deleted file mode 100644
index 2b9ca6804..000000000
--- a/render/makeenum
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl -W
-# $Id: makeenum,v 1.2 2002/04/24 17:37:37 bursa Exp $
-
-$out = shift or die "usage: makeenum leafname";
-
-open H, ">$out.h" or die "open 'enum.h' failed";
-open C, ">$out.c" or die "open 'enum.c' failed";
-
-print C "#include \"$out.h\"\n\n";
-
-while (<>) {
-    chomp;
-    @enum = split;
-    $name = shift @enum;
-   
-    @uc_enum = map uc, @enum;
-    s/-/_/g foreach (@uc_enum);
-    $uc_name = uc $name;
-    
-    print H "extern const char * const ${name}_name[];\n";
-    print H "typedef enum {\n    ${uc_name}_";
-    print H join ",\n    ${uc_name}_", @uc_enum;
-    print H ",\n    ${uc_name}_UNKNOWN\n";
-    print H "} $name;\n";
-    print H "$name ${name}_parse(const char * const s);\n\n";
-    
-    print C "/**\n * $name\n */\n\n";
-    print C "const char * const ${name}_name[] = {\n    \"";
-    print C join "\",\n    \"", @enum;
-    print C "\"\n};\n\n";
-    print C "$name ${name}_parse(const char * const s)\n{\n";
-    foreach $x (@enum) {
-        $ux = uc $x;
-	$ux =~ s/-/_/g;
-        print C "    if (strcmp(s, \"$x\") == 0) return ${uc_name}_$ux;\n";
-    }
-    print C "    return ${uc_name}_UNKNOWN;\n}\n\n";
-}