JavaScriptCore:
[WebKit-https.git] / JavaScriptCore / kjs / FunctionPrototype.cpp
1 /*
2  *  Copyright (C) 1999-2001 Harri Porten (porten@kde.org)
3  *  Copyright (C) 2003, 2004, 2005, 2006, 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 "FunctionPrototype.h"
23
24 #include "Arguments.h"
25 #include "JSArray.h"
26 #include "JSFunction.h"
27 #include "JSString.h"
28 #include "PrototypeFunction.h"
29
30 namespace KJS {
31
32 static JSValue* functionProtoFuncToString(ExecState*, JSObject*, JSValue*, const ArgList&);
33 static JSValue* functionProtoFuncApply(ExecState*, JSObject*, JSValue*, const ArgList&);
34 static JSValue* functionProtoFuncCall(ExecState*, JSObject*, JSValue*, const ArgList&);
35
36 FunctionPrototype::FunctionPrototype(ExecState* exec)
37 {
38     putDirect(exec->propertyNames().length, jsNumber(exec, 0), DontDelete | ReadOnly | DontEnum);
39
40     putDirectFunction(new (exec) PrototypeFunction(exec, this, 0, exec->propertyNames().toString, functionProtoFuncToString), DontEnum);
41     putDirectFunction(new (exec) PrototypeFunction(exec, this, 2, exec->propertyNames().apply, functionProtoFuncApply), DontEnum);
42     putDirectFunction(new (exec) PrototypeFunction(exec, this, 1, exec->propertyNames().call, functionProtoFuncCall), DontEnum);
43 }
44
45 static JSValue* callFunctionPrototype(ExecState*, JSObject*, JSValue*, const ArgList&)
46 {
47     return jsUndefined();
48 }
49
50 // ECMA 15.3.4
51 CallType FunctionPrototype::getCallData(CallData& callData)
52 {
53     callData.native.function = callFunctionPrototype;
54     return CallTypeHost;
55 }
56
57 // Functions
58
59 JSValue* functionProtoFuncToString(ExecState* exec, JSObject*, JSValue* thisValue, const ArgList&)
60 {
61     if (!thisValue->isObject(&InternalFunction::info))
62         return throwError(exec, TypeError);
63
64     InternalFunction* function = static_cast<InternalFunction*>(thisValue);
65
66     if (function->inherits(&JSFunction::info)) {
67         JSFunction* fi = static_cast<JSFunction*>(thisValue);
68         return jsString(exec, "function " + fi->functionName().ustring() + "(" + fi->m_body->paramString() + ") " + fi->m_body->toSourceString());
69     }
70
71     return jsString(exec, "function " + function->functionName().ustring() + "() {\n    [native code]\n}");
72 }
73
74 JSValue* functionProtoFuncApply(ExecState* exec, JSObject*, JSValue* thisValue, const ArgList& args)
75 {
76     CallData callData;
77     CallType callType = thisValue->getCallData(callData);
78     if (callType == CallTypeNone)
79         return throwError(exec, TypeError);
80
81     JSValue* thisArg = args.at(exec, 0);
82     JSValue* argArray = args.at(exec, 1);
83
84     JSValue* applyThis;
85     if (thisArg->isUndefinedOrNull())
86         applyThis = exec->globalThisValue();
87     else
88         applyThis = thisArg->toObject(exec);
89
90     ArgList applyArgs;
91     if (!argArray->isUndefinedOrNull()) {
92         if (argArray->isObject() &&
93             (static_cast<JSObject*>(argArray)->inherits(&JSArray::info) ||
94              static_cast<JSObject*>(argArray)->inherits(&Arguments::info))) {
95
96             JSObject* argArrayObj = static_cast<JSObject*>(argArray);
97             unsigned int length = argArrayObj->get(exec, exec->propertyNames().length)->toUInt32(exec);
98             for (unsigned int i = 0; i < length; i++)
99                 applyArgs.append(argArrayObj->get(exec, i));
100         } else
101             return throwError(exec, TypeError);
102     }
103
104     return call(exec, thisValue, callType, callData, applyThis, applyArgs);
105 }
106
107 JSValue* functionProtoFuncCall(ExecState* exec, JSObject*, JSValue* thisValue, const ArgList& args)
108 {
109     CallData callData;
110     CallType callType = thisValue->getCallData(callData);
111     if (callType == CallTypeNone)
112         return throwError(exec, TypeError);
113
114     JSValue* thisArg = args.at(exec, 0);
115
116     JSObject* callThis;
117     if (thisArg->isUndefinedOrNull())
118         callThis = exec->globalThisValue();
119     else
120         callThis = thisArg->toObject(exec);
121
122     ArgList argsTail;
123     args.getSlice(1, argsTail);
124     return call(exec, thisValue, callType, callData, callThis, argsTail);
125 }
126
127 } // namespace KJS