/****************************************************************************
**
** 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 "qv4ecmaobjects_p.h"
#include "qv4array_p.h"
#include "qv4mm.h"
#include <QtCore/qnumeric.h>
#include <QtCore/qmath.h>
#include <QtCore/QDateTime>
#include <QtCore/QStringList>
#include <QtCore/QRegularExpression>
#include <QtCore/QDebug>
#include <cmath>
#include <qmath.h>
#include <qnumeric.h>
#include <cassert>

#include <private/qqmljsengine_p.h>
#include <private/qqmljslexer_p.h>
#include <private/qqmljsparser_p.h>
#include <private/qqmljsast_p.h>
#include <qv4ir_p.h>
#include <qv4codegen_p.h>
#include <qv4isel_masm_p.h>

#ifndef Q_WS_WIN
#  include <time.h>
#  ifndef Q_OS_VXWORKS
#    include <sys/time.h>
#  else
#    include "qplatformdefs.h"
#  endif
#else
#  include <windows.h>
#endif

using namespace QQmlJS::VM;

static const double qt_PI = 2.0 * ::asin(1.0);

static const double HoursPerDay = 24.0;
static const double MinutesPerHour = 60.0;
static const double SecondsPerMinute = 60.0;
static const double msPerSecond = 1000.0;
static const double msPerMinute = 60000.0;
static const double msPerHour = 3600000.0;
static const double msPerDay = 86400000.0;

static double LocalTZA = 0.0; // initialized at startup

static inline double TimeWithinDay(double t)
{
    double r = ::fmod(t, msPerDay);
    return (r >= 0) ? r : r + msPerDay;
}

static inline int HourFromTime(double t)
{
    int r = int(::fmod(::floor(t / msPerHour), HoursPerDay));
    return (r >= 0) ? r : r + int(HoursPerDay);
}

static inline int MinFromTime(double t)
{
    int r = int(::fmod(::floor(t / msPerMinute), MinutesPerHour));
    return (r >= 0) ? r : r + int(MinutesPerHour);
}

static inline int SecFromTime(double t)
{
    int r = int(::fmod(::floor(t / msPerSecond), SecondsPerMinute));
    return (r >= 0) ? r : r + int(SecondsPerMinute);
}

static inline int msFromTime(double t)
{
    int r = int(::fmod(t, msPerSecond));
    return (r >= 0) ? r : r + int(msPerSecond);
}

static inline double Day(double t)
{
    return ::floor(t / msPerDay);
}

static inline double DaysInYear(double y)
{
    if (::fmod(y, 4))
        return 365;

    else if (::fmod(y, 100))
        return 366;

    else if (::fmod(y, 400))
        return 365;

    return 366;
}

static inline double DayFromYear(double y)
{
    return 365 * (y - 1970)
        + ::floor((y - 1969) / 4)
        - ::floor((y - 1901) / 100)
        + ::floor((y - 1601) / 400);
}

static inline double TimeFromYear(double y)
{
    return msPerDay * DayFromYear(y);
}

static inline double YearFromTime(double t)
{
    int y = 1970;
    y += (int) ::floor(t / (msPerDay * 365.2425));

    double t2 = TimeFromYear(y);
    return (t2 > t) ? y - 1 : ((t2 + msPerDay * DaysInYear(y)) <= t) ? y + 1 : y;
}

static inline bool InLeapYear(double t)
{
    double x = DaysInYear(YearFromTime(t));
    if (x == 365)
        return 0;

    assert(x == 366);
    return 1;
}

static inline double DayWithinYear(double t)
{
    return Day(t) - DayFromYear(YearFromTime(t));
}

static inline double MonthFromTime(double t)
{
    double d = DayWithinYear(t);
    double l = InLeapYear(t);

    if (d < 31.0)
        return 0;

    else if (d < 59.0 + l)
        return 1;

    else if (d < 90.0 + l)
        return 2;

    else if (d < 120.0 + l)
        return 3;

    else if (d < 151.0 + l)
        return 4;

    else if (d < 181.0 + l)
        return 5;

    else if (d < 212.0 + l)
        return 6;

    else if (d < 243.0 + l)
        return 7;

    else if (d < 273.0 + l)
        return 8;

    else if (d < 304.0 + l)
        return 9;

    else if (d < 334.0 + l)
        return 10;

    else if (d < 365.0 + l)
        return 11;

    return qSNaN(); // ### assert?
}

static inline double DateFromTime(double t)
{
    int m = (int) Value::toInteger(MonthFromTime(t));
    double d = DayWithinYear(t);
    double l = InLeapYear(t);

    switch (m) {
    case 0: return d + 1.0;
    case 1: return d - 30.0;
    case 2: return d - 58.0 - l;
    case 3: return d - 89.0 - l;
    case 4: return d - 119.0 - l;
    case 5: return d - 150.0 - l;
    case 6: return d - 180.0 - l;
    case 7: return d - 211.0 - l;
    case 8: return d - 242.0 - l;
    case 9: return d - 272.0 - l;
    case 10: return d - 303.0 - l;
    case 11: return d - 333.0 - l;
    }

    return qSNaN(); // ### assert
}

static inline double WeekDay(double t)
{
    double r = ::fmod (Day(t) + 4.0, 7.0);
    return (r >= 0) ? r : r + 7.0;
}


static inline double MakeTime(double hour, double min, double sec, double ms)
{
    return ((hour * MinutesPerHour + min) * SecondsPerMinute + sec) * msPerSecond + ms;
}

static inline double DayFromMonth(double month, double leap)
{
    switch ((int) month) {
    case 0: return 0;
    case 1: return 31.0;
    case 2: return 59.0 + leap;
    case 3: return 90.0 + leap;
    case 4: return 120.0 + leap;
    case 5: return 151.0 + leap;
    case 6: return 181.0 + leap;
    case 7: return 212.0 + leap;
    case 8: return 243.0 + leap;
    case 9: return 273.0 + leap;
    case 10: return 304.0 + leap;
    case 11: return 334.0 + leap;
    }

    return qSNaN(); // ### assert?
}

static double MakeDay(double year, double month, double day)
{
    year += ::floor(month / 12.0);

    month = ::fmod(month, 12.0);
    if (month < 0)
        month += 12.0;

    double t = TimeFromYear(year);
    double leap = InLeapYear(t);

    day += ::floor(t / msPerDay);
    day += DayFromMonth(month, leap);

    return day - 1;
}

static inline double MakeDate(double day, double time)
{
    return day * msPerDay + time;
}

static inline double DaylightSavingTA(double t)
{
#ifndef Q_WS_WIN
    long int tt = (long int)(t / msPerSecond);
    struct tm *tmtm = localtime((const time_t*)&tt);
    if (! tmtm)
        return 0;
    return (tmtm->tm_isdst > 0) ? msPerHour : 0;
#else
    Q_UNUSED(t);
    /// ### implement me
    return 0;
#endif
}

static inline double LocalTime(double t)
{
    return t + LocalTZA + DaylightSavingTA(t);
}

static inline double UTC(double t)
{
    return t - LocalTZA - DaylightSavingTA(t - LocalTZA);
}

static inline double currentTime()
{
#ifndef Q_WS_WIN
    struct timeval tv;

    gettimeofday(&tv, 0);
    return ::floor(tv.tv_sec * msPerSecond + (tv.tv_usec / 1000.0));
#else
    SYSTEMTIME st;
    GetSystemTime(&st);
    FILETIME ft;
    SystemTimeToFileTime(&st, &ft);
    LARGE_INTEGER li;
    li.LowPart = ft.dwLowDateTime;
    li.HighPart = ft.dwHighDateTime;
    return double(li.QuadPart - Q_INT64_C(116444736000000000)) / 10000.0;
#endif
}

static inline double TimeClip(double t)
{
    if (! qIsFinite(t) || fabs(t) > 8.64e15)
        return qSNaN();
    return Value::toInteger(t);
}

static inline double FromDateTime(const QDateTime &dt)
{
    if (!dt.isValid())
        return qSNaN();
    QDate date = dt.date();
    QTime taim = dt.time();
    int year = date.year();
    int month = date.month() - 1;
    int day = date.day();
    int hours = taim.hour();
    int mins = taim.minute();
    int secs = taim.second();
    int ms = taim.msec();
    double t = MakeDate(MakeDay(year, month, day),
                        MakeTime(hours, mins, secs, ms));
    if (dt.timeSpec() == Qt::LocalTime)
        t = UTC(t);
    return TimeClip(t);
}

static inline double ParseString(const QString &s)
{
    QDateTime dt = QDateTime::fromString(s, Qt::TextDate);
    if (!dt.isValid())
        dt = QDateTime::fromString(s, Qt::ISODate);
    if (!dt.isValid()) {
        QStringList formats;
        formats << QStringLiteral("M/d/yyyy")
                << QStringLiteral("M/d/yyyy hh:mm")
                << QStringLiteral("M/d/yyyy hh:mm A")

                << QStringLiteral("M/d/yyyy, hh:mm")
                << QStringLiteral("M/d/yyyy, hh:mm A")

                << QStringLiteral("MMM d yyyy")
                << QStringLiteral("MMM d yyyy hh:mm")
                << QStringLiteral("MMM d yyyy hh:mm:ss")
                << QStringLiteral("MMM d yyyy, hh:mm")
                << QStringLiteral("MMM d yyyy, hh:mm:ss")

                << QStringLiteral("MMMM d yyyy")
                << QStringLiteral("MMMM d yyyy hh:mm")
                << QStringLiteral("MMMM d yyyy hh:mm:ss")
                << QStringLiteral("MMMM d yyyy, hh:mm")
                << QStringLiteral("MMMM d yyyy, hh:mm:ss")

                << QStringLiteral("MMM d, yyyy")
                << QStringLiteral("MMM d, yyyy hh:mm")
                << QStringLiteral("MMM d, yyyy hh:mm:ss")

                << QStringLiteral("MMMM d, yyyy")
                << QStringLiteral("MMMM d, yyyy hh:mm")
                << QStringLiteral("MMMM d, yyyy hh:mm:ss")

                << QStringLiteral("d MMM yyyy")
                << QStringLiteral("d MMM yyyy hh:mm")
                << QStringLiteral("d MMM yyyy hh:mm:ss")
                << QStringLiteral("d MMM yyyy, hh:mm")
                << QStringLiteral("d MMM yyyy, hh:mm:ss")

                << QStringLiteral("d MMMM yyyy")
                << QStringLiteral("d MMMM yyyy hh:mm")
                << QStringLiteral("d MMMM yyyy hh:mm:ss")
                << QStringLiteral("d MMMM yyyy, hh:mm")
                << QStringLiteral("d MMMM yyyy, hh:mm:ss")

                << QStringLiteral("d MMM, yyyy")
                << QStringLiteral("d MMM, yyyy hh:mm")
                << QStringLiteral("d MMM, yyyy hh:mm:ss")

                << QStringLiteral("d MMMM, yyyy")
                << QStringLiteral("d MMMM, yyyy hh:mm")
                << QStringLiteral("d MMMM, yyyy hh:mm:ss");

        for (int i = 0; i < formats.size(); ++i) {
            dt = QDateTime::fromString(s, formats.at(i));
            if (dt.isValid())
                break;
        }
    }
    return FromDateTime(dt);
}

/*!
  \internal

  Converts the ECMA Date value \tt (in UTC form) to QDateTime
  according to \a spec.
*/
static inline QDateTime ToDateTime(double t, Qt::TimeSpec spec)
{
    if (std::isnan(t))
        return QDateTime();
    if (spec == Qt::LocalTime)
        t = LocalTime(t);
    int year = int(YearFromTime(t));
    int month = int(MonthFromTime(t) + 1);
    int day = int(DateFromTime(t));
    int hours = HourFromTime(t);
    int mins = MinFromTime(t);
    int secs = SecFromTime(t);
    int ms = msFromTime(t);
    return QDateTime(QDate(year, month, day), QTime(hours, mins, secs, ms), spec);
}

