Support atom:supports in lilv_port_supports_event() (fix #857).

git-svn-id: http://svn.drobilla.net/lad/trunk/lilv@4857 a436a847-0d15-0410-975c-d299462d15a1

1 files changed, 14 insertions, 5 deletions

diff --git a/src/port.c b/src/port.c
index 782ca60..91ba71c 100644
--- a/src/port.c
+++ b/src/port.c
@@ -20,6 +20,7 @@
 #include <stdlib.h>
 #include <string.h>
 
+#include "lv2/lv2plug.in/ns/ext/atom/atom.h"
 #include "lv2/lv2plug.in/ns/ext/event/event.h"
 
 #include "lilv_internal.h"
@@ -81,11 +82,19 @@ lilv_port_supports_event(const LilvPlugin* p,
                          const LilvPort*   port,
                          const LilvNode*   event)
 {
-	return lilv_world_ask_internal(
-		p->world,
-		port->node,
-		sord_new_uri(p->world->world, (const uint8_t*)LV2_EVENT__supportsEvent),
-		lilv_node_as_node(event));
+	const uint8_t* predicates[] = { (const uint8_t*)LV2_EVENT__supportsEvent,
+	                                (const uint8_t*)LV2_ATOM__supports,
+	                                NULL };
+
+	for (const uint8_t** pred = predicates; *pred; ++pred) {
+		if (lilv_world_ask_internal(p->world,
+		                            port->node,
+		                            sord_new_uri(p->world->world, *pred),
+		                            lilv_node_as_node(event))) {
+			return true;
+		}
+	}
+	return false;
 }
 
 static LilvNodes*