runtime/FunctionConstructor.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 "FunctionConstructor.h"
  23
  24 #include "Debugger.h"
  25 #include "ExceptionHelpers.h"
  26 #include "FunctionPrototype.h"
  27 #include "JSFunction.h"
  28 #include "JSGlobalObject.h"
  29 #include "JSString.h"
  30 #include "Lexer.h"
  31 #include "Nodes.h"
  32 #include "Parser.h"
  33 #include "UStringBuilder.h"
  34 #include "UStringConcatenate.h"
  35
  36 namespace JSC {
  37
  38 ASSERT_CLASS_FITS_IN_CELL(FunctionConstructor);
  39 ASSERT_HAS_TRIVIAL_DESTRUCTOR(FunctionConstructor);
  40
  41 const ClassInfo FunctionConstructor::s_info = { "Function", &Base::s_info, 0, 0, CREATE_METHOD_TABLE(FunctionConstructor) };
  42
  43 FunctionConstructor::FunctionConstructor(JSGlobalObject* globalObject, Structure* structure)
  44     : InternalFunction(globalObject, structure)
  45 {
  46 }
  47
  48 void FunctionConstructor::finishCreation(ExecState* exec, FunctionPrototype* functionPrototype)
  49 {
  50     Base::finishCreation(exec->globalData(), Identifier(exec, functionPrototype->classInfo()->className));
  51     putDirectWithoutTransition(exec->globalData(), exec->propertyNames().prototype, functionPrototype, DontEnum | DontDelete | ReadOnly);
  52
  53     // Number of arguments for constructor
  54     putDirectWithoutTransition(exec->globalData(), exec->propertyNames().length, jsNumber(1), ReadOnly | DontDelete | DontEnum);
  55 }
  56
  57 static EncodedJSValue JSC_HOST_CALL constructWithFunctionConstructor(ExecState* exec)
  58 {
  59     ArgList args(exec);
  60     return JSValue::encode(constructFunction(exec, asInternalFunction(exec->callee())->globalObject(), args));
  61 }
  62
  63 ConstructType FunctionConstructor::getConstructData(JSCell*, ConstructData& constructData)
  64 {
  65     constructData.native.function = constructWithFunctionConstructor;
  66     return ConstructTypeHost;
  67 }
  68
  69 static EncodedJSValue JSC_HOST_CALL callFunctionConstructor(ExecState* exec)
  70 {
  71     ArgList args(exec);
  72     return JSValue::encode(constructFunction(exec, asInternalFunction(exec->callee())->globalObject(), args));
  73 }
  74
  75 // ECMA 15.3.1 The Function Constructor Called as a Function
  76 CallType FunctionConstructor::getCallData(JSCell*, CallData& callData)
  77 {
  78     callData.native.function = callFunctionConstructor;
  79     return CallTypeHost;
  80 }
  81
  82 // ECMA 15.3.2 The Function Constructor
  83 JSObject* constructFunction(ExecState* exec, JSGlobalObject* globalObject, const ArgList& args, const Identifier& functionName, const UString& sourceURL, const TextPosition& position)
  84 {
  85     if (!globalObject->evalEnabled())
  86         return throwError(exec, createEvalError(exec, "Function constructor is disabled"));
  87     return constructFunctionSkippingEvalEnabledCheck(exec, globalObject, args, functionName, sourceURL, position);
  88 }
  89
  90 JSObject* constructFunctionSkippingEvalEnabledCheck(ExecState* exec, JSGlobalObject* globalObject, const ArgList& args, const Identifier& functionName, const UString& sourceURL, const TextPosition& position)
  91 {
  92     // Functions need to have a space following the opening { due to for web compatibility
  93     // see https://bugs.webkit.org/show_bug.cgi?id=24350
  94     // We also need \n before the closing } to handle // comments at the end of the last line
  95     UString program;
  96     if (args.isEmpty())
  97         program = "(function() { \n})";
  98     else if (args.size() == 1)
  99         program = makeUString("(function() { ", args.at(0).toString(exec)->value(exec), "\n})");
 100     else {
 101         UStringBuilder builder;
 102         builder.append("(function(");
 103         builder.append(args.at(0).toString(exec)->value(exec));
 104         for (size_t i = 1; i < args.size() - 1; i++) {
 105             builder.append(",");
 106             builder.append(args.at(i).toString(exec)->value(exec));
 107         }
 108         builder.append(") { ");
 109         builder.append(args.at(args.size() - 1).toString(exec)->value(exec));
 110         builder.append("\n})");
 111         program = builder.toUString();
 112     }
 113
 114     JSGlobalData& globalData = globalObject->globalData();
 115     SourceCode source = makeSource(program, sourceURL, position);
 116     JSObject* exception = 0;
 117     FunctionExecutable* function = FunctionExecutable::fromGlobalCode(functionName, exec, exec->dynamicGlobalObject()->debugger(), source, &exception);
 118     if (!function) {
 119         ASSERT(exception);
 120         return throwError(exec, exception);
 121     }
 122
 123     ScopeChainNode* scopeChain = ScopeChainNode::create(exec, 0, globalObject, &globalData, globalObject, exec->globalThisValue());
 124     return JSFunction::create(exec, function, scopeChain);
 125 }
 126
 127 // ECMA 15.3.2 The Function Constructor
 128 JSObject* constructFunction(ExecState* exec, JSGlobalObject* globalObject, const ArgList& args)
 129 {
 130     return constructFunction(exec, globalObject, args, Identifier(exec, "anonymous"), UString(), TextPosition::minimumPosition());
 131 }
 132
 133 } // namespace JSC