Fixes to make scripts generate includes with paths.

Source/bindings/scripts/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 29 matching lines @@
 use CodeGenerator;
 
 my @idlDirectories;
 my $outputDirectory;
 my $outputHeadersDirectory;
 my $defines;
 my $filename;
 my $preprocessor;
 my $verbose;
 my $supplementalDependencyFile;
+my $idlToPathFile;
 my $additionalIdlFiles;
 my $idlAttributesFile;
 
 GetOptions('include=s@' => \@idlDirectories,
            'outputDir=s' => \$outputDirectory,
            'outputHeadersDir=s' => \$outputHeadersDirectory,
            'defines=s' => \$defines,
            'filename=s' => \$filename,
            'preprocessor=s' => \$preprocessor,
            'verbose' => \$verbose,
            'supplementalDependencyFile=s' => \$supplementalDependencyFile,
+           'idlToPathFile=s' => \$idlToPathFile,
            'additionalIdlFiles=s' => \$additionalIdlFiles,
            'idlAttributesFile=s' => \$idlAttributesFile);
 
 my $targetIdlFile = $ARGV[0];
 
 die('Must specify input file.') unless defined($targetIdlFile);
 die('Must specify output directory.') unless defined($outputDirectory);
+die('Must specify idlToPathFile.') unless defined($idlToPathFile);
+
+# Pass some information to a low level function the ugly way.
+$ENV{"IDLTOPATHFILE"} = $idlToPathFile;

[abarth-chromium, 2013/04/25 14:14:24]

We should find a way to avoid messing with the environment.  Explicit data flow
is much better than implicit data flow via global variables.

[Daniel Bratell, 2013/04/25 21:24:26]

This is the part where I just couldn't find a good solution. Maybe because I
don't know Perl well enough. But I can keep digging.

[Daniel Bratell, 2013/04/25 21:26:40]

I did change it to use an explicit init function. Seems to work and is much less
magic.

 $defines = "" unless defined($defines);
 
 if (!$outputHeadersDirectory) {
     $outputHeadersDirectory = $outputDirectory;
 }
 $targetIdlFile = Cwd::realpath($targetIdlFile);
 if ($verbose) {
     print "$targetIdlFile\n";
 }
 my $targetInterfaceName = fileparse(basename($targetIdlFile), ".idl");
@@ skipping 210 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).
 ";
     }
 }