#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "lil/lil.h"
#include "patchwerk/patchwerk.h"
#include "core.h"
#include "sklil.h"
#include "env.h"

static lil_value_t env(lil_t lil, size_t argc, lil_value_t *argv)
{
    sk_core *core;
    int rc;
    int i;
    core = lil_get_data(lil);

    SKLIL_ARITY_CHECK(lil, "env", argc, 4);

    for (i = 0; i < 4; i ++) {
        rc = sklil_param(core, argv[i]);
        SKLIL_PARAM_CHECK(lil, rc, "env");
    }

    rc = sk_node_env(core);
    SKLIL_ERROR_CHECK(lil, rc, "env didn't work out.");
    return NULL;
}

void sklil_load_env(lil_t lil)
{
    lil_register(lil, "env", env);
}