Integer.cc

Go to the documentation of this file.

/*
 * Integer.cc
 *
 * Smalltalk like class library for C++
 * Small integer (native long wrapper).
 *
 * Copyright (c) 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 <stlib/Integer.h>

#include <stlib/Array.h>
#include <stlib/Real.h>
#include <stlib/String.h>
#include <stlib/Stream.h>

using namespace Core;

#define FLY_INSTANCES 512

Array Integer::_instances(FLY_INSTANCES);

Integer::Integer(long long val)
{
    _value = val;
}

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

/* Instance creation protocol */
Integer *Integer::value(long long val)
{
    if (val >= 0 && val < FLY_INSTANCES) {
        Integer *inst = dynamic_cast<Integer *>(_instances.at(val));
        if (inst == nil) {
            inst = new Integer(val);
            _instances.put(val, inst);
        }
        return inst;
    } else
        return new Integer(val);
}

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

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

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

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

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

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

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

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

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

/* Testing protocol */
bool Integer::isInteger(void) const
{
    return true;
}

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

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

---