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                 setType(eSymbolObj);
  15
  16                 // calc length
  17                 while (*symname != '\0')
  18                 {
  19                         ++i;
  20                         ++symname;
  21                 }
  22
  23                 // insert the pigs
  24                 object.resize(i+1);
  25                 symname = symname - i;
  26                 i = 0;
  27                 while(*symname != '\0')
  28                 {
  29                         object[i] = *symname;
  30                         ++i;
  31                         ++symname;
  32                 }
  33                 object[i+1] = '\0';
  34         }
  35
  36         CharType& operator[](std::size_t i)
  37         {
  38                 return object[i];
  39         }
  40
  41         const CharType& operator[](std::size_t i) const
  42         {
  43                 return object[i];
  44         }
  45
  46         std::size_t length()
  47         {
  48                 return object[i].size();
  49         }
  50
  51         bool operator==(const Symbol& sym)
  52         {
  53                 if (sym.length() == length())
  54                 {
  55                         bool result = true;
  56                         std::size_t i = 0;
  57
  58                         while ((i < size()) && result)
  59                         {
  60                                 result = (object[i] == sym.object[i]);
  61                                 i++;
  62                         }
  63                         return result
  64                 }
  65                 return false;
  66         }
  67 };
  68
  69 } // end namespace lisp
  70
  71
  72 #endif