aboutsummaryrefslogtreecommitdiffstats
path: root/src/control.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/control.c')
-rw-r--r--src/control.c40
1 files changed, 40 insertions, 0 deletions
diff --git a/src/control.c b/src/control.c
index 3a0a0a0..ed26ff1 100644
--- a/src/control.c
+++ b/src/control.c
@@ -38,11 +38,17 @@ new_port_control(Jalv* jalv, uint32_t index)
ControlID* id = (ControlID*)calloc(1, sizeof(ControlID));
id->jalv = jalv;
id->type = PORT;
+ id->node = lilv_node_duplicate(lilv_port_get_node(plug, lport));
+ id->symbol = lilv_node_duplicate(lilv_port_get_symbol(plug, lport));
+ id->label = lilv_port_get_name(plug, lport);
id->index = index;
+ id->group = lilv_port_get(plug, lport, jalv->nodes.pg_group);
id->min = lilv_port_get(plug, lport, nodes->lv2_minimum);
id->max = lilv_port_get(plug, lport, nodes->lv2_maximum);
id->def = lilv_port_get(plug, lport, nodes->lv2_default);
id->value_type = jalv->forge.Float;
+ id->is_writable = lilv_port_is_a(plug, lport, nodes->lv2_InputPort);
+ id->is_readable = lilv_port_is_a(plug, lport, nodes->lv2_OutputPort);
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);
@@ -63,6 +69,32 @@ new_port_control(Jalv* jalv, uint32_t index)
}
}
+ /* Get scale points */
+ LilvScalePoints* sp = lilv_port_get_scale_points(plug, lport);
+ if (sp) {
+ id->points = (ScalePoint*)malloc(
+ lilv_scale_points_size(sp) * sizeof(ScalePoint));
+ size_t np = 0;
+ LILV_FOREACH(scale_points, s, sp) {
+ const LilvScalePoint* p = lilv_scale_points_get(sp, s);
+ if (lilv_node_is_float(lilv_scale_point_get_value(p)) ||
+ lilv_node_is_int(lilv_scale_point_get_value(p))) {
+ id->points[np].value = lilv_node_as_float(
+ lilv_scale_point_get_value(p));
+ id->points[np].label = strdup(
+ lilv_node_as_string(lilv_scale_point_get_label(p)));
+ ++np;
+ }
+ /* TODO: Non-float scale points? */
+ }
+
+ qsort(id->points, np, sizeof(ScalePoint),
+ (int (*)(const void*, const void*))scale_point_cmp);
+ id->n_points = np;
+
+ lilv_scale_points_free(sp);
+ }
+
return id;
}
@@ -82,6 +114,9 @@ new_property_control(Jalv* jalv, const LilvNode* property)
ControlID* id = (ControlID*)calloc(1, sizeof(ControlID));
id->jalv = jalv;
id->type = PROPERTY;
+ id->node = lilv_node_duplicate(property);
+ id->symbol = lilv_world_get_symbol(jalv->world, property);
+ id->label = lilv_world_get(jalv->world, property, jalv->nodes.rdfs_label, NULL);
id->property = jalv->map.map(jalv, lilv_node_as_uri(property));
id->min = lilv_world_get(jalv->world, property, jalv->nodes.lv2_minimum, NULL);
@@ -104,6 +139,11 @@ new_property_control(Jalv* jalv, const LilvNode* property)
id->is_integer = (id->value_type == jalv->forge.Int ||
id->value_type == jalv->forge.Long);
+ const size_t sym_len = strlen(lilv_node_as_string(id->symbol));
+ if (sym_len > jalv->longest_sym) {
+ jalv->longest_sym = sym_len;
+ }
+
if (!id->value_type) {
fprintf(stderr, "Unknown value type for property <%s>\n",
lilv_node_as_string(property));