qt/api/qscriptengine_p.cpp

   1 /*
   2     Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies)
   3
   4     This library is free software; you can redistribute it and/or
   5     modify it under the terms of the GNU Library General Public
   6     License as published by the Free Software Foundation; either
   7     version 2 of the License, or (at your option) any later version.
   8
   9     This library is distributed in the hope that it will be useful,
  10     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12     Library General Public License for more details.
  13
  14     You should have received a copy of the GNU Library General Public License
  15     along with this library; see the file COPYING.LIB.  If not, write to
  16     the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  17     Boston, MA 02110-1301, USA.
  18 */
  19
  20 #include "config.h"
  21
  22 #include "qscriptengine_p.h"
  23
  24 #include "qscriptfunction_p.h"
  25 #include "qscriptprogram_p.h"
  26 #include "qscriptvalue_p.h"
  27
  28 /*!
  29     Constructs a default QScriptEnginePrivate object, a new global context will be created.
  30     \internal
  31 */
  32 QScriptEnginePrivate::QScriptEnginePrivate(const QScriptEngine* engine)
  33     : q_ptr(const_cast<QScriptEngine*>(engine))
  34     , m_context(JSGlobalContextCreate(0))
  35     , m_exception(0)
  36     , m_originalGlobalObject(m_context)
  37     , m_nativeFunctionClass(JSClassCreate(&qt_NativeFunctionClass))
  38     , m_nativeFunctionWithArgClass(JSClassCreate(&qt_NativeFunctionWithArgClass))
  39 {
  40 }
  41
  42 QScriptEnginePrivate::~QScriptEnginePrivate()
  43 {
  44     JSClassRelease(m_nativeFunctionClass);
  45     JSClassRelease(m_nativeFunctionWithArgClass);
  46     if (m_exception)
  47         JSValueUnprotect(m_context, m_exception);
  48     JSGlobalContextRelease(m_context);
  49 }
  50
  51 QScriptSyntaxCheckResultPrivate* QScriptEnginePrivate::checkSyntax(const QString& program)
  52 {
  53     JSValueRef exception;
  54     JSStringRef source = QScriptConverter::toString(program);
  55     bool syntaxIsCorrect = JSCheckScriptSyntax(m_context, source, /* url */ 0, /* starting line */ 1, &exception);
  56     JSStringRelease(source);
  57     if (syntaxIsCorrect) {
  58         return new QScriptSyntaxCheckResultPrivate(this);
  59     }
  60     JSValueProtect(m_context, exception);
  61     return new QScriptSyntaxCheckResultPrivate(this, const_cast<JSObjectRef>(exception));
  62 }
  63
  64 /*!
  65     Evaluates program and returns the result of the evaluation.
  66     \internal
  67 */
  68 QScriptValuePrivate* QScriptEnginePrivate::evaluate(const QString& program, const QString& fileName, int lineNumber)
  69 {
  70     JSStringRef script = QScriptConverter::toString(program);
  71     JSStringRef file = QScriptConverter::toString(fileName);
  72     QScriptValuePrivate* result = new QScriptValuePrivate(this, evaluate(script, file, lineNumber));
  73     JSStringRelease(script);
  74     JSStringRelease(file);
  75     return result;
  76 }
  77
  78 /*!
  79     Evaluates program and returns the result of the evaluation.
  80     \internal
  81 */
  82 QScriptValuePrivate* QScriptEnginePrivate::evaluate(const QScriptProgramPrivate* program)
  83 {
  84     if (program->isNull())
  85         return new QScriptValuePrivate;
  86     return new QScriptValuePrivate(this, evaluate(*program, program->file(), program->line()));
  87 }
  88
  89 QScriptValuePrivate* QScriptEnginePrivate::uncaughtException() const
  90 {
  91     return m_exception ? new QScriptValuePrivate(this, m_exception) : new QScriptValuePrivate();
  92 }
  93
  94 QScriptValuePrivate* QScriptEnginePrivate::newFunction(QScriptEngine::FunctionSignature fun, QScriptValuePrivate* prototype, int length)
  95 {
  96     // Note that this private data will be deleted in the object finalize function.
  97     QNativeFunctionData* data = new QNativeFunctionData(this, fun);
  98     JSObjectRef funJS = JSObjectMake(m_context, m_nativeFunctionClass, reinterpret_cast<void*>(data));
  99     QScriptValuePrivate* proto = prototype ? prototype : newObject();
 100     return newFunction(funJS, proto);
 101 }
 102
 103 QScriptValuePrivate* QScriptEnginePrivate::newFunction(QScriptEngine::FunctionWithArgSignature fun, void* arg)
 104 {
 105     // Note that this private data will be deleted in the object finalize function.
 106     QNativeFunctionWithArgData* data = new QNativeFunctionWithArgData(this, fun, arg);
 107     JSObjectRef funJS = JSObjectMake(m_context, m_nativeFunctionWithArgClass, reinterpret_cast<void*>(data));
 108     QScriptValuePrivate* proto = newObject();
 109     return newFunction(funJS, proto);
 110 }
 111
 112 QScriptValuePrivate* QScriptEnginePrivate::newFunction(JSObjectRef funJS, QScriptValuePrivate* prototype)
 113 {
 114     JSObjectSetPrototype(m_context, funJS, m_originalGlobalObject.functionPrototype());
 115
 116     QScriptValuePrivate* result = new QScriptValuePrivate(this, funJS);
 117     static JSStringRef protoName = QScriptConverter::toString("prototype");
 118     static JSStringRef constructorName = QScriptConverter::toString("constructor");
 119     result->setProperty(protoName, prototype, QScriptValue::Undeletable);
 120     prototype->setProperty(constructorName, result, QScriptValue::PropertyFlags(QScriptValue::Undeletable | QScriptValue::SkipInEnumeration));
 121
 122     return result;
 123 }
 124
 125 QScriptValuePrivate* QScriptEnginePrivate::newObject() const
 126 {
 127     return new QScriptValuePrivate(this, JSObjectMake(m_context, /* jsClass */ 0, /* userData */ 0));
 128 }
 129
 130 QScriptValuePrivate* QScriptEnginePrivate::newArray(uint length)
 131 {
 132     JSValueRef exception = 0;
 133     JSObjectRef array = JSObjectMakeArray(m_context, /* argumentCount */ 0, /* arguments */ 0, &exception);
 134
 135     if (!exception) {
 136         if (length > 0) {
 137             JSRetainPtr<JSStringRef> lengthRef(Adopt, JSStringCreateWithUTF8CString("length"));
 138             // array is an Array instance, so an exception should not occure here.
 139             JSObjectSetProperty(m_context, array, lengthRef.get(), JSValueMakeNumber(m_context, length), kJSPropertyAttributeNone, /* exception */ 0);
 140         }
 141     } else {
 142         setException(exception, NotNullException);
 143         return new QScriptValuePrivate();
 144     }
 145
 146     return new QScriptValuePrivate(this, array);
 147 }
 148
 149 QScriptValuePrivate* QScriptEnginePrivate::newDate(qsreal value)
 150 {
 151     JSValueRef exception = 0;
 152     JSValueRef argument = JSValueMakeNumber(m_context, value);
 153     JSObjectRef result = JSObjectMakeDate(m_context, /* argumentCount */ 1, &argument, &exception);
 154
 155     if (exception) {
 156         setException(exception, NotNullException);
 157         return new QScriptValuePrivate();
 158     }
 159
 160     return new QScriptValuePrivate(this, result);
 161 }
 162
 163 QScriptValuePrivate* QScriptEnginePrivate::globalObject() const
 164 {
 165     JSObjectRef globalObject = JSContextGetGlobalObject(m_context);
 166     return new QScriptValuePrivate(this, globalObject);
 167 }