Fixes to make scripts generate includes with paths.

Source/core/scripts/InFilesCompiler.pm

 #!/usr/bin/perl -w
 
 # Copyright (C) 2011 Adam Barth <abarth@webkit.org>
 #
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # are met:
 # 1. Redistributions of source code must retain the above copyright
 #    notice, this list of conditions and the following disclaimer.
 # 2. Redistributions in binary form must reproduce the above copyright
@@ skipping 19 matching lines @@
 use Getopt::Long;
 use File::Path;
 use File::Spec;
 use IO::File;
 use InFilesParser;
 
 require Config;
 
 package InFilesCompiler;
 
+use FindBin;                 # locate this script
+use lib "$FindBin::Bin/../../../../../third_party/WebKit/Source/bindings/scripts";  # use the binding generator directory.

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

Woah there.  The code shouldn't know that it's contained in a
"third_party/WebKit" directory.  That's likely to change in the future.  We
don't want to hard-code that information into the code.  That makes the system
brittle and harder to change in the future.

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

Someone will need to know how to find this piece of code, but I'll find a better
way.

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

-I flags to the perl executable was a better way.

+#use lib "$FindBin::Bin/../../bindings/scripts";  # use the binding generator directory.
+use idltopath;
+
 my $inputFile = "";
 my $outputDir = ".";
 my $defaultItemFactory;
 
 my %parsedItems;
 my %parsedParameters;
 
 sub itemHandler($$$)
 {
     my ($itemName, $property, $value) = @_;
@@ skipping 59 matching lines @@
     die "Failed to read from file: $inputFile" if (keys %parsedItems == 0);
 
     &$generateCode(\%parsedParameters, \%parsedItems);
 }
 
 sub license()
 {
     return "/*
  * THIS FILE WAS AUTOMATICALLY GENERATED, DO NOT EDIT.
  *
+ * This file was generated by the make_names.pl/InFilesCompiler.pm script.
+ *
  * Copyright (C) 2011 Google Inc.  All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
@@ skipping 140 matching lines @@
     print F "\n";
 
     my %includedInterfaces = ();
 
     for my $itemName (sort keys %parsedItems) {
         my $conditional = $parsedItems{$itemName}{"conditional"};
         my $interfaceName = $object->interfaceForItem($itemName);
 
         next if defined($includedInterfaces{$interfaceName});
         $includedInterfaces{$interfaceName} = 1;
+        my $includepath = idl_to_path($interfaceName);
 
         print F "#if " . $object->conditionalStringFromAttributeValue($conditional) . "\n" if $conditional;
-        print F "#include \"$interfaceName.h\"\n";
+        print F "#include \"$includepath$interfaceName.h\"\n";
         print F "#include \"V8$interfaceName.h\"\n";
         print F "#endif\n" if $conditional;
     }
 
     print F "\n";
     print F "#endif // ${namespace}Headers_h\n";
 
     close F;
 }
 
 1;