#include <stdint.h>

#include <janet.h>

/* Disable leak sanitizer */

int __lsan_is_turned_off(void) {

    return 1;

}

int LLVMFuzzerTestOneInput(const uint8_t *data, size_t size) {

    /* init Janet */

    janet_init();

    /* fuzz the compile + bytecode VM path (parse, compile, run) in src/core/compile.c and src/core/vm.c */

    JanetTable *env = janet_core_env(NULL);

    JanetTryState tstate;

    if (janet_try(&tstate) == JANET_SIGNAL_OK) {

        Janet out;

        janet_dobytes(env, data, (int32_t) size, "<fuzz>", &out);

    }

    janet_restore(&tstate);

    /* cleanup Janet */

    janet_deinit();

    return 0;

}