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
@@ skipping 73 matching lines @@
 );
 
 my %svgTypeWithWritablePropertiesNeedingTearOff = (
     "SVGPoint" => 1,
     "SVGMatrix" => 1
 );
 
 # Cache of IDL file pathnames.
 my $idlFiles;
 my $cachedInterfaces = {};
+my $didCacheAllInterfaces = 0;
 
 # Default constructor
 sub new
 {
     my $object = shift;
     my $reference = { };
 
     $useDirectories = shift;
     $useOutputDir = shift;
     $useOutputHeadersDir = shift;
@@ skipping 131 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);
     }
+}
+
+sub GetAllInterfaces
+{
+    my $object = shift;
+
+    unless ($didCacheAllInterfaces) {

[haraken, 2013/04/22 11:44:50]

GetAllInterfaces() is called only once (i.e. from DOMWindow), so it wouldn't be
helpful to cache it, right?

+        $object->PopulateIDLFiles();
+
+        foreach my $filename (values $idlFiles) {
+            my $parser = IDLParser->new(1);
+            my $document = $parser->Parse($filename, $defines, $preprocessor);
+
+            foreach my $interface (@{$document->interfaces}) {
+                $cachedInterfaces->{$interface->name} = $interface;
+            }
+        }
+
+        $didCacheAllInterfaces = 1;
+    }
+
+    return (values $cachedInterfaces);
+}
+
+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;