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

Source/bindings/scripts/deprecated_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 IDLParser;
+package deprecated_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 13 matching lines @@
     type => '$',
     parameters => '@',
 });
 
 # Used to represent 'interface' blocks
 struct( domInterface => {
     name => '$',      # Class identifier
     parent => '$',      # Parent class identifier
     constants => '@',    # List of 'domConstant'
     functions => '@',    # List of 'domFunction'
-    attributes => '@',    # List of 'domAttribute'    
+    attributes => '@',    # List of 'domAttribute'
     extendedAttributes => '$', # Extended attributes
     constructors => '@', # Constructors, list of 'domFunction'
     customConstructors => '@', # Custom constructors, list of 'domFunction'
     isException => '$', # Used for exception interfaces
     isCallback => '$', # Used for callback interfaces
     isPartial => '$', # Used for partial interfaces
 });
 
 # Used to represent domInterface contents
 struct( domFunction => {
@@ skipping 78 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 .= " IDLParser.pm:" . $line;
+        $msg .= " deprecated_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 .= " IDLParser.pm:" . $line;
+        $msg .= " deprecated_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 .= " IDLParser.pm:" . $line;
+        $msg .= " deprecated_idl_parser.pm:" . $line;
     }
     die $msg if %{$typedef->extendedAttributes};
 }
 
 sub Parse
 {
     my $self = shift;
     my $fileName = shift;
-    my $defines = shift;
     my $preprocessor = shift;
+    my $defines = "";
 
     my @definitions = ();
 
     my @lines = applyPreprocessor($fileName, $defines, $preprocessor);
     $self->{Line} = $lines[0];
     $self->{DocumentContent} = join(' ', @lines);
 
     $self->getToken();
     eval {
         my $result = $self->parseDefinitions();
@@ skipping 165 matching lines @@
         }
     }
     $self->applyTypedefs(\@definitions);
     return \@definitions;
 }
 
 sub applyTypedefs
 {
     my $self = shift;
     my $definitions = shift;
-   
+
     if (!%typedefs) {
         return;
     }
     foreach my $definition (@$definitions) {
         if (ref($definition) eq "domInterface") {
             foreach my $constant (@{$definition->constants}) {
                 if (exists $typedefs{$constant->type}) {
                     my $typedef = $typedefs{$constant->type};
                     $self->assertNoExtendedAttributesInTypedef($constant->type, __LINE__);
                     $constant->type($typedef->type);
@@ skipping 1835 matching lines @@
             $customConstructor->overloadedIndex($index++);
             push(@{$interface->customConstructors}, $customConstructor);
         }
         delete $extendedAttributeList->{"CustomConstructors"};
         $extendedAttributeList->{"CustomConstructor"} = "VALUE_IS_MISSING";
     }
     $interface->extendedAttributes($extendedAttributeList);
 }
 
 1;