diff --git a/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.cpp b/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.cpp index 28f873aad0..bdcbb2e3df 100644 --- a/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.cpp +++ b/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.cpp @@ -17,6 +17,7 @@ #include "ecma-builtins.h" #include "ecma-conversion.h" #include "ecma-exceptions.h" +#include "ecma-function-object.h" #include "ecma-gc.h" #include "ecma-globals.h" #include "ecma-helpers.h" @@ -71,6 +72,100 @@ ecma_builtin_array_prototype_helper_set_length (ecma_object_t *object, /**< obje return ret_value; } /* ecma_builtin_array_prototype_helper_set_length */ +/** + * The Array.prototype object's 'forEach' routine + * + * See also: + * ECMA-262 v5, 15.4.4.18 + * + * @return completion value + * Returned value must be freed with ecma_free_completion_value. + */ +static ecma_completion_value_t +ecma_builtin_array_prototype_object_for_each (ecma_value_t this_arg, /**< this argument */ + ecma_value_t arg1, /**< callbackfn */ + ecma_value_t arg2) /**< thisArg */ +{ + ecma_completion_value_t ret_value = ecma_make_empty_completion_value (); + /* 1. */ + ECMA_TRY_CATCH (obj_this, + ecma_op_to_object (this_arg), + ret_value); + + ecma_object_t *obj_p = ecma_get_object_from_value (obj_this); + ecma_string_t *magic_string_length_p = ecma_get_magic_string (ECMA_MAGIC_STRING_LENGTH); + + /* 2. */ + ECMA_TRY_CATCH (len_value, + ecma_op_object_get (obj_p, magic_string_length_p), + ret_value); + + ECMA_OP_TO_NUMBER_TRY_CATCH (len_number, len_value, ret_value); + + /* 3. */ + uint32_t len = ecma_number_to_uint32 (len_number); + + /* 4. */ + if (!ecma_op_is_callable (arg1)) + { + ret_value = ecma_make_throw_obj_completion_value (ecma_new_standard_error (ECMA_ERROR_TYPE)); + } + else + { + ecma_value_t current_index; + ecma_number_t *num_p = ecma_alloc_number (); + ecma_object_t *func_object_p; + + /* We already checked that arg1 is callable, so it will always coerce to an object. */ + ecma_completion_value_t to_object_comp = ecma_op_to_object (arg1); + JERRY_ASSERT (ecma_is_completion_value_normal (to_object_comp)); + + func_object_p = ecma_get_object_from_completion_value (to_object_comp); + + /* Iterate over array and call callbackfn on every element */ + for (uint32_t index = 0; index < len && ecma_is_completion_value_empty (ret_value); index++) + { + /* 7.a */ + ecma_string_t *index_str_p = ecma_new_ecma_string_from_uint32 (index); + + /* 7.b */ + if (ecma_op_object_get_property (obj_p, index_str_p) != NULL) + { + /* 7.c.i */ + ECMA_TRY_CATCH (current_value, ecma_op_object_get (obj_p, index_str_p), ret_value); + + *num_p = ecma_uint32_to_number (index); + current_index = ecma_make_number_value (num_p); + + /* 7.c.ii */ + ecma_value_t call_args[] = {current_value, current_index, obj_this}; + ECMA_TRY_CATCH (call_value, ecma_op_function_call (func_object_p, arg2, call_args, 3), ret_value); + + ECMA_FINALIZE (call_value); + ECMA_FINALIZE (current_value); + } + + ecma_deref_ecma_string (index_str_p); + } + + if (ecma_is_completion_value_empty (ret_value)) + { + /* 8. */ + ret_value = ecma_make_simple_completion_value (ECMA_SIMPLE_VALUE_UNDEFINED); + } + + ecma_free_completion_value (to_object_comp); + ecma_dealloc_number (num_p); + } + + ECMA_OP_TO_NUMBER_FINALIZE (len_number); + ECMA_FINALIZE (len_value); + ecma_deref_ecma_string (magic_string_length_p); + ECMA_FINALIZE (obj_this); + + return ret_value; +} /* ecma_builtin_array_prototype_object_for_each */ + /** * The Array.prototype object's 'toString' routine * diff --git a/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.inc.h b/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.inc.h index dd7609f7ad..1b049f3a6f 100644 --- a/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.inc.h +++ b/jerry-core/ecma/builtin-objects/ecma-builtin-array-prototype.inc.h @@ -58,6 +58,7 @@ NUMBER_VALUE (ECMA_MAGIC_STRING_LENGTH, /* Routine properties: * (property name, C routine name, arguments number or NON_FIXED, value of the routine's length property) */ +ROUTINE (ECMA_MAGIC_STRING_FOR_EACH_UL, ecma_builtin_array_prototype_object_for_each, 2, 1) ROUTINE (ECMA_MAGIC_STRING_TO_STRING_UL, ecma_builtin_array_prototype_object_to_string, 0, 0) ROUTINE (ECMA_MAGIC_STRING_POP, ecma_builtin_array_prototype_object_pop, 0, 0) ROUTINE (ECMA_MAGIC_STRING_PUSH, ecma_builtin_array_prototype_object_push, NON_FIXED, 1) diff --git a/tests/jerry/array_prototype_foreach.js b/tests/jerry/array_prototype_foreach.js new file mode 100644 index 0000000000..5a00e2f95e --- /dev/null +++ b/tests/jerry/array_prototype_foreach.js @@ -0,0 +1,50 @@ +// Copyright 2015 Samsung Electronics Co., Ltd. +// Copyright 2015 University of Szeged. +// +// Licensed under the Apache License, Version 2.0 (the "License"); +// you may not use this file except in compliance with the License. +// You may obtain a copy of the License at +// +// http://www.apache.org/licenses/LICENSE-2.0 +// +// Unless required by applicable law or agreed to in writing, software +// distributed under the License is distributed on an "AS IS" BASIS +// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +// See the License for the specific language governing permissions and +// limitations under the License. + +var array = ["foo", [], Infinity, 4] + +function f(arg1, arg2, arg3) { + assert(arg1 === array[arg2]); + assert(arg3 === array); +} + +array.forEach(f); + +// Checking behavior when unable to get length +var obj = {}; +Object.defineProperty(obj, 'length', { 'get' : function () {throw new ReferenceError ("foo"); } }); +obj.forEach = Array.prototype.forEach; + +try { + obj.forEach(f); + assert(false); +} catch (e) { + assert(e.message === "foo"); + assert(e instanceof ReferenceError); +} + +// Checking behavior when unable to get element +var obj = {} +obj.length = 1; +Object.defineProperty(obj, '0', { 'get' : function () {throw new ReferenceError ("foo"); } }); +obj.forEach = Array.prototype.forEach + +try { + obj.forEach(f); + assert(false); +} catch (e) { + assert(e.message === "foo"); + assert(e instanceof ReferenceError); +}