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.5 by root, Thu Nov 26 21:32:16 2015 UTC vs.
Revision 1.6 by root, Sat Nov 28 05:12:53 2015 UTC

… …
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
192typedef 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
192INTERFACE int is_string (pointer p); 197INTERFACE int is_string (pointer p);
193INTERFACE char *string_value (pointer p); 198INTERFACE char *string_value (pointer p);
194INTERFACE int is_number (pointer p); 199INTERFACE int is_number (pointer p);
195INTERFACE num nvalue (pointer p); 200INTERFACE num nvalue (pointer p);
196INTERFACE IVALUE ivalue (pointer p);
197INTERFACE RVALUE rvalue (pointer p);
198INTERFACE int is_integer (pointer p); 201INTERFACE int is_integer (pointer p);
199INTERFACE int is_real (pointer p); 202INTERFACE int is_real (pointer p);
200INTERFACE int is_character (pointer p); 203INTERFACE int is_character (pointer p);
201INTERFACE long charvalue (pointer p); 204INTERFACE long charvalue (pointer p);
202INTERFACE int is_vector (pointer p); 205INTERFACE int is_vector (pointer p);

Diff Legend

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