LispString.h

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