← Back to branch summary

~oif-team/ubuntu/natty/qt4-x11/xi2.1

« back to all changes in this revision

Viewing changes to src/script/bridge/qscriptfunction.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Alessandro Ghersi
  • Date: 2009-11-02 18:30:08 UTC
  • mfrom: (1.2.2 upstream)
  • mto: (15.2.5 experimental)
  • mto: This revision was merged to the branch mainline in revision 88.
  • Revision ID: james.westby@ubuntu.com-20091102183008-b6a4gcs128mvfb3m
Tags: upstream-4.6.0~beta1
Import upstream version 4.6.0~beta1

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/script/bridge/qscriptfunction.cpp
 
1
/****************************************************************************
 
2
**
 
3
** Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).
 
4
** All rights reserved.
 
5
** Contact: Nokia Corporation (qt-info@nokia.com)
 
6
**
 
7
** This file is part of the QtScript module of the Qt Toolkit.
 
8
**
 
9
** $QT_BEGIN_LICENSE:LGPL$
 
10
** No Commercial Usage
 
11
** This file contains pre-release code and may not be distributed.
 
12
** You may use this file in accordance with the terms and conditions
 
13
** contained in the Technology Preview License Agreement accompanying
 
14
** this package.
 
15
**
 
16
** GNU Lesser General Public License Usage
 
17
** Alternatively, this file may be used under the terms of the GNU Lesser
 
18
** General Public License version 2.1 as published by the Free Software
 
19
** Foundation and appearing in the file LICENSE.LGPL included in the
 
20
** packaging of this file.  Please review the following information to
 
21
** ensure the GNU Lesser General Public License version 2.1 requirements
 
22
** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
 
23
**
 
24
** In addition, as a special exception, Nokia gives you certain additional
 
25
** rights.  These rights are described in the Nokia Qt LGPL Exception
 
26
** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
 
27
**
 
28
** If you have questions regarding the use of this file, please contact
 
29
** Nokia at qt-info@nokia.com.
 
30
**
 
31
**
 
32
**
 
33
**
 
34
**
 
35
**
 
36
**
 
37
**
 
38
** $QT_END_LICENSE$
 
39
**
 
40
****************************************************************************/
 
41
 
 
42
#include "config.h"
 
43
#include "qscriptfunction_p.h"
 
44
 
 
45
#include "private/qscriptengine_p.h"
 
46
#include "qscriptcontext.h"
 
47
#include "private/qscriptcontext_p.h"
 
48
#include "private/qscriptvalue_p.h"
 
49
#include "qscriptactivationobject_p.h"
 
50
#include "qscriptobject_p.h"
 
51
 
 
52
#include "JSGlobalObject.h"
 
53
#include "DebuggerCallFrame.h"
 
54
#include "Debugger.h"
 
55
 
 
56
namespace JSC
 
57
{
 
58
ASSERT_CLASS_FITS_IN_CELL(QT_PREPEND_NAMESPACE(QScript::FunctionWrapper));
 
59
ASSERT_CLASS_FITS_IN_CELL(QT_PREPEND_NAMESPACE(QScript::FunctionWithArgWrapper));
 
60
}
 
61
 
 
62
QT_BEGIN_NAMESPACE
 
63
 
 
64
namespace QScript
 
