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 */
QScriptEnginePrivate(const QScriptEngine * engine)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
~QScriptEnginePrivate()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
checkSyntax(const QString & program)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 */
evaluate(const QString & program,const QString & fileName,int lineNumber)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 */
evaluate(const QScriptProgramPrivate * program)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
uncaughtException() const89 QScriptValuePrivate* QScriptEnginePrivate::uncaughtException() const
90 {
91 return m_exception ? new QScriptValuePrivate(this, m_exception) : new QScriptValuePrivate();
92 }
93
newFunction(QScriptEngine::FunctionSignature fun,QScriptValuePrivate * prototype,int length)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
newFunction(QScriptEngine::FunctionWithArgSignature fun,void * arg)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
newFunction(JSObjectRef funJS,QScriptValuePrivate * prototype)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
newObject() const125 QScriptValuePrivate* QScriptEnginePrivate::newObject() const
126 {
127 return new QScriptValuePrivate(this, JSObjectMake(m_context, /* jsClass */ 0, /* userData */ 0));
128 }
129
newArray(uint length)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
newDate(qsreal value)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
globalObject() const163 QScriptValuePrivate* QScriptEnginePrivate::globalObject() const
164 {
165 JSObjectRef globalObject = JSContextGetGlobalObject(m_context);
166 return new QScriptValuePrivate(this, globalObject);
167 }
168