Real.cc

Go to the documentation of this file.

/*
 * Real.cc
 *
 * Smalltalk like class library for C++
 * Native double wrapper.
 *
 * Copyright (c) 2004 Martin Dvorak, Milan Cermak
 */
/*
 * 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 <stlib/Real.h>

#include <stlib/Integer.h>
#include <stlib/String.h>
#include <stlib/Stream.h>

using namespace Core;

Real::Real(double v)
{
    _value = v;
}

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

/* Instance creation protocol */
Real *Real::value(double val)
{
    return new Real(val);
}

/* Converting protocol */
double Real::asDouble(void) const
{
    return _value;
}

long long Real::asLongLong(void) const
{
    return (long long) _value;
}

Integer *Real::rounded(void) const
{
    return Integer::value((long long) (_value + 0.5));
}

Integer *Real::truncated(void) const
{
    return Integer::value(this->asLongLong());
}

/* Comparing protocol */
long Real::hash(void) const
{
    return (long) _value;
}

bool Real::isEqual(const Object *object) const
{
    if (!object->isNumber()) return false;

    return ((Number *) object)->isEqualToDouble(_value);
}

/* Double dispatching protocol */
bool Real::isEqualToLongLong(long long arg) const
{
    return _value == arg;
}

bool Real::isEqualToDouble(double arg) const
{
    return _value == arg;
}

/* Evaluating protocol */
Number *Real::negate(void)
{
    if (isZero()) return this;
    return Real::value(-_value);
}

/* Printing protocol */
void Real::printOn(Stream *stream) const
{
    char number[30];
    sprintf(number, "%f", _value);
    stream->nextPutAll(number);
}

/* Testing protocol */
bool Real::isReal(void) const
{
    return true;
}

bool Real::isPositive(void) const
{
    return _value >= 0;
}

bool Real::isZero(void) const
{
    return _value == 0;
}

---