The Simons     Component Library

           

---

Value.h

//
//  SCL : Simons Component Library
//
//
//  Filename:   Value.h
//  Contents:   Value class
//  Author:     Anthony J H Simons
//  Revised:    9 November 2005

// This software is distributed free in the hope that others will
// find it useful.  However, it comes WITHOUT ANY WARRANTY.  No
// liability can be accepted for software failure, merchantability
// or fitness for a particular purpose.  You can redistribute this
// software in its original form, or in a modified form, provided
// that this disclaimer is retained in the file banner.

#ifndef SCL_VALUE
#define SCL_VALUE

#include "Object.h"             // Include my superclass type
#include "ValueID.h"            // Include my pointer type

#include "TypeID.h"             // Depends on these pointer types
#include "ReaderID.h"
#include "WriterID.h"


class Value : public Object {
protected:
        Value(const Value&);
public:
        Value();
        virtual ~Value();
};

class BooleanBox : public Value {
private:
        Boolean wrapped;
        BooleanBox(const BooleanBox&);
public:
        BooleanBox();
        ~BooleanBox();
        BooleanBox(Boolean);
        virtual ObjectID clone() const;
        virtual TypeID type() const;
        virtual Natural hash() const;
        virtual Order compare(ObjectID) const;
        Void readOn(ReaderID);
        Void writeOn(WriterID) const;
        virtual Boolean toBoolean() const;
};

class CharacterBox : public Value {
private:
        Character wrapped;
        CharacterBox(const CharacterBox&);
public:
        CharacterBox();
        ~CharacterBox();
        CharacterBox(Character);
        virtual ObjectID clone() const;
        virtual TypeID type() const;
        virtual Natural hash() const;
        virtual Order compare(ObjectID) const;
        Void readOn(ReaderID);
        Void writeOn(WriterID) const;
        virtual Character toCharacter() const;
};

class NaturalBox : public Value {
private:
        Natural wrapped;
        NaturalBox(const NaturalBox&);
public:
        NaturalBox();
        ~NaturalBox();
        NaturalBox(Natural);
        virtual ObjectID clone() const;
        virtual TypeID type() const;
        virtual Natural hash() const;
        virtual Order compare(ObjectID) const;
        Void readOn(ReaderID);
        Void writeOn(WriterID) const;
        virtual Natural toNatural() const;
};

class IntegerBox : public Value {
private:
        Integer wrapped;
        IntegerBox(const IntegerBox&);
public:
        IntegerBox();
        ~IntegerBox();
        IntegerBox(Integer);
        virtual ObjectID clone() const;
        virtual TypeID type() const;
        virtual Natural hash() const;
        virtual Order compare(ObjectID) const;
        Void readOn(ReaderID);
        Void writeOn(WriterID) const;
        virtual Integer toInteger() const;
};

class DecimalBox : public Value {
private:
        Decimal wrapped;
        DecimalBox(const DecimalBox&);
public:
        DecimalBox();
        ~DecimalBox();
        DecimalBox(Decimal);
        virtual ObjectID clone() const;
        virtual TypeID type() const;
        virtual Natural hash() const;
        virtual Order compare(ObjectID) const;
        Void readOn(ReaderID);
        Void writeOn(WriterID) const;
        virtual Decimal toDecimal() const;
};


inline Value::Value() {}

inline Value::~Value() {}

inline Value::Value(const Value& other) : Object(other) {}


inline Natural BooleanBox::hash() const {
        return Natural(wrapped);
}

inline Boolean BooleanBox::toBoolean() const {
        return wrapped;
}


inline Natural CharacterBox::hash() const {
        return Natural(wrapped);
}

inline Character CharacterBox::toCharacter() const {
        return wrapped;
}


inline Natural NaturalBox::hash() const {
        return wrapped;
}

inline Natural NaturalBox::toNatural() const {
        return wrapped;
}


inline Natural IntegerBox::hash() const {
        return Natural(wrapped);
}

inline Integer IntegerBox::toInteger() const {
        return wrapped;
}


inline Decimal DecimalBox::toDecimal() const {
        return wrapped;
}


inline ValueID::ValueID() {}

inline ValueID::~ValueID() {}

inline ValueID::ValueID(const Null* null) :
        ObjectID(null) {}
        
inline ValueID::ValueID(const Value* box) :
        ObjectID(box) {}
        
inline ValueID::ValueID(const ValueID& pointer) :
        ObjectID(pointer) {}
        
inline ValueID::ValueID(Boolean value) : ObjectID(new BooleanBox(value)) {}
        
inline ValueID::ValueID(Character value) : ObjectID(new CharacterBox(value)) {}
        
inline ValueID::ValueID(Integer number) : ObjectID(new IntegerBox(number)) {}
        
inline ValueID::ValueID(Natural number) : ObjectID(new NaturalBox(number)) {}
        
inline ValueID::ValueID(Decimal number) : ObjectID(new DecimalBox(number)) {}
                
inline ValueID& ValueID::operator=(const Value* box) {
        assign(box);
        return *this;
}

inline ValueID& ValueID::operator=(const ValueID& pointer) {
        assign(pointer);
        return *this;
}


#endif

---