1 /* 2 * Copyright (C) 1999-2001 Harri Porten (porten (at) kde.org) 3 * Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 "JSStringBuilder.h" 29 #include "Interpreter.h" 30 #include "Lexer.h" 31 #include "PrototypeFunction.h" 32 33 namespace JSC { 34 35 ASSERT_CLASS_FITS_IN_CELL(FunctionPrototype); 36 37 static JSValue JSC_HOST_CALL functionProtoFuncToString(ExecState*, JSObject*, JSValue, const ArgList&); 38 static JSValue JSC_HOST_CALL functionProtoFuncApply(ExecState*, JSObject*, JSValue, const ArgList&); 39 static JSValue JSC_HOST_CALL functionProtoFuncCall(ExecState*, JSObject*, JSValue, const ArgList&); 40 41 FunctionPrototype::FunctionPrototype(ExecState* exec, NonNullPassRefPtr<Structure> structure) 42 : InternalFunction(&exec->globalData(), structure, exec->propertyNames().emptyIdentifier) 43 { 44 putDirectWithoutTransition(exec->propertyNames().length, jsNumber(exec, 0), DontDelete | ReadOnly | DontEnum); 45 } 46 47 void FunctionPrototype::addFunctionProperties(ExecState* exec, Structure* prototypeFunctionStructure, NativeFunctionWrapper** callFunction, NativeFunctionWrapper** applyFunction) 48 { 49 putDirectFunctionWithoutTransition(exec, new (exec) NativeFunctionWrapper(exec, prototypeFunctionStructure, 0, exec->propertyNames().toString, functionProtoFuncToString), DontEnum); 50 *applyFunction = new (exec) NativeFunctionWrapper(exec, prototypeFunctionStructure, 2, exec->propertyNames().apply, functionProtoFuncApply); 51 putDirectFunctionWithoutTransition(exec, *applyFunction, DontEnum); 52 *callFunction = new (exec) NativeFunctionWrapper(exec, prototypeFunctionStructure, 1, exec->propertyNames().call, functionProtoFuncCall); 53 putDirectFunctionWithoutTransition(exec, *callFunction, DontEnum); 54 } 55 56 static JSValue JSC_HOST_CALL callFunctionPrototype(ExecState*, JSObject*, JSValue, const ArgList&) 57 { 58 return jsUndefined(); 59 } 60 61 // ECMA 15.3.4 62 CallType FunctionPrototype::getCallData(CallData& callData) 63 { 64 callData.native.function = callFunctionPrototype; 65 return CallTypeHost; 66 } 67 68 // Functions 69 70 // Compatibility hack for the Optimost JavaScript library. (See <rdar://problem/6595040>.) 71 static inline void insertSemicolonIfNeeded(UString& functionBody) 72 { 73 ASSERT(functionBody[0] == '{'); 74 ASSERT(functionBody[functionBody.size() - 1] == '}'); 75 76 for (size_t i = functionBody.size() - 2; i > 0; --i) { 77 UChar ch = functionBody[i]; 78 if (!Lexer::isWhiteSpace(ch) && !Lexer::isLineTerminator(ch)) { 79 if (ch != ';' && ch != '}') 80 functionBody = makeString(functionBody.substr(0, i + 1), ";", functionBody.substr(i + 1, functionBody.size() - (i + 1))); 81 return; 82 } 83 } 84 } 85 86 JSValue JSC_HOST_CALL functionProtoFuncToString(ExecState* exec, JSObject*, JSValue thisValue, const ArgList&) 87 { 88 if (thisValue.inherits(&JSFunction::info)) { 89 JSFunction* function = asFunction(thisValue); 90 if (!function->isHostFunction()) { 91 FunctionExecutable* executable = function->jsExecutable(); 92 UString sourceString = executable->source().toString(); 93 insertSemicolonIfNeeded(sourceString); 94 return jsMakeNontrivialString(exec, "function ", function->name(exec), "(", executable->paramString(), ") ", sourceString); 95 } 96 } 97 98 if (thisValue.inherits(&InternalFunction::info)) { 99 InternalFunction* function = asInternalFunction(thisValue); 100 return jsMakeNontrivialString(exec, "function ", function->name(exec), "() {\n [native code]\n}"); 101 } 102 103 return throwError(exec, TypeError); 104 } 105 106 JSValue JSC_HOST_CALL functionProtoFuncApply(ExecState* exec, JSObject*, JSValue thisValue, const ArgList& args) 107 { 108 CallData callData; 109 CallType callType = thisValue.getCallData(callData); 110 if (callType == CallTypeNone) 111 return throwError(exec, TypeError); 112 113 JSValue array = args.at(1); 114 115 MarkedArgumentBuffer applyArgs; 116 if (!array.isUndefinedOrNull()) { 117 if (!array.isObject()) 118 return throwError(exec, TypeError); 119 if (asObject(array)->classInfo() == &Arguments::info) 120 asArguments(array)->fillArgList(exec, applyArgs); 121 else if (isJSArray(&exec->globalData(), array)) 122 asArray(array)->fillArgList(exec, applyArgs); 123 else if (asObject(array)->inherits(&JSArray::info)) { 124 unsigned length = asArray(array)->get(exec, exec->propertyNames().length).toUInt32(exec); 125 for (unsigned i = 0; i < length; ++i) 126 applyArgs.append(asArray(array)->get(exec, i)); 127 } else 128 return throwError(exec, TypeError); 129 } 130 131 return call(exec, thisValue, callType, callData, args.at(0), applyArgs); 132 } 133 134 JSValue JSC_HOST_CALL functionProtoFuncCall(ExecState* exec, JSObject*, JSValue thisValue, const ArgList& args) 135 { 136 CallData callData; 137 CallType callType = thisValue.getCallData(callData); 138 if (callType == CallTypeNone) 139 return throwError(exec, TypeError); 140 141 ArgList callArgs; 142 args.getSlice(1, callArgs); 143 return call(exec, thisValue, callType, callData, args.at(0), callArgs); 144 } 145 146 } // namespace JSC 147