[SVG] SVGAnimatedTransform{,List} migration to new SVG property impl.

Source/bindings/scripts/code_generator_v8.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 228 matching lines @@
     "SVGLength" => 1,
     "SVGLengthList" => 1,
     "SVGNumber" => 1,
     "SVGNumberList" => 1,
     "SVGPoint" => 1,
     "SVGPointList" => 1,
     "SVGPreserveAspectRatio" => 1,
     "SVGRect" => 1,
     "SVGString" => 1,
     "SVGStringList" => 1,
+    "SVGTransform" => 1,
+    "SVGTransformList" => 1,
 );
 
 my %svgTypeNeedingTearOff = (
-    "SVGMatrix" => "SVGMatrixTearOff",
     "SVGPathSegList" => "SVGPathSegListPropertyTearOff",
-    "SVGTransform" => "SVGPropertyTearOff<SVGTransform>",
-    "SVGTransformList" => "SVGTransformListPropertyTearOff"
-);
-
-my %svgTypeWithWritablePropertiesNeedingTearOff = (
-    "SVGMatrix" => 1
 );
 
 # Default license header
 my $licenseHeader = <<EOF;
 /*
  * Copyright (C) 2013 Google Inc. All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions are
  * met:
@@ skipping 282 matching lines @@
 END
     }
     for my $setReference (@{$interface->extendedAttributes->{"SetWrapperReferenceTo"}}) {
         my $setReferenceType = $setReference->type;
         my $setReferenceV8Type = "V8".$setReferenceType;
 
         my ($svgPropertyType, $svgListPropertyType, $svgNativeType) = GetSVGPropertyTypes($setReferenceType);
         if ($svgPropertyType) {
             $setReferenceType = $svgNativeType;
         }
+        my $setReferenceImplType = GetImplNameFromImplementedBy($setReferenceType);
 
         my $setReferenceName = $setReference->name;
 
         AddIncludesForType($setReferenceType);
         $code .= <<END;
-    ${setReferenceType}* ${setReferenceName} = impl->${setReferenceName}();
+    ${setReferenceImplType}* ${setReferenceName} = impl->${setReferenceName}();
     if (${setReferenceName}) {
         if (!DOMDataStore::containsWrapper<${setReferenceV8Type}>(${setReferenceName}, isolate))
             wrap(${setReferenceName}, creationContext, isolate);
         DOMDataStore::setWrapperReference<${setReferenceV8Type}>(wrapper, ${setReferenceName}, isolate);
     }
 END
     }
 
     my $isReachableMethod = $interface->extendedAttributes->{"SetWrapperReferenceFrom"};
     if ($isReachableMethod) {
@@ skipping 29 matching lines @@
     $svgNativeType = GetSVGTypeNeedingTearOff($implType);
     return ($svgPropertyType, $svgListPropertyType, $svgNativeType) if not $svgNativeType;
 
     # Append space to avoid compilation errors when using  PassRefPtr<$svgNativeType>
     $svgNativeType = "$svgNativeType ";
 
     my $svgWrappedNativeType = GetSVGWrappedTypeNeedingTearOff($implType);
     if ($svgNativeType =~ /SVGPropertyTearOff/) {
         $svgPropertyType = $svgWrappedNativeType;
         AddToHeaderIncludes("core/svg/properties/SVGAnimatedPropertyTearOff.h");
-    } elsif ($svgNativeType =~ /SVGMatrixTearOff/) {
-        $svgPropertyType = $svgWrappedNativeType;
-        AddToHeaderIncludes("core/svg/properties/SVGMatrixTearOff.h");
-        AddToHeaderIncludes("core/svg/properties/SVGAnimatedPropertyTearOff.h");
     } elsif ($svgNativeType =~ /SVGListPropertyTearOff/ or $svgNativeType =~ /SVGStaticListPropertyTearOff/ or $svgNativeType =~ /SVGTransformListPropertyTearOff/) {
         $svgListPropertyType = $svgWrappedNativeType;
         AddToHeaderIncludes("core/svg/properties/SVGAnimatedListPropertyTearOff.h");
     } elsif ($svgNativeType =~ /SVGPathSegListPropertyTearOff/) {
         $svgListPropertyType = $svgWrappedNativeType;
         AddToHeaderIncludes("core/svg/properties/SVGPathSegListPropertyTearOff.h");
     }
 
     return ($svgPropertyType, $svgListPropertyType, $svgNativeType);
 }
@@ skipping 1072 matching lines @@
         if ($forMainWorldSuffix eq "ForMainWorld") {
             $code .= "    v8SetReturnValueForMainWorld(info, static_cast<$svgNativeType*>($expression));\n";
         } else {
             $code .= "    v8SetReturnValueFast(info, static_cast<$svgNativeType*>($expression), imp);\n";
         }
     } elsif (IsSVGTypeNeedingTearOff($attrType) and not $interfaceName =~ /List$/) {
         AddToImplIncludes("V8$attrType.h");
         AddToImplIncludes("core/svg/properties/SVGPropertyTearOff.h");
         my $tearOffType = GetSVGTypeNeedingTearOff($attrType);
         my $wrappedValue;
-        if (IsSVGTypeWithWritablePropertiesNeedingTearOff($attrType) and not defined $attribute->extendedAttributes->{"Immutable"}) {
-            my $getter = $expression;
-            $getter =~ s/imp->//;
-            $getter =~ s/\(\)//;
-
-            my $updateMethod = "&${implClassName}::update" . FirstLetterToUpperCase($getter);
-
-            my $selfIsTearOffType = IsSVGTypeNeedingTearOff($interfaceName);
-            if ($selfIsTearOffType) {
-                AddToImplIncludes("core/svg/properties/SVGMatrixTearOff.h");
-                # FIXME: Don't create a new one everytime we access the matrix property. This means, e.g, === won't work.
-                $wrappedValue = "WTF::getPtr(SVGMatrixTearOff::create(wrapper, $expression))";
-            } else {
-                AddToImplIncludes("core/svg/properties/SVGStaticPropertyTearOff.h");
-                $tearOffType =~ s/SVGPropertyTearOff</SVGStaticPropertyTearOff<$implClassName, /;
-
-                $wrappedValue = "WTF::getPtr(${tearOffType}::create(imp, $expression, $updateMethod))";
-            }
-        } elsif ($tearOffType =~ /SVGStaticListPropertyTearOff/) {
+        if ($tearOffType =~ /SVGStaticListPropertyTearOff/) {
                 $wrappedValue = "WTF::getPtr(${tearOffType}::create(imp, $expression))";
         } elsif ($tearOffType =~ /SVG(Point|PathSeg)List/) {
                 $wrappedValue = "WTF::getPtr($expression)";
         } else {
                 $wrappedValue = "WTF::getPtr(${tearOffType}::create($expression))";
         }
         if ($forMainWorldSuffix eq "ForMainWorld") {
             $code .= "    v8SetReturnValueForMainWorld(info, $wrappedValue);\n";
         } else {
             $code .= "    v8SetReturnValueFast(info, $wrappedValue, imp);\n";
@@ skipping 3586 matching lines @@
     }
 END
             } else {
                 $code .= <<END;
     if (!$paramName) {
         throwTypeError(ExceptionMessages::failedToExecute(\"$name\", \"$interfaceName\", \"parameter $humanFriendlyIndex is not of type '${ \$parameter->type }'.\"), info.GetIsolate());
         return;
     }
 END
            }
-        } elsif ($parameter->type eq "SVGMatrix" and $interfaceName eq "SVGTransformList") {
-            push @arguments, "$paramName.get()";
         } elsif (IsNullableParameter($parameter)) {
             push @arguments, "${paramName}IsNull ? 0 : &$paramName";
         } elsif (IsCallbackInterface($paramType) or $paramType eq "NodeFilter" or $paramType eq "XPathNSResolver") {
             push @arguments, "$paramName.release()";
         } else {
             push @arguments, $paramName;
         }
         $index++;
         $humanFriendlyIndex = $index + 1;
     }
@@ skipping 678 matching lines @@
 }
 
 sub IsSVGTypeNeedingTearOff
 {
     my $type = shift;
 
     return 1 if $svgTypeNeedingTearOff{$type};
     return 0;
 }
 
-sub IsSVGTypeWithWritablePropertiesNeedingTearOff
-{
-    my $type = shift;
-
-    return 1 if $svgTypeWithWritablePropertiesNeedingTearOff{$type};
-    return 0;
-}
-
 sub IsTypedArrayType
 {
     my $type = shift;
     return 1 if $typedArrayHash{$type};
     return 0;
 }
 
 sub IsWillBeGarbageCollectedType
 {
     my $interfaceName = shift;
@@ skipping 42 matching lines @@
     return $svgTypeNeedingTearOff if not $svgTypeNeedingTearOff;
 
     if ($svgTypeNeedingTearOff =~ /SVGPropertyTearOff/) {
         $svgTypeNeedingTearOff =~ s/SVGPropertyTearOff<//;
     } elsif ($svgTypeNeedingTearOff =~ /SVGListPropertyTearOff/) {
         $svgTypeNeedingTearOff =~ s/SVGListPropertyTearOff<//;
     } elsif ($svgTypeNeedingTearOff =~ /SVGStaticListPropertyTearOff/) {
         $svgTypeNeedingTearOff =~ s/SVGStaticListPropertyTearOff<//;
     }  elsif ($svgTypeNeedingTearOff =~ /SVGTransformListPropertyTearOff/) {
         $svgTypeNeedingTearOff =~ s/SVGTransformListPropertyTearOff<//;
-    } elsif ($svgTypeNeedingTearOff =~ /SVGMatrixTearOff/) {
-        $svgTypeNeedingTearOff = 'SVGMatrix';
     }
 
     $svgTypeNeedingTearOff =~ s/>//;
     return $svgTypeNeedingTearOff;
 }
 
 sub IsSVGAnimatedType
 {
     my $type = shift;
 
@@ skipping 366 matching lines @@
         if ($parameter->type eq "SerializedScriptValue") {
             return 1;
         } elsif (IsIntegerType($parameter->type)) {
             return 1;
         }
     }
     return 0;
 }
 
 1;