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 224 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$/;
+            $idlFiles->{$1} = $File::Find::name if /^(?!Test)([A-Z].*)\.idl$/;
             $File::Find::prune = 1 if /^\../;
         };
         find($wanted, @directories);
     }
+}
+
+sub GetAllInterfaces
+{
+    my $object = shift;
+
+    $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;
+        }
+    }
+
+    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;