#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;
}

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 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);
    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)));
}



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);
    duk_call_method(duk, 0);
    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);
    duk_call_method(duk, 1);
    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);
    }
}