// $Source$
// $Revision$
// $Date$
// $Author$

#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_space() const {
  bool res = false;
  if (uint_data2 == ' ')
    res = true;
  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

}