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

Timestamp:

May 16, 2003, 11:47:17 AM (18 years ago)

Author:

luba

Message:

• type word is registered

File:

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

to-imperative/trunk/runtime/rf_word.ih

@@ -42 +42 @@
   mbstate_t ps;
   size_t len = mbsrtowcs(null, &s, 0, &ps);
-  if (len == (size_t)(-1)) throw_sys_error(errno);
+//  if (len == (size_t)(-1)) throw_sys_error(errno);
   Header* h = static_cast<Header*>(
     allocator.allocate(sizeof(Header) + len * sizeof(wchar_t)));
@@ -58 +58 @@
   if (_locale != null) setlocale(LC_CTYPE, saved_locale);
 }
-
+  
 inline Word::Word (Word const& _word) :
   Term (term_sym, type_word)
@@ -66 +66 @@
   h->ref_count++;
 }
-
+ 
 inline Word::~Word ()
-{
+{ 
   Header* h = static_cast<Header*>(ptr_data2);
   if (--(h->ref_count) == 0) allocator.deallocate(h);
@@ -85 +85 @@
 }
 
+inline size_t Word::get_len () {
+  return static_cast<Header*>(ptr_data2)->length;
+}
+
+inline int Word::is_number () {
+  int res = 1;
+  size_t i = 0;
+  Header* h = static_cast<Header*>(ptr_data2);
+
+  if ((h->content[i]) == '-') res = -1; //если отрицательное число
+  if ((h->content[i]) == '+') res = 1; //если положительное с "+" число
+  if (res) i = 1;
+  for (; i < h->length; i++) 
+    if (iswdigit(h->content[i]) == 0) {
+      res = 0; break; 
+    }
+  return res;
+}
+#if 0
 Expr Word::create_expr (wchar_t const* _wstr)
-{
+ {
   Expr e = Term::create_expr(1);
   Term* p = e.get_first();
@@ -100 +119 @@
   return e;
 }
-
+#endif
 }