/****************************************************************************
**
** Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies).
** Contact: http://www.qt-project.org/legal
**
** This file is part of the QtQml 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 "qv4managed_p.h"
#include "qv4mm_p.h"
#include "qv4errorobject_p.h"

using namespace QV4;

const ManagedVTable Managed::static_vtbl =
{
    call,
    construct,
    0 /*markObjects*/,
    destroy,
    0 /*collectDeletables*/,
    hasInstance,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    0,
    isEqualTo,
    0,
    "Managed",
};


void *Managed::operator new(size_t size, MemoryManager *mm)
{
    assert(mm);

    return mm->allocManaged(size);
}

void Managed::operator delete(void *ptr)
{
    if (!ptr)
        return;

    Managed *m = static_cast<Managed *>(ptr);
    m->vtbl = 0;
    m->_data = 0;
    m->markBit = 0;
    m->~Managed();
}

void Managed::operator delete(void *ptr, MemoryManager *mm)
{
    Q_UNUSED(mm);

    operator delete(ptr);
}

ExecutionEngine *Managed::engine() const
{
    return internalClass ? internalClass->engine : 0;
}

QString Managed::className() const
{
    const char *s = 0;
    switch (Type(type)) {
    case Type_Invalid:
    case Type_String:
        return QString();
    case Type_Object:
        s = "Object";
        break;
    case Type_ArrayObject:
        s = "Array";
        break;
    case Type_FunctionObject:
        s = "Function";
        break;
    case Type_BooleanObject:
        s = "Boolean";
        break;
    case Type_NumberObject:
        s = "Number";
        break;
    case Type_StringObject:
        s = "String";
        break;
    case Type_DateObject:
        s = "Date";
        break;
    case Type_RegExpObject:
        s = "RegExp";
        break;
    case Type_ErrorObject:
        switch (ErrorObject::ErrorType(subtype)) {
        case ErrorObject::Error:
            s = "Error";
            break;
        case ErrorObject::EvalError:
            s = "EvalError";
            break;
        case ErrorObject::RangeError:
            s = "RangeError";
            break;
        case ErrorObject::ReferenceError:
            s = "ReferenceError";
            break;
        case ErrorObject::SyntaxError:
            s = "SyntaxError";
            break;
        case ErrorObject::TypeError:
            s = "TypeError";
            break;
        case ErrorObject::URIError:
            s = "URIError";
            break;
        }
        break;
    case Type_ArgumentsObject:
        s = "Arguments";
        break;
    case Type_JSONObject:
        s = "JSON";
        break;
    case Type_MathObject:
        s = "Math";
        break;
    case Type_ForeachIteratorObject:
        s = "__ForeachIterator";
        break;
    case Type_RegExp:
        s = "RegExp";
        break;
    case Type_QmlSequence:
        s = "QmlSequence";
        break;
    }
    return QString::fromLatin1(s);
}

bool Managed::hasInstance(Managed *m, const ValueRef)
{
    return m->engine()->current->throwTypeError();
}

ReturnedValue Managed::construct(Managed *m, CallData *)
{
    return m->engine()->current->throwTypeError();
}

ReturnedValue Managed::call(Managed *m, CallData *)
{
    return m->engine()->current->throwTypeError();
}

ReturnedValue Managed::getLookup(Managed *m, Lookup *)
{
    return m->engine()->current->throwTypeError();
}

void Managed::setLookup(Managed *m, Lookup *, const ValueRef)
{
    m->engine()->current->throwTypeError();
}

bool Managed::isEqualTo(Managed *, Managed *)
{
    return false;
}

bool Managed::hasInstance(const ValueRef v)
{
    return vtbl->hasInstance(this, v);
}

ReturnedValue Managed::get(const StringRef name, bool *hasProperty)
{
    return vtbl->get(this, name, hasProperty);
}

ReturnedValue Managed::getIndexed(uint index, bool *hasProperty)
{
    return vtbl->getIndexed(this, index, hasProperty);
}

void Managed::put(const StringRef name, const ValueRef value)
{
    vtbl->put(this, name, value);
}

void Managed::setLookup(Lookup *l, const ValueRef v)
{
    vtbl->setLookup(this, l, v);
}

void Managed::putIndexed(uint index, const ValueRef value)
{
    vtbl->putIndexed(this, index, value);
}

PropertyAttributes Managed::query(StringRef name) const
{
    return vtbl->query(this, name);
}

bool Managed::deleteProperty(const StringRef name)
{
    return vtbl->deleteProperty(this, name);
}

Property *Managed::advanceIterator(ObjectIterator *it, StringRef name, uint *index, PropertyAttributes *attributes)
{
    return vtbl->advanceIterator(this, it, name, index, attributes);
}
