Add support for [NoInterfaceObject] extended attribute to bindings generator

Source/bindings/scripts/CodeGenerator.pm

 #
 # WebKit IDL parser
 #
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2007, 2008, 2009, 2010 Apple Inc. All rights reserved.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
 #
 # This library is free software; you can redistribute it and/or
 # modify it under the terms of the GNU Library General Public
 # License as published by the Free Software Foundation; either
 # version 2 of the License, or (at your option) any later version.
 #
 # This library is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # Library General Public License for more details.
 #
 # You should have received a copy of the GNU Library General Public License
 # along with this library; see the file COPYING.LIB.  If not, write to
 # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 # Boston, MA 02110-1301, USA.
 #
 
 package CodeGenerator;
 
 use strict;
 
+use File::Basename;
 use File::Find;
 
 my $useDocument = "";
 my $useOutputDir = "";
 my $useOutputHeadersDir = "";
 my $useDirectories = "";
 my $preprocessor;
 my $defines = "";
 my $verbose = 0;
 
@@ skipping 195 matching lines @@
         foreach my $function (@{$currentInterface->functions}) {
             if ($function->signature->name eq $functionName) {
                 $indexer = $function->signature;
                 return 'prune';
             }
         }
     });
     return $indexer;
 }
 
-sub IDLFileForInterface
-{
+sub PopulateIDLFiles {
     my $object = shift;
-    my $interfaceName = shift;
 
     unless ($idlFiles) {
         my $sourceRoot = $ENV{SOURCE_ROOT};
         my @directories = map { $_ = "$sourceRoot/$_" if $sourceRoot && -d "$sourceRoot/$_"; $_ } @$useDirectories;
         push(@directories, ".");
 
         $idlFiles = { };
 
         my $wanted = sub {
             $idlFiles->{$1} = $File::Find::name if /^([A-Z].*)\.idl$/;
             $File::Find::prune = 1 if /^\../;
         };
         find($wanted, @directories);
     }
+}
+
+# As per Web IDL specification, for each interface that is a non-callback interface that is
+# not declared with the [NoInterfaceObject] extended attribute, a corresponding property must
+# exist on the ECMAScript global object.
+sub GenerateDOMWindowConstructorAttributes
+{
+    my $object = shift;
+
+    $object->PopulateIDLFiles();
+
+    my @normalAttributes;
+    my @enabledAtRuntimeAttributes;
+    my @enabledPerContextAttributes;
+
+    foreach my $idlFile (values $idlFiles) {
+        my $interfaceName = fileparse(basename($idlFile), ".idl");
+        # Ignore test IDL files.
+        next if $interfaceName =~ /^Test/;
+
+        # Optimization: we avoid full Web IDL parsing since we are merely interested
+        # in the interface / exception's extended attributes.
+        my $parser = IDLParser->new(1);
+        my $extendedAttributes = $parser->ParseOnlyExtendedAttributes($idlFile, $defines, $preprocessor);
+
+        next if ($extendedAttributes->{"NoInterfaceObject"} || $extendedAttributes->{"Callback"});
+
+        my $attribute = domAttribute->new();
+        $attribute->type("attribute");
+        $attribute->signature(domSignature->new());
+        $attribute->signature->type("${interfaceName}Constructor");
+
+        if ($extendedAttributes->{"InterfaceName"}) {
+            $attribute->signature->name($extendedAttributes->{"InterfaceName"});
+        } else {
+            $attribute->signature->name($interfaceName);
+        }
+
+        # 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 ($extendedAttributes->{"NamedConstructor"}) {
+            $namedConstructorAttribute = domAttribute->new();
+            $namedConstructorAttribute->type("attribute");
+            $namedConstructorAttribute->signature(domSignature->new());
+            $namedConstructorAttribute->signature->type("${interfaceName}ConstructorConstructor");
+            my $constructorName = (keys $extendedAttributes->{"NamedConstructor"})[0];
+            $namedConstructorAttribute->signature->name($constructorName);
+        }
+
+        my $attrExtendedAttributeList = {};
+        if ($extendedAttributes->{"Conditional"}) {
+            $attrExtendedAttributeList->{"Conditional"} = $extendedAttributes->{"Conditional"};
+        }
+        if ($extendedAttributes->{"EnabledAtRuntime"}) {
+            $attrExtendedAttributeList->{"EnabledAtRuntime"} = $extendedAttributes->{"EnabledAtRuntime"};
+            push(@enabledAtRuntimeAttributes, $attribute);
+            push(@enabledAtRuntimeAttributes, $namedConstructorAttribute) if $namedConstructorAttribute;
+        } elsif ($extendedAttributes->{"EnabledPerContext"}) {
+            $attrExtendedAttributeList->{"EnabledPerContext"} = $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;
+    }
+
+    return (\@normalAttributes, \@enabledAtRuntimeAttributes, \@enabledPerContextAttributes);
+}
+
+sub IDLFileForInterface
+{
+    my $object = shift;
+    my $interfaceName = shift;
+
+    $object->PopulateIDLFiles();
 
     return $idlFiles->{$interfaceName};
 }
 
 sub ParseInterface
 {
     my $object = shift;
     my $interfaceName = shift;
 
     return undef if $interfaceName eq 'Object';
@@ skipping 489 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;