tests/gpgscm/scheme-private.h

   1 /* scheme-private.h */
   2
   3 #ifndef _SCHEME_PRIVATE_H
   4 #define _SCHEME_PRIVATE_H
   5
   6 #include "scheme.h"
   7 /*------------------ Ugly internals -----------------------------------*/
   8 /*------------------ Of interest only to FFI users --------------------*/
   9
  10 #ifdef __cplusplus
  11 extern "C" {
  12 #endif
  13
  14 enum scheme_port_kind {
  15   port_free=0,
  16   port_file=1,
  17   port_string=2,
  18   port_srfi6=4,
  19   port_input=16,
  20   port_output=32,
  21   port_saw_EOF=64
  22 };
  23
  24 typedef struct port {
  25   unsigned char kind;
  26   union {
  27     struct {
  28       FILE *file;
  29       int closeit;
  30 #if SHOW_ERROR_LINE
  31       int curr_line;
  32       char *filename;
  33 #endif
  34     } stdio;
  35     struct {
  36       char *start;
  37       char *past_the_end;
  38       char *curr;
  39     } string;
  40   } rep;
  41 } port;
  42
  43 /* cell structure */
  44 struct cell {
  45   unsigned int _flag;
  46   union {
  47     struct {
  48       char   *_svalue;
  49       int   _length;
  50     } _string;
  51     num _number;
  52     port *_port;
  53     foreign_func _ff;
  54     struct {
  55       struct cell *_car;
  56       struct cell *_cdr;
  57     } _cons;
  58     struct {
  59          char *_data;
  60          const foreign_object_vtable *_vtable;
  61     } _foreign_object;
  62   } _object;
  63 };
  64
  65 struct scheme {
  66 /* arrays for segments */
  67 func_alloc malloc;
  68 func_dealloc free;
  69
  70 /* return code */
  71 int retcode;
  72 int tracing;
  73
  74
  75 #ifndef CELL_SEGSIZE
  76 #define CELL_SEGSIZE    5000  /* # of cells in one segment */
  77 #endif
  78 #ifndef CELL_NSEGMENT
  79 #define CELL_NSEGMENT   10    /* # of segments for cells */
  80 #endif
  81 char *alloc_seg[CELL_NSEGMENT];
  82 pointer cell_seg[CELL_NSEGMENT];
  83 int     last_cell_seg;
  84
  85 /* We use 4 registers. */
  86 pointer args;            /* register for arguments of function */
  87 pointer envir;           /* stack register for current environment */
  88 pointer code;            /* register for current code */
  89 pointer dump;            /* stack register for next evaluation */
  90
  91 int interactive_repl;    /* are we in an interactive REPL? */
  92
  93 struct cell _sink;
  94 pointer sink;            /* when mem. alloc. fails */
  95 struct cell _NIL;
  96 pointer NIL;             /* special cell representing empty cell */
  97 struct cell _HASHT;
  98 pointer T;               /* special cell representing #t */
  99 struct cell _HASHF;
 100 pointer F;               /* special cell representing #f */
 101 struct cell _EOF_OBJ;
 102 pointer EOF_OBJ;         /* special cell representing end-of-file object */
 103 pointer oblist;          /* pointer to symbol table */
 104 pointer global_env;      /* pointer to global environment */
 105 pointer c_nest;          /* stack for nested calls from C */
 106
 107 /* global pointers to special symbols */
 108 pointer LAMBDA;               /* pointer to syntax lambda */
 109 pointer QUOTE;           /* pointer to syntax quote */
 110
 111 pointer QQUOTE;               /* pointer to symbol quasiquote */
 112 pointer UNQUOTE;         /* pointer to symbol unquote */
 113 pointer UNQUOTESP;       /* pointer to symbol unquote-splicing */
 114 pointer FEED_TO;         /* => */
 115 pointer COLON_HOOK;      /* *colon-hook* */
 116 pointer ERROR_HOOK;      /* *error-hook* */
 117 pointer SHARP_HOOK;  /* *sharp-hook* */
 118 pointer COMPILE_HOOK;  /* *compile-hook* */
 119
 120 pointer free_cell;       /* pointer to top of free cells */
 121 long    fcells;          /* # of free cells */
 122
 123 pointer inport;
 124 pointer outport;
 125 pointer save_inport;
 126 pointer loadport;
 127
 128 #ifndef MAXFIL
 129 #define MAXFIL 64
 130 #endif
 131 port load_stack[MAXFIL];     /* Stack of open files for port -1 (LOADing) */
 132 int nesting_stack[MAXFIL];
 133 int file_i;
 134 int nesting;
 135
 136 char    gc_verbose;      /* if gc_verbose is not zero, print gc status */
 137 char    no_memory;       /* Whether mem. alloc. has failed */
 138
 139 #ifndef LINESIZE
 140 #define LINESIZE 1024
 141 #endif
 142 char    linebuff[LINESIZE];
 143 #ifndef STRBUFFSIZE
 144 #define STRBUFFSIZE 256
 145 #endif
 146 char    *strbuff;
 147 size_t strbuff_size;
 148 FILE *tmpfp;
 149 int tok;
 150 int print_flag;
 151 pointer value;
 152 int op;
 153
 154 void *ext_data;     /* For the benefit of foreign functions */
 155 long gensym_cnt;
 156
 157 struct scheme_interface *vptr;
 158 void *dump_base;    /* pointer to base of allocated dump stack */
 159 int dump_size;      /* number of frames allocated for dump stack */
 160 };
 161
 162 /* operator code */
 163 enum scheme_opcodes {
 164 #define _OP_DEF(A,B,C,D,E,OP) OP,
 165 #include "opdefines.h"
 166   OP_MAXDEFINED
 167 };
 168
 169
 170 #define cons(sc,a,b) _cons(sc,a,b,0)
 171 #define immutable_cons(sc,a,b) _cons(sc,a,b,1)
 172
 173 int is_string(pointer p);
 174 char *string_value(pointer p);
 175 int is_number(pointer p);
 176 num nvalue(pointer p);
 177 long ivalue(pointer p);
 178 double rvalue(pointer p);
 179 int is_integer(pointer p);
 180 int is_real(pointer p);
 181 int is_character(pointer p);
 182 long charvalue(pointer p);
 183 int is_vector(pointer p);
 184
 185 int is_port(pointer p);
 186
 187 int is_pair(pointer p);
 188 pointer pair_car(pointer p);
 189 pointer pair_cdr(pointer p);
 190 pointer set_car(pointer p, pointer q);
 191 pointer set_cdr(pointer p, pointer q);
 192
 193 int is_symbol(pointer p);
 194 char *symname(pointer p);
 195 int hasprop(pointer p);
 196
 197 int is_syntax(pointer p);
 198 int is_proc(pointer p);
 199 int is_foreign(pointer p);
 200 char *syntaxname(pointer p);
 201 int is_closure(pointer p);
 202 #ifdef USE_MACRO
 203 int is_macro(pointer p);
 204 #endif
 205 pointer closure_code(pointer p);
 206 pointer closure_env(pointer p);
 207
 208 int is_continuation(pointer p);
 209 int is_promise(pointer p);
 210 int is_environment(pointer p);
 211 int is_immutable(pointer p);
 212 void setimmutable(pointer p);
 213
 214 int is_foreign_object(pointer p);
 215 const foreign_object_vtable *get_foreign_object_vtable(pointer p);
 216 void *get_foreign_object_data(pointer p);
 217
 218 #ifdef __cplusplus
 219 }
 220 #endif
 221
 222 #endif
 223
 224 /*
 225 Local variables:
 226 c-file-style: "k&r"
 227 End:
 228 */