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

Last change on this file since 731 was 731, checked in by luba, 18 years ago
  • type word is registered
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.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 () {
88  return static_cast<Header*>(ptr_data2)->length;
89}
90
91inline int Word::is_number () {
92  int res = 1;
93  size_t i = 0;
94  Header* h = static_cast<Header*>(ptr_data2);
95
96  if ((h->content[i]) == '-') res = -1; //если отрицательное число
97  if ((h->content[i]) == '+') res = 1; //если положительное с "+" число
98  if (res) i = 1;
99  for (; i < h->length; i++)
100    if (iswdigit(h->content[i]) == 0) {
101      res = 0; break;
102    }
103  return res;
104}
105#if 0
106Expr Word::create_expr (wchar_t const* _wstr)
107 {
108  Expr e = Term::create_expr(1);
109  Term* p = e.get_first();
110  new(p) Word(_wstr);
111  return e;
112}
113
114Expr Word::create_expr (char const* _str, char const* _locale /* = null */)
115{
116  Expr e = Term::create_expr(1);
117  Term* p = e.get_first();
118  new(p) Word(_str, _locale);
119  return e;
120}
121#endif
122}
123
124#endif // __rf_word_ih__
Note: See TracBrowser for help on using the repository browser.