mirror of
https://github.com/janet-lang/janet
synced 2024-06-17 02:40:00 +00:00
59 lines
1.5 KiB
C
59 lines
1.5 KiB
C
#ifndef VM_H_C4OZU8CQ
|
|
#define VM_H_C4OZU8CQ
|
|
|
|
#include "datatypes.h"
|
|
#include "value.h"
|
|
|
|
/* Exit from the VM normally */
|
|
#define gst_exit(vm, r) ((vm)->ret = (r), longjmp((vm)->jump, 1))
|
|
|
|
/* Bail from the VM with an error. */
|
|
#define gst_error(vm, e) ((vm)->error = gst_load_cstring((vm), (e)), longjmp((vm)->jump, 2))
|
|
|
|
/* Crash. Not catchable, unlike error. */
|
|
#define gst_crash(vm, e) ((vm)->crash = (e), longjmp((vm)->jump, 3))
|
|
|
|
/* Error if the condition is false */
|
|
#define gst_assert(vm, cond, e) do \
|
|
{ if (!(cond)) { gst_error((vm), (e)); } } while (0)
|
|
|
|
/* Type assertion */
|
|
#define gst_assert_type(vm, f, t) \
|
|
gst_assert((vm), (f).type == (t), "Expected a different type.")
|
|
|
|
/* Initialize the VM */
|
|
void gst_init(Gst * vm);
|
|
|
|
/* Deinitialize the VM */
|
|
void gst_deinit(Gst * vm);
|
|
|
|
/* Load a function to be run on the VM */
|
|
void gst_load(Gst * vm, GstValue func);
|
|
|
|
/* Start running the VM */
|
|
int gst_start(Gst * vm);
|
|
|
|
/* Run garbage collection */
|
|
void gst_collect(Gst * vm);
|
|
|
|
/* Collect garbage if enough memory has been allocated since
|
|
* the previous collection */
|
|
void gst_maybe_collect(Gst * vm);
|
|
|
|
/* Allocate memory */
|
|
void * gst_alloc(Gst * vm, uint32_t amount);
|
|
|
|
/* Allocate zeroed memory */
|
|
void * gst_zalloc(Gst * vm, uint32_t amount);
|
|
|
|
/* Get an argument from the stack */
|
|
GstValue gst_arg(Gst * vm, uint16_t index);
|
|
|
|
/* Put a value on the stack */
|
|
void gst_set_arg(Gst * vm, uint16_t index, GstValue x);
|
|
|
|
/* Get the number of arguments on the stack */
|
|
uint16_t gst_count_args(Gst * vm);
|
|
|
|
#endif /* end of include guard: VM_H_C4OZU8CQ */
|