/* 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,
                    uint32_t    index)
{
	struct _Property* class = slv2_port_get_property(p, index, "rdf:type");
	assert(class);
	assert(class->num_values == 1);
	assert(class->values);

	// FIXME FIXME FIXME: leak
	
	if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#ControlRateInputPort"))
		return SLV2_CONTROL_RATE_INPUT;
	else if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#ControlRateOutputPort"))
		return SLV2_CONTROL_RATE_OUTPUT;
	else if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#AudioRateInputPort"))
		return SLV2_AUDIO_RATE_INPUT;
	else if (!strcmp((char*)class->values[0], "http://lv2plug.in/ontology#AudioRateOutputPort"))
		return SLV2_AUDIO_RATE_OUTPUT;
	else {
		fprintf(stderr, "Unknown port class: %s\n", class->values[0]);
		return SLV2_UNKNOWN_PORT_CLASS;
	}
}


char*
slv2_port_get_data_type(SLV2Plugin* p,
                        uint32_t    index)
{
	SLV2Property type = slv2_port_get_property(p, index, "lv2:datatype");
	assert(type);
	assert(type->num_values == 1);
	assert(type->values);

	char* ret = type->values[0];
	type->values[0] = NULL; // prevent deletion

	slv2_property_free(type);
	return ret;
}


SLV2Property
slv2_port_get_property(SLV2Plugin* p,
                       uint32_t    index,
                       const char* property)
{
	assert(p);
	assert(property);

	char index_str[4];
	snprintf(index_str, (size_t)4, "%u", index);
	
	rasqal_init();
	
    char* query = strjoin(
		"SELECT DISTINCT ?value FROM data: WHERE { \n"
		"plugin: lv2:port ?port . \n"
		"?port lv2:index ", index_str, " . \n"
		"?port ", property, " ?value . \n}\n", NULL);

	rasqal_query_results* results = slv2_plugin_run_query(p, query);
	
	SLV2Property result = slv2_query_get_results(results, "value");

	rasqal_free_query_results(results);
	rasqal_finish();
	free(query);

	return result;
}


char*
slv2_port_get_symbol(SLV2Plugin* p,
                     uint32_t    index)
{
	// FIXME: leaks
	char* result = NULL;
	
	SLV2Property prop
		= slv2_port_get_property(p, index, "lv2:symbol");

	if (prop && prop->num_values == 1) {
		result = prop->values[0];
		prop->values[0] = NULL; // prevent deletion
	}
	
	slv2_property_free(prop);

	return result;
}


float
slv2_port_get_default_value(SLV2Plugin* p, 
                            uint32_t    index)
{
	// FIXME: do casting properly in the SPARQL query
	
	float result = 0.0f;
	
	SLV2Property prop
		= slv2_port_get_property(p, index, "lv2:default");

	if (prop && prop->num_values == 1)
		result = atof((char*)prop->values[0]);
	
	slv2_property_free(prop);

	return result;
}


float
slv2_port_get_minimum_value(SLV2Plugin* p, 
                            uint32_t    index)
{
	// FIXME: do casting properly in the SPARQL query
	
	float result = 0.0f;
	
	SLV2Property prop
		= slv2_port_get_property(p, index, "lv2:minimum");

	if (prop && prop->num_values == 1)
		result = atof((char*)prop->values[0]);
	
	slv2_property_free(prop);

	return result;
}


float
slv2_port_get_maximum_value(SLV2Plugin* p, 
                            uint32_t    index)
{
	// FIXME: do casting properly in the SPARQL query
	
	float result = 0.0f;
	
	SLV2Property prop
		= slv2_port_get_property(p, index, "lv2:maximum");

	if (prop && prop->num_values == 1)
		result = atof((char*)prop->values[0]);
	
	slv2_property_free(prop);

	return result;
}