static inline QString ToString(double t)
{
    if (std::isnan(t))
        return QStringLiteral("Invalid Date");
    QString str = ToDateTime(t, Qt::LocalTime).toString() + QStringLiteral(" GMT");
    double tzoffset = LocalTZA + DaylightSavingTA(t);
    if (tzoffset) {
        int hours = static_cast<int>(::fabs(tzoffset) / 1000 / 60 / 60);
        int mins = int(::fabs(tzoffset) / 1000 / 60) % 60;
        str.append(QLatin1Char((tzoffset > 0) ?  '+' : '-'));
        if (hours < 10)
            str.append(QLatin1Char('0'));
        str.append(QString::number(hours));
        if (mins < 10)
            str.append(QLatin1Char('0'));
        str.append(QString::number(mins));
    }
    return str;
}

static inline QString ToUTCString(double t)
{
    if (std::isnan(t))
        return QStringLiteral("Invalid Date");
    return ToDateTime(t, Qt::UTC).toString() + QStringLiteral(" GMT");
}

static inline QString ToDateString(double t)
{
    return ToDateTime(t, Qt::LocalTime).date().toString();
}

static inline QString ToTimeString(double t)
{
    return ToDateTime(t, Qt::LocalTime).time().toString();
}

static inline QString ToLocaleString(double t)
{
    return ToDateTime(t, Qt::LocalTime).toString(Qt::LocaleDate);
}

static inline QString ToLocaleDateString(double t)
{
    return ToDateTime(t, Qt::LocalTime).date().toString(Qt::LocaleDate);
}

static inline QString ToLocaleTimeString(double t)
{
    return ToDateTime(t, Qt::LocalTime).time().toString(Qt::LocaleDate);
}

static double getLocalTZA()
{
#ifndef Q_WS_WIN
    struct tm t;
    time_t curr;
    time(&curr);
    localtime_r(&curr, &t);
    time_t locl = mktime(&t);
    gmtime_r(&curr, &t);
    time_t globl = mktime(&t);
    return double(locl - globl) * 1000.0;
#else
    TIME_ZONE_INFORMATION tzInfo;
    GetTimeZoneInformation(&tzInfo);
    return -tzInfo.Bias * 60.0 * 1000.0;
#endif
}

//
// Object
//
ObjectCtor::ObjectCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value ObjectCtor::construct(ExecutionContext *ctx)
{
    if (!ctx->argumentCount || ctx->argument(0).isUndefined() || ctx->argument(0).isNull())
        return ctx->thisObject;
    return __qmljs_to_object(ctx->argument(0), ctx);
}

Value ObjectCtor::call(ExecutionContext *ctx)
{
    if (!ctx->argumentCount || ctx->argument(0).isUndefined() || ctx->argument(0).isNull())
        return Value::fromObject(ctx->engine->newObject());
    return __qmljs_to_object(ctx->argument(0), ctx);
}

Value ObjectCtor::__get__(ExecutionContext *ctx, String *name, bool *hasProperty)
{
    if (name == ctx->engine->id_length) {
        if (hasProperty)
            *hasProperty = true;
        return Value::fromDouble(1);
    }
    return Object::__get__(ctx, name, hasProperty);
}

void ObjectPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("getPrototypeOf"), method_getPrototypeOf, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("getOwnPropertyDescriptor"), method_getOwnPropertyDescriptor, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("getOwnPropertyNames"), method_getOwnPropertyNames, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("create"), method_create, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("defineProperty"), method_defineProperty, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("defineProperties"), method_defineProperties, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("seal"), method_seal, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("freeze"), method_freeze, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("preventExtensions"), method_preventExtensions, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("isSealed"), method_isSealed, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("isFrozen"), method_isFrozen, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("isExtensible"), method_isExtensible, 0);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("keys"), method_keys, 0);

    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toLocaleString"), method_toLocaleString, 0);
    defineDefaultProperty(ctx, QStringLiteral("valueOf"), method_valueOf, 0);
    defineDefaultProperty(ctx, QStringLiteral("hasOwnProperty"), method_hasOwnProperty, 0);
    defineDefaultProperty(ctx, QStringLiteral("isPrototypeOf"), method_isPrototypeOf, 0);
    defineDefaultProperty(ctx, QStringLiteral("propertyIsEnumerable"), method_propertyIsEnumerable, 0);
    defineDefaultProperty(ctx, QStringLiteral("__defineGetter__"), method_defineGetter, 0);
    defineDefaultProperty(ctx, QStringLiteral("__defineSetter__"), method_defineSetter, 0);
}

Value ObjectPrototype::method_getPrototypeOf(ExecutionContext *ctx)
{
    Value o = ctx->argument(0);
    if (! o.isObject())
        ctx->throwTypeError();

    return Value::fromObject(o.objectValue()->prototype);
}

Value ObjectPrototype::method_getOwnPropertyDescriptor(ExecutionContext *ctx)
{
    Value O = ctx->argument(0);
    if (!O.isObject())
        ctx->throwTypeError();

    String *name = ctx->argument(1).toString(ctx);
    PropertyDescriptor *desc = O.objectValue()->__getOwnProperty__(ctx, name);
    return fromPropertyDescriptor(ctx, desc);
}

Value ObjectPrototype::method_getOwnPropertyNames(ExecutionContext *ctx)
{
    Value O = ctx->argument(0);
    if (! O.isObject())
        ctx->throwTypeError();

    ArrayObject *array = ctx->engine->newArrayObject()->asArrayObject();
    Array &a = array->value;
    if (PropertyTable *members = O.objectValue()->members.data()) {
        for (PropertyTableEntry **it = members->begin(), **end = members->end(); it != end; ++it) {
            if (PropertyTableEntry *prop = *it) {
                a.push(Value::fromString(prop->name));
            }
        }
    }
    return Value::fromObject(array);
}

Value ObjectPrototype::method_create(ExecutionContext *ctx)
{
    Value O = ctx->argument(0);
    if (!O.isObject())
        ctx->throwTypeError();

    Object *newObject = ctx->engine->newObject();
    newObject->prototype = O.objectValue();

    Value objValue = Value::fromObject(newObject);
    if (ctx->argumentCount > 1) {
        ctx->arguments[0] = objValue;
        method_defineProperties(ctx);
    }

    return objValue;
}

Value ObjectPrototype::method_defineProperty(ExecutionContext *ctx)
{
    Value O = ctx->argument(0);
    if (!O.isObject())
        ctx->throwTypeError();

    String *name = ctx->argument(1).toString(ctx);

    Value attributes = ctx->argument(2);
    PropertyDescriptor pd;
    toPropertyDescriptor(ctx, attributes, &pd);

    bool strict = ctx->strictMode;
    ctx->strictMode = true;
    O.objectValue()->__defineOwnProperty__(ctx, name, &pd);
    ctx->strictMode = strict;

    return O;
}

Value ObjectPrototype::method_defineProperties(ExecutionContext *ctx)
{
    Value O = ctx->argument(0);
    if (!O.isObject())
        ctx->throwTypeError();

    Object *o = ctx->argument(1).toObject(ctx).objectValue();

    if (o->members) {
        PropertyTable::iterator it = o->members->begin();
        while (it != o->members->end()) {
            if ((*it)->descriptor.isEnumerable()) {
                String *name = (*it)->name;
                PropertyDescriptor pd;
                toPropertyDescriptor(ctx, o->__get__(ctx, name), &pd);
                O.objectValue()->__defineOwnProperty__(ctx, name, &pd);
            }
            ++it;
        }
    }

    return O;
}

Value ObjectPrototype::method_seal(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();
    o->extensible = false;
    if (o->members) {
        PropertyTable::iterator it = o->members->begin();
        while (it != o->members->end()) {
            (*it)->descriptor.configurable = PropertyDescriptor::Disabled;
            ++it;
        }
    }
    return ctx->argument(0);
}

Value ObjectPrototype::method_freeze(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();
    o->extensible = false;
    if (o->members) {
        PropertyTable::iterator it = o->members->begin();
        while (it != o->members->end()) {
            if ((*it)->descriptor.isData())
                (*it)->descriptor.writable = PropertyDescriptor::Disabled;
            (*it)->descriptor.configurable = PropertyDescriptor::Disabled;
            ++it;
        }
    }
    return ctx->argument(0);
}

Value ObjectPrototype::method_preventExtensions(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();
    o->extensible = false;
    return ctx->argument(0);
}

Value ObjectPrototype::method_isSealed(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();
    if (o->extensible)
        return Value::fromBoolean(false);
    if (o->members) {
        PropertyTable::iterator it = o->members->begin();
        while (it != o->members->end()) {
            if ((*it)->descriptor.configurable != PropertyDescriptor::Disabled)
                return Value::fromBoolean(false);
            ++it;
        }
    }
    return Value::fromBoolean(true);
}

Value ObjectPrototype::method_isFrozen(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();
    if (o->extensible)
        return Value::fromBoolean(false);
    if (o->members) {
        PropertyTable::iterator it = o->members->begin();
        while (it != o->members->end()) {
            if ((*it)->descriptor.isData() &&
                ((*it)->descriptor.writable != PropertyDescriptor::Disabled))
                return Value::fromBoolean(false);
            if ((*it)->descriptor.configurable != PropertyDescriptor::Disabled)
                return Value::fromBoolean(false);
            ++it;
        }
    }
    return Value::fromBoolean(true);
}

Value ObjectPrototype::method_isExtensible(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();
    return Value::fromBoolean(o->extensible);
}

