Add new LV2 unit test.

1 files changed, 377 insertions, 0 deletions

diff --git a/test/lv2_test_host.cc b/test/lv2_test_host.cc
new file mode 100644
index 0000000..5f10c6b
--- /dev/null
+++ b/test/lv2_test_host.cc
@@ -0,0 +1,377 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/***************************************************************************
+ *            lv2_test_host.cc
+ *
+ *  Wed Feb 11 23:11:21 CET 2015
+ *  Copyright 2015 Bent Bisballe Nyeng
+ *  deva@aasimon.org
+ ****************************************************************************/
+
+/*
+ *  This file is part of DrumGizmo.
+ *
+ *  DrumGizmo 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.
+ *
+ *  DrumGizmo 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 DrumGizmo; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
+ */
+#include "lv2_test_host.h"
+
+#include <serd/serd.h>
+
+#include <string.h>
+#include <stdlib.h>
+
+#include <lv2/lv2plug.in/ns/ext/atom/forge.h>
+#include <lv2/lv2plug.in/ns/ext/state/state.h>
+#include <lv2/lv2plug.in/ns/ext/midi/midi.h>
+
+///////////////////////////////
+// Base64 encoder:
+//
+#include <openssl/bio.h>
+#include <openssl/err.h>
+#include <openssl/evp.h>
+#include <string>
+class Base64 {
+public:
+	Base64()
+	{
+		mbio = (void*)BIO_new(BIO_s_mem());
+		BIO *b64bio = BIO_new(BIO_f_base64());
+		bio = (void*)BIO_push(b64bio, (BIO*)mbio);
+	}
+
+	~Base64()
+	{
+		BIO_free_all((BIO*)bio);
+	}
+
+	std::string write(std::string in)
+	{
+		return this->write(in.data(), in.length());
+	}
+
+	std::string write(const char *in, size_t size)
+	{
+		std::string out;
+		
+		BIO_write((BIO*)bio, in, size);
+
+		size_t osize = BIO_ctrl_pending((BIO*)mbio);
+		char *outbuf = (char*)malloc(osize);
+
+		int len = BIO_read((BIO*)mbio, outbuf, osize);
+		if(len < 1) return "";
+		out.append(outbuf, len);
+
+		free(outbuf);
+		
+		return out;
+	}
+	
+	std::string flush()
+	{
+		std::string out;
+		
+		(void)BIO_flush((BIO*)bio);
+
+		size_t size = BIO_ctrl_pending((BIO*)mbio);
+		char *outbuf = (char*)malloc(size);
+
+		int len = BIO_read((BIO*)mbio, outbuf, size);
+		if(len < 1) return "";
+		out.append(outbuf, len);
+
+		free(outbuf);
+		
+		return out;
+	}
+
+private:
+	void *bio;
+	void *mbio;
+};
+//
+// Base64 encoder
+///////////////////////////////
+
+
+// TODO: Use map<int, std::string> instead
+static char** uris = NULL;
+static size_t n_uris = 0;
+
+static LV2_URID map_uri(LV2_URID_Map_Handle handle, const char* uri)
+{
+	for(size_t i = 0; i < n_uris; ++i) {
+		if(!strcmp(uris[i], uri)) {
+			return i + 1;
+		}
+	}
+
+	uris = (char**)realloc(uris, ++n_uris * sizeof(char*));
+	uris[n_uris - 1] = strdup(uri);
+
+	return n_uris;
+}
+
+static const char* unmap_uri(LV2_URID_Map_Handle handle, LV2_URID urid)
+{
+	if(urid > 0 && urid <= n_uris) {
+		return uris[urid - 1];
+	}
+	return NULL;
+}
+
+LV2_URID_Map       map           = { NULL, map_uri };
+LV2_Feature        map_feature   = { LV2_URID_MAP_URI, &map };
+LV2_URID_Unmap     unmap         = { NULL, unmap_uri };
+LV2_Feature        unmap_feature = { LV2_URID_UNMAP_URI, &unmap };
+const LV2_Feature* features[]    = { &map_feature, &unmap_feature, NULL };
+
+LV2TestHost::Sequence::Sequence(void *buffer, size_t buffer_size)
+{
+  this->buffer = buffer;
+  this->buffer_size = buffer_size;
+
+	seq = (LV2_Atom_Sequence *)buffer;
+
+	seq->atom.size = sizeof(LV2_Atom_Sequence_Body);
+	seq->atom.type = map.map(map.handle, LV2_ATOM__Sequence);
+	seq->body.unit = 0;
+	seq->body.pad = 0;
+}
+
+void LV2TestHost::Sequence::clear()
+{
+  lv2_atom_sequence_clear(seq);
+}
+
+void LV2TestHost::Sequence::addMidiNote(uint64_t pos,
+                                        uint8_t key, int8_t velocity)
+{
+	typedef struct {
+		LV2_Atom_Event event;
+		uint8_t        msg[3];
+	} MIDINoteEvent;
+
+	uint8_t note_on = 0x90;
+
+	MIDINoteEvent ev;
+	ev.event.time.frames = pos;// sample position
+	ev.event.body.type = map.map(map.handle, LV2_MIDI__MidiEvent);
+	ev.event.body.size = sizeof(MIDINoteEvent);
+ 
+	ev.msg[0] = note_on;
+	ev.msg[1] = key;
+	ev.msg[2] = velocity;
+
+	LV2_Atom_Event *e =
+		lv2_atom_sequence_append_event(seq, this->buffer_size, &ev.event);
+  (void)e;
+}
+
+void *LV2TestHost::Sequence::data()
+{
+  return buffer;
+}
+
+LV2TestHost::LV2TestHost(const char *lv2_path)
+{
+	if(lv2_path) {
+    setenv("LV2_PATH", lv2_path, 1);
+  }
+
+	world = lilv_world_new();
+  if(world == NULL) return;
+
+	lilv_world_load_all(world);
+}
+
+LV2TestHost::~LV2TestHost()
+{
+	if(world) lilv_world_free(world);
+}
+
+int LV2TestHost::open(const char *plugin_uri)
+{
+  if(world == NULL) return 1;
+
+	plugins = lilv_world_get_all_plugins(world);
+  if(plugins == NULL) return 2;
+
+	uri = lilv_new_uri(world, plugin_uri);
+	if(uri == NULL) return 3;
+
+	plugin = lilv_plugins_get_by_uri(plugins, uri);
+  if(plugin == NULL) return 4;
+
+
+  return 0;
+}
+
+int LV2TestHost::verify()
+{
+	bool verify = lilv_plugin_verify(plugin);
+  if(!verify) return 1;
+  return 0;
+}
+
+int LV2TestHost::close()
+{
+  // plugin is a const pointer; nothing to close here.
+  return 0;
+}
+
+/* // Get metadata
+
+static void dumpNodes(LilvNodes *nodes)
+{
+	LilvIter* iter = lilv_nodes_begin(nodes);
+	while(iter) {
+		const LilvNode* node = lilv_nodes_get(nodes, iter);
+		printf(" - '%s'\n", lilv_node_as_uri(node));
+		iter = lilv_nodes_next(nodes, iter);
+	}
+}
+
+void getMetadata()
+{
+	LilvNode* name = lilv_plugin_get_name(plugin);
+	if(name) printf("Name: %s\n", lilv_node_as_uri(name));
+
+	// ---> line 731 in lilv.h
+	bool has_latency = lilv_plugin_has_latency(plugin);
+	printf("Has latency: %d\n", has_latency);
+
+	if(has_latency) {
+		uint32_t latency_port_index = lilv_plugin_get_latency_port_index(plugin);
+		const LilvPort* port =
+			lilv_plugin_get_port_by_index(plugin, latency_port_index);
+		// Do something to actually get latency from port....
+	}
+
+	LilvNode* author = lilv_plugin_get_author_name(plugin);
+	if(author) printf("Author: %s\n", lilv_node_as_uri(author));
+
+	LilvNode* email = lilv_plugin_get_author_email(plugin);
+	if(email) printf("Email: %s\n", lilv_node_as_uri(email));
+
+	LilvNode* homepage = lilv_plugin_get_author_homepage(plugin);
+	if(homepage) printf("Homepage: %s\n", lilv_node_as_uri(homepage));
+
+	LilvNodes* supported = lilv_plugin_get_supported_features(plugin);
+	LilvNodes* required = lilv_plugin_get_required_features(plugin);
+	LilvNodes* optional = lilv_plugin_get_optional_features(plugin);
+
+	printf("Supported:\n");
+	dumpNodes(supported);
+
+	printf("Required:\n");
+	dumpNodes(required);
+
+	printf("Optional:\n");
+	dumpNodes(optional);
+
+	lilv_nodes_free(supported);
+	lilv_nodes_free(required);
+	lilv_nodes_free(optional);
+}
+*/
+/*
+int LV2TestHost::getPorts()
+{
+	// Iterate ports:
+	const LilvPort* port;
+	uint32_t portidx = 0;
+	while( (port = lilv_plugin_get_port_by_index(plugin, portidx)) != 0) {
+		printf("Port: %d\n", portidx);
+
+		LilvNode* port_name = lilv_port_get_name(plugin, port);
+		if(port_name) printf("  Name: %s\n", lilv_node_as_uri(port_name));
+
+		portidx++;
+	}
+}
+*/
+int LV2TestHost::createInstance()
+{
+	instance = lilv_plugin_instantiate(plugin, 48000, features);
+  if(instance == NULL) return 1;
+  return 0;
+}
+
+int LV2TestHost::destroyInstance()
+{
+  if(instance) lilv_instance_free(instance);
+  return 0;
+}
+
+int LV2TestHost::activate()
+{
+	lilv_instance_activate(instance);
+  return 0;
+}
+
+int LV2TestHost::deactivate()
+{
+	lilv_instance_deactivate(instance);
+  return 0;
+}
+
+int LV2TestHost::loadConfig(const char *config, size_t size)
+{
+	Base64 b64;
+	std::string b64_config = b64.write(config, size);
+	b64_config += b64.flush();
+
+	//printf("Base 64 config: [%s]\n", b64_config.c_str());
+
+	const char ttl_config_fmt[] =
+		"<http://drumgizmo.org/lv2/atom#config>\n"
+		"        a pset:Preset ;\n"
+		"        lv2:appliesTo <http://drumgizmo.org/lv2> ;\n"
+		"        state:state [\n"
+		"                <http://drumgizmo.org/lv2/atom#config> \"\"\"%s\"\"\"^^xsd:base64Binary\n"
+		"        ] .\n";
+
+	char ttl_config[sizeof(ttl_config_fmt) * 2 + b64_config.size()];
+	sprintf(ttl_config, ttl_config_fmt, b64_config.c_str());
+
+	//printf("ttl config: [%s]\n", ttl_config);
+
+	{
+		LilvState* restore_state =
+			lilv_state_new_from_string(world, &map, ttl_config);
+		
+		lilv_state_restore(restore_state, instance, NULL, NULL,
+											 LV2_STATE_IS_POD | LV2_STATE_IS_PORTABLE,
+											 features);
+	}
+
+  return 0;
+}
+
+int LV2TestHost::connectPort(int port, void *portdata)
+{
+  //  if(lilv_port_is_a(p, port, lv2_ControlPort)) ...
+
+	lilv_instance_connect_port(instance, port, portdata);
+
+  return 0;
+}
+
+int LV2TestHost::run(int num_samples)
+{
+  lilv_instance_run(instance, num_samples);
+  return 0;
+}