LispSymbol.h

   1 #if !defined(LISP_SYMBOL_H_INCLUDED)
   2 #define LISP_SYMBOL_H_INCLUDED
   3
   4 namespace Lisp
   5 {
   6
   7
   8 struct Symbol : public LispObj
   9 {
  10         void make(const CharType *symname)
  11         {
  12                 int i = 0;
  13
  14                 object.setType(eSymbolObj);
  15
  16                 // calc length
  17                 while (*symname != '\0')
  18                 {
  19                         ++i;
  20                         ++symname;
  21                 }
  22
  23                 // insert the pigs
  24                 object.values.resize(i);
  25                 symname = symname - i;
  26                 i = 0;
  27                 while(*symname != '\0')
  28                 {
  29                         object.values.push_back( LispValue( *symname ) );
  30                         ++i;
  31                         ++symname;
  32                 }
  33         }
  34
  35         std::size_t length() const
  36         {
  37                 return object.values.size();
  38         }
  39
  40         bool operator==(const Symbol& sym)
  41         {
  42                 if (sym.length() == length())
  43                 {
  44                         bool result = true;
  45                         std::size_t i = 0;
  46
  47                         while ((i < length()) && result)
  48                         {
  49                                 result = (
  50                                         CharType(sym.object.values[i]) ==
  51                                         CharType(object.values[i]) );
  52                                 i++;
  53                         }
  54                         return result;
  55                 }
  56                 return false;
  57         }
  58 };
  59
  60 } // end namespace lisp
  61
  62
  63 #endif