Number.cc

Go to the documentation of this file.

/*
 * Number.cc
 *
 * Smalltalk like class library for C++
 * Abstract number.
 *
 * Copyright (c) 2003, 2004 Milan Cermak, Martin Dvorak
 */
/*
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
#include <stdlib.h>
#include <stlib/Number.h>

#include <stlib/Character.h>
#include <stlib/Integer.h>
#include <stlib/Locale.h>
#include <stlib/Real.h>
#include <stlib/String.h>
#include <stlib/Visitor.h>

using namespace Core;

/* Class-accessing protocol */
String* Number::className(void) const
{
    return new String("Number");
}

/* Instance creation protocol */
Number *Number::fromString(String *str)
{
    return fromStringRadix(str, 0);
}

Number *Number::fromStringRadix(String *str, int radix)
{
    char *string = str->asCString();
    char *end;
    long long integer;

    integer = strtoll(string, &end, radix);
    if (end[0] == '.' || Locale::current()->decimalPoint()->isEqual(end[0])) {
        double real;
        end[0] = Locale::current()->decimalPoint()->asInteger();
        real = strtod(string, NULL);
        return Real::value(real);
    } else {
        return Integer::value(integer);
    }
}

/* Comparing protocol */
bool Number::isEqual(int arg) const
{
    return this->isEqualToLongLong(arg);
}

bool Number::isEqual(double arg) const
{
    return this->isEqualToDouble(arg);
}

/* Converting protocol */
Number::operator long(void) const
{
    return asLong();
}

long Number::asLong(void) const
{
    return (long) asLongLong();
}

Number::operator unsigned long(void) const
{
    return asUnsignedLong();
}

unsigned long Number::asUnsignedLong(void) const
{
    return (unsigned long) asLongLong();
}

Number::operator long long(void) const
{
    return asLongLong();
}

Number::operator double(void) const
{
    return asDouble();
}

/* Testing protocol */
bool Number::isInteger(void) const
{
    return false;
}

bool Number::isNegative(void) const
{
    return !isPositive();
}
    
bool Number::isNumber(void) const
{
    return true;
}

bool Number::isReal(void) const
{
    return false;
}

/* Visiting protocol */
void Number::visitBy(Visitor *visitor)
{
    visitor->visitNumber(this);
}

---