Changeset 1130


Ignore:
Timestamp:
Aug 8, 2003, 10:56:22 AM (17 years ago)
Author:
luba
Message:
  • type_int arguments are added to the functions
Location:
to-imperative/trunk/library/Dos
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/Dos/exit.cc

    r1112 r1130  
    1818  if (s_ReturnCode.get_len() == 1 ) {
    1919    Term* p = s_ReturnCode.get_first();
    20     rftype::Int32* num = p->cast_to<rftype::Int32>(type_int32);
    21     if (num) {
    22       intptr_t n = num->to_int();
    23       if (n < 0 || n > 255) {
    24         RF_LIB_ERROR ("Invalid Argument");
     20    intptr_t n;
     21    if (p->get_type() == type_int32) {
     22      intptr_t t = static_cast<Int32*>(p)->to_int();
     23        if (t < 0 || t > 255) {
     24          RF_LIB_ERROR ("Invalid Argument");
     25        }
     26        else
     27          exit(t);
    2528      }
    26       else
    27         exit(n);
     29    else
     30    if (p->get_type() == type_int) {
     31      rftype::Integer* num = p->cast_to<rftype::Integer>(type_int);
     32      if (num) {
     33        n = num->to_int();
     34        if (n < 0 || n > 255) {
     35          RF_LIB_ERROR ("Invalid Argument");
     36        }
     37        else
     38          exit(n);
    2839    }
    2940    else
    3041      RF_LIB_ERROR ("Invalid Argument");
     42    }
    3143  }
    3244  else
  • to-imperative/trunk/library/Dos/time.cc

    r1112 r1130  
    3434  strftime(s, sizeof(s), " %b ", lt);
    3535
    36   Expr e = Int32::create_expr((*lt).tm_mday) +
     36  Expr e = Integer::create_expr((*lt).tm_mday) +
    3737           Word::create_expr(s) +
    38            Int32::create_expr((*lt).tm_year + 1900) +
     38           Integer::create_expr((*lt).tm_year + 1900) +
    3939           Char::create_expr(" ") +
    40            Int32::create_expr((*lt).tm_hour) +
     40           Integer::create_expr((*lt).tm_hour) +
    4141           Char::create_expr(":") +
    42            Int32::create_expr((*lt).tm_min) +
     42           Integer::create_expr((*lt).tm_min) +
    4343           Char::create_expr(":") +
    44            Int32::create_expr((*lt).tm_sec) +
     44           Integer::create_expr((*lt).tm_sec) +
    4545           Char::create_expr(".");
    4646
    4747  if (uu < 10)
    48     e = e + Int32::create_expr(0) +
    49             Int32::create_expr(uu);
     48    e = e + Integer::create_expr(0) +
     49            Integer::create_expr(uu);
    5050  else
    51     e = e + Int32::create_expr(uu);
     51    e = e + Integer::create_expr(uu);
    5252
    5353  e_String = e;
Note: See TracChangeset for help on using the changeset viewer.