prosperon/source/engine/script.c
2023-01-10 21:41:43 +00:00

170 lines
3.2 KiB
C

#include "script.h"
#include "stdio.h"
#include "log.h"
#include "ffi.h"
#include "font.h"
#include "ftw.h"
#include "stb_ds.h"
duk_context *duk = NULL;
duk_idx_t vect2duk(cpVect v) {
duk_idx_t arr = duk_push_array(duk);
duk_push_number(duk, v.x);
duk_put_prop_index(duk, arr, 0);
duk_push_number(duk, v.y);
duk_put_prop_index(duk, arr, 1);
return arr;
}
static int load_prefab(const char *fpath, const struct stat *sb, int typeflag) {
if (typeflag != FTW_F)
return 0;
if (!strcmp(".prefab", strrchr(fpath, '.')))
script_dofile(fpath);
return 0;
}
void script_init() {
duk = duk_create_heap_default();
ffi_load();
/* Load all prefabs into memory */
script_dofile("scripts/engine.js");
script_dofile("config.js");
//ftw(".", load_prefab, 10);
}
void script_run(const char *script) {
duk_eval_string(duk, script);
}
int script_dofile(const char *file) {
const char *script = slurp_text(file);
if (!script) {
YughError("Can't find file %s.", file);
return 1;
}
duk_push_string(duk, script);
free(script);
if (duk_peval(duk) != 0) {
printf("ERROR: %s\n", duk_safe_to_string(duk, -1));
return 1;
}
duk_pop(duk);
return 0;
}
/* Call the "update" function in the master game script */
void script_update(double dt) {
}
/* Call the "draw" function in master game script */
void script_draw() {
}
/* Call "editor" function in master game script */
void script_editor() {
}
/* Call the given function name */
void script_call(const char *f) {
//s7_call(s7, s7_name_to_value(s7, f), s7_nil(s7));
}
void script_eval_w_env(const char *s, void *env) {
duk_push_heapptr(duk, env);
duk_push_string(duk, s);
if (!duk_has_prop(duk, -2)) {
duk_pop(duk);
return;
}
duk_push_string(duk, s);
duk_call_prop(duk, -2, 0);
duk_pop(duk);
duk_pop(duk);
}
void script_call_sym(void *sym)
{
duk_push_heapptr(duk, sym);
duk_call(duk, 0);
duk_pop(duk);
}
void script_call_sym_args(void *sym, void *args)
{
//s7_call(s7, sym, s7_cons(s7, args, s7_nil(s7)));
}
void **updates;
void **guis;
void **physics;
struct obupdate {
void *obj;
void *sym;
};
struct obupdate *obupdates = NULL;
void register_update(void *sym) {
arrput(updates, sym);
}
void register_obupdate(void *obj, void *sym) {
struct obupdate ob = {obj, sym};
arrput(obupdates, ob);
}
void call_updates(double dt) {
for (int i = 0; i < arrlen(updates); i++) {
duk_push_heapptr(duk, updates[i]);
duk_push_number(duk, dt);
duk_call(duk, 1);
}
for (int i = 0; i < arrlen(obupdates); i++) {
duk_push_heapptr(duk, obupdates[i].sym);
duk_push_heapptr(duk, obupdates[i].obj);
duk_push_number(duk, dt);
duk_call_method(duk, 1);
}
}
void register_gui(void *sym) {
arrput(guis, sym);
}
void call_gui() {
for (int i = 0; i < arrlen(guis); i++)
script_call_sym(guis[i]);
}
void register_physics(void *sym) {
arrput(physics, sym);
}
void call_physics(double dt) {
for (int i = 0; i < arrlen(physics); i++) {
duk_push_pointer(duk, physics[i]);
duk_push_number(duk, dt);
duk_call(duk, 1);
}
}