summaryrefslogtreecommitdiffstats
path: root/WebCore/css/makeprop.pl
diff options
context:
space:
mode:
Diffstat (limited to 'WebCore/css/makeprop.pl')
-rw-r--r--WebCore/css/makeprop.pl119
1 files changed, 119 insertions, 0 deletions
diff --git a/WebCore/css/makeprop.pl b/WebCore/css/makeprop.pl
new file mode 100644
index 0000000..bc979f9
--- /dev/null
+++ b/WebCore/css/makeprop.pl
@@ -0,0 +1,119 @@
+#! /usr/bin/perl
+#
+# This file is part of the WebKit project
+#
+# Copyright (C) 1999 Waldo Bastian (bastian@kde.org)
+# Copyright (C) 2007, 2008 Apple Inc. All rights reserved.
+# Copyright (C) 2008 Nokia Corporation and/or its subsidiary(-ies)
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Library General Public
+# License as published by the Free Software Foundation; either
+# version 2 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Library General Public License for more details.
+#
+# You should have received a copy of the GNU Library General Public License
+# along with this library; see the file COPYING.LIB. If not, write to
+# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+# Boston, MA 02110-1301, USA.
+use strict;
+use warnings;
+
+open NAMES, "<CSSPropertyNames.in" || die "Could not find CSSPropertyNames.in";
+my @names = ();
+while (<NAMES>) {
+ next if (m/#/);
+ chomp $_;
+ next if ($_ eq "");
+ 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 */
+#include \"CSSPropertyNames.h\"
+%}
+struct props {
+ const char* name;
+ int id;
+};
+%%
+EOF
+
+foreach my $name (@names) {
+ my $id = $name;
+ $id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
+ print GPERF $name . ", CSSProperty" . $id . "\n";
+}
+print GPERF "%%\n";
+close GPERF;
+
+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 */
+
+#ifndef CSSPropertyNames_h
+#define CSSPropertyNames_h
+
+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 << "EOF";
+
+const char* getPropertyName(CSSPropertyID);
+
+#endif
+EOF
+
+close HEADER;
+
+system("gperf -a -L ANSI-C -E -C -c -o -t --key-positions=\"*\" -NfindProp -Hhash_prop -Wwordlist_prop -D -s 2 CSSPropertyNames.gperf > CSSPropertyNames.cpp") == 0 || die "calling gperf failed: $?";
+
+open C, ">>CSSPropertyNames.cpp" || die "Could not open CSSPropertyNames.cpp for writing";
+print C "static const char * const propertyNameStrings[$num] = {\n";
+
+foreach my $name (@names) {
+ print C "\"$name\",\n";
+}
+
+print C << "EOF";
+};
+const char* getPropertyName(CSSPropertyID id)
+{
+ if (id < firstCSSProperty)
+ return 0;
+ int index = id - firstCSSProperty;
+ if (index >= numCSSProperties)
+ return 0;
+ return propertyNameStrings[index];
+}
+EOF
+
+close C;
+