From 6ad5c37141cedcf00ef46ca2fd6bd141eca81d60 Mon Sep 17 00:00:00 2001 From: David Robillard Date: Mon, 29 Sep 2008 03:10:19 +0000 Subject: Add slv2_port_get_value. git-svn-id: http://svn.drobilla.net/lad/trunk/slv2@1533 a436a847-0d15-0410-975c-d299462d15a1 --- src/port.c | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) (limited to 'src/port.c') diff --git a/src/port.c b/src/port.c index 9166fcc..cffbd0e 100644 --- a/src/port.c +++ b/src/port.c @@ -150,6 +150,44 @@ slv2_port_get_value_by_qname(SLV2Plugin p, } +SLV2Values +slv2_port_get_value(SLV2Plugin p, + SLV2Port port, + SLV2Value predicate) +{ + char* query = NULL; + + /* Hack around broken RASQAL, full URI predicates don't work :/ */ + + if (predicate->type == SLV2_VALUE_URI) { + query = slv2_strjoin( + "PREFIX slv2predicate: <", slv2_value_as_string(predicate), ">", + "SELECT DISTINCT ?value WHERE { \n" + "<", slv2_value_as_uri(p->plugin_uri), "> lv2:port ?port .\n" + "?port lv2:symbol \"", slv2_value_as_string(port->symbol), "\";\n\t", + " slv2predicate: ?value .\n" + "}\n", NULL); + } else if (predicate->type == SLV2_VALUE_QNAME) { + query = slv2_strjoin( + "SELECT DISTINCT ?value WHERE { \n" + "<", slv2_value_as_uri(p->plugin_uri), "> lv2:port ?port .\n" + "?port lv2:symbol \"", slv2_value_as_string(port->symbol), "\";\n\t", + slv2_value_as_string(predicate), " ?value .\n" + "}\n", NULL); + } else { + fprintf(stderr, "slv2_port_get_value error: " + "predicate is not a URI or QNAME\n"); + return NULL; + } + + SLV2Values result = slv2_plugin_query_variable(p, query, 0); + + free(query); + + return result; +} + + SLV2Value slv2_port_get_symbol(SLV2Plugin p, SLV2Port port) -- cgit v1.2.1