modules/rocket: preliminary rocket module

This just stubs out a rocket meta module that renders with
another module.

Future commits will integrate GNU Rocket here.

When recursive settings formally lands you'll be able to nest as
much settings content as necessary for the underlying module
used, as part of the rocket settings.  That should enable
describing stuff like complex compose scenarios for rocket to
sequence.

2 files changed, 141 insertions, 0 deletions

diff --git a/src/modules/rocket/Makefile.am b/src/modules/rocket/Makefile.am
new file mode 100644
index 0000000..96da9aa
--- /dev/null
+++ b/src/modules/rocket/Makefile.am
@@ -0,0 +1,3 @@
+noinst_LTLIBRARIES = librocket.la
+librocket_la_SOURCES = rocket.c
+librocket_la_CPPFLAGS = -I@top_srcdir@/src -I@top_srcdir@/src/libs -I@top_srcdir@/src/libs/rocket/rocket/lib
diff --git a/src/modules/rocket/rocket.c b/src/modules/rocket/rocket.c
new file mode 100644
index 0000000..1ad2c51
--- /dev/null
+++ b/src/modules/rocket/rocket.c
@@ -0,0 +1,138 @@
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+
+#include "til.h"
+#include "til_fb.h"
+#include "til_module_context.h"
+#include "til_settings.h"
+#include "til_util.h"
+
+#include "txt/txt.h"
+
+/* Copyright (C) 2023 - Vito Caputo <vcaputo@pengaru.com> */
+
+/* This implements a rudimentary sequencing module varying
+ * "tapped" variables of other modules on a timeline via
+ * GNU Rocket.
+ */
+
+typedef struct rocket_context_t {
+	til_module_context_t	til_module_context;
+
+	const til_module_t	*module;
+	til_module_context_t	*module_ctxt;
+	char			*module_settings;
+} rocket_context_t;
+
+typedef struct rocket_setup_t {
+	til_setup_t		til_setup;
+	const char		*module;
+} rocket_setup_t;
+
+static rocket_setup_t rocket_default_setup = { .module = "rtv" };
+
+
+static til_module_context_t * rocket_create_context(til_stream_t *stream, unsigned seed, unsigned ticks, unsigned n_cpus, char *path, til_setup_t *setup)
+{
+	rocket_context_t	*ctxt;
+	const til_module_t	*module;
+
+	if (!setup)
+		setup = &rocket_default_setup.til_setup;
+
+	module = til_lookup_module(((rocket_setup_t *)setup)->module);
+	if (!module)
+		return NULL;
+
+	ctxt = til_module_context_new(stream, sizeof(rocket_context_t), seed, ticks, n_cpus, path);
+	if (!ctxt)
+		return NULL;
+
+	ctxt->module = module;
+
+	{
+		til_setup_t	*module_setup = NULL;
+
+		(void) til_module_randomize_setup(ctxt->module, rand_r(&seed), &module_setup, NULL);
+
+		(void) til_module_create_context(ctxt->module, stream, rand_r(&seed), ticks, 0, path, module_setup, &ctxt->module_ctxt);
+		til_setup_free(module_setup);
+	}
+
+	return &ctxt->til_module_context;
+}
+
+
+static void rocket_destroy_context(til_module_context_t *context)
+{
+	rocket_context_t	*ctxt = (rocket_context_t *)context;
+
+	til_module_context_free(ctxt->module_ctxt);
+	free(context);
+}
+
+
+static void rocket_render_fragment(til_module_context_t *context, til_stream_t *stream, unsigned ticks, unsigned cpu, til_fb_fragment_t **fragment_ptr)
+{
+	rocket_context_t	*ctxt = (rocket_context_t *)context;
+
+	til_module_render(ctxt->module_ctxt, stream, ticks, fragment_ptr);
+}
+
+
+static int rocket_setup(const til_settings_t *settings, til_setting_t **res_setting, const til_setting_desc_t **res_desc, til_setup_t **res_setup)
+{
+	const char	*module;
+	int		r;
+
+	r = til_settings_get_and_describe_value(settings,
+						&(til_setting_desc_t){
+							.name = "Module to sequence",
+							.key = "module",
+							.preferred = "rtv",
+							.annotations = NULL,
+						},
+						&module,
+						res_setting,
+						res_desc);
+	if (r)
+		return r;
+
+	/* turn layers colon-separated list into a null-terminated array of strings */
+	if (res_setup) {
+		const til_module_t	*til_module;
+		rocket_setup_t		*setup;
+
+		if (!strcmp(module, "rocket"))
+			return -EINVAL;
+
+		til_module = til_lookup_module(module);
+		if (!til_module)
+			return -ENOENT;
+
+		if (til_module->flags & (TIL_MODULE_HERMETIC | TIL_MODULE_EXPERIMENTAL))
+			return -EINVAL;
+
+		setup = til_setup_new(sizeof(*setup), (void(*)(til_setup_t *))free);
+		if (!setup)
+			return -ENOMEM;
+
+		setup->module = til_module->name;
+
+		*res_setup = &setup->til_setup;
+	}
+
+	return 0;
+}
+
+
+til_module_t	rocket_module = {
+	.create_context = rocket_create_context,
+	.destroy_context = rocket_destroy_context,
+	.render_fragment = rocket_render_fragment,
+	.name = "rocket",
+	.description = "GNU Rocket module sequencer",
+	.setup = rocket_setup,
+	.flags = TIL_MODULE_HERMETIC | TIL_MODULE_EXPERIMENTAL,
+};