Use V8 implementation of TypedArrays and DataView in Blink

Source/bindings/scripts/deprecated_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 408 matching lines @@
 
     return if SkipIncludeHeader($type);
 
     # Default includes
     if ($type eq "EventListener") {
         AddToImplIncludes("core/dom/EventListener.h");
     } elsif ($type eq "SerializedScriptValue") {
         AddToImplIncludes("bindings/v8/SerializedScriptValue.h");
     } elsif ($type eq "any" || IsCallbackFunctionType($type)) {
         AddToImplIncludes("bindings/v8/ScriptValue.h");
-    } elsif ($type eq "ArrayBuffer") {
-        AddToImplIncludes("bindings/v8/custom/V8ArrayBufferCustom.h");
+    } elsif (IsTypedArrayType($type)) {
+        AddToImplIncludes("bindings/v8/custom/V8${type}Custom.h");
     } else {
         AddToImplIncludes("V8${type}.h");
     }
 }
 
 sub HeaderFilesForInterface
 {
     my $interfaceName = shift;
     my $implClassName = shift;
 
     my @includes = ();
-    if (IsTypedArrayType($interfaceName) or $interfaceName eq "ArrayBuffer") {
+    if (IsTypedArrayType($interfaceName)) {
         push(@includes, "wtf/${interfaceName}.h");
     } elsif (!SkipIncludeHeader($interfaceName)) {
         my $idlFilename = IDLFileForInterface($interfaceName) or die("Could NOT find IDL file for interface \"$interfaceName\" $!\n");
         my $idlRelPath= "bindings/" . File::Spec->abs2rel($idlFilename, $sourceRoot);
         push(@includes, dirname($idlRelPath) . "/" . $implClassName . ".h");
     }
     return @includes;
 }
 
 sub NeedsOpaqueRootForGC
@@ skipping 2267 matching lines @@
     }
 
     $code .= <<END;
     return true;
 }
 
 END
     $implementation{nameSpaceWebCore}->add($code);
 }
 
