LispSymbol.h

   1 #if !defined(H_LISPSYMBOL)
   2 #define H_LISPSYMBOL
   3
   4 namespace Lisp
   5 {
   6         class LispSymbol;
   7
   8         class LispSymbol : public LispObj
   9         {
  10                         typedef LispSymbol& LispSymbolPtr;
  11                         typedef LispSymbol& LispSymbolRef;
  12
  13                 public:
  14                         LispSymbol()
  15                         {
  16                                 symbol_count++;
  17                                 std::ostringstream value_stream;
  18                                 value_stream.setf( ios::hex, ios::basefield );
  19                                 value_stream.width( 8 );
  20                                 value_stream.fill( '0' );
  21                                 value_stream << "Sym#" << ios::hex() << this << " " << car_ << " " cdr_;
  22                                 name_ = value_stream.str();
  23                         }
  24
  25                         LispSymbol(LispStringValue& name) : name_(name)
  26                         {
  27                                 symbol_count++;
  28                         }
  29
  30                         LispSymbol(LispStringValue& name, LispObj& obj)
  31                         {
  32                                 plist->car(obj);
  33                         }
  34
  35                         LispSymbol(LispSymbol& other)
  36                         {
  37                                 if (&other != this)
  38                                 {
  39                                         name_ = other->name_;
  40                                         plist_ = other->plist_;
  41                                         symbol_count++;
  42                                 }
  43                         }
  44
  45                         LispSymbol& operator=(LispSymbol& other)
  46                         {
  47                                 if (&other != this)
  48                                 {
  49                                         name_ = other->name_;
  50                                         plist_ = other->plist_;
  51                                         symbol_count++;
  52                                 }
  53                                 return *this;
  54                         }
  55
  56                         operator LispObjRef()
  57                         {
  58                                 return plist->car();
  59                         }
  60
  61                         LispObjRef plist()
  62                         {
  63                                 return plist->cdr();
  64                         }
  65
  66                         LispSymbolRef operator=(LispObjRef& val)
  67                         {
  68                                 plist->car(val);
  69                         }
  70
  71                         operator LispStringVal()
  72                         {
  73                                 return name_;
  74                         }
  75
  76                         void getObjectType(LispObj::eLispObjectType& kind)
  77                         {
  78                                 kind = LispObj::eSymbolObj;
  79                         }
  80
  81                 private:
  82                         LispStringValue name_;
  83                         LispCons plist_;
  84                         static LispFixnumValue symbol_count;
  85         }
  86
  87 }
  88
  89 #endif
  90