mirror of
https://github.com/jerryscript-project/jerryscript.git
synced 2025-12-15 16:29:21 +00:00
0511091e8a
Since the project is now hosted at the JS Foundation we can move to unified copyright notices for the project. Starting with this commit all future contributions to the project should only carry the following copyright notice (except for third-party code which requires copyright information to be preserved): "Copyright JS Foundation and other contributors, http://js.foundation" (without the quotes) This avoids cluttering the codebase with contributor-specific copyright notices which have a higher maintenance overhead and tend to get outdated quickly. Also dropping the year from the copyright notices helps to avoid yearly code changes just to update the copyright notices. Note that each contributor still retains full copyright ownership of his/her contributions and the respective authorship is tracked very accurately via Git. JerryScript-DCO-1.0-Signed-off-by: Tilmann Scheller t.scheller@samsung.com
400 lines
12 KiB
C
400 lines
12 KiB
C
/* Copyright JS Foundation and other contributors, http://js.foundation
|
|
*
|
|
* 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.
|
|
*/
|
|
|
|
#include "ecma-builtin-helpers.h"
|
|
#include "ecma-builtins.h"
|
|
#include "ecma-exceptions.h"
|
|
#include "ecma-gc.h"
|
|
#include "ecma-globals.h"
|
|
#include "ecma-helpers.h"
|
|
#include "ecma-lex-env.h"
|
|
#include "ecma-objects.h"
|
|
#include "jcontext.h"
|
|
|
|
/** \addtogroup ecma ECMA
|
|
* @{
|
|
*
|
|
* \addtogroup lexicalenvironment Lexical environment
|
|
* @{
|
|
*
|
|
* \addtogroup globallexicalenvironment Global lexical environment
|
|
* @{
|
|
*/
|
|
|
|
/**
|
|
* Initialize Global environment
|
|
*/
|
|
void
|
|
ecma_init_global_lex_env (void)
|
|
{
|
|
#ifdef CONFIG_ECMA_GLOBAL_ENVIRONMENT_DECLARATIVE
|
|
JERRY_CONTEXT (ecma_global_lex_env_p) = ecma_create_decl_lex_env (NULL);
|
|
#else /* !CONFIG_ECMA_GLOBAL_ENVIRONMENT_DECLARATIVE */
|
|
ecma_object_t *glob_obj_p = ecma_builtin_get (ECMA_BUILTIN_ID_GLOBAL);
|
|
|
|
JERRY_CONTEXT (ecma_global_lex_env_p) = ecma_create_object_lex_env (NULL, glob_obj_p, false);
|
|
|
|
ecma_deref_object (glob_obj_p);
|
|
#endif /* CONFIG_ECMA_GLOBAL_ENVIRONMENT_DECLARATIVE */
|
|
} /* ecma_init_global_lex_env */
|
|
|
|
/**
|
|
* Finalize Global environment
|
|
*/
|
|
void
|
|
ecma_finalize_global_lex_env (void)
|
|
{
|
|
ecma_deref_object (JERRY_CONTEXT (ecma_global_lex_env_p));
|
|
JERRY_CONTEXT (ecma_global_lex_env_p) = NULL;
|
|
} /* ecma_finalize_global_lex_env */
|
|
|
|
/**
|
|
* Get reference to Global lexical environment
|
|
* without increasing its reference count.
|
|
*
|
|
* @return pointer to the object's instance
|
|
*/
|
|
ecma_object_t *
|
|
ecma_get_global_environment (void)
|
|
{
|
|
return JERRY_CONTEXT (ecma_global_lex_env_p);
|
|
} /* ecma_get_global_environment */
|
|
|
|
/**
|
|
* @}
|
|
*/
|
|
|
|
/**
|
|
* HasBinding operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*
|
|
* @return true / false
|
|
*/
|
|
bool
|
|
ecma_op_has_binding (ecma_object_t *lex_env_p, /**< lexical environment */
|
|
ecma_string_t *name_p) /**< argument N */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
|
|
if (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE)
|
|
{
|
|
ecma_property_t *property_p = ecma_find_named_property (lex_env_p, name_p);
|
|
|
|
return (property_p != NULL);
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_OBJECT_BOUND
|
|
|| ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_THIS_OBJECT_BOUND);
|
|
|
|
ecma_object_t *binding_obj_p = ecma_get_lex_env_binding_object (lex_env_p);
|
|
|
|
return ecma_op_object_has_property (binding_obj_p, name_p);
|
|
}
|
|
} /* ecma_op_has_binding */
|
|
|
|
/**
|
|
* CreateMutableBinding operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*
|
|
* @return ecma value
|
|
* Returned value must be freed with ecma_free_value
|
|
*/
|
|
ecma_value_t
|
|
ecma_op_create_mutable_binding (ecma_object_t *lex_env_p, /**< lexical environment */
|
|
ecma_string_t *name_p, /**< argument N */
|
|
bool is_deletable) /**< argument D */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
JERRY_ASSERT (name_p != NULL);
|
|
|
|
if (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE)
|
|
{
|
|
uint8_t prop_attributes = ECMA_PROPERTY_FLAG_WRITABLE;
|
|
|
|
if (is_deletable)
|
|
{
|
|
prop_attributes = (uint8_t) (prop_attributes | ECMA_PROPERTY_FLAG_CONFIGURABLE);
|
|
}
|
|
|
|
ecma_create_named_data_property (lex_env_p,
|
|
name_p,
|
|
prop_attributes,
|
|
NULL);
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_OBJECT_BOUND
|
|
|| ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_THIS_OBJECT_BOUND);
|
|
|
|
ecma_object_t *binding_obj_p = ecma_get_lex_env_binding_object (lex_env_p);
|
|
|
|
ecma_value_t completion;
|
|
completion = ecma_builtin_helper_def_prop (binding_obj_p,
|
|
name_p,
|
|
ecma_make_simple_value (ECMA_SIMPLE_VALUE_UNDEFINED),
|
|
true, /* Writable */
|
|
true, /* Enumerable */
|
|
is_deletable, /* Configurable */
|
|
true); /* Failure handling */
|
|
|
|
if (ECMA_IS_VALUE_ERROR (completion))
|
|
{
|
|
return completion;
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_is_value_boolean (completion));
|
|
}
|
|
}
|
|
|
|
return ecma_make_simple_value (ECMA_SIMPLE_VALUE_EMPTY);
|
|
} /* ecma_op_create_mutable_binding */
|
|
|
|
/**
|
|
* SetMutableBinding operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*
|
|
* @return ecma value
|
|
* Returned value must be freed with ecma_free_value.
|
|
*/
|
|
ecma_value_t
|
|
ecma_op_set_mutable_binding (ecma_object_t *lex_env_p, /**< lexical environment */
|
|
ecma_string_t *name_p, /**< argument N */
|
|
ecma_value_t value, /**< argument V */
|
|
bool is_strict) /**< argument S */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
JERRY_ASSERT (name_p != NULL);
|
|
|
|
if (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE)
|
|
{
|
|
ecma_property_t *property_p = ecma_find_named_property (lex_env_p, name_p);
|
|
|
|
JERRY_ASSERT (property_p != NULL
|
|
&& ECMA_PROPERTY_GET_TYPE (*property_p) == ECMA_PROPERTY_TYPE_NAMEDDATA);
|
|
|
|
if (ecma_is_property_writable (*property_p))
|
|
{
|
|
ecma_named_data_property_assign_value (lex_env_p, ECMA_PROPERTY_VALUE_PTR (property_p), value);
|
|
}
|
|
else if (is_strict)
|
|
{
|
|
return ecma_raise_type_error (ECMA_ERR_MSG ("Binding cannot be set."));
|
|
}
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_OBJECT_BOUND
|
|
|| ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_THIS_OBJECT_BOUND);
|
|
|
|
ecma_object_t *binding_obj_p = ecma_get_lex_env_binding_object (lex_env_p);
|
|
|
|
ecma_value_t completion = ecma_op_object_put (binding_obj_p,
|
|
name_p,
|
|
value,
|
|
is_strict);
|
|
|
|
if (ECMA_IS_VALUE_ERROR (completion))
|
|
{
|
|
return completion;
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_is_value_boolean (completion));
|
|
}
|
|
}
|
|
|
|
return ecma_make_simple_value (ECMA_SIMPLE_VALUE_EMPTY);
|
|
} /* ecma_op_set_mutable_binding */
|
|
|
|
/**
|
|
* GetBindingValue operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*
|
|
* @return ecma value
|
|
* Returned value must be freed with ecma_free_value.
|
|
*/
|
|
ecma_value_t
|
|
ecma_op_get_binding_value (ecma_object_t *lex_env_p, /**< lexical environment */
|
|
ecma_string_t *name_p, /**< argument N */
|
|
bool is_strict) /**< argument S */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
JERRY_ASSERT (name_p != NULL);
|
|
|
|
if (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE)
|
|
{
|
|
ecma_property_value_t *prop_value_p = ecma_get_named_data_property (lex_env_p, name_p);
|
|
|
|
return ecma_copy_value (prop_value_p->value);
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_OBJECT_BOUND
|
|
|| ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_THIS_OBJECT_BOUND);
|
|
|
|
ecma_object_t *binding_obj_p = ecma_get_lex_env_binding_object (lex_env_p);
|
|
|
|
ecma_value_t result = ecma_op_object_find (binding_obj_p, name_p);
|
|
|
|
if (!ecma_is_value_found (result))
|
|
{
|
|
if (is_strict)
|
|
{
|
|
result = ecma_raise_reference_error (ECMA_ERR_MSG ("Binding does not exist or is uninitialised."));
|
|
}
|
|
else
|
|
{
|
|
result = ecma_make_simple_value (ECMA_SIMPLE_VALUE_UNDEFINED);
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
} /* ecma_op_get_binding_value */
|
|
|
|
/**
|
|
* DeleteBinding operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*
|
|
* @return ecma value
|
|
* Return value is simple and so need not be freed.
|
|
* However, ecma_free_value may be called for it, but it is a no-op.
|
|
*/
|
|
ecma_value_t
|
|
ecma_op_delete_binding (ecma_object_t *lex_env_p, /**< lexical environment */
|
|
ecma_string_t *name_p) /**< argument N */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
JERRY_ASSERT (name_p != NULL);
|
|
|
|
|
|
if (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE)
|
|
{
|
|
ecma_property_t *prop_p = ecma_find_named_property (lex_env_p, name_p);
|
|
ecma_simple_value_t ret_val;
|
|
|
|
if (prop_p == NULL)
|
|
{
|
|
ret_val = ECMA_SIMPLE_VALUE_TRUE;
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ECMA_PROPERTY_GET_TYPE (*prop_p) == ECMA_PROPERTY_TYPE_NAMEDDATA);
|
|
|
|
if (!ecma_is_property_configurable (*prop_p))
|
|
{
|
|
ret_val = ECMA_SIMPLE_VALUE_FALSE;
|
|
}
|
|
else
|
|
{
|
|
ecma_delete_property (lex_env_p, ECMA_PROPERTY_VALUE_PTR (prop_p));
|
|
|
|
ret_val = ECMA_SIMPLE_VALUE_TRUE;
|
|
}
|
|
}
|
|
|
|
return ecma_make_simple_value (ret_val);
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_OBJECT_BOUND
|
|
|| ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_THIS_OBJECT_BOUND);
|
|
|
|
ecma_object_t *binding_obj_p = ecma_get_lex_env_binding_object (lex_env_p);
|
|
|
|
return ecma_op_object_delete (binding_obj_p, name_p, false);
|
|
}
|
|
} /* ecma_op_delete_binding */
|
|
|
|
/**
|
|
* ImplicitThisValue operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*
|
|
* @return ecma value
|
|
* Returned value must be freed with ecma_free_value.
|
|
*/
|
|
ecma_value_t
|
|
ecma_op_implicit_this_value (ecma_object_t *lex_env_p) /**< lexical environment */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
|
|
if (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE)
|
|
{
|
|
return ecma_make_simple_value (ECMA_SIMPLE_VALUE_UNDEFINED);
|
|
}
|
|
else
|
|
{
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_OBJECT_BOUND
|
|
|| ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_THIS_OBJECT_BOUND);
|
|
|
|
if (ecma_get_lex_env_provide_this (lex_env_p))
|
|
{
|
|
ecma_object_t *binding_obj_p = ecma_get_lex_env_binding_object (lex_env_p);
|
|
ecma_ref_object (binding_obj_p);
|
|
|
|
return ecma_make_object_value (binding_obj_p);
|
|
}
|
|
else
|
|
{
|
|
return ecma_make_simple_value (ECMA_SIMPLE_VALUE_UNDEFINED);
|
|
}
|
|
}
|
|
} /* ecma_op_implicit_this_value */
|
|
|
|
/**
|
|
* CreateImmutableBinding operation.
|
|
*
|
|
* See also: ECMA-262 v5, 10.2.1
|
|
*/
|
|
void
|
|
ecma_op_create_immutable_binding (ecma_object_t *lex_env_p, /**< lexical environment */
|
|
ecma_string_t *name_p, /**< argument N */
|
|
ecma_value_t value) /**< argument V */
|
|
{
|
|
JERRY_ASSERT (lex_env_p != NULL
|
|
&& ecma_is_lexical_environment (lex_env_p));
|
|
JERRY_ASSERT (ecma_get_lex_env_type (lex_env_p) == ECMA_LEXICAL_ENVIRONMENT_DECLARATIVE);
|
|
|
|
/*
|
|
* Warning:
|
|
* Whether immutable bindings are deletable seems not to be defined by ECMA v5.
|
|
*/
|
|
ecma_property_value_t *prop_value_p = ecma_create_named_data_property (lex_env_p,
|
|
name_p,
|
|
ECMA_PROPERTY_FIXED,
|
|
NULL);
|
|
|
|
prop_value_p->value = ecma_copy_value_if_not_object (value);
|
|
} /* ecma_op_create_immutable_binding */
|
|
|
|
/**
|
|
* @}
|
|
* @}
|
|
*/
|