From 72ddaae31b6746f2d0f889c3b7cba38512952b94 Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Fri, 27 Dec 2013 19:47:45 +0000
Subject: Implement lv2:prototype.

git-svn-id: http://svn.drobilla.net/lad/trunk/lilv@5219 a436a847-0d15-0410-975c-d299462d15a1
---
 src/lilv_internal.h |  1 +
 src/plugin.c        | 22 ++++++++++++++++++++++
 src/world.c         |  3 ++-
 3 files changed, 25 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/lilv_internal.h b/src/lilv_internal.h
index 502d214..99bdee1 100644
--- a/src/lilv_internal.h
+++ b/src/lilv_internal.h
@@ -173,6 +173,7 @@ struct LilvWorldImpl {
 		SordNode* lv2_reportsLatency;
 		SordNode* lv2_requiredFeature;
 		SordNode* lv2_symbol;
+		SordNode* lv2_prototype;
 		SordNode* null_uri;
 		SordNode* pset_value;
 		SordNode* rdf_a;
diff --git a/src/plugin.c b/src/plugin.c
index 4383cc0..0ff7f9f 100644
--- a/src/plugin.c
+++ b/src/plugin.c
@@ -142,6 +142,28 @@ lilv_plugin_load(LilvPlugin* p)
 	SerdReader* reader = sord_new_reader(p->world->model, env, SERD_TURTLE,
 	                                     bundle_uri_node);
 
+	SordIter* prototypes = sord_search(p->world->model,
+	                                   p->plugin_uri->node,
+	                                   p->world->uris.lv2_prototype,
+	                                   NULL, NULL);
+	FOREACH_MATCH(prototypes) {
+		const SordNode* t         = sord_iter_get_node(prototypes, SORD_OBJECT);
+		LilvNode*       prototype = lilv_node_new_from_node(p->world, t);
+
+		lilv_world_load_resource(p->world, prototype);
+
+		SordIter* statements = sord_search(
+			p->world->model, prototype->node, NULL, NULL, NULL);
+		FOREACH_MATCH(statements) {
+			SordQuad quad;
+			sord_iter_get(statements, quad);
+			quad[0] = p->plugin_uri->node;
+			sord_add(p->world->model, quad);
+		}
+
+		lilv_node_free(prototype);
+	}
+
 	// Parse all the plugin's data files into RDF model
 	LILV_FOREACH(nodes, i, p->data_uris) {
 		const LilvNode* data_uri_val  = lilv_nodes_get(p->data_uris, i);
diff --git a/src/world.c b/src/world.c
index e64c5d2..5e1142a 100644
--- a/src/world.c
+++ b/src/world.c
@@ -74,6 +74,7 @@ lilv_world_new(void)
 	world->uris.lv2_reportsLatency  = NEW_URI(LV2_CORE__reportsLatency);
 	world->uris.lv2_requiredFeature = NEW_URI(LV2_CORE__requiredFeature);
 	world->uris.lv2_symbol          = NEW_URI(LV2_CORE__symbol);
+	world->uris.lv2_prototype       = NEW_URI(LV2_CORE__prototype);
 	world->uris.pset_value          = NEW_URI(LV2_PRESETS__value);
 	world->uris.rdf_a               = NEW_URI(LILV_NS_RDF  "type");
 	world->uris.rdf_value           = NEW_URI(LILV_NS_RDF  "value");
@@ -322,7 +323,7 @@ lilv_world_add_spec(LilvWorld*      world,
 	spec->bundle    = sord_node_copy(bundle_node);
 	spec->data_uris = lilv_nodes_new();
 
-	// Add all plugin data files (rdfs:seeAlso)
+	// Add all data files (rdfs:seeAlso)
 	SordIter* files = sord_search(
 		world->model,
 		specification_node,
-- 
cgit v1.2.1