65
{
 
66
 
 
67
const JSC::ClassInfo FunctionWrapper::info = { "QtNativeFunctionWrapper", &PrototypeFunction::info, 0, 0 };
 
68
const JSC::ClassInfo FunctionWithArgWrapper::info = { "QtNativeFunctionWithArgWrapper", &PrototypeFunction::info, 0, 0 };
 
69
 
 
70
FunctionWrapper::FunctionWrapper(JSC::ExecState *exec, int length, const JSC::Identifier &name,
 
71
                                 QScriptEngine::FunctionSignature function)
 
72
    : JSC::PrototypeFunction(exec, length, name, proxyCall),
 
73
      data(new Data())
 
74
{
 
75
    data->function = function;
 
76
}
 
77
 
 
78
FunctionWrapper::~FunctionWrapper()
 
79
{
 
80
    delete data;
 
81
}
 
82
 
 
83
JSC::ConstructType FunctionWrapper::getConstructData(JSC::ConstructData& consData)
 
84
{
 
85
    consData.native.function = proxyConstruct;
 
86
    consData.native.function.doNotCallDebuggerFunctionExit();
 
87
    return JSC::ConstructTypeHost;
 
88
}
 
89
 
 
90
JSC::JSValue FunctionWrapper::proxyCall(JSC::ExecState *exec, JSC::JSObject *callee,
 
91
                                        JSC::JSValue thisObject, const JSC::ArgList &args)
 
92
{
 
93
    FunctionWrapper *self = static_cast<FunctionWrapper*>(callee);
 
94
    QScriptEnginePrivate *eng_p = QScript::scriptEngineFromExec(exec);
 
95
 
 
96
    JSC::ExecState *oldFrame = eng_p->currentFrame;
 
97
    eng_p->pushContext(exec, thisObject, args, callee);
 
98
    QScriptContext *ctx = eng_p->contextForFrame(eng_p->currentFrame);
 
99
 
 
100
    QScriptValue result = self->data->function(ctx, QScriptEnginePrivate::get(eng_p));
 
101
    if (!result.isValid())
 
102
        result = QScriptValue(QScriptValue::UndefinedValue);
 
103
 
 
104
    eng_p->popContext();
 
105
    eng_p->currentFrame = oldFrame;
 
106
 
 
107
    return eng_p->scriptValueToJSCValue(result);
 
108
}
 
109
 
 
110
JSC::JSObject* FunctionWrapper::proxyConstruct(JSC::ExecState *exec, JSC::JSObject *callee,
 
111
                                               const JSC::ArgList &args)
 
112
{
 
113
    FunctionWrapper *self = static_cast<FunctionWrapper*>(callee);
 
114
    QScriptEnginePrivate *eng_p = QScript::scriptEngineFromExec(exec);
 
115
 
 
116
    JSC::ExecState *oldFrame = eng_p->currentFrame;
 
117
    eng_p->pushContext(exec, JSC::JSValue(), args, callee, true);
 
118
    QScriptContext *ctx = eng_p->contextForFrame(eng_p->currentFrame);
 
119
 
 
120
    QScriptValue result = self->data->function(ctx, QScriptEnginePrivate::get(eng_p));
 
121
 
 
122
    if (JSC::Debugger* debugger = eng_p->originalGlobalObject()->debugger())
 
123
        debugger->functionExit(QScriptValuePrivate::get(result)->jscValue, -1);
 
124
 
 
125
    if (!result.isObject())
 
126
        result = ctx->thisObject();
 
127
 
 
128
    eng_p->popContext();
 
129
    eng_p->currentFrame = oldFrame;
 
130
 
 
131
    return JSC::asObject(eng_p->scriptValueToJSCValue(result));
 
132
}
 
133
 
 
134
FunctionWithArgWrapper::FunctionWithArgWrapper(JSC::ExecState *exec, int length, const JSC::Identifier &name,
 
135
                                               QScriptEngine::FunctionWithArgSignature function, void *arg)
 
136
    : JSC::PrototypeFunction(exec, length, name, proxyCall),
 
137
      data(new Data())
 
138
{
 
139
    data->function = function;
 
140
    data->arg = arg;
 
141
}
 
142
 
 
143
FunctionWithArgWrapper::~FunctionWithArgWrapper()
 
144
{
 
145
    delete data;
 
146
}
 
147
 
 
148
JSC::ConstructType FunctionWithArgWrapper::getConstructData(JSC::ConstructData& consData)
 
149
{
 
150
    consData.native.function = proxyConstruct;
 
151
    return JSC::ConstructTypeHost;
 
152
}
 
153
 
 
154
JSC::JSValue FunctionWithArgWrapper::proxyCall(JSC::ExecState *exec, JSC::JSObject *callee,
 
155
                                               JSC::JSValue thisObject, const JSC::ArgList &args)
 
156
{
 
157
    FunctionWithArgWrapper *self = static_cast<FunctionWithArgWrapper*>(callee);
 
158
    QScriptEnginePrivate *eng_p = QScript::scriptEngineFromExec(exec);
 
159
 
 
160
    JSC::ExecState *oldFrame = eng_p->currentFrame;
 
161
    eng_p->pushContext(exec, thisObject, args, callee);
 
162
    QScriptContext *ctx = eng_p->contextForFrame(eng_p->currentFrame);
 
163
 
 
164
    QScriptValue result = self->data->function(ctx, QScriptEnginePrivate::get(eng_p), self->data->arg);
 
165
 
 
166
    eng_p->popContext();
 
167
    eng_p->currentFrame = oldFrame;
 
168
 
 
169
    return eng_p->scriptValueToJSCValue(result);
 
170
}
 
171
 
 
172
JSC::JSObject* FunctionWithArgWrapper::proxyConstruct(JSC::ExecState *exec, JSC::JSObject *callee,
 
173
                                                      const JSC::ArgList &args)
 
174
{
 
175
    FunctionWithArgWrapper *self = static_cast<FunctionWithArgWrapper*>(callee);
 
176
    QScriptEnginePrivate *eng_p = QScript::scriptEngineFromExec(exec);
 
177
 
 
178
    JSC::ExecState *oldFrame = eng_p->currentFrame;
 
179
    eng_p->pushContext(exec, JSC::JSValue(), args, callee, true);
 
180
    QScriptContext *ctx = eng_p->contextForFrame(eng_p->currentFrame);
 
181
 
 
182
    QScriptValue result = self->data->function(ctx, QScriptEnginePrivate::get(eng_p) , self->data->arg);
 
183
    if (!result.isObject())
 
184
        result = ctx->thisObject();
 
185
 
 
186
    eng_p->popContext();
 
187
    eng_p->currentFrame = oldFrame;
 
188
 
 
189
    return JSC::asObject(eng_p->scriptValueToJSCValue(result));
 
190
}
 
191
 
 
192
} // namespace QScript
 
193
 
 
194
QT_END_NAMESPACE