source: to-imperative/trunk/runtime/rf_short_int.cc @ 710

// $Source$
// $Revision: 710 $
// $Date: 2003-05-02 20:05:08 +0000 (Fri, 02 May 2003) $
// $Author: orlov $

#include "rf_short_int.ih"
#include "rf_types.ih"
#include "rf_expr.ih"
#include "rf_char.ih"

namespace rftype
{

Expr ShortInt::create_expr (intptr_t _n)
{
  Expr e = Term::create_expr(1);
  new(e.get_first()) ShortInt(_n);
  return e;
}


Expr ShortInt::create_expr (Expr& _expr, int _flag)
{
  // _flag == 1, if the number in _expr has "+" 
  //_flag == -1, if the number in _expr has "-"
  //othewise _flag == 0

  Term* p = _expr.get_first();
  Term* q = _expr.get_last();

  intptr_t n = 0;

  if (p->get_type() == type_short_int) {
    n = ((ShortInt*)p)->to_int();
    if (n < 0) {
      n = -n;
      _flag = -1;
    }
    else
      _flag = 1;
  }

  for (p += _flag * _flag; p < q; p++) {
    if (p->get_type() == type_short_int) {
      intptr_t n_temp = ((ShortInt*)p)->to_int() / 10;
      intptr_t k      = 10;
      
      while (n_temp) {
        n_temp /= 10;
        k *= 10;
      }

      n = n * k + ((ShortInt*)p)->to_int();
    }
    else
    if (p->get_type() == type_char) {
      n = n * 10 + (((Char*)p)->to_wchar_t() - 48);
    }
  }

  if (-1 == _flag) n = -n;

  Expr e = Term::create_expr(1);

  new(e.get_first()) ShortInt(n);
  return e;
}

uintptr_t ShortInt::ctor (uintptr_t _data)
{
  return _data;
}

void ShortInt::dtor (uintptr_t)
{ }

int ShortInt::compare (uintptr_t _data1, uintptr_t _data2)
{
  if (_data1 == _data2) return 0;
  else if (_data1 < _data2) return -1;
  else return 1;
}

uint32_t ShortInt::hash (uintptr_t _data)
{
  return _data; 
}

pxx::WString ShortInt::to_string (uintptr_t _data) {
  intptr_t n = _data;
  int flag = 0;
   
  if (n < 0) {
    flag = 1;
    n = -n;
  }

  wchar_t str[11];
  int i = 11;

  if (!n) {
    str[i] = 48;
  }
  else {
    while (n) {
      str[i] = n % 10 + 48;
      n /= 10;
      i--; 
    };

    if (flag) {
      str[i] = '-'; 
    }
    else i++;
  }
  return pxx::WString(&str[i], 12 - i);
  
}

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

/*Term* ShortInt::to_chars(uintptr_t _data, Term* _p) {
  char str[11]; 
  sprintf(str, "%d", _data);
  for (char *s = str; *s; s++)
    *_p++ = Char(*s);
  return _p;

  //  new(_p++) ShortInt(_data);
  //  return _p;
};
*/

short_type_funcs_t ShortInt::funcs = {
  ShortInt::ctor,
  ShortInt::dtor,
  null, // ShortInt::eq,
  ShortInt::compare,
  ShortInt::hash,
  ShortInt::to_string,
  ShortInt::get_char_len,
  null // ShortInt::to_chars
};

}