/* lv2_inspect - Display information about an LV2 plugin.
 * Copyright (C) 2007 Dave Robillard <drobilla.net>
 *  
 * This program 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 program 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.
 */

#include <stdlib.h>
#include <stdio.h>
#include <slv2/slv2.h>


void
print_port(SLV2Plugin p, uint32_t index)
{
	SLV2Port port = slv2_plugin_get_port_by_index(p, index);

	char* str = NULL;
	SLV2PortClass cl = SLV2_UNKNOWN_PORT_CLASS;

	printf("\n\tPort %d:\n", index);
	
	cl = slv2_port_get_class(p, port);
	printf("\t\tClass: ");
	switch (cl) {
	case SLV2_CONTROL_INPUT:
		printf("Control input");
		break;
	case SLV2_CONTROL_OUTPUT:
		printf("Control output");
		break;
	case SLV2_AUDIO_INPUT:
		printf("Audio input");
		break;
	case SLV2_AUDIO_OUTPUT:
		printf("Audio output");
		break;
	case SLV2_MIDI_INPUT:
		printf("MIDI input");
		break;
	case SLV2_MIDI_OUTPUT:
		printf("MIDI output");
		break;
	case SLV2_UNKNOWN_PORT_CLASS:
		printf("Unknown");
		break;
	}

	printf("\n");
	str = slv2_port_get_symbol(p, port);
	printf("\t\tSymbol: %s\n", str);
	free(str);
	
	str = slv2_port_get_name(p, port);
	printf("\t\tName: %s\n", str);
	free(str);

	if (cl == SLV2_CONTROL_INPUT ||
	    cl == SLV2_CONTROL_OUTPUT) {
		printf("\t\tMinimum: %f\n", slv2_port_get_minimum_value(p, port));
		printf("\t\tMaximum: %f\n", slv2_port_get_maximum_value(p, port));
		printf("\t\tDefault: %f\n", slv2_port_get_default_value(p, port));
	}

	printf("\t\tProperties:\n");
	SLV2Values properties = slv2_port_get_properties(p, port);
	for (unsigned i=0; i < slv2_values_size(properties); ++i)
		printf("\t\t\t%s\n", slv2_value_as_uri(slv2_values_get_at(properties, i)));
	slv2_values_free(properties);
	
	printf("\t\tHints:\n");
	SLV2Values hints = slv2_port_get_hints(p, port);
	for (unsigned i=0; i < slv2_values_size(hints); ++i)
		printf("\t\t\t%s\n", slv2_value_as_uri(slv2_values_get_at(hints, i)));
	slv2_values_free(hints);
}

void
print_plugin(SLV2Plugin p)
{
	char* str = NULL;

	printf("<%s>\n\n", slv2_plugin_get_uri(p));
	
	str = slv2_plugin_get_name(p);
	printf("\tName: %s\n\n", str);
	free(str);
	
	const char* class_label = slv2_plugin_class_get_label(slv2_plugin_get_class(p));
	printf("\tClass: %s\n\n", class_label);

	if (slv2_plugin_has_latency(p)) {
		uint32_t latency_port = slv2_plugin_get_latency_port(p);
		printf("\tHas latency: yes, reported by port %d\n\n", latency_port);
	} else {
		printf("\tHas latency: no\n\n");
	}

	printf("\tBinary: %s\n\n", slv2_plugin_get_library_uri(p));

	SLV2Values gui = slv2_plugin_get_value(p, SLV2_URI,
			"http://ll-plugins.nongnu.org/lv2/ext/gtk2gui#gui");
	if (slv2_values_size(gui) > 0) {
		printf("\tGUI:\n");
		for (unsigned i=0; i < slv2_values_size(gui); ++i) {
			printf("\t\t%s\n", slv2_value_as_string(slv2_values_get_at(gui, i)));
			SLV2Values binary = slv2_plugin_get_value_for_subject(p,
					slv2_values_get_at(gui, i),
					SLV2_URI,
					"http://ll-plugins.nongnu.org/lv2/ext/gtk2gui#binary");
	
			if (slv2_values_size(binary) > 0)
				printf("\t\t\tBinary: %s\n", slv2_value_as_uri(slv2_values_get_at(binary, 0)));
	
			slv2_value_free(binary);
		}
	}
	slv2_values_free(gui);

	//SLV2Values gui = slv2_plugin_get_value_for_subject(p,
	//		"<http://ll-plugins.nongnu.org/lv2/ext/gtk2gui#gui>");

	printf("\n\tData URIs:\n");
	SLV2Values data_uris = slv2_plugin_get_data_uris(p);
	for (unsigned i=0; i < slv2_values_size(data_uris); ++i)
		printf("\t\t%s\n", slv2_value_as_uri(slv2_values_get_at(data_uris, i)));

	/* Properties */

	SLV2Values v = slv2_plugin_get_properties(p);
	
	if (slv2_values_size(v) > 0)
		printf("\n\tProperties:\n");

	for (unsigned i=0; i < slv2_values_size(v); ++i)
		printf("\t\t%s\n", slv2_value_as_uri(slv2_values_get_at(v, i)));
	slv2_values_free(v);
	

	/* Hints */

	v = slv2_plugin_get_hints(p);

	if (slv2_values_size(v) > 0)
		printf("\n\tHints:\n");

	for (unsigned i=0; i < slv2_values_size(v); ++i)
		printf("\t\t%s\n", slv2_value_as_uri(slv2_values_get_at(v, i)));
	slv2_values_free(v);


	/* Ports */

	uint32_t num_ports = slv2_plugin_get_num_ports(p);
	
	//printf("\n\t# Ports: %d\n", num_ports);
	
	for (uint32_t i=0; i < num_ports; ++i)
		print_port(p, i);
}


	
int
main(int argc, char** argv)
{
	SLV2World world = slv2_world_new();
	slv2_world_load_all(world);

	if (argc != 2) {
		fprintf(stderr, "Usage: %s PLUGIN_URI\n", argv[0]);
		return -1;
	}

	SLV2Plugins plugins = slv2_world_get_all_plugins(world);

	SLV2Plugin p = slv2_plugins_get_by_uri(plugins, argv[1]);

	if (p) {
		print_plugin(p);
	} else {
		fprintf(stderr, "Plugin not found.\n");
		return -1;
	}

	slv2_plugins_free(world, plugins);
	slv2_world_free(world);

	return (p != NULL ? 0 : -1);
}