Changeset 2130

Timestamp:

06/19/09 15:33:10 (15 months ago)

Author:

drobilla

Message:

Display port group information.

Files:

• trunk/slv2/utils/lv2_inspect.c (modified) (7 diffs)

trunk/slv2/utils/lv2_inspect.c

@@ -27 +27 @@
 SLV2Value event_class   = NULL;
 SLV2Value control_class = NULL;
+SLV2Value in_group_pred = NULL;
+SLV2Value role_pred     = NULL;
+
+void
+print_group(SLV2Plugin p, SLV2Value group, SLV2Value symbol)
+{
+        printf("\n\tGroup %s:\n", slv2_value_as_string(group));
+        printf("\t\tSymbol: %s\n", slv2_value_as_string(symbol));
+}
 
 void
@@ -42 +51 @@
         SLV2Values classes = slv2_port_get_classes(p, port);
 
-        printf("\t\tClasses:\n");
+        printf("\t\tType:       ");
         for (unsigned i=0; i < slv2_values_size(classes); ++i) {
-                printf("\t\t\t%s\n", slv2_value_as_uri(slv2_values_get_at(classes, i)));
+                printf("%s", slv2_value_as_uri(slv2_values_get_at(classes, i)));
+                if (i != slv2_values_size(classes) - 1)
+                        printf("\n\t\t            ");
         }
 
@@ -61 +72 @@
         SLV2ScalePoints points = slv2_port_get_scale_points(p, port);
         if (points)
-                printf("\t\tScale Points:\n");
+                printf("\n\t\tScale Points:\n");
         for (unsigned i=0; i < slv2_scale_points_size(points); ++i) {
                 SLV2ScalePoint p = slv2_scale_points_get_at(points, i);
@@ -76 +87 @@
         printf("\t\tName:       %s\n", slv2_value_as_string(val));
         slv2_value_free(val);
+
+        SLV2Values groups = slv2_port_get_value(p, port, in_group_pred);
+        if (slv2_values_size(groups) > 0)
+                printf("\t\tGroup:      %s\n", slv2_value_as_string(slv2_values_get_at(groups, 0)));
+        slv2_values_free(groups);
+
+        SLV2Values roles = slv2_port_get_value(p, port, role_pred);
+        if (slv2_values_size(roles) > 0)
+                printf("\t\tRole:       %s\n", slv2_value_as_string(slv2_values_get_at(roles, 0)));
+        slv2_values_free(roles);
 
         if (slv2_port_is_a(p, port, control_class)) {
@@ -169 +190 @@
         }
         slv2_uis_free(uis);
-
-        //SLV2Values ui = slv2_plugin_get_value_for_subject(p,
-        //              "<http://ll-plugins.nongnu.org/lv2/ext/gtk2ui#ui>");
 
         printf("\tData URIs:         ");
@@ -232 +250 @@
 
 
+        /* Groups */
+
+        SLV2Results groups = slv2_plugin_query_sparql(p, "\
+PREFIX pg: <http://lv2plug.in/ns/dev/port-groups#> \
+PREFIX dc:  <http://dublincore.org/documents/dcmi-namespace/> \
+SELECT DISTINCT ?group ?sym WHERE {\n"
+"       <>     lv2:port   ?port .\n"
+"       ?port  pg:inGroup ?group .\n"
+"       ?group lv2:symbol ?sym .\n"
+"}");
+        for (; !slv2_results_finished(groups); slv2_results_next(groups)) {
+                SLV2Value group  = slv2_results_get_binding_value(groups, 0);
+                SLV2Value symbol = slv2_results_get_binding_value(groups, 1);
+                print_group(p, group, symbol);
+        }
+        slv2_results_free(groups);
+
+
         /* Ports */
 
@@ -281 +317 @@
         event_class = slv2_value_new_uri(world, SLV2_PORT_CLASS_EVENT);
         control_class = slv2_value_new_uri(world, SLV2_PORT_CLASS_CONTROL);
+        in_group_pred = slv2_value_new_uri(world, "http://lv2plug.in/ns/dev/port-groups#inGroup");
+        role_pred = slv2_value_new_uri(world, "http://lv2plug.in/ns/dev/port-groups#role");
 
         if (argc != 2) {