(bind-func lilv_print_all_lv2_plugins
(lambda ()
(let ((size:i32 (lilv_plugins_size lilv_plugins))
(i:i32 0)
(plugin:LilvPlugin* null)
(name:LilvNode* null)
(iterator:LilvIter* (lilv_plugins_begin lilv_plugins)))
(printf "total number of plugins found: %d\n" size)
(dotimes (i size)
(set! plugin (lilv_plugins_get lilv_plugins iterator))
(set! name (lilv_plugin_get_name plugin))
(printf "lv2 plugin: %s\n" (lilv_node_as_string name))
(set! iterator (lilv_plugins_next lilv_plugins iterator)))
void)))