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.

3 files changed, 142 insertions, 1 deletions

diff --git a/src/modules/Makefile.am b/src/modules/Makefile.am
index f88879e..1ce37de 100644
--- a/src/modules/Makefile.am
+++ b/src/modules/Makefile.am
@@ -1 +1 @@
-SUBDIRS = blinds checkers compose drizzle flui2d julia meta2d moire montage pixbounce plasma plato ray roto rtv shapes snow sparkler spiro stars strobe submit swab swarm voronoi
+SUBDIRS = blinds checkers compose drizzle flui2d julia meta2d moire montage pixbounce plasma plato ray rocket roto rtv shapes snow sparkler spiro stars strobe submit swab swarm voronoi
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,
+};