Support numeric and string plugin properties

Also:

* Print plugin/UI communication log in colour if supported
* Update UI when internal plugin state is changed during preset load


git-svn-id: http://svn.drobilla.net/lad/trunk/jalv@5812 a436a847-0d15-0410-975c-d299462d15a1

1 files changed, 129 insertions, 0 deletions

diff --git a/src/control.c b/src/control.c
new file mode 100644
index 0000000..1921785
--- /dev/null
+++ b/src/control.c
@@ -0,0 +1,129 @@
+/*
+  Copyright 2007-2015 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.
+*/
+
+#include "jalv_internal.h"
+
+int
+scale_point_cmp(const ScalePoint* a, const ScalePoint* b)
+{
+	if (a->value < b->value) {
+		return -1;
+	} else if (a->value == b->value) {
+		return 0;
+	}
+	return 1;
+}
+
+ControlID*
+new_port_control(Jalv* jalv, uint32_t index)
+{
+	struct Port*      port  = &jalv->ports[index];
+	const LilvPort*   lport = port->lilv_port;
+	const LilvPlugin* plug  = jalv->plugin;
+	const JalvNodes*  nodes = &jalv->nodes;
+
+	ControlID* id = (ControlID*)calloc(1, sizeof(ControlID));
+	id->jalv           = jalv;
+	id->type           = PORT;
+	id->index          = index;
+	id->is_toggle      = lilv_port_has_property(plug, lport, nodes->lv2_toggled);
+	id->is_integer     = lilv_port_has_property(plug, lport, nodes->lv2_integer);
+	id->is_enumeration = lilv_port_has_property(plug, lport, nodes->lv2_enumeration);
+	id->is_logarithmic = lilv_port_has_property(plug, lport, nodes->pprops_logarithmic);
+
+	lilv_port_get_range(plug, lport, &id->def, &id->min, &id->max);
+	if (lilv_port_has_property(plug, lport, jalv->nodes.lv2_sampleRate)) {
+		/* Adjust range for lv2:sampleRate controls */
+		if (lilv_node_is_float(id->min)) {
+			const float min = lilv_node_as_float(id->min) * jalv->sample_rate;
+			lilv_node_free(id->min);
+			id->min = lilv_new_float(jalv->world, min);
+		}
+		if (lilv_node_is_float(id->max)) {
+			const float max = lilv_node_as_float(id->max) * jalv->sample_rate;
+			lilv_node_free(id->max);
+			id->max = lilv_new_float(jalv->world, max);
+		}
+	}
+
+	return id;
+}
+
+static bool
+has_range(Jalv* jalv, const LilvNode* subject, const char* range_uri)
+{
+	LilvNode*  range  = lilv_new_uri(jalv->world, range_uri);
+	const bool result = lilv_world_ask(
+		jalv->world, subject, jalv->nodes.rdfs_range, range);
+	lilv_node_free(range);
+	return result;
+}
+
+ControlID*
+new_property_control(Jalv* jalv, const LilvNode* property)
+{
+	ControlID* id = (ControlID*)calloc(1, sizeof(ControlID));
+	id->jalv     = jalv;
+	id->type     = PROPERTY;
+	id->property = jalv->map.map(jalv, lilv_node_as_uri(property));
+
+	id->min = lilv_world_get(jalv->world, property, jalv->nodes.lv2_minimum, NULL);
+	id->max = lilv_world_get(jalv->world, property, jalv->nodes.lv2_maximum, NULL);
+	id->def = lilv_world_get(jalv->world, property, jalv->nodes.lv2_default, NULL);
+
+	const char* const types[] = {
+		LV2_ATOM__Int, LV2_ATOM__Long, LV2_ATOM__Float, LV2_ATOM__Double,
+		LV2_ATOM__Bool, LV2_ATOM__String, LV2_ATOM__Path, NULL
+	};
+
+	for (const char*const* t = types; *t; ++t) {
+		if (has_range(jalv, property, *t)) {
+			id->value_type = jalv->map.map(jalv, *t);
+			break;
+		}
+	}
+
+	id->is_toggle  = (id->value_type == jalv->forge.Bool);
+	id->is_integer = (id->value_type == jalv->forge.Int ||
+	                  id->value_type == jalv->forge.Long);
+
+	if (!id->value_type) {
+		fprintf(stderr, "Unknown value type for property <%s>\n",
+		        lilv_node_as_string(property));
+	}
+
+	return id;
+}
+
+void
+add_control(Controls* controls, ControlID* control)
+{
+	controls->controls = realloc(
+		controls->controls, (controls->n_controls + 1) * sizeof(ControlID*));
+	controls->controls[controls->n_controls++] = control;
+}
+
+ControlID*
+get_property_control(const Controls* controls, LV2_URID property)
+{
+	for (size_t i = 0; i < controls->n_controls; ++i) {
+		if (controls->controls[i]->property == property) {
+			return controls->controls[i];
+		}
+	}
+
+	return NULL;
+}