summaryrefslogtreecommitdiff
path: root/css/makeenum
diff options
context:
space:
mode:
Diffstat (limited to 'css/makeenum')
-rwxr-xr-xcss/makeenum46
1 files changed, 0 insertions, 46 deletions
diff --git a/css/makeenum b/css/makeenum
deleted file mode 100755
index 54c513d06..000000000
--- a/css/makeenum
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl -W
-#
-# This file is part of NetSurf, http://netsurf-browser.org/
-# Licensed under the GNU General Public License,
-# http://www.opensource.org/licenses/gpl-license
-# Copyright 2003 James Bursa <bursa@users.sourceforge.net>
-#
-
-$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 <strings.h>\n";
-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";
- print H ",\n ${uc_name}_NOT_SET\n";
- print H "} $name;\n";
- print H "$name ${name}_parse(const char * const s, int length);\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, int length)\n{\n";
- foreach $x (@enum) {
- $ux = uc $x;
- $ux =~ s/-/_/g;
- $len = length $x;
- print C " if (length == $len && strncasecmp(s, \"$x\", $len) == 0) return ${uc_name}_$ux;\n";
- }
- print C " return ${uc_name}_UNKNOWN;\n}\n\n";
-}