source: to-imperative/trunk/runtime/rf_char.ih @ 756

// $Source$
// $Revision: 756 $
// $Date: 2003-05-25 16:58:24 +0000 (Sun, 25 May 2003) $
// $Author: luba $

#include "rf_char.hh"
//#include "rf_int.hh"
#include "rf_term.ih"

#include <wctype.h>
#include <wchar.h>
#include <locale.h>

namespace rftype
{

using namespace rfrt ;

inline Char::Char(wchar_t _wch) :
  Term (term_sym, type_char)
{
  uint_data2 = _wch;
}

inline bool Char::is_digit() const {
  return iswdigit(this->uint_data2);
};

inline wchar_t Char::to_wchar_t() const {
  return uint_data2;
};

inline bool Char::is_not_space() const {
  bool res = true;
  if (uint_data2 == 32)
    res = false;
  return res;
}

#if 0
inline Char::Char(const Char& _ch) :
  Term (term_sym, type_char)
{
  uint_data2 = _ch.uint_data2;
}
#endif
#if 0

inline Int Char::to_byte() const {
  Int(ch);
};

inline bool Char::operator==(const Char& c) const {
  return (ch == c.ch);
};



inline wchar_t Char::to_wchar_t() const {
  return ch;
}

#endif

}