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