Value ObjectPrototype::method_keys(ExecutionContext *ctx)
{
    if (!ctx->argument(0).isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->argument(0).objectValue();

    ArrayObject *a = ctx->engine->newArrayObject();

    if (o->members) {
        PropertyTable::iterator it = o->members->begin();
        while (it != o->members->end()) {
            if ((*it)->descriptor.isEnumerable())
                a->value.push(Value::fromString((*it)->name));
            ++it;
        }
    }

    return Value::fromObject(a);
}

Value ObjectPrototype::method_toString(ExecutionContext *ctx)
{
    if (! ctx->thisObject.isObject())
        ctx->throwTypeError();
    return Value::fromString(ctx, QString::fromUtf8("[object %1]").arg(ctx->thisObject.objectValue()->className()));
}

Value ObjectPrototype::method_toLocaleString(ExecutionContext *ctx)
{
    return method_toString(ctx);
}

Value ObjectPrototype::method_valueOf(ExecutionContext *ctx)
{
    return ctx->thisObject.toObject(ctx);
}

Value ObjectPrototype::method_hasOwnProperty(ExecutionContext *ctx)
{
    String *P = ctx->argument(0).toString(ctx);
    Value O = ctx->thisObject.toObject(ctx);
    bool r = O.objectValue()->__getOwnProperty__(ctx, P) != 0;
    return Value::fromBoolean(r);
}

Value ObjectPrototype::method_isPrototypeOf(ExecutionContext *ctx)
{
    Value V = ctx->argument(0);
    if (! V.isObject())
        return Value::fromBoolean(false);

    Object *O = ctx->thisObject.toObject(ctx).objectValue();
    Object *proto = V.objectValue()->prototype;
    while (proto) {
        if (O == proto)
            return Value::fromBoolean(true);
        proto = proto->prototype;
    }
    return Value::fromBoolean(false);
}

Value ObjectPrototype::method_propertyIsEnumerable(ExecutionContext *ctx)
{
    String *p = ctx->argument(0).toString(ctx);

    Object *o = ctx->thisObject.toObject(ctx).objectValue();
    PropertyDescriptor *pd = o->__getOwnProperty__(ctx, p);
    return Value::fromBoolean(pd && pd->enumberable);
}

Value ObjectPrototype::method_defineGetter(ExecutionContext *ctx)
{
    if (ctx->argumentCount < 2)
        __qmljs_throw_type_error(ctx);
    String *prop = ctx->argument(0).toString(ctx);

    FunctionObject *f = ctx->argument(1).asFunctionObject();
    if (!f)
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->thisObject.toObject(ctx).objectValue();

    PropertyDescriptor pd = PropertyDescriptor::fromAccessor(f, 0);
    pd.writable = PropertyDescriptor::Enabled;
    pd.configurable = PropertyDescriptor::Enabled;
    pd.enumberable = PropertyDescriptor::Enabled;
    o->__defineOwnProperty__(ctx, prop, &pd);
    return Value::undefinedValue();
}

Value ObjectPrototype::method_defineSetter(ExecutionContext *ctx)
{
    if (ctx->argumentCount < 2)
        __qmljs_throw_type_error(ctx);
    String *prop = ctx->argument(0).toString(ctx);

    FunctionObject *f = ctx->argument(1).asFunctionObject();
    if (!f)
        __qmljs_throw_type_error(ctx);

    Object *o = ctx->thisObject.toObject(ctx).objectValue();

    PropertyDescriptor pd = PropertyDescriptor::fromAccessor(0, f);
    pd.writable = PropertyDescriptor::Enabled;
    pd.configurable = PropertyDescriptor::Enabled;
    pd.enumberable = PropertyDescriptor::Enabled;
    o->__defineOwnProperty__(ctx, prop, &pd);
    return Value::undefinedValue();
}

void ObjectPrototype::toPropertyDescriptor(ExecutionContext *ctx, Value v, PropertyDescriptor *desc)
{
    if (!v.isObject())
        __qmljs_throw_type_error(ctx);

    Object *o = v.objectValue();

    desc->type = PropertyDescriptor::Generic;

    desc->enumberable = PropertyDescriptor::Undefined;
    if (o->__hasProperty__(ctx, ctx->engine->id_enumerable))
        desc->enumberable = __qmljs_to_boolean(o->__get__(ctx, ctx->engine->id_enumerable), ctx) ? PropertyDescriptor::Enabled : PropertyDescriptor::Disabled;

    desc->configurable = PropertyDescriptor::Undefined;
    if (o->__hasProperty__(ctx, ctx->engine->id_configurable))
        desc->configurable = __qmljs_to_boolean(o->__get__(ctx, ctx->engine->id_configurable), ctx) ? PropertyDescriptor::Enabled : PropertyDescriptor::Disabled;

    desc->get = 0;
    if (o->__hasProperty__(ctx, ctx->engine->id_get)) {
        Value get = o->__get__(ctx, ctx->engine->id_get);
        FunctionObject *f = get.asFunctionObject();
        if (f) {
            desc->get = f;
        } else if (!get.isUndefined()) {
            __qmljs_throw_type_error(ctx);
        } else {
            desc->get = 0;
        }
        desc->type = PropertyDescriptor::Accessor;
    }

    desc->set = 0;
    if (o->__hasProperty__(ctx, ctx->engine->id_set)) {
        Value get = o->__get__(ctx, ctx->engine->id_set);
        FunctionObject *f = get.asFunctionObject();
        if (f) {
            desc->set = f;
        } else if (!get.isUndefined()) {
            __qmljs_throw_type_error(ctx);
        } else {
            desc->set = 0;
        }
        desc->type = PropertyDescriptor::Accessor;
    }

    desc->writable = PropertyDescriptor::Undefined;
    if (o->__hasProperty__(ctx, ctx->engine->id_writable)) {
        if (desc->isAccessor())
            __qmljs_throw_type_error(ctx);
        desc->writable = __qmljs_to_boolean(o->__get__(ctx, ctx->engine->id_writable), ctx) ? PropertyDescriptor::Enabled : PropertyDescriptor::Disabled;
        // writable forces it to be a data descriptor
        desc->type = PropertyDescriptor::Data;
        desc->value = Value::undefinedValue();
    }

    if (o->__hasProperty__(ctx, ctx->engine->id_value)) {
        if (desc->isAccessor())
            __qmljs_throw_type_error(ctx);
        desc->value = o->__get__(ctx, ctx->engine->id_value);
        desc->type = PropertyDescriptor::Data;
    }

}


Value ObjectPrototype::fromPropertyDescriptor(ExecutionContext *ctx, const PropertyDescriptor *desc)
{
    if (!desc)
        return Value::undefinedValue();

    ExecutionEngine *engine = ctx->engine;
//    Let obj be the result of creating a new object as if by the expression new Object() where Object is the standard built-in constructor with that name.
    Object *o = engine->newObject();

    PropertyDescriptor pd;
    pd.type = PropertyDescriptor::Data;
    pd.writable = PropertyDescriptor::Enabled;
    pd.enumberable = PropertyDescriptor::Enabled;
    pd.configurable = PropertyDescriptor::Enabled;

    if (desc->isData()) {
        pd.value = desc->value;
        o->__defineOwnProperty__(ctx, engine->identifier(QStringLiteral("value")), &pd);
        pd.value = Value::fromBoolean(desc->writable == PropertyDescriptor::Enabled ? true : false);
        o->__defineOwnProperty__(ctx, engine->identifier(QStringLiteral("writable")), &pd);
    } else {
        pd.value = desc->get ? Value::fromObject(desc->get) : Value::undefinedValue();
        o->__defineOwnProperty__(ctx, engine->identifier(QStringLiteral("get")), &pd);
        pd.value = desc->set ? Value::fromObject(desc->set) : Value::undefinedValue();
        o->__defineOwnProperty__(ctx, engine->identifier(QStringLiteral("set")), &pd);
    }
    pd.value = Value::fromBoolean(desc->enumberable == PropertyDescriptor::Enabled ? true : false);
    o->__defineOwnProperty__(ctx, engine->identifier(QStringLiteral("enumerable")), &pd);
    pd.value = Value::fromBoolean(desc->configurable == PropertyDescriptor::Enabled ? true : false);
    o->__defineOwnProperty__(ctx, engine->identifier(QStringLiteral("configurable")), &pd);

    return Value::fromObject(o);
}

//
// String
//
StringCtor::StringCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value StringCtor::construct(ExecutionContext *ctx)
{
    Value value;
    if (ctx->argumentCount)
        value = Value::fromString(ctx->argument(0).toString(ctx));
    else
        value = Value::fromString(ctx, QString());
    return Value::fromObject(ctx->engine->newStringObject(value));
}

Value StringCtor::call(ExecutionContext *ctx)
{
    Value value;
    if (ctx->argumentCount)
        value = Value::fromString(ctx->argument(0).toString(ctx));
    else
        value = Value::fromString(ctx, QString());
    return value;
}

void StringPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("fromCharCode"), method_fromCharCode);

    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString);
    defineDefaultProperty(ctx, QStringLiteral("valueOf"), method_valueOf);
    defineDefaultProperty(ctx, QStringLiteral("charAt"), method_charAt);
    defineDefaultProperty(ctx, QStringLiteral("charCodeAt"), method_charCodeAt);
    defineDefaultProperty(ctx, QStringLiteral("concat"), method_concat);
    defineDefaultProperty(ctx, QStringLiteral("indexOf"), method_indexOf);
    defineDefaultProperty(ctx, QStringLiteral("lastIndexOf"), method_lastIndexOf);
    defineDefaultProperty(ctx, QStringLiteral("localeCompare"), method_localeCompare);
    defineDefaultProperty(ctx, QStringLiteral("match"), method_match);
    defineDefaultProperty(ctx, QStringLiteral("replace"), method_replace);
    defineDefaultProperty(ctx, QStringLiteral("search"), method_search);
    defineDefaultProperty(ctx, QStringLiteral("slice"), method_slice);
    defineDefaultProperty(ctx, QStringLiteral("split"), method_split);
    defineDefaultProperty(ctx, QStringLiteral("substr"), method_substr);
    defineDefaultProperty(ctx, QStringLiteral("substring"), method_substring);
    defineDefaultProperty(ctx, QStringLiteral("toLowerCase"), method_toLowerCase);
    defineDefaultProperty(ctx, QStringLiteral("toLocaleLowerCase"), method_toLocaleLowerCase);
    defineDefaultProperty(ctx, QStringLiteral("toUpperCase"), method_toUpperCase);
    defineDefaultProperty(ctx, QStringLiteral("toLocaleUpperCase"), method_toLocaleUpperCase);
}

QString StringPrototype::getThisString(ExecutionContext *ctx)
{
    if (StringObject *thisObject = ctx->thisObject.asStringObject()) {
        return thisObject->value.stringValue()->toQString();
    } else {
        ctx->throwTypeError();
        return QString();
    }
}

Value StringPrototype::method_toString(ExecutionContext *ctx)
{
    StringObject *o = ctx->thisObject.asStringObject();
    if (!o)
        ctx->throwTypeError();
    return o->value;
}

Value StringPrototype::method_valueOf(ExecutionContext *ctx)
{
    StringObject *o = ctx->thisObject.asStringObject();
    if (!o)
        ctx->throwTypeError();
    return o->value;
}

Value StringPrototype::method_charAt(ExecutionContext *ctx)
{
    const QString str = getThisString(ctx);

    int pos = 0;
    if (ctx->argumentCount > 0)
        pos = (int) ctx->argument(0).toInteger(ctx);

    QString result;
    if (pos >= 0 && pos < str.length())
        result += str.at(pos);

    return Value::fromString(ctx, result);
}

Value StringPrototype::method_charCodeAt(ExecutionContext *ctx)
{
    const QString str = getThisString(ctx);

    int pos = 0;
    if (ctx->argumentCount > 0)
        pos = (int) ctx->argument(0).toInteger(ctx);

    double result = qSNaN();

    if (pos >= 0 && pos < str.length())
        result = str.at(pos).unicode();

    return Value::fromDouble(result);
}

Value StringPrototype::method_concat(ExecutionContext *ctx)
{
    QString value = getThisString(ctx);

    for (unsigned i = 0; i < ctx->argumentCount; ++i) {
        Value v = __qmljs_to_string(ctx->argument(i), ctx);
        assert(v.isString());
        value += v.stringValue()->toQString();
    }

    return Value::fromString(ctx, value);
}

Value StringPrototype::method_indexOf(ExecutionContext *ctx)
{
    QString value = getThisString(ctx);

    QString searchString;
    if (ctx->argumentCount)
        searchString = ctx->argument(0).toString(ctx)->toQString();

    int pos = 0;
    if (ctx->argumentCount > 1)
        pos = (int) ctx->argument(1).toInteger(ctx);

    int index = -1;
    if (! value.isEmpty())
        index = value.indexOf(searchString, qMin(qMax(pos, 0), value.length()));

    return Value::fromDouble(index);
}

Value StringPrototype::method_lastIndexOf(ExecutionContext *ctx)
{
    const QString value = getThisString(ctx);

    QString searchString;
    if (ctx->argumentCount) {
        Value v = __qmljs_to_string(ctx->argument(0), ctx);
        searchString = v.stringValue()->toQString();
    }

    Value posArg = ctx->argument(1);
    double position = __qmljs_to_number(posArg, ctx);
    if (std::isnan(position))
        position = +qInf();
    else
        position = trunc(position);

    int pos = trunc(qMin(qMax(position, 0.0), double(value.length())));
    if (!searchString.isEmpty() && pos == value.length())
        --pos;
    int index = value.lastIndexOf(searchString, pos);
    return Value::fromDouble(index);
}

