working copy...first push

1 files changed, 224 insertions, 0 deletions

diff --git a/src/state.c b/src/state.c
new file mode 100644
index 0000000..5afbb24
--- /dev/null
+++ b/src/state.c
@@ -0,0 +1,224 @@
+/*
+  Copyright 2007-2014 David Robillard <http://drobilla.net>
+
+  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.
+
+  THIS 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.
+*/
+
+#define _POSIX_C_SOURCE 200112L /* for fileno */
+#define _BSD_SOURCE 1 /* for lockf */
+
+#include <assert.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <unistd.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+
+#ifdef HAVE_LV2_STATE
+#    include "lv2/lv2plug.in/ns/ext/state/state.h"
+#endif
+
+#include "lilv/lilv.h"
+
+#include "jalv_config.h"
+#include "LV2-render_internal.h"
+
+#define NS_JALV "http://drobilla.net/ns/jalv#"
+#define NS_RDF  "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+#define NS_RDFS "http://www.w3.org/2000/01/rdf-schema#"
+#define NS_XSD  "http://www.w3.org/2001/XMLSchema#"
+
+#define USTR(s) ((const uint8_t*)s)
+
+char*
+jalv_make_path(LV2_State_Make_Path_Handle handle,
+               const char*                path)
+{
+	Jalv* jalv = (Jalv*)handle;
+
+	// Create in save directory if saving, otherwise use temp directory
+	const char* dir = (jalv->save_dir) ? jalv->save_dir : jalv->temp_dir;
+
+	char* fullpath = jalv_strjoin(dir, path);
+	fprintf(stderr, "MAKE PATH `%s' => `%s'\n", path, fullpath);
+
+	return fullpath;
+}
+
+static const void*
+get_port_value(const char* port_symbol,
+               void*       user_data,
+               uint32_t*   size,
+               uint32_t*   type)
+{
+	Jalv*        jalv = (Jalv*)user_data;
+	struct Port* port = jalv_port_by_symbol(jalv, port_symbol);
+	if (port && port->flow == FLOW_INPUT && port->type == TYPE_CONTROL) {
+		*size = sizeof(float);
+		*type = jalv->forge.Float;
+		return &port->control;
+	}
+	*size = *type = 0;
+	return NULL;
+}
+
+void
+jalv_save(Jalv* jalv, const char* dir)
+{
+	jalv->save_dir = jalv_strjoin(dir, "/");
+
+	LilvState* const state = lilv_state_new_from_instance(
+		jalv->plugin, jalv->instance, &jalv->map,
+		jalv->temp_dir, dir, dir, dir,
+		get_port_value, jalv,
+		LV2_STATE_IS_POD|LV2_STATE_IS_PORTABLE, NULL);
+
+	lilv_state_save(jalv->world, &jalv->map, &jalv->unmap, state, NULL,
+	                dir, "state.ttl");
+
+	lilv_state_free(state);
+
+	free(jalv->save_dir);
+	jalv->save_dir = NULL;
+}
+
+int
+jalv_load_presets(Jalv* jalv, PresetSink sink, void* data)
+{
+	LilvNodes* presets = lilv_plugin_get_related(jalv->plugin,
+	                                             jalv->nodes.pset_Preset);
+	LILV_FOREACH(nodes, i, presets) {
+		const LilvNode* preset = lilv_nodes_get(presets, i);
+		printf("Preset: %s\n", lilv_node_as_uri(preset));
+		lilv_world_load_resource(jalv->world, preset);
+		LilvNodes* labels = lilv_world_find_nodes(
+			jalv->world, preset, jalv->nodes.rdfs_label, NULL);
+		if (labels) {
+			const LilvNode* label = lilv_nodes_get_first(labels);
+			sink(jalv, preset, label, data);
+			lilv_nodes_free(labels);
+		} else {
+			fprintf(stderr, "Preset <%s> has no rdfs:label\n",
+			        lilv_node_as_string(lilv_nodes_get(presets, i)));
+		}
+	}
+	lilv_nodes_free(presets);
+
+	return 0;
+}
+
+int
+jalv_unload_presets(Jalv* jalv)
+{
+	LilvNodes* presets = lilv_plugin_get_related(jalv->plugin,
+	                                             jalv->nodes.pset_Preset);
+	LILV_FOREACH(nodes, i, presets) {
+		const LilvNode* preset = lilv_nodes_get(presets, i);
+		lilv_world_unload_resource(jalv->world, preset);
+	}
+	lilv_nodes_free(presets);
+
+	return 0;
+}
+
+static void
+set_port_value(const char* port_symbol,
+               void*       user_data,
+               const void* value,
+               uint32_t    size,
+               uint32_t    type)
+{
+	Jalv*        jalv = (Jalv*)user_data;
+	struct Port* port = jalv_port_by_symbol(jalv, port_symbol);
+	if (!port) {
+		fprintf(stderr, "error: Preset port `%s' is missing\n", port_symbol);
+		return;
+	}
+
+	float fvalue;
+	if (type == jalv->forge.Float) {
+		fvalue = *(const float*)value;
+	} else if (type == jalv->forge.Double) {
+		fvalue = *(const double*)value;
+	} else if (type == jalv->forge.Int) {
+		fvalue = *(const int32_t*)value;
+	} else if (type == jalv->forge.Long) {
+		fvalue = *(const int64_t*)value;
+	} else {
+		fprintf(stderr, "error: Preset `%s' value has bad type <%s>\n",
+		        port_symbol, jalv->unmap.unmap(jalv->unmap.handle, type));
+		return;
+	}
+
+	if (jalv->play_state != JALV_RUNNING) {
+		// Set value on port struct directly
+		port->control = fvalue;
+	}
+
+}
+
+void
+jalv_apply_state(Jalv* jalv, LilvState* state)
+{
+	if (state) {
+		const bool must_pause = (jalv->play_state == JALV_RUNNING);
+		if (must_pause) {
+			jalv->play_state = JALV_PAUSE_REQUESTED;
+			zix_sem_wait(&jalv->paused);
+		}
+
+		lilv_state_restore(
+			state, jalv->instance, set_port_value, jalv, 0, NULL);
+
+		if (must_pause) {
+			jalv->play_state = JALV_RUNNING;
+		}
+	}
+}
+
+int
+jalv_apply_preset(Jalv* jalv, const LilvNode* preset)
+{
+	LilvState* state = lilv_state_new_from_world(
+		jalv->world, &jalv->map, preset);
+	jalv_apply_state(jalv, state);
+	lilv_state_free(state);
+	return 0;
+}
+
+int
+jalv_save_preset(Jalv*       jalv,
+                 const char* dir,
+                 const char* uri,
+                 const char* label,
+                 const char* filename)
+{
+	LilvState* const state = lilv_state_new_from_instance(
+		jalv->plugin, jalv->instance, &jalv->map,
+		jalv->temp_dir, dir, dir, dir,
+		get_port_value, jalv,
+		LV2_STATE_IS_POD|LV2_STATE_IS_PORTABLE, NULL);
+
+	if (label) {
+		lilv_state_set_label(state, label);
+	}
+
+	int ret = lilv_state_save(
+		jalv->world, &jalv->map, &jalv->unmap, state, uri, dir, filename);
+
+	lilv_state_free(state);
+
+	return ret;
+}