source: to-imperative/trunk/runtime/rf_char.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: 776 bytes
Line 
1// $Source$
2// $Revision: 731 $
3// $Date: 2003-05-16 07:47:17 +0000 (Fri, 16 May 2003) $
4// $Author: luba $
5
6#include "rf_char.hh"
7//#include "rf_int.hh"
8#include "rf_term.ih"
9
10#include <wctype.h>
11#include <wchar.h>
12#include <locale.h>
13
14namespace rftype
15{
16
17using namespace rfrt ;
18
19inline Char::Char(wchar_t _wch) :
20  Term (term_sym, type_char)
21{
22  uint_data2 = _wch;
23}
24
25inline bool Char::is_digit() const {
26  return iswdigit(this->uint_data2);
27};
28
29inline wchar_t Char::to_wchar_t() const {
30  return uint_data2;
31};
32
33
34#if 0
35inline Char::Char(const Char& _ch) :
36  Term (term_sym, type_char)
37{
38  uint_data2 = _ch.uint_data2;
39}
40#endif
41#if 0
42
43inline Int Char::to_byte() const {
44  Int(ch);
45};
46
47inline bool Char::operator==(const Char& c) const {
48  return (ch == c.ch);
49};
50
51
52
53inline wchar_t Char::to_wchar_t() const {
54  return ch;
55}
56
57#endif
58
59}
Note: See TracBrowser for help on using the repository browser.