schsymb.hpp

Go to the documentation of this file.

// +-------------------------------------------------------------------------+
// |               I__n__t__e__L__i__b           0.6.10 development          |
// | Copyright (c) Andrey Vikt. Stolyarov <crocodil_AT_croco.net> 2000-2007. |
// |                                                                         |
// | This is free software. The library part is available under              |
// |                               GNU LESSER GENERAL PUBLIC LICENSE v.2.1.  |
// | GNU LGPL v2.1 is found in docs/gnu_gpl2.txt,  or at  http://www.gnu.org |
// |     Please see also docs/readme.txt and visit http://www.intelib.org    |
// |                                                                         |
// | !!! THERE IS NO WARRANTY OF ANY KIND, NEITHER EXPRESSED NOR IMPLIED !!! |
// +-------------------------------------------------------------------------+




#ifndef INTELIB_SCHSYMB_HPP_SENTRY
#define INTELIB_SCHSYMB_HPP_SENTRY

#include "../sexpress/gensref.hpp"
#include "../sexpress/sexpress.hpp"


class SchExpressionSymbol : public SExpressionLabel {
    SReference value;
protected:
    SchExpressionSymbol(const char *a_name, const IntelibTypeId &t) 
        : SExpressionLabel(t, a_name), value() {}
    ~SchExpressionSymbol() {}

public:
    static IntelibTypeId TypeId;
    SchExpressionSymbol(const char *a_name) 
        : SExpressionLabel(TypeId, a_name), value() {}

    const SReference& GetGlobalValue() const { return value; } 
    SReference& GetGlobalValue() { return value; } 
    void SetGlobalValue(const SReference &val) { value = val; }
};

class IntelibX_scheme_not_a_symbol : public IntelibX {
public:
    IntelibX_scheme_not_a_symbol(SReference a_param);
};

typedef GenericSReference<SchExpressionSymbol,IntelibX_scheme_not_a_symbol>
SchSymbolRef;


class SchSymbol : public SchSymbolRef {
public:
    SchSymbol(const char *s) 
        : SchSymbolRef(new SchExpressionSymbol(s)) {}

    SchSymbol(const char *s, const SReference& val)
        : SchSymbolRef(new SchExpressionSymbol(s))
    {
        (*this)->SetGlobalValue(val);
    }

    ~SchSymbol() {}

private:
    // made private to prevent the user from mistakes and
    //   to make sure this always points to SchExpressionSymbol object.
    void operator =(const SchSymbol& ref) {}
    SchSymbol(const SchSymbol&) {}
};

class SchSymbolQuote : public SchSymbol {
public:
    SchSymbolQuote();
};

class SchLabelTrue : public SLabel {
public:
    SchLabelTrue();
};

class SchLabelFalse : public SLabel {
public:
    SchLabelFalse();
};

class SchLabelEmptyList : public SLabel {
public:
    SchLabelEmptyList();
};

extern struct SchLibraryProvidedSymbols {
    SchSymbolQuote Quote;
    SchLabelTrue True;
    SchLabelFalse False;
    SchLabelEmptyList EmptyList;
} TheSchLibraryProvidedSymbols;

extern SchSymbol &QUOTE;

#endif

---