src/script/qscriptecmacore.cpp

   1 /****************************************************************************
   2 **
   3 ** Copyright (C) 2009 Nokia Corporation and/or its subsidiary(-ies).
   4 ** Contact: Nokia Corporation (qt-info@nokia.com)
   5 **
   6 ** This file is part of the QtScript module of the Qt Toolkit.
   7 **
   8 ** $QT_BEGIN_LICENSE:LGPL$
   9 ** No Commercial Usage
  10 ** This file contains pre-release code and may not be distributed.
  11 ** You may use this file in accordance with the terms and conditions
  12 ** contained in the either Technology Preview License Agreement or the
  13 ** Beta Release License Agreement.
  14 **
  15 ** GNU Lesser General Public License Usage
  16 ** Alternatively, this file may be used under the terms of the GNU Lesser
  17 ** General Public License version 2.1 as published by the Free Software
  18 ** Foundation and appearing in the file LICENSE.LGPL included in the
  19 ** packaging of this file.  Please review the following information to
  20 ** ensure the GNU Lesser General Public License version 2.1 requirements
  21 ** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
  22 **
  23 ** In addition, as a special exception, Nokia gives you certain
  24 ** additional rights. These rights are described in the Nokia Qt LGPL
  25 ** Exception version 1.0, included in the file LGPL_EXCEPTION.txt in this
  26 ** package.
  27 **
  28 ** GNU General Public License Usage
  29 ** Alternatively, this file may be used under the terms of the GNU
  30 ** General Public License version 3.0 as published by the Free Software
  31 ** Foundation and appearing in the file LICENSE.GPL included in the
  32 ** packaging of this file.  Please review the following information to
  33 ** ensure the GNU General Public License version 3.0 requirements will be
  34 ** met: http://www.gnu.org/copyleft/gpl.html.
  35 **
  36 ** If you are unsure which license is appropriate for your use, please
  37 ** contact the sales department at http://www.qtsoftware.com/contact.
  38 ** $QT_END_LICENSE$
  39 **
  40 ****************************************************************************/
  41
  42 #include "qscriptecmacore_p.h"
  43
  44 #ifndef QT_NO_SCRIPT
  45
  46 #include "qscriptengine_p.h"
  47 #include "qscriptvalueimpl_p.h"
  48 #include "qscriptcontext_p.h"
  49 #include "qscriptmember_p.h"
  50 #include "qscriptobject_p.h"
  51
  52 QT_BEGIN_NAMESPACE
  53
  54 namespace QScript { namespace Ecma {
  55
  56 Core::Core(QScriptEnginePrivate *engine, const QString &className,
  57            QScriptClassInfo::Type type)
  58     : m_engine(engine)
  59 {
  60     m_classInfo = engine->registerClass(className, type);
  61     this->length = 1;
  62 }
  63
  64 Core::Core(QScriptEnginePrivate *engine, QScriptClassInfo *classInfo)
  65     : m_engine(engine), m_classInfo(classInfo)
  66 {
  67     this->length = 1;
  68 }
  69
  70 Core::~Core()
  71 {
  72 }
  73
  74 void Core::addPrototypeFunction(const QString &name, QScriptInternalFunctionSignature fun,
  75                                 int length, const QScriptValue::PropertyFlags flags)
  76 {
  77     addFunction(publicPrototype, name, fun, length, flags);
  78 }
  79
  80 void Core::addConstructorFunction(const QString &name, QScriptInternalFunctionSignature fun,
  81                                   int length, const QScriptValue::PropertyFlags flags)
  82 {
  83     addFunction(ctor, name, fun, length, flags);
  84 }
  85
  86 void Core::addFunction(QScriptValueImpl &object, const QString &name,
  87                        QScriptInternalFunctionSignature fun, int length,
  88                        const QScriptValue::PropertyFlags flags)
  89 {
  90     QScriptValueImpl val = engine()->createFunction(fun, length, m_classInfo, name);
  91     object.setProperty(name, val, flags);
  92 }
  93
  94 QString Core::functionName() const
  95 {
  96     return m_classInfo->name();
  97 }
  98
  99 void Core::mark(QScriptEnginePrivate *eng, int generation)
 100 {
 101     QScriptFunction::mark(eng, generation);
 102     eng->markObject(ctor, generation);
 103     eng->markObject(publicPrototype, generation);
 104 }
 105
 106 QScriptValueImpl Core::throwThisObjectTypeError(QScriptContextPrivate *context,
 107                                                 const QString &functionName)
 108 {
 109     return context->throwError(QScriptContext::TypeError,
 110                                QString::fromLatin1("%0 called on incompatible object")
 111                                .arg(functionName));
 112 }
 113
 114 } // namespace Ecma
 115
 116 } // namespace QScript
 117
 118 QT_END_NAMESPACE
 119
 120 #endif // QT_NO_SCRIPT