use strict;
use warnings;
open NAMES, "<CSSValueKeywords.in" || die "Could not open CSSValueKeywords.in";
my @names = ();
while (<NAMES>) {
next if (m/ chomp $_;
next if ($_ eq "");
push @names, $_;
}
close(NAMES);
open GPERF, ">CSSValueKeywords.gperf" || die "Could not open CSSValueKeywords.gperf for writing";
print GPERF << "EOF";
%{
/* This file is automatically generated from CSSValueKeywords.in by makevalues, do not edit */
%}
struct css_value {
const char* name;
int id;
};
%%
EOF
foreach my $name (@names) {
my $id = $name;
$id =~ s/-/_/g;
print GPERF $name . ", CSS_VAL_" . uc($id) . "\n";
}
print GPERF "%%\n";
close GPERF;
open HEADER, ">CSSValueKeywords.h" || die "Could not open CSSValueKeywords.h for writing";
print HEADER << "EOF";
/* This file is automatically generated from CSSValueKeywords.in by makevalues, do not edit */
WebCore::String getValueName(unsigned short id);
EOF
my $i = 1;
my $maxLen = 0;
foreach my $name (@names) {
my $id = $name;
$id =~ s/-/_/g;
print HEADER "#define CSS_VAL_" . uc($id) . " " . $i . "\n";
$i = $i + 1;
if (length($name) > $maxLen) {
$maxLen = length($name);
}
}
print HEADER "#define CSS_VAL_TOTAL " . $i . "\n";
print HEADER "#endif\n";
close HEADER;
system("gperf -L ANSI-C -E -C -n -o -t --key-positions=\"*\" -NfindValue -Hhash_val -Wwordlist_value -D CSSValueKeywords.gperf > CSSValueKeywords.c");
open C, ">>CSSValueKeywords.c" || die "Could not open CSSValueKeywords.c for writing";
print C "static const char * const valueList[] = {\n";
print C "\"\",\n";
foreach my $name (@names) {
print C "\"" . $name . "\", \n";
}
print C << "EOF";
0
};
String getValueName(unsigned short id)
{
if (id >= CSS_VAL_TOTAL || id <= 0)
return String();
return String(valueList[id]);
}
EOF
close C;