/*

 *  Copyright (C) 1999-2001 Harri Porten (porten@kde.org)

 *  Copyright (C) 2001 Peter Kelly (pmk@post.com)

 *  Copyright (C) 2003, 2007, 2008 Apple Inc. All rights reserved.

 *

 *  This library is free software; you can redistribute it and/or

 *  modify it under the terms of the GNU Library General Public

 *  License as published by the Free Software Foundation; either

 *  version 2 of the License, or (at your option) any later version.

 *

 *  This library is distributed in the hope that it will be useful,

 *  but WITHOUT ANY WARRANTY; without even the implied warranty of

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 *  Library General Public License for more details.

 *

 *  You should have received a copy of the GNU Library General Public License

 *  along with this library; see the file COPYING.LIB.  If not, write to

 *  the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

 *  Boston, MA 02110-1301, USA.

 *

 */

#include "config.h"

#include "JSValue.h"

#include "BooleanConstructor.h"

#include "BooleanPrototype.h"

#include "Error.h"

#include "ExceptionHelpers.h"

#include "JSGlobalObject.h"

#include "JSFunction.h"

#include "JSNotAnObject.h"

#include "NumberObject.h"

#include <wtf/MathExtras.h>

#include <wtf/StringExtras.h>

namespace JSC {

static const double D32 = 4294967296.0;

// ECMA 9.4

double JSValue::toInteger(ExecState* exec) const

{

    if (isInt32())

        return asInt32();

    double d = toNumber(exec);

    return isnan(d) ? 0.0 : trunc(d);

}

double JSValue::toIntegerPreserveNaN(ExecState* exec) const

{

    if (isInt32())

        return asInt32();

    return trunc(toNumber(exec));

}

JSObject* JSValue::toObjectSlowCase(ExecState* exec) const

{

    ASSERT(!isCell());

    if (isInt32() || isDouble())

        return constructNumber(exec, asValue());

    if (isTrue() || isFalse())

        return constructBooleanFromImmediateBoolean(exec, asValue());

    ASSERT(isUndefinedOrNull());

    JSNotAnObjectErrorStub* exception = createNotAnObjectErrorStub(exec, isNull());

    throwError(exec, exception);

    return new (exec) JSNotAnObject(exec, exception);

}

JSObject* JSValue::toThisObjectSlowCase(ExecState* exec) const

{

    ASSERT(!isCell());

    if (isInt32() || isDouble())

        return constructNumber(exec, asValue());

    if (isTrue() || isFalse())

        return constructBooleanFromImmediateBoolean(exec, asValue());

    ASSERT(isUndefinedOrNull());

    return exec->globalThisValue();

}

JSObject* JSValue::synthesizeObject(ExecState* exec) const

{

    ASSERT(!isCell());

    if (isNumber())

        return constructNumber(exec, asValue());

    if (isBoolean())

        return constructBooleanFromImmediateBoolean(exec, asValue());

    JSNotAnObjectErrorStub* exception = createNotAnObjectErrorStub(exec, isNull());

    throwError(exec, exception);

    return new (exec) JSNotAnObject(exec, exception);

}

JSObject* JSValue::synthesizePrototype(ExecState* exec) const

{

    ASSERT(!isCell());

    if (isNumber())

        return exec->lexicalGlobalObject()->numberPrototype();

    if (isBoolean())

        return exec->lexicalGlobalObject()->booleanPrototype();

    JSNotAnObjectErrorStub* exception = createNotAnObjectErrorStub(exec, isNull());

    throwError(exec, exception);

    return new (exec) JSNotAnObject(exec, exception);

}

#ifndef NDEBUG

char* JSValue::description()

{

    static const size_t size = 32;

    static char description[size];

    if (!*this)

        snprintf(description, size, "<JSValue()>");

    else if (isInt32())

        snprintf(description, size, "Int32: %d", asInt32());

    else if (isDouble())

        snprintf(description, size, "Double: %lf", asDouble());

    else if (isCell())

        snprintf(description, size, "Cell: %p", asCell());

    else if (isTrue())

        snprintf(description, size, "True");

    else if (isFalse())

        snprintf(description, size, "False");

    else if (isNull())

        snprintf(description, size, "Null");

    else if (isUndefined())

        snprintf(description, size, "Undefined");

    else

        snprintf(description, size, "INVALID");

    return description;

}

#endif

int32_t toInt32SlowCase(double d, bool& ok)

{

    ok = true;

    if (d >= -D32 / 2 && d < D32 / 2)

        return static_cast<int32_t>(d);

    if (isnan(d) || isinf(d)) {

        ok = false;

        return 0;

    }

    double d32 = fmod(trunc(d), D32);

    if (d32 >= D32 / 2)

        d32 -= D32;

    else if (d32 < -D32 / 2)

        d32 += D32;

    return static_cast<int32_t>(d32);

}

uint32_t toUInt32SlowCase(double d, bool& ok)

{

    ok = true;

    if (d >= 0.0 && d < D32)

        return static_cast<uint32_t>(d);

    if (isnan(d) || isinf(d)) {

        ok = false;

        return 0;

    }

    double d32 = fmod(trunc(d), D32);

    if (d32 < 0)

        d32 += D32;

    return static_cast<uint32_t>(d32);

}

NEVER_INLINE double nonInlineNaN()

{

#if OS(SYMBIAN)

    return nanval();

#else

    return std::numeric_limits<double>::quiet_NaN();

#endif

}

bool JSValue::isValidCallee()

{

    return asObject(asObject(asCell())->getAnonymousValue(0))->isGlobalObject();

}

} // namespace JSC