int.na

inline C <<end
#include <string.h>
#include "prim.h"

#define MAX_LX_INT (0x3fffffff)
#define MIN_LX_INT (-0x40000000)

#define bigint(x) (prfmt(1, "%u\n", (x)), die1("no bigints yet", nil))

end

def int: sobj:
  inline C (cmp b) <<end
    register long a, b;

    a = datum2int(rcv);
    b = datum2int(n_b);
    return (a < b) ? int2datum(-1) : (a > b) ? int2datum(1) : int2datum(0);
  end

  (== x) (is? (self.cmp x) 0)
  (> x) (is? (self.cmp x) 1)
  (< x) (is? (self.cmp x) -1)
  (>= x) (self.cmp x) > -1

  inline C (+ b) <<end
    register long a, b, r;

    a = datum2int(rcv);
    b = datum2int(n_b);
    r = a + b;
    if (r >= MAX_LX_INT || r <= MIN_LX_INT) return bigint(r);
    return int2datum(r);
  end

  inline C (- b) <<end
    register long a, b, r;

    a = datum2int(rcv);
    b = datum2int(n_b);
    r = a - b;
    if (r >= MAX_LX_INT || r <= MIN_LX_INT) return bigint(r);
    return int2datum(r);
  end

  inline C (* b) <<end
    register long a, b, r;

    a = datum2int(rcv);
    b = datum2int(n_b);
    if (b == 0) die("int.* -- modulo by zero");
    r = a * b;
    if (b == 0 || (r / b) == a) {
      if (r >= MAX_LX_INT || r <= MIN_LX_INT) return bigint(r);
      return int2datum(r);
    }
    die("should convert to bigints and try again");
    return nil;
  end

  inline C (/ b) <<end
    register long a, b, r;

    a = datum2int(rcv);
    b = datum2int(n_b);
    if (b == 0) die("int./ -- division by zero");
    r = a / b;
    if (r == MAX_LX_INT + 1) return bigint(r);
    return int2datum(r);
  end

  inline C (% b) <<end
    register long a, b, r;

    a = datum2int(rcv);
    b = datum2int(n_b);
    if (b == 0) die("int.% -- modulo by zero");
    r = a % b;
    return int2datum(r);
  end

  (** x) (error "not implemented")

  inline C (<< shamt) <<end
    int x, shamt, mask;

    x = datum2int(rcv);
    shamt = datum2int(n_shamt);

    if (shamt > 31) {
      return die1("no bigints yet", nil);
    }

    mask = ~0 << (31 - shamt);

    if (x > 0 && (x & mask)) {
      return die1("no bigints yet", nil);
    }

    if (x < 0 && ~(x | ~mask)) {
      return die1("no bigints yet", nil);
    }

    return int2datum(x << shamt);
  end

  (str.):
    def upper (self / 10)
    def lower (self % 10)
    def table "0123456789"
    if (self < 10):
      table self
    else:
      (upper.str) / (table lower)

  (frozen.) self

'()