qtdeclarative/qmljs_runtime.cpp

/****************************************************************************
**
** Copyright (C) 2012 Digia Plc and/or its subsidiary(-ies).
** Contact: http://www.qt-project.org/legal
**
** This file is part of the V4VM module of the Qt Toolkit.
**
** $QT_BEGIN_LICENSE:LGPL$
** Commercial License Usage
** Licensees holding valid commercial Qt licenses may use this file in
** accordance with the commercial license agreement provided with the
** Software or, alternatively, in accordance with the terms contained in
** a written agreement between you and Digia.  For licensing terms and
** conditions see http://qt.digia.com/licensing.  For further information
** use the contact form at http://qt.digia.com/contact-us.
**
** GNU Lesser General Public License Usage
** Alternatively, this file may be used under the terms of the GNU Lesser
** General Public License version 2.1 as published by the Free Software
** Foundation and appearing in the file LICENSE.LGPL included in the
** packaging of this file.  Please review the following information to
** ensure the GNU Lesser General Public License version 2.1 requirements
** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
**
** In addition, as a special exception, Digia gives you certain additional
** rights.  These rights are described in the Digia Qt LGPL Exception
** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
**
** GNU General Public License Usage
** Alternatively, this file may be used under the terms of the GNU
** General Public License version 3.0 as published by the Free Software
** Foundation and appearing in the file LICENSE.GPL included in the
** packaging of this file.  Please review the following information to
** ensure the GNU General Public License version 3.0 requirements will be
** met: http://www.gnu.org/copyleft/gpl.html.
**
**
** $QT_END_LICENSE$
**
****************************************************************************/


#include "qmljs_runtime.h"
#include "qmljs_objects.h"
#include "qv4ir_p.h"
#include "qv4ecmaobjects_p.h"

#include <QtCore/qmath.h>
#include <QtCore/qnumeric.h>
#include <QtCore/QDebug>
#include <cstdio>
#include <cassert>
#include <typeinfo>

