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