extvar.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_EXTVAR_HPP_SENTRY
#define INTELIB_EXTVAR_HPP_SENTRY

#include "../sexpress/sstring.hpp"
#include "conteval.hpp"
#include "lispform.hpp"



class SExpressionIndirect : public SExpressionSetfAgent {
public:
    virtual SReference Value() const = 0;
    virtual void Setf(const SReference &val) = 0;
    virtual void* Addr() const = 0;
#if INTELIB_TEXT_REPRESENTATIONS == 1
    virtual SString TextRepresentation() const;
#endif
protected:
    ~SExpressionIndirect() {}
};


template <class Tt>
class SExpressionIndirectTemplate : public SExpressionIndirect {
    Tt *var;
public:
    SExpressionIndirectTemplate(Tt &a) : var(&a) {} 

    virtual SReference Value() const { return SReference(*var); }
    virtual void Setf(const SReference &val);
protected:
    virtual void* Addr() const { return (void*)var; }
    ~SExpressionIndirectTemplate() {}
};


template<> inline
void SExpressionIndirectTemplate<signed char>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<unsigned char>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<short>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<unsigned short>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<int>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<unsigned int>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<long>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<unsigned long>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline
void SExpressionIndirectTemplate<long long>::Setf(const SReference &val)
{ *var = val.GetInt(); }
template<> inline void
SExpressionIndirectTemplate<unsigned long long>::Setf(const SReference &val)
{ *var = val.GetInt(); }


template<> inline
void SExpressionIndirectTemplate<float>::Setf(const SReference &val)
{ *var = val.GetFloat(); }
template<> inline
void SExpressionIndirectTemplate<double>::Setf(const SReference &val)
{ *var = val.GetFloat(); }
template<> inline
void SExpressionIndirectTemplate<long double>::Setf(const SReference &val)
{ *var = val.GetFloat(); }

template<> inline
void SExpressionIndirectTemplate<SString>::Setf(const SReference &val)
{ *var = val.GetString(); }

template<> inline
void SExpressionIndirectTemplate<SReference>::Setf(const SReference &val)
{ *var = val; }





class SExpressionIndirectAccessor : public SExpressionForm {
public:
    virtual void Call(const SReference &formtail,
                      IntelibContinuation &cont) const;

#if INTELIB_TEXT_REPRESENTATIONS == 1
    virtual SString TextRepresentation() const 
    { return "#<-INDIRECT-ACCESSOR->"; }
#endif

protected:
    ~SExpressionIndirectAccessor() {} 
};


#endif

---