source: to-imperative/trunk/library/Convert/to_int.cc @ 674

// $Source$
// $Revision: 674 $
// $Date: 2003-04-26 07:37:26 +0000 (Sat, 26 Apr 2003) $
// $Author: luba $

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

namespace refal
{

using namespace rfrt;
using namespace rftype;

namespace Convert
{

RF_FUNC (To_m_Int, (RF_ARG e_Exp), (RF_RES s_Int))
  uintptr_t len = 0;
  int flag = 0;

  Term* t = e_Exp.get_first();

  if (t->get_type() == type_char) {
    if (((Char*)t)->to_wchar_t() == '-')
      flag = -1;

    if (((Char*)t)->to_wchar_t() == '+')
      flag = 1;
  };

  //добавить для Word проверку первого символа

  if (flag || t->get_type() == type_short_int)
    t++;

  for (; t < e_Exp.get_last(); t++) {
    if (t->get_type() == type_char && ((Char*)t)->is_digit()) 
      if (len > UINTPTR_MAX - 1)
        RF_LIB_ERROR("Argument too large for conversion");
      else
        len += 1;
    else
      if (t->get_type() == type_short_int) {
        if (((ShortInt*)t)->to_int() < 0)
          retfail;
        else
          if (len > UINTPTR_MAX - ShortInt::get_char_len(((ShortInt*)t)->to_int()))
            RF_LIB_ERROR("Argument too large for conversion");
          else
            len += ShortInt::get_char_len(((ShortInt*)t)->to_int()); 
      }
#if 0
    else
    if (t->get_type() == type_word && ((Word*)t)->is_number())
      if (len > UINTPTR_MAX - длина слова ))
        RF_LIB_ERROR("Argument too large for conversion");
      else
        len += ((Word*)t)->get_len();
#endif
    else
      retfail;
  };
  s_Int = ShortInt::create_expr(e_Exp, flag);

RF_END
}
}