namespace QQmlJS {
namespace VM {

QString numberToString(double num, int radix = 10)
{
    if (qIsNaN(num)) {
        return QStringLiteral("NaN");
    } else if (qIsInf(num)) {
        return QLatin1String(num < 0 ? "-Infinity" : "Infinity");
    }

    if (radix == 10)
        return QString::number(num, 'g', 16);

    QString str;
    bool negative = false;

    if (num < 0) {
        negative = true;
        num = -num;
    }

    double frac = num - ::floor(num);
    num = Value::toInteger(num);

    do {
        char c = (char)::fmod(num, radix);
        c = (c < 10) ? (c + '0') : (c - 10 + 'a');
        str.prepend(QLatin1Char(c));
        num = ::floor(num / radix);
    } while (num != 0);

    if (frac != 0) {
        str.append(QLatin1Char('.'));
        do {
            frac = frac * radix;
            char c = (char)::floor(frac);
            c = (c < 10) ? (c + '0') : (c - 10 + 'a');
            str.append(QLatin1Char(c));
            frac = frac - ::floor(frac);
        } while (frac != 0);
    }

    if (negative)
        str.prepend(QLatin1Char('-'));

    return str;
}


Value Value::fromString(Context *ctx, const QString &s)
{
    return fromString(ctx->engine->newString(s));
}

int Value::toInt32(double number)
{
    if (! number || isnan(number) || isinf(number))
        return +0;
    return (int) trunc(number); // ###
}

unsigned int Value::toUInt32(double number)
{
    if (! number || isnan(number) || isinf(number))
        return +0;
    return (uint) trunc(number); // ###
}

int Value::toInteger(double number)
{
    if (isnan(number))
        return +0;
    else if (! number || isinf(number))
        return number;
    const double v = floor(fabs(number));
    return signbit(number) ? -v : v;
}

int Value::toUInt16(Context *ctx)
{
    return __qmljs_to_uint16(*this, ctx);
}

int Value::toInt32(Context *ctx)
{
    return __qmljs_to_int32(*this, ctx);
}

unsigned int Value::toUInt32(Context *ctx)
{
    return __qmljs_to_uint32(*this, ctx);
}

Bool Value::toBoolean(Context *ctx) const
{
    return __qmljs_to_boolean(*this, ctx);
}

double Value::toInteger(Context *ctx) const
{
    return __qmljs_to_integer(*this, ctx);
}

double Value::toNumber(Context *ctx) const
{
    return __qmljs_to_number(*this, ctx);
}

String *Value::toString(Context *ctx) const
{
    Value v = __qmljs_to_string(ctx, *this);
    assert(v.is(Value::String_Type));
    return v.stringValue();
}

Value Value::toObject(Context *ctx) const
{
    return __qmljs_to_object(ctx, *this);
}

bool Value::isFunctionObject() const
{
    return isObject() ? objectValue()->asFunctionObject() != 0 : false;
}

bool Value::isBooleanObject() const
{
    return isObject() ? objectValue()->asBooleanObject() != 0 : false;
}

bool Value::isNumberObject() const
{
    return isObject() ? objectValue()->asNumberObject() != 0 : false;
}

bool Value::isStringObject() const
{
    return isObject() ? objectValue()->asStringObject() != 0 : false;
}

bool Value::isDateObject() const
{
    return isObject() ? objectValue()->asDateObject() != 0 : false;
}

bool Value::isArrayObject() const
{
    return isObject() ? objectValue()->asArrayObject() != 0 : false;
}

bool Value::isErrorObject() const
{
    return isObject() ? objectValue()->asErrorObject() != 0 : false;
}

bool Value::isArgumentsObject() const
{
    return isObject() ? objectValue()->asActivationObject() != 0 : false;
}

Object *Value::asObject() const
{
    return isObject() ? objectValue() : 0;
}

FunctionObject *Value::asFunctionObject() const
{
    return isObject() ? objectValue()->asFunctionObject() : 0;
}

BooleanObject *Value::asBooleanObject() const
{
    return isObject() ? objectValue()->asBooleanObject() : 0;
}

NumberObject *Value::asNumberObject() const
{
    return isObject() ? objectValue()->asNumberObject() : 0;
}

StringObject *Value::asStringObject() const
{
    return isObject() ? objectValue()->asStringObject() : 0;
}

DateObject *Value::asDateObject() const
{
    return isObject() ? objectValue()->asDateObject() : 0;
}

ArrayObject *Value::asArrayObject() const
{
    return isObject() ? objectValue()->asArrayObject() : 0;
}

ErrorObject *Value::asErrorObject() const
{
    return isObject() ? objectValue()->asErrorObject() : 0;
}

ActivationObject *Value::asArgumentsObject() const
{
    return isObject() ? objectValue()->asActivationObject() : 0;
}

Value Value::property(Context *ctx, String *name) const
{
    return isObject() ? objectValue()->getProperty(ctx, name) : undefinedValue();
}

Value *Value::getPropertyDescriptor(Context *ctx, String *name) const
{
    return isObject() ? objectValue()->getPropertyDescriptor(ctx, name) : 0;
}

void Context::init(ExecutionEngine *eng)
{
    engine = eng;
    parent = 0;
    arguments = 0;
    argumentCount = 0;
    locals = 0;
    activation = Value::nullValue();
    thisObject = Value::nullValue();
    result = Value::undefinedValue();
    formals = 0;
    formalCount = 0;
    vars = 0;
    varCount = 0;
    calledAsConstructor = false;
    hasUncaughtException = false;
}

Value *Context::lookupPropertyDescriptor(String *name)
{
    for (Context *ctx = this; ctx; ctx = ctx->parent) {
        if (ctx->activation.is(Value::Object_Type)) {
            if (Value *prop = ctx->activation.objectValue()->getPropertyDescriptor(this, name)) {
                return prop;
            }
        }
    }
    return 0;
}

void Context::throwError(const Value &value)
{
    result = value;
    hasUncaughtException = true;
}

void Context::throwError(const QString &message)
{
    Value v = Value::fromString(this, message);
    throwError(Value::fromObject(engine->newErrorObject(v)));
}

void Context::throwTypeError()
{
    Value v = Value::fromString(this, QStringLiteral("Type error"));
    throwError(Value::fromObject(engine->newErrorObject(v)));
}

void Context::throwUnimplemented(const QString &message)
{
    Value v = Value::fromString(this, QStringLiteral("Unimplemented ") + message);
    throwError(Value::fromObject(engine->newErrorObject(v)));
}

void Context::throwReferenceError(const Value &value)
{
    String *s = value.toString(this);
    QString msg = s->toQString() + QStringLiteral(" is not defined");
    throwError(Value::fromObject(engine->newErrorObject(Value::fromString(this, msg))));
}

void Context::initCallContext(ExecutionEngine *e, const Value *object, FunctionObject *f, Value *args, unsigned argc)
{
    engine = e;
    parent = f->scope;
    result = Value::undefinedValue();

    if (f->needsActivation)
        activation = __qmljs_init_object(engine->newActivationObject(this));
    else
        activation = Value::nullValue();

    if (object)
        thisObject = *object;
    else
        thisObject = Value::nullValue();

    formals = f->formalParameterList;
    formalCount = f->formalParameterCount;
    arguments = args;
    argumentCount = argc;
    if (f->needsActivation || argc < formalCount){
        arguments = new Value[qMax(argc, formalCount)];
        if (argc)
            std::copy(args, args + argc, arguments);
        if (argc < formalCount)
            std::fill(arguments + argc, arguments + formalCount, Value::undefinedValue());
    }
    vars = f->varList;
    varCount = f->varCount;
    locals = varCount ? new Value[varCount] : 0;
    hasUncaughtException = false;
    calledAsConstructor = false;
    if (varCount)
        std::fill(locals, locals + varCount, Value::undefinedValue());
}

void Context::leaveCallContext(FunctionObject *f)
{
    if (! f->needsActivation) {
        delete[] locals;
        locals = 0;
    }
}

void Context::initConstructorContext(ExecutionEngine *e, const Value *object, FunctionObject *f, Value *args, unsigned argc)
{
    initCallContext(e, object, f, args, argc);
    calledAsConstructor = true;
}

void Context::leaveConstructorContext(FunctionObject *f)
{
    assert(thisObject.is(Value::Object_Type));
    result = thisObject;

    Value proto = f->getProperty(this, engine->id_prototype);
    thisObject.objectValue()->prototype = proto.objectValue();
    if (! thisObject.isObject())
        thisObject.objectValue()->prototype = engine->objectPrototype;

    leaveCallContext(f);
}

extern "C" {

Value __qmljs_init_closure(IR::Function *clos, Context *ctx)
{
    return __qmljs_init_object(ctx->engine->newScriptFunction(ctx, clos));
}

Value __qmljs_init_native_function(void (*code)(Context *), Context *ctx)
{
    return __qmljs_init_object(ctx->engine->newNativeFunction(ctx, code));
}

Value __qmljs_string_literal_undefined(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("undefined")));
}

Value __qmljs_string_literal_null(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("null")));
}