-sub GenerateTypedArrayConstructor
-{
-    my $interface = shift;
-    my $implClassName = GetImplName($interface);
-    my $v8ClassName = GetV8ClassName($interface);
-
-    my ($nativeType, $arrayType) = GetNativeTypeOfTypedArray($interface);
-    AddToImplIncludes("bindings/v8/custom/V8ArrayBufferViewCustom.h");
-
-    $implementation{nameSpaceInternal}->add(<<END);
-static void constructor(const v8::FunctionCallbackInfo<v8::Value>& args)
-{
-    return constructWebGLArray<$implClassName, ${v8ClassName}, $nativeType>(args, &${v8ClassName}::info, $arrayType);
-}
-
-END
-}
-
 sub GenerateNamedConstructor
 {
     my $function = shift;
     my $interface = shift;
 
     my $implClassName = GetImplName($interface);
     my $v8ClassName = GetV8ClassName($interface);
     my $raisesExceptions = $function->extendedAttributes->{"RaisesException"};
     if ($interface->extendedAttributes->{"ConstructorRaisesException"}) {
         $raisesExceptions = 1;
@@ skipping 1384 matching lines @@
         $implementation{nameSpaceWebCore}->add($code);
     }
 
     if (!HasCustomConstructor($interface)) {
         if ($interface->extendedAttributes->{"NamedConstructor"}) {
             GenerateNamedConstructor(@{$interface->constructors}[0], $interface);
         } elsif ($interface->extendedAttributes->{"Constructor"}) {
             GenerateConstructor($interface);
         } elsif (IsConstructorTemplate($interface, "Event")) {
             GenerateEventConstructor($interface);
-        } elsif (IsConstructorTemplate($interface, "TypedArray")) {
-            GenerateTypedArrayConstructor($interface);
         }
     }
     if (IsConstructable($interface)) {
         GenerateConstructorCallback($interface);
     }
 
     my $access_check = "";
     if ($interface->extendedAttributes->{"CheckSecurity"} && $interfaceName ne "Window") {
         $access_check = "instance->SetAccessCheckCallbacks(${implClassName}V8Internal::namedSecurityCheck, ${implClassName}V8Internal::indexedSecurityCheck, v8::External::New(&${v8ClassName}::info));";
     }
@@ skipping 862 matching lines @@
     return "Dictionary" if $type eq "Dictionary";
 
     return "RefPtr<DOMStringList>" if $type eq "DOMStringList";
     return "RefPtr<MediaQueryListListener>" if $type eq "MediaQueryListListener";
     return "RefPtr<NodeFilter>" if $type eq "NodeFilter";
     return "RefPtr<SerializedScriptValue>" if $type eq "SerializedScriptValue";
     return "RefPtr<XPathNSResolver>" if $type eq "XPathNSResolver";
 
     die "UnionType is not supported" if IsUnionType($type);
 
-    if ($type eq "ArrayBuffer") {
-        return $isParameter ? "ArrayBuffer*" : "RefPtr<ArrayBuffer>";
+    if (IsTypedArrayType($type)) {
+        return $isParameter ? "${type}*" : "RefPtr<${type}>";
     }
 
     # We need to check [ImplementedAs] extended attribute for wrapper types.
     if (IsWrapperType($type)) {
         my $interface = ParseInterface($type);
         my $implClassName = GetImplName($interface);
         return $isParameter ? "${implClassName}*" : "RefPtr<${implClassName}>";
     }
     return "RefPtr<${type}>" if IsRefPtrType($type) and not $isParameter;
 
@@ skipping 107 matching lines @@
 
     if ($type eq "MediaQueryListListener") {
         AddToImplIncludes("core/css/MediaQueryListListener.h");
         return "MediaQueryListListener::create(" . $value . ")";
     }
 
     if ($type eq "EventTarget") {
         return "V8DOMWrapper::isDOMWrapper($value) ? toWrapperTypeInfo(v8::Handle<v8::Object>::Cast($value))->toEventTarget(v8::Handle<v8::Object>::Cast($value)) : 0";
     }
 
-    if ($type eq "ArrayBuffer") {
+    if (IsTypedArrayType($type)) {
         AddIncludesForType($type);
-        return "$value->IsArrayBuffer() ? V8ArrayBuffer::toNative(v8::Handle<v8::ArrayBuffer>::Cast($value)) : 0"
+        return "$value->Is${type}() ? V8${type}::toNative(v8::Handle<v8::${type}>::Cast($value)) : 0"
     }
 
     if ($type eq "XPathNSResolver") {
         return "toXPathNSResolver($value, $getIsolate)";
     }
 
     my $arrayOrSequenceType = GetArrayOrSequenceType($type);
 
     if ($arrayOrSequenceType) {
         if (IsRefPtrType($arrayOrSequenceType)) {
@@ skipping 13 matching lines @@
 {
     my $function = shift;
     my $count = @{$function->parameters};
     my $name = $function->name;
     my $code = "    const int ${name}Argc = ${count};\n" .
       "    v8::Handle<v8::FunctionTemplate> ${name}Argv[${name}Argc] = { ";
     my $first = 1;
     foreach my $parameter (@{$function->parameters}) {
         if ($first) { $first = 0; }
         else { $code .= ", "; }
-        if (IsWrapperType($parameter->type) && $parameter->type ne "ArrayBuffer") {
+        if (IsWrapperType($parameter->type) && not IsTypedArrayType($parameter->type)) {
             if ($parameter->type eq "XPathNSResolver") {
                 # Special case for XPathNSResolver.  All other browsers accepts a callable,
                 # so, even though it's against IDL, accept objects here.
                 $code .= "v8::Handle<v8::FunctionTemplate>()";
             } else {
                 my $type = $parameter->type;
                 my $arrayOrSequenceType = GetArrayOrSequenceType($type);
 
                 if ($arrayOrSequenceType) {
                     if (IsRefPtrType($arrayOrSequenceType)) {
@@ skipping 68 matching lines @@
     return 0 if IsEnumType($type);
     return 0 if IsPrimitiveType($type);
     return 0 if $type eq "DOMString";
     return !$nonWrapperTypes{$type};
 }
 
 sub IsCallbackInterface
 {
     my $type = shift;
     return 0 unless IsWrapperType($type);
-    return 0 if $type eq "ArrayBuffer";
+    return 0 if IsTypedArrayType($type);
 
     my $idlFile = IDLFileForInterface($type)
         or die("Could NOT find IDL file for interface \"$type\"!\n");
 
     open FILE, "<", $idlFile;
     my @lines = <FILE>;
     close FILE;
 
     my $fileContents = join('', @lines);
     return ($fileContents =~ /callback\s+interface\s+(\w+)/gs);
@@ skipping 719 matching lines @@
         if ($currentInterface->extendedAttributes->{$extendedAttribute}) {
             $found = 1;
         }
         return 1 if $found;
     }, 0);
 
     return $found;
 }
 
 1;