ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/microscheme/scheme-private.h
(Generate patch)

Comparing microscheme/scheme-private.h (file contents):
Revision 1.4 by root, Wed Nov 25 22:12:59 2015 UTC vs.
Revision 1.5 by root, Thu Nov 26 21:32:16 2015 UTC

… …
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 */
181enum scheme_opcodes 181enum 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
191INTERFACE int is_string (pointer p); 192INTERFACE int is_string (pointer p);
192INTERFACE char *string_value (pointer p); 193INTERFACE char *string_value (pointer p);
193INTERFACE int is_number (pointer p); 194INTERFACE int is_number (pointer p);
194INTERFACE num nvalue (pointer p); 195INTERFACE num nvalue (pointer p);
… …
215INTERFACE int is_syntax (pointer p); 216INTERFACE int is_syntax (pointer p);
216INTERFACE int is_proc (pointer p); 217INTERFACE int is_proc (pointer p);
217INTERFACE int is_foreign (pointer p); 218INTERFACE int is_foreign (pointer p);
218INTERFACE char *syntaxname (pointer p); 219INTERFACE char *syntaxname (pointer p);
219INTERFACE int is_closure (pointer p); 220INTERFACE int is_closure (pointer p);
220# ifdef USE_MACRO 221#ifdef USE_MACRO
221INTERFACE int is_macro (pointer p); 222INTERFACE int is_macro (pointer p);
222# endif 223#endif
223INTERFACE pointer closure_code (pointer p); 224INTERFACE pointer closure_code (pointer p);
224INTERFACE pointer closure_env (pointer p); 225INTERFACE pointer closure_env (pointer p);
225 226
226INTERFACE int is_continuation (pointer p); 227INTERFACE int is_continuation (pointer p);
227INTERFACE int is_promise (pointer p); 228INTERFACE int is_promise (pointer p);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines