mirror of
https://github.com/janet-lang/janet
synced 2024-11-24 09:17:17 +00:00
58 lines
1.4 KiB
C
58 lines
1.4 KiB
C
#ifndef VM_H_C4OZU8CQ
|
|
#define VM_H_C4OZU8CQ
|
|
|
|
#include "datatypes.h"
|
|
|
|
/* Exit from the VM normally */
|
|
#define VMExit(vm, r) ((vm)->ret = (r), longjmp((vm)->jump, 1))
|
|
|
|
/* Bail from the VM with an error. */
|
|
#define VMError(vm, e) ((vm)->error = (e), longjmp((vm)->jump, 2))
|
|
|
|
/* Crash. Not catchable, unlike error. */
|
|
#define VMCrash(vm, e) ((vm)->error = (e), longjmp((vm)->jump, 3))
|
|
|
|
/* Error if the condition is false */
|
|
#define VMAssert(vm, cond, e) do \
|
|
{ if (!(cond)) { VMError((vm), (e)); } } while (0)
|
|
|
|
/* Type assertion */
|
|
#define VMAssertType(vm, f, t) \
|
|
VMAssert((vm), (f).type == (t), "Expected type,")
|
|
|
|
/* Initialize the VM */
|
|
void VMInit(VM * vm);
|
|
|
|
/* Deinitialize the VM */
|
|
void VMDeinit(VM * vm);
|
|
|
|
/* Load a function to be run on the VM */
|
|
void VMLoad(VM * vm, Value func);
|
|
|
|
/* Start running the VM */
|
|
int VMStart(VM * vm);
|
|
|
|
/* Run garbage collection */
|
|
void VMCollect(VM * vm);
|
|
|
|
/* Collect garbage if enough memory has been allocated since
|
|
* the previous collection */
|
|
void VMMaybeCollect(VM * vm);
|
|
|
|
/* Allocate memory */
|
|
void * VMAlloc(VM * vm, uint32_t amount);
|
|
|
|
/* Allocate zeroed memory */
|
|
void * VMZalloc(VM * vm, uint32_t amount);
|
|
|
|
/* Get an argument from the stack */
|
|
Value VMGetArg(VM * vm, uint16_t index);
|
|
|
|
/* Put a value on the stack */
|
|
void VMSetArg(VM * vm, uint16_t index, Value x);
|
|
|
|
/* Get the number of arguments on the stack */
|
|
uint16_t VMCountArgs(VM * vm);
|
|
|
|
#endif /* end of include guard: VM_H_C4OZU8CQ */
|