use strict;
use warnings;
open NAMES, "<CSSPropertyNames.in" || die "Could not find CSSPropertyNames.in";
my @names = ();
my @aliases = ();
while (<NAMES>) {
next if (m/(^ $_ =~ s/[\r\n]+$//g;
if ($_ =~ /=/) {
push @aliases, $_;
} else {
push @names, $_;
}
}
close(NAMES);
open GPERF, ">CSSPropertyNames.gperf" || die "Could not open CSSPropertyNames.gperf for writing";
print GPERF << "EOF";
%{
/* This file is automatically generated from CSSPropertyNames.in by makeprop, do not edit */
namespace WebCore {
%}
%struct-type
struct Property;
%omit-struct-type
%language=C++
%readonly-tables
%global-table
%compare-strncmp
%define class-name CSSPropertyNamesHash
%define lookup-function-name findPropertyImpl
%define hash-function-name propery_hash_function
%define word-array-name property_wordlist
%enum
%%
EOF
foreach my $name (@names) {
my $id = $name;
$id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
print GPERF $name . ", CSSProperty" . $id . "\n";
}
foreach my $alias (@aliases) {
$alias =~ /^([^\s]*)[\s]*=[\s]*([^\s]*)/;
my $name = $1;
my $id = $2;
$id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
print GPERF $name . ", CSSProperty" . $id . "\n";
}
print GPERF<< "EOF";
%%
const Property* findProperty(register const char* str, register unsigned int len)
{
return CSSPropertyNamesHash::findPropertyImpl(str, len);
}
const char* getPropertyName(CSSPropertyID id)
{
if (id < firstCSSProperty)
return 0;
int index = id - firstCSSProperty;
if (index >= numCSSProperties)
return 0;
return propertyNameStrings[index];
}
} // namespace WebCore
EOF
open HEADER, ">CSSPropertyNames.h" || die "Could not open CSSPropertyNames.h for writing";
print HEADER << "EOF";
/* This file is automatically generated from CSSPropertyNames.in by makeprop, do not edit */
namespace WebCore {
enum CSSPropertyID {
CSSPropertyInvalid = 0,
EOF
my $first = 1001;
my $i = 1001;
my $maxLen = 0;
foreach my $name (@names) {
my $id = $name;
$id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
print HEADER " CSSProperty" . $id . " = " . $i . ",\n";
$i = $i + 1;
if (length($name) > $maxLen) {
$maxLen = length($name);
}
}
my $num = $i - $first;
print HEADER "};\n\n";
print HEADER "const int firstCSSProperty = $first;\n";
print HEADER "const int numCSSProperties = $num;\n";
print HEADER "const size_t maxCSSPropertyNameLength = $maxLen;\n";
print HEADER "const char* const propertyNameStrings[$num] = {\n";
foreach my $name (@names) {
print HEADER "\"$name\",\n";
}
print HEADER "};\n";
print HEADER << "EOF";
const char* getPropertyName(CSSPropertyID);
} // namespace WebCore
EOF
close HEADER;
system("gperf --key-positions=\"*\" -D -n -s 2 CSSPropertyNames.gperf > CSSPropertyNames.cpp") == 0 || die "calling gperf failed: $?";