74 lines
1.2 KiB
C
74 lines
1.2 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 "vm.h"
|
|
|
|
struct callinfo {
|
|
int argc, retc;
|
|
const struct code *ip;
|
|
pic_value *fp;
|
|
struct irep *irep;
|
|
struct context *cxt;
|
|
int regc;
|
|
pic_value *regs;
|
|
struct context *up;
|
|
};
|
|
|
|
KHASH_DECLARE(oblist, struct string *, struct identifier *)
|
|
|
|
struct pic_state {
|
|
pic_allocf allocf;
|
|
void *userdata;
|
|
|
|
struct cont *cc;
|
|
|
|
pic_value *sp;
|
|
pic_value *stbase, *stend;
|
|
|
|
struct callinfo *ci;
|
|
struct callinfo *cibase, *ciend;
|
|
|
|
const struct code *ip;
|
|
|
|
pic_value dyn_env;
|
|
|
|
pic_value features;
|
|
|
|
khash_t(oblist) oblist; /* string to symbol */
|
|
int ucnt;
|
|
pic_value globals; /* dict */
|
|
pic_value macros; /* dict */
|
|
|
|
bool gc_enable;
|
|
struct heap *heap;
|
|
struct object **arena;
|
|
size_t arena_size, arena_idx;
|
|
|
|
pic_value err;
|
|
|
|
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);
|
|
|
|
void pic_vm_tear_off(pic_state *pic);
|
|
|
|
#if defined(__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
#endif
|