… | |
… | |
70 | struct { |
70 | struct { |
71 | struct cell **vvalue; |
71 | struct cell **vvalue; |
72 | uint32_t length; |
72 | uint32_t length; |
73 | } vector; |
73 | } vector; |
74 | |
74 | |
75 | num number; |
75 | intptr_t ivalue; |
|
|
76 | #if USE_REAL |
|
|
77 | double rvalue; |
|
|
78 | #endif |
76 | |
79 | |
77 | port *port; |
80 | port *port; |
78 | |
81 | |
79 | foreign_func ff; |
82 | foreign_func ff; |
80 | |
83 | |
… | |
… | |
147 | pointer inport; |
150 | pointer inport; |
148 | pointer outport; |
151 | pointer outport; |
149 | pointer save_inport; |
152 | pointer save_inport; |
150 | pointer loadport; |
153 | pointer loadport; |
151 | |
154 | |
152 | #define MAXFIL 64 |
155 | #define MAXFIL 8 |
153 | port load_stack[MAXFIL]; /* Stack of open files for port -1 (LOADing) */ |
156 | port load_stack[MAXFIL]; /* Stack of open files for port -1 (LOADing) */ |
154 | int nesting_stack[MAXFIL]; |
157 | int nesting_stack[MAXFIL]; |
155 | int file_i; |
158 | int file_i; |
156 | int nesting; |
159 | int nesting; |
157 | |
160 | |
… | |
… | |
184 | #include "opdefines.h" |
187 | #include "opdefines.h" |
185 | #undef OP_DEF |
188 | #undef OP_DEF |
186 | OP_MAXDEFINED |
189 | OP_MAXDEFINED |
187 | }; |
190 | }; |
188 | |
191 | |
|
|
192 | typedef struct num num; |
|
|
193 | |
189 | #define cons(a,b) xcons(SCHEME_A_ a,b,0) |
194 | #define cons(a,b) xcons(SCHEME_A_ a,b,0) |
190 | #define immutable_cons(a,b) xcons(SCHEME_A_ a,b,1) |
195 | #define immutable_cons(a,b) xcons(SCHEME_A_ a,b,1) |
191 | |
196 | |
192 | INTERFACE int is_string (pointer p); |
197 | INTERFACE int is_string (pointer p); |
193 | INTERFACE char *string_value (pointer p); |
198 | INTERFACE char *string_value (pointer p); |
194 | INTERFACE int is_number (pointer p); |
199 | INTERFACE int is_number (pointer p); |
195 | INTERFACE num nvalue (pointer p); |
200 | INTERFACE num nvalue (pointer p); |
196 | INTERFACE IVALUE ivalue (pointer p); |
|
|
197 | INTERFACE RVALUE rvalue (pointer p); |
|
|
198 | INTERFACE int is_integer (pointer p); |
201 | INTERFACE int is_integer (pointer p); |
199 | INTERFACE int is_real (pointer p); |
202 | INTERFACE int is_real (pointer p); |
200 | INTERFACE int is_character (pointer p); |
203 | INTERFACE int is_character (pointer p); |
201 | INTERFACE long charvalue (pointer p); |
204 | INTERFACE long charvalue (pointer p); |
202 | INTERFACE int is_vector (pointer p); |
205 | INTERFACE int is_vector (pointer p); |