source: to-imperative/trunk/library/Convert/bytes_to_chars.cc @ 604

// $Source$
// $Revision: 604 $
// $Date: 2003-03-17 07:13:48 +0000 (Mon, 17 Mar 2003) $
// $Author: luba $

#include <rf_core.hh>
#include <rf_short_int.hh>


namespace refal
{

using namespace rfrt;
using namespace rftype;

namespace Convert
{

RF_FUNC (Bytes_m_To_m_Chars, (RF_ARG e_Int), (RF_RES e_Res))
#if 0
  e_Res = Expr(e_Int.get_len(), 0);
  
  Term *p = e_Int.get_first();
  Term *r = e_Res.get_first();
  
  for (; p < e_Int.get_last(); p++, r++) {
    if (p->get_type() == type_int) {
      RF_LIB_ERROR("Invalid argument");
    }
    else
    if (p->get_type() == type_short_int) {
      intptr_t t = ((ShortInt*)p)->to_int();
      if (t < 0 || t > WCHAR_MAX)
        RF_LIB_ERROR("Invalid argument");
      else
      *r = Char::to_chars(t);
    }
    else                        
       RF_LIB_ERROR("Invalid argument");
  }
#endif

  Term* p = e_Int.get_first();
  for (; p < e_Int.get_last(); p++) {
    if (p->get_type() == type_short_int) {
      intptr_t t = ((ShortInt*)p)->to_int();
      if (t < 0 || t > WCHAR_MAX)
        RF_LIB_ERROR("Invalid argument");
      }
    else
      RF_LIB_ERROR("Invalid argument");
  
  }

  e_Res = Char::bytes_to_chars(e_Int);

RF_END
}
}