157395/ice.i.2

   1 typedef struct num {
   2         char is_fixnum;
   3         union {
   4                 long ivalue;
   5         } value;
   6 } num;
   7 struct cell {
   8         union {
   9                 struct {
  10                         struct cell *_car;
  11                         struct cell *_cdr;
  12                 } _cons;
  13         } _object;
  14 };
  15 struct scheme {
  16         struct cell * args;
  17         struct cell * NIL;
  18 };
  19 num
  20 nvalue(struct cell * p)
  21 {
  22 }
  23 num num_intdiv(num a, num b)
  24 {
  25         num ret;
  26         if (ret.is_fixnum) {
  27                 ret.value.ivalue = a.value.ivalue / b.value.ivalue;
  28         }
  29         return ret;
  30 }
  31 void opexe_2()
  32 {
  33 struct scheme * sc;
  34         struct cell * x;
  35         num v;
  36         int op;
  37         switch (op) {
  38         case 0:
  39                 x = ((sc->args)->_object._cons._car);
  40                 for (; x != sc->NIL; x = ((x)->_object._cons._cdr)) {
  41                         if (ivalue(((x)->_object._cons._car)) != 0)
  42                                 v = num_intdiv(v,
  43                                                nvalue(((x)->_object._cons.
  44                                                        _car)));
  45                 }
  46         }
  47 }
  48 typedef struct {
  49         char *name;
  50 } op_code_info;
  51 op_code_info dispatch_table[] = {
  52          opexe_2
  53 };
  54 void scheme_init_custom_alloc()
  55 {
  56         int i;
  57         int n = 0;
  58         for (i = 0; i < n; i++) {
  59                 if (dispatch_table[i].name != 0) {
  60                 }
  61         }
  62 }