125 lines
3.9 KiB
C
125 lines
3.9 KiB
C
/**
|
|
* See Copyright Notice in picrin.h
|
|
*/
|
|
|
|
#ifndef PICRIN_STATE_H
|
|
#define PICRIN_STATE_H
|
|
|
|
#if defined(__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
|
|
#include "khash.h"
|
|
#include "object.h"
|
|
|
|
KHASH_DECLARE(oblist, struct string *, struct symbol *)
|
|
|
|
struct context {
|
|
PIC_JMPBUF jmp;
|
|
size_t ai;
|
|
|
|
/* vm */
|
|
const code_t *pc;
|
|
struct frame *sp;
|
|
struct frame *fp;
|
|
struct irep *irep;
|
|
|
|
code_t tmpcode[2];
|
|
pic_value conts;
|
|
bool reset;
|
|
|
|
struct context *prev;
|
|
};
|
|
|
|
struct pic_state {
|
|
pic_allocf allocf;
|
|
void *userdata;
|
|
|
|
struct context *cxt, default_cxt;
|
|
|
|
size_t ai;
|
|
pic_value dyn_env;
|
|
|
|
pic_value features; /* list of symbols */
|
|
khash_t(oblist) oblist; /* string to symbol */
|
|
pic_value globals; /* dict */
|
|
|
|
bool gc_enable;
|
|
struct heap *heap;
|
|
struct object **arena;
|
|
size_t arena_size;
|
|
|
|
pic_value halt; /* top continuation */
|
|
|
|
pic_panicf panicf;
|
|
};
|
|
|
|
struct heap *pic_heap_open(pic_state *);
|
|
void pic_heap_close(pic_state *, struct heap *);
|
|
|
|
pic_value pic_global_ref(pic_state *pic, pic_value uid);
|
|
void pic_global_set(pic_state *pic, pic_value uid, pic_value value);
|
|
|
|
#define MKCALL(cxt,argc) \
|
|
((argc) < 256 \
|
|
? ((cxt)->tmpcode[0] = OP_CALL, (cxt)->tmpcode[1] = (argc), (cxt)->tmpcode) \
|
|
: (pic_error(pic, "too many arguments", 1, pic_int_value(pic, (argc))), NULL))
|
|
|
|
#define CONTEXT_VINITK(pic,cxt,proc,k,n,ap) do { \
|
|
int i; \
|
|
(cxt)->pc = MKCALL((cxt), (n) + 1); \
|
|
(cxt)->sp = pic_make_frame_unsafe(pic, (n) + 3); \
|
|
(cxt)->sp->regs[0] = (proc); \
|
|
(cxt)->sp->regs[1] = k; \
|
|
for (i = 0; i < (n); ++i) { \
|
|
(cxt)->sp->regs[i + 2] = va_arg(ap, pic_value); \
|
|
} \
|
|
(cxt)->fp = NULL; \
|
|
(cxt)->irep = NULL; \
|
|
} while (0)
|
|
|
|
#define CONTEXT_INITK(pic,cxt,proc,k,n,argv) do { \
|
|
int i; \
|
|
(cxt)->pc = MKCALL((cxt), (n) + 1); \
|
|
(cxt)->sp = pic_make_frame_unsafe(pic, (n) + 3); \
|
|
(cxt)->sp->regs[0] = (proc); \
|
|
(cxt)->sp->regs[1] = k; \
|
|
for (i = 0; i < (n); ++i) { \
|
|
(cxt)->sp->regs[i + 2] = (argv)[i]; \
|
|
} \
|
|
(cxt)->fp = NULL; \
|
|
(cxt)->irep = NULL; \
|
|
} while (0)
|
|
|
|
#define CONTEXT_VINIT(pic,cxt,proc,n,ap) do { \
|
|
int i; \
|
|
(cxt)->pc = MKCALL((cxt), (n)); \
|
|
(cxt)->sp = pic_make_frame_unsafe(pic, (n) + 2); \
|
|
(cxt)->sp->regs[0] = (proc); \
|
|
for (i = 0; i < (n); ++i) { \
|
|
(cxt)->sp->regs[i + 1] = va_arg(ap, pic_value); \
|
|
} \
|
|
(cxt)->fp = NULL; \
|
|
(cxt)->irep = NULL; \
|
|
} while (0)
|
|
|
|
#define CONTEXT_INIT(pic,cxt,proc,n,argv) do { \
|
|
int i; \
|
|
(cxt)->pc = MKCALL((cxt), (n)); \
|
|
(cxt)->sp = pic_make_frame_unsafe(pic, (n) + 2); \
|
|
(cxt)->sp->regs[0] = (proc); \
|
|
for (i = 0; i < (n); ++i) { \
|
|
(cxt)->sp->regs[i + 1] = (argv)[i]; \
|
|
} \
|
|
(cxt)->fp = NULL; \
|
|
(cxt)->irep = NULL; \
|
|
} while (0)
|
|
|
|
void pic_vm(pic_state *pic, struct context *cxt);
|
|
|
|
#if defined(__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
#endif
|