Value __qmljs_string_literal_true(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("true")));
}

Value __qmljs_string_literal_false(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("false")));
}

Value __qmljs_string_literal_object(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("object")));
}

Value __qmljs_string_literal_boolean(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("boolean")));
}

Value __qmljs_string_literal_number(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("number")));
}

Value __qmljs_string_literal_string(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("string")));
}

Value __qmljs_string_literal_function(Context *ctx)
{
    return Value::fromString(ctx->engine->identifier(QStringLiteral("function")));
}

void __qmljs_delete_subscript(Context *ctx, Value *result, Value *base, Value *index)
{
    if (ArrayObject *a = base->asArrayObject()) {
        int n = -1;
        if (index->isInteger())
            n = index->integerValue();
        else if (index->isDouble())
            n = index->doubleValue();
        if (n >= 0) {
            if (n < a->value.size()) {
                a->value.assign(n, Value::undefinedValue());
                *result = Value::fromBoolean(true);
                return;
            }
        }
    }

    String *name = index->toString(ctx);
    __qmljs_delete_member(ctx, result, base, name);
}

void __qmljs_delete_member(Context *ctx, Value *result, Value *base, String *name)
{
    Value obj = base->toObject(ctx);
    *result = Value::fromBoolean(obj.objectValue()->deleteProperty(ctx, name, true));
}

