196 lines
3.7 KiB
C
196 lines
3.7 KiB
C
#include "script.h"
|
|
|
|
#include "stdio.h"
|
|
#include "log.h"
|
|
|
|
#include "ffi.h"
|
|
#include "font.h"
|
|
|
|
#include "ftw.h"
|
|
|
|
#include "stb_ds.h"
|
|
|
|
#include "time.h"
|
|
#include "sys/stat.h"
|
|
#include "sys/types.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);
|
|
}
|
|
|
|
time_t file_mod_secs(const char *file) {
|
|
struct stat attr;
|
|
stat(file, &attr);
|
|
return attr.st_mtime;
|
|
}
|
|
|
|
void duk_run_err() {
|
|
duk_get_prop_string(duk, -1, "lineNumber");
|
|
duk_get_prop_string(duk, -2, "fileName");
|
|
duk_get_prop_string(duk, -3, "stack");
|
|
mYughLog(1, 2, duk_get_int(duk, -3), duk_safe_to_string(duk, -2), "%s\n%s", duk_safe_to_string(duk, -4), duk_safe_to_string(duk, -1));
|
|
|
|
duk_pop_3(duk);
|
|
}
|
|
|
|
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);
|
|
duk_push_string(duk, file);
|
|
|
|
if (duk_pcompile(duk, 0) != 0) {
|
|
duk_run_err();
|
|
return 1;
|
|
}
|
|
|
|
if (duk_pcall(duk, 0))
|
|
duk_run_err();
|
|
|
|
duk_pop(duk);
|
|
|
|
return file_mod_secs(file);
|
|
}
|
|
|
|
/* 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);
|
|
if (duk_pcall_prop(duk, -2, 0))
|
|
duk_run_err();
|
|
|
|
duk_pop_2(duk);
|
|
}
|
|
|
|
void script_call_sym(void *sym)
|
|
{
|
|
duk_push_heapptr(duk, sym);
|
|
if (duk_pcall(duk, 0))
|
|
duk_run_err();
|
|
|
|
duk_pop(duk);
|
|
}
|
|
|
|
void script_call_sym_args(void *sym, void *args)
|
|
{
|
|
//s7_call(s7, sym, s7_cons(s7, args, s7_nil(s7)));
|
|
}
|
|
|
|
|
|
|
|
struct callee *updates = NULL;
|
|
struct callee *physics = NULL;
|
|
struct callee *guis = NULL;
|
|
|
|
void register_update(struct callee c) {
|
|
arrput(updates, c);
|
|
}
|
|
|
|
void register_gui(struct callee c) {
|
|
arrput(guis, c);
|
|
}
|
|
|
|
void register_physics(struct callee c) {
|
|
arrput(physics, c);
|
|
}
|
|
|
|
void call_callee(struct callee *c) {
|
|
duk_push_heapptr(duk, c->fn);
|
|
duk_push_heapptr(duk, c->obj);
|
|
|
|
if (duk_pcall_method(duk, 0))
|
|
duk_run_err();
|
|
|
|
duk_pop(duk);
|
|
}
|
|
|
|
void callee_dbl(struct callee c, double d) {
|
|
duk_push_heapptr(duk, c.fn);
|
|
duk_push_heapptr(duk, c.obj);
|
|
duk_push_number(duk, d);
|
|
|
|
if (duk_pcall_method(duk, 1))
|
|
duk_run_err();
|
|
|
|
duk_pop(duk);
|
|
}
|
|
|
|
void call_updates(double dt) {
|
|
for (int i = 0; i < arrlen(updates); i++) {
|
|
callee_dbl(updates[i], dt);
|
|
}
|
|
}
|
|
|
|
void call_gui() {
|
|
for (int i = 0; i < arrlen(guis); i++)
|
|
call_callee(&guis[i]);
|
|
}
|
|
|
|
void call_physics(double dt) {
|
|
for (int i = 0; i < arrlen(physics); i++) {
|
|
callee_dbl(updates[i], dt);
|
|
}
|
|
}
|