From 91b9ffdbcb954123ed74d65018f13242c05a478e Mon Sep 17 00:00:00 2001 From: James Bursa Date: Wed, 24 Apr 2002 17:37:37 +0000 Subject: [project @ 2002-04-24 17:37:37 by bursa] Replace - with _ when generating enums. svn path=/import/netsurf/; revision=5 --- render/makeenum | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'render/makeenum') diff --git a/render/makeenum b/render/makeenum index 57f3375d1..2b9ca6804 100644 --- a/render/makeenum +++ b/render/makeenum @@ -1,5 +1,5 @@ #!/usr/bin/perl -W -# $Id: makeenum,v 1.1.1.1 2002/04/22 09:24:34 bursa Exp $ +# $Id: makeenum,v 1.2 2002/04/24 17:37:37 bursa Exp $ $out = shift or die "usage: makeenum leafname"; @@ -12,8 +12,9 @@ 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"; @@ -30,6 +31,7 @@ while (<>) { 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"; -- cgit v1.2.3