/****************************************************************************
** $Id: qsnumber_object.cpp  beta1   edited Dec 17 19:02 $
**
** Copyright (C) 2001-2002 Trolltech AS.  All rights reserved.
**
** This file is part of the Qt Script for Applications framework (QSA).
**
** This file may be distributed and/or modified under the terms of the
** GNU General Public License version 2 as published by the Free Software
** Foundation and appearing in the file LICENSE.GPL included in the
** packaging of this file.
**
** Licensees holding a valid QSA Beta Evaluation Version license may use
** this file in accordance with the QSA Beta Evaluation Version License
** Agreement provided with the Software.
**
** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
**
** See http://www.trolltech.com/pricing.html or email sales@trolltech.com for
**   information about QSA Commercial License Agreements.
** See http://www.trolltech.com/gpl/ for GPL licensing information.
**
** Contact info@trolltech.com if any conditions of this licensing are
** not clear to you.
**
*****************************************************************************/

#include "qsnumber_object.h"
#include "qsoperations.h"
#include "qsclass.h"
#include "qstypes.h"

using namespace QS;

QSNumberClass::QSNumberClass( QSClass *b )
    : QSClass( b, AttributeFinal )
{
}

void QSNumberClass::init()
{
    // static members
    int a = AttributePublic|AttributeStatic;
    addStaticVariableMember( "NaN", QSNumber( NaN ), a );
    addStaticVariableMember( "NEGATIVE_INFINITY", QSNumber( -Inf ), a );
    addStaticVariableMember( "POSITIVE_INFINITY", QSNumber( +Inf ), a );

    // member functions
    addMember( "toString", QSMember( &QSNumberClass::toStringScript ) );
    addMember( "toLocaleString", QSMember( &QSNumberClass::toStringScript ) ); // ###
    addMember( "valueOf", QSMember( &valueOf ) );
}

bool QSNumberClass::toBoolean( const QSObject *obj ) const
{
    return !(( obj->dVal() == 0) || isNaN( obj->dVal() ));
}

double QSNumberClass::toNumber( const QSObject *obj ) const
{
    return obj->dVal();
}

QString QSNumberClass::toString( const QSObject *obj ) const
{
    return QSString::from( obj->dVal() );
}

QSObject QSNumberClass::toPrimitive( const QSObject *obj, Type ) const
{
    return *obj;
}

QSObject QSNumberClass::construct( const QSList &args ) const
{
    double n = args.isEmpty() ? n = 0.0 : args[0].toNumber();

    return QSNumber( n );
}

QSObject QSNumberClass::cast( const QSList &args ) const
{
    return construct( args );
}

QSObject QSNumberClass::toStringScript ( QSObject *o, const QSList & )
{
    return QSString( QSString::from( o->dVal() ) );
}

QSObject QSNumberClass::valueOf( QSObject *o, const QSList & )
{
    return QSNumber( o->dVal() );
}

int QSNumberClass::isEqual( const QSObject &a, const QSObject &b ) const
{
    Q_ASSERT( a.isA( this ) );
    if ( b.isNumber() ) {
	double n1 = a.dVal();
	double n2 = b.dVal();
	if ( isNaN( n1 ) || isNaN( n2 ) )
	    return FALSE;
	else
	    return n1 == n2;
	// ### compare -0 agains +0
    } else if ( b.isString() ) {
	return a.dVal() == b.toNumber();
    } else if ( !b.isPrimitive() ) {
	return isEqual( a, b.toPrimitive() );
    } else {
	return -1;
    }
}