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