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