Add Python flow to bindings generation, move dummy-generating IDL files over

Source/bindings/scripts/deprecated_code_generator_v8.pm

 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org>
 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org>
 # Copyright (C) 2006 Apple Computer, Inc.
 # Copyright (C) 2007, 2008, 2009, 2012 Google Inc.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies)
 # Copyright (C) 2012 Ericsson AB. All rights reserved.
@@ skipping 89 matching lines @@
         } else {
             $code .= $content;
         }
     }
     $code .=  $footer . "\n" if $footer;
     $code .= "/* END " . $object->{name} . " */\n" if $verbose;
     return $code;
 }
 
 
-package CodeGeneratorV8;
+package deprecated_code_generator_v8;
 
 use strict;
 use Cwd;
 use File::Basename;
 use File::Find;
 use File::Spec;
 
 my $idlDocument;
 my $idlDirectories;
 my $preprocessor;
-my $defines;
 my $verbose;
 my $interfaceIdlFiles;
 my $writeFileOnlyIfChanged;
 my $sourceRoot;
 
 # Cache of IDL file pathnames.
 my $idlFiles;
 my $cachedInterfaces = {};
 
 my %implIncludes = ();
@@ skipping 122 matching lines @@
 EOF
 
 sub new
 {
     my $object = shift;
     my $reference = { };
 
     $idlDocument = shift;
     $idlDirectories = shift;
     $preprocessor = shift;
-    $defines = shift;
     $verbose = shift;
     $interfaceIdlFiles = shift;
     $writeFileOnlyIfChanged = shift;
 
     $sourceRoot = getcwd();
 
     bless($reference, $object);
     return $reference;
 }
 
@@ skipping 29 matching lines @@
         return $cachedInterfaces->{$interfaceName};
     }
 
     # Step #1: Find the IDL file associated with 'interface'
     my $filename = IDLFileForInterface($interfaceName)
       or die("Could NOT find IDL file for interface \"$interfaceName\" $!\n");
 
     print "  |  |>  Parsing parent IDL \"$filename\" for interface \"$interfaceName\"\n" if $verbose;
 
     # Step #2: Parse the found IDL file (in quiet mode).
-    my $parser = IDLParser->new(1);
-    my $document = $parser->Parse($filename, $defines, $preprocessor);
+    my $parser = deprecated_idl_parser->new(1);
+    my $document = $parser->Parse($filename, $preprocessor);
 
     foreach my $interface (@{$document->interfaces}) {
         if ($interface->name eq $interfaceName or $interface->isPartial) {
             $cachedInterfaces->{$interfaceName} = $interface;
             return $interface;
         }
     }
 
     die("Could NOT find interface definition for $interfaceName in $filename");
 }
@@ skipping 5710 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;