Use static type information from IDL to streamline the wrapping and unwrappin...

webkit/port/bindings/scripts/IDLParser.pm

 # 
 # KDOM IDL parser
 #
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 # 
 # This file is part of the KDE project
 # 
 # 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
@@ skipping 23 matching lines @@
 
 # Helper variables
 my @temporaryContent = "";
 
 my $parseMode = MODE_UNDEF;
 my $preservedParseMode = MODE_UNDEF;
 
 my $beQuiet; # Should not display anything on STDOUT?
 my $document = 0; # Will hold the resulting 'idlDocument'
 
+my $directive = "";
+
 # Default Constructor
 sub new
 {
     my $object = shift;
     my $reference = { };
 
     $document = 0;
     $beQuiet = shift;
 
     bless($reference, $object);
     return $reference;
 }
 
+
+sub ParseInheritance

[Mads Ager (chromium), 2008/09/23 06:45:09]

Add a one line comment stating what the return value will be?

+{
+    my $object = shift;
+    my $fileName = shift;
+    my $defines = shift;
+    my $preprocessor = shift;
+
+    $directive = "inheritance";
+    return $object->ParseImpl($fileName, $defines, $preprocessor);
+}
+
 # Returns the parsed 'idlDocument'
 sub Parse
 {
     my $object = shift;
     my $fileName = shift;
     my $defines = shift;
     my $preprocessor = shift;
 
+    $directive = "";
+    return $object->ParseImpl($fileName, $defines, $preprocessor);
+}
+
+sub ParseImpl
+{
+    my $object = shift;
+    my $fileName = shift;
+    my $defines = shift;
+    my $preprocessor = shift;
+
     if (!$preprocessor) {
         $preprocessor = "/usr/bin/gcc -E -P -x c++";
     }
 
     if (!$defines) {
         $defines = "";
     }
 
     print " | *** Starting to parse $fileName...\n |\n" unless $beQuiet;
 
@@ skipping 156 matching lines @@
         # Inheritance detection
         my @interfaceParents = split(/,/, $interfaceBase);
         foreach(@interfaceParents) {
             my $line = $_;
             $line =~ s/\s*//g;
 
             my $arrayRef = $dataNode->parents;
             push(@$arrayRef, $line);
         }
 
+        return if ($directive eq "inheritance");
+
         $interfaceData =~ s/[\n\r]/ /g;
         my @interfaceMethods = split(/;/, $interfaceData);
 
         foreach my $line (@interfaceMethods) {
             if ($line =~ /[ \t]attribute[ \t]/) {
                 $line =~ /$IDLStructure::interfaceAttributeSelector/;
 
                 my $attributeType = (defined($1) ? $1 : die("Parsing error!\nSource:\n$line\n)"));
                 my $attributeExtendedAttributes = (defined($2) ? $2 : " "); chop($attributeExtendedAttributes);
 
@@ skipping 154 matching lines @@
 
         # FIXME: Check if alias is already in aliases
         my $aliases = $document->aliases;
         $aliases->{$interfaceName} = $wrapperName;
     }
 
     @temporaryContent = "";
 }
 
 1;