Support partial interface for test support idls

Source/bindings/scripts/deprecated_generate_bindings.pl

 #!/usr/bin/perl -w
 #
 # Copyright (C) 2005 Apple Computer, Inc.
 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
 #
 # This file is part of WebKit
 #
 # 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
@@ skipping 20 matching lines @@
 
 use deprecated_idl_parser;
 use deprecated_code_generator_v8;
 use deprecated_idl_serializer;
 
 my @idlDirectories;
 my $outputDirectory;
 my $preprocessor;
 my $verbose;
 my $interfaceDependenciesFile;
+my $testSupportInterfaceDependenciesFile;
 my $additionalIdlFiles;
 my $idlAttributesFile;
 my $writeFileOnlyIfChanged;
 
 GetOptions('include=s@' => \@idlDirectories,
            'outputDir=s' => \$outputDirectory,
            'preprocessor=s' => \$preprocessor,
            'verbose' => \$verbose,
            'interfaceDependenciesFile=s' => \$interfaceDependenciesFile,
+           'testSupportInterfaceDependenciesFile=s' => \$testSupportInterfaceDependenciesFile,
            'additionalIdlFiles=s' => \$additionalIdlFiles,
            'idlAttributesFile=s' => \$idlAttributesFile,
            'write-file-only-if-changed=s' => \$writeFileOnlyIfChanged);
 
 my $targetIdlFile = $ARGV[0];
 
 die('Must specify input file.') unless defined($targetIdlFile);
 die('Must specify output directory.') unless defined($outputDirectory);
 
 $targetIdlFile = Cwd::realpath($targetIdlFile);
 if ($verbose) {
     print "$targetIdlFile\n";
 }
 my $targetInterfaceName = fileparse(basename($targetIdlFile), ".idl");
 
 my $idlFound = 0;
 my @dependencyIdlFiles;
+my @testSupportDependencyIdlfiles;
 if ($interfaceDependenciesFile) {
     # The format of the interface dependencies file:
     #
     # Window.idl P.idl Q.idl R.idl
     # Document.idl S.idl
     # Event.idl
     # ...
     #
     # The above indicates that Window.idl depends on P.idl, Q.idl, and R.idl,
     # Document.idl depends on S.idl, and Event.idl depends on no IDLs.
     # A dependency IDL file (one that is depended on by another IDL, e.g. P.idl
     # in the above) does not have its own entry in the dependency file.
     open FH, "< $interfaceDependenciesFile" or die "Cannot open $interfaceDependenciesFile\n";
     while (my $line = <FH>) {
         my ($idlFile, @followingIdlFiles) = split(/\s+/, $line);
         if ($idlFile and basename($idlFile) eq basename($targetIdlFile)) {
             $idlFound = 1;
             # We sort the dependency IDL files so that the corresponding code is generated
             # in a consistent order. This is important for the bindings tests.
             @dependencyIdlFiles = sort @followingIdlFiles;
         }
     }
     close FH;
 
+    if ($testSupportInterfaceDependenciesFile) {
+        open FH, "< $testSupportInterfaceDependenciesFile" or die "Cannot open $testSupportInterfaceDependenciesFile\n";
+        while (my $line = <FH>) {
+            my ($idlFile, @followingIdlFiles) = split(/\s+/, $line);
+            if ($idlFile and basename($idlFile) eq basename($targetIdlFile)) {
+                $idlFound = 1;
+                @testSupportDependencyIdlfiles = sort @followingIdlFiles;
+            }
+        }
+        close FH;
+    }
+
     # $additionalIdlFiles is list of IDL files which should not be included in
     # DerivedSources*.cpp (i.e. they are not described in the interface
     # dependencies file) but should generate .h and .cpp files.
     if (!$idlFound and $additionalIdlFiles) {
         my @idlFiles = shellwords($additionalIdlFiles);
         $idlFound = grep { $_ and basename($_) eq basename($targetIdlFile) } @idlFiles;
     }
 
     if (!$idlFound) {
         # We generate empty .h and .cpp files just to tell build scripts that .h and .cpp files are created.
         generateEmptyHeaderAndCpp($targetInterfaceName, $outputDirectory);
         exit 0;
     }
 }
 
 # Parse the target IDL file.
 my $targetParser = deprecated_idl_parser->new(!$verbose);
 my $targetDocument = $targetParser->Parse($targetIdlFile, $preprocessor);
 
 if ($idlAttributesFile) {
     my $idlAttributes = loadIDLAttributes($idlAttributesFile);
     checkIDLAttributes($idlAttributes, $targetDocument, basename($targetIdlFile));
 }
 
+push @dependencyIdlFiles, @testSupportDependencyIdlfiles;
 foreach my $idlFile (@dependencyIdlFiles) {
     next if $idlFile eq $targetIdlFile;
 
     my $interfaceName = fileparse(basename($idlFile), ".idl");
     my $parser = deprecated_idl_parser->new(!$verbose);
     my $document = $parser->Parse($idlFile, $preprocessor);
 
     foreach my $interface (@{$document->interfaces}) {
         if (!$interface->isPartial || $interface->name eq $targetInterfaceName) {
             my $targetDataNode;
@@ skipping 170 matching lines @@
                 last OUTER;
             }
         }
     }
     if ($error) {
         die "IDL ATTRIBUTE CHECKER ERROR: $error
 If you want to add a new IDL attribute, you need to add it to bindings/scripts/IDLAttributes.txt and add explanations to the Blink IDL document (http://chromium.org/blink/webidl).
 ";
     }
 }