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 "qscriptprogram_p.h"
  25 #include "qscriptvalue_p.h"
  26
  27 /*!
  28     Constructs a default QScriptEnginePrivate object, a new global context will be created.
  29     \internal
  30 */
  31 QScriptEnginePrivate::QScriptEnginePrivate(const QScriptEngine* engine)
  32     : q_ptr(const_cast<QScriptEngine*>(engine))
  33     , m_context(JSGlobalContextCreate(0))
  34 {
  35 }
  36
  37 QScriptEnginePrivate::~QScriptEnginePrivate()
  38 {
  39     JSGlobalContextRelease(m_context);
  40 }
  41
  42 QScriptSyntaxCheckResultPrivate* QScriptEnginePrivate::checkSyntax(const QString& program)
  43 {
  44     JSValueRef exception;
  45     JSStringRef source = QScriptConverter::toString(program);
  46     bool syntaxIsCorrect = JSCheckScriptSyntax(m_context, source, /* url */ 0, /* starting line */ 1, &exception);
  47     JSStringRelease(source);
  48     if (syntaxIsCorrect) {
  49         return new QScriptSyntaxCheckResultPrivate(this);
  50     }
  51     JSValueProtect(m_context, exception);
  52     return new QScriptSyntaxCheckResultPrivate(this, const_cast<JSObjectRef>(exception));
  53 }
  54
  55 /*!
  56     Evaluates program and returns the result of the evaluation.
  57     \internal
  58 */
  59 QScriptValuePrivate* QScriptEnginePrivate::evaluate(const QString& program, const QString& fileName, int lineNumber)
  60 {
  61     JSStringRef script = QScriptConverter::toString(program);
  62     JSStringRef file = QScriptConverter::toString(fileName);
  63     QScriptValuePrivate* result = new QScriptValuePrivate(this, evaluate(script, file, lineNumber));
  64     JSStringRelease(script);
  65     JSStringRelease(file);
  66     return result;
  67 }
  68
  69 /*!
  70     Evaluates program and returns the result of the evaluation.
  71     \internal
  72 */
  73 QScriptValuePrivate* QScriptEnginePrivate::evaluate(const QScriptProgramPrivate* program)
  74 {
  75     if (program->isNull())
  76         return new QScriptValuePrivate;
  77     return new QScriptValuePrivate(this, evaluate(program->program(), program->file(), program->line()));
  78 }
  79
  80 QScriptValuePrivate* QScriptEnginePrivate::globalObject() const
  81 {
  82     JSObjectRef globalObject = JSContextGetGlobalObject(context());
  83     return new QScriptValuePrivate(this, globalObject, globalObject);
  84 }