mirrors/netsurf
1
0
Fork 0
mirror of https://github.com/netsurf-browser/netsurf synced 2024-12-22 12:12:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

[project @ 2002-04-24 17:37:37 by bursa]

Browse Source 
Replace - with _ when generating enums.

svn path=/import/netsurf/; revision=5
This commit is contained in:
James Bursa 2002-04-24 17:37:37 +00:00
parent 82e853c3df
commit 91b9ffdbcb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
render/makeenum
View File

@ -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";