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

void sklil_load_sine(lil_t lil);
void sklil_load_wavout(lil_t lil);
void sklil_load_arith(lil_t lil);
void sklil_load_scale(lil_t lil);
void sklil_load_phasor(lil_t lil);
void sklil_load_rephasor(lil_t lil);
void sklil_load_tabnew(lil_t lil);
void sklil_load_gensine(lil_t lil);
void sklil_load_osc(lil_t lil);
void sklil_load_reg(lil_t lil);
void sklil_load_buffer(lil_t lil);
void sklil_load_bigverb(lil_t lil);
void sklil_load_fmpair(lil_t lil);
void sklil_load_dcblocker(lil_t lil);
void sklil_load_smoother(lil_t lil);
void sklil_load_metro(lil_t lil);
void sklil_load_mtof(lil_t lil);
void sklil_load_expon(lil_t lil);
void sklil_load_rline(lil_t lil);
void sklil_load_vardelay(lil_t lil);
void sklil_load_expmap(lil_t lil);
void sklil_load_oscf(lil_t lil);
void sklil_load_phasewarp(lil_t lil);
void sklil_load_biramp(lil_t lil);
void sklil_load_modalres(lil_t lil);
void sklil_load_chorus(lil_t lil);
void sklil_load_bezier(lil_t lil);
void sklil_load_bitnoise(lil_t lil);
void sklil_load_chaosnoise(lil_t lil);
void sklil_load_peakeq(lil_t lil);
void sklil_load_valp1(lil_t lil);
void sklil_load_bitosc(lil_t lil);
void sklil_load_wavin(lil_t lil);
void sklil_load_env(lil_t lil);

void sklil_nodes(lil_t lil)
{
    sklil_load_sine(lil);
    sklil_load_wavout(lil);
    sklil_load_arith(lil);
    sklil_load_scale(lil);
    sklil_load_phasor(lil);
    sklil_load_rephasor(lil);
    sklil_load_tabnew(lil);
    sklil_load_gensine(lil);
    sklil_load_osc(lil);
    sklil_load_reg(lil);
    sklil_load_buffer(lil);
    sklil_load_bigverb(lil);
    sklil_load_fmpair(lil);
    sklil_load_dcblocker(lil);
    sklil_load_smoother(lil);
    sklil_load_metro(lil);
    sklil_load_mtof(lil);
    sklil_load_expon(lil);
    sklil_load_rline(lil);
    sklil_load_vardelay(lil);
    sklil_load_expmap(lil);
    sklil_load_oscf(lil);
    sklil_load_phasewarp(lil);
    sklil_load_biramp(lil);
    sklil_load_modalres(lil);
    sklil_load_chorus(lil);
    sklil_load_bezier(lil);
    sklil_load_bitnoise(lil);
    sklil_load_chaosnoise(lil);
    sklil_load_peakeq(lil);
    sklil_load_valp1(lil);
    sklil_load_bitosc(lil);
    sklil_load_wavin(lil);
    sklil_load_env(lil);
}

static lil_value_t computes(lil_t lil, size_t argc, lil_value_t *argv)
{
    sk_core *core;
    core = lil_get_data(lil);

    SKLIL_ARITY_CHECK(lil, "computes", argc, 1);

    sk_core_computes(core, lil_to_double(argv[0]));
    return NULL;
}

static lil_value_t param(lil_t lil, size_t argc, lil_value_t *argv)
{
    sk_core *core;
    core = lil_get_data(lil);

    SKLIL_ARITY_CHECK(lil, "param", argc, 1);

    sklil_param(core, argv[0]);
    return NULL;
}

void sklil_loader(lil_t lil)
{
    sk_core *core;
    core = sk_core_new(44100);
    lil_set_data(lil, core);
    sklil_nodes(lil);
    lil_register(lil, "computes", computes);
    lil_register(lil, "param", param);
}

void sklil_clean(lil_t lil)
{
    sk_core *core;
    core = lil_get_data(lil);
    sk_core_del(core);
}