Value StringPrototype::method_localeCompare(ExecutionContext *ctx)
{
    const QString value = getThisString(ctx);
    const QString that = ctx->argument(0).toString(ctx)->toQString();
    return Value::fromDouble(QString::localeAwareCompare(value, that));
}

Value StringPrototype::method_match(ExecutionContext *ctx)
{
    // requires Regexp
    ctx->throwUnimplemented(QStringLiteral("String.prototype.match"));
    return Value::undefinedValue();
}

Value StringPrototype::method_replace(ExecutionContext *ctx)
{
    // requires Regexp
    ctx->throwUnimplemented(QStringLiteral("String.prototype.replace"));
    return Value::undefinedValue();
}

Value StringPrototype::method_search(ExecutionContext *ctx)
{
    // requires Regexp
    ctx->throwUnimplemented(QStringLiteral("String.prototype.search"));
    return Value::undefinedValue();
}

Value StringPrototype::method_slice(ExecutionContext *ctx)
{
    const QString text = getThisString(ctx);
    const int length = text.length();

    int start = int (ctx->argument(0).toInteger(ctx));
    int end = ctx->argument(1).isUndefined()
            ? length : int (ctx->argument(1).toInteger(ctx));

    if (start < 0)
        start = qMax(length + start, 0);
    else
        start = qMin(start, length);

    if (end < 0)
        end = qMax(length + end, 0);
    else
        end = qMin(end, length);

    int count = qMax(0, end - start);
    return Value::fromString(ctx, text.mid(start, count));
}

Value StringPrototype::method_split(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("String.prototype.splt"));
    return Value::undefinedValue();
}

Value StringPrototype::method_substr(ExecutionContext *ctx)
{
    const QString value = getThisString(ctx);

    double start = 0;
    if (ctx->argumentCount > 0)
        start = ctx->argument(0).toInteger(ctx);

    double length = +qInf();
    if (ctx->argumentCount > 1)
        length = ctx->argument(1).toInteger(ctx);

    double count = value.length();
    if (start < 0)
        start = qMax(count + start, 0.0);

    length = qMin(qMax(length, 0.0), count - start);

    qint32 x = Value::toInt32(start);
    qint32 y = Value::toInt32(length);
    return Value::fromString(ctx, value.mid(x, y));
}

Value StringPrototype::method_substring(ExecutionContext *ctx)
{
    QString value = getThisString(ctx);
    int length = value.length();

    double start = 0;
    double end = length;

    if (ctx->argumentCount > 0)
        start = ctx->argument(0).toInteger(ctx);

    if (ctx->argumentCount > 1)
        end = ctx->argument(1).toInteger(ctx);

    if (std::isnan(start) || start < 0)
        start = 0;

    if (std::isnan(end) || end < 0)
        end = 0;

    if (start > length)
        start = length;

    if (end > length)
        end = length;

    if (start > end) {
        double was = start;
        start = end;
        end = was;
    }

    qint32 x = Value::toInt32(start);
    qint32 y = Value::toInt32(end - start);
    return Value::fromString(ctx, value.mid(x, y));
}

Value StringPrototype::method_toLowerCase(ExecutionContext *ctx)
{
    QString value = getThisString(ctx);
    return Value::fromString(ctx, value.toLower());
}

Value StringPrototype::method_toLocaleLowerCase(ExecutionContext *ctx)
{
    return method_toLowerCase(ctx);
}

Value StringPrototype::method_toUpperCase(ExecutionContext *ctx)
{
    QString value = getThisString(ctx);
    return Value::fromString(ctx, value.toUpper());
}

Value StringPrototype::method_toLocaleUpperCase(ExecutionContext *ctx)
{
    return method_toUpperCase(ctx);
}

Value StringPrototype::method_fromCharCode(ExecutionContext *ctx)
{
    QString str;
    for (unsigned i = 0; i < ctx->argumentCount; ++i) {
        QChar c(ctx->argument(i).toUInt16(ctx));
        str += c;
    }
    return Value::fromString(ctx, str);
}

//
// Number object
//
NumberCtor::NumberCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value NumberCtor::construct(ExecutionContext *ctx)
{
    double d = ctx->argumentCount ? ctx->argument(0).toNumber(ctx) : 0;
    return Value::fromObject(ctx->engine->newNumberObject(Value::fromDouble(d)));
}

Value NumberCtor::call(ExecutionContext *ctx)
{
    double d = ctx->argumentCount ? ctx->argument(0).toNumber(ctx) : 0;
    return Value::fromDouble(d);
}

void NumberPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));

    ctor.objectValue()->defineReadonlyProperty(ctx->engine, QStringLiteral("NaN"), Value::fromDouble(qSNaN()));
    ctor.objectValue()->defineReadonlyProperty(ctx->engine, QStringLiteral("NEGATIVE_INFINITY"), Value::fromDouble(-qInf()));
    ctor.objectValue()->defineReadonlyProperty(ctx->engine, QStringLiteral("POSITIVE_INFINITY"), Value::fromDouble(qInf()));
    ctor.objectValue()->defineReadonlyProperty(ctx->engine, QStringLiteral("MAX_VALUE"), Value::fromDouble(1.7976931348623158e+308));

#ifdef __INTEL_COMPILER
# pragma warning( push )
# pragma warning(disable: 239)
#endif
    ctor.objectValue()->defineReadonlyProperty(ctx->engine, QStringLiteral("MIN_VALUE"), Value::fromDouble(5e-324));
#ifdef __INTEL_COMPILER
# pragma warning( pop )
#endif

    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString);
    defineDefaultProperty(ctx, QStringLiteral("toLocalString"), method_toLocaleString);
    defineDefaultProperty(ctx, QStringLiteral("valueOf"), method_valueOf);
    defineDefaultProperty(ctx, QStringLiteral("toFixed"), method_toFixed);
    defineDefaultProperty(ctx, QStringLiteral("toExponential"), method_toExponential);
    defineDefaultProperty(ctx, QStringLiteral("toPrecision"), method_toPrecision);
}

Value NumberPrototype::method_toString(ExecutionContext *ctx)
{
    NumberObject *thisObject = ctx->thisObject.asNumberObject();
    if (!thisObject)
        ctx->throwTypeError();

    Value arg = ctx->argument(0);
    if (!arg.isUndefined()) {
        int radix = arg.toInt32(ctx);
        if (radix < 2 || radix > 36) {
            ctx->throwError(QString::fromLatin1("Number.prototype.toString: %0 is not a valid radix")
                            .arg(radix));
            return Value::undefinedValue();
        }

        double num = thisObject->value.asDouble();
        if (std::isnan(num)) {
            return Value::fromString(ctx, QStringLiteral("NaN"));
        } else if (qIsInf(num)) {
            return Value::fromString(ctx, QLatin1String(num < 0 ? "-Infinity" : "Infinity"));
        }

        if (radix != 10) {
            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 Value::fromString(ctx, str);
        }
    }

    Value internalValue = thisObject->value;
    String *str = internalValue.toString(ctx);
    return Value::fromString(str);
}

Value NumberPrototype::method_toLocaleString(ExecutionContext *ctx)
{
    NumberObject *thisObject = ctx->thisObject.asNumberObject();
    if (!thisObject)
        ctx->throwTypeError();

    String *str = thisObject->value.toString(ctx);
    return Value::fromString(str);
}

Value NumberPrototype::method_valueOf(ExecutionContext *ctx)
{
    NumberObject *thisObject = ctx->thisObject.asNumberObject();
    if (!thisObject)
        ctx->throwTypeError();

    return thisObject->value;
}

Value NumberPrototype::method_toFixed(ExecutionContext *ctx)
{
    NumberObject *thisObject = ctx->thisObject.asNumberObject();
    if (!thisObject)
        ctx->throwTypeError();

    double fdigits = 0;

    if (ctx->argumentCount > 0)
        fdigits = ctx->argument(0).toInteger(ctx);

    if (std::isnan(fdigits))
        fdigits = 0;

    double v = thisObject->value.asDouble();
    QString str;
    if (std::isnan(v))
        str = QString::fromLatin1("NaN");
    else if (qIsInf(v))
        str = QString::fromLatin1(v < 0 ? "-Infinity" : "Infinity");
    else
        str = QString::number(v, 'f', int (fdigits));
    return Value::fromString(ctx, str);
}

Value NumberPrototype::method_toExponential(ExecutionContext *ctx)
{
    NumberObject *thisObject = ctx->thisObject.asNumberObject();
    if (!thisObject)
        ctx->throwTypeError();

    double fdigits = 0;

    if (ctx->argumentCount > 0)
        fdigits = ctx->argument(0).toInteger(ctx);

    QString z = QString::number(thisObject->value.asDouble(), 'e', int (fdigits));
    return Value::fromString(ctx, z);
}

Value NumberPrototype::method_toPrecision(ExecutionContext *ctx)
{
    NumberObject *thisObject = ctx->thisObject.asNumberObject();
    if (!thisObject)
        ctx->throwTypeError();

    double fdigits = 0;

    if (ctx->argumentCount > 0)
        fdigits = ctx->argument(0).toInteger(ctx);

    return Value::fromString(ctx, QString::number(thisObject->value.asDouble(), 'g', int (fdigits)));
}

//
// Boolean object
//
BooleanCtor::BooleanCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value BooleanCtor::construct(ExecutionContext *ctx)
{
    const double n = ctx->argument(0).toBoolean(ctx);
    return Value::fromObject(ctx->engine->newBooleanObject(Value::fromBoolean(n)));
}

Value BooleanCtor::call(ExecutionContext *ctx)
{
    bool value = ctx->argumentCount ? ctx->argument(0).toBoolean(ctx) : 0;
    return Value::fromBoolean(value);
}

void BooleanPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString);
    defineDefaultProperty(ctx, QStringLiteral("valueOf"), method_valueOf);
}

Value BooleanPrototype::method_toString(ExecutionContext *ctx)
{
    BooleanObject *thisObject = ctx->thisObject.asBooleanObject();
    if (!thisObject)
        ctx->throwTypeError();

    return Value::fromString(ctx, QLatin1String(thisObject->value.booleanValue() ? "true" : "false"));
}

Value BooleanPrototype::method_valueOf(ExecutionContext *ctx)
{
    BooleanObject *thisObject = ctx->thisObject.asBooleanObject();
    if (!thisObject)
        ctx->throwTypeError();

    return thisObject->value;
}

//
// Array object
//
ArrayCtor::ArrayCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value ArrayCtor::call(ExecutionContext *ctx)
{
    Array value;
    if (ctx->argumentCount == 1 && ctx->argument(0).isNumber()) {
        double size = ctx->argument(0).asDouble();
        quint32 isize = Value::toUInt32(size);

        if (size != double(isize)) {
            ctx->throwError(QStringLiteral("Invalid array length"));
            return Value::undefinedValue();
        }

        value.resize(isize);
    } else {
        for (unsigned int i = 0; i < ctx->argumentCount; ++i) {
            value.assign(i, ctx->argument(i));
        }
    }

    return Value::fromObject(ctx->engine->newArrayObject(value));
}

void ArrayPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toLocalString"), method_toLocaleString, 0);
    defineDefaultProperty(ctx, QStringLiteral("concat"), method_concat, 1);
    defineDefaultProperty(ctx, QStringLiteral("join"), method_join, 1);
    defineDefaultProperty(ctx, QStringLiteral("pop"), method_pop, 0);
    defineDefaultProperty(ctx, QStringLiteral("push"), method_push, 1);
    defineDefaultProperty(ctx, QStringLiteral("reverse"), method_reverse, 0);
    defineDefaultProperty(ctx, QStringLiteral("shift"), method_shift, 0);
    defineDefaultProperty(ctx, QStringLiteral("slice"), method_slice, 2);
    defineDefaultProperty(ctx, QStringLiteral("sort"), method_sort, 1);
    defineDefaultProperty(ctx, QStringLiteral("splice"), method_splice, 2);
    defineDefaultProperty(ctx, QStringLiteral("unshift"), method_unshift, 1);
    defineDefaultProperty(ctx, QStringLiteral("indexOf"), method_indexOf, 0);
    defineDefaultProperty(ctx, QStringLiteral("lastIndexOf"), method_lastIndexOf, 0);
    defineDefaultProperty(ctx, QStringLiteral("every"), method_every, 0);
    defineDefaultProperty(ctx, QStringLiteral("some"), method_some, 0);
    defineDefaultProperty(ctx, QStringLiteral("forEach"), method_forEach, 0);
    defineDefaultProperty(ctx, QStringLiteral("map"), method_map, 0);
    defineDefaultProperty(ctx, QStringLiteral("filter"), method_filter, 0);
    defineDefaultProperty(ctx, QStringLiteral("reduce"), method_reduce, 0);
    defineDefaultProperty(ctx, QStringLiteral("reduceRight"), method_reduceRight, 0);
}

Value ArrayPrototype::method_toString(ExecutionContext *ctx)
{
    return method_join(ctx);
}

Value ArrayPrototype::method_toLocaleString(ExecutionContext *ctx)
{
    return method_toString(ctx);
}

Value ArrayPrototype::method_concat(ExecutionContext *ctx)
{
    Array result;

    if (ArrayObject *instance = ctx->thisObject.asArrayObject())
        result = instance->value;
    else {
        QString v = ctx->thisObject.toString(ctx)->toQString();
        result.assign(0, Value::fromString(ctx, v));
    }

    for (uint i = 0; i < ctx->argumentCount; ++i) {
        quint32 k = result.size();
        Value arg = ctx->argument(i);

        if (ArrayObject *elt = arg.asArrayObject())
            result.concat(elt->value);

        else
            result.assign(k, arg);
    }

    return Value::fromObject(ctx->engine->newArrayObject(result));
}

Value ArrayPrototype::method_join(ExecutionContext *ctx)
{
    Value arg = ctx->argument(0);

    QString r4;
    if (arg.isUndefined())
        r4 = QStringLiteral(",");
    else
        r4 = arg.toString(ctx)->toQString();

    Value self = ctx->thisObject;
    const Value length = self.property(ctx, ctx->engine->id_length);
    const quint32 r2 = Value::toUInt32(length.isUndefined() ? 0 : length.toNumber(ctx));

    static QSet<Object *> visitedArrayElements;

    if (! r2 || visitedArrayElements.contains(self.objectValue()))
        return Value::fromString(ctx, QString());

    // avoid infinite recursion
    visitedArrayElements.insert(self.objectValue());

    QString R;

    if (ArrayObject *a = self.asArrayObject()) {
        for (uint i = 0; i < a->value.size(); ++i) {
            if (i)
                R += r4;

            Value e = a->value.at(i);
            if (! (e.isUndefined() || e.isNull()))
                R += e.toString(ctx)->toQString();
        }
    } else {
        //
        // crazy!
        //
        Value r6 = self.property(ctx, ctx->engine->identifier(QStringLiteral("0")));
        if (!(r6.isUndefined() || r6.isNull()))
            R = r6.toString(ctx)->toQString();

        for (quint32 k = 1; k < r2; ++k) {
            R += r4;

            String *name = Value::fromDouble(k).toString(ctx);
            Value r12 = self.property(ctx, name);

            if (! (r12.isUndefined() || r12.isNull()))
                R += r12.toString(ctx)->toQString();
        }
    }

    visitedArrayElements.remove(self.objectValue());
    return Value::fromString(ctx, R);
}

Value ArrayPrototype::method_pop(ExecutionContext *ctx)
{
    Value self = ctx->thisObject;
    if (ArrayObject *instance = self.asArrayObject())
        return instance->value.pop();

    Value r1 = self.property(ctx, ctx->engine->id_length);
    quint32 r2 = !r1.isUndefined() ? r1.toUInt32(ctx) : 0;
    if (r2) {
        String *r6 = Value::fromDouble(r2 - 1).toString(ctx);
        Value r7 = self.property(ctx, r6);
        self.objectValue()->__delete__(ctx, r6);
        self.objectValue()->__put__(ctx, ctx->engine->id_length, Value::fromDouble(2 - 1));
        return r7;
    }

    self.objectValue()->__put__(ctx, ctx->engine->id_length, Value::fromDouble(0));
    return Value::undefinedValue();
}

Value ArrayPrototype::method_push(ExecutionContext *ctx)
{
    Value self = ctx->thisObject;
    if (ArrayObject *instance = self.asArrayObject()) {
        uint pos = instance->value.size();
        for (unsigned int i = 0; i < ctx->argumentCount; ++i) {
            Value val = ctx->argument(i);
            instance->value.assign(pos++, val);
        }
        return Value::fromDouble(pos);
    }

    Value r1 = self.property(ctx, ctx->engine->id_length);
    quint32 n = !r1.isUndefined() ? r1.toUInt32(ctx) : 0;
    for (unsigned int index = 0; index < ctx->argumentCount; ++index, ++n) {
        Value r3 = ctx->argument(index);
        String *name = Value::fromDouble(n).toString(ctx);
        self.objectValue()->__put__(ctx, name, r3);
    }
    Value r = Value::fromDouble(n);
    self.objectValue()->__put__(ctx, ctx->engine->id_length, r);
    return r;
}

Value ArrayPrototype::method_reverse(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.reverse"));

    int lo = 0, hi = instance->value.count() - 1;

    for (; lo < hi; ++lo, --hi) {
        Value tmp = instance->value.at(lo);
        instance->value.assign(lo, instance->value.at(hi));
        instance->value.assign(hi, tmp);
    }
    return Value::undefinedValue();
}

Value ArrayPrototype::method_shift(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.shift"));

    return instance->value.takeFirst();
}

Value ArrayPrototype::method_slice(ExecutionContext *ctx)
{
    // ### TODO implement the fast non-generic version of slice.

    Array result;
    Value start = ctx->argument(0);
    Value end = ctx->argument(1);
    Value self = ctx->thisObject;
    Value l = self.property(ctx, ctx->engine->id_length);
    double r2 = !l.isUndefined() ? l.toNumber(ctx) : 0;
    quint32 r3 = Value::toUInt32(r2);
    qint32 r4 = qint32(start.toInteger(ctx));
    quint32 r5 = r4 < 0 ? qMax(quint32(r3 + r4), quint32(0)) : qMin(quint32(r4), r3);
    quint32 k = r5;
    qint32 r7 = end.isUndefined() ? r3 : qint32 (end.toInteger(ctx));
    quint32 r8 = r7 < 0 ? qMax(quint32(r3 + r7), quint32(0)) : qMin(quint32(r7), r3);
    quint32 n = 0;
    for (; k < r8; ++k) {
        String *r11 = Value::fromDouble(k).toString(ctx);
        Value v = self.property(ctx, r11);
        if (! v.isUndefined())
            result.assign(n++, v);
    }
    return Value::fromObject(ctx->engine->newArrayObject(result));
}

Value ArrayPrototype::method_sort(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.sort"));

    Value comparefn = ctx->argument(0);
    instance->value.sort(ctx, comparefn);
    return ctx->thisObject;
}

Value ArrayPrototype::method_splice(ExecutionContext *ctx)
{
    if (ctx->argumentCount < 2)
        // ### check
        return Value::undefinedValue();

    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.splice"));

    double start = ctx->argument(0).toInteger(ctx);
    double deleteCount = ctx->argument(1).toInteger(ctx);
    Value a = Value::fromObject(ctx->engine->newArrayObject());
    QVector<Value> items;
    for (unsigned int i = 2; i < ctx->argumentCount; ++i)
        items << ctx->argument(i);
    ArrayObject *otherInstance = a.asArrayObject();
    assert(otherInstance);
    instance->value.splice(start, deleteCount, items, otherInstance->value);
    return a;
}

Value ArrayPrototype::method_unshift(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("Array.prototype.indexOf"));
    return Value::undefinedValue();
}

Value ArrayPrototype::method_indexOf(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("Array.prototype.indexOf"));
    return Value::undefinedValue();
}

Value ArrayPrototype::method_lastIndexOf(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("Array.prototype.indexOf"));
    return Value::undefinedValue();
}

Value ArrayPrototype::method_every(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.every"));

    Value callback = ctx->argument(0);
    Value thisArg = ctx->argument(1);
    bool ok = true;
    for (uint k = 0; ok && k < instance->value.size(); ++k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;

        Value args[3];
        args[0] = v;
        args[1] = Value::fromDouble(k);
        args[2] = ctx->thisObject;
        Value r = __qmljs_call_value(ctx, thisArg, callback, args, 3);
        ok = __qmljs_to_boolean(r, ctx);
    }
    return Value::fromBoolean(ok);
}

Value ArrayPrototype::method_some(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.some"));

    Value callback = ctx->argument(0);
    Value thisArg = ctx->argument(1);
    bool ok = false;
    for (uint k = 0; !ok && k < instance->value.size(); ++k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;

        Value args[3];
        args[0] = v;
        args[1] = Value::fromDouble(k);
        args[2] = ctx->thisObject;
        Value r = __qmljs_call_value(ctx, thisArg, callback, args, 3);
        ok = __qmljs_to_boolean(r, ctx);
    }
    return Value::fromBoolean(ok);
}

Value ArrayPrototype::method_forEach(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.forEach"));

    Value callback = ctx->argument(0);
    Value thisArg = ctx->argument(1);
    for (quint32 k = 0; k < instance->value.size(); ++k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;
        Value args[3];
        args[0] = v;
        args[1] = Value::fromDouble(k);
        args[2] = ctx->thisObject;
        /*Value r =*/ __qmljs_call_value(ctx, thisArg, callback, args, 3);
    }
    return Value::undefinedValue();
}

Value ArrayPrototype::method_map(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.map"));

    Value callback = ctx->argument(0);
    Value thisArg = ctx->argument(1);
    ArrayObject *a = ctx->engine->newArrayObject()->asArrayObject();
    a->value.resize(instance->value.size());
    for (quint32 k = 0; k < instance->value.size(); ++k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;
        Value args[3];
        args[0] = v;
        args[1] = Value::fromDouble(k);
        args[2] = ctx->thisObject;
        Value r = __qmljs_call_value(ctx, thisArg, callback, args, 3);
        a->value.assign(k, r);
    }
    return Value::fromObject(a);
}

Value ArrayPrototype::method_filter(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.filter"));

    Value callback = ctx->argument(0);
    Value thisArg = ctx->argument(1);
    ArrayObject *a = ctx->engine->newArrayObject()->asArrayObject();
    for (quint32 k = 0; k < instance->value.size(); ++k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;
        Value args[3];
        args[0] = v;
        args[1] = Value::fromDouble(k);
        args[2] = ctx->thisObject;
        Value r = __qmljs_call_value(ctx, thisArg, callback, args, 3);
        if (__qmljs_to_boolean(r, ctx)) {
            const uint index = a->value.size();
            a->value.resize(index + 1);
            a->value.assign(index, v);
        }
    }
    return Value::fromObject(a);
}

