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

webkit/port/bindings/scripts/CodeGenerator.pm

 # 
 # KDOM IDL parser
 #
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # 
 # 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
@@ skipping 97 matching lines @@
     $codeGenerator->GenerateModule($useDocument, $defines);
 
     my $classes = $useDocument->classes;
     foreach my $class (@$classes) {
         print "Generating $useGenerator bindings code for IDL interface \"" . $class->name . "\"...\n" if $verbose;
         $codeGenerator->GenerateInterface($class, $defines);
         $codeGenerator->finish();
     }
 }
 
+
+sub FindParentsRecursively
+{
+  my $object = shift;
+  my $dataNode = shift;
+  my @parents = ($dataNode->name);
+  foreach (@{$dataNode->parents}) {
+    my $interface = $object->StripModule($_);
+
+    $endCondition = 0;
+    $foundFilename = "";
+    foreach (@{$useDirectories}) {
+      $object->ScanDirectory("$interface.idl", $_, $_, 0) if ($foundFilename eq "");
+    }
+
+    if ($foundFilename ne "") {
+      print "  |  |>  Parsing parent IDL \"$foundFilename\" for interface \"$interface\"\n" if $verbose;
+
+      # Step #2: Parse the found IDL file (in quiet mode).
+      my $parser = IDLParser->new(1);
+      my $document = $parser->ParseInheritance($foundFilename, $defines, $preprocessor);
+
+      foreach my $class (@{$document->classes}) {
+        @parents = (@parents, FindParentsRecursively($object, $class));
+      } 
+    } else {
+      die("Could NOT find specified parent interface \"$interface\"!\n")
+    }
+  }
+  return @parents; 
+}
+
+
 sub AddMethodsConstantsAndAttributesFromParentClasses
 {
     # For the passed interface, recursively parse all parent
     # IDLs in order to find out all inherited properties/methods.
 
     my $object = shift;
     my $dataNode = shift;
 
     my @parents = @{$dataNode->parents};
     my $parentsMax = @{$dataNode->parents};
@@ skipping 113 matching lines @@
 # Internal Helper
 sub ScanDirectory
 {
     my $object = shift;
 
     my $interface = shift;
     my $directory = shift;
     my $useDirectory = shift;
     my $reportAllFiles = shift;
 
+    print "Scanning interface " . $interface . " in " . $directory . "\n" if $verbose;

[Mike Belshe, 2008/09/23 00:36:13]

Do we want this print statement?  Or is this for debugging.

[Feng Qian, 2008/09/23 21:46:04]

For debugging purpose, the condition variable $verbose is off by default.

+
     return if ($endCondition eq 1) and ($reportAllFiles eq 0);
 
     my $sourceRoot = $ENV{SOURCE_ROOT};
     my $thisDir = $sourceRoot ? "$sourceRoot/$directory" : $directory;
 
     opendir(DIR, $thisDir) or die "[ERROR] Can't open directory $thisDir: \"$!\"\n";
 
     my @names = readdir(DIR) or die "[ERROR] Cant't read directory $thisDir \"$!\"\n";
     closedir(DIR);
 
@@ skipping 18 matching lines @@
             if ($reportAllFiles eq 0) {
                 $endCondition = 1;
             } else {
                 push(@foundFilenames, $foundFilename);
             }
         }
     }
 }
 
 1;