#include <stdio.h>
#include <stdlib.h>
#include "../include.h"

#include <fluidsynth.h>

struct fluidsynth_userdata {
	fluid_settings_t *settings;
	fluid_synth_t *synth;
	fluid_player_t *player;
	int soundfont;
};


static void fluidsynth_callback(void *userdata, unsigned char *stream, int const length) {
	struct fluidsynth_userdata *fs = userdata;
	fluid_synth_write_float(fs->synth, length / sizeof (float) / 2, stream, 0, 2, stream, 1, 2);
}

static void fluidsynth_free(void *ptr) {
	struct fluidsynth_userdata *fs = ptr;
	fluid_player_stop(fs->player);
	delete_fluid_player(fs->player);
	fluid_player_play(fs->player);
	fluid_synth_sfunload(fs->synth, fs->soundfont, 0);
	delete_fluid_synth(fs->synth);
	delete_fluid_settings(fs->settings);
	free(fs);
}

int module_fluidsynth(struct blob *file, struct userdata *userdata) {
	struct fluidsynth_userdata *fs = malloc(sizeof (struct fluidsynth_userdata));
	if (fs == NULL) {
		return 1;
	}
	fs->settings = new_fluid_settings(); // wasteful, but when trying to 'fix' it it just caused more errors
	fluid_settings_setnum(fs->settings, "synth.gain", 0.5);
	fluid_settings_setint(fs->settings, "player.reset-synth", 0);
	fluid_settings_setnum(fs->settings, "synth.sample-rate", SAMPLE_RATE);
	fs->synth = new_fluid_synth(fs->settings);
	char *soundfont_path = getenv("SOUNDFONT");
	if (soundfont_path == NULL) {
		soundfont_path = "/usr/share/sounds/sf2/default-GM.sf2";
	}
	fs->soundfont = fluid_synth_sfload(fs->synth, soundfont_path, 1); // ugly hack
	fs->player = new_fluid_player(fs->synth);
	fluid_player_set_loop(fs->player, -1);
	if (fluid_player_add_mem(fs->player, file->data, file->size) == FLUID_FAILED) {
		fluidsynth_free(fs);
		return 1;
	}
	fluid_player_play(fs->player);
	userdata->callback = fluidsynth_callback;
	userdata->user = fs;
	userdata->freefunc = fluidsynth_free;
	return 0;
}