/*
 * js-music.c -- music support (Javascript bindings)
 *
 * Copyright (c) 2020-2023 David Demelier <markand@malikania.fr>
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <assert.h>

#include <mlk/core/alloc.h>
#include <mlk/core/err.h>
#include <mlk/core/music.h>
#include <mlk/core/vfs.h>

#include "js-music.h"
#include "js.h"

#define SYMBOL DUK_HIDDEN_SYMBOL("mlk::music")
#define PROTO  DUK_HIDDEN_SYMBOL("mlk::music::proto")

static struct mlk_music *
mlk_js_music_this(duk_context *ctx)
{
	struct mlk_music *mus;

	duk_push_this(ctx);
	duk_get_prop_string(ctx, -1, SYMBOL);
	mus = duk_to_pointer(ctx, -1);
	duk_pop_n(ctx, 2);

	if (!mus)
		duk_error(ctx, DUK_ERR_TYPE_ERROR, "Not a Music object");

	return mus;
}

static duk_ret_t
mlk_js_music_pause(duk_context *ctx)
{
	mlk_music_pause(mlk_js_music_this(ctx));

	return 0;
}

static duk_ret_t
mlk_js_music_resume(duk_context *ctx)
{
	mlk_music_resume(mlk_js_music_this(ctx));

	return 0;
}

static duk_ret_t
mlk_js_music_stop(duk_context *ctx)
{
	mlk_music_stop(mlk_js_music_this(ctx));

	return 0;
}

static duk_ret_t
mlk_js_music_play(duk_context *ctx)
{
	struct mlk_music *mus = mlk_js_music_this(ctx);
	enum mlk_music_flags flags = duk_get_uint(ctx, 0);

	if (mlk_music_play(mus, flags) < 0)
		return duk_error(ctx, DUK_ERR_ERROR, "%s", mlk_err());

	return 0;
}

static duk_ret_t
mlk_js_music_finish(duk_context *ctx)
{
	struct mlk_music *mus;

	duk_get_prop_string(ctx, 0, SYMBOL);

	if ((mus = duk_to_pointer(ctx, -1))) {
		mlk_music_finish(mus);
		mlk_alloc_free(mus);
	}

	duk_pop(ctx);
	duk_del_prop_string(ctx, 0, SYMBOL);

	return 0;
}

static duk_ret_t
mlk_js_music_fromFile(duk_context *ctx)
{
	const char *path = duk_require_string(ctx, 0);
	struct mlk_music mus;

	if (mlk_music_open(&mus, path) < 0)
		return duk_error(ctx, DUK_ERR_ERROR, "%s", mlk_err());

	mlk_js_music_push(ctx, &mus);

	return 1;
}

static duk_ret_t
mlk_js_music_fromVFS(duk_context *ctx)
{
	const char *path = duk_require_string(ctx, 0);
	struct mlk_vfs *vfs = mlk_js_require(ctx)->vfs;
	struct mlk_vfs_file *file;
	struct mlk_music mus;
	int rv;

	if (!(file = mlk_vfs_open(vfs, path, "r")))
		return duk_error(ctx, DUK_ERR_ERROR, "%s", mlk_err());

	rv = mlk_music_openvfs(&mus, file);
	mlk_vfs_file_finish(file);

	if (rv < 0)
		return duk_error(ctx, DUK_ERR_ERROR, "%s", mlk_err());

	mlk_js_music_push(ctx, &mus);

	return 1;
}

static const duk_number_list_entry flags[] = {
	{ "NONE",       MLK_MUSIC_NONE                          },
	{ "LOOP",       MLK_MUSIC_LOOP                          },
	{ NULL,         0                                       }
};

static const duk_function_list_entry methods[] = {
	{ "pause",      mlk_js_music_pause,     0               },
	{ "resume",     mlk_js_music_resume,    0               },
	{ "stop",       mlk_js_music_stop,      DUK_VARARGS     },
	{ "play",       mlk_js_music_play,      DUK_VARARGS     },
	{ NULL,         NULL,                   0               }
};

static const duk_function_list_entry functions[] = {
	{ "fromFile",   mlk_js_music_fromFile,  1               },
	{ "fromVFS",    mlk_js_music_fromVFS,   1               },
	{ NULL,         NULL,                   0               }
};

void
mlk_js_music_load(duk_context *ctx)
{
	assert(ctx);

	duk_push_global_object(ctx);
	duk_get_prop_string(ctx, -1, "Mlk");
	duk_push_object(ctx);
	duk_put_function_list(ctx, -1, functions);
	duk_put_number_list(ctx, -1, flags);
	duk_push_object(ctx);
	duk_put_function_list(ctx, -1, methods);
	duk_push_c_function(ctx, mlk_js_music_finish, 1);
	duk_set_finalizer(ctx, -2);
	duk_push_global_stash(ctx);
	duk_dup(ctx, -2);
	duk_put_prop_string(ctx, -2, PROTO);
	duk_pop(ctx);
	duk_put_prop_string(ctx, -2, "prototype");
	duk_put_prop_string(ctx, -2, "Music");
	duk_pop_n(ctx, 2);
}

void
mlk_js_music_push(duk_context *ctx, const struct mlk_music *mus)
{
	assert(ctx);
	assert(mus);

	duk_push_object(ctx);
	duk_push_global_stash(ctx);
	duk_get_prop_string(ctx, -1, PROTO);
	duk_remove(ctx, -2);
	duk_push_pointer(ctx, mlk_alloc_dup(mus, 1, sizeof (*mus)));
	duk_put_prop_string(ctx, -3, SYMBOL);
	duk_set_prototype(ctx, -2);
}