Revert the merge. Mac build is mysteriously broken.

third_party/WebKit/WebCore/bindings/scripts/CodeGenerator.pm

 #
 # WebKit IDL parser
 # 
 # Copyright (C) 2005 Nikolas Zimmermann <wildfox@kde.org>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2007 Apple Inc. All rights reserved.
 # 
 # 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 113 matching lines @@
     my $object = shift;
     my $dataNode = shift;
 
     my @parents = @{$dataNode->parents};
     my $parentsMax = @{$dataNode->parents};
 
     my $constantsRef = $dataNode->constants;
     my $functionsRef = $dataNode->functions;
     my $attributesRef = $dataNode->attributes;
 
+    # Exception: For the DOM 'Node' is our topmost baseclass, not EventTargetNode.
+    return if $parentsMax eq 1 and $parents[0] eq "EventTargetNode";
+
     foreach (@{$dataNode->parents}) {
         if ($ignoreParent) {
             # Ignore first parent class, already handled by the generation itself.
             $ignoreParent = 0;
             next;
         }
 
         my $interface = $object->StripModule($_);
 
         # Step #1: Find the IDL file associated with 'interface'
@@ skipping 42 matching lines @@
     my $dataNode = shift;
 
     my @parents = @{$dataNode->parents};
 
     return if @{$dataNode->parents} == 0;
 
     my @parentList = ();
 
     foreach (@{$dataNode->parents}) {
         my $interface = $object->StripModule($_);
+        if ($interface eq "EventTargetNode") {
+            $interface = "Node";
+        }
 
         # Step #1: Find the IDL file associated with 'interface'
         $endCondition = 0;
         $foundFilename = "";
 
         foreach (@{$useDirectories}) {
             $object->ScanDirectory("${interface}.idl", $_, $_, 0) if $foundFilename eq "";
         }
 
         die("Could NOT find specified parent interface \"$interface\"!\n") if $foundFilename eq "";
@@ skipping 172 matching lines @@
 sub WK_lcfirst
 {
     my ($object, $param) = @_;
     my $ret = lcfirst($param);
     $ret =~ s/uRL/url/ if $ret =~ /^uRL/;
     $ret =~ s/jS/js/ if $ret =~ /^jS/;
     return $ret;
 }
 
 1;