From ddeadd1c02880367ad786b113d352a519f45ec73 Mon Sep 17 00:00:00 2001 From: John Mark Bell Date: Thu, 23 Jul 2009 23:05:34 +0000 Subject: Merge LibCSS port to trunk. svn path=/trunk/netsurf/; revision=8752 --- css/makeenum | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) delete mode 100755 css/makeenum (limited to 'css/makeenum') 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 -# - -$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 \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"; -} -- cgit v1.2.3