source: to-imperative/trunk/runtime/rf_word.ih @ 747

Last change on this file since 747 was 747, checked in by luba, 18 years ago
  • return type of operator *() in NumIterator? class is corrected
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.9 KB
Line 
1#ifndef __rf_word_ih__
2#define __rf_word_ih__
3
4#include "rf_word.hh"
5#include "rf_common.ih"
6
7#include <wctype.h>
8#include <wchar.h>
9#include <locale.h>
10
11namespace rftype
12{
13
14using namespace rfrt ;
15
16inline Word::Word (wchar_t const* _wstr) :
17  Term (term_sym, type_word)
18{
19  size_t len = wcslen(_wstr);
20  Header* h = static_cast<Header*>(
21    allocator.allocate(sizeof(Header) + len * sizeof(wchar_t)));
22  h->ref_count = 1;
23  h->length = len;
24  uint32_t hash = 0;
25  for (size_t i = 0; i < len; i++) {
26    h->content[i] = _wstr[i];
27    hash = update_hash(hash, h->content + i, sizeof(wchar_t));
28  }
29  h->hash = finish_hash(hash);
30  ptr_data2 = h;
31}
32
33inline Word::Word (char const* _str, char const* _locale /* = null */) :
34  Term (term_sym, type_word)
35{
36  char const* saved_locale = null;
37  if (_locale != null) {
38    saved_locale = setlocale(LC_CTYPE, null);
39    setlocale(LC_CTYPE, _locale);
40  }
41  char const* s = _str;
42  mbstate_t ps;
43  size_t len = mbsrtowcs(null, &s, 0, &ps);
44//  if (len == (size_t)(-1)) throw_sys_error(errno);
45  Header* h = static_cast<Header*>(
46    allocator.allocate(sizeof(Header) + len * sizeof(wchar_t)));
47  h->ref_count = 1;
48  h->length = len;
49  s = _str;
50  uint32_t hash = 0;
51  for (size_t i = 0; i < len; i++) {
52    size_t l = mbrtowc(h->content + i, s, MB_CUR_MAX, &ps);
53    s += l;
54    hash = update_hash(hash, h->content + i, sizeof(wchar_t));
55  }
56  h->hash = finish_hash(hash);
57  ptr_data2 = h;
58  if (_locale != null) setlocale(LC_CTYPE, saved_locale);
59}
60 
61inline Word::Word (Word const& _word) :
62  Term (term_sym, type_word)
63{
64  ptr_data2 = _word.ptr_data2;
65  Header* h = static_cast<Header*>(ptr_data2);
66  h->ref_count++;
67}
68 
69inline Word::~Word ()
70{
71  Header* h = static_cast<Header*>(ptr_data2);
72  if (--(h->ref_count) == 0) allocator.deallocate(h);
73}
74
75inline Word& Word::operator = (Word const& _word)
76{
77  if (this != &_word) {
78    Header* h = static_cast<Header*>(ptr_data2);
79    if (--(h->ref_count) == 0) allocator.deallocate(h);
80    ptr_data2 = _word.ptr_data2;
81    h = static_cast<Header*>(ptr_data2);
82    h->ref_count++;
83  }
84  return self;
85}
86
87inline size_t Word::get_len () const
88{
89  return static_cast<Header*>(ptr_data2)->length;
90}
91
92
93//first symbol in word is '-' res == -1; '+' res == 1,
94//'digit' res == 2; othewise res == 0
95//
96
97inline int Word::is_number () const
98{
99  int res = 0;
100  size_t i = 0;
101  Header* h = static_cast<Header*>(ptr_data2);
102
103  if ((h->content[i]) == '-') res = -1;
104  if ((h->content[i]) == '+') res = 1;
105  if (iswdigit(h->content[i])) res = 2;
106  if (res) i = 1;
107  for (; i < h->length; i++)
108    if (iswdigit(h->content[i]) == 0) {
109      res = 0;
110      break;
111    }
112  return res;
113}
114
115//the method is called only if is_number() function
116//has returned non-zero value
117//
118
119inline Word::NumIterator::NumIterator(Word const& _word)
120{
121  Header* h = static_cast<Header*>(_word.ptr_data2);
122  if (*(h->content) == '+' || *(h->content) == '-')
123    iter = h->content + 1;
124  else
125    iter = h->content;
126  bound = h->content + h->length;
127}
128
129inline Word::NumIterator& Word::NumIterator::operator ++(int)
130{
131  iter++;     
132  return *this;
133};
134
135inline Word::NumIterator const& Word::NumIterator::operator = (Word const& _word) {
136  Header* h = static_cast<Header*>(_word.ptr_data2);
137  if (*(h->content) == '+' || *(h->content) == '-')
138    iter = h->content + 1;
139  else
140    iter = h->content;
141  return *this;
142};
143
144inline bool Word::NumIterator::in_bounds () const
145{
146  if (iter > bound )
147    return false;
148  else
149    return true;
150}
151
152inline const char Word::NumIterator::operator * () const
153{
154  return *iter - 48;
155}
156
157#if 0
158Expr Word::create_expr (wchar_t const* _wstr)
159 {
160  Expr e = Term::create_expr(1);
161  Term* p = e.get_first();
162  new(p) Word(_wstr);
163  return e;
164}
165
166Expr Word::create_expr (char const* _str, char const* _locale /* = null */)
167{
168  Expr e = Term::create_expr(1);
169  Term* p = e.get_first();
170  new(p) Word(_str, _locale);
171  return e;
172}
173#endif
174}
175
176#endif // __rf_word_ih__
Note: See TracBrowser for help on using the repository browser.