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