Changeset 733 for to-imperative/trunk/runtime/rf_word.ih

Timestamp:

May 17, 2003, 12:00:10 PM (18 years ago)

Author:

luba

Message:

• Class NumIterator? as element of class Word is added

File:

• to-imperative/trunk/runtime/rf_word.ih (modified) (2 diffs)

to-imperative/trunk/runtime/rf_word.ih

@@ -94 +94 @@
   Header* h = static_cast<Header*>(ptr_data2);
 
-  if ((h->content[i]) == '-') res = -1; //если отрицательное число
-  if ((h->content[i]) == '+') res = 1; //если положительное с "+" число
+  if ((h->content[i]) == '-') res = -1; 
+  if ((h->content[i]) == '+') res = 1; 
   if (res) i = 1;
   for (; i < h->length; i++) 
@@ -103 +103 @@
   return res;
 }
+
+//the method is called only if is_number() function 
+//has returned non-zero value
+//
+
+inline Word::NumIterator::NumIterator(Word const& _word) {
+  Header* h = static_cast<Header*>(_word.ptr_data2);
+  if (*(h->content) == '+' || *(h->content) == '-')
+    iter = h->content + 1;
+  else
+    iter = h->content;
+    bound = h->content + h->length;
+  }
+
+inline Word::NumIterator& Word::NumIterator::operator ++() {
+  iter++;      
+  return *this;
+  };
+
+inline Word::NumIterator const& Word::NumIterator::operator = (Word const& _word) {
+  Header* h = static_cast<Header*>(_word.ptr_data2);
+  if (*(h->content) == '+' || *(h->content) == '-')
+    iter = h->content + 1;
+    else
+      iter = h->content;
+    return *this;
+  };
+
+inline bool Word::NumIterator::in_bounds () {
+  if (iter > bound ) return false;
+  else return true;
+}
+
+inline const wchar_t Word::NumIterator::operator * () {
+  return *iter;
+}
+
 #if 0
 Expr Word::create_expr (wchar_t const* _wstr)