Add RegExp object constructor, regular expression matching procedures, RegExp and RegExp.prototype built-in objects.

JerryScript-DCO-1.0-Signed-off-by: Szilard Ledan szledan.u-szeged@partner.samsung.com JerryScript-DCO-1.0-Signed-off-by: László Langó llango.u-szeged@partner.samsung.com
2015-06-25 23:58:36 +03:00
parent 4ffcb4d464
commit f992f5d92e
13 changed files with 1971 additions and 6 deletions
@@ -0,0 +1,142 @@
+/* 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.
+ */
+
+#include "ecma-alloc.h"
+#include "ecma-builtins.h"
+#include "ecma-conversion.h"
+#include "ecma-exceptions.h"
+#include "ecma-helpers.h"
+#include "ecma-objects.h"
+#include "ecma-regexp-object.h"
+#include "ecma-try-catch-macro.h"
+
+#ifndef CONFIG_ECMA_COMPACT_PROFILE_DISABLE_REGEXP_BUILTIN
+
+#define ECMA_BUILTINS_INTERNAL
+#include "ecma-builtins-internal.h"
+
+#define BUILTIN_INC_HEADER_NAME "ecma-builtin-regexp.inc.h"
+#define BUILTIN_UNDERSCORED_ID regexp
+#include "ecma-builtin-internal-routines-template.inc.h"
+
+/** \addtogroup ecma ECMA
+ * @{
+ *
+ * \addtogroup ecmabuiltins
+ * @{
+ *
+ * \addtogroup regexp ECMA RegExp object built-in
+ * @{
+ */
+
+/**
+ * Handle calling [[Call]] of built-in RegExp object
+ *
+ * @return completion-value
+ */
+ecma_completion_value_t
+ecma_builtin_regexp_dispatch_call (const ecma_value_t *arguments_list_p, /**< arguments list */
+                                   ecma_length_t arguments_list_len) /**< number of arguments */
+{
+  return ecma_builtin_regexp_dispatch_construct (arguments_list_p, arguments_list_len);
+} /* ecma_builtin_regexp_dispatch_call */
+
+/**
+ * Handle calling [[Construct]] of built-in RegExp object
+ *
+ * @return completion-value
+ */
+ecma_completion_value_t
+ecma_builtin_regexp_dispatch_construct (const ecma_value_t *arguments_list_p, /**< arguments list */
+                                        ecma_length_t arguments_list_len) /**< number of arguments */
+{
+  ecma_completion_value_t ret_value = ecma_make_empty_completion_value ();
+  ecma_value_t pattern_value = ecma_make_simple_value (ECMA_SIMPLE_VALUE_UNDEFINED);
+  ecma_value_t flags_value = ecma_make_simple_value (ECMA_SIMPLE_VALUE_UNDEFINED);
+
+  if (arguments_list_len > 0)
+  {
+    /* pattern string or RegExp object */
+    pattern_value = arguments_list_p[0];
+
+    if (arguments_list_len > 1)
+    {
+      flags_value = arguments_list_p[1];
+    }
+  }
+
+  if (arguments_list_len == 0)
+  {
+    ecma_string_t *magic_str_p = ecma_get_magic_string (ECMA_MAGIC_STRING_EMPTY_NON_CAPTURE_GROUP);
+    ret_value = ecma_op_create_regexp_object (magic_str_p, NULL);
+    ecma_deref_ecma_string (magic_str_p);
+  }
+  else if (ecma_is_value_object (pattern_value)
+           && ecma_object_get_class_name (ecma_get_object_from_value (pattern_value)) == ECMA_MAGIC_STRING_REGEXP_UL)
+  {
+    if (arguments_list_len == 1
+        || (arguments_list_len > 1 && ecma_is_value_undefined (flags_value)))
+    {
+      ret_value = ecma_make_normal_completion_value (ecma_copy_value (pattern_value, true));
+    }
+    else
+    {
+      ret_value = ecma_raise_type_error ((const ecma_char_t *) "Invalid argument of RegExp call.");
+    }
+  }
+  else
+  {
+    ECMA_TRY_CATCH (regexp_str_value,
+                    ecma_op_to_string (pattern_value),
+                    ret_value);
+
+    ecma_string_t *pattern_string_p = ecma_get_string_from_value (regexp_str_value);
+
+    ecma_string_t *flags_string_p = NULL;
+
+    if (arguments_list_len > 1)
+    {
+      ECMA_TRY_CATCH (flags_str_value,
+                      ecma_op_to_string (flags_value),
+                      ret_value);
+
+      flags_string_p = ecma_copy_or_ref_ecma_string (ecma_get_string_from_value (flags_str_value));
+      ECMA_FINALIZE (flags_str_value);
+    }
+
+    if (ecma_is_completion_value_empty (ret_value))
+    {
+      ret_value = ecma_op_create_regexp_object (pattern_string_p, flags_string_p);
+    }
+
+    if (flags_string_p != NULL)
+    {
+      ecma_deref_ecma_string (flags_string_p);
+    }
+
+    ECMA_FINALIZE (regexp_str_value);
+  }
+
+  return ret_value;
+} /* ecma_builtin_regexp_dispatch_construct */
+
+/**
+ * @}
+ * @}
+ * @}
+ */
+
+#endif /* CONFIG_ECMA_COMPACT_PROFILE_DISABLE_REGEXP_BUILTIN */