Remove multiple inheritance support from the bindings generator

Source/bindings/scripts/CodeGeneratorV8.pm

 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org>
 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com>
 # Copyright (C) 2006 Samuel Weinig <sam.weinig@gmail.com>
 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org>
 # Copyright (C) 2006 Apple Computer, Inc.
 # Copyright (C) 2007, 2008, 2009, 2012 Google Inc.
 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au>
 # Copyright (C) Research In Motion Limited 2010. All rights reserved.
 # Copyright (C) 2010 Nokia Corporation and/or its subsidiary(-ies)
 # Copyright (C) 2012 Ericsson AB. All rights reserved.
@@ skipping 599 matching lines @@
 
 sub GenerateHeader
 {
     my $object = shift;
     my $interface = shift;
 
     my $interfaceName = $interface->name;
     my $implClassName = GetImplName($interface);
     my $v8ClassName = GetV8ClassName($interface);
 
-    # Copy contents of parent interfaces except the first parent.
-    my @parents;
-    AddMethodsConstantsAndAttributesFromParentInterfaces($interface, \@parents);
     LinkOverloadedFunctions($interface);
 
     # Ensure the IsDOMNodeType function is in sync.
     die("IsDOMNodeType is out of date with respect to $interfaceName") if IsDOMNodeType($interfaceName) != InheritsInterface($interface, "Node");
 
     my ($svgPropertyType, $svgListPropertyType, $svgNativeType) = GetSVGPropertyTypes($interfaceName);
 
-    if ($v8ClassName !~ /SVG/) {
-        for my $parent (@{$interface->parents}) {
-            AddToHeaderIncludes("V8${parent}.h");
-        }
-    }
+    my $parentInterface = $interface->parent;
+    AddToHeaderIncludes("V8${parentInterface}.h") if $parentInterface;
     AddToHeaderIncludes("bindings/v8/WrapperTypeInfo.h");
     AddToHeaderIncludes("bindings/v8/V8Binding.h");
     AddToHeaderIncludes("bindings/v8/V8DOMWrapper.h");
     AddToHeaderIncludes(HeaderFilesForInterface($interfaceName, $implClassName));
     foreach my $headerInclude (sort keys(%headerIncludes)) {
         $header{includes}->add("#include \"${headerInclude}\"\n");
     }
 
     $header{nameSpaceWebCore}->addHeader("\ntemplate<typename PropertyType> class SVGPropertyTearOff;\n") if $svgPropertyType;
     if ($svgNativeType) {
@@ skipping 171 matching lines @@
 template<>
 class WrapperTypeTraits<${nativeType} > {
 public:
     static WrapperTypeInfo* info() { return &${v8ClassName}::info; }
 };
 
 END
 
     my $customWrap = $interface->extendedAttributes->{"CustomToV8"};
     if ($noToV8) {
-        die "Can't suppress toV8 for subclass\n" if @parents;
+        die "Can't suppress toV8 for subclass\n" if $interface->parent;
     } elsif ($noWrap) {
         die "Must have custom toV8\n" if !$customWrap;
         $header{nameSpaceWebCore}->add(<<END);
 class ${nativeType};
 v8::Handle<v8::Value> toV8(${nativeType}*, v8::Handle<v8::Object> creationContext, v8::Isolate*);
 v8::Handle<v8::Value> toV8ForMainWorld(${nativeType}*, v8::Handle<v8::Object> creationContext, v8::Isolate*);
 
 template<class HolderContainer, class Wrappable>
 inline v8::Handle<v8::Value> toV8Fast(${nativeType}* impl, const HolderContainer& container, Wrappable*)
 {
@@ skipping 1820 matching lines @@
     args.GetReturnValue().Set(wrapper);
 }
 END
 
     my $code = "";
     $code .= <<END;
 bool fill${implClassName}Init(${implClassName}Init& eventInit, const Dictionary& options)
 {
 END
 
-    foreach my $interfaceBase (@{$interface->parents}) {
+    if ($interface->parent) {
+        my $interfaceBase = $interface->parent;
         $code .= <<END;
     if (!fill${interfaceBase}Init(eventInit, options))
         return false;
 
 END
     }
 
     for (my $index = 0; $index < @{$interface->attributes}; $index++) {
         my $attribute = @{$interface->attributes}[$index];
         if ($attribute->extendedAttributes->{"InitializedByEventConstructor"}) {
@@ skipping 1176 matching lines @@
 
     AddIncludesForType($interfaceName);
 
     my $toActiveDOMObject = InheritsExtendedAttribute($interface, "ActiveDOMObject") ? "${v8ClassName}::toActiveDOMObject" : "0";
     my $toEventTarget = InheritsExtendedAttribute($interface, "EventTarget") ? "${v8ClassName}::toEventTarget" : "0";
     my $rootForGC = NeedsOpaqueRootForGC($interface) ? "${v8ClassName}::opaqueRootForGC" : "0";
 
     # Find the super descriptor.
     my $parentClass = "";
     my $parentClassTemplate = "";
-    foreach (@{$interface->parents}) {
-        my $parent = $_;
+    if ($interface->parent) {
+        my $parent = $interface->parent;
         AddToImplIncludes("V8${parent}.h");
         $parentClass = "V8" . $parent;
         $parentClassTemplate = $parentClass . "::GetTemplate(isolate, currentWorldType)";
-        last;
     }
 
     my $parentClassInfo = $parentClass ? "&${parentClass}::info" : "0";
     my $WrapperTypePrototype = $interface->isException ? "WrapperTypeErrorPrototype" : "WrapperTypeObjectPrototype";
 
     if (!IsSVGTypeNeedingTearOff($interfaceName)) {
         my $code = <<END;
 static void initializeScriptWrappableForInterface(${implClassName}* object)
 {
     if (ScriptWrappable::wrapperCanBeStoredInObject(object))
@@ skipping 804 matching lines @@
             $code .= "}\n";
             $implementation{nameSpaceWebCore}->add($code);
         }
     }
 }
 
 sub BaseInterfaceName
 {
     my $interface = shift;
 
-    while (@{$interface->parents}) {
-        $interface = ParseInterface(@{$interface->parents}[0]);
+    while ($interface->parent) {
+        $interface = ParseInterface($interface->parent);
     }
 
     return $interface->name;
 }
 
 sub GenerateToV8Converters
 {
     my $interface = shift;
     my $v8ClassName = shift;
     my $nativeType = shift;
@@ skipping 850 matching lines @@
 sub ForAllParents
 {
     my $interface = shift;
     my $beforeRecursion = shift;
     my $afterRecursion = shift;
 
     my $recurse;
     $recurse = sub {
         my $currentInterface = shift;
 
-        for (@{$currentInterface->parents}) {
-            my $interfaceName = $_;
-            my $parentInterface = ParseInterface($interfaceName);
-
+        if ($currentInterface->parent) {
+            my $parentInterface = ParseInterface($currentInterface->parent);
             if ($beforeRecursion) {
-                &$beforeRecursion($parentInterface) eq 'prune' and next;
+                &$beforeRecursion($parentInterface) eq 'prune' and return;
             }
             &$recurse($parentInterface);
             &$afterRecursion($parentInterface) if $afterRecursion;
         }
     };
 
     &$recurse($interface);
 }
 
-sub AddMethodsConstantsAndAttributesFromParentInterfaces
-{
-    # Add to $interface all of its inherited interface members, except for those
-    # inherited through $interface's first listed parent.  If an array reference
-    # is passed in as $parents, the names of all ancestor interfaces visited
-    # will be appended to the array. The names of $interface's first listed parent
-    # and its ancestors will also be appended to $parents.
-
-    my $interface = shift;
-    my $parents = shift;
-
-    my $first = 1;
-    ForAllParents($interface, sub {
-        my $currentInterface = shift;
-
-        if ($first) {
-            # Ignore first parent class, already handled by the generation itself.
-            $first = 0;
-
-            # Just collect the names of the direct ancestor interfaces,
-            # if necessary.
-            push(@$parents, $currentInterface->name);
-            ForAllParents($currentInterface, sub {
-                my $currentInterface = shift;
-                push(@$parents, $currentInterface->name);
-            });
-            return 'prune';
-        }
-
-        # Collect the name of this additional parent.
-        push(@$parents, $currentInterface->name) if $parents;
-
-        # Add this parent's members to $interface.
-        push(@{$interface->constants}, @{$currentInterface->constants});
-        push(@{$interface->functions}, @{$currentInterface->functions});
-        push(@{$interface->attributes}, @{$currentInterface->attributes});
-    });
-}
-
 sub FindSuperMethod
 {
     my ($interface, $functionName) = @_;
     my $indexer;
     ForAllParents($interface, undef, sub {
         my $currentInterface = shift;
         foreach my $function (@{$currentInterface->functions}) {
             if ($function->name eq $functionName) {
                 $indexer = $function;
                 return 'prune';
@@ skipping 409 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;