… | |
… | |
147 | pointer inport; |
147 | pointer inport; |
148 | pointer outport; |
148 | pointer outport; |
149 | pointer save_inport; |
149 | pointer save_inport; |
150 | pointer loadport; |
150 | pointer loadport; |
151 | |
151 | |
152 | # define MAXFIL 64 |
152 | #define MAXFIL 64 |
153 | port load_stack[MAXFIL]; /* Stack of open files for port -1 (LOADing) */ |
153 | port load_stack[MAXFIL]; /* Stack of open files for port -1 (LOADing) */ |
154 | int nesting_stack[MAXFIL]; |
154 | int nesting_stack[MAXFIL]; |
155 | int file_i; |
155 | int file_i; |
156 | int nesting; |
156 | int nesting; |
157 | |
157 | |
158 | char gc_verbose; /* if gc_verbose is not zero, print gc status */ |
158 | char gc_verbose; /* if gc_verbose is not zero, print gc status */ |
159 | char no_memory; /* Whether mem. alloc. has failed */ |
159 | char no_memory; /* Whether mem. alloc. has failed */ |
160 | |
160 | |
161 | # define LINESIZE 1024 |
161 | #define LINESIZE 1024 |
162 | char linebuff[LINESIZE]; |
162 | char linebuff[LINESIZE]; |
163 | # define STRBUFFSIZE 256 |
163 | #define STRBUFFSIZE 256 |
164 | char strbuff[STRBUFFSIZE]; |
164 | char strbuff[STRBUFFSIZE]; |
165 | |
165 | |
166 | int tmpfp; |
166 | int tmpfp; |
167 | int tok; |
167 | int tok; |
168 | int print_flag; |
168 | int print_flag; |
… | |
… | |
178 | }; |
178 | }; |
179 | |
179 | |
180 | /* operator code */ |
180 | /* operator code */ |
181 | enum scheme_opcodes |
181 | enum scheme_opcodes |
182 | { |
182 | { |
183 | # define OP_DEF(A,B,C,D,E,OP) OP, |
183 | #define OP_DEF(func,name,minarity,maxarity,argtest,op) op, |
184 | # include "opdefines.h" |
184 | #include "opdefines.h" |
|
|
185 | #undef OP_DEF |
185 | OP_MAXDEFINED |
186 | OP_MAXDEFINED |
186 | }; |
187 | }; |
187 | |
188 | |
188 | # define cons(a,b) xcons(SCHEME_A_ a,b,0) |
189 | #define cons(a,b) xcons(SCHEME_A_ a,b,0) |
189 | # define immutable_cons(a,b) xcons(SCHEME_A_ a,b,1) |
190 | #define immutable_cons(a,b) xcons(SCHEME_A_ a,b,1) |
190 | |
191 | |
191 | INTERFACE int is_string (pointer p); |
192 | INTERFACE int is_string (pointer p); |
192 | INTERFACE char *string_value (pointer p); |
193 | INTERFACE char *string_value (pointer p); |
193 | INTERFACE int is_number (pointer p); |
194 | INTERFACE int is_number (pointer p); |
194 | INTERFACE num nvalue (pointer p); |
195 | INTERFACE num nvalue (pointer p); |
… | |
… | |
215 | INTERFACE int is_syntax (pointer p); |
216 | INTERFACE int is_syntax (pointer p); |
216 | INTERFACE int is_proc (pointer p); |
217 | INTERFACE int is_proc (pointer p); |
217 | INTERFACE int is_foreign (pointer p); |
218 | INTERFACE int is_foreign (pointer p); |
218 | INTERFACE char *syntaxname (pointer p); |
219 | INTERFACE char *syntaxname (pointer p); |
219 | INTERFACE int is_closure (pointer p); |
220 | INTERFACE int is_closure (pointer p); |
220 | # ifdef USE_MACRO |
221 | #ifdef USE_MACRO |
221 | INTERFACE int is_macro (pointer p); |
222 | INTERFACE int is_macro (pointer p); |
222 | # endif |
223 | #endif |
223 | INTERFACE pointer closure_code (pointer p); |
224 | INTERFACE pointer closure_code (pointer p); |
224 | INTERFACE pointer closure_env (pointer p); |
225 | INTERFACE pointer closure_env (pointer p); |
225 | |
226 | |
226 | INTERFACE int is_continuation (pointer p); |
227 | INTERFACE int is_continuation (pointer p); |
227 | INTERFACE int is_promise (pointer p); |
228 | INTERFACE int is_promise (pointer p); |