Revert IDL compiler build flow to Perl, rename 'deprecated'

Source/bindings/scripts/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 deprecated_code_generator_v8;
+package code_generator_v8;
 
 use strict;
 use Cwd;
 use File::Basename;
 use File::Find;
 use File::Spec;
 
 my $idlDocument;
 my $idlDirectories;
 my $preprocessor;
@@ skipping 176 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 = deprecated_idl_parser->new(1);
+    my $parser = 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 5740 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;