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

#include "rf_short_int.hh"
#include "rf_term.ih"

namespace rftype 
{

using namespace rfrt;

inline ShortInt::ShortInt(intptr_t _n) :
  Term(term_sym, type_short_int) 
{
  int_data2 = _n;
}

inline intptr_t ShortInt::to_int() const 
{
  return int_data2;
}

inline size_t ShortInt::get_char_len() const
{
  intptr_t n = int_data2;
  uintptr_t k = 0;
  if (!n) k = 1;
  else {
    if (n < 0) k++;
    while (n) {
      n /= 10;
      k++;
    };
  };
  return k; 
};

}