Value ArrayPrototype::method_reduce(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.reduce"));

    Value callback = ctx->argument(0);
    Value initialValue = ctx->argument(1);
    Value acc = initialValue;
    for (quint32 k = 0; k < instance->value.size(); ++k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;

        if (acc.isUndefined()) {
            acc = v;
            continue;
        }

        Value args[4];
        args[0] = acc;
        args[1] = v;
        args[2] = Value::fromDouble(k);
        args[3] = ctx->thisObject;
        Value r = __qmljs_call_value(ctx, Value::undefinedValue(), callback, args, 4);
        acc = r;
    }
    return acc;
}

Value ArrayPrototype::method_reduceRight(ExecutionContext *ctx)
{
    ArrayObject *instance = ctx->thisObject.asArrayObject();
    if (!instance)
        ctx->throwUnimplemented(QStringLiteral("Array.prototype.reduceRight"));

    Value callback = ctx->argument(0);
    Value initialValue = ctx->argument(1);
    Value acc = initialValue;
    for (int k = instance->value.size() - 1; k != -1; --k) {
        Value v = instance->value.at(k);
        if (v.isUndefined())
            continue;

        if (acc.isUndefined()) {
            acc = v;
            continue;
        }

        Value args[4];
        args[0] = acc;
        args[1] = v;
        args[2] = Value::fromDouble(k);
        args[3] = ctx->thisObject;
        Value r = __qmljs_call_value(ctx, Value::undefinedValue(), callback, args, 4);
        acc = r;
    }
    return acc;
}

//
// Function object
//
FunctionCtor::FunctionCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

// 15.3.2
Value FunctionCtor::construct(ExecutionContext *ctx)
{
    MemoryManager::GCBlocker gcBlocker(ctx->engine->memoryManager);

    QString args;
    QString body;
    if (ctx->argumentCount > 0) {
        body = ctx->argument(ctx->argumentCount - 1).toString(ctx)->toQString();

        for (uint i = 0; i < ctx->argumentCount - 1; ++i) {
            if (i)
                args += QLatin1String(", ");
            args += ctx->argument(i).toString(ctx)->toQString();
        }
    }

    QString function = QLatin1String("function(") + args + QLatin1String("){") + body + QLatin1String("}");

    QQmlJS::Engine ee, *engine = &ee;
    Lexer lexer(engine);
    lexer.setCode(function, 1, false);
    Parser parser(engine);

    const bool parsed = parser.parseExpression();

    if (!parsed)
        // ### Syntax error
        __qmljs_throw_type_error(ctx);

    using namespace AST;
    FunctionExpression *fe = AST::cast<FunctionExpression *>(parser.rootNode());
    if (!fe)
        // ### Syntax error
        __qmljs_throw_type_error(ctx);

    IR::Module module;

    Codegen cg(ctx);
    IR::Function *irf = cg(QString(), fe, &module);

    QScopedPointer<EvalInstructionSelection> isel(ctx->engine->iselFactory->create(ctx->engine, &module));
    VM::Function *vmf = isel->vmFunction(irf);

    return Value::fromObject(ctx->engine->newScriptFunction(ctx->engine->rootContext, vmf));
}

// 15.3.1: This is equivalent to new Function(...)
Value FunctionCtor::call(ExecutionContext *ctx)
{
    return construct(ctx);
}

void FunctionPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString, 0);
    defineDefaultProperty(ctx, QStringLiteral("apply"), method_apply, 0);
    defineDefaultProperty(ctx, QStringLiteral("call"), method_call, 0);
    defineDefaultProperty(ctx, QStringLiteral("bind"), method_bind, 0);
}

Value FunctionPrototype::method_toString(ExecutionContext *ctx)
{
    FunctionObject *fun = ctx->thisObject.asFunctionObject();
    if (!fun)
        ctx->throwTypeError();

    return Value::fromString(ctx, QStringLiteral("function() { [code] }"));
}

Value FunctionPrototype::method_apply(ExecutionContext *ctx)
{
    Value thisObject = ctx->argument(0).toObject(ctx);
    if (thisObject.isNull() || thisObject.isUndefined())
        thisObject = ctx->engine->globalObject;

    Value arg = ctx->argument(1);
    QVector<Value> args;

    if (ArrayObject *arr = arg.asArrayObject()) {
        const Array &actuals = arr->value;

        for (quint32 i = 0; i < actuals.count(); ++i) {
            Value a = actuals.at(i);
            args.append(a);
        }
    } else if (!(arg.isUndefined() || arg.isNull())) {
        ctx->throwError(QLatin1String("Function.prototype.apply: second argument is not an array"));
        return Value::undefinedValue();
    }

    return __qmljs_call_value(ctx, thisObject, ctx->thisObject, args.data(), args.size());
}

Value FunctionPrototype::method_call(ExecutionContext *ctx)
{
    Value thisArg = ctx->argument(0);
    QVector<Value> args(ctx->argumentCount ? ctx->argumentCount - 1 : 0);
    if (ctx->argumentCount)
        qCopy(ctx->arguments + 1,
              ctx->arguments + ctx->argumentCount, args.begin());
    return __qmljs_call_value(ctx, thisArg, ctx->thisObject, args.data(), args.size());
}

Value FunctionPrototype::method_bind(ExecutionContext *ctx)
{
    FunctionObject *fun = ctx->thisObject.asFunctionObject();
    if (!fun)
        ctx->throwTypeError();

    ctx->throwUnimplemented(QStringLiteral("Function.prototype.bind"));
    return Value::undefinedValue();
}

//
// Date object
//
DateCtor::DateCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value DateCtor::construct(ExecutionContext *ctx)
{
    double t = 0;

    if (ctx->argumentCount == 0)
        t = currentTime();

    else if (ctx->argumentCount == 1) {
        Value arg = ctx->argument(0);
        if (DateObject *d = arg.asDateObject())
            arg = d->value;
        else
            arg = __qmljs_to_primitive(arg, ctx, PREFERREDTYPE_HINT);

        if (arg.isString())
            t = ParseString(arg.toString(ctx)->toQString());
        else
            t = TimeClip(arg.toNumber(ctx));
    }

    else { // ctx->argumentCount > 1
        double year  = ctx->argument(0).toNumber(ctx);
        double month = ctx->argument(1).toNumber(ctx);
        double day  = ctx->argumentCount >= 3 ? ctx->argument(2).toNumber(ctx) : 1;
        double hours = ctx->argumentCount >= 4 ? ctx->argument(3).toNumber(ctx) : 0;
        double mins = ctx->argumentCount >= 5 ? ctx->argument(4).toNumber(ctx) : 0;
        double secs = ctx->argumentCount >= 6 ? ctx->argument(5).toNumber(ctx) : 0;
        double ms    = ctx->argumentCount >= 7 ? ctx->argument(6).toNumber(ctx) : 0;
        if (year >= 0 && year <= 99)
            year += 1900;
        t = MakeDate(MakeDay(year, month, day), MakeTime(hours, mins, secs, ms));
        t = TimeClip(UTC(t));
    }

    Object *d = ctx->engine->newDateObject(Value::fromDouble(t));
    return Value::fromObject(d);
}

Value DateCtor::call(ExecutionContext *ctx)
{
    double t = currentTime();
    return Value::fromString(ctx, ToString(t));
}

void DatePrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    LocalTZA = getLocalTZA();

    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("parse"), method_parse, 1);
    ctor.objectValue()->defineDefaultProperty(ctx, QStringLiteral("UTC"), method_UTC, 7);

    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toDateString"), method_toDateString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toTimeString"), method_toTimeString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toLocaleString"), method_toLocaleString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toLocaleDateString"), method_toLocaleDateString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toLocaleTimeString"), method_toLocaleTimeString, 0);
    defineDefaultProperty(ctx, QStringLiteral("valueOf"), method_valueOf, 0);
    defineDefaultProperty(ctx, QStringLiteral("getTime"), method_getTime, 0);
    defineDefaultProperty(ctx, QStringLiteral("getYear"), method_getYear, 0);
    defineDefaultProperty(ctx, QStringLiteral("getFullYear"), method_getFullYear, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCFullYear"), method_getUTCFullYear, 0);
    defineDefaultProperty(ctx, QStringLiteral("getMonth"), method_getMonth, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCMonth"), method_getUTCMonth, 0);
    defineDefaultProperty(ctx, QStringLiteral("getDate"), method_getDate, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCDate"), method_getUTCDate, 0);
    defineDefaultProperty(ctx, QStringLiteral("getDay"), method_getDay, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCDay"), method_getUTCDay, 0);
    defineDefaultProperty(ctx, QStringLiteral("getHours"), method_getHours, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCHours"), method_getUTCHours, 0);
    defineDefaultProperty(ctx, QStringLiteral("getMinutes"), method_getMinutes, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCMinutes"), method_getUTCMinutes, 0);
    defineDefaultProperty(ctx, QStringLiteral("getSeconds"), method_getSeconds, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCSeconds"), method_getUTCSeconds, 0);
    defineDefaultProperty(ctx, QStringLiteral("getMilliseconds"), method_getMilliseconds, 0);
    defineDefaultProperty(ctx, QStringLiteral("getUTCMilliseconds"), method_getUTCMilliseconds, 0);
    defineDefaultProperty(ctx, QStringLiteral("getTimezoneOffset"), method_getTimezoneOffset, 0);
    defineDefaultProperty(ctx, QStringLiteral("setTime"), method_setTime, 1);
    defineDefaultProperty(ctx, QStringLiteral("setMilliseconds"), method_setMilliseconds, 1);
    defineDefaultProperty(ctx, QStringLiteral("setUTCMilliseconds"), method_setUTCMilliseconds, 1);
    defineDefaultProperty(ctx, QStringLiteral("setSeconds"), method_setSeconds, 2);
    defineDefaultProperty(ctx, QStringLiteral("setUTCSeconds"), method_setUTCSeconds, 2);
    defineDefaultProperty(ctx, QStringLiteral("setMinutes"), method_setMinutes, 3);
    defineDefaultProperty(ctx, QStringLiteral("setUTCMinutes"), method_setUTCMinutes, 3);
    defineDefaultProperty(ctx, QStringLiteral("setHours"), method_setHours, 4);
    defineDefaultProperty(ctx, QStringLiteral("setUTCHours"), method_setUTCHours, 4);
    defineDefaultProperty(ctx, QStringLiteral("setDate"), method_setDate, 1);
    defineDefaultProperty(ctx, QStringLiteral("setUTCDate"), method_setUTCDate, 1);
    defineDefaultProperty(ctx, QStringLiteral("setMonth"), method_setMonth, 2);
    defineDefaultProperty(ctx, QStringLiteral("setUTCMonth"), method_setUTCMonth, 2);
    defineDefaultProperty(ctx, QStringLiteral("setYear"), method_setYear, 1);
    defineDefaultProperty(ctx, QStringLiteral("setFullYear"), method_setFullYear, 3);
    defineDefaultProperty(ctx, QStringLiteral("setUTCFullYear"), method_setUTCFullYear, 3);
    defineDefaultProperty(ctx, QStringLiteral("toUTCString"), method_toUTCString, 0);
    defineDefaultProperty(ctx, QStringLiteral("toGMTString"), method_toUTCString, 0);
}

double DatePrototype::getThisDate(ExecutionContext *ctx)
{
    if (DateObject *thisObject = ctx->thisObject.asDateObject())
        return thisObject->value.asDouble();
    else {
        ctx->throwTypeError();
        return 0;
    }
}

Value DatePrototype::method_MakeTime(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("Data.MakeTime"));
    return Value::undefinedValue();
}

Value DatePrototype::method_MakeDate(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("Data.MakeDate"));
    return Value::undefinedValue();
}

Value DatePrototype::method_TimeClip(ExecutionContext *ctx)
{
    ctx->throwUnimplemented(QStringLiteral("Data.TimeClip"));
    return Value::undefinedValue();
}

Value DatePrototype::method_parse(ExecutionContext *ctx)
{
    return Value::fromDouble(ParseString(ctx->argument(0).toString(ctx)->toQString()));
}

Value DatePrototype::method_UTC(ExecutionContext *ctx)
{
    const int numArgs = ctx->argumentCount;
    if (numArgs >= 2) {
        double year  = ctx->argument(0).toNumber(ctx);
        double month = ctx->argument(1).toNumber(ctx);
        double day   = numArgs >= 3 ? ctx->argument(2).toNumber(ctx) : 1;
        double hours = numArgs >= 4 ? ctx->argument(3).toNumber(ctx) : 0;
        double mins  = numArgs >= 5 ? ctx->argument(4).toNumber(ctx) : 0;
        double secs  = numArgs >= 6 ? ctx->argument(5).toNumber(ctx) : 0;
        double ms    = numArgs >= 7 ? ctx->argument(6).toNumber(ctx) : 0;
        if (year >= 0 && year <= 99)
            year += 1900;
        double t = MakeDate(MakeDay(year, month, day),
                            MakeTime(hours, mins, secs, ms));
        return Value::fromDouble(TimeClip(t));
    }
    return Value::undefinedValue();
}

Value DatePrototype::method_toString(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromString(ctx, ToString(t));
}

Value DatePrototype::method_toDateString(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromString(ctx, ToDateString(t));
}

Value DatePrototype::method_toTimeString(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromString(ctx, ToTimeString(t));
}

Value DatePrototype::method_toLocaleString(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromString(ctx, ToLocaleString(t));
}

Value DatePrototype::method_toLocaleDateString(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromString(ctx, ToLocaleDateString(t));
}

Value DatePrototype::method_toLocaleTimeString(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromString(ctx, ToLocaleTimeString(t));
}

Value DatePrototype::method_valueOf(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getTime(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getYear(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = YearFromTime(LocalTime(t)) - 1900;
    return Value::fromDouble(t);
}

Value DatePrototype::method_getFullYear(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = YearFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCFullYear(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = YearFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getMonth(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = MonthFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCMonth(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = MonthFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getDate(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = DateFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCDate(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = DateFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getDay(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = WeekDay(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCDay(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = WeekDay(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getHours(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = HourFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCHours(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = HourFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getMinutes(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = MinFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCMinutes(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = MinFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getSeconds(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = SecFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCSeconds(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = SecFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getMilliseconds(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = msFromTime(LocalTime(t));
    return Value::fromDouble(t);
}

Value DatePrototype::method_getUTCMilliseconds(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = msFromTime(t);
    return Value::fromDouble(t);
}

Value DatePrototype::method_getTimezoneOffset(ExecutionContext *ctx)
{
    double t = getThisDate(ctx);
    if (! std::isnan(t))
        t = (t - LocalTime(t)) / msPerMinute;
    return Value::fromDouble(t);
}

Value DatePrototype::method_setTime(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    self->value.setDouble(TimeClip(ctx->argument(0).toNumber(ctx)));
    return self->value;
}

Value DatePrototype::method_setMilliseconds(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double ms = ctx->argument(0).toNumber(ctx);
    self->value.setDouble(TimeClip(UTC(MakeDate(Day(t), MakeTime(HourFromTime(t), MinFromTime(t), SecFromTime(t), ms)))));
    return self->value;
}

Value DatePrototype::method_setUTCMilliseconds(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double ms = ctx->argument(0).toNumber(ctx);
    self->value.setDouble(TimeClip(UTC(MakeDate(Day(t), MakeTime(HourFromTime(t), MinFromTime(t), SecFromTime(t), ms)))));
    return self->value;
}

Value DatePrototype::method_setSeconds(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double sec = ctx->argument(0).toNumber(ctx);
    double ms = (ctx->argumentCount < 2) ? msFromTime(t) : ctx->argument(1).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(Day(t), MakeTime(HourFromTime(t), MinFromTime(t), sec, ms))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setUTCSeconds(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double sec = ctx->argument(0).toNumber(ctx);
    double ms = (ctx->argumentCount < 2) ? msFromTime(t) : ctx->argument(1).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(Day(t), MakeTime(HourFromTime(t), MinFromTime(t), sec, ms))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setMinutes(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double min = ctx->argument(0).toNumber(ctx);
    double sec = (ctx->argumentCount < 2) ? SecFromTime(t) : ctx->argument(1).toNumber(ctx);
    double ms = (ctx->argumentCount < 3) ? msFromTime(t) : ctx->argument(2).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(Day(t), MakeTime(HourFromTime(t), min, sec, ms))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setUTCMinutes(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double min = ctx->argument(0).toNumber(ctx);
    double sec = (ctx->argumentCount < 2) ? SecFromTime(t) : ctx->argument(1).toNumber(ctx);
    double ms = (ctx->argumentCount < 3) ? msFromTime(t) : ctx->argument(2).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(Day(t), MakeTime(HourFromTime(t), min, sec, ms))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setHours(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double hour = ctx->argument(0).toNumber(ctx);
    double min = (ctx->argumentCount < 2) ? MinFromTime(t) : ctx->argument(1).toNumber(ctx);
    double sec = (ctx->argumentCount < 3) ? SecFromTime(t) : ctx->argument(2).toNumber(ctx);
    double ms = (ctx->argumentCount < 4) ? msFromTime(t) : ctx->argument(3).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(Day(t), MakeTime(hour, min, sec, ms))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setUTCHours(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double hour = ctx->argument(0).toNumber(ctx);
    double min = (ctx->argumentCount < 2) ? MinFromTime(t) : ctx->argument(1).toNumber(ctx);
    double sec = (ctx->argumentCount < 3) ? SecFromTime(t) : ctx->argument(2).toNumber(ctx);
    double ms = (ctx->argumentCount < 4) ? msFromTime(t) : ctx->argument(3).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(Day(t), MakeTime(hour, min, sec, ms))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setDate(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double date = ctx->argument(0).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(MakeDay(YearFromTime(t), MonthFromTime(t), date), TimeWithinDay(t))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setUTCDate(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double date = ctx->argument(0).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(MakeDay(YearFromTime(t), MonthFromTime(t), date), TimeWithinDay(t))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setMonth(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double month = ctx->argument(0).toNumber(ctx);
    double date = (ctx->argumentCount < 2) ? DateFromTime(t) : ctx->argument(1).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(MakeDay(YearFromTime(t), month, date), TimeWithinDay(t))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setUTCMonth(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double month = ctx->argument(0).toNumber(ctx);
    double date = (ctx->argumentCount < 2) ? DateFromTime(t) : ctx->argument(1).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(MakeDay(YearFromTime(t), month, date), TimeWithinDay(t))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setYear(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    if (std::isnan(t))
        t = 0;
    else
        t = LocalTime(t);
    double year = ctx->argument(0).toNumber(ctx);
    double r;
    if (std::isnan(year)) {
        r = qSNaN();
    } else {
        if ((Value::toInteger(year) >= 0) && (Value::toInteger(year) <= 99))
            year += 1900;
        r = MakeDay(year, MonthFromTime(t), DateFromTime(t));
        r = UTC(MakeDate(r, TimeWithinDay(t)));
        r = TimeClip(r);
    }
    self->value.setDouble(r);
    return self->value;
}

Value DatePrototype::method_setUTCFullYear(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    double year = ctx->argument(0).toNumber(ctx);
    double month = (ctx->argumentCount < 2) ? MonthFromTime(t) : ctx->argument(1).toNumber(ctx);
    double date = (ctx->argumentCount < 3) ? DateFromTime(t) : ctx->argument(2).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(MakeDay(year, month, date), TimeWithinDay(t))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_setFullYear(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = LocalTime(self->value.asDouble());
    double year = ctx->argument(0).toNumber(ctx);
    double month = (ctx->argumentCount < 2) ? MonthFromTime(t) : ctx->argument(1).toNumber(ctx);
    double date = (ctx->argumentCount < 3) ? DateFromTime(t) : ctx->argument(2).toNumber(ctx);
    t = TimeClip(UTC(MakeDate(MakeDay(year, month, date), TimeWithinDay(t))));
    self->value.setDouble(t);
    return self->value;
}

Value DatePrototype::method_toUTCString(ExecutionContext *ctx)
{
    DateObject *self = ctx->thisObject.asDateObject();
    if (!self)
        ctx->throwTypeError();

    double t = self->value.asDouble();
    return Value::fromString(ctx, ToUTCString(t));
}

//
// RegExp object
//
RegExpCtor::RegExpCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value RegExpCtor::construct(ExecutionContext *ctx)
{
    Value r = ctx->argumentCount > 0 ? ctx->argument(0) : Value::undefinedValue();
    Value f = ctx->argumentCount > 1 ? ctx->argument(1) : Value::undefinedValue();
    if (RegExpObject *re = r.asRegExpObject()) {
        if (!f.isUndefined())
            ctx->throwTypeError();

        RegExpObject *o = ctx->engine->newRegExpObject(re->value, re->global);
        return Value::fromObject(o);
    }

    if (r.isUndefined())
        r = Value::fromString(ctx, QString());
    else if (!r.isString())
        r = __qmljs_to_string(r, ctx);

    bool global = false;
    QRegularExpression::PatternOptions options = QRegularExpression::NoPatternOption;
    if (!f.isUndefined()) {
        f = __qmljs_to_string(f, ctx);
        QString str = f.stringValue()->toQString();
        for (int i = 0; i < str.length(); ++i) {
            if (str.at(i) == QChar('g') && !global) {
                global = true;
            } else if (str.at(i) == QChar('i') && !(options & QRegularExpression::CaseInsensitiveOption)) {
                options |= QRegularExpression::CaseInsensitiveOption;
            } else if (str.at(i) == QChar('m') && !(options & QRegularExpression::MultilineOption)) {
                options |= QRegularExpression::MultilineOption;
            } else {
                ctx->throwTypeError();
            }
        }
    }

    QRegularExpression re(r.stringValue()->toQString(), options);
    if (!re.isValid())
        ctx->throwTypeError();

    RegExpObject *o = ctx->engine->newRegExpObject(re, global);
    return Value::fromObject(o);
}

Value RegExpCtor::call(ExecutionContext *ctx)
{
    if (ctx->argumentCount > 0 && ctx->argument(0).asRegExpObject()) {
        if (ctx->argumentCount == 1 || ctx->argument(1).isUndefined())
            return ctx->argument(0);
    }

    return construct(ctx);
}

void RegExpPrototype::init(ExecutionContext *ctx, const Value &ctor)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(this));
    defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    defineDefaultProperty(ctx, QStringLiteral("exec"), method_exec, 0);
    defineDefaultProperty(ctx, QStringLiteral("test"), method_test, 0);
    defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString, 0);
}

Value RegExpPrototype::method_exec(ExecutionContext *ctx)
{
    RegExpObject *r = ctx->thisObject.asRegExpObject();
    if (!r)
        ctx->throwTypeError();

    Value arg = ctx->argument(0);
    arg = __qmljs_to_string(arg, ctx);
    QString s = arg.stringValue()->toQString();

    int offset = r->global ? r->lastIndex.toInt32(ctx) : 0;
    if (offset < 0 || offset > s.length())
        return Value::nullValue();

    QRegularExpressionMatch match = r->value.match(s, offset);
    if (!match.hasMatch())
        return Value::nullValue();

    // fill in result data
    ArrayObject *array = ctx->engine->newArrayObject()->asArrayObject();
    int captured = match.lastCapturedIndex();
    for (int i = 0; i <= captured; ++i)
        array->value.push(Value::fromString(ctx, match.captured(i)));

    array->__put__(ctx, QLatin1String("index"), Value::fromInt32(match.capturedStart(0)));
    array->__put__(ctx, QLatin1String("input"), arg);

    if (r->global)
        r->lastIndex = Value::fromInt32(match.capturedEnd(0));

    return Value::fromObject(array);
}

Value RegExpPrototype::method_test(ExecutionContext *ctx)
{
    Value r = method_exec(ctx);
    return Value::fromBoolean(!r.isNull());
}

Value RegExpPrototype::method_toString(ExecutionContext *ctx)
{
    RegExpObject *r = ctx->thisObject.asRegExpObject();
    if (!r)
        ctx->throwTypeError();

    QString result = QChar('/') + r->value.pattern();
    result += QChar('/');
    QRegularExpression::PatternOptions o = r->value.patternOptions();
    // ### 'g' option missing
    if (o & QRegularExpression::CaseInsensitiveOption)
        result += QChar('i');
    if (o & QRegularExpression::MultilineOption)
        result += QChar('m');
    return Value::fromString(ctx, result);
}

//
// ErrorCtr
//
ErrorCtor::ErrorCtor(ExecutionContext *scope)
    : FunctionObject(scope)
{
}

Value ErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(ctx->engine->newErrorObject(ctx->argument(0)));
}

Value ErrorCtor::call(ExecutionContext *ctx)
{
    return construct(ctx);
}

Value EvalErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(new (ctx->engine->memoryManager) EvalErrorObject(ctx));
}

Value RangeErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(new (ctx->engine->memoryManager) RangeErrorObject(ctx));
}

Value ReferenceErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(new (ctx->engine->memoryManager) ReferenceErrorObject(ctx));
}

Value SyntaxErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(new (ctx->engine->memoryManager) SyntaxErrorObject(ctx, 0));
}

Value TypeErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(new (ctx->engine->memoryManager) TypeErrorObject(ctx));
}

Value URIErrorCtor::construct(ExecutionContext *ctx)
{
    return Value::fromObject(new (ctx->engine->memoryManager) URIErrorObject(ctx));
}

void ErrorPrototype::init(ExecutionContext *ctx, const Value &ctor, Object *obj)
{
    ctor.objectValue()->defineDefaultProperty(ctx->engine->id_prototype, Value::fromObject(obj));
    obj->defineDefaultProperty(ctx, QStringLiteral("constructor"), ctor);
    obj->defineDefaultProperty(ctx, QStringLiteral("toString"), method_toString, 0);
}

Value ErrorPrototype::method_toString(ExecutionContext *ctx)
{
    Object *o = ctx->thisObject.asObject();
    if (!o)
        __qmljs_throw_type_error(ctx);

    Value name = o->__get__(ctx, ctx->engine->newString(QString::fromLatin1("name")));
    QString qname;
    if (name.isUndefined())
        qname = QString::fromLatin1("Error");
    else
        qname = __qmljs_to_string(name, ctx).stringValue()->toQString();

    Value message = o->__get__(ctx, ctx->engine->newString(QString::fromLatin1("message")));
    QString qmessage;
    if (!message.isUndefined())
        qmessage = __qmljs_to_string(message, ctx).stringValue()->toQString();

    QString str;
    if (qname.isEmpty()) {
        str = qmessage;
    } else if (qmessage.isEmpty()) {
        str = qname;
    } else {
        str = qname + QLatin1String(": ") + qmessage;
    }

    return Value::fromString(ctx, str);
}


//
// Math object
//
MathObject::MathObject(ExecutionContext *ctx)
{
    defineReadonlyProperty(ctx->engine, QStringLiteral("E"), Value::fromDouble(::exp(1.0)));
    defineReadonlyProperty(ctx->engine, QStringLiteral("LN2"), Value::fromDouble(::log(2.0)));
    defineReadonlyProperty(ctx->engine, QStringLiteral("LN10"), Value::fromDouble(::log(10.0)));
    defineReadonlyProperty(ctx->engine, QStringLiteral("LOG2E"), Value::fromDouble(1.0/::log(2.0)));
    defineReadonlyProperty(ctx->engine, QStringLiteral("LOG10E"), Value::fromDouble(1.0/::log(10.0)));
    defineReadonlyProperty(ctx->engine, QStringLiteral("PI"), Value::fromDouble(qt_PI));
    defineReadonlyProperty(ctx->engine, QStringLiteral("SQRT1_2"), Value::fromDouble(::sqrt(0.5)));
    defineReadonlyProperty(ctx->engine, QStringLiteral("SQRT2"), Value::fromDouble(::sqrt(2.0)));

    defineDefaultProperty(ctx, QStringLiteral("abs"), method_abs, 1);
    defineDefaultProperty(ctx, QStringLiteral("acos"), method_acos, 1);
    defineDefaultProperty(ctx, QStringLiteral("asin"), method_asin, 0);
    defineDefaultProperty(ctx, QStringLiteral("atan"), method_atan, 1);
    defineDefaultProperty(ctx, QStringLiteral("atan2"), method_atan2, 2);
    defineDefaultProperty(ctx, QStringLiteral("ceil"), method_ceil, 1);
    defineDefaultProperty(ctx, QStringLiteral("cos"), method_cos, 1);
    defineDefaultProperty(ctx, QStringLiteral("exp"), method_exp, 1);
    defineDefaultProperty(ctx, QStringLiteral("floor"), method_floor, 1);
    defineDefaultProperty(ctx, QStringLiteral("log"), method_log, 1);
    defineDefaultProperty(ctx, QStringLiteral("max"), method_max, 2);
    defineDefaultProperty(ctx, QStringLiteral("min"), method_min, 2);
    defineDefaultProperty(ctx, QStringLiteral("pow"), method_pow, 2);
    defineDefaultProperty(ctx, QStringLiteral("random"), method_random, 0);
    defineDefaultProperty(ctx, QStringLiteral("round"), method_round, 1);
    defineDefaultProperty(ctx, QStringLiteral("sin"), method_sin, 1);
    defineDefaultProperty(ctx, QStringLiteral("sqrt"), method_sqrt, 1);
    defineDefaultProperty(ctx, QStringLiteral("tan"), method_tan, 1);
}

/* copies the sign from y to x and returns the result */
static double copySign(double x, double y)
{
    uchar *xch = (uchar *)&x;
    uchar *ych = (uchar *)&y;
    if (QSysInfo::ByteOrder == QSysInfo::BigEndian)
        xch[0] = (xch[0] & 0x7f) | (ych[0] & 0x80);
    else
        xch[7] = (xch[7] & 0x7f) | (ych[7] & 0x80);
    return x;
}

Value MathObject::method_abs(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v == 0) // 0 | -0
        return Value::fromDouble(0);

    return Value::fromDouble(v < 0 ? -v : v);
}

Value MathObject::method_acos(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v > 1)
        return Value::fromDouble(qSNaN());

    return Value::fromDouble(::acos(v));
}

Value MathObject::method_asin(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v > 1)
        return Value::fromDouble(qSNaN());
    else
        return Value::fromDouble(::asin(v));
}

Value MathObject::method_atan(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v == 0.0)
        return Value::fromDouble(v);
    else
        return Value::fromDouble(::atan(v));
}

Value MathObject::method_atan2(ExecutionContext *ctx)
{
    double v1 = ctx->argument(0).toNumber(ctx);
    double v2 = ctx->argument(1).toNumber(ctx);
    if ((v1 < 0) && qIsFinite(v1) && qIsInf(v2) && (copySign(1.0, v2) == 1.0)) {
        return Value::fromDouble(copySign(0, -1.0));
    }
    if ((v1 == 0.0) && (v2 == 0.0)) {
        if ((copySign(1.0, v1) == 1.0) && (copySign(1.0, v2) == -1.0)) {
            return Value::fromDouble(qt_PI);
        } else if ((copySign(1.0, v1) == -1.0) && (copySign(1.0, v2) == -1.0)) {
            return Value::fromDouble(-qt_PI);
        }
    }
    return Value::fromDouble(::atan2(v1, v2));
}

Value MathObject::method_ceil(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v < 0.0 && v > -1.0)
        return Value::fromDouble(copySign(0, -1.0));
    else
        return Value::fromDouble(::ceil(v));
}

Value MathObject::method_cos(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    return Value::fromDouble(::cos(v));
}

Value MathObject::method_exp(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (qIsInf(v)) {
        if (copySign(1.0, v) == -1.0)
            return Value::fromDouble(0);
        else
            return Value::fromDouble(qInf());
    } else {
        return Value::fromDouble(::exp(v));
    }
}

Value MathObject::method_floor(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    return Value::fromDouble(::floor(v));
}

Value MathObject::method_log(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v < 0)
        return Value::fromDouble(qSNaN());
    else
        return Value::fromDouble(::log(v));
}

Value MathObject::method_max(ExecutionContext *ctx)
{
    double mx = -qInf();
    for (unsigned i = 0; i < ctx->argumentCount; ++i) {
        double x = ctx->argument(i).toNumber(ctx);
        if (x > mx || std::isnan(x))
            mx = x;
    }
    return Value::fromDouble(mx);
}

Value MathObject::method_min(ExecutionContext *ctx)
{
    double mx = qInf();
    for (unsigned i = 0; i < ctx->argumentCount; ++i) {
        double x = ctx->argument(i).toNumber(ctx);
        if ((x == 0 && mx == x && copySign(1.0, x) == -1.0)
                || (x < mx) || std::isnan(x)) {
            mx = x;
        }
    }
    return Value::fromDouble(mx);
}

Value MathObject::method_pow(ExecutionContext *ctx)
{
    double x = ctx->argument(0).toNumber(ctx);
    double y = ctx->argument(1).toNumber(ctx);

    if (std::isnan(y))
        return Value::fromDouble(qSNaN());

    if (y == 0) {
        return Value::fromDouble(1);
    } else if (((x == 1) || (x == -1)) && std::isinf(y)) {
        return Value::fromDouble(qSNaN());
    } else if (((x == 0) && copySign(1.0, x) == 1.0) && (y < 0)) {
        return Value::fromDouble(qInf());
    } else if ((x == 0) && copySign(1.0, x) == -1.0) {
        if (y < 0) {
            if (::fmod(-y, 2.0) == 1.0)
                return Value::fromDouble(-qInf());
            else
                return Value::fromDouble(qInf());
        } else if (y > 0) {
            if (::fmod(y, 2.0) == 1.0)
                return Value::fromDouble(copySign(0, -1.0));
            else
                return Value::fromDouble(0);
        }
    }

#ifdef Q_OS_AIX
    else if (qIsInf(x) && copySign(1.0, x) == -1.0) {
        if (y > 0) {
            if (::fmod(y, 2.0) == 1.0)
                return Value::number(ctx, -qInf());
            else
                return Value::number(ctx, qInf());
        } else if (y < 0) {
            if (::fmod(-y, 2.0) == 1.0)
                return Value::number(ctx, copySign(0, -1.0));
            else
                return Value::number(ctx, 0);
        }
    }
#endif
    else {
        return Value::fromDouble(::pow(x, y));
    }
    // ###
    return Value::fromDouble(qSNaN());
}

Value MathObject::method_random(ExecutionContext */*ctx*/)
{
    return Value::fromDouble(qrand() / (double) RAND_MAX);
}

Value MathObject::method_round(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    v = copySign(::floor(v + 0.5), v);
    return Value::fromDouble(v);
}

Value MathObject::method_sin(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    return Value::fromDouble(::sin(v));
}

Value MathObject::method_sqrt(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    return Value::fromDouble(::sqrt(v));
}

Value MathObject::method_tan(ExecutionContext *ctx)
{
    double v = ctx->argument(0).toNumber(ctx);
    if (v == 0.0)
        return Value::fromDouble(v);
    else
        return Value::fromDouble(::tan(v));
}