7eff615151d3dd0e21e849d72f9ac94aff273045
[WebKit-https.git] / Source / WebCore / css / makeprop.pl
1 #! /usr/bin/perl
2 #
3 #   This file is part of the WebKit project
4 #
5 #   Copyright (C) 1999 Waldo Bastian (bastian@kde.org)
6 #   Copyright (C) 2007, 2008 Apple Inc. All rights reserved.
7 #   Copyright (C) 2008 Nokia Corporation and/or its subsidiary(-ies)
8 #   Copyright (C) 2010 Andras Becsi (abecsi@inf.u-szeged.hu), University of Szeged
9 #
10 #   This library is free software; you can redistribute it and/or
11 #   modify it under the terms of the GNU Library General Public
12 #   License as published by the Free Software Foundation; either
13 #   version 2 of the License, or (at your option) any later version.
14 #
15 #   This library is distributed in the hope that it will be useful,
16 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
17 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18 #   Library General Public License for more details.
19 #
20 #   You should have received a copy of the GNU Library General Public License
21 #   along with this library; see the file COPYING.LIB.  If not, write to
22 #   the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 #   Boston, MA 02110-1301, USA.
24 use Getopt::Long;
25 use preprocessor;
26 use strict;
27 use warnings;
28
29 my $defines;
30 my $preprocessor;
31 GetOptions('defines=s' => \$defines,
32            'preprocessor=s' => \$preprocessor);
33
34 my @NAMES = applyPreprocessor("CSSPropertyNames.in", $defines, $preprocessor);
35
36 my %namesHash;
37 my @duplicates = ();
38
39 my @names = ();
40 my @aliases = ();
41 foreach (@NAMES) {
42   next if (m/(^\s*$)/);
43   # Input may use a different EOL sequence than $/, so avoid chomp.
44   $_ =~ s/[\r\n]+$//g;
45   if (exists $namesHash{$_}) {
46     push @duplicates, $_;
47   } else {
48     $namesHash{$_} = 1;
49   }
50   if ($_ =~ /=/) {
51     push @aliases, $_;
52   } else {
53     push @names, $_;
54   }
55 }
56
57 if (@duplicates > 0) {
58     die 'Duplicate CSS property names: ', join(', ', @duplicates) . "\n";
59 }
60
61 open GPERF, ">CSSPropertyNames.gperf" || die "Could not open CSSPropertyNames.gperf for writing";
62 print GPERF << "EOF";
63 %{
64 /* This file is automatically generated from CSSPropertyNames.in by makeprop, do not edit */
65 #include "config.h"
66 #include \"CSSPropertyNames.h\"
67 #include \"HashTools.h\"
68 #include <string.h>
69
70 #include <wtf/ASCIICType.h>
71 #include <wtf/text/WTFString.h>
72
73 namespace WebCore {
74 %}
75 %struct-type
76 struct Property;
77 %omit-struct-type
78 %language=C++
79 %readonly-tables
80 %global-table
81 %compare-strncmp
82 %define class-name CSSPropertyNamesHash
83 %define lookup-function-name findPropertyImpl
84 %define hash-function-name propery_hash_function
85 %define word-array-name property_wordlist
86 %enum
87 %%
88 EOF
89
90 foreach my $name (@names) {
91   my $id = $name;
92   $id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
93   print GPERF $name . ", CSSProperty" . $id . "\n";
94 }
95
96 foreach my $alias (@aliases) {
97   $alias =~ /^([^\s]*)[\s]*=[\s]*([^\s]*)/;
98   my $name = $1;
99   my $id = $2;
100   $id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
101   print GPERF $name . ", CSSProperty" . $id . "\n";
102 }
103
104 print GPERF<< "EOF";
105 %%
106 const Property* findProperty(register const char* str, register unsigned int len)
107 {
108     return CSSPropertyNamesHash::findPropertyImpl(str, len);
109 }
110
111 const char* getPropertyName(CSSPropertyID id)
112 {
113     if (id < firstCSSProperty)
114         return 0;
115     int index = id - firstCSSProperty;
116     if (index >= numCSSProperties)
117         return 0;
118     return propertyNameStrings[index];
119 }
120
121 WTF::String getJSPropertyName(CSSPropertyID id)
122 {
123     char result[maxCSSPropertyNameLength + 1];
124     const char* cssPropertyName = getPropertyName(id);
125     const char* propertyNamePointer = cssPropertyName;
126     if (!propertyNamePointer)
127         return emptyString();
128
129     char* resultPointer = result;
130     while (char character = *propertyNamePointer++) {
131         if (character == '-') {
132             char nextCharacter = *propertyNamePointer++;
133             if (!nextCharacter)
134                 break;
135             character = (propertyNamePointer - 2 != cssPropertyName) ? toASCIIUpper(nextCharacter) : nextCharacter;
136         }
137         *resultPointer++ = character;
138     }
139     *resultPointer = '\\0';
140     return WTF::String(result);
141 }
142
143 } // namespace WebCore
144 EOF
145
146 open HEADER, ">CSSPropertyNames.h" || die "Could not open CSSPropertyNames.h for writing";
147 print HEADER << "EOF";
148 /* This file is automatically generated from CSSPropertyNames.in by makeprop, do not edit */
149
150 #ifndef CSSPropertyNames_h
151 #define CSSPropertyNames_h
152
153 #include <string.h>
154
155 namespace WTF {
156 class String;
157 }
158
159 namespace WebCore {
160
161 enum CSSPropertyID {
162     CSSPropertyInvalid = 0,
163 EOF
164
165 my $first = 1001;
166 my $i = 1001;
167 my $maxLen = 0;
168 foreach my $name (@names) {
169   my $id = $name;
170   $id =~ s/(^[^-])|-(.)/uc($1||$2)/ge;
171   print HEADER "    CSSProperty" . $id . " = " . $i . ",\n";
172   $i = $i + 1;
173   if (length($name) > $maxLen) {
174     $maxLen = length($name);
175   }
176 }
177 my $num = $i - $first;
178
179 print HEADER "};\n\n";
180 print HEADER "const int firstCSSProperty = $first;\n";
181 print HEADER "const int numCSSProperties = $num;\n";
182 print HEADER "const size_t maxCSSPropertyNameLength = $maxLen;\n";
183
184 print HEADER "const char* const propertyNameStrings[$num] = {\n";
185 foreach my $name (@names) {
186   print HEADER "\"$name\",\n";
187 }
188 print HEADER "};\n";
189
190 print HEADER << "EOF";
191
192 const char* getPropertyName(CSSPropertyID);
193 WTF::String getJSPropertyName(CSSPropertyID);
194
195 } // namespace WebCore
196
197 #endif // CSSPropertyNames_h
198
199 EOF
200
201 close HEADER;
202
203 system("gperf --key-positions=\"*\" -D -n -s 2 CSSPropertyNames.gperf > CSSPropertyNames.cpp") == 0 || die "calling gperf failed: $?";