Add support for [NoInterfaceObject] extended attribute to bindings generator

Source/bindings/scripts/CodeGeneratorV8.pm

 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org>
 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org>
 # Copyright (C) 2006 Apple Computer, Inc.
 # Copyright (C) 2007, 2008, 2009, 2012 Google Inc.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies)
 # Copyright (C) 2012 Ericsson AB. All rights reserved.
@@ skipping 3124 matching lines @@
         if ($interfaceName eq "DOMWindow" && $attribute->signature->extendedAttributes->{"Unforgeable"}) {
             push(@disallowsShadowing, $attribute);
         } elsif ($attribute->signature->extendedAttributes->{"EnabledAtRuntime"}) {
             push(@enabledAtRuntimeAttributes, $attribute);
         } elsif ($attribute->signature->extendedAttributes->{"EnabledPerContext"}) {
             push(@enabledPerContextAttributes, $attribute);
         } else {
             push(@normalAttributes, $attribute);
         }
     }
+
+    # Generate DOMWindow Constructor attributes.
+    if ($interfaceName eq "DOMWindow") {
+        foreach my $otherInterface ($codeGenerator->GetAllInterfaces()) {
+            my $otherInterfaceName = $otherInterface->name;
+            if ($otherInterface->extendedAttributes->{"NoInterfaceObject"}) {
+                next;
+            }
+            my $attribute = domAttribute->new();
+            $attribute->type("attribute");
+            $attribute->signature(domSignature->new());
+            $attribute->signature->type("${otherInterfaceName}Constructor");
+
+            if ($otherInterface->extendedAttributes->{"InterfaceName"}) {
+                $attribute->signature->name($otherInterface->extendedAttributes->{"InterfaceName"});
+            } else {
+                $attribute->signature->name($otherInterfaceName);
+            }
+
+            # In addition to the regular property, for every [NamedConstructor] extended attribute on an interface,
+            # a corresponding property MUST exist on the ECMAScript global object.
+            my $namedConstructorAttribute;
+            if ($otherInterface->extendedAttributes->{"NamedConstructor"}) {
+                $namedConstructorAttribute = domAttribute->new();
+                $namedConstructorAttribute->type("attribute");
+                $namedConstructorAttribute->signature(domSignature->new());
+                $namedConstructorAttribute->signature->type("${otherInterfaceName}ConstructorConstructor");
+                $namedConstructorAttribute->signature->name(@{$otherInterface->constructors}[0]->signature->extendedAttributes->{"NamedConstructor"});
+            }
+
+            my $attrExtendedAttributeList = {};
+            if ($otherInterface->extendedAttributes->{"Conditional"}) {
+                $attrExtendedAttributeList->{"Conditional"} = $otherInterface->extendedAttributes->{"Conditional"};
+            }
+            if ($otherInterface->extendedAttributes->{"EnabledAtRuntime"}) {
+                $attrExtendedAttributeList->{"EnabledAtRuntime"} = $otherInterface->extendedAttributes->{"EnabledAtRuntime"};
+                push(@enabledAtRuntimeAttributes, $attribute);
+                push(@enabledAtRuntimeAttributes, $namedConstructorAttribute) if $namedConstructorAttribute;
+            } elsif ($otherInterface->extendedAttributes->{"EnabledPerContext"}) {
+                $attrExtendedAttributeList->{"EnabledPerContext"} = $otherInterface->extendedAttributes->{"EnabledPerContext"};
+                push(@enabledPerContextAttributes, $attribute);
+                push(@enabledPerContextAttributes, $namedConstructorAttribute) if $namedConstructorAttribute;
+            } else {
+                push(@normalAttributes, $attribute);
+                push(@normalAttributes, $namedConstructorAttribute) if $namedConstructorAttribute;
+            }
+            $attribute->signature->extendedAttributes($attrExtendedAttributeList);
+            $namedConstructorAttribute->signature->extendedAttributes($attrExtendedAttributeList) if $namedConstructorAttribute;
+        }
+    }
+
     $attributes = \@normalAttributes;
     # Put the attributes that disallow shadowing on the shadow object.
     if (@disallowsShadowing) {
         my $code = "";
         $code .= "static const V8DOMConfiguration::BatchedAttribute shadowAttrs[] = {\n";
         $code .= GenerateBatchedAttributeData($interface, \@disallowsShadowing);
         $code .= "};\n\n";
         AddToImplContent($code);
     }
 
@@ skipping 1577 matching lines @@
 
 sub GetPassRefPtrType
 {
     my $v8InterfaceName = shift;
 
     my $angleBracketSpace = $v8InterfaceName =~ />$/ ? " " : "";
     return "PassRefPtr<${v8InterfaceName}${angleBracketSpace}>";
 }
 
 1;