Unzip initialization lists and constructors in JSCell hierarchy (5/7)
[WebKit-https.git] / Source / JavaScriptCore / runtime / RegExpPrototype.cpp
1 /*
2  *  Copyright (C) 1999-2000 Harri Porten (porten@kde.org)
3  *  Copyright (C) 2003, 2007, 2008 Apple Inc. All Rights Reserved.
4  *
5  *  This library is free software; you can redistribute it and/or
6  *  modify it under the terms of the GNU Lesser General Public
7  *  License as published by the Free Software Foundation; either
8  *  version 2 of the License, or (at your option) any later version.
9  *
10  *  This library is distributed in the hope that it will be useful,
11  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
12  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  *  Lesser General Public License for more details.
14  *
15  *  You should have received a copy of the GNU Lesser General Public
16  *  License along with this library; if not, write to the Free Software
17  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
18  *
19  */
20
21 #include "config.h"
22 #include "RegExpPrototype.h"
23
24 #include "ArrayPrototype.h"
25 #include "Error.h"
26 #include "JSArray.h"
27 #include "JSFunction.h"
28 #include "JSObject.h"
29 #include "JSString.h"
30 #include "JSStringBuilder.h"
31 #include "JSValue.h"
32 #include "ObjectPrototype.h"
33 #include "RegExpObject.h"
34 #include "RegExp.h"
35 #include "RegExpCache.h"
36 #include "StringRecursionChecker.h"
37 #include "UStringConcatenate.h"
38
39 namespace JSC {
40
41 static EncodedJSValue JSC_HOST_CALL regExpProtoFuncTest(ExecState*);
42 static EncodedJSValue JSC_HOST_CALL regExpProtoFuncExec(ExecState*);
43 static EncodedJSValue JSC_HOST_CALL regExpProtoFuncCompile(ExecState*);
44 static EncodedJSValue JSC_HOST_CALL regExpProtoFuncToString(ExecState*);
45
46 }
47
48 #include "RegExpPrototype.lut.h"
49
50 namespace JSC {
51
52 const ClassInfo RegExpPrototype::s_info = { "RegExp", &RegExpObject::s_info, 0, ExecState::regExpPrototypeTable };
53
54 /* Source for RegExpPrototype.lut.h
55 @begin regExpPrototypeTable
56   compile   regExpProtoFuncCompile      DontEnum|Function 2
57   exec      regExpProtoFuncExec         DontEnum|Function 1
58   test      regExpProtoFuncTest         DontEnum|Function 1
59   toString  regExpProtoFuncToString     DontEnum|Function 0
60 @end
61 */
62
63 ASSERT_CLASS_FITS_IN_CELL(RegExpPrototype);
64
65 RegExpPrototype::RegExpPrototype(ExecState*, JSGlobalObject* globalObject, Structure* structure, RegExp* regExp)
66     : RegExpObject(globalObject, structure, regExp)
67 {
68     finishCreation(globalObject);
69 }
70
71 bool RegExpPrototype::getOwnPropertySlot(ExecState* exec, const Identifier& propertyName, PropertySlot &slot)
72 {
73     return getStaticFunctionSlot<RegExpObject>(exec, ExecState::regExpPrototypeTable(exec), this, propertyName, slot);
74 }
75
76 bool RegExpPrototype::getOwnPropertyDescriptor(ExecState* exec, const Identifier& propertyName, PropertyDescriptor& descriptor)
77 {
78     return getStaticFunctionDescriptor<RegExpObject>(exec, ExecState::regExpPrototypeTable(exec), this, propertyName, descriptor);
79 }
80
81 // ------------------------------ Functions ---------------------------
82
83 EncodedJSValue JSC_HOST_CALL regExpProtoFuncTest(ExecState* exec)
84 {
85     JSValue thisValue = exec->hostThisValue();
86     if (!thisValue.inherits(&RegExpObject::s_info))
87         return throwVMTypeError(exec);
88     return JSValue::encode(asRegExpObject(thisValue)->test(exec));
89 }
90
91 EncodedJSValue JSC_HOST_CALL regExpProtoFuncExec(ExecState* exec)
92 {
93     JSValue thisValue = exec->hostThisValue();
94     if (!thisValue.inherits(&RegExpObject::s_info))
95         return throwVMTypeError(exec);
96     return JSValue::encode(asRegExpObject(thisValue)->exec(exec));
97 }
98
99 EncodedJSValue JSC_HOST_CALL regExpProtoFuncCompile(ExecState* exec)
100 {
101     JSValue thisValue = exec->hostThisValue();
102     if (!thisValue.inherits(&RegExpObject::s_info))
103         return throwVMTypeError(exec);
104
105     RegExp* regExp;
106     JSValue arg0 = exec->argument(0);
107     JSValue arg1 = exec->argument(1);
108     
109     if (arg0.inherits(&RegExpObject::s_info)) {
110         if (!arg1.isUndefined())
111             return throwVMError(exec, createTypeError(exec, "Cannot supply flags when constructing one RegExp from another."));
112         regExp = asRegExpObject(arg0)->regExp();
113     } else {
114         UString pattern = !exec->argumentCount() ? UString("") : arg0.toString(exec);
115         if (exec->hadException())
116             return JSValue::encode(jsUndefined());
117
118         RegExpFlags flags = NoFlags;
119         if (!arg1.isUndefined()) {
120             flags = regExpFlags(arg1.toString(exec));
121             if (exec->hadException())
122                 return JSValue::encode(jsUndefined());
123             if (flags == InvalidFlags)
124                 return throwVMError(exec, createSyntaxError(exec, "Invalid flags supplied to RegExp constructor."));
125         }
126         regExp = RegExp::create(exec->globalData(), pattern, flags);
127     }
128
129     if (!regExp->isValid())
130         return throwVMError(exec, createSyntaxError(exec, regExp->errorMessage()));
131
132     asRegExpObject(thisValue)->setRegExp(exec->globalData(), regExp);
133     asRegExpObject(thisValue)->setLastIndex(0);
134     return JSValue::encode(jsUndefined());
135 }
136
137 EncodedJSValue JSC_HOST_CALL regExpProtoFuncToString(ExecState* exec)
138 {
139     JSValue thisValue = exec->hostThisValue();
140     if (!thisValue.inherits(&RegExpObject::s_info))
141         return throwVMTypeError(exec);
142
143     RegExpObject* thisObject = asRegExpObject(thisValue);
144
145     StringRecursionChecker checker(exec, thisObject);
146     if (EncodedJSValue earlyReturnValue = checker.earlyReturnValue())
147         return earlyReturnValue;
148
149     char postfix[5] = { '/', 0, 0, 0, 0 };
150     int index = 1;
151     if (thisObject->get(exec, exec->propertyNames().global).toBoolean(exec))
152         postfix[index++] = 'g';
153     if (thisObject->get(exec, exec->propertyNames().ignoreCase).toBoolean(exec))
154         postfix[index++] = 'i';
155     if (thisObject->get(exec, exec->propertyNames().multiline).toBoolean(exec))
156         postfix[index] = 'm';
157     UString source = thisObject->get(exec, exec->propertyNames().source).toString(exec);
158     // If source is empty, use "/(?:)/" to avoid colliding with comment syntax
159     return JSValue::encode(jsMakeNontrivialString(exec, "/", source.length() ? source : UString("(?:)"), postfix));
160 }
161
162 } // namespace JSC