void __qmljs_delete_property(Context *ctx, Value *result, String *name)
{
    Value obj = ctx->activation;
    if (! obj.isObject())
        obj = ctx->engine->globalObject;
    *result = Value::fromBoolean(obj.objectValue()->deleteProperty(ctx, name, true));
}

void __qmljs_delete_value(Context *ctx, Value *result, Value *value)
{
    Q_UNUSED(value);
    *result = __qmljs_throw_type_error(ctx); // ### throw syntax error
}

void __qmljs_add_helper(Context *ctx, Value *result, const Value *left, const Value *right)
{
    Value pleft = __qmljs_to_primitive(ctx, *left, PREFERREDTYPE_HINT);
    Value pright = __qmljs_to_primitive(ctx, *right, PREFERREDTYPE_HINT);
    if (pleft.isString() || pright.isString()) {
        if (!pleft.isString())
            pleft = __qmljs_to_string(ctx, pleft);
        if (!pright.isString())
            pright = __qmljs_to_string(ctx, pright);
        String *string = __qmljs_string_concat(ctx, pleft.stringValue(), pright.stringValue());
        *result = Value::fromString(string);
    } else {
        double x = __qmljs_to_number(pleft, ctx);
        double y = __qmljs_to_number(pright, ctx);
        *result = Value::fromDouble(x + y);
    }
}

void __qmljs_instanceof(Context *ctx, Value *result, const Value *left, const Value *right)
{
    if (FunctionObject *function = right->asFunctionObject()) {
        bool r = function->hasInstance(ctx, *left);
        *result = Value::fromBoolean(r);
        return;
    }

    *result = __qmljs_throw_type_error(ctx);
}

void __qmljs_in(Context *ctx, Value *result, const Value *left, const Value *right)
{
    if (right->isObject()) {
        Value s = __qmljs_to_string(ctx, *left);
        bool r = right->objectValue()->hasProperty(ctx, s.stringValue());
        *result = Value::fromBoolean(r);
    } else {
        *result = __qmljs_throw_type_error(ctx);
    }
}

void __qmljs_inplace_bit_and_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_or_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_xor_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_add_name(Context *ctx, String *name, Value *value)
{
    if (Value *prop = ctx->lookupPropertyDescriptor(name))
        __qmljs_add(ctx, prop, prop, value);
    else
        ctx->throwReferenceError(Value::fromString(name));
}

void __qmljs_inplace_sub_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_mul_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_div_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_mod_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_shl_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_shr_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_ushr_name(Context *ctx, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_and_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_or_element(Context *ctx, Value *base, Value *index, Value *value)
{
    Object *obj = base->toObject(ctx).objectValue();
    if (ArrayObject *a = obj->asArrayObject()) {
        if (index->isNumber()) {
            const quint32 idx = index->toUInt32(ctx);
            Value v = a->value.at(idx);
            __qmljs_bit_or(ctx, &v, &v, value);
            a->value.assign(idx, v);
            return;
        }
    }
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_xor_element(Context *ctx, Value *base, Value *index, Value *value)
{
    Object *obj = base->toObject(ctx).objectValue();
    if (ArrayObject *a = obj->asArrayObject()) {
        if (index->isNumber()) {
            const quint32 idx = index->toUInt32(ctx);
            Value v = a->value.at(idx);
            __qmljs_bit_xor(ctx, &v, &v, value);
            a->value.assign(idx, v);
            return;
        }
    }
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_add_element(Context *ctx, Value *base, Value *index, Value *value)
{
    Object *obj = base->toObject(ctx).objectValue();
    if (ArrayObject *a = obj->asArrayObject()) {
        if (index->isNumber()) {
            const quint32 idx = index->toUInt32(ctx);
            Value v = a->value.at(idx);
            __qmljs_add(ctx, &v, &v, value);
            a->value.assign(idx, v);
            return;
        }
    }
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_sub_element(Context *ctx, Value *base, Value *index, Value *value)
{
    Object *obj = base->toObject(ctx).objectValue();
    if (ArrayObject *a = obj->asArrayObject()) {
        if (index->isNumber()) {
            const quint32 idx = index->toUInt32(ctx);
            Value v = a->value.at(idx);
            __qmljs_sub(ctx, &v, &v, value);
            a->value.assign(idx, v);
            return;
        }
    }
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_mul_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_div_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_mod_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_shl_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_shr_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_ushr_element(Context *ctx, Value *base, Value *index, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_and_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_or_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_bit_xor_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_add_member(Context *ctx, Value *base, String *name, Value *value)
{
    Value prop = base->objectValue()->getProperty(ctx, name);
    __qmljs_add(ctx, &prop, &prop, value);
    base->objectValue()->setProperty(ctx, name, prop);
}

void __qmljs_inplace_sub_member(Context *ctx, Value *base, String *name, Value *value)
{
    Value prop = base->objectValue()->getProperty(ctx, name);
    __qmljs_sub(ctx, &prop, &prop, value);
    base->objectValue()->setProperty(ctx, name, prop);
}

void __qmljs_inplace_mul_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_div_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_mod_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_shl_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_shr_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

void __qmljs_inplace_ushr_member(Context *ctx, Value *base, String *name, Value *value)
{
    ctx->throwUnimplemented(QLatin1String(Q_FUNC_INFO));
}

String *__qmljs_string_from_utf8(Context *ctx, const char *s)
{
    return ctx->engine->newString(QString::fromUtf8(s));
}

String *__qmljs_identifier_from_utf8(Context *ctx, const char *s)
{
    return ctx->engine->identifier(QString::fromUtf8(s));
}

int __qmljs_string_length(Context *, String *string)
{
    return string->toQString().length();
}

double __qmljs_string_to_number(Context *, String *string)
{
    const QString s = string->toQString();
    if (s.startsWith(QLatin1String("0x")) || s.startsWith(QLatin1String("0X")))
        return s.toLong(0, 16);
    bool ok = false;
    return string->toQString().toDouble(&ok); // ### TODO
}

Value __qmljs_string_from_number(Context *ctx, double number)
{
    String *string = ctx->engine->newString(numberToString(number, 10));
    return Value::fromString(string);
}

Bool __qmljs_string_compare(Context *, String *left, String *right)
{
    return left->toQString() < right->toQString();
}

Bool __qmljs_string_equal(Context *, String *left, String *right)
{
    return left == right || left->isEqualTo(right);
}

String *__qmljs_string_concat(Context *ctx, String *first, String *second)
{
    return ctx->engine->newString(first->toQString() + second->toQString());
}

Bool __qmljs_is_function(const Value value)
{
    return value.objectValue()->asFunctionObject() != 0;
}

Value __qmljs_object_default_value(Context *ctx, const Value object, int typeHint)
{
    if (typeHint == PREFERREDTYPE_HINT) {
        if (object.isDateObject())
            typeHint = STRING_HINT;
        else
            typeHint = NUMBER_HINT;
    }

    String *meth1 = ctx->engine->identifier("toString");
    String *meth2 = ctx->engine->identifier("valueOf");

    if (typeHint == NUMBER_HINT)
        qSwap(meth1, meth2);

    Object *oo = object.asObject();
    assert(oo != 0);

    Value conv = oo->getProperty(ctx, meth1);
    if (!conv.isUndefined() && conv.isFunctionObject()) {
        Value r = __qmljs_call_value(ctx, object, &conv, 0, 0);
        if (r.isPrimitive())
            return r;
    }

    conv = oo->getProperty(ctx, meth2);
    if (!conv.isUndefined() && conv.isFunctionObject()) {
        Value r = __qmljs_call_value(ctx, object, &conv, 0, 0);
        if (r.isPrimitive())
            return r;
    }

    return Value::undefinedValue();
}

Value __qmljs_throw_type_error(Context *ctx)
{
    ctx->throwTypeError();
    return ctx->result;
}

Value __qmljs_new_object(Context *ctx)
{
    return __qmljs_init_object(ctx->engine->newObject());
}

Value __qmljs_new_boolean_object(Context *ctx, bool boolean)
{
    Value value = Value::fromBoolean(boolean);
    return __qmljs_init_object(ctx->engine->newBooleanObject(value));
}

Value __qmljs_new_number_object(Context *ctx, double number)
{
    Value value = Value::fromDouble(number);
    return __qmljs_init_object(ctx->engine->newNumberObject(value));
}

Value __qmljs_new_string_object(Context *ctx, String *string)
{
    Value value = Value::fromString(string);
    return __qmljs_init_object(ctx->engine->newStringObject(value));
}

void __qmljs_set_property(Context *ctx, Value object, String *name, Value value)
{
    object.objectValue()->setProperty(ctx, name, value, /*flags*/ 0);
}

void __qmljs_set_property_boolean(Context *ctx, Value *object, String *name, bool b)
{
    Value value = Value::fromBoolean(b);
    object->objectValue()->setProperty(ctx, name, value, /*flag*/ 0);
}

void __qmljs_set_property_number(Context *ctx, Value *object, String *name, double number)
{
    Q_UNUSED(ctx);
    Value value = Value::fromDouble(number);
    object->objectValue()->setProperty(ctx, name, value, /*flag*/ 0);
}

void __qmljs_set_property_string(Context *ctx, Value *object, String *name, String *s)
{
    Q_UNUSED(ctx);
    Value value = Value::fromString(s);
    object->objectValue()->setProperty(ctx, name, value, /*flag*/ 0);
}

void __qmljs_set_property_closure(Context *ctx, Value *object, String *name, IR::Function *function)
{
    Value value = __qmljs_init_closure(function, ctx);
    object->objectValue()->setProperty(ctx, name, value, /*flag*/ 0);
}

Value __qmljs_get_element(Context *ctx, Value object, Value index)
{
    if (object.isString() && index.isNumber()) {
        const QString s = object.stringValue()->toQString().mid(index.toUInt32(ctx), 1);
        if (s.isNull())
            return Value::undefinedValue();
        else
            return Value::fromString(ctx, s);
    } else if (object.isArrayObject() && index.isNumber()) {
        return object.asArrayObject()->value.at(index.toUInt32(ctx));
    } else {
        String *name = index.toString(ctx);

        if (! object.isObject())
            object = __qmljs_to_object(ctx, object);

        return object.property(ctx, name);
    }
}

void __qmljs_set_element(Context *ctx, Value object, Value index, Value value)
{
    if (object.isArrayObject() && index.isNumber()) {
        object.asArrayObject()->value.assign(index.toUInt32(ctx), value);
    } else {
        String *name = index.toString(ctx);

        if (! object.isObject())
            object = __qmljs_to_object(ctx, object);

        object.objectValue()->setProperty(ctx, name, value, /*flags*/ 0);
    }
}

void __qmljs_set_element_number(Context *ctx, Value *object, Value *index, double number)
{
    Value v = Value::fromDouble(number);
    __qmljs_set_element(ctx, *object, *index, v);
}

void __qmljs_set_activation_property(Context *ctx, String *name, Value value)
{
    if (Value *prop = ctx->lookupPropertyDescriptor(name))
        *prop = value;
    else
        ctx->engine->globalObject.objectValue()->setProperty(ctx, name, value);
}

void __qmljs_set_activation_property_boolean(Context *ctx, String *name, bool b)
{
    Value value = Value::fromBoolean(b);
    __qmljs_set_activation_property(ctx, name, value);
}

void __qmljs_set_activation_property_number(Context *ctx, String *name, double number)
{
    Value value = Value::fromDouble(number);
    __qmljs_set_activation_property(ctx, name, value);
}

void __qmljs_set_activation_property_string(Context *ctx, String *name, String *string)
{
    Value value = Value::fromString(string);
    __qmljs_set_activation_property(ctx, name, value);
}

void __qmljs_set_activation_property_closure(Context *ctx, String *name, IR::Function *clos)
{
    Value value = __qmljs_init_closure(clos, ctx);
    __qmljs_set_activation_property(ctx, name, value);
}

Value __qmljs_get_property(Context *ctx, Value object, String *name)
{
    if (object.isObject()) {
        return object.property(ctx, name);
    } else if (object.isString() && name->isEqualTo(ctx->engine->id_length)) {
        return Value::fromDouble(object.stringValue()->toQString().length());
    } else {
        object = __qmljs_to_object(ctx, object);

        if (object.isObject()) {
            return __qmljs_get_property(ctx, object, name);
        } else {
            ctx->throwTypeError(); // ### not necessary.
            return Value::undefinedValue();
        }
    }
}

Value __qmljs_get_activation_property(Context *ctx, String *name)
{
    if (Value *prop = ctx->lookupPropertyDescriptor(name))
        return *prop;
    ctx->throwReferenceError(Value::fromString(name));
    return Value::undefinedValue();
}

Value __qmljs_get_thisObject(Context *ctx)
{
    if (ctx->thisObject.isObject())
        return ctx->thisObject;
    return ctx->engine->globalObject;
}

void __qmljs_compare(Context *ctx, Value *result, const Value *x, const Value *y, bool leftFirst)
{
    Value px, py;

    if (leftFirst) {
        px = __qmljs_to_primitive(ctx, *x, NUMBER_HINT);
        py = __qmljs_to_primitive(ctx, *y, NUMBER_HINT);
    } else {
        px = __qmljs_to_primitive(ctx, *x, NUMBER_HINT);
        py = __qmljs_to_primitive(ctx, *y, NUMBER_HINT);
    }

    if (px.isString() && py.isString()) {
        bool r = __qmljs_string_compare(ctx, px.stringValue(), py.stringValue());
        *result = Value::fromBoolean(r);
    } else {
        double nx = __qmljs_to_number(px, ctx);
        double ny = __qmljs_to_number(py, ctx);
        if (isnan(nx) || isnan(ny)) {
            *result = Value::undefinedValue();
        } else {
            *result = Value::fromBoolean(nx < ny);
        }
    }
}

uint __qmljs_equal(Context *ctx, const Value *x, const Value *y)
{
    if (x->type() == y->type()) {
        switch (x->type()) {
        case Value::Undefined_Type:
            return true;
        case Value::Null_Type:
            return true;
        case Value::Boolean_Type:
            return x->booleanValue() == y->booleanValue();
            break;
        case Value::Integer_Type:
            return x->integerValue() == y->integerValue();
        case Value::String_Type:
            return __qmljs_string_equal(ctx, x->stringValue(), y->stringValue());
        case Value::Object_Type:
            return x->objectValue() == y->objectValue();
        default: // double
            return x->doubleValue() == y->doubleValue();
        }
        // unreachable
    } else {
        if (x->isNumber() && y->isNumber())
            return x == y;
        if (x->isNull() && y->isUndefined()) {
            return true;
        } else if (x->isUndefined() && y->isNull()) {
            return true;
        } else if (x->isNumber() && y->isString()) {
            Value ny = Value::fromDouble(__qmljs_to_number(*y, ctx));
            return __qmljs_equal(ctx, x, &ny);
        } else if (x->isString() && y->isNumber()) {
            Value nx = Value::fromDouble(__qmljs_to_number(*x, ctx));
            return __qmljs_equal(ctx, &nx, y);
        } else if (x->isBoolean()) {
            Value nx = Value::fromDouble((double) x->booleanValue());
            return __qmljs_equal(ctx, &nx, y);
        } else if (y->isBoolean()) {
            Value ny = Value::fromDouble((double) y->booleanValue());
            return __qmljs_equal(ctx, x, &ny);
        } else if ((x->isNumber() || x->isString()) && y->isObject()) {
            Value py = __qmljs_to_primitive(ctx, *y, PREFERREDTYPE_HINT);
            return __qmljs_equal(ctx, x, &py);
        } else if (x->isObject() && (y->isNumber() || y->isString())) {
            Value px = __qmljs_to_primitive(ctx, *x, PREFERREDTYPE_HINT);
            return __qmljs_equal(ctx, &px, y);
        }
    }

    return false;
}

Value __qmljs_call_activation_property(Context *context, String *name, Value *args, int argc)
{
    Value *func = context->lookupPropertyDescriptor(name);
    if (! func) {
        context->throwReferenceError(Value::fromString(name));
        return Value::undefinedValue();
    }
    Value result = __qmljs_call_value(context, Value::undefinedValue(), func, args, argc);
    return result;
}

Value __qmljs_call_property(Context *context, const Value base, String *name, Value *args, int argc)
{
    Value baseObject;
    Value thisObject;
    if (!base.isUndefined()) {
        baseObject = base;
        if (!baseObject.isObject())
            baseObject = __qmljs_to_object(context, baseObject);
        assert(baseObject.isObject());
        thisObject = baseObject;
    } else {
        baseObject = context->activation;
        thisObject = Value::nullValue();
    }
    Value func = baseObject.property(context, name);
    Value result;
    if (FunctionObject *f = func.asFunctionObject()) {
        Context k;
        Context *ctx = f->needsActivation ? context->engine->newContext() : &k;
        ctx->initCallContext(context->engine, &thisObject, f, args, argc);
        f->call(ctx);
        if (ctx->hasUncaughtException) {
            context->hasUncaughtException = ctx->hasUncaughtException; // propagate the exception
            context->result = ctx->result;
        }
        ctx->leaveCallContext(f);
        result = ctx->result;
    } else {
        context->throwTypeError();
    }
    return result;
}

Value __qmljs_call_value(Context *context, const Value thisObject, const Value *func, Value *args, int argc)
{
    Value result;
    if (FunctionObject *f = func->asFunctionObject()) {
        Context k;
        Context *ctx = f->needsActivation ? context->engine->newContext() : &k;
        const Value *that = thisObject.isUndefined() ? 0 : &thisObject;
        ctx->initCallContext(context->engine, that, f, args, argc);
        f->call(ctx);
        if (ctx->hasUncaughtException) {
            context->hasUncaughtException = ctx->hasUncaughtException; // propagate the exception
            context->result = ctx->result;
        }
        ctx->leaveCallContext(f);
        result = ctx->result;
    } else {
        context->throwTypeError();
    }
    return result;
}

Value __qmljs_construct_activation_property(Context *context, String *name, Value *args, int argc)
{
    Value *func = context->lookupPropertyDescriptor(name);
    if (! func) {
        context->throwReferenceError(Value::fromString(name));
        return Value::undefinedValue();
    }
    return __qmljs_construct_value(context, *func, args, argc);
}

Value __qmljs_construct_value(Context *context, const Value func, Value *args, int argc)
{
    if (FunctionObject *f = func.asFunctionObject()) {
        Context k;
        Context *ctx = f->needsActivation ? context->engine->newContext() : &k;
        ctx->initConstructorContext(context->engine, 0, f, args, argc);
        f->construct(ctx);
        if (ctx->hasUncaughtException) {
            context->hasUncaughtException = ctx->hasUncaughtException; // propagate the exception
            context->result = ctx->result;
        }
        ctx->leaveConstructorContext(f);
        return ctx->result;
    }
    context->throwTypeError();
    return Value::undefinedValue();
}

Value __qmljs_construct_property(Context *context, const Value base, String *name, Value *args, int argc)
{
    Value thisObject = base;
    if (!thisObject.isObject())
        thisObject = __qmljs_to_object(context, base);

    assert(thisObject.isObject());
    Value func = thisObject.property(context, name);
    if (FunctionObject *f = func.asFunctionObject()) {
        Context k;
        Context *ctx = f->needsActivation ? context->engine->newContext() : &k;
        ctx->initConstructorContext(context->engine, 0, f, args, argc);
        ctx->calledAsConstructor = true;
        f->construct(ctx);
        if (ctx->hasUncaughtException) {
            context->hasUncaughtException = ctx->hasUncaughtException; // propagate the exception
            context->result = ctx->result;
        }
        ctx->leaveConstructorContext(f);
        return ctx->result;
    }
    context->throwTypeError();
    return Value::undefinedValue();
}

void __qmljs_throw(Context *context, Value value)
{
    context->hasUncaughtException = true;
    context->result = value;
}

Value __qmljs_rethrow(Context *context)
{
    return context->result;
}

Value __qmljs_builtin_typeof(Context *context, Value *args, int argc)
{
    Q_UNUSED(argc);
    return __qmljs_typeof(context, args[0]);
}

Value __qmljs_builtin_throw(Context *context, Value *args, int argc)
{
    Q_UNUSED(argc);
    __qmljs_throw(context, args[0]);
    // ### change to void return value
    return Value::undefinedValue();
}

Value __qmljs_builtin_rethrow(Context *context, Value *, int)
{
    return context->result;
}

} // extern "C"


} // namespace VM
} // namespace QQmlJS