Reviewed by Sam.
[WebKit-https.git] / WebCore / bindings / scripts / CodeGeneratorJS.pm
1 #
2 # Copyright (C) 2005, 2006, 2007 Nikolas Zimmermann <zimmermann@kde.org>
3 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
4 # Copyright (C) 2006, 2007 Samuel Weinig <sam@webkit.org>
5 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org>
6 # Copyright (C) 2006, 2007 Apple Inc. All rights reserved.
7 #
8 # This library is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU Library General Public
10 # License as published by the Free Software Foundation; either
11 # version 2 of the License, or (at your option) any later version.
12 #
13 # This library is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16 # Library General Public License for more details.
17 #
18 # You should have received a copy of the GNU Library General Public License
19 # aint with this library; see the file COPYING.LIB.  If not, write to
20 # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 # Boston, MA 02110-1301, USA.
22
23 package CodeGeneratorJS;
24
25 use File::stat;
26
27 my $module = "";
28 my $outputDir = "";
29
30 my @headerContent = ();
31 my @implContentHeader = ();
32 my @implContent = ();
33 my %implIncludes = ();
34
35 # Default .h template
36 my $headerTemplate = << "EOF";
37 /*
38     This file is part of the WebKit open source project.
39     This file has been generated by generate-bindings.pl. DO NOT MODIFY!
40
41     This library is free software; you can redistribute it and/or
42     modify it under the terms of the GNU Library General Public
43     License as published by the Free Software Foundation; either
44     version 2 of the License, or (at your option) any later version.
45
46     This library is distributed in the hope that it will be useful,
47     but WITHOUT ANY WARRANTY; without even the implied warranty of
48     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
49     Library General Public License for more details.
50
51     You should have received a copy of the GNU Library General Public License
52     along with this library; see the file COPYING.LIB.  If not, write to
53     the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
54     Boston, MA 02110-1301, USA.
55 */
56 EOF
57
58 # Default constructor
59 sub new
60 {
61     my $object = shift;
62     my $reference = { };
63
64     $codeGenerator = shift;
65     $outputDir = shift;
66
67     bless($reference, $object);
68     return $reference;
69 }
70
71 sub finish
72 {
73     my $object = shift;
74
75     # Commit changes!
76     $object->WriteData();
77 }
78
79 sub leftShift($$) {
80     my ($value, $distance) = @_;
81     return (($value << $distance) & 0xFFFFFFFF);
82 }
83
84 # Uppercase the first letter, while respecting WebKit style guidelines. 
85 # E.g., xmlEncoding becomes XMLEncoding, but xmlllang becomes Xmllang.
86 sub WK_ucfirst
87 {
88     my $param = shift;
89     my $ret = ucfirst($param);
90     $ret =~ s/Xml/XML/ if $ret =~ /^Xml[^a-z]/;
91     return $ret;
92 }
93
94 # Params: 'domClass' struct
95 sub GenerateInterface
96 {
97     my $object = shift;
98     my $dataNode = shift;
99     my $defines = shift;
100
101     # Start actual generation
102     $object->GenerateHeader($dataNode);
103     $object->GenerateImplementation($dataNode);
104
105     my $name = $dataNode->name;
106
107     # Open files for writing
108     my $headerFileName = "$outputDir/JS$name.h";
109     my $implFileName = "$outputDir/JS$name.cpp";
110
111     open($IMPL, ">$implFileName") || die "Couldn't open file $implFileName";
112     open($HEADER, ">$headerFileName") || die "Couldn't open file $headerFileName";
113 }
114
115 # Params: 'idlDocument' struct
116 sub GenerateModule
117 {
118     my $object = shift;
119     my $dataNode = shift;
120
121     $module = $dataNode->module;
122 }
123
124 sub GetParentClassName
125 {
126     my $dataNode = shift;
127
128     return $dataNode->extendedAttributes->{"LegacyParent"} if $dataNode->extendedAttributes->{"LegacyParent"};
129     return "KJS::DOMObject" if @{$dataNode->parents} eq 0;
130     return "JS" . $codeGenerator->StripModule($dataNode->parents(0));
131 }
132
133 sub GetLegacyHeaderIncludes
134 {
135     my $legacyParent = shift;
136
137     return "#include \"JSHTMLInputElementBase.h\"\n\n" if $legacyParent eq "JSHTMLInputElementBase";
138     return "#include \"kjs_window.h\"\n\n" if $legacyParent eq "KJS::Window";
139     return "#include \"kjs_events.h\"\n\n" if $module eq "events";
140     return "#include \"kjs_css.h\"\n\n" if $module eq "css";
141     return "#include \"kjs_html.h\"\n\n" if $module eq "html";
142
143     die "Don't know what headers to include for module $module";
144 }
145
146 sub AvoidInclusionOfType
147 {
148     my $type = shift;
149
150     # Special case: SVGRect.h / SVGPoint.h / SVGNumber.h / SVGMatrix.h do not exist.
151     return 1 if $type eq "SVGRect" or $type eq "SVGPoint" or $type eq "SVGNumber" or $type eq "SVGMatrix";
152     return 0;
153 }
154
155 sub UsesManualToJSImplementation
156 {
157     my $type = shift;
158
159     return 1 if $type eq "Node" or $type eq "Document" or $type eq "HTMLCollection" or $type eq "SVGPathSeg" or $type eq "StyleSheet" or $type eq "CSSRule" or $type eq "CSSValue" or $type eq "Event";
160     return 0;
161 }
162
163 sub IndexGetterReturnsStrings
164 {
165     my $type = shift;
166
167     return 1 if $type eq "CSSStyleDeclaration" or $type eq "MediaList";
168     return 0;
169 }
170
171 sub CreateSVGContextInterfaceName
172 {
173     my $type = shift;
174
175     return $type if $codeGenerator->IsSVGAnimatedType($type);
176     return "SVGPathSeg" if $type =~ /^SVGPathSeg/ and $type ne "SVGPathSegList";
177
178     return "";
179 }
180
181 sub AddIncludesForType
182 {
183     my $type = $codeGenerator->StripModule(shift);
184
185     # When we're finished with the one-file-per-class
186     # reorganization, we won't need these special cases.
187     if ($codeGenerator->IsPrimitiveType($type) or AvoidInclusionOfType($type)
188         or $type eq "DOMString" or $type eq "DOMObject" or $type eq "RGBColor") {
189     } elsif ($type =~ /SVGPathSeg/) {
190         $joinedName = $type;
191         $joinedName =~ s/Abs|Rel//;
192         $implIncludes{"${joinedName}.h"} = 1;
193     } elsif ($type eq "XPathNSResolver") {
194         $implIncludes{"JSXPathNSResolver.h"} = 1;
195         $implIncludes{"JSCustomXPathNSResolver.h"} = 1;
196     } else {
197         # default, include the same named file
198         $implIncludes{"${type}.h"} = 1;
199     }
200
201     # additional includes (things needed to compile the bindings but not the header)
202
203     if ($type eq "CanvasRenderingContext2D") {
204         $implIncludes{"CanvasGradient.h"} = 1;
205         $implIncludes{"CanvasPattern.h"} = 1;
206         $implIncludes{"CanvasStyle.h"} = 1;
207     }
208
209     if ($type eq "CanvasGradient" or $type eq "XPathNSResolver") {
210         $implIncludes{"PlatformString.h"} = 1;
211     }
212 }
213
214 sub AddIncludesForSVGAnimatedType
215 {
216     my $type = shift;
217     $type =~ s/SVGAnimated//;
218
219     if ($type eq "Point" or $type eq "Rect") {
220         $implIncludes{"Float$type.h"} = 1;
221     } elsif ($type eq "String") {
222         $implIncludes{"PlatformString.h"} = 1;
223     }
224 }
225
226 sub AddClassForwardIfNeeded
227 {
228     my $implClassName = shift;
229
230     # SVGAnimatedLength/Number/etc.. are typedefs to SVGAnimtatedTemplate, so don't use class forwards for them!
231     push(@headerContent, "class $implClassName;\n\n") unless $codeGenerator->IsSVGAnimatedType($implClassName);
232 }
233
234 sub IsSVGTypeNeedingContextParameter
235 {
236     my $implClassName = shift;
237
238     if ($implClassName =~ /SVG/ and not $implClassName =~ /Element/) {
239         return 1 unless $implClassName =~ /SVGPaint/ or $implClassName =~ /SVGColor/ or $implClassName =~ /SVGDocument/;
240     }
241
242     return 0;
243 }
244
245 sub HashValueForClassAndName
246 {
247     my $class = shift;
248     my $name = shift;
249
250     # SVG Filter enums live in WebCore namespace (platform/graphics/)
251     if ($class =~ /^SVGFE*/ or $class =~ /^SVGComponentTransferFunctionElement$/) {
252         return "WebCore::$name";
253     }
254
255     return "${class}::$name";
256 }
257
258 sub GenerateHeader
259 {
260     my $object = shift;
261     my $dataNode = shift;
262
263     my $interfaceName = $dataNode->name;
264     my $className = "JS$interfaceName";
265     my $implClassName = $interfaceName;
266
267     # We only support multiple parents with SVG (for now).
268     if (@{$dataNode->parents} > 1) {
269         die "A class can't have more than one parent" unless $interfaceName =~ /SVG/;
270         $codeGenerator->AddMethodsConstantsAndAttributesFromParentClasses($dataNode);
271     }
272
273     my $hasLegacyParent = $dataNode->extendedAttributes->{"LegacyParent"};
274     my $hasRealParent = @{$dataNode->parents} > 0;
275     my $hasParent = $hasLegacyParent || $hasRealParent;
276     my $parentClassName = GetParentClassName($dataNode);
277     my $conditional = $dataNode->extendedAttributes->{"Conditional"};
278
279     # - Add default header template
280     @headerContent = split("\r", $headerTemplate);
281
282     # - Add header protection
283     push(@headerContent, "\n#ifndef $className" . "_H");
284     push(@headerContent, "\n#define $className" . "_H\n\n");
285
286     my $conditionalString;
287     if ($conditional) {
288         $conditionalString = "ENABLE(" . join(") && ENABLE(", split(/&/, $conditional)) . ")";
289         push(@headerContent, "\n#if ${conditionalString}\n\n");
290     }
291
292     if (exists $dataNode->extendedAttributes->{"LegacyParent"}) {
293         push(@headerContent, GetLegacyHeaderIncludes($dataNode->extendedAttributes->{"LegacyParent"}));
294     } else {
295         if ($hasParent) {
296             push(@headerContent, "#include \"$parentClassName.h\"\n");
297         } else {
298             push(@headerContent, "#include \"kjs_binding.h\"\n");
299         }
300     }
301
302     # Get correct pass/store types respecting PODType flag
303     my $podType = $dataNode->extendedAttributes->{"PODType"};
304     my $passType = $podType ? "JSSVGPODTypeWrapper<$podType>*" : "$implClassName*";
305     push(@headerContent, "#include \"$podType.h\"\n") if $podType and $podType ne "float";
306
307     push(@headerContent, "#include \"JSSVGPODTypeWrapper.h\"\n") if $podType;
308
309     my $numConstants = @{$dataNode->constants};
310     my $numAttributes = @{$dataNode->attributes};
311     my $numFunctions = @{$dataNode->functions};
312
313     push(@headerContent, "\nnamespace WebCore {\n\n");
314
315     # Implementation class forward declaration
316     AddClassForwardIfNeeded($implClassName) unless $podType;
317
318     # Class declaration
319     push(@headerContent, "class $className : public $parentClassName {\n");
320     push(@headerContent, "public:\n");
321
322     # Constructor
323     if ($dataNode->extendedAttributes->{"DoNotCache"}) {
324         push(@headerContent, "    $className($passType);\n");
325     } else {
326         if (IsSVGTypeNeedingContextParameter($implClassName)) {
327             push(@headerContent, "    $className(KJS::ExecState*, $passType, SVGElement* context);\n");
328         } else {
329             push(@headerContent, "    $className(KJS::ExecState*, $passType);\n");
330         }
331     }
332
333     # Destructor
334     if (!$hasParent or $interfaceName eq "Document") {
335         push(@headerContent, "    virtual ~$className();\n");
336     }
337
338     # Getters
339     if ($numAttributes > 0 || $dataNode->extendedAttributes->{"GenerateConstructor"}) {
340         push(@headerContent, "    virtual bool getOwnPropertySlot(KJS::ExecState*, const KJS::Identifier&, KJS::PropertySlot&);\n");
341         push(@headerContent, "    KJS::JSValue* getValueProperty(KJS::ExecState*, int token) const;\n");
342         if ($dataNode->extendedAttributes->{"CustomGetOwnPropertySlot"}) {
343             push(@headerContent, "    bool customGetOwnPropertySlot(KJS::ExecState*, const KJS::Identifier&, KJS::PropertySlot&);\n");
344         }
345     }
346
347     # Check if we have any writable properties
348     my $hasReadWriteProperties = 0;
349     foreach (@{$dataNode->attributes}) {
350         if ($_->type !~ /^readonly\ attribute$/) {
351             $hasReadWriteProperties = 1;
352         }
353     }
354
355     if ($hasReadWriteProperties) {
356         push(@headerContent, "    virtual void put(KJS::ExecState*, const KJS::Identifier&, KJS::JSValue*, int attr = KJS::None);\n");
357         push(@headerContent, "    void putValueProperty(KJS::ExecState*, int, KJS::JSValue*, int attr);\n");
358         if ($dataNode->extendedAttributes->{"CustomPutFunction"}) {
359             push(@headerContent, "    bool customPut(KJS::ExecState*, const KJS::Identifier&, KJS::JSValue*, int attr);\n");
360         }
361     }
362
363     # Class info
364     push(@headerContent, "    virtual const KJS::ClassInfo* classInfo() const { return &info; }\n");
365     push(@headerContent, "    static const KJS::ClassInfo info;\n\n");
366
367     # Custom mark function
368     if ($dataNode->extendedAttributes->{"CustomMarkFunction"}) {
369         push(@headerContent, "    virtual void mark();\n\n");
370     }
371
372     # Custom pushEventHandlerScope function
373     if ($dataNode->extendedAttributes->{"CustomPushEventHandlerScope"}) {
374         push(@headerContent, "    virtual void pushEventHandlerScope(KJS::ExecState*, KJS::ScopeChain&) const;\n\n");
375     }
376
377     # Custom call functions
378     if ($dataNode->extendedAttributes->{"CustomCall"}) {
379         push(@headerContent, "    virtual KJS::JSValue* callAsFunction(KJS::ExecState*, KJS::JSObject*, const KJS::List&);\n");
380         push(@headerContent, "    virtual bool implementsCall() const;\n\n");
381     }
382
383     # Constructor object getter
384     if ($dataNode->extendedAttributes->{"GenerateConstructor"}) {
385         push(@headerContent, "    static KJS::JSValue* getConstructor(KJS::ExecState*);\n");
386     }
387
388     my $numCustomFunctions = 0;
389     my $numCustomAttributes = 0;
390
391     # Attribute and function enums
392     my $hasAttrEnum = ($numAttributes > 0) || $dataNode->extendedAttributes->{"GenerateConstructor"};
393     push(@headerContent, "    enum {\n") if ($hasAttrEnum);
394
395     if ($numAttributes > 0) {
396         push(@headerContent, "        // Attributes\n        ");
397
398         my $i = -1;
399         foreach (@{$dataNode->attributes}) {
400             my $attribute = $_;
401
402             $numCustomAttributes++ if $attribute->signature->extendedAttributes->{"Custom"};
403             $numCustomAttributes++ if $attribute->signature->extendedAttributes->{"CustomGetter"};
404             $numCustomAttributes++ if $attribute->signature->extendedAttributes->{"CustomSetter"};
405
406             $i++;
407             if ((($i % 4) eq 0) and ($i ne 0)) {
408                 push(@headerContent, "\n        ");
409             }
410
411             my $value = $attribute->signature->type =~ /Constructor$/
412                       ? $attribute->signature->name . "ConstructorAttrNum"
413                       : WK_ucfirst($attribute->signature->name) . "AttrNum";
414             $value .= ", " if (($i < $numAttributes - 1) or (($i eq $numAttributes - 1) and (($numFunctions ne 0) or $dataNode->extendedAttributes->{"GenerateConstructor"})));
415             push(@headerContent, $value);
416         }
417     }
418
419     if ($dataNode->extendedAttributes->{"GenerateConstructor"}) {
420         push(@headerContent, "\n\n") if $numAttributes > 0;
421         push(@headerContent, "        // The Constructor Attribute\n");
422         push(@headerContent, "        ConstructorAttrNum");
423     }
424
425     push(@headerContent, "\n    };\n") if ($hasAttrEnum);
426
427     if ($numCustomAttributes > 0) {
428         push(@headerContent, "\n    // Custom attributes\n");
429
430         foreach my $attribute (@{$dataNode->attributes}) {
431             if ($attribute->signature->extendedAttributes->{"Custom"}) {
432                 push(@headerContent, "    KJS::JSValue* " . $attribute->signature->name . "(KJS::ExecState*) const;\n");
433                 if ($attribute->type !~ /^readonly/) {
434                     push(@headerContent, "    void set" . WK_ucfirst($attribute->signature->name) . "(KJS::ExecState*, KJS::JSValue*);\n");
435                 }
436             } elsif ($attribute->signature->extendedAttributes->{"CustomGetter"}) {
437                 push(@headerContent, "    KJS::JSValue* " . $attribute->signature->name . "(KJS::ExecState*) const;\n");
438             } elsif ($attribute->signature->extendedAttributes->{"CustomSetter"}) {
439                 if ($attribute->type !~ /^readonly/) {
440                     push(@headerContent, "    void set" . WK_ucfirst($attribute->signature->name) . "(KJS::ExecState*, KJS::JSValue*);\n");
441                 }
442             }
443         }
444     }
445
446     foreach my $function (@{$dataNode->functions}) {
447         $numCustomFunctions++ if $function->signature->extendedAttributes->{"Custom"};
448     }
449
450     if ($numCustomFunctions > 0) {
451         push(@headerContent, "\n    // Custom functions\n");
452         foreach my $function (@{$dataNode->functions}) {
453             if ($function->signature->extendedAttributes->{"Custom"}) {
454                 push(@headerContent, "    KJS::JSValue* " . $function->signature->name . "(KJS::ExecState*, const KJS::List&);\n");
455             }
456         }
457     }
458
459     # Index setter
460     if ($dataNode->extendedAttributes->{"HasCustomIndexSetter"}) {
461         push(@headerContent, "    void indexSetter(KJS::ExecState*, unsigned index, KJS::JSValue*, int attr);\n");
462     }
463
464     if (!$hasParent) {
465         if ($podType) {
466             push(@headerContent, "    JSSVGPODTypeWrapper<$podType>* impl() const { return m_impl.get(); }\n");
467             push(@headerContent, "    SVGElement* context() const { return m_context.get(); }\n\n");
468             push(@headerContent, "private:\n");
469             push(@headerContent, "    RefPtr<SVGElement> m_context;\n");
470             push(@headerContent, "    RefPtr<JSSVGPODTypeWrapper<$podType> > m_impl;\n");
471         } elsif (IsSVGTypeNeedingContextParameter($implClassName)) {
472             push(@headerContent, "    $implClassName* impl() const { return m_impl.get(); }\n");
473             push(@headerContent, "    SVGElement* context() const { return m_context.get(); }\n\n");
474             push(@headerContent, "private:\n");
475             push(@headerContent, "    RefPtr<SVGElement> m_context;\n");
476             push(@headerContent, "    RefPtr<$implClassName > m_impl;\n");
477         } else {
478             push(@headerContent, "    $implClassName* impl() const { return m_impl.get(); }\n\n");
479             push(@headerContent, "private:\n");
480             push(@headerContent, "    RefPtr<$implClassName> m_impl;\n");
481         }
482     } elsif ($dataNode->extendedAttributes->{"GenerateNativeConverter"}) {
483         push(@headerContent, "    $implClassName* impl() const;\n");
484     }
485
486     # Index getter
487     if ($dataNode->extendedAttributes->{"HasIndexGetter"}) {
488         push(@headerContent, "private:\n");
489         push(@headerContent, "    static KJS::JSValue* indexGetter(KJS::ExecState*, KJS::JSObject*, const KJS::Identifier&, const KJS::PropertySlot&);\n");
490     }
491     # Name getter
492     if ($dataNode->extendedAttributes->{"HasNameGetter"} || $dataNode->extendedAttributes->{"HasOverridingNameGetter"}) {
493         push(@headerContent, "private:\n");
494         push(@headerContent, "    static bool canGetItemsForName(KJS::ExecState*, $implClassName*, const KJS::Identifier&);\n");
495         push(@headerContent, "    static KJS::JSValue* nameGetter(KJS::ExecState*, KJS::JSObject*, const KJS::Identifier&, const KJS::PropertySlot&);\n");
496     }
497
498     push(@headerContent, "};\n\n");
499
500     if (!$hasParent || $dataNode->extendedAttributes->{"GenerateToJS"}) {
501         if ($podType) {
502             push(@headerContent, "KJS::JSValue* toJS(KJS::ExecState*, JSSVGPODTypeWrapper<$podType>*, SVGElement* context);\n");
503         } elsif (IsSVGTypeNeedingContextParameter($implClassName)) {
504             push(@headerContent, "KJS::JSValue* toJS(KJS::ExecState*, $passType, SVGElement* context);\n");
505         } elsif ($interfaceName eq "Node") {
506             push(@headerContent, "KJS::JSValue* toJS(KJS::ExecState*, PassRefPtr<Node>);\n");
507         } else {
508             push(@headerContent, "KJS::JSValue* toJS(KJS::ExecState*, $passType);\n");
509         }
510     }
511     if (!$hasParent || $dataNode->extendedAttributes->{"GenerateNativeConverter"}) {
512         if ($podType) {
513             push(@headerContent, "$podType to${interfaceName}(KJS::JSValue*);\n");
514         } else {
515             push(@headerContent, "$implClassName* to${interfaceName}(KJS::JSValue*);\n");
516         }
517     }
518     push(@headerContent, "\n");
519
520     # Add prototype declaration -- code adopted from the KJS_DEFINE_PROTOTYPE and KJS_DEFINE_PROTOTYPE_WITH_PROTOTYPE macros
521     push(@headerContent, "class ${className}Prototype : public KJS::JSObject {\n");
522     push(@headerContent, "public:\n");
523     if ($dataNode->extendedAttributes->{"DoNotCache"}) {
524         push(@headerContent, "    static KJS::JSObject* self();\n");
525     } else {
526         push(@headerContent, "    static KJS::JSObject* self(KJS::ExecState* exec);\n");
527     }
528     push(@headerContent, "    virtual const KJS::ClassInfo* classInfo() const { return &info; }\n");
529     push(@headerContent, "    static const KJS::ClassInfo info;\n");
530     if ($numFunctions > 0 || $numConstants > 0) {
531         push(@headerContent, "    bool getOwnPropertySlot(KJS::ExecState*, const KJS::Identifier&, KJS::PropertySlot&);\n");
532     }
533     if ($numConstants ne 0) {
534         push(@headerContent, "    KJS::JSValue* getValueProperty(KJS::ExecState*, int token) const;\n");
535     }
536     if ($dataNode->extendedAttributes->{"DoNotCache"}) {
537         push(@headerContent, "    ${className}Prototype() { }\n");
538     } else {
539         push(@headerContent, "    ${className}Prototype(KJS::ExecState* exec)\n");
540         if ($hasParent && $parentClassName ne "KJS::DOMNodeFilter") {
541             push(@headerContent, "        : KJS::JSObject(${parentClassName}Prototype::self(exec)) { }\n");
542         } else {
543             push(@headerContent, "        : KJS::JSObject(exec->lexicalInterpreter()->builtinObjectPrototype()) { }\n");
544         }
545     }
546
547     push(@headerContent, "};\n\n");
548
549     if ($numFunctions > 0) {
550         push(@headerContent,"// Functions\n\n");
551         foreach my $function (@{$dataNode->functions}) {
552             push(@headerContent, prototypeFunctionFor($className, WK_ucfirst($function->signature->name)));
553         }        
554     }
555
556     push(@headerContent, "} // namespace WebCore\n\n");
557     push(@headerContent, "#endif // ${conditionalString}\n\n") if $conditional;
558     push(@headerContent, "#endif\n");
559 }
560
561 sub GenerateImplementation
562 {
563     my ($object, $dataNode) = @_;
564
565     my $interfaceName = $dataNode->name;
566     my $className = "JS$interfaceName";
567     my $implClassName = $interfaceName;
568
569     my $hasLegacyParent = $dataNode->extendedAttributes->{"LegacyParent"};
570     my $hasRealParent = @{$dataNode->parents} > 0;
571     my $hasParent = $hasLegacyParent || $hasRealParent;
572     my $parentClassName = GetParentClassName($dataNode);
573     my $conditional = $dataNode->extendedAttributes->{"Conditional"};
574
575     # - Add default header template
576     @implContentHeader = split("\r", $headerTemplate);
577     push(@implContentHeader, "\n#include \"config.h\"\n\n");
578     my $conditionalString;
579     if ($conditional) {
580         $conditionalString = "ENABLE(" . join(") && ENABLE(", split(/&/, $conditional)) . ")";
581         push(@implContentHeader, "\n#if ${conditionalString}\n\n");
582     }
583
584     if ($className =~ /^JSSVG/) {
585         push(@implContentHeader, "#include \"Document.h\"\n");
586         push(@implContentHeader, "#include \"Frame.h\"\n");
587         push(@implContentHeader, "#include \"SVGDocumentExtensions.h\"\n");
588         push(@implContentHeader, "#include \"SVGElement.h\"\n");
589         push(@implContentHeader, "#include \"SVGAnimatedTemplate.h\"\n");
590
591         if ($className =~ /^JSSVGAnimated/) {
592             AddIncludesForSVGAnimatedType($interfaceName);
593         }
594     }
595
596     push(@implContentHeader, "#include \"$className.h\"\n\n");
597     push(@implContentHeader, "#include <wtf/GetPtr.h>\n\n");
598
599     AddIncludesForType($interfaceName);
600
601     @implContent = ();
602
603     push(@implContent, "\nusing namespace KJS;\n\n");
604     push(@implContent, "namespace WebCore {\n\n");
605
606     # - Add all attributes in a hashtable definition
607     my $numAttributes = @{$dataNode->attributes};
608     $numAttributes++ if $dataNode->extendedAttributes->{"GenerateConstructor"};
609
610     if ($numAttributes > 0) {
611         my $hashSize = $numAttributes;
612         my $hashName = $className . "Table";
613
614         my @hashKeys = ();      # ie. 'insertBefore'
615         my @hashValues = ();    # ie. 'JSNode::InsertBefore'
616         my @hashSpecials = ();    # ie. 'DontDelete|Function'
617         my @hashParameters = ();  # ie. '2'
618
619         foreach my $attribute (@{$dataNode->attributes}) {
620             my $name = $attribute->signature->name;
621             push(@hashKeys, $name);
622
623             my $value = $className . "::" . ($attribute->signature->type =~ /Constructor$/
624                                        ? $attribute->signature->name . "ConstructorAttrNum"
625                                        : WK_ucfirst($attribute->signature->name) . "AttrNum");
626             push(@hashValues, $value);
627
628             my @specials = ();
629             push(@specials, "DontDelete") unless $attribute->signature->extendedAttributes->{"Deletable"};
630             push(@specials, "DontEnum") if $attribute->signature->extendedAttributes->{"DontEnum"};
631             push(@specials, "ReadOnly") if $attribute->type =~ /readonly/;
632             my $special = (@specials > 0) ? join("|", @specials) : "0";
633             push(@hashSpecials, $special);
634
635             my $numParameters = "0";
636             push(@hashParameters, $numParameters);
637         }
638
639         if ($dataNode->extendedAttributes->{"GenerateConstructor"}) {
640             push(@hashKeys, "constructor");
641             push(@hashValues, $className . "::ConstructorAttrNum");
642             push(@hashSpecials, "DontDelete|DontEnum|ReadOnly");
643             push(@hashParameters, "0");
644         }
645
646         $object->GenerateHashTable($hashName, $hashSize,
647                                    \@hashKeys, \@hashValues,
648                                    \@hashSpecials, \@hashParameters);
649     }
650
651     my $numConstants = @{$dataNode->constants};
652     my $numFunctions = @{$dataNode->functions};
653
654     # - Add all constants
655     if ($dataNode->extendedAttributes->{"GenerateConstructor"}) {
656         $hashSize = $numConstants;
657         $hashName = $className . "ConstructorTable";
658
659         @hashKeys = ();
660         @hashValues = ();
661         @hashSpecials = ();
662         @hashParameters = ();
663
664         foreach my $constant (@{$dataNode->constants}) {
665             my $name = $constant->name;
666             push(@hashKeys, $name);
667
668             my $value = HashValueForClassAndName($implClassName, $name);
669             push(@hashValues, $value);
670
671             my $special = "DontDelete|ReadOnly";
672             push(@hashSpecials, $special);
673
674             my $numParameters = 0;
675             push(@hashParameters, $numParameters);
676         }
677
678         $object->GenerateHashTable($hashName, $hashSize,
679                                    \@hashKeys, \@hashValues,
680                                    \@hashSpecials, \@hashParameters);
681
682         my $protoClassName;
683         $protoClassName = "${className}Prototype";
684
685         push(@implContent, constructorFor($className, $protoClassName, $interfaceName, $dataNode->extendedAttributes->{"CanBeConstructed"}));
686     }
687
688     # - Add functions and constants to a hashtable definition
689     $hashSize = $numFunctions + $numConstants;
690     $hashName = $className . "PrototypeTable";
691
692     @hashKeys = ();
693     @hashValues = ();
694     @hashSpecials = ();
695     @hashParameters = ();
696
697     foreach my $constant (@{$dataNode->constants}) {
698         my $name = $constant->name;
699         push(@hashKeys, $name);
700
701         my $value = HashValueForClassAndName($implClassName, $name);
702         push(@hashValues, $value);
703
704         my $special = "DontDelete|ReadOnly";
705         push(@hashSpecials, $special);
706
707         my $numParameters = 0;
708         push(@hashParameters, $numParameters);
709     }
710
711     foreach my $function (@{$dataNode->functions}) {
712         my $name = $function->signature->name;
713         push(@hashKeys, $name);
714
715         my $value = "&" . $className . "PrototypeFunction" . WK_ucfirst($name) . "::create";
716         push(@hashValues, $value);
717
718         my @specials = ();
719         push(@specials, "DontDelete") unless $function->signature->extendedAttributes->{"Deletable"};
720         push(@specials, "DontEnum") if $function->signature->extendedAttributes->{"DontEnum"};
721         push(@specials, "Function");        
722         my $special = (@specials > 0) ? join("|", @specials) : "0";
723         push(@hashSpecials, $special);
724
725         my $numParameters = @{$function->parameters};
726         push(@hashParameters, $numParameters);
727     }
728
729     $object->GenerateHashTable($hashName, $hashSize,
730                                \@hashKeys, \@hashValues,
731                                \@hashSpecials, \@hashParameters);
732
733     push(@implContent, "const ClassInfo ${className}Prototype::info = { \"${interfaceName}Prototype\", 0, &${className}PrototypeTable };\n\n");
734     if ($dataNode->extendedAttributes->{"DoNotCache"}) {
735         push(@implContent, "JSObject* ${className}Prototype::self()\n");
736         push(@implContent, "{\n");
737         push(@implContent, "    return new ${className}Prototype();\n");
738         push(@implContent, "}\n\n");
739     } else {
740         push(@implContent, "JSObject* ${className}Prototype::self(ExecState* exec)\n");
741         push(@implContent, "{\n");
742         push(@implContent, "    return KJS::cacheGlobalObject<${className}Prototype>(exec, \"[[${className}.prototype]]\");\n");
743         push(@implContent, "}\n\n");
744     }
745     if ($numConstants > 0 || $numFunctions > 0) {
746         push(@implContent, "bool ${className}Prototype::getOwnPropertySlot(ExecState* exec, const Identifier& propertyName, PropertySlot& slot)\n");
747         push(@implContent, "{\n");
748         if ($numConstants eq 0) {
749             push(@implContent, "    return getStaticFunctionSlot<JSObject>(exec, &${className}PrototypeTable, this, propertyName, slot);\n");
750         } elsif ($numFunctions eq 0) {
751             push(@implContent, "    return getStaticValueSlot<${className}Prototype, JSObject>(exec, &${className}PrototypeTable, this, propertyName, slot);\n");
752         } else {
753             push(@implContent, "    return getStaticPropertySlot<${className}Prototype, JSObject>(exec, &${className}PrototypeTable, this, propertyName, slot);\n");
754         }
755         push(@implContent, "}\n\n");
756     }
757     if ($numConstants ne 0) {
758         push(@implContent, "JSValue* ${className}Prototype::getValueProperty(ExecState*, int token) const\n{\n");
759         push(@implContent, "    // The token is the numeric value of its associated constant\n");
760         push(@implContent, "    return jsNumber(token);\n}\n\n");
761     }
762
763     # - Initialize static ClassInfo object
764     push(@implContent, "const ClassInfo $className" . "::info = { \"$interfaceName\", ");
765     if ($hasParent) {
766         push(@implContent, "&" .$parentClassName . "::info, ");
767     } else {
768         push(@implContent, "0, ");
769     }
770
771     if ($numAttributes > 0) {
772         push(@implContent, "&${className}Table ");
773     } else {
774         push(@implContent, "0 ")
775     }
776     push(@implContent, "};\n\n");
777
778     # Get correct pass/store types respecting PODType flag
779     my $podType = $dataNode->extendedAttributes->{"PODType"};
780     my $passType = $podType ? "JSSVGPODTypeWrapper<$podType>*" : "$implClassName*";
781
782     # Constructor
783     if ($dataNode->extendedAttributes->{"DoNotCache"}) {
784         push(@implContent, "${className}::$className($passType impl)\n");
785         push(@implContent, "    : $parentClassName(impl)\n");
786     } else {
787         my $needsSVGContext = IsSVGTypeNeedingContextParameter($implClassName);
788         if ($needsSVGContext) {
789             push(@implContent, "${className}::$className(ExecState* exec, $passType impl, SVGElement* context)\n");
790         } else {
791             push(@implContent, "${className}::$className(ExecState* exec, $passType impl)\n");
792         }
793
794         if ($hasParent) {
795             if ($needsSVGContext and $parentClassName =~ /SVG/) {
796                 push(@implContent, "    : $parentClassName(exec, impl, context)\n");
797             } else {
798                 push(@implContent, "    : $parentClassName(exec, impl)\n");
799             }
800         } else {
801             if ($needsSVGContext) {
802                 push(@implContent, "    : m_context(context)\n");
803                 push(@implContent, "    , m_impl(impl)\n");
804             } else {
805                 push(@implContent, "    : m_impl(impl)\n");
806             }            
807         }
808     }
809
810     if ($dataNode->extendedAttributes->{"DoNotCache"}) {
811         push(@implContent, "{\n    setPrototype(${className}Prototype::self());\n}\n\n");
812     } else {
813         push(@implContent, "{\n    setPrototype(${className}Prototype::self(exec));\n}\n\n");
814     }
815
816     # Destructor
817     if (!$hasParent) {
818         push(@implContent, "${className}::~$className()\n");
819         push(@implContent, "{\n");
820
821         if ($interfaceName eq "Node") {
822             push(@implContent, "    ScriptInterpreter::forgetDOMNodeForDocument(m_impl->document(), m_impl.get());\n");
823         } else {
824             if ($podType) {
825                 my $animatedType = $implClassName;
826                 $animatedType =~ s/SVG/SVGAnimated/;
827
828                 # Special case for JSSVGNumber
829                 if ($codeGenerator->IsSVGAnimatedType($animatedType) and $podType ne "float") {
830                     push(@implContent, "    JSSVGPODTypeWrapperCache<$podType, $animatedType>::forgetWrapper(m_impl.get());\n");
831                 }
832             }
833             push(@implContent, "    ScriptInterpreter::forgetDOMObject(m_impl.get());\n");
834         }
835
836         push(@implContent, "\n}\n\n");
837     }
838
839     # Document needs a special destructor because it's a special case for caching. It needs
840     # its own special handling rather than relying on the caching that Node normally does.
841     if ($interfaceName eq "Document") {
842         push(@implContent, "${className}::~$className()\n");
843         push(@implContent, "{\n    ScriptInterpreter::forgetDOMObject(static_cast<${implClassName}*>(impl()));\n}\n\n");
844     }
845
846     # Attributes
847     if ($numAttributes ne 0) {
848         push(@implContent, "bool ${className}::getOwnPropertySlot(ExecState* exec, const Identifier& propertyName, PropertySlot& slot)\n");
849         push(@implContent, "{\n");
850
851         if ($interfaceName eq "NamedNodeMap" or $interfaceName eq "HTMLCollection") {
852             push(@implContent, "    JSValue* proto = prototype();\n");
853             push(@implContent, "    if (proto->isObject() && static_cast<JSObject*>(proto)->hasProperty(exec, propertyName))\n");
854             push(@implContent, "        return false;\n\n");
855         }
856
857         my $hasNameGetterGeneration = sub {
858             push(@implContent, "    if (canGetItemsForName(exec, static_cast<$implClassName*>(impl()), propertyName)) {\n");
859             push(@implContent, "        slot.setCustom(this, nameGetter);\n");
860             push(@implContent, "        return true;\n");
861             push(@implContent, "    }\n");
862             $implIncludes{"AtomicString.h"} = 1;
863         };
864
865         if ($dataNode->extendedAttributes->{"HasOverridingNameGetter"}) {
866             &$hasNameGetterGeneration();
867         }
868
869         my $requiresManualLookup = $dataNode->extendedAttributes->{"HasIndexGetter"} || $dataNode->extendedAttributes->{"HasNameGetter"};
870         if ($requiresManualLookup) {
871             push(@implContent, "    const HashEntry* entry = Lookup::findEntry(&${className}Table, propertyName);\n");
872             push(@implContent, "    if (entry) {\n");
873             push(@implContent, "        slot.setStaticEntry(this, entry, staticValueGetter<$className>);\n");
874             push(@implContent, "        return true;\n");
875             push(@implContent, "    }\n");
876         }
877
878         if ($dataNode->extendedAttributes->{"HasIndexGetter"}) {
879             push(@implContent, "    bool ok;\n");
880             push(@implContent, "    unsigned index = propertyName.toUInt32(&ok, false);\n");
881             push(@implContent, "    if (ok && index < static_cast<$implClassName*>(impl())->length()) {\n");
882             push(@implContent, "        slot.setCustomIndex(this, index, indexGetter);\n");
883             push(@implContent, "        return true;\n");
884             push(@implContent, "    }\n");
885         }
886
887         if ($dataNode->extendedAttributes->{"HasNameGetter"}) {
888             &$hasNameGetterGeneration();
889         }
890
891         if ($dataNode->extendedAttributes->{"CustomGetOwnPropertySlot"}) {
892                 push(@implContent, "    if (customGetOwnPropertySlot(exec, propertyName, slot))\n");
893                 push(@implContent, "        return true;\n");
894         }
895
896         if ($requiresManualLookup) {
897             push(@implContent, "    return ${parentClassName}::getOwnPropertySlot(exec, propertyName, slot);\n");
898         } else {
899             push(@implContent, "    return getStaticValueSlot<$className, $parentClassName>(exec, &${className}Table, this, propertyName, slot);\n");
900         }
901         push(@implContent, "}\n\n");
902
903         push(@implContent, "JSValue* ${className}::getValueProperty(ExecState* exec, int token) const\n{\n");
904
905         push(@implContent, "    switch (token) {\n");
906
907         foreach my $attribute (@{$dataNode->attributes}) {
908             my $name = $attribute->signature->name;
909
910             my $implClassNameForValueConversion = "";
911             if (!$podType and ($codeGenerator->IsSVGAnimatedType($implClassName) or $attribute->type !~ /^readonly/)) {
912                 $implClassNameForValueConversion = $implClassName;
913             }
914
915             if ($attribute->signature->type =~ /Constructor$/) {
916                 push(@implContent, "    case " . $name . "ConstructorAttrNum: {\n");
917             } else {
918                 push(@implContent, "    case " . WK_ucfirst($name) . "AttrNum: {\n");
919             }
920
921             if ($dataNode->extendedAttributes->{"CheckDomainSecurity"} && !$attribute->signature->extendedAttributes->{"DoNotCheckDomainSecurity"}) {
922                 push(@implContent, "        if (!isSafeScript(exec))\n");
923                 push(@implContent, "            return jsUndefined();\n");
924             }
925
926             if ($attribute->signature->extendedAttributes->{"Custom"} || $attribute->signature->extendedAttributes->{"CustomGetter"}) {
927                 push(@implContent, "        return $name(exec);\n");
928             } elsif ($attribute->signature->extendedAttributes->{"CheckNodeSecurity"}) {
929                 $implIncludes{"kjs_dom.h"} = 1;
930                 push(@implContent, "        $implClassName* imp = static_cast<$implClassName*>(impl());\n\n");
931                 push(@implContent, "        return checkNodeSecurity(exec, imp->$name()) ? " . NativeToJSValue($attribute->signature, 0, $implClassName, $implClassNameForValueConversion, "imp->$name()") . " : jsUndefined();\n");
932             } elsif ($attribute->signature->extendedAttributes->{"CheckFrameSecurity"}) {
933                 $implIncludes{"Document.h"} = 1;
934                 $implIncludes{"kjs_dom.h"} = 1;
935                 push(@implContent, "        $implClassName* imp = static_cast<$implClassName*>(impl());\n\n");
936                 push(@implContent, "        return checkNodeSecurity(exec, imp->contentDocument()) ? " . NativeToJSValue($attribute->signature,  0, $implClassName, $implClassNameForValueConversion, "imp->$name()") . " : jsUndefined();\n");
937             } elsif ($attribute->signature->type =~ /Constructor$/) {
938                 my $constructorType = $codeGenerator->StripModule($attribute->signature->type);
939                 $constructorType =~ s/Constructor$//;
940                 push(@implContent, "        return JS" . $constructorType . "::getConstructor(exec);\n");
941             } elsif (!@{$attribute->getterExceptions}) {
942                 if ($podType) {
943                     push(@implContent, "        $podType imp(*impl());\n\n");
944                     if ($podType eq "float") { # Special case for JSSVGNumber
945                         push(@implContent, "        return " . NativeToJSValue($attribute->signature, 0, $implClassName, "", "imp") . ";\n");
946                     } else {
947                         push(@implContent, "        return " . NativeToJSValue($attribute->signature, 0, $implClassName, "", "imp.$name()") . ";\n");
948                     }
949                 } else {
950                     push(@implContent, "        $implClassName* imp = static_cast<$implClassName*>(impl());\n\n");
951                     my $type = $codeGenerator->StripModule($attribute->signature->type);
952                     my $jsType = NativeToJSValue($attribute->signature, 0, $implClassName, $implClassNameForValueConversion, "imp->$name()");
953
954                     if ($codeGenerator->IsSVGAnimatedType($type)) {
955                         push(@implContent, "        RefPtr<$type> obj = $jsType;\n");
956                         push(@implContent, "        return toJS(exec, obj.get(), imp);\n");
957                     } else {
958                         push(@implContent, "        return $jsType;\n");
959                     }
960                 }
961             } else {
962                 push(@implContent, "        ExceptionCode ec = 0;\n");
963
964                 if ($podType) {
965                     push(@implContent, "        $podType imp(*impl());\n\n");
966                     push(@implContent, "        KJS::JSValue* result = " . NativeToJSValue($attribute->signature, 0, $implClassName, "", "imp.$name(ec)") . ";\n");
967                 } else {
968                     push(@implContent, "        $implClassName* imp = static_cast<$implClassName*>(impl());\n\n");
969                     push(@implContent, "        KJS::JSValue* result = " . NativeToJSValue($attribute->signature, 0, $implClassName, $implClassNameForValueConversion, "imp->$name(ec)") . ";\n");
970                 }
971
972                 push(@implContent, "        setDOMException(exec, ec);\n");
973                 push(@implContent, "        return result;\n");
974             }
975             push(@implContent, "    }\n");
976         }
977
978         if ($dataNode->extendedAttributes->{"GenerateConstructor"}) {
979             push(@implContent, "    case ConstructorAttrNum:\n");
980             push(@implContent, "        return getConstructor(exec);\n");
981         }
982
983         push(@implContent, "    }\n");
984         push(@implContent, "    return 0;\n}\n\n");
985
986         # Check if we have any writable attributes
987         my $hasReadWriteProperties = 0;
988         foreach my $attribute (@{$dataNode->attributes}) {
989             $hasReadWriteProperties = 1 if $attribute->type !~ /^readonly/;
990         }
991         if ($hasReadWriteProperties) {
992             push(@implContent, "void ${className}::put(ExecState* exec, const Identifier& propertyName, JSValue* value, int attr)\n");
993             push(@implContent, "{\n");
994             if ($dataNode->extendedAttributes->{"HasCustomIndexSetter"}) {
995                 push(@implContent, "    bool ok;\n");
996                 push(@implContent, "    unsigned index = propertyName.toUInt32(&ok, false);\n");
997                 push(@implContent, "    if (ok) {\n");
998                 push(@implContent, "        indexSetter(exec, index, value, attr);\n");
999                 push(@implContent, "        return;\n");
1000                 push(@implContent, "    }\n");
1001             }
1002             if ($dataNode->extendedAttributes->{"CustomPutFunction"}) {
1003                 push(@implContent, "    if (customPut(exec, propertyName, value, attr))\n");
1004                 push(@implContent, "        return;\n");
1005             }
1006
1007             push(@implContent, "    lookupPut<$className, $parentClassName>(exec, propertyName, value, attr, &${className}Table, this);\n");
1008             push(@implContent, "}\n\n");
1009
1010             push(@implContent, "void ${className}::putValueProperty(ExecState* exec, int token, JSValue* value, int /*attr*/)\n");
1011             push(@implContent, "{\n");
1012
1013             push(@implContent, "    switch (token) {\n");
1014
1015             foreach my $attribute (@{$dataNode->attributes}) {
1016                 if ($attribute->type !~ /^readonly/) {
1017                     my $name = $attribute->signature->name;
1018
1019                     if ($attribute->signature->type =~ /Constructor$/) {
1020                         push(@implContent, "    case " . $name ."ConstructorAttrNum: {\n");
1021                     } else {
1022                         push(@implContent, "    case " . WK_ucfirst($name) . "AttrNum: {\n");
1023                     }
1024
1025                     if ($dataNode->extendedAttributes->{"CheckDomainSecurity"} && !$attribute->signature->extendedAttributes->{"DoNotCheckDomainSecurity"}) {
1026                         push(@implContent, "        if (!isSafeScript(exec))\n");
1027                         push(@implContent, "            return;\n");
1028                     }
1029
1030                     if ($attribute->signature->extendedAttributes->{"Custom"} || $attribute->signature->extendedAttributes->{"CustomSetter"}) {
1031                         push(@implContent, "        set" . WK_ucfirst($name) . "(exec, value);\n");
1032                     } elsif ($attribute->signature->type =~ /Constructor$/) {
1033                         my $constructorType = $attribute->signature->type;
1034                         $constructorType =~ s/Constructor$//;
1035                         $implIncludes{"JS" . $constructorType . ".h"} = 1;
1036                         push(@implContent, "        // Shadowing a built-in constructor\n");
1037                         push(@implContent, "        JSObject::put(exec, \"$name\", value);\n");
1038                     } elsif ($attribute->signature->extendedAttributes->{"Replaceable"}) {
1039                         push(@implContent, "        JSObject::put(exec, \"$name\", value);\n");
1040                     } else {
1041                         if ($podType) {
1042                             push(@implContent, "        $podType imp(*impl());\n\n");
1043                             if ($podType eq "float") { # Special case for JSSVGNumber
1044                                 push(@implContent, "        imp = " . JSValueToNative($attribute->signature, "value") . ";\n");
1045                             } else {
1046                                 push(@implContent, "        imp.set" . WK_ucfirst($name) . "(" . JSValueToNative($attribute->signature, "value") . ");\n");
1047                             }
1048                             push(@implContent, "        m_impl->commitChange(exec, imp);\n");
1049                         } else {
1050                             push(@implContent, "        $implClassName* imp = static_cast<$implClassName*>(impl());\n\n");
1051                             push(@implContent, "        ExceptionCode ec = 0;\n") if @{$attribute->setterExceptions};
1052                             push(@implContent, "        imp->set" . WK_ucfirst($name) . "(" . JSValueToNative($attribute->signature, "value"));
1053                             push(@implContent, ", ec") if @{$attribute->setterExceptions};
1054                             push(@implContent, ");\n");
1055                             push(@implContent, "        setDOMException(exec, ec);\n") if @{$attribute->setterExceptions};
1056                         }
1057                     }
1058                     push(@implContent, "        break;\n");
1059                     push(@implContent, "    }\n");
1060                 }
1061             }
1062             push(@implContent, "    }\n"); # end switch
1063
1064             if (IsSVGTypeNeedingContextParameter($implClassName)) {
1065                 push(@implContent, "    if (context())\n");
1066                 push(@implContent, "        context()->notifyAttributeChange();\n");
1067             }
1068
1069             push(@implContent, "}\n\n"); # end function
1070         }
1071     }
1072
1073     if ($dataNode->extendedAttributes->{"GenerateConstructor"}) {
1074         push(@implContent, "JSValue* ${className}::getConstructor(ExecState* exec)\n{\n");
1075         push(@implContent, "    return KJS::cacheGlobalObject<${className}Constructor>(exec, \"[[${interfaceName}.constructor]]\");\n");
1076         push(@implContent, "}\n");
1077     }
1078
1079     # Functions
1080     if ($numFunctions > 0) {
1081         foreach my $function (@{$dataNode->functions}) {
1082             my $functionClassName = $className . "PrototypeFunction" . WK_ucfirst($function->signature->name);
1083             push(@implContent, "JSValue* ${functionClassName}::callAsFunction(ExecState* exec, JSObject* thisObj, const List& args)\n");
1084             push(@implContent, "{\n");
1085             push(@implContent, "    if (!thisObj->inherits(&${className}::info))\n");
1086             push(@implContent, "      return throwError(exec, TypeError);\n\n");
1087
1088             AddIncludesForType($function->signature->type);
1089
1090             push(@implContent, "    $className* castedThisObj = static_cast<$className*>(thisObj);\n");
1091
1092             if ($function->signature->extendedAttributes->{"Custom"}) {
1093                 push(@implContent, "        return castedThisObj->" . $function->signature->name . "(exec, args);\n");
1094             } else {
1095                 if ($podType) {
1096                     push(@implContent, "    JSSVGPODTypeWrapper<$podType>* wrapper = castedThisObj->impl();\n");
1097                     push(@implContent, "    $podType imp(*wrapper);\n\n");
1098                 } else {
1099                     push(@implContent, "    $implClassName* imp = static_cast<$implClassName*>(castedThisObj->impl());\n\n");
1100                 }
1101
1102
1103                 if (@{$function->raisesExceptions}) {
1104                     push(@implContent, "    ExceptionCode ec = 0;\n");
1105                 }
1106
1107                 if ($function->signature->extendedAttributes->{"SVGCheckSecurityDocument"}) {
1108                     push(@implContent, "    if (!checkNodeSecurity(exec, imp->getSVGDocument(" . (@{$function->raisesExceptions} ? "ec" : "") .")))\n");
1109                     push(@implContent, "        return jsUndefined();\n");
1110                     $implIncludes{"kjs_dom.h"} = 1;
1111                 }
1112
1113                 my $paramIndex = 0;
1114                 my $functionString = "imp" . ($podType ? "." : "->") . $function->signature->name . "(";
1115
1116                 my $numParameters = @{$function->parameters};
1117                 my $hasOptionalArguments = 0;
1118
1119                 foreach my $parameter (@{$function->parameters}) {
1120                     if (!$hasOptionalArguments && $parameter->extendedAttributes->{"Optional"}) {
1121                         push(@implContent, "\n    int argsCount = args.size();\n");
1122                         $hasOptionalArguments = 1;
1123                     }
1124
1125                     if ($hasOptionalArguments) {
1126                         push(@implContent, "    if (argsCount < " . ($paramIndex + 1) . ") {\n");
1127                         GenerateImplementationFunctionCall($function, $functionString, $paramIndex, "    " x 2, $podType, $implClassName);
1128                         push(@implContent, "    }\n\n");
1129                     }
1130
1131                     my $name = $parameter->name;
1132                     
1133                     if ($parameter->type eq "XPathNSResolver") {
1134                         push(@implContent, "    RefPtr<XPathNSResolver> customResolver;\n");
1135                         push(@implContent, "    XPathNSResolver* resolver = toXPathNSResolver(args[$paramIndex]);\n");
1136                         push(@implContent, "    if (!resolver) {\n");
1137                         push(@implContent, "        customResolver = JSCustomXPathNSResolver::create(exec, args[$paramIndex]);\n");
1138                         push(@implContent, "        if (exec->hadException())\n");
1139                         push(@implContent, "            return jsUndefined();\n");
1140                         push(@implContent, "        resolver = customResolver.get();\n");
1141                         push(@implContent, "    }\n");
1142                     } else {
1143                         push(@implContent, "    bool ${name}Ok;\n") if TypeCanFailConversion($parameter);
1144                         push(@implContent, "    " . GetNativeTypeFromSignature($parameter) . " $name = " . JSValueToNative($parameter, "args[$paramIndex]", TypeCanFailConversion($parameter) ? "${name}Ok" : undef) . ";\n");
1145                         if (TypeCanFailConversion($parameter)) {
1146                             push(@implContent, "    if (!${name}Ok) {\n");
1147                             push(@implContent, "        setDOMException(exec, TYPE_MISMATCH_ERR);\n");
1148                             push(@implContent, "        return jsUndefined();\n        }\n");
1149                         }
1150
1151                         # If a parameter is "an index", it should throw an INDEX_SIZE_ERR
1152                         # exception
1153                         if ($parameter->extendedAttributes->{"IsIndex"}) {
1154                             $implIncludes{"ExceptionCode.h"} = 1;
1155                             push(@implContent, "    if ($name < 0) {\n");
1156                             push(@implContent, "        setDOMException(exec, INDEX_SIZE_ERR);\n");
1157                             push(@implContent, "        return jsUndefined();\n");
1158                             push(@implContent, "    }\n");
1159                         }
1160                     }
1161
1162                     $functionString .= ", " if $paramIndex;
1163                     $functionString .= $name;
1164
1165                     $paramIndex++;
1166                 }
1167
1168                 push(@implContent, "\n");
1169                 GenerateImplementationFunctionCall($function, $functionString, $paramIndex, "    ", $podType, $implClassName);
1170             }
1171             push(@implContent, "}\n\n");
1172         }
1173     }
1174
1175     if ($dataNode->extendedAttributes->{"HasIndexGetter"}) {
1176         push(@implContent, "\nJSValue* ${className}::indexGetter(ExecState* exec, JSObject* originalObject, const Identifier& propertyName, const PropertySlot& slot)\n");
1177         push(@implContent, "{\n");
1178         push(@implContent, "    ${className}* thisObj = static_cast<$className*>(slot.slotBase());\n");
1179         if (IndexGetterReturnsStrings($implClassName)) {
1180             $implIncludes{"PlatformString.h"} = 1;
1181             push(@implContent, "    return jsStringOrNull(thisObj->impl()->item(slot.index()));\n");
1182         } else {
1183             push(@implContent, "    return toJS(exec, static_cast<$implClassName*>(thisObj->impl())->item(slot.index()));\n");
1184         }
1185         push(@implContent, "}\n");
1186         if ($interfaceName eq "HTMLCollection") {
1187             $implIncludes{"JSNode.h"} = 1;
1188             $implIncludes{"Node.h"} = 1;
1189         }
1190     }
1191
1192     if ((!$hasParent or $dataNode->extendedAttributes->{"GenerateToJS"}) and !UsesManualToJSImplementation($implClassName)) {
1193         if ($podType) {
1194             push(@implContent, "KJS::JSValue* toJS(KJS::ExecState* exec, JSSVGPODTypeWrapper<$podType>* obj, SVGElement* context)\n");
1195         } elsif (IsSVGTypeNeedingContextParameter($implClassName)) {
1196              push(@implContent, "KJS::JSValue* toJS(KJS::ExecState* exec, $passType obj, SVGElement* context)\n");
1197         } else {
1198             push(@implContent, "KJS::JSValue* toJS(KJS::ExecState* exec, $passType obj)\n");
1199         }
1200
1201         push(@implContent, "{\n");
1202         if ($podType) {
1203             push(@implContent, "    return KJS::cacheSVGDOMObject<JSSVGPODTypeWrapper<$podType>, $className>(exec, obj, context);\n");
1204         } elsif (IsSVGTypeNeedingContextParameter($implClassName)) {
1205             push(@implContent, "    return KJS::cacheSVGDOMObject<$implClassName, $className>(exec, obj, context);\n");
1206         } else {
1207             push(@implContent, "    return KJS::cacheDOMObject<$implClassName, $className>(exec, obj);\n");
1208         }
1209         push(@implContent, "}\n");
1210     }
1211
1212     if ((!$hasParent or $dataNode->extendedAttributes->{"GenerateNativeConverter"}) and !$dataNode->extendedAttributes->{"CustomNativeConverter"}) {
1213         if ($podType) {
1214             push(@implContent, "$podType to${interfaceName}(KJS::JSValue* val)\n");
1215         } else {
1216             push(@implContent, "$implClassName* to${interfaceName}(KJS::JSValue* val)\n");
1217         }
1218
1219         push(@implContent, "{\n");
1220
1221         push(@implContent, "    return val->isObject(&${className}::info) ? " . ($podType ? "($podType) *" : "") . "static_cast<$className*>(val)->impl() : ");
1222         if ($podType and $podType ne "float") {
1223             push(@implContent, "$podType();\n}\n");
1224         } else {
1225             push(@implContent, "0;\n}\n");
1226         }
1227     }
1228
1229     if ($dataNode->extendedAttributes->{"GenerateNativeConverter"} && $hasParent) {
1230         push(@implContent, "\n$implClassName* ${className}::impl() const\n");
1231         push(@implContent, "{\n");
1232         push(@implContent, "    return static_cast<$implClassName*>(${parentClassName}::impl());\n");
1233         push(@implContent, "}\n");
1234     }
1235
1236     push(@implContent, "\n}\n");
1237
1238     push(@implContent, "\n#endif // ${conditionalString}\n") if $conditional;
1239 }
1240
1241 sub GenerateImplementationFunctionCall()
1242 {
1243     my $function = shift;
1244     my $functionString = shift;
1245     my $paramIndex = shift;
1246     my $indent = shift;
1247     my $podType = shift;
1248     my $implClassName = shift;
1249
1250     if (@{$function->raisesExceptions}) {
1251         $functionString .= ", " if $paramIndex;
1252         $functionString .= "ec";
1253     }
1254     $functionString .= ")";
1255
1256     if ($function->signature->type eq "void") {
1257         push(@implContent, $indent . "$functionString;\n");
1258         push(@implContent, $indent . "setDOMException(exec, ec);\n") if @{$function->raisesExceptions};
1259
1260         if ($podType) {
1261             push(@implContent, $indent . "wrapper->commitChange(exec, imp);\n\n");
1262             push(@implContent, $indent . "if (castedThisObj->context())\n");
1263             push(@implContent, $indent . "    castedThisObj->context()->notifyAttributeChange();\n");
1264         }
1265
1266         push(@implContent, $indent . "return jsUndefined();\n");
1267     } else {
1268         push(@implContent, "\n" . $indent . "KJS::JSValue* result = " . NativeToJSValue($function->signature, 1, $implClassName, "", $functionString) . ";\n");
1269         push(@implContent, $indent . "setDOMException(exec, ec);\n") if @{$function->raisesExceptions};
1270
1271         if ($podType) {
1272             push(@implContent, $indent . "wrapper->commitChange(exec, imp);\n\n");
1273             push(@implContent, $indent . "if (castedThisObj->context())\n");
1274             push(@implContent, $indent . "    castedThisObj->context()->notifyAttributeChange();\n");
1275         }
1276
1277         push(@implContent, $indent . "return result;\n");
1278     }
1279 }
1280
1281 sub GetNativeTypeFromSignature
1282 {
1283     my $signature = shift;
1284     my $type = $codeGenerator->StripModule($signature->type);
1285
1286     if ($type eq "unsigned long" and $signature->extendedAttributes->{"IsIndex"}) {
1287         # Special-case index arguments because we need to check that they aren't < 0.
1288         return "int";
1289     }
1290
1291     return GetNativeType($type);
1292 }
1293
1294 sub GetNativeType
1295 {
1296     my $type = shift;
1297
1298     return "unsigned" if $type eq "unsigned long";
1299     return $type if $type eq "unsigned short" or $type eq "float" or $type eq "double" or $type eq "AtomicString";
1300     return "bool" if $type eq "boolean";
1301     return "int" if $type eq "long";
1302     return "String" if $type eq "DOMString";
1303     return "Range::CompareHow" if $type eq "CompareHow";
1304     return "EventTargetNode*" if $type eq "EventTarget";
1305     return "FloatRect" if $type eq "SVGRect";
1306     return "FloatPoint" if $type eq "SVGPoint";
1307     return "AffineTransform" if $type eq "SVGMatrix";
1308     return "SVGTransform" if $type eq "SVGTransform";
1309     return "SVGLength" if $type eq "SVGLength";
1310     return "float" if $type eq "SVGNumber";
1311     return "SVGPaint::SVGPaintType" if $type eq "SVGPaintType";
1312
1313     # Default, assume native type is a pointer with same type name as idl type
1314     return "${type}*";
1315 }
1316
1317 sub TypeCanFailConversion
1318 {
1319     my $signature = shift;
1320
1321     my $type = $codeGenerator->StripModule($signature->type);
1322
1323     # FIXME: convert to use a hash
1324
1325     return 0 if $type eq "boolean" or
1326                 $type eq "float" or
1327                 $type eq "double" or
1328                 $type eq "AtomicString" or
1329                 $type eq "DOMString" or
1330                 $type eq "Node" or
1331                 $type eq "Element" or
1332                 $type eq "DocumentType" or
1333                 $type eq "Event" or
1334                 $type eq "EventListener" or
1335                 $type eq "EventTarget" or
1336                 $type eq "Range" or
1337                 $type eq "NodeFilter" or
1338                 $type eq "DOMWindow" or
1339                 $type eq "SQLResultSet" or
1340                 $type eq "XPathEvaluator" or
1341                 $type eq "XPathNSResolver" or
1342                 $type eq "XPathResult" or
1343                 $type eq "SVGAngle" or
1344                 $type eq "SVGLength" or
1345                 $type eq "SVGNumber" or
1346                 $type eq "SVGPoint" or
1347                 $type eq "SVGTransform" or
1348                 $type eq "SVGPathSeg" or
1349                 $type eq "SVGMatrix" or
1350                 $type eq "SVGRect" or
1351                 $type eq "SVGElement" or
1352                 $type eq "HTMLElement" or
1353                 $type eq "HTMLOptionElement" or
1354                 $type eq "unsigned short" or # or can it?
1355                 $type eq "CompareHow" or # or can it?
1356                 $type eq "SVGPaintType"; # or can it?
1357
1358     return 1 if $type eq "VoidCallback";
1359
1360     if ($type eq "unsigned long" or $type eq "long" or $type eq "Attr") {
1361         $implIncludes{"ExceptionCode.h"} = 1;
1362         return 1;
1363     }
1364
1365     die "Don't know whether a JS value can fail conversion to type $type."
1366 }
1367
1368 sub JSValueToNative
1369 {
1370     my $signature = shift;
1371     my $value = shift;
1372     my $okParam = shift;
1373     my $maybeOkParam = $okParam ? ", ${okParam}" : "";
1374
1375     my $type = $codeGenerator->StripModule($signature->type);
1376
1377     return "$value->toBoolean(exec)" if $type eq "boolean";
1378     return "$value->toNumber(exec)" if $type eq "double";
1379     return "$value->toFloat(exec)" if $type eq "float" or $type eq "SVGNumber";
1380     return "$value->toInt32(exec${maybeOkParam})" if $type eq "unsigned long" or $type eq "long" or $type eq "unsigned short";
1381
1382     return "static_cast<Range::CompareHow>($value->toInt32(exec))" if $type eq "CompareHow";
1383     return "static_cast<SVGPaint::SVGPaintType>($value->toInt32(exec))" if $type eq "SVGPaintType";
1384
1385     return "$value->toString(exec)" if $type eq "AtomicString";
1386     if ($type eq "DOMString") {
1387         return "valueToStringWithNullCheck(exec, $value)" if $signature->extendedAttributes->{"ConvertNullToNullString"};
1388         return "valueToStringWithUndefinedOrNullCheck(exec, $value)" if $signature->extendedAttributes->{"ConvertUndefinedOrNullToNullString"};
1389         return "$value->toString(exec)";
1390     }
1391
1392     if ($type eq "EventTarget") {
1393         $implIncludes{"JSEventTargetNode.h"} = 1;
1394         return "toEventTargetNode($value)";
1395     }
1396
1397     if ($type eq "Attr") {
1398         $implIncludes{"kjs_dom.h"} = 1;
1399         return "toAttr($value${maybeOkParam})";
1400     }
1401
1402     if ($type eq "SVGRect") {
1403         $implIncludes{"FloatRect.h"} = 1;
1404     }
1405
1406     if ($type eq "SVGPoint") {
1407         $implIncludes{"FloatPoint.h"} = 1;
1408     }
1409
1410     if ($type eq "VoidCallback") {
1411         $implIncludes{"JSCustomVoidCallback.h"} = 1;
1412         return "toVoidCallback(exec, $value${maybeOkParam})";
1413     }
1414
1415     # Default, assume autogenerated type conversion routines
1416     $implIncludes{"JS$type.h"} = 1;
1417     return "to$type($value)";
1418 }
1419
1420 sub NativeToJSValue
1421 {
1422     my $signature = shift;
1423     my $inFunctionCall = shift;
1424     my $implClassName = shift;
1425     my $implClassNameForValueConversion = shift;
1426     my $value = shift;
1427
1428     my $type = $codeGenerator->StripModule($signature->type);
1429
1430     return "jsBoolean($value)" if $type eq "boolean";
1431     return "jsNumber($value)" if $codeGenerator->IsPrimitiveType($type) or $type eq "SVGPaintType" or $type eq "DOMTimeStamp";
1432
1433     if ($codeGenerator->IsStringType($type)) {
1434         $implIncludes{"PlatformString.h"} = 1;
1435         my $conv = $signature->extendedAttributes->{"ConvertNullStringTo"};
1436         if (defined $conv) {
1437             return "jsStringOrNull($value)" if $conv eq "Null";
1438             return "jsStringOrUndefined($value)" if $conv eq "Undefined";
1439             return "jsStringOrFalse($value)" if $conv eq "False";
1440
1441             die "Unknown value for ConvertNullStringTo extended attribute";
1442         }
1443         return "jsString($value)";
1444     }
1445
1446     if ($type eq "RGBColor") {
1447         $implIncludes{"kjs_css.h"} = 1;
1448         return "getJSRGBColor(exec, $value)";
1449     }
1450
1451     if ($codeGenerator->IsPodType($type)) {
1452         $implIncludes{"JS$type.h"} = 1;
1453
1454         my $nativeType = GetNativeType($type);
1455
1456         my $getter = $value;
1457         $getter =~ s/imp->//;
1458         $getter =~ s/\(\)//;
1459
1460         my $setter = "set" . WK_ucfirst($getter);
1461
1462         if ($implClassNameForValueConversion eq "") {
1463             if (IsSVGTypeNeedingContextParameter($implClassName)) {
1464                 return "toJS(exec, new JSSVGPODTypeWrapperCreatorReadOnly<$nativeType>($value), castedThisObj->context())" if $inFunctionCall eq 1;
1465
1466                 # Special case: SVGZoomEvent - it doesn't have a context, but it's no problem, as there are no readwrite props
1467                 return "toJS(exec, new JSSVGPODTypeWrapperCreatorReadOnly<$nativeType>($value), 0)" if $implClassName eq "SVGZoomEvent";
1468                 return "toJS(exec, new JSSVGPODTypeWrapperCreatorReadOnly<$nativeType>($value), context())";
1469             } else {
1470                 return "toJS(exec, new JSSVGPODTypeWrapperCreatorReadOnly<$nativeType>($value), imp)";
1471             }
1472         } else { # These classes, always have a m_context pointer!
1473             return "toJS(exec, JSSVGPODTypeWrapperCache<$nativeType, $implClassNameForValueConversion>::lookupOrCreateWrapper(imp, &${implClassNameForValueConversion}::$getter, &${implClassNameForValueConversion}::$setter), context())";
1474         }
1475     }
1476
1477     if ($codeGenerator->IsSVGAnimatedType($type)) {
1478         $value =~ s/\(\)//;
1479         $value .= "Animated()";
1480     }
1481
1482     if ($type eq "CSSStyleDeclaration") {
1483         $implIncludes{"CSSMutableStyleDeclaration.h"} = 1;
1484     }
1485
1486     if ($type eq "NamedNodeMap") {
1487         $implIncludes{"NamedAttrMap.h"} = 1;
1488     }
1489
1490     if ($type eq "NodeList") {
1491         $implIncludes{"NameNodeList.h"} = 1;
1492     }
1493
1494     if ($type eq "EventTarget") {
1495         $implIncludes{"EventTargetNode.h"} = 1;
1496         $implIncludes{"JSEventTargetNode.h"} = 1;
1497         $implIncludes{"kjs_dom.h"} = 1;
1498     } elsif ($type eq "DOMWindow") {
1499         $implIncludes{"kjs_window.h"} = 1;
1500     } elsif ($type eq "DOMObject") {
1501         $implIncludes{"JSCanvasRenderingContext2D.h"} = 1;
1502     } elsif ($type eq "Clipboard") {
1503         $implIncludes{"kjs_events.h"} = 1;
1504         $implIncludes{"Clipboard.h"} = 1;
1505     } elsif ($type =~ /SVGPathSeg/) {
1506         $implIncludes{"JS$type.h"} = 1;
1507         $joinedName = $type;
1508         $joinedName =~ s/Abs|Rel//;
1509         $implIncludes{"$joinedName.h"} = 1;
1510     } else {
1511         # Default, include header with same name.
1512         $implIncludes{"JS$type.h"} = 1;
1513         $implIncludes{"$type.h"} = 1;
1514     }
1515
1516     return $value if $codeGenerator->IsSVGAnimatedType($type);
1517
1518     if (IsSVGTypeNeedingContextParameter($type)) {
1519         if (IsSVGTypeNeedingContextParameter($implClassName)) {
1520             if ($inFunctionCall eq 1) {
1521                 return "toJS(exec, WTF::getPtr($value), castedThisObj->context())";
1522             } else {
1523                 return "toJS(exec, WTF::getPtr($value), context())";
1524             }
1525         } else {
1526             return "toJS(exec, WTF::getPtr($value), imp)";
1527         }
1528     }
1529
1530     return "toJS(exec, WTF::getPtr($value))";
1531 }
1532
1533 sub ceilingToPowerOf2
1534 {
1535     my ($size) = @_;
1536
1537     my $powerOf2 = 1;
1538     while ($size > $powerOf2) {
1539         $powerOf2 <<= 1;
1540     }
1541
1542     return $powerOf2;
1543 }
1544
1545 # Internal Helper
1546 sub GenerateHashTable
1547 {
1548     my $object = shift;
1549
1550     my $name = shift;
1551     my $size = shift;
1552     my $keys = shift;
1553     my $values = shift;
1554     my $specials = shift;
1555     my $parameters = shift;
1556
1557     # Helpers
1558     my @table = ();
1559     my @links = ();
1560
1561     $size = ceilingToPowerOf2($size * 2);
1562
1563     my $maxDepth = 0;
1564     my $collisions = 0;
1565     my $numEntries = $size;
1566
1567     # Collect hashtable information
1568     my $i = 0;
1569     foreach (@{$keys}) {
1570         my $depth = 0;
1571         my $h = $object->GenerateHashValue($_) % $numEntries;
1572
1573         while (defined($table[$h])) {
1574             if (defined($links[$h])) {
1575                 $h = $links[$h];
1576                 $depth++;
1577             } else {
1578                 $collisions++;
1579                 $links[$h] = $size;
1580                 $h = $size;
1581                 $size++;
1582             }
1583         }
1584
1585         $table[$h] = $i;
1586
1587         $i++;
1588         $maxDepth = $depth if ($depth > $maxDepth);
1589     }
1590
1591     # Ensure table is big enough (in case of undef entries at the end)
1592     if ($#table + 1 < $size) {
1593         $#table = $size - 1;
1594     }
1595
1596     # Start outputing the hashtables
1597     my $nameEntries = "${name}Entries";
1598     $nameEntries =~ s/:/_/g;
1599
1600     if (($name =~ /Prototype/) or ($name =~ /Constructor/)) {
1601         my $type = $name;
1602         my $implClass;
1603
1604         if ($name =~ /Prototype/) {
1605             $type =~ s/Prototype.*//;
1606             $implClass = $type; $implClass =~ s/Wrapper$//;
1607             push(@implContent, "/* Hash table for prototype */\n");
1608         } else {
1609             $type =~ s/Constructor.*//;
1610             $implClass = $type; $implClass =~ s/Constructor$//;
1611             push(@implContent, "/* Hash table for constructor */\n");
1612         }
1613     } else {
1614         push(@implContent, "/* Hash table */\n");
1615     }
1616
1617     # Dump the hash table
1618     push(@implContent, "\nstatic const HashEntry $nameEntries\[\] =\n\{\n");
1619
1620     $i = 0;
1621     foreach $entry (@table) {
1622         if (defined($entry)) {
1623             my $key = @$keys[$entry];
1624
1625             push(@implContent, "    \{ \"" . $key . "\"");
1626             push(@implContent, ", \{ (intptr_t)" . @$values[$entry] . " \}");
1627             push(@implContent, ", " . @$specials[$entry]);
1628             push(@implContent, ", " . @$parameters[$entry]);
1629             push(@implContent, ", ");
1630
1631             if (defined($links[$i])) {
1632                 push(@implContent, "&" . $nameEntries . "[$links[$i]]" . " \}");
1633             } else {
1634                 push(@implContent, "0 \}");
1635             }
1636         } else {
1637             push(@implContent, "    { 0, { 0 }, 0, 0, 0 }");
1638         }
1639
1640         push(@implContent, ",") unless($i eq $size - 1);
1641         push(@implContent, "\n");
1642
1643         $i++;
1644     }
1645
1646     my $sizeMask = $numEntries - 1;
1647
1648     push(@implContent, "};\n\n");
1649     push(@implContent, "static const HashTable $name = \n");
1650     push(@implContent, "{\n    3, $size, $nameEntries, $sizeMask\n};\n\n");
1651 }
1652
1653 # Internal helper
1654 sub GenerateHashValue
1655 {
1656     my $object = shift;
1657
1658     @chars = split(/ */, $_[0]);
1659
1660     # This hash is designed to work on 16-bit chunks at a time. But since the normal case
1661     # (above) is to hash UTF-16 characters, we just treat the 8-bit chars as if they
1662     # were 16-bit chunks, which should give matching results
1663
1664     my $EXP2_32 = 4294967296;
1665
1666     my $hash = 0x9e3779b9;
1667     my $l    = scalar @chars; #I wish this was in Ruby --- Maks
1668     my $rem  = $l & 1;
1669     $l = $l >> 1;
1670
1671     my $s = 0;
1672
1673     # Main loop
1674     for (; $l > 0; $l--) {
1675         $hash   += ord($chars[$s]);
1676         my $tmp = leftShift(ord($chars[$s+1]), 11) ^ $hash;
1677         $hash   = (leftShift($hash, 16)% $EXP2_32) ^ $tmp;
1678         $s += 2;
1679         $hash += $hash >> 11;
1680         $hash %= $EXP2_32;
1681     }
1682
1683     # Handle end case
1684     if ($rem != 0) {
1685         $hash += ord($chars[$s]);
1686         $hash ^= (leftShift($hash, 11)% $EXP2_32);
1687         $hash += $hash >> 17;
1688     }
1689
1690     # Force "avalanching" of final 127 bits
1691     $hash ^= leftShift($hash, 3);
1692     $hash += ($hash >> 5);
1693     $hash = ($hash% $EXP2_32);
1694     $hash ^= (leftShift($hash, 2)% $EXP2_32);
1695     $hash += ($hash >> 15);
1696     $hash = $hash% $EXP2_32;
1697     $hash ^= (leftShift($hash, 10)% $EXP2_32);
1698
1699     # this avoids ever returning a hash code of 0, since that is used to
1700     # signal "hash not computed yet", using a value that is likely to be
1701     # effectively the same as 0 when the low bits are masked
1702     $hash = 0x80000000 if ($hash == 0);
1703
1704     return $hash;
1705 }
1706
1707 # Internal helper
1708 sub WriteData
1709 {
1710     if (defined($IMPL)) {
1711         # Write content to file.
1712         print $IMPL @implContentHeader;
1713
1714         foreach my $implInclude (sort keys(%implIncludes)) {
1715             my $checkType = $implInclude;
1716             $checkType =~ s/\.h//;
1717
1718             print $IMPL "#include \"$implInclude\"\n" unless $codeGenerator->IsSVGAnimatedType($checkType);
1719         }
1720
1721         print $IMPL @implContent;
1722         close($IMPL);
1723         undef($IMPL);
1724
1725         @implHeaderContent = ();
1726         @implContent = ();
1727         %implIncludes = ();
1728     }
1729
1730     if (defined($HEADER)) {
1731         # Write content to file.
1732         print $HEADER @headerContent;
1733         close($HEADER);
1734         undef($HEADER);
1735
1736         @headerContent = ();
1737     }
1738 }
1739
1740 sub constructorFor
1741 {
1742     my $className = shift;
1743     my $protoClassName = shift;
1744     my $interfaceName = shift;
1745     my $canConstruct = shift;
1746
1747 my $implContent = << "EOF";
1748 class ${className}Constructor : public DOMObject {
1749 public:
1750     ${className}Constructor(ExecState* exec)
1751     {
1752         setPrototype(exec->lexicalInterpreter()->builtinObjectPrototype());
1753         putDirect(exec->propertyNames().prototype, ${protoClassName}::self(exec), None);
1754     }
1755     virtual bool getOwnPropertySlot(ExecState*, const Identifier&, PropertySlot&);
1756     JSValue* getValueProperty(ExecState*, int token) const;
1757     virtual const ClassInfo* classInfo() const { return &info; }
1758     static const ClassInfo info;
1759
1760     virtual bool implementsHasInstance() const { return true; }
1761 EOF
1762
1763     if ($canConstruct) {
1764 $implContent .= << "EOF";
1765     virtual bool implementsConstruct() const { return true; }
1766     virtual JSObject* construct(ExecState* exec, const List& args) { return static_cast<JSObject*>(toJS(exec, new $interfaceName)); }
1767 EOF
1768     }
1769
1770 $implContent .= << "EOF";
1771 };
1772
1773 const ClassInfo ${className}Constructor::info = { "${interfaceName}Constructor", 0, &${className}ConstructorTable };
1774
1775 bool ${className}Constructor::getOwnPropertySlot(ExecState* exec, const Identifier& propertyName, PropertySlot& slot)
1776 {
1777     return getStaticValueSlot<${className}Constructor, DOMObject>(exec, &${className}ConstructorTable, this, propertyName, slot);
1778 }
1779
1780 JSValue* ${className}Constructor::getValueProperty(ExecState*, int token) const
1781 {
1782     // The token is the numeric value of its associated constant
1783     return jsNumber(token);
1784 }
1785
1786 EOF
1787
1788     return $implContent;
1789 }
1790
1791 sub prototypeFunctionFor
1792 {
1793     my ($className, $functionName) = @_;
1794     my $name = $className . "PrototypeFunction" . $functionName;
1795
1796 my $implContent = << "EOF";
1797 class ${name} : public KJS::InternalFunctionImp {
1798 public: \
1799     static KJS::InternalFunctionImp* create(KJS::ExecState* exec, int len, const KJS::Identifier& name)
1800     {
1801         return new ${name}(exec, len, name);
1802     }
1803
1804     ${name}(KJS::ExecState* exec, int len, const KJS::Identifier& name)
1805         : KJS::InternalFunctionImp(static_cast<KJS::FunctionPrototype*>(exec->lexicalInterpreter()->builtinFunctionPrototype()), name)
1806     {
1807         put(exec, exec->propertyNames().length, KJS::jsNumber(len), KJS::DontDelete | KJS::ReadOnly | KJS::DontEnum);
1808     }
1809
1810     virtual KJS::JSValue* callAsFunction(KJS::ExecState*, KJS::JSObject*, const KJS::List&);
1811 };
1812
1813 EOF
1814
1815     return $implContent;
1816 }
1817
1818 1;