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

#ifndef __rf_char_ih__
#define __rf_char_ih__

#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 (type_char)
{
  uint_data2 = _wch;
}

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

inline bool Char::is_letter() const {
  return iswalpha(uint_data2);
}

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

inline bool Char::is_space() const {
  return uint_data2 == L' ';
}

inline bool Char::is_flat()
{
  return true;
}

#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

}

#endif // __rf_char_ih__