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

Source/bindings/scripts/idl_parser.pm

 #
 # KDOM IDL parser
 #
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 #
 # 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
 # version 2 of the License, or (at your option) any later version.
 #
 # This library is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # Library General Public License for more details.
 #
 # You should have received a copy of the GNU Library General Public License
 # along with this library; see the file COPYING.LIB.  If not, write to
 # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 # Boston, MA 02110-1301, USA.
 #
 
-package deprecated_idl_parser;
+package idl_parser;
 
 use strict;
 
 use preprocessor;
 use Class::Struct;
 
 use constant StringToken => 0;
 use constant IntegerToken => 1;
 use constant FloatToken => 2;
 use constant IdentifierToken => 3;
@@ skipping 112 matching lines @@
 }
 
 sub assertTokenValue
 {
     my $self = shift;
     my $token = shift;
     my $value = shift;
     my $line = shift;
     my $msg = "Next token should be " . $value . ", but " . $token->value() . " at " . $self->{Line};
     if (defined ($line)) {
-        $msg .= " deprecated_idl_parser.pm:" . $line;
+        $msg .= " idl_parser.pm:" . $line;
     }
     die $msg unless $token->value() eq $value;
 }
 
 sub assertTokenType
 {
     my $self = shift;
     my $token = shift;
     my $type = shift;
     die "Next token's type should be " . $type . ", but " . $token->type() . " at " . $self->{Line} unless $token->type() eq $type;
 }
 
 sub assertUnexpectedToken
 {
     my $self = shift;
     my $token = shift;
     my $line = shift;
     my $msg = "Unexpected token " . $token . " at " . $self->{Line};
     if (defined ($line)) {
-        $msg .= " deprecated_idl_parser.pm:" . $line;
+        $msg .= " idl_parser.pm:" . $line;
     }
     die $msg;
 }
 
 sub assertNoExtendedAttributesInTypedef
 {
     my $self = shift;
     my $name = shift;
     my $line = shift;
     my $typedef = $typedefs{$name};
     my $msg = "Unexpected extendedAttributeList in typedef \"$name\" at " . $self->{Line};
     if (defined ($line)) {
-        $msg .= " deprecated_idl_parser.pm:" . $line;
+        $msg .= " idl_parser.pm:" . $line;
     }
     die $msg if %{$typedef->extendedAttributes};
 }
 
 sub Parse
 {
     my $self = shift;
     my $fileName = shift;
     my $preprocessor = shift;
     my $defines = "";
@@ skipping 2041 matching lines @@
             $customConstructor->overloadedIndex($index++);
             push(@{$interface->customConstructors}, $customConstructor);
         }
         delete $extendedAttributeList->{"CustomConstructors"};
         $extendedAttributeList->{"CustomConstructor"} = "VALUE_IS_MISSING";
     }
     $interface->extendedAttributes($extendedAttributeList);
 }
 
 1;