typedef struct _node_ { char type; /* type of node */ char flags; /* bitflags */ unsigned short mod; /* modifier */ unsigned short line; /* line number */ string *class; /* object class */ union { Int number; /* numeric value */ unsigned short fhigh; /* high word of float */ string *string; /* string value */ char *ptr; /* character pointer */ struct _node_ *left; /* left child */ } l; union { Int number; /* numeric value */ Uint flow; /* low longword of float */ struct _node_ *right; /* right child */ } r; } node; # define NFLT_GET(n, f) ((f).high = (n)->l.fhigh, (f).low = (n)->r.flow) # define NFLT_PUT(n, f) ((n)->l.fhigh = (f).high, (n)->r.flow = (f).low) # define NFLT_ISZERO(n) FLT_ISZERO((n)->l.fhigh, (n)->r.flow) # define NFLT_ISONE(n) FLT_ISONE((n)->l.fhigh, (n)->r.flow) # define NFLT_ISMONE(n) FLT_ISMONE((n)->l.fhigh, (n)->r.flow) # define NFLT_ONE(n) FLT_ONE((n)->l.fhigh, (n)->r.flow) # define NFLT_ABS(n) FLT_ABS((n)->l.fhigh, (n)->r.flow) # define NFLT_NEG(n) FLT_NEG((n)->l.fhigh, (n)->r.flow) # define F_CONST 0x01 /* constant expression */ # define F_SIDEFX 0x02 /* expression has side effect */ # define F_ENTRY 0x04 /* (first) statement has case/default entry */ # define F_REACH 0x08 /* statement block has case/default entry */ # define F_BREAK 0x10 /* break */ # define F_CONTINUE 0x20 /* continue */ # define F_RETURN 0x40 /* return */ # define F_END (F_BREAK | F_CONTINUE | F_RETURN) # define F_FLOW (F_ENTRY | F_REACH | F_END) # define F_VARARGS 0x04 /* varargs in parameter list */ # define F_ELLIPSIS 0x08 /* ellipsis in parameter list */ extern void node_init P((int)); extern node *node_new P((unsigned int)); extern node *node_int P((Int)); extern node *node_float P((xfloat*)); extern node *node_nil P((void)); extern node *node_str P((string*)); extern node *node_type P((int, string*)); extern node *node_fcall P((int, string*, char*, Int)); extern node *node_mon P((int, int, node*)); extern node *node_bin P((int, int, node*, node*)); extern void node_toint P((node*, Int)); extern void node_tostr P((node*, string*)); extern void node_free P((void)); extern void node_clear P((void)); # define N_ADD 1 # define N_ADD_INT 2 # define N_ADD_EQ 3 # define N_ADD_EQ_INT 4 # define N_ADD_EQ_1 5 # define N_ADD_EQ_1_INT 6 # define N_AGGR 7 # define N_AND 8 # define N_AND_INT 9 # define N_AND_EQ 10 # define N_AND_EQ_INT 11 # define N_ASSIGN 12 # define N_BLOCK 13 # define N_BREAK 14 # define N_CASE 15 # define N_CAST 16 # define N_CATCH 17 # define N_COMMA 18 # define N_CONTINUE 19 # define N_DIV 20 # define N_DIV_INT 21 # define N_DIV_EQ 22 # define N_DIV_EQ_INT 23 # define N_DO 24 # define N_ELSE 25 # define N_EQ 26 # define N_EQ_INT 27 # define N_FAKE 28 # define N_FLOAT 29 # define N_FOR 30 # define N_FOREVER 31 # define N_FUNC 32 # define N_GE 33 # define N_GE_INT 34 # define N_GLOBAL 35 # define N_GT 36 # define N_GT_INT 37 # define N_IF 38 # define N_INDEX 39 # define N_INSTANCEOF 40 # define N_INT 41 # define N_LAND 42 # define N_LE 43 # define N_LE_INT 44 # define N_LOCAL 45 # define N_LOR 46 # define N_LSHIFT 47 # define N_LSHIFT_INT 48 # define N_LSHIFT_EQ 49 # define N_LSHIFT_EQ_INT 50 # define N_LT 51 # define N_LT_INT 52 # define N_LVALUE 53 # define N_MOD 54 # define N_MOD_INT 55 # define N_MOD_EQ 56 # define N_MOD_EQ_INT 57 # define N_MULT 58 # define N_MULT_INT 59 # define N_MULT_EQ 60 # define N_MULT_EQ_INT 61 # define N_NE 62 # define N_NE_INT 63 # define N_NIL 64 # define N_NOT 65 # define N_OR 66 # define N_OR_INT 67 # define N_OR_EQ 68 # define N_OR_EQ_INT 69 # define N_PAIR 70 # define N_POP 71 # define N_QUEST 72 # define N_RANGE 73 # define N_RETURN 74 # define N_RLIMITS 75 # define N_RSHIFT 76 # define N_RSHIFT_INT 77 # define N_RSHIFT_EQ 78 # define N_RSHIFT_EQ_INT 79 # define N_SPREAD 80 # define N_STR 81 # define N_SUB 82 # define N_SUB_INT 83 # define N_SUB_EQ 84 # define N_SUB_EQ_INT 85 # define N_SUB_EQ_1 86 # define N_SUB_EQ_1_INT 87 # define N_SUM 88 # define N_SUM_EQ 89 # define N_SWITCH_INT 90 # define N_SWITCH_RANGE 91 # define N_SWITCH_STR 92 # define N_TOFLOAT 93 # define N_TOINT 94 # define N_TOSTRING 95 # define N_TST 96 # define N_TYPE 97 # define N_XOR 98 # define N_XOR_INT 99 # define N_XOR_EQ 100 # define N_XOR_EQ_INT 101 # define N_MIN_MIN 102 # define N_MIN_MIN_INT 103 # define N_PLUS_PLUS 104 # define N_PLUS_PLUS_INT 105 extern int nil_node;