Make length property return useful values for DOM bindings functions

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 2121 matching lines @@
 
     if ($raisesExceptions) {
         push(@implContentInternals, "    fail:\n");
         push(@implContentInternals, "    return setDOMException(ec, args.GetIsolate());\n");
     }
 
     push(@implContentInternals, "}\n");
     push(@implContentInternals, "\n");
 }
 
+# The Web IDL specification states that Interface objects for interfaces MUST have a property named
+# "length" that returns the length of the shortest argument list of the entries in the effective
+# overload set for constructors. In other words, use the lowest number of mandatory arguments among
+# all constructors.
+sub GetInterfaceLength
+{
+    my $interface = shift;
+
+    my $leastNumMandatoryParams = 0;
+    if ($codeGenerator->IsConstructorTemplate($interface, "Event") || $codeGenerator->IsConstructorTemplate($interface, "TypedArray")) {
+        $leastNumMandatoryParams = 1;
+    } elsif ($interface->extendedAttributes->{"Constructor"} || $interface->extendedAttributes->{"CustomConstructor"}) {
+        my @constructors = @{$interface->constructors};
+        my @customConstructors = @{$interface->customConstructors};
+        $leastNumMandatoryParams = 255;
+        foreach my $constructor (@constructors, @customConstructors) {
+            my ($numMandatoryParams, $parametersCheck) = GenerateFunctionParametersCheck($constructor);
+            $leastNumMandatoryParams = $numMandatoryParams if ($numMandatoryParams < $leastNumMandatoryParams);
+        }
+    }
+
+    return $leastNumMandatoryParams;
+}
+
 sub GenerateConstructorCallback
 {
     my $interface = shift;
 
     my $interfaceName = $interface->name;
     push(@implContent, "v8::Handle<v8::Value> V8${interfaceName}::constructorCallback(const v8::Arguments& args)\n");
     push(@implContent, "{\n");
     push(@implContent, GenerateFeatureObservation($interface->extendedAttributes->{"MeasureAs"}));
     push(@implContent, GenerateConstructorHeader());
     if (HasCustomConstructor($interface)) {
@@ skipping 889 matching lines @@
         next if !IsStandardFunction($interface, $function);
         if (!$has_callbacks) {
             $has_callbacks = 1;
             push(@implContent, "static const V8DOMConfiguration::BatchedMethod ${v8InterfaceName}Methods[] = {\n");
         }
         my $name = $function->signature->name;
         my $methodForMainWorld = "0";
         if ($function->signature->extendedAttributes->{"PerWorldBindings"}) {
             $methodForMainWorld = "${interfaceName}V8Internal::${name}MethodCallbackForMainWorld";
         }
+        # numMandatoryParams is used to set the "length" property of the Function object.
+        my ($numMandatoryParams, $parametersCheck) = GenerateFunctionParametersCheck($function);
         my $conditionalString = $codeGenerator->GenerateConditionalString($function->signature);
         push(@implContent, "#if ${conditionalString}\n") if $conditionalString;
         push(@implContent, <<END);
-    {"$name", ${interfaceName}V8Internal::${name}MethodCallback, ${methodForMainWorld}},
+    {"$name", ${interfaceName}V8Internal::${name}MethodCallback, ${methodForMainWorld}, ${numMandatoryParams}},
 END
         push(@implContent, "#endif\n") if $conditionalString;
         $num_callbacks++;
     }
     push(@implContent, "};\n\n")  if $has_callbacks;
 
     # Setup constants
     my $has_constants = 0;
     my @constantsEnabledAtRuntime;
     if (@{$interface->constants}) {
@@ skipping 114 matching lines @@
 END
     }
 
     AddToImplIncludes("wtf/UnusedParam.h");
     push(@implContent, <<END);
     UNUSED_PARAM(defaultSignature); // In some cases, it will not be used.
 END
 
     if (IsConstructable($interface)) {
         push(@implContent, "    desc->SetCallHandler(${v8InterfaceName}::constructorCallback);\n");
+        my $interfaceLength = GetInterfaceLength($interface);
+        push(@implContent, "    desc->SetLength(${interfaceLength});\n");
     }
 
     if ($access_check or @enabledAtRuntimeAttributes or @normalFunctions or $has_constants) {
         push(@implContent,  <<END);
     v8::Local<v8::ObjectTemplate> instance = desc->InstanceTemplate();
     v8::Local<v8::ObjectTemplate> proto = desc->PrototypeTemplate();
     UNUSED_PARAM(instance); // In some cases, it will not be used.
     UNUSED_PARAM(proto); // In some cases, it will not be used.
 END
     }
@@ skipping 1389 matching lines @@
 
 sub GetPassRefPtrType
 {
     my $v8InterfaceName = shift;
 
     my $angleBracketSpace = $v8InterfaceName =~ />$/ ? " " : "";
     return "PassRefPtr<${v8InterfaceName}${angleBracketSpace}>";
 }
 
 1;