retroforth/vm/nga-c/dev-ffi.c
crc f04fb99758 nga-c: use named constants for device types
FossilOrigin-Name: f0d3e530a93840fc0656d344ea487a58b138ce1af8e93ac7517c8d0df01c5192
2023-12-09 18:15:54 +00:00

55 lines
1.3 KiB
C

/**************************************************************
_ __ _ _
_ __ ___| |_ _ __ ___ / _| ___ _ __| |_| |__
| '__/ _ \ __| '__/ _ \| |_ / _ \| '__| __| '_ \
| | | __/ |_| | | (_) | _| (_) | | | |_| | | |
|_| \___|\__|_| \___/|_| \___/|_| \__|_| |_|
for nga
(c) Charles Childers, Luke Parrish, Marc Simpsonn,
Jay Skeer, Kenneth Keating
**************************************************************/
#ifdef ENABLE_FFI
#include <dlfcn.h>
typedef void (*External)(void *);
void *handles[32];
External funcs[32000];
int nlibs, nffi;
void open_library(NgaState *vm) {
handles[nlibs] = dlopen(string_extract(vm, stack_pop(vm)), RTLD_LAZY);
stack_push(vm, nlibs);
nlibs++;
}
void map_symbol(NgaState *vm) {
int h;
h = stack_pop(vm);
char *s = string_extract(vm, stack_pop(vm));
funcs[nffi] = dlsym(handles[h], s);
stack_push(vm, nffi);
nffi++;
}
void invoke(NgaState *vm) {
funcs[stack_pop(vm)](vm);
}
void io_ffi(NgaState *vm) {
switch (stack_pop(vm)) {
case 0: open_library(vm); break;
case 1: map_symbol(vm); break;
case 2: invoke(vm); break;
}
}
void query_ffi(NgaState *vm) {
stack_push(vm, 0);
stack_push(vm, DEVICE_FFI);
}
#endif