Moved libslv2 into it's own subdirectory

git-svn-id: http://svn.drobilla.net/lad/libslv2@4 a436a847-0d15-0410-975c-d299462d15a1

1 files changed, 163 insertions, 0 deletions

diff --git a/src/port.c b/src/port.c
new file mode 100644
index 0000000..e25eb2f
--- /dev/null
+++ b/src/port.c
@@ -0,0 +1,163 @@
+/* LibSLV2
+ * Copyright (C) 2006 Dave Robillard <drobilla@connect.carleton.ca>
+ *  
+ * This library is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the Free
+ * Software Foundation; either version 2 of the License, or (at your option)
+ * any later version.
+ *
+ * This library is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * You should have received a copy of the GNU General Public License along
+ * with this program; if not, write to the Free Software Foundation, Inc.,
+ * 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
+ */
+
+#define _XOPEN_SOURCE 500
+#include <assert.h>
+#include <stdlib.h>
+#include <string.h>
+#include <slv2/port.h>
+#include <slv2/types.h>
+#include <slv2/query.h>
+#include "util.h"
+
+enum SLV2PortClass
+slv2_port_get_class(SLV2Plugin*   p,
+                    unsigned long index)
+{
+	struct _Property* class = slv2_port_get_property(p, index, U("rdf:type"));
+	assert(class);
+	assert(class->num_values == 1);
+	assert(class->values);
+
+	if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#InputControlRatePort"))
+		return SLV2_CONTROL_RATE_INPUT;
+	else if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#OutputControlRatePort"))
+		return SLV2_CONTROL_RATE_OUTPUT;
+	else if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#InputAudioRatePort"))
+		return SLV2_AUDIO_RATE_INPUT;
+	else if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#OutputAudioRatePort"))
+		return SLV2_AUDIO_RATE_OUTPUT;
+	else
+		return SLV2_UNKNOWN_PORT_CLASS;
+}
+
+
+enum SLV2DataType
+slv2_port_get_data_type(SLV2Plugin* p,
+                        unsigned long index)
+{
+	SLV2Property type = slv2_port_get_property(p, index, U("lv2:datatype"));
+	assert(type);
+	assert(type->num_values == 1);
+	assert(type->values);
+
+	if (!strcmp((char*)type->values[0], "http://lv2plug.in/ontology#float"))
+		return SLV2_DATA_TYPE_FLOAT;
+	else
+		return SLV2_UNKNOWN_DATA_TYPE;
+}
+
+
+SLV2Property
+slv2_port_get_property(SLV2Plugin* p,
+                       unsigned long index,
+                       const uchar*  property)
+{
+	assert(p);
+	assert(property);
+
+	char index_str[4];
+	snprintf(index_str, 4, "%ld", index);
+	
+	rasqal_init();
+	
+	rasqal_query_results* results = slv2_plugin_run_query(p,
+		U("SELECT DISTINCT ?value FROM data: WHERE { \n"
+		  "plugin: lv2:port ?port \n"
+		  "?port lv2:index "), index_str, U(" \n"
+		  "?port "), property, U(" ?value . \n}\n"), 0);
+	
+	SLV2Property result = slv2_query_get_results(results);
+
+	rasqal_free_query_results(results);
+	rasqal_finish();
+	
+	return result;
+}
+
+
+uchar*
+slv2_port_get_symbol(SLV2Plugin* p, unsigned long index)
+{
+	// FIXME: leaks
+	uchar* result = NULL;
+	
+	SLV2Property prop
+		= slv2_port_get_property(p, index, U("lv2:symbol"));
+
+	if (prop && prop->num_values == 1)
+		result = (uchar*)strdup((char*)prop->values[0]);
+	free(prop);
+
+	return result;
+}
+
+
+float
+slv2_port_get_default_value(SLV2Plugin* p, 
+                            unsigned long index)
+{
+	// FIXME: do casting properly in the SPARQL query
+	
+	float result = 0.0f;
+	
+	SLV2Property prop
+		= slv2_port_get_property(p, index, U("lv2:default"));
+
+	if (prop && prop->num_values == 1)
+		result = atof((char*)prop->values[0]);
+	
+	return result;
+}
+
+
+float
+slv2_port_get_minimum_value(SLV2Plugin* p, 
+                            unsigned long index)
+{
+	// FIXME: do casting properly in the SPARQL query
+	
+	float result = 0.0f;
+	
+	SLV2Property prop
+		= slv2_port_get_property(p, index, U("lv2:minimum"));
+
+	if (prop && prop->num_values == 1)
+		result = atof((char*)prop->values[0]);
+	
+	return result;
+}
+
+
+float
+slv2_port_get_maximum_value(SLV2Plugin* p, 
+                            unsigned long index)
+{
+	// FIXME: do casting properly in the SPARQL query
+	
+	float result = 0.0f;
+	
+	SLV2Property prop
+		= slv2_port_get_property(p, index, U("lv2:maximum"));
+
+	if (prop && prop->num_values == 1)
+		result = atof((char*)prop->values[0]);
+	
+	return result;
+}
+