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

// $Source$
// $Revision: 731 $
// $Date: 2003-05-16 07:47:17 +0000 (Fri, 16 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;
};


#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

}