diff options
Diffstat (limited to 'css/makeenum')
-rwxr-xr-x | css/makeenum | 46 |
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"; -} |