libs/ardour/lv2_plugin.cc

   1 /*
   2     Copyright (C) 2008-2012 Paul Davis
   3     Author: David Robillard
   4
   5     This program is free software; you can redistribute it and/or modify
   6     it under the terms of the GNU General Public License as published by
   7     the Free Software Foundation; either version 2 of the License, or
   8     (at your option) any later version.
   9
  10     This program is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13     GNU General Public License for more details.
  14
  15     You should have received a copy of the GNU General Public License
  16     along with this program; if not, write to the Free Software
  17     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18 */
  19
  20 #include <string>
  21 #include <vector>
  22 #include <limits>
  23
  24 #include <cmath>
  25 #include <cstdlib>
  26 #include <cstring>
  27
  28 #include <glib/gstdio.h>
  29 #include <glib/gprintf.h>
  30 #include <glibmm.h>
  31
  32 #include <boost/utility.hpp>
  33
  34 #include "pbd/file_utils.h"
  35 #include "pbd/stl_delete.h"
  36 #include "pbd/compose.h"
  37 #include "pbd/error.h"
  38 #include "pbd/xml++.h"
  39
  40 #include "libardour-config.h"
  41
  42 #include "ardour/audio_buffer.h"
  43 #include "ardour/audioengine.h"
  44 #include "ardour/debug.h"
  45 #include "ardour/lv2_plugin.h"
  46 #include "ardour/session.h"
  47 #include "ardour/tempo.h"
  48 #include "ardour/types.h"
  49 #include "ardour/utils.h"
  50 #include "ardour/worker.h"
  51 #include "ardour/search_paths.h"
  52
  53 #include "i18n.h"
  54 #include <locale.h>
  55
  56 #include <lilv/lilv.h>
  57
  58 #include "lv2/lv2plug.in/ns/ext/atom/atom.h"
  59 #include "lv2/lv2plug.in/ns/ext/atom/forge.h"
  60 #include "lv2/lv2plug.in/ns/ext/log/log.h"
  61 #include "lv2/lv2plug.in/ns/ext/midi/midi.h"
  62 #include "lv2/lv2plug.in/ns/ext/port-props/port-props.h"
  63 #include "lv2/lv2plug.in/ns/ext/presets/presets.h"
  64 #include "lv2/lv2plug.in/ns/ext/state/state.h"
  65 #include "lv2/lv2plug.in/ns/ext/time/time.h"
  66 #include "lv2/lv2plug.in/ns/ext/worker/worker.h"
  67 #include "lv2/lv2plug.in/ns/ext/resize-port/resize-port.h"
  68 #include "lv2/lv2plug.in/ns/extensions/ui/ui.h"
  69 #include "lv2/lv2plug.in/ns/ext/patch/patch.h"
  70 #ifdef HAVE_LV2_1_2_0
  71 #include "lv2/lv2plug.in/ns/ext/buf-size/buf-size.h"
  72 #include "lv2/lv2plug.in/ns/ext/options/options.h"
  73 #endif
  74
  75 #include "lv2_evbuf.h"
  76
  77 #ifdef HAVE_SUIL
  78 #include <suil/suil.h>
  79 #endif
  80
  81 // Compatibility for lv2-1.0.0
  82 #ifndef LV2_ATOM_CONTENTS_CONST
  83 #define LV2_ATOM_CONTENTS_CONST(type, atom) \
  84         ((const void*)((const uint8_t*)(atom) + sizeof(type)))
  85 #endif
  86 #ifndef LV2_ATOM_BODY_CONST
  87 #define LV2_ATOM_BODY_CONST(atom) LV2_ATOM_CONTENTS_CONST(LV2_Atom, atom)
  88 #endif
  89
  90 /** The number of MIDI buffers that will fit in a UI/worker comm buffer.
  91     This needs to be roughly the number of cycles the UI will get around to
  92     actually processing the traffic.  Lower values are flakier but save memory.
  93 */
  94 static const size_t NBUFS = 4;
  95
  96 using namespace std;
  97 using namespace ARDOUR;
  98 using namespace PBD;
  99
 100 URIMap LV2Plugin::_uri_map;
 101
 102 LV2Plugin::URIDs LV2Plugin::urids = {
 103         _uri_map.uri_to_id(LV2_ATOM__Chunk),
 104         _uri_map.uri_to_id(LV2_ATOM__Path),
 105         _uri_map.uri_to_id(LV2_ATOM__Sequence),
 106         _uri_map.uri_to_id(LV2_ATOM__eventTransfer),
 107         _uri_map.uri_to_id(LV2_ATOM__URID),
 108         _uri_map.uri_to_id(LV2_ATOM__Blank),
 109         _uri_map.uri_to_id(LV2_ATOM__Object),
 110         _uri_map.uri_to_id(LV2_LOG__Error),
 111         _uri_map.uri_to_id(LV2_LOG__Note),
 112         _uri_map.uri_to_id(LV2_LOG__Warning),
 113         _uri_map.uri_to_id(LV2_MIDI__MidiEvent),
 114         _uri_map.uri_to_id(LV2_TIME__Position),
 115         _uri_map.uri_to_id(LV2_TIME__bar),
 116         _uri_map.uri_to_id(LV2_TIME__barBeat),
 117         _uri_map.uri_to_id(LV2_TIME__beatUnit),
 118         _uri_map.uri_to_id(LV2_TIME__beatsPerBar),
 119         _uri_map.uri_to_id(LV2_TIME__beatsPerMinute),
 120         _uri_map.uri_to_id(LV2_TIME__frame),
 121         _uri_map.uri_to_id(LV2_TIME__speed),
 122         _uri_map.uri_to_id(LV2_PATCH__Get),
 123         _uri_map.uri_to_id(LV2_PATCH__Set),
 124         _uri_map.uri_to_id(LV2_PATCH__property),
 125         _uri_map.uri_to_id(LV2_PATCH__value)
 126 };
 127
 128 class LV2World : boost::noncopyable {
 129 public:
 130         LV2World ();
 131         ~LV2World ();
 132
 133         void load_bundled_plugins(bool verbose=false);
 134
 135         LilvWorld* world;
 136
 137         LilvNode* atom_AtomPort;
 138         LilvNode* atom_Chunk;
 139         LilvNode* atom_Sequence;
 140         LilvNode* atom_bufferType;
 141         LilvNode* atom_eventTransfer;
 142         LilvNode* atom_supports;
 143         LilvNode* ev_EventPort;
 144         LilvNode* ext_logarithmic;
 145         LilvNode* ext_notOnGUI;
 146         LilvNode* lv2_AudioPort;
 147         LilvNode* lv2_ControlPort;
 148         LilvNode* lv2_InputPort;
 149         LilvNode* lv2_OutputPort;
 150         LilvNode* lv2_enumeration;
 151         LilvNode* lv2_freewheeling;
 152         LilvNode* lv2_inPlaceBroken;
 153         LilvNode* lv2_integer;
 154         LilvNode* lv2_reportsLatency;
 155         LilvNode* lv2_sampleRate;
 156         LilvNode* lv2_toggled;
 157         LilvNode* midi_MidiEvent;
 158         LilvNode* rdfs_comment;
 159         LilvNode* rdfs_label;
 160         LilvNode* rdfs_range;
 161         LilvNode* rsz_minimumSize;
 162         LilvNode* time_Position;
 163         LilvNode* ui_GtkUI;
 164         LilvNode* ui_external;
 165         LilvNode* ui_externalkx;
 166         LilvNode* units_unit;
 167         LilvNode* units_midiNote;
 168         LilvNode* patch_writable;
 169         LilvNode* patch_Message;
 170
 171 private:
 172         bool _bundle_checked;
 173 };
 174
 175 static LV2World _world;
 176
 177 /* worker extension */
 178
 179 /** Called by the plugin to schedule non-RT work. */
 180 static LV2_Worker_Status
 181 work_schedule(LV2_Worker_Schedule_Handle handle,
 182               uint32_t                   size,
 183               const void*                data)
 184 {
 185         LV2Plugin* plugin = (LV2Plugin*)handle;
 186         if (plugin->session().engine().freewheeling()) {
 187                 // Freewheeling, do the work immediately in this (audio) thread
 188                 return (LV2_Worker_Status)plugin->work(size, data);
 189         } else {
 190                 // Enqueue message for the worker thread
 191                 return plugin->worker()->schedule(size, data) ?
 192                         LV2_WORKER_SUCCESS : LV2_WORKER_ERR_UNKNOWN;
 193         }
 194 }
 195
 196 /** Called by the plugin to respond to non-RT work. */
 197 static LV2_Worker_Status
 198 work_respond(LV2_Worker_Respond_Handle handle,
 199              uint32_t                  size,
 200              const void*               data)
 201 {
 202         LV2Plugin* plugin = (LV2Plugin*)handle;
 203         if (plugin->session().engine().freewheeling()) {
 204                 // Freewheeling, respond immediately in this (audio) thread
 205                 return (LV2_Worker_Status)plugin->work_response(size, data);
 206         } else {
 207                 // Enqueue response for the worker
 208                 return plugin->worker()->respond(size, data) ?
 209                         LV2_WORKER_SUCCESS : LV2_WORKER_ERR_UNKNOWN;
 210         }
 211 }
 212
 213 /* log extension */
 214
 215 static int
 216 log_vprintf(LV2_Log_Handle /*handle*/,
 217             LV2_URID       type,
 218             const char*    fmt,
 219             va_list        args)
 220 {
 221         char* str = NULL;
 222         const int ret = g_vasprintf(&str, fmt, args);
 223         if (type == LV2Plugin::urids.log_Error) {
 224                 error << str << endmsg;
 225         } else if (type == LV2Plugin::urids.log_Warning) {
 226                 warning << str << endmsg;
 227         } else if (type == LV2Plugin::urids.log_Note) {
 228                 info << str << endmsg;
 229         }
 230         // TODO: Toggleable log:Trace message support
 231         return ret;
 232 }
 233
 234 static int
 235 log_printf(LV2_Log_Handle handle,
 236            LV2_URID       type,
 237            const char*    fmt, ...)
 238 {
 239         va_list args;
 240         va_start(args, fmt);
 241         const int ret = log_vprintf(handle, type, fmt, args);
 242         va_end(args);
 243         return ret;
 244 }
 245
 246 struct LV2Plugin::Impl {
 247         Impl() : plugin(0), ui(0), ui_type(0), name(0), author(0), instance(0)
 248                , work_iface(0)
 249                , state(0)
 250         {}
 251
 252         /** Find the LV2 input port with the given designation.
 253          * If found, bufptrs[port_index] will be set to bufptr.
 254          */
 255         const LilvPort* designated_input (const char* uri, void** bufptrs[], void** bufptr);
 256
 257         const LilvPlugin*           plugin;
 258         const LilvUI*               ui;
 259         const LilvNode*             ui_type;
 260         LilvNode*                   name;
 261         LilvNode*                   author;
 262         LilvInstance*               instance;
 263         const LV2_Worker_Interface* work_iface;
 264         LilvState*                  state;
 265         LV2_Atom_Forge              forge;
 266         LV2_Atom_Forge              ui_forge;
 267 };
 268
 269 LV2Plugin::LV2Plugin (AudioEngine& engine,
 270                       Session&     session,
 271                       const void*  c_plugin,
 272                       framecnt_t   rate)
 273         : Plugin (engine, session)
 274         , Workee ()
 275         , _impl(new Impl())
 276         , _features(NULL)
 277         , _worker(NULL)
 278         , _insert_id("0")
 279         , _patch_port_in_index((uint32_t)-1)
 280         , _patch_port_out_index((uint32_t)-1)
 281 {
 282         init(c_plugin, rate);
 283 }
 284
 285 LV2Plugin::LV2Plugin (const LV2Plugin& other)
 286         : Plugin (other)
 287         , Workee ()
 288         , _impl(new Impl())
 289         , _features(NULL)
 290         , _worker(NULL)
 291         , _insert_id(other._insert_id)
 292         , _patch_port_in_index((uint32_t)-1)
 293         , _patch_port_out_index((uint32_t)-1)
 294 {
 295         init(other._impl->plugin, other._sample_rate);
 296
 297         for (uint32_t i = 0; i < parameter_count(); ++i) {
 298                 _control_data[i] = other._shadow_data[i];
 299                 _shadow_data[i]  = other._shadow_data[i];
 300         }
 301 }
 302
 303 void
 304 LV2Plugin::init(const void* c_plugin, framecnt_t rate)
 305 {
 306         DEBUG_TRACE(DEBUG::LV2, "init\n");
 307
 308         _impl->plugin           = (const LilvPlugin*)c_plugin;
 309         _impl->ui               = NULL;
 310         _impl->ui_type          = NULL;
 311         _to_ui                  = NULL;
 312         _from_ui                = NULL;
 313         _control_data           = 0;
 314         _shadow_data            = 0;
 315         _atom_ev_buffers        = 0;
 316         _ev_buffers             = 0;
 317         _bpm_control_port       = 0;
 318         _freewheel_control_port = 0;
 319         _latency_control_port   = 0;
 320         _next_cycle_start       = std::numeric_limits<framepos_t>::max();
 321         _next_cycle_speed       = 1.0;
 322         _block_length           = _engine.samples_per_cycle();
 323         _seq_size               = _engine.raw_buffer_size(DataType::MIDI);
 324         _state_version          = 0;
 325         _was_activated          = false;
 326         _has_state_interface    = false;
 327
 328         _instance_access_feature.URI = "http://lv2plug.in/ns/ext/instance-access";
 329         _data_access_feature.URI     = "http://lv2plug.in/ns/ext/data-access";
 330         _make_path_feature.URI       = LV2_STATE__makePath;
 331         _log_feature.URI             = LV2_LOG__log;
 332         _work_schedule_feature.URI   = LV2_WORKER__schedule;
 333         _work_schedule_feature.data  = NULL;
 334         _def_state_feature.URI       = LV2_STATE_PREFIX "loadDefaultState";  // Post LV2-1.2.0
 335         _def_state_feature.data      = NULL;
 336
 337         const LilvPlugin* plugin = _impl->plugin;
 338
 339         LilvNode* state_iface_uri = lilv_new_uri(_world.world, LV2_STATE__interface);
 340         LilvNode* state_uri       = lilv_new_uri(_world.world, LV2_STATE_URI);
 341         _has_state_interface =
 342                 // What plugins should have (lv2:extensionData state:Interface)
 343                 lilv_plugin_has_extension_data(plugin, state_iface_uri)
 344                 // What some outdated/incorrect ones have
 345                 || lilv_plugin_has_feature(plugin, state_uri);
 346         lilv_node_free(state_uri);
 347         lilv_node_free(state_iface_uri);
 348
 349         _features    = (LV2_Feature**)calloc(11, sizeof(LV2_Feature*));
 350         _features[0] = &_instance_access_feature;
 351         _features[1] = &_data_access_feature;
 352         _features[2] = &_make_path_feature;
 353         _features[3] = _uri_map.uri_map_feature();
 354         _features[4] = _uri_map.urid_map_feature();
 355         _features[5] = _uri_map.urid_unmap_feature();
 356         _features[6] = &_log_feature;
 357
 358         unsigned n_features = 7;
 359 #ifdef HAVE_LV2_1_2_0
 360         _features[n_features++] = &_def_state_feature;
 361 #endif
 362
 363         lv2_atom_forge_init(&_impl->forge, _uri_map.urid_map());
 364         lv2_atom_forge_init(&_impl->ui_forge, _uri_map.urid_map());
 365
 366 #ifdef HAVE_LV2_1_2_0
 367         LV2_URID atom_Int = _uri_map.uri_to_id(LV2_ATOM__Int);
 368         LV2_Options_Option options[] = {
 369                 { LV2_OPTIONS_INSTANCE, 0, _uri_map.uri_to_id(LV2_BUF_SIZE__minBlockLength),
 370                   sizeof(int32_t), atom_Int, &_block_length },
 371                 { LV2_OPTIONS_INSTANCE, 0, _uri_map.uri_to_id(LV2_BUF_SIZE__maxBlockLength),
 372                   sizeof(int32_t), atom_Int, &_block_length },
 373                 { LV2_OPTIONS_INSTANCE, 0, _uri_map.uri_to_id(LV2_BUF_SIZE__sequenceSize),
 374                   sizeof(int32_t), atom_Int, &_seq_size },
 375                 { LV2_OPTIONS_INSTANCE, 0, 0, 0, 0, NULL }
 376         };
 377
 378         _options_feature.URI    = LV2_OPTIONS__options;
 379         _options_feature.data   = options;
 380         _features[n_features++] = &_options_feature;
 381 #endif
 382
 383         LV2_State_Make_Path* make_path = (LV2_State_Make_Path*)malloc(
 384                 sizeof(LV2_State_Make_Path));
 385         make_path->handle = this;
 386         make_path->path = &lv2_state_make_path;
 387         _make_path_feature.data = make_path;
 388
 389         LV2_Log_Log* log = (LV2_Log_Log*)malloc(sizeof(LV2_Log_Log));
 390         log->handle  = this;
 391         log->printf  = &log_printf;
 392         log->vprintf = &log_vprintf;
 393         _log_feature.data = log;
 394
 395         LilvNode* worker_schedule = lilv_new_uri(_world.world, LV2_WORKER__schedule);
 396         if (lilv_plugin_has_feature(plugin, worker_schedule)) {
 397                 LV2_Worker_Schedule* schedule = (LV2_Worker_Schedule*)malloc(
 398                         sizeof(LV2_Worker_Schedule));
 399                 size_t buf_size = _session.engine().raw_buffer_size(DataType::MIDI) * NBUFS;
 400                 _worker                     = new Worker(this, buf_size);
 401                 schedule->handle            = this;
 402                 schedule->schedule_work     = work_schedule;
 403                 _work_schedule_feature.data = schedule;
 404                 _features[n_features++]     = &_work_schedule_feature;
 405         }
 406         lilv_node_free(worker_schedule);
 407
 408         _impl->instance = lilv_plugin_instantiate(plugin, rate, _features);
 409         _impl->name     = lilv_plugin_get_name(plugin);
 410         _impl->author   = lilv_plugin_get_author_name(plugin);
 411
 412         if (_impl->instance == 0) {
 413                 error << _("LV2: Failed to instantiate plugin ") << uri() << endmsg;
 414                 throw failed_constructor();
 415         }
 416
 417         _instance_access_feature.data              = (void*)_impl->instance->lv2_handle;
 418         _data_access_extension_data.extension_data = _impl->instance->lv2_descriptor->extension_data;
 419         _data_access_feature.data                  = &_data_access_extension_data;
 420
 421         LilvNode* worker_iface_uri = lilv_new_uri(_world.world, LV2_WORKER__interface);
 422         if (lilv_plugin_has_extension_data(plugin, worker_iface_uri)) {
 423                 _impl->work_iface = (const LV2_Worker_Interface*)extension_data(
 424                         LV2_WORKER__interface);
 425         }
 426         lilv_node_free(worker_iface_uri);
 427
 428         if (lilv_plugin_has_feature(plugin, _world.lv2_inPlaceBroken)) {
 429                 error << string_compose(
 430                     _("LV2: \"%1\" cannot be used, since it cannot do inplace processing"),
 431                     lilv_node_as_string(_impl->name)) << endmsg;
 432                 lilv_node_free(_impl->name);
 433                 lilv_node_free(_impl->author);
 434                 throw failed_constructor();
 435         }
 436
 437 #ifdef HAVE_LILV_0_16_0
 438         // Load default state
 439         LilvState* state = lilv_state_new_from_world(
 440                 _world.world, _uri_map.urid_map(), lilv_plugin_get_uri(_impl->plugin));
 441         if (state && _has_state_interface) {
 442                 lilv_state_restore(state, _impl->instance, NULL, NULL, 0, NULL);
 443         }
 444 #endif
 445
 446         _sample_rate = rate;
 447
 448         const uint32_t num_ports = this->num_ports();
 449         for (uint32_t i = 0; i < num_ports; ++i) {
 450                 const LilvPort* port  = lilv_plugin_get_port_by_index(_impl->plugin, i);
 451                 PortFlags       flags = 0;
 452                 size_t          minimumSize = 0;
 453
 454                 if (lilv_port_is_a(_impl->plugin, port, _world.lv2_OutputPort)) {
 455                         flags |= PORT_OUTPUT;
 456                 } else if (lilv_port_is_a(_impl->plugin, port, _world.lv2_InputPort)) {
 457                         flags |= PORT_INPUT;
 458                 } else {
 459                         error << string_compose(
 460                                 "LV2: \"%1\" port %2 is neither input nor output",
 461                                 lilv_node_as_string(_impl->name), i) << endmsg;
 462                         throw failed_constructor();
 463                 }
 464
 465                 if (lilv_port_is_a(_impl->plugin, port, _world.lv2_ControlPort)) {
 466                         flags |= PORT_CONTROL;
 467                 } else if (lilv_port_is_a(_impl->plugin, port, _world.lv2_AudioPort)) {
 468                         flags |= PORT_AUDIO;
 469                 } else if (lilv_port_is_a(_impl->plugin, port, _world.ev_EventPort)) {
 470                         flags |= PORT_EVENT;
 471                         flags |= PORT_MIDI;  // We assume old event API ports are for MIDI
 472                 } else if (lilv_port_is_a(_impl->plugin, port, _world.atom_AtomPort)) {
 473                         LilvNodes* buffer_types = lilv_port_get_value(
 474                                 _impl->plugin, port, _world.atom_bufferType);
 475                         LilvNodes* atom_supports = lilv_port_get_value(
 476                                 _impl->plugin, port, _world.atom_supports);
 477
 478                         if (lilv_nodes_contains(buffer_types, _world.atom_Sequence)) {
 479                                 flags |= PORT_SEQUENCE;
 480                                 if (lilv_nodes_contains(atom_supports, _world.midi_MidiEvent)) {
 481                                         flags |= PORT_MIDI;
 482                                 }
 483                                 if (lilv_nodes_contains(atom_supports, _world.time_Position)) {
 484                                         flags |= PORT_POSITION;
 485                                 }
 486                                 if (lilv_nodes_contains(atom_supports, _world.patch_Message)) {
 487                                         flags |= PORT_PATCHMSG;
 488                                         if (flags & PORT_INPUT) {
 489                                                 _patch_port_in_index = i;
 490                                         } else {
 491                                                 _patch_port_out_index = i;
 492                                         }
 493                                 }
 494                         }
 495                         LilvNodes* min_size_v = lilv_port_get_value(_impl->plugin, port, _world.rsz_minimumSize);
 496                         LilvNode* min_size = min_size_v ? lilv_nodes_get_first(min_size_v) : NULL;
 497                         if (min_size && lilv_node_is_int(min_size)) {
 498                                 minimumSize = lilv_node_as_int(min_size);
 499                         }
 500                         lilv_nodes_free(min_size_v);
 501                         lilv_nodes_free(buffer_types);
 502                         lilv_nodes_free(atom_supports);
 503                 } else {
 504                         error << string_compose(
 505                                 "LV2: \"%1\" port %2 has no known data type",
 506                                 lilv_node_as_string(_impl->name), i) << endmsg;
 507                         throw failed_constructor();
 508                 }
 509
 510                 _port_flags.push_back(flags);
 511                 _port_minimumSize.push_back(minimumSize);
 512         }
 513
 514         _control_data = new float[num_ports];
 515         _shadow_data  = new float[num_ports];
 516         _defaults     = new float[num_ports];
 517         _ev_buffers   = new LV2_Evbuf*[num_ports];
 518         memset(_ev_buffers, 0, sizeof(LV2_Evbuf*) * num_ports);
 519
 520         const bool     latent        = lilv_plugin_has_latency(plugin);
 521         const uint32_t latency_index = (latent)
 522                 ? lilv_plugin_get_latency_port_index(plugin)
 523                 : 0;
 524
 525         // Build an array of pointers to special parameter buffers
 526         void*** params = new void**[num_ports];
 527         for (uint32_t i = 0; i < num_ports; ++i) {
 528                 params[i] = NULL;
 529         }
 530         _impl->designated_input (LV2_TIME__beatsPerMinute, params, (void**)&_bpm_control_port);
 531         _impl->designated_input (LV2_CORE__freeWheeling, params, (void**)&_freewheel_control_port);
 532
 533         for (uint32_t i = 0; i < num_ports; ++i) {
 534                 const LilvPort* port = lilv_plugin_get_port_by_index(plugin, i);
 535                 const LilvNode* sym  = lilv_port_get_symbol(plugin, port);
 536
 537                 // Store index in map so we can look up index by symbol
 538                 _port_indices.insert(std::make_pair(lilv_node_as_string(sym), i));
 539
 540                 // Get range and default value if applicable
 541                 if (parameter_is_control(i)) {
 542                         LilvNode* def;
 543                         lilv_port_get_range(plugin, port, &def, NULL, NULL);
 544                         _defaults[i] = def ? lilv_node_as_float(def) : 0.0f;
 545                         if (lilv_port_has_property (plugin, port, _world.lv2_sampleRate)) {
 546                                 _defaults[i] *= _session.frame_rate ();
 547                         }
 548                         lilv_node_free(def);
 549
 550                         lilv_instance_connect_port(_impl->instance, i, &_control_data[i]);
 551
 552                         if (latent && i == latency_index) {
 553                                 _latency_control_port  = &_control_data[i];
 554                                 *_latency_control_port = 0;
 555                         }
 556
 557                         if (parameter_is_input(i)) {
 558                                 _shadow_data[i] = default_value(i);
 559                                 if (params[i]) {
 560                                         *params[i] = (void*)&_shadow_data[i];
 561                                 }
 562                         }
 563                 } else {
 564                         _defaults[i] = 0.0f;
 565                 }
 566         }
 567
 568         delete[] params;
 569
 570         LilvUIs* uis = lilv_plugin_get_uis(plugin);
 571         if (lilv_uis_size(uis) > 0) {
 572 #ifdef HAVE_SUIL
 573                 // Look for embeddable UI
 574                 LILV_FOREACH(uis, u, uis) {
 575                         const LilvUI*   this_ui      = lilv_uis_get(uis, u);
 576                         const LilvNode* this_ui_type = NULL;
 577                         if (lilv_ui_is_supported(this_ui,
 578                                                  suil_ui_supported,
 579                                                  _world.ui_GtkUI,
 580                                                  &this_ui_type)) {
 581                                 // TODO: Multiple UI support
 582                                 _impl->ui      = this_ui;
 583                                 _impl->ui_type = this_ui_type;
 584                                 break;
 585                         }
 586                 }
 587 #else
 588                 // Look for Gtk native UI
 589                 LILV_FOREACH(uis, i, uis) {
 590                         const LilvUI* ui = lilv_uis_get(uis, i);
 591                         if (lilv_ui_is_a(ui, _world.ui_GtkUI)) {
 592                                 _impl->ui      = ui;
 593                                 _impl->ui_type = _world.ui_GtkUI;
 594                                 break;
 595                         }
 596                 }
 597 #endif
 598
 599                 // If Gtk UI is not available, try to find external UI
 600                 if (!_impl->ui) {
 601                         LILV_FOREACH(uis, i, uis) {
 602                                 const LilvUI* ui = lilv_uis_get(uis, i);
 603                                 if (lilv_ui_is_a(ui, _world.ui_externalkx)) {
 604                                         _impl->ui      = ui;
 605                                         _impl->ui_type = _world.ui_external;
 606                                         break;
 607                                 }
 608                                 if (lilv_ui_is_a(ui, _world.ui_external)) {
 609                                         _impl->ui      = ui;
 610                                         _impl->ui_type = _world.ui_external;
 611                                 }
 612                         }
 613                 }
 614         }
 615
 616         allocate_atom_event_buffers();
 617         latency_compute_run();
 618 }
 619
 620 LV2Plugin::~LV2Plugin ()
 621 {
 622         DEBUG_TRACE(DEBUG::LV2, string_compose("%1 destroy\n", name()));
 623
 624         deactivate();
 625         cleanup();
 626
 627         lilv_instance_free(_impl->instance);
 628         lilv_node_free(_impl->name);
 629         lilv_node_free(_impl->author);
 630
 631         free(_features);
 632         free(_make_path_feature.data);
 633         free(_work_schedule_feature.data);
 634
 635         delete _to_ui;
 636         delete _from_ui;
 637         delete _worker;
 638
 639         if (_atom_ev_buffers) {
 640                 LV2_Evbuf**  b = _atom_ev_buffers;
 641                 while (*b) {
 642                         free(*b);
 643                         b++;
 644                 }
 645                 free(_atom_ev_buffers);
 646         }
 647
 648         delete [] _control_data;
 649         delete [] _shadow_data;
 650         delete [] _ev_buffers;
 651 }
 652
 653 bool
 654 LV2Plugin::is_external_ui() const
 655 {
 656         if (!_impl->ui) {
 657                 return false;
 658         }
 659         return lilv_ui_is_a(_impl->ui, _world.ui_external) || lilv_ui_is_a(_impl->ui, _world.ui_externalkx);
 660 }
 661
 662 bool
 663 LV2Plugin::is_external_kx() const
 664 {
 665         if (!_impl->ui) {
 666                 return false;
 667         }
 668         return lilv_ui_is_a(_impl->ui, _world.ui_externalkx);
 669 }
 670
 671 bool
 672 LV2Plugin::ui_is_resizable () const
 673 {
 674         const LilvNode* s   = lilv_ui_get_uri(_impl->ui);
 675         LilvNode*       p   = lilv_new_uri(_world.world, LV2_CORE__optionalFeature);
 676         LilvNode*       fs  = lilv_new_uri(_world.world, LV2_UI__fixedSize);
 677         LilvNode*       nrs = lilv_new_uri(_world.world, LV2_UI__noUserResize);
 678
 679         LilvNodes* fs_matches = lilv_world_find_nodes(_world.world, s, p, fs);
 680         LilvNodes* nrs_matches = lilv_world_find_nodes(_world.world, s, p, nrs);
 681
 682         lilv_nodes_free(nrs_matches);
 683         lilv_nodes_free(fs_matches);
 684         lilv_node_free(nrs);
 685         lilv_node_free(fs);
 686         lilv_node_free(p);
 687
 688         return !fs_matches && !nrs_matches;
 689 }
 690
 691 string
 692 LV2Plugin::unique_id() const
 693 {
 694         return lilv_node_as_uri(lilv_plugin_get_uri(_impl->plugin));
 695 }
 696
 697 const char*
 698 LV2Plugin::uri() const
 699 {
 700         return lilv_node_as_uri(lilv_plugin_get_uri(_impl->plugin));
 701 }
 702
 703 const char*
 704 LV2Plugin::label() const
 705 {
 706         return lilv_node_as_string(_impl->name);
 707 }
 708
 709 const char*
 710 LV2Plugin::name() const
 711 {
 712         return lilv_node_as_string(_impl->name);
 713 }
 714
 715 const char*
 716 LV2Plugin::maker() const
 717 {
 718         return _impl->author ? lilv_node_as_string (_impl->author) : "Unknown";
 719 }
 720
 721 uint32_t
 722 LV2Plugin::num_ports() const
 723 {
 724         return lilv_plugin_get_num_ports(_impl->plugin);
 725 }
 726
 727 uint32_t
 728 LV2Plugin::parameter_count() const
 729 {
 730         return lilv_plugin_get_num_ports(_impl->plugin);
 731 }
 732
 733 float
 734 LV2Plugin::default_value(uint32_t port)
 735 {
 736         return _defaults[port];
 737 }
 738
 739 const char*
 740 LV2Plugin::port_symbol(uint32_t index) const
 741 {
 742         const LilvPort* port = lilv_plugin_get_port_by_index(_impl->plugin, index);
 743         if (!port) {
 744                 error << name() << ": Invalid port index " << index << endmsg;
 745         }
 746
 747         const LilvNode* sym = lilv_port_get_symbol(_impl->plugin, port);
 748         return lilv_node_as_string(sym);
 749 }
 750
 751 uint32_t
 752 LV2Plugin::port_index (const char* symbol) const
 753 {
 754         const map<string, uint32_t>::const_iterator i = _port_indices.find(symbol);
 755         if (i != _port_indices.end()) {
 756                 return  i->second;
 757         } else {
 758                 warning << string_compose(_("LV2: Unknown port %1"), symbol) << endmsg;
 759                 return (uint32_t)-1;
 760         }
 761 }
 762
 763 void
 764 LV2Plugin::set_parameter(uint32_t which, float val)
 765 {
 766         DEBUG_TRACE(DEBUG::LV2, string_compose(
 767                             "%1 set parameter %2 to %3\n", name(), which, val));
 768
 769         if (which < lilv_plugin_get_num_ports(_impl->plugin)) {
 770                 if (get_parameter (which) == val) {
 771                         return;
 772                 }
 773
 774                 _shadow_data[which] = val;
 775         } else {
 776                 warning << string_compose(
 777                     _("Illegal parameter number used with plugin \"%1\". "
 778                       "This is a bug in either %2 or the LV2 plugin <%3>"),
 779                     name(), PROGRAM_NAME, unique_id()) << endmsg;
 780         }
 781
 782         Plugin::set_parameter(which, val);
 783 }
 784
 785 float
 786 LV2Plugin::get_parameter(uint32_t which) const
 787 {
 788         if (parameter_is_input(which)) {
 789                 return (float)_shadow_data[which];
 790         } else {
 791                 return (float)_control_data[which];
 792         }
 793         return 0.0f;
 794 }
 795
 796 std::string
 797 LV2Plugin::get_docs() const
 798 {
 799         LilvNodes* comments = lilv_plugin_get_value(_impl->plugin, _world.rdfs_comment);
 800         if (comments) {
 801                 const std::string docs(lilv_node_as_string(lilv_nodes_get_first(comments)));
 802                 lilv_nodes_free(comments);
 803                 return docs;
 804         }
 805
 806         return "";
 807 }
 808
 809 std::string
 810 LV2Plugin::get_parameter_docs(uint32_t which) const
 811 {
 812         LilvNodes* comments = lilv_port_get_value(
 813                 _impl->plugin,
 814                 lilv_plugin_get_port_by_index(_impl->plugin, which),
 815                 _world.rdfs_comment);
 816
 817         if (comments) {
 818                 const std::string docs(lilv_node_as_string(lilv_nodes_get_first(comments)));
 819                 lilv_nodes_free(comments);
 820                 return docs;
 821         }
 822
 823         return "";
 824 }
 825
 826 uint32_t
 827 LV2Plugin::nth_parameter(uint32_t n, bool& ok) const
 828 {
 829         ok = false;
 830         for (uint32_t c = 0, x = 0; x < lilv_plugin_get_num_ports(_impl->plugin); ++x) {
 831                 if (parameter_is_control(x)) {
 832                         if (c++ == n) {
 833                                 ok = true;
 834                                 return x;
 835                         }
 836                 }
 837         }
 838
 839         return 0;
 840 }
 841
 842 const void*
 843 LV2Plugin::extension_data(const char* uri) const
 844 {
 845         return lilv_instance_get_extension_data(_impl->instance, uri);
 846 }
 847
 848 const void*
 849 LV2Plugin::c_plugin()
 850 {
 851         return _impl->plugin;
 852 }
 853
 854 const void*
 855 LV2Plugin::c_ui()
 856 {
 857         return (const void*)_impl->ui;
 858 }
 859
 860 const void*
 861 LV2Plugin::c_ui_type()
 862 {
 863         return (const void*)_impl->ui_type;
 864 }
 865
 866 /** Directory for all plugin state. */
 867 const std::string
 868 LV2Plugin::plugin_dir() const
 869 {
 870         return Glib::build_filename(_session.plugins_dir(), _insert_id.to_s());
 871 }
 872
 873 /** Directory for files created by the plugin (except during save). */
 874 const std::string
 875 LV2Plugin::scratch_dir() const
 876 {
 877         return Glib::build_filename(plugin_dir(), "scratch");
 878 }
 879
 880 /** Directory for snapshots of files in the scratch directory. */
 881 const std::string
 882 LV2Plugin::file_dir() const
 883 {
 884         return Glib::build_filename(plugin_dir(), "files");
 885 }
 886
 887 /** Directory to save state snapshot version @c num into. */
 888 const std::string
 889 LV2Plugin::state_dir(unsigned num) const
 890 {
 891         return Glib::build_filename(plugin_dir(), string_compose("state%1", num));
 892 }
 893
 894 /** Implementation of state:makePath for files created at instantiation time.
 895  * Note this is not used for files created at save time (Lilv deals with that).
 896  */
 897 char*
 898 LV2Plugin::lv2_state_make_path(LV2_State_Make_Path_Handle handle,
 899                                const char*                path)
 900 {
 901         LV2Plugin* me = (LV2Plugin*)handle;
 902         if (me->_insert_id == PBD::ID("0")) {
 903                 warning << string_compose(
 904                         "File path \"%1\" requested but LV2 %2 has no insert ID",
 905                         path, me->name()) << endmsg;
 906                 return g_strdup(path);
 907         }
 908
 909         const std::string abs_path = Glib::build_filename(me->scratch_dir(), path);
 910         const std::string dirname  = Glib::path_get_dirname(abs_path);
 911         g_mkdir_with_parents(dirname.c_str(), 0744);
 912
 913         DEBUG_TRACE(DEBUG::LV2, string_compose("new file path %1 => %2\n",
 914                                                path, abs_path));
 915
 916         return g_strndup(abs_path.c_str(), abs_path.length());
 917 }
 918
 919 void
 920 LV2Plugin::add_state(XMLNode* root) const
 921 {
 922         assert(_insert_id != PBD::ID("0"));
 923
 924         XMLNode*    child;
 925         char        buf[16];
 926         LocaleGuard lg(X_("POSIX"));
 927
 928         for (uint32_t i = 0; i < parameter_count(); ++i) {
 929                 if (parameter_is_input(i) && parameter_is_control(i)) {
 930                         child = new XMLNode("Port");
 931                         child->add_property("symbol", port_symbol(i));
 932                         snprintf(buf, sizeof(buf), "%+f", _shadow_data[i]);
 933                         child->add_property("value", string(buf));
 934                         root->add_child_nocopy(*child);
 935                 }
 936         }
 937
 938         if (_has_state_interface) {
 939                 // Provisionally increment state version and create directory
 940                 const std::string new_dir = state_dir(++_state_version);
 941                 g_mkdir_with_parents(new_dir.c_str(), 0744);
 942
 943                 LilvState* state = lilv_state_new_from_instance(
 944                         _impl->plugin,
 945                         _impl->instance,
 946                         _uri_map.urid_map(),
 947                         scratch_dir().c_str(),
 948                         file_dir().c_str(),
 949                         _session.externals_dir().c_str(),
 950                         new_dir.c_str(),
 951                         NULL,
 952                         const_cast<LV2Plugin*>(this),
 953                         0,
 954                         NULL);
 955
 956                 if (!_impl->state || !lilv_state_equals(state, _impl->state)) {
 957                         lilv_state_save(_world.world,
 958                                         _uri_map.urid_map(),
 959                                         _uri_map.urid_unmap(),
 960                                         state,
 961                                         NULL,
 962                                         new_dir.c_str(),
 963                                         "state.ttl");
 964
 965                         lilv_state_free(_impl->state);
 966                         _impl->state = state;
 967                 } else {
 968                         // State is identical, decrement version and nuke directory
 969                         lilv_state_free(state);
 970                         PBD::remove_directory(new_dir);
 971                         --_state_version;
 972                 }
 973
 974                 root->add_property("state-dir", string_compose("state%1", _state_version));
 975         }
 976 }
 977
 978 static inline const LilvNode*
 979 get_value(LilvWorld* world, const LilvNode* subject, const LilvNode* predicate)
 980 {
 981         LilvNodes* vs = lilv_world_find_nodes(world, subject, predicate, NULL);
 982         return vs ? lilv_nodes_get_first(vs) : NULL;
 983 }
 984
 985 void
 986 LV2Plugin::find_presets()
 987 {
 988         LilvNode* lv2_appliesTo = lilv_new_uri(_world.world, LV2_CORE__appliesTo);
 989         LilvNode* pset_Preset   = lilv_new_uri(_world.world, LV2_PRESETS__Preset);
 990         LilvNode* rdfs_label    = lilv_new_uri(_world.world, LILV_NS_RDFS "label");
 991
 992         LilvNodes* presets = lilv_plugin_get_related(_impl->plugin, pset_Preset);
 993         LILV_FOREACH(nodes, i, presets) {
 994                 const LilvNode* preset = lilv_nodes_get(presets, i);
 995                 lilv_world_load_resource(_world.world, preset);
 996                 const LilvNode* name = get_value(_world.world, preset, rdfs_label);
 997                 if (name) {
 998                         _presets.insert(std::make_pair(lilv_node_as_string(preset),
 999                                                        Plugin::PresetRecord(
1000                                                                lilv_node_as_string(preset),
1001                                                                lilv_node_as_string(name))));
1002                 } else {
1003                         warning << string_compose(
1004                             _("Plugin \"%1\" preset \"%2\" is missing a label\n"),
1005                             lilv_node_as_string(lilv_plugin_get_uri(_impl->plugin)),
1006                             lilv_node_as_string(preset)) << endmsg;
1007                 }
1008         }
1009         lilv_nodes_free(presets);
1010
1011         lilv_node_free(rdfs_label);
1012         lilv_node_free(pset_Preset);
1013         lilv_node_free(lv2_appliesTo);
1014 }
1015
1016 static void
1017 set_port_value(const char* port_symbol,
1018                void*       user_data,
1019                const void* value,
1020                uint32_t    /*size*/,
1021                uint32_t    type)
1022 {
1023         LV2Plugin* self = (LV2Plugin*)user_data;
1024         if (type != 0 && type != self->_uri_map.uri_to_id(LV2_ATOM__Float)) {
1025                 return;  // TODO: Support non-float ports
1026         }
1027
1028         const uint32_t port_index = self->port_index(port_symbol);
1029         if (port_index != (uint32_t)-1) {
1030                 self->set_parameter(port_index, *(const float*)value);
1031         }
1032 }
1033
1034 bool
1035 LV2Plugin::load_preset(PresetRecord r)
1036 {
1037         LilvWorld* world = _world.world;
1038         LilvNode*  pset  = lilv_new_uri(world, r.uri.c_str());
1039         LilvState* state = lilv_state_new_from_world(world, _uri_map.urid_map(), pset);
1040
1041         if (state) {
1042                 lilv_state_restore(state, _impl->instance, set_port_value, this, 0, NULL);
1043                 lilv_state_free(state);
1044                 Plugin::load_preset(r);
1045         }
1046
1047         lilv_node_free(pset);
1048         return state;
1049 }
1050
1051 const void*
1052 ARDOUR::lv2plugin_get_port_value(const char* port_symbol,
1053                                  void*       user_data,
1054                                  uint32_t*   size,
1055                                  uint32_t*   type)
1056 {
1057         LV2Plugin *plugin = (LV2Plugin *) user_data;
1058
1059         uint32_t index = plugin->port_index(port_symbol);
1060         if (index != (uint32_t) -1) {
1061                 if (plugin->parameter_is_input(index) && plugin->parameter_is_control(index)) {
1062                         float *value;
1063                         *size = sizeof(float);
1064                         *type = plugin->_uri_map.uri_to_id(LV2_ATOM__Float);
1065                         value = &plugin->_shadow_data[index];
1066
1067                         return value;
1068                 }
1069         }
1070
1071         *size = *type = 0;
1072         return NULL;
1073 }
1074
1075
1076 std::string
1077 LV2Plugin::do_save_preset(string name)
1078 {
1079         const string base_name = legalize_for_uri(name);
1080         const string file_name = base_name + ".ttl";
1081         const string bundle    = Glib::build_filename(
1082                 Glib::get_home_dir(),
1083                 Glib::build_filename(".lv2", base_name + ".lv2"));
1084
1085         LilvState* state = lilv_state_new_from_instance(
1086                 _impl->plugin,
1087                 _impl->instance,
1088                 _uri_map.urid_map(),
1089                 scratch_dir().c_str(),                   // file_dir
1090                 bundle.c_str(),                          // copy_dir
1091                 bundle.c_str(),                          // link_dir
1092                 bundle.c_str(),                          // save_dir
1093                 lv2plugin_get_port_value,                // get_value
1094                 (void*)this,                             // user_data
1095                 LV2_STATE_IS_POD|LV2_STATE_IS_PORTABLE,  // flags
1096                 _features                                // features
1097         );
1098
1099         lilv_state_set_label(state, name.c_str());
1100         lilv_state_save(
1101                 _world.world,           // world
1102                 _uri_map.urid_map(),    // map
1103                 _uri_map.urid_unmap(),  // unmap
1104                 state,                  // state
1105                 NULL,                   // uri (NULL = use file URI)
1106                 bundle.c_str(),         // dir
1107                 file_name.c_str()       // filename
1108         );
1109
1110         lilv_state_free(state);
1111
1112         std::string uri = Glib::filename_to_uri(Glib::build_filename(bundle, file_name));
1113         LilvNode *node_bundle = lilv_new_uri(_world.world, Glib::filename_to_uri(Glib::build_filename(bundle, "/")).c_str());
1114         LilvNode *node_preset = lilv_new_uri(_world.world, uri.c_str());
1115 #ifdef HAVE_LILV_0_19_2
1116         lilv_world_unload_resource(_world.world, node_preset);
1117         lilv_world_unload_bundle(_world.world, node_bundle);
1118 #endif
1119         lilv_world_load_bundle(_world.world, node_bundle);
1120         lilv_world_load_resource(_world.world, node_preset);
1121         lilv_node_free(node_bundle);
1122         lilv_node_free(node_preset);
1123         return uri;
1124 }
1125
1126 void
1127 LV2Plugin::do_remove_preset(string name)
1128 {
1129         string preset_file = Glib::build_filename(
1130                 Glib::get_home_dir(),
1131                 Glib::build_filename(
1132                         Glib::build_filename(".lv2", "presets"),
1133                         name + ".ttl"
1134                 )
1135         );
1136         ::g_unlink(preset_file.c_str());
1137 }
1138
1139 bool
1140 LV2Plugin::has_editor() const
1141 {
1142         return _impl->ui != NULL;
1143 }
1144
1145 bool
1146 LV2Plugin::has_message_output() const
1147 {
1148         for (uint32_t i = 0; i < num_ports(); ++i) {
1149                 if ((_port_flags[i] & PORT_SEQUENCE) &&
1150                     (_port_flags[i] & PORT_OUTPUT)) {
1151                         return true;
1152                 }
1153         }
1154         return false;
1155 }
1156
1157 bool
1158 LV2Plugin::write_to(RingBuffer<uint8_t>* dest,
1159                     uint32_t             index,
1160                     uint32_t             protocol,
1161                     uint32_t             size,
1162                     const uint8_t*       body)
1163 {
1164         const uint32_t  buf_size = sizeof(UIMessage) + size;
1165         vector<uint8_t> buf(buf_size);
1166
1167         UIMessage* msg = (UIMessage*)&buf[0];
1168         msg->index    = index;
1169         msg->protocol = protocol;
1170         msg->size     = size;
1171         memcpy(msg + 1, body, size);
1172
1173         return (dest->write(&buf[0], buf_size) == buf_size);
1174 }
1175
1176 bool
1177 LV2Plugin::write_from_ui(uint32_t       index,
1178                          uint32_t       protocol,
1179                          uint32_t       size,
1180                          const uint8_t* body)
1181 {
1182         if (!_from_ui) {
1183                 size_t rbs = _session.engine().raw_buffer_size(DataType::MIDI) * NBUFS;
1184                 /* buffer data communication from plugin UI to plugin instance.
1185                  * this buffer needs to potentially hold
1186                  *   (port's minimumSize) * (audio-periods) / (UI-periods)
1187                  * bytes.
1188                  *
1189                  *  e.g 48kSPS / 128fpp -> audio-periods = 375 Hz
1190                  *  ui-periods = 25 Hz (SuperRapidScreenUpdate)
1191                  *  default minimumSize = 32K (see LV2Plugin::allocate_atom_event_buffers()
1192                  *
1193                  * it is NOT safe to overflow (msg.size will be misinterpreted)
1194                  */
1195                 uint32_t bufsiz = 32768;
1196                 if (_atom_ev_buffers && _atom_ev_buffers[0]) {
1197                         bufsiz =  lv2_evbuf_get_capacity(_atom_ev_buffers[0]);
1198                 }
1199                 rbs = max((size_t) bufsiz * 8, rbs);
1200                 _from_ui = new RingBuffer<uint8_t>(rbs);
1201         }
1202
1203         if (!write_to(_from_ui, index, protocol, size, body)) {
1204                 error << "Error writing from UI to plugin" << endmsg;
1205                 return false;
1206         }
1207         return true;
1208 }
1209
1210 bool
1211 LV2Plugin::write_to_ui(uint32_t       index,
1212                        uint32_t       protocol,
1213                        uint32_t       size,
1214                        const uint8_t* body)
1215 {
1216         if (!write_to(_to_ui, index, protocol, size, body)) {
1217                 error << "Error writing from plugin to UI" << endmsg;
1218                 return false;
1219         }
1220         return true;
1221 }
1222
1223 static void
1224 forge_variant(LV2_Atom_Forge* forge, const Variant& value)
1225 {
1226         switch (value.type()) {
1227         case Variant::BOOL:
1228                 lv2_atom_forge_bool(forge, value.get_bool());
1229                 break;
1230         case Variant::DOUBLE:
1231                 lv2_atom_forge_double(forge, value.get_double());
1232                 break;
1233         case Variant::FLOAT:
1234                 lv2_atom_forge_float(forge, value.get_float());
1235                 break;
1236         case Variant::INT:
1237                 lv2_atom_forge_int(forge, value.get_int());
1238                 break;
1239         case Variant::LONG:
1240                 lv2_atom_forge_long(forge, value.get_long());
1241                 break;
1242         case Variant::PATH:
1243                 lv2_atom_forge_path(
1244                         forge, value.get_path().c_str(), value.get_path().size());
1245                 break;
1246         case Variant::STRING:
1247                 lv2_atom_forge_string(
1248                         forge, value.get_string().c_str(), value.get_string().size());
1249                 break;
1250         case Variant::URI:
1251                 lv2_atom_forge_uri(
1252                         forge, value.get_uri().c_str(), value.get_uri().size());
1253                 break;
1254         }
1255 }
1256
1257 /** Get a variant type from a URI, return false iff no match found. */
1258 static bool
1259 uri_to_variant_type(const std::string& uri, Variant::Type& type)
1260 {
1261         if (uri == LV2_ATOM__Bool) {
1262                 type = Variant::BOOL;
1263         } else if (uri == LV2_ATOM__Double) {
1264                 type = Variant::DOUBLE;
1265         } else if (uri == LV2_ATOM__Float) {
1266                 type = Variant::FLOAT;
1267         } else if (uri == LV2_ATOM__Int) {
1268                 type = Variant::INT;
1269         } else if (uri == LV2_ATOM__Long) {
1270                 type = Variant::LONG;
1271         } else if (uri == LV2_ATOM__Path) {
1272                 type = Variant::PATH;
1273         } else if (uri == LV2_ATOM__String) {
1274                 type = Variant::STRING;
1275         } else if (uri == LV2_ATOM__URI) {
1276                 type = Variant::URI;
1277         } else {
1278                 return false;
1279         }
1280         return true;
1281 }
1282
1283 void
1284 LV2Plugin::set_property(uint32_t key, const Variant& value)
1285 {
1286         if (_patch_port_in_index == (uint32_t)-1) {
1287                 error << "LV2: set_property called with unset patch_port_in_index" << endmsg;
1288                 return;
1289         }
1290
1291         // Set up forge to write to temporary buffer on the stack
1292         LV2_Atom_Forge*      forge = &_impl->ui_forge;
1293         LV2_Atom_Forge_Frame frame;
1294         uint8_t              buf[PATH_MAX];  // Ought to be enough for anyone...
1295
1296         lv2_atom_forge_set_buffer(forge, buf, sizeof(buf));
1297
1298         // Serialize patch:Set message to set property
1299 #ifdef HAVE_LV2_1_10_0
1300         lv2_atom_forge_object(forge, &frame, 1, LV2Plugin::urids.patch_Set);
1301         lv2_atom_forge_key(forge, LV2Plugin::urids.patch_property);
1302         lv2_atom_forge_urid(forge, key);
1303         lv2_atom_forge_key(forge, LV2Plugin::urids.patch_value);
1304 #else
1305         lv2_atom_forge_blank(forge, &frame, 1, LV2Plugin::urids.patch_Set);
1306         lv2_atom_forge_property_head(forge, LV2Plugin::urids.patch_property, 0);
1307         lv2_atom_forge_urid(forge, key);
1308         lv2_atom_forge_property_head(forge, LV2Plugin::urids.patch_value, 0);
1309 #endif
1310
1311         forge_variant(forge, value);
1312
1313         // Write message to UI=>Plugin ring
1314         const LV2_Atom* const atom = (const LV2_Atom*)buf;
1315         write_from_ui(_patch_port_in_index,
1316                       LV2Plugin::urids.atom_eventTransfer,
1317                       lv2_atom_total_size(atom),
1318                       (const uint8_t*)atom);
1319 }
1320
1321 void
1322 LV2Plugin::get_supported_properties(std::vector<ParameterDescriptor>& descs)
1323 {
1324         LilvWorld*       lworld     = _world.world;
1325         const LilvNode*  subject    = lilv_plugin_get_uri(_impl->plugin);
1326         LilvNodes*       properties = lilv_world_find_nodes(
1327                 lworld, subject, _world.patch_writable, NULL);
1328         LILV_FOREACH(nodes, p, properties) {
1329                 // Get label and range
1330                 const LilvNode* prop  = lilv_nodes_get(properties, p);
1331                 LilvNode*       label = lilv_world_get(lworld, prop, _world.rdfs_label, NULL);
1332                 LilvNode*       range = lilv_world_get(lworld, prop, _world.rdfs_range, NULL);
1333
1334                 // Convert range to variant type (TODO: support for multiple range types)
1335                 Variant::Type datatype;
1336                 if (!uri_to_variant_type(lilv_node_as_uri(range), datatype)) {
1337                         error << string_compose(_("LV2: unknown variant datatype \"%1\""),
1338                                                 lilv_node_as_uri(range));
1339                         continue;
1340                 }
1341
1342                 // Add description to result
1343                 ParameterDescriptor desc;
1344                 desc.key          = _uri_map.uri_to_id(lilv_node_as_uri(prop));
1345                 desc.label        = lilv_node_as_string(label);
1346                 desc.datatype     = datatype;
1347                 desc.toggled      = datatype == Variant::BOOL;
1348                 desc.integer_step = datatype == Variant::INT || datatype == Variant::LONG;
1349                 descs.push_back(desc);
1350
1351                 lilv_node_free(label);
1352                 lilv_node_free(range);
1353         }
1354         lilv_nodes_free(properties);
1355 }
1356
1357 void
1358 LV2Plugin::announce_property_values()
1359 {
1360         if (_patch_port_in_index == (uint32_t)-1) {
1361                 error << "LV2: set_property called with unset patch_port_in_index" << endmsg;
1362                 return;
1363         }
1364
1365         // Set up forge to write to temporary buffer on the stack
1366         LV2_Atom_Forge*      forge = &_impl->ui_forge;
1367         LV2_Atom_Forge_Frame frame;
1368         uint8_t              buf[PATH_MAX];  // Ought to be enough for anyone...
1369
1370         lv2_atom_forge_set_buffer(forge, buf, sizeof(buf));
1371
1372         // Serialize patch:Get message with no subject (implicitly plugin instance)
1373         lv2_atom_forge_object(forge, &frame, 1, LV2Plugin::urids.patch_Get);
1374
1375         // Write message to UI=>Plugin ring
1376         const LV2_Atom* const atom = (const LV2_Atom*)buf;
1377         write_from_ui(_patch_port_in_index,
1378                       LV2Plugin::urids.atom_eventTransfer,
1379                       lv2_atom_total_size(atom),
1380                       (const uint8_t*)atom);
1381 }
1382
1383 void
1384 LV2Plugin::enable_ui_emission()
1385 {
1386         if (!_to_ui) {
1387                 /* see note in LV2Plugin::write_from_ui() */
1388                 uint32_t bufsiz = 32768;
1389                 if (_atom_ev_buffers && _atom_ev_buffers[0]) {
1390                         bufsiz =  lv2_evbuf_get_capacity(_atom_ev_buffers[0]);
1391                 }
1392                 size_t rbs = _session.engine().raw_buffer_size(DataType::MIDI) * NBUFS;
1393                 rbs = max((size_t) bufsiz * 8, rbs);
1394                 _to_ui = new RingBuffer<uint8_t>(rbs);
1395         }
1396 }
1397
1398 void
1399 LV2Plugin::emit_to_ui(void* controller, UIMessageSink sink)
1400 {
1401         if (!_to_ui) {
1402                 return;
1403         }
1404
1405         uint32_t read_space = _to_ui->read_space();
1406         while (read_space > sizeof(UIMessage)) {
1407                 UIMessage msg;
1408                 if (_to_ui->read((uint8_t*)&msg, sizeof(msg)) != sizeof(msg)) {
1409                         error << "Error reading from Plugin=>UI RingBuffer" << endmsg;
1410                         break;
1411                 }
1412                 vector<uint8_t> body(msg.size);
1413                 if (_to_ui->read(&body[0], msg.size) != msg.size) {
1414                         error << "Error reading from Plugin=>UI RingBuffer" << endmsg;
1415                         break;
1416                 }
1417
1418                 sink(controller, msg.index, msg.size, msg.protocol, &body[0]);
1419
1420                 read_space -= sizeof(msg) + msg.size;
1421         }
1422 }
1423
1424 int
1425 LV2Plugin::work(uint32_t size, const void* data)
1426 {
1427         return _impl->work_iface->work(
1428                 _impl->instance->lv2_handle, work_respond, this, size, data);
1429 }
1430
1431 int
1432 LV2Plugin::work_response(uint32_t size, const void* data)
1433 {
1434         return _impl->work_iface->work_response(
1435                 _impl->instance->lv2_handle, size, data);
1436 }
1437
1438 void
1439 LV2Plugin::set_insert_info(const PluginInsert* insert)
1440 {
1441         _insert_id = insert->id();
1442 }
1443
1444 int
1445 LV2Plugin::set_state(const XMLNode& node, int version)
1446 {
1447         XMLNodeList          nodes;
1448         const XMLProperty*   prop;
1449         XMLNodeConstIterator iter;
1450         XMLNode*             child;
1451         const char*          sym;
1452         const char*          value;
1453         uint32_t             port_id;
1454         LocaleGuard          lg(X_("POSIX"));
1455
1456         if (node.name() != state_node_name()) {
1457                 error << _("Bad node sent to LV2Plugin::set_state") << endmsg;
1458                 return -1;
1459         }
1460
1461 #ifndef NO_PLUGIN_STATE
1462
1463         if (version < 3000) {
1464                 nodes = node.children("port");
1465         } else {
1466                 nodes = node.children("Port");
1467         }
1468
1469         for (iter = nodes.begin(); iter != nodes.end(); ++iter) {
1470
1471                 child = *iter;
1472
1473                 if ((prop = child->property("symbol")) != 0) {
1474                         sym = prop->value().c_str();
1475                 } else {
1476                         warning << _("LV2: port has no symbol, ignored") << endmsg;
1477                         continue;
1478                 }
1479
1480                 map<string, uint32_t>::iterator i = _port_indices.find(sym);
1481
1482                 if (i != _port_indices.end()) {
1483                         port_id = i->second;
1484                 } else {
1485                         warning << _("LV2: port has unknown index, ignored") << endmsg;
1486                         continue;
1487                 }
1488
1489                 if ((prop = child->property("value")) != 0) {
1490                         value = prop->value().c_str();
1491                 } else {
1492                         warning << _("LV2: port has no value, ignored") << endmsg;
1493                         continue;
1494                 }
1495
1496                 set_parameter(port_id, atof(value));
1497         }
1498
1499         _state_version = 0;
1500         if ((prop = node.property("state-dir")) != 0) {
1501                 if (sscanf(prop->value().c_str(), "state%u", &_state_version) != 1) {
1502                         error << string_compose(
1503                                 "LV2: failed to parse state version from \"%1\"",
1504                                 prop->value()) << endmsg;
1505                 }
1506
1507                 std::string state_file = Glib::build_filename(
1508                         plugin_dir(),
1509                         Glib::build_filename(prop->value(), "state.ttl"));
1510
1511                 LilvState* state = lilv_state_new_from_file(
1512                         _world.world, _uri_map.urid_map(), NULL, state_file.c_str());
1513
1514                 lilv_state_restore(state, _impl->instance, NULL, NULL, 0, NULL);
1515         }
1516
1517         latency_compute_run();
1518 #endif
1519
1520         return Plugin::set_state(node, version);
1521 }
1522
1523 int
1524 LV2Plugin::get_parameter_descriptor(uint32_t which, ParameterDescriptor& desc) const
1525 {
1526         const LilvPort* port = lilv_plugin_get_port_by_index(_impl->plugin, which);
1527
1528         LilvNodes* portunits;
1529         LilvNode *def, *min, *max;
1530         lilv_port_get_range(_impl->plugin, port, &def, &min, &max);
1531         portunits = lilv_port_get_value(_impl->plugin, port, _world.units_unit);
1532
1533         desc.integer_step = lilv_port_has_property(_impl->plugin, port, _world.lv2_integer);
1534         desc.toggled      = lilv_port_has_property(_impl->plugin, port, _world.lv2_toggled);
1535         desc.logarithmic  = lilv_port_has_property(_impl->plugin, port, _world.ext_logarithmic);
1536         desc.sr_dependent = lilv_port_has_property(_impl->plugin, port, _world.lv2_sampleRate);
1537         desc.label        = lilv_node_as_string(lilv_port_get_name(_impl->plugin, port));
1538         desc.lower        = min ? lilv_node_as_float(min) : 0.0f;
1539         desc.upper        = max ? lilv_node_as_float(max) : 1.0f;
1540         desc.midinote     = lilv_nodes_contains(portunits, _world.units_midiNote);
1541
1542         if (desc.sr_dependent) {
1543                 desc.lower *= _session.frame_rate ();
1544                 desc.upper *= _session.frame_rate ();
1545         }
1546
1547         desc.min_unbound  = false; // TODO: LV2 extension required
1548         desc.max_unbound  = false; // TODO: LV2 extension required
1549
1550         if (desc.integer_step) {
1551                 desc.step      = 1.0;
1552                 desc.smallstep = 0.1;
1553                 desc.largestep = 10.0;
1554         } else {
1555                 const float delta = desc.upper - desc.lower;
1556                 desc.step      = delta / 1000.0f;
1557                 desc.smallstep = delta / 10000.0f;
1558                 desc.largestep = delta / 10.0f;
1559         }
1560
1561         desc.enumeration = lilv_port_has_property(_impl->plugin, port, _world.lv2_enumeration);
1562
1563         lilv_node_free(def);
1564         lilv_node_free(min);
1565         lilv_node_free(max);
1566         lilv_nodes_free(portunits);
1567
1568         return 0;
1569 }
1570
1571 string
1572 LV2Plugin::describe_parameter(Evoral::Parameter which)
1573 {
1574         if (( which.type() == PluginAutomation) && ( which.id() < parameter_count()) ) {
1575
1576                 if (lilv_port_has_property(_impl->plugin,
1577                                         lilv_plugin_get_port_by_index(_impl->plugin, which.id()), _world.ext_notOnGUI)) {
1578                         return X_("hidden");
1579                 }
1580
1581                 if (lilv_port_has_property(_impl->plugin,
1582                                         lilv_plugin_get_port_by_index(_impl->plugin, which.id()), _world.lv2_freewheeling)) {
1583                         return X_("hidden");
1584                 }
1585
1586                 if (lilv_port_has_property(_impl->plugin,
1587                                         lilv_plugin_get_port_by_index(_impl->plugin, which.id()), _world.lv2_reportsLatency)) {
1588                         return X_("latency");
1589                 }
1590
1591                 LilvNode* name = lilv_port_get_name(_impl->plugin,
1592                                                     lilv_plugin_get_port_by_index(_impl->plugin, which.id()));
1593                 string ret(lilv_node_as_string(name));
1594                 lilv_node_free(name);
1595                 return ret;
1596         } else {
1597                 return "??";
1598         }
1599 }
1600
1601 framecnt_t
1602 LV2Plugin::signal_latency() const
1603 {
1604         if (_latency_control_port) {
1605                 return (framecnt_t)floor(*_latency_control_port);
1606         } else {
1607                 return 0;
1608         }
1609 }
1610
1611 set<Evoral::Parameter>
1612 LV2Plugin::automatable() const
1613 {
1614         set<Evoral::Parameter> ret;
1615
1616         for (uint32_t i = 0; i < parameter_count(); ++i) {
1617                 if (parameter_is_input(i) && parameter_is_control(i)) {
1618                         ret.insert(ret.end(), Evoral::Parameter(PluginAutomation, 0, i));
1619                 }
1620         }
1621
1622         return ret;
1623 }
1624
1625 void
1626 LV2Plugin::activate()
1627 {
1628         DEBUG_TRACE(DEBUG::LV2, string_compose("%1 activate\n", name()));
1629
1630         if (!_was_activated) {
1631                 lilv_instance_activate(_impl->instance);
1632                 _was_activated = true;
1633         }
1634 }
1635
1636 void
1637 LV2Plugin::deactivate()
1638 {
1639         DEBUG_TRACE(DEBUG::LV2, string_compose("%1 deactivate\n", name()));
1640
1641         if (_was_activated) {
1642                 lilv_instance_deactivate(_impl->instance);
1643                 _was_activated = false;
1644         }
1645 }
1646
1647 void
1648 LV2Plugin::cleanup()
1649 {
1650         DEBUG_TRACE(DEBUG::LV2, string_compose("%1 cleanup\n", name()));
1651
1652         activate();
1653         deactivate();
1654         lilv_instance_free(_impl->instance);
1655         _impl->instance = NULL;
1656 }
1657
1658 void
1659 LV2Plugin::allocate_atom_event_buffers()
1660 {
1661         /* reserve local scratch buffers for ATOM event-queues */
1662         const LilvPlugin* p = _impl->plugin;
1663
1664         /* count non-MIDI atom event-ports
1665          * TODO: nicely ask drobilla to make a lilv_ call for that
1666          */
1667         int count_atom_out = 0;
1668         int count_atom_in = 0;
1669         int minimumSize = 32768; // TODO use a per-port minimum-size
1670         for (uint32_t i = 0; i < lilv_plugin_get_num_ports(p); ++i) {
1671                 const LilvPort* port  = lilv_plugin_get_port_by_index(p, i);
1672                 if (lilv_port_is_a(p, port, _world.atom_AtomPort)) {
1673                         LilvNodes* buffer_types = lilv_port_get_value(
1674                                 p, port, _world.atom_bufferType);
1675                         LilvNodes* atom_supports = lilv_port_get_value(
1676                                 p, port, _world.atom_supports);
1677
1678                         if (!lilv_nodes_contains(buffer_types, _world.atom_Sequence)
1679                                         || !lilv_nodes_contains(atom_supports, _world.midi_MidiEvent)) {
1680                                 if (lilv_port_is_a(p, port, _world.lv2_InputPort)) {
1681                                         count_atom_in++;
1682                                 }
1683                                 if (lilv_port_is_a(p, port, _world.lv2_OutputPort)) {
1684                                         count_atom_out++;
1685                                 }
1686                                 LilvNodes* min_size_v = lilv_port_get_value(_impl->plugin, port, _world.rsz_minimumSize);
1687                                 LilvNode* min_size = min_size_v ? lilv_nodes_get_first(min_size_v) : NULL;
1688                                 if (min_size && lilv_node_is_int(min_size)) {
1689                                         minimumSize = std::max(minimumSize, lilv_node_as_int(min_size));
1690                                 }
1691                                 lilv_nodes_free(min_size_v);
1692                         }
1693                         lilv_nodes_free(buffer_types);
1694                         lilv_nodes_free(atom_supports);
1695                 }
1696         }
1697
1698         DEBUG_TRACE(DEBUG::LV2, string_compose("%1 need buffers for %2 atom-in and %3 atom-out event-ports\n",
1699                                 name(), count_atom_in, count_atom_out));
1700
1701         const int total_atom_buffers = (count_atom_in + count_atom_out);
1702         if (_atom_ev_buffers || total_atom_buffers == 0) {
1703                 return;
1704         }
1705
1706         DEBUG_TRACE(DEBUG::LV2, string_compose("allocate %1 atom_ev_buffers of %d bytes\n", total_atom_buffers, minimumSize));
1707         _atom_ev_buffers = (LV2_Evbuf**) malloc((total_atom_buffers + 1) * sizeof(LV2_Evbuf*));
1708         for (int i = 0; i < total_atom_buffers; ++i ) {
1709                 _atom_ev_buffers[i] = lv2_evbuf_new(minimumSize, LV2_EVBUF_ATOM,
1710                                 LV2Plugin::urids.atom_Chunk, LV2Plugin::urids.atom_Sequence);
1711         }
1712         _atom_ev_buffers[total_atom_buffers] = 0;
1713         return;
1714 }
1715
1716 /** Write an ardour position/time/tempo/meter as an LV2 event.
1717  * @return true on success.
1718  */
1719 static bool
1720 write_position(LV2_Atom_Forge*     forge,
1721                LV2_Evbuf*          buf,
1722                const TempoMetric&  t,
1723                Timecode::BBT_Time& bbt,
1724                double              speed,
1725                framepos_t          position,
1726                framecnt_t          offset)
1727 {
1728         uint8_t pos_buf[256];
1729         lv2_atom_forge_set_buffer(forge, pos_buf, sizeof(pos_buf));
1730         LV2_Atom_Forge_Frame frame;
1731 #ifdef HAVE_LV2_1_10_0
1732         lv2_atom_forge_object(forge, &frame, 1, LV2Plugin::urids.time_Position);
1733         lv2_atom_forge_key(forge, LV2Plugin::urids.time_frame);
1734         lv2_atom_forge_long(forge, position);
1735         lv2_atom_forge_key(forge, LV2Plugin::urids.time_speed);
1736         lv2_atom_forge_float(forge, speed);
1737         lv2_atom_forge_key(forge, LV2Plugin::urids.time_barBeat);
1738         lv2_atom_forge_float(forge, bbt.beats - 1 +
1739                              (bbt.ticks / Timecode::BBT_Time::ticks_per_beat));
1740         lv2_atom_forge_key(forge, LV2Plugin::urids.time_bar);
1741         lv2_atom_forge_long(forge, bbt.bars - 1);
1742         lv2_atom_forge_key(forge, LV2Plugin::urids.time_beatUnit);
1743         lv2_atom_forge_int(forge, t.meter().note_divisor());
1744         lv2_atom_forge_key(forge, LV2Plugin::urids.time_beatsPerBar);
1745         lv2_atom_forge_float(forge, t.meter().divisions_per_bar());
1746         lv2_atom_forge_key(forge, LV2Plugin::urids.time_beatsPerMinute);
1747         lv2_atom_forge_float(forge, t.tempo().beats_per_minute());
1748 #else
1749         lv2_atom_forge_blank(forge, &frame, 1, LV2Plugin::urids.time_Position);
1750         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_frame, 0);
1751         lv2_atom_forge_long(forge, position);
1752         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_speed, 0);
1753         lv2_atom_forge_float(forge, speed);
1754         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_barBeat, 0);
1755         lv2_atom_forge_float(forge, bbt.beats - 1 +
1756                              (bbt.ticks / Timecode::BBT_Time::ticks_per_beat));
1757         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_bar, 0);
1758         lv2_atom_forge_long(forge, bbt.bars - 1);
1759         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_beatUnit, 0);
1760         lv2_atom_forge_int(forge, t.meter().note_divisor());
1761         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_beatsPerBar, 0);
1762         lv2_atom_forge_float(forge, t.meter().divisions_per_bar());
1763         lv2_atom_forge_property_head(forge, LV2Plugin::urids.time_beatsPerMinute, 0);
1764         lv2_atom_forge_float(forge, t.tempo().beats_per_minute());
1765 #endif
1766
1767         LV2_Evbuf_Iterator    end  = lv2_evbuf_end(buf);
1768         const LV2_Atom* const atom = (const LV2_Atom*)pos_buf;
1769         return lv2_evbuf_write(&end, offset, 0, atom->type, atom->size,
1770                                (const uint8_t*)(atom + 1));
1771 }
1772
1773 int
1774 LV2Plugin::connect_and_run(BufferSet& bufs,
1775         ChanMapping in_map, ChanMapping out_map,
1776         pframes_t nframes, framecnt_t offset)
1777 {
1778         DEBUG_TRACE(DEBUG::LV2, string_compose("%1 run %2 offset %3\n", name(), nframes, offset));
1779         Plugin::connect_and_run(bufs, in_map, out_map, nframes, offset);
1780
1781         cycles_t then = get_cycles();
1782
1783         TempoMap&               tmap     = _session.tempo_map();
1784         Metrics::const_iterator metric_i = tmap.metrics_end();
1785         TempoMetric             tmetric  = tmap.metric_at(_session.transport_frame(), &metric_i);
1786
1787         if (_freewheel_control_port) {
1788                 *_freewheel_control_port = _session.engine().freewheeling();
1789         }
1790
1791         if (_bpm_control_port) {
1792                 *_bpm_control_port = tmetric.tempo().beats_per_minute();
1793         }
1794
1795         ChanCount bufs_count;
1796         bufs_count.set(DataType::AUDIO, 1);
1797         bufs_count.set(DataType::MIDI, 1);
1798         BufferSet& silent_bufs  = _session.get_silent_buffers(bufs_count);
1799         BufferSet& scratch_bufs = _session.get_scratch_buffers(bufs_count);
1800         uint32_t const num_ports = parameter_count();
1801         uint32_t const nil_index = std::numeric_limits<uint32_t>::max();
1802
1803         uint32_t audio_in_index  = 0;
1804         uint32_t audio_out_index = 0;
1805         uint32_t midi_in_index   = 0;
1806         uint32_t midi_out_index  = 0;
1807         uint32_t atom_port_index = 0;
1808         for (uint32_t port_index = 0; port_index < num_ports; ++port_index) {
1809                 void*     buf   = NULL;
1810                 uint32_t  index = nil_index;
1811                 PortFlags flags = _port_flags[port_index];
1812                 bool      valid = false;
1813                 if (flags & PORT_AUDIO) {
1814                         if (flags & PORT_INPUT) {
1815                                 index = in_map.get(DataType::AUDIO, audio_in_index++, &valid);
1816                                 buf = (valid)
1817                                         ? bufs.get_audio(index).data(offset)
1818                                         : silent_bufs.get_audio(0).data(offset);
1819                         } else {
1820                                 index = out_map.get(DataType::AUDIO, audio_out_index++, &valid);
1821                                 buf = (valid)
1822                                         ? bufs.get_audio(index).data(offset)
1823                                         : scratch_bufs.get_audio(0).data(offset);
1824                         }
1825                 } else if (flags & (PORT_EVENT|PORT_SEQUENCE)) {
1826                         /* FIXME: The checks here for bufs.count().n_midi() > index shouldn't
1827                            be necessary, but the mapping is illegal in some cases.  Ideally
1828                            that should be fixed, but this is easier...
1829                         */
1830                         if (flags & PORT_MIDI) {
1831                                 if (flags & PORT_INPUT) {
1832                                         index = in_map.get(DataType::MIDI, midi_in_index++, &valid);
1833                                 } else {
1834                                         index = out_map.get(DataType::MIDI, midi_out_index++, &valid);
1835                                 }
1836                                 if (valid && bufs.count().n_midi() > index) {
1837                                         /* Note, ensure_lv2_bufsize() is not RT safe!
1838                                          * However free()/alloc() is only called if a
1839                                          * plugin requires a rsz:minimumSize buffersize
1840                                          * and the existing buffer if smaller.
1841                                          */
1842                                         bufs.ensure_lv2_bufsize((flags & PORT_INPUT), index, _port_minimumSize[port_index]);
1843                                         _ev_buffers[port_index] = bufs.get_lv2_midi(
1844                                                 (flags & PORT_INPUT), index, (flags & PORT_EVENT));
1845                                 }
1846                         } else if ((flags & PORT_POSITION) && (flags & PORT_INPUT)) {
1847                                 lv2_evbuf_reset(_atom_ev_buffers[atom_port_index], true);
1848                                 _ev_buffers[port_index] = _atom_ev_buffers[atom_port_index++];
1849                                 valid                   = true;
1850                         }
1851
1852                         if (valid && (flags & PORT_INPUT)) {
1853                                 Timecode::BBT_Time bbt;
1854                                 if ((flags & PORT_POSITION)) {
1855                                         if (_session.transport_frame() != _next_cycle_start ||
1856                                             _session.transport_speed() != _next_cycle_speed) {
1857                                                 // Transport has changed, write position at cycle start
1858                                                 tmap.bbt_time(_session.transport_frame(), bbt);
1859                                                 write_position(&_impl->forge, _ev_buffers[port_index],
1860                                                                tmetric, bbt, _session.transport_speed(),
1861                                                                _session.transport_frame(), 0);
1862                                         }
1863                                 }
1864
1865                                 // Get MIDI iterator range (empty range if no MIDI)
1866                                 MidiBuffer::iterator m = (index != nil_index)
1867                                         ? bufs.get_midi(index).begin()
1868                                         : silent_bufs.get_midi(0).end();
1869                                 MidiBuffer::iterator m_end = (index != nil_index)
1870                                         ? bufs.get_midi(index).end()
1871                                         : m;
1872
1873                                 // Now merge MIDI and any transport events into the buffer
1874                                 const uint32_t     type = LV2Plugin::urids.midi_MidiEvent;
1875                                 const framepos_t   tend = _session.transport_frame() + nframes;
1876                                 ++metric_i;
1877                                 while (m != m_end || (metric_i != tmap.metrics_end() &&
1878                                                       (*metric_i)->frame() < tend)) {
1879                                         MetricSection* metric = (metric_i != tmap.metrics_end())
1880                                                 ? *metric_i : NULL;
1881                                         if (m != m_end && (!metric || metric->frame() > (*m).time())) {
1882                                                 const Evoral::MIDIEvent<framepos_t> ev(*m, false);
1883                                                 LV2_Evbuf_Iterator eend = lv2_evbuf_end(_ev_buffers[port_index]);
1884                                                 lv2_evbuf_write(&eend, ev.time(), 0, type, ev.size(), ev.buffer());
1885                                                 ++m;
1886                                         } else {
1887                                                 tmetric.set_metric(metric);
1888                                                 bbt = metric->start();
1889                                                 write_position(&_impl->forge, _ev_buffers[port_index],
1890                                                                tmetric, bbt, _session.transport_speed(),
1891                                                                metric->frame(),
1892                                                                metric->frame() - _session.transport_frame());
1893                                                 ++metric_i;
1894                                         }
1895                                 }
1896                         } else if (!valid) {
1897                                 // Nothing we understand or care about, connect to scratch
1898                                 // see note for midi-buffer size above
1899                                 scratch_bufs.ensure_lv2_bufsize((flags & PORT_INPUT),
1900                                                 0, _port_minimumSize[port_index]);
1901                                 _ev_buffers[port_index] = scratch_bufs.get_lv2_midi(
1902                                         (flags & PORT_INPUT), 0, (flags & PORT_EVENT));
1903                         }
1904
1905                         buf = lv2_evbuf_get_buffer(_ev_buffers[port_index]);
1906                 } else {
1907                         continue;  // Control port, leave buffer alone
1908                 }
1909                 lilv_instance_connect_port(_impl->instance, port_index, buf);
1910         }
1911
1912         // Read messages from UI and push into appropriate buffers
1913         if (_from_ui) {
1914                 uint32_t read_space = _from_ui->read_space();
1915                 while (read_space > sizeof(UIMessage)) {
1916                         UIMessage msg;
1917                         if (_from_ui->read((uint8_t*)&msg, sizeof(msg)) != sizeof(msg)) {
1918                                 error << "Error reading from UI=>Plugin RingBuffer" << endmsg;
1919                                 break;
1920                         }
1921                         vector<uint8_t> body(msg.size);
1922                         if (_from_ui->read(&body[0], msg.size) != msg.size) {
1923                                 error << "Error reading from UI=>Plugin RingBuffer" << endmsg;
1924                                 break;
1925                         }
1926                         if (msg.protocol == urids.atom_eventTransfer) {
1927                                 LV2_Evbuf*            buf  = _ev_buffers[msg.index];
1928                                 LV2_Evbuf_Iterator    i    = lv2_evbuf_end(buf);
1929                                 const LV2_Atom* const atom = (const LV2_Atom*)&body[0];
1930                                 if (!lv2_evbuf_write(&i, nframes, 0, atom->type, atom->size,
1931                                                 (const uint8_t*)(atom + 1))) {
1932                                         error << "Failed to write data to LV2 event buffer\n";
1933                                 }
1934                         } else {
1935                                 error << "Received unknown message type from UI" << endmsg;
1936                         }
1937                         read_space -= sizeof(UIMessage) + msg.size;
1938                 }
1939         }
1940
1941         run(nframes);
1942
1943         midi_out_index = 0;
1944         for (uint32_t port_index = 0; port_index < num_ports; ++port_index) {
1945                 PortFlags flags = _port_flags[port_index];
1946                 bool      valid = false;
1947
1948                 /* TODO ask drobilla about comment
1949                  * "Make Ardour event buffers generic so plugins can communicate"
1950                  * in libs/ardour/buffer_set.cc:310
1951                  *
1952                  * ideally the user could choose which of the following two modes
1953                  * to use (e.g. instrument/effect chains  MIDI OUT vs MIDI TRHU).
1954                  *
1955                  * This implementation follows the discussion on IRC Mar 16 2013 16:47 UTC
1956                  * 16:51 < drobilla> rgareus: [..] i.e always replace with MIDI output [of LV2 plugin] if it's there
1957                  * 16:52 < drobilla> rgareus: That would probably be good enough [..] to make users not complain
1958                  *                            for quite a while at least ;)
1959                  */
1960                 // copy output of LV2 plugin's MIDI port to Ardour MIDI buffers -- MIDI OUT
1961                 if ((flags & PORT_OUTPUT) && (flags & (PORT_EVENT|PORT_SEQUENCE|PORT_MIDI))) {
1962                         const uint32_t buf_index = out_map.get(
1963                                 DataType::MIDI, midi_out_index++, &valid);
1964                         if (valid) {
1965                                 bufs.forward_lv2_midi(_ev_buffers[port_index], buf_index);
1966                         }
1967                 }
1968                 // Flush MIDI (write back to Ardour MIDI buffers) -- MIDI THRU
1969                 else if ((flags & PORT_OUTPUT) && (flags & (PORT_EVENT|PORT_SEQUENCE))) {
1970                         const uint32_t buf_index = out_map.get(
1971                                 DataType::MIDI, midi_out_index++, &valid);
1972                         if (valid) {
1973                                 bufs.flush_lv2_midi(true, buf_index);
1974                         }
1975                 }
1976
1977
1978                 // Write messages to UI
1979                 if ((_to_ui || _patch_port_out_index != (uint32_t)-1) &&
1980                     (flags & PORT_OUTPUT) && (flags & (PORT_EVENT|PORT_SEQUENCE))) {
1981                         LV2_Evbuf* buf = _ev_buffers[port_index];
1982                         for (LV2_Evbuf_Iterator i = lv2_evbuf_begin(buf);
1983                              lv2_evbuf_is_valid(i);
1984                              i = lv2_evbuf_next(i)) {
1985                                 uint32_t frames, subframes, type, size;
1986                                 uint8_t* data;
1987                                 lv2_evbuf_get(i, &frames, &subframes, &type, &size, &data);
1988
1989                                 // Intercept patch change messages to emit PropertyChanged signal
1990                                 if ((flags & PORT_PATCHMSG)) {
1991                                         LV2_Atom* atom = (LV2_Atom*)(data - sizeof(LV2_Atom));
1992                                         if (atom->type == LV2Plugin::urids.atom_Blank ||
1993                                             atom->type == LV2Plugin::urids.atom_Object) {
1994                                                 LV2_Atom_Object* obj = (LV2_Atom_Object*)atom;
1995                                                 if (obj->body.otype == LV2Plugin::urids.patch_Set) {
1996                                                         const LV2_Atom* property = NULL;
1997                                                         const LV2_Atom* value    = NULL;
1998                                                         lv2_atom_object_get(obj,
1999                                                                             LV2Plugin::urids.patch_property, &property,
2000                                                                             LV2Plugin::urids.patch_value,    &value,
2001                                                                             0);
2002
2003                                                         if (!property || !value ||
2004                                                             property->type != LV2Plugin::urids.atom_URID ||
2005                                                             value->type != LV2Plugin::urids.atom_Path) {
2006                                                                 std::cerr << "warning: patch:Set for unknown property" << std::endl;
2007                                                                 continue;
2008                                                         }
2009
2010                                                         const uint32_t prop_id = ((const LV2_Atom_URID*)property)->body;
2011                                                         const char*    path    = (const char*)LV2_ATOM_BODY_CONST(value);
2012
2013                                                         // Emit PropertyChanged signal for UI
2014                                                         PropertyChanged(prop_id, Variant(Variant::PATH, path));
2015                                                 }
2016                                         }
2017                                 }
2018
2019                                 if (!_to_ui) continue;
2020                                 write_to_ui(port_index, urids.atom_eventTransfer,
2021                                             size + sizeof(LV2_Atom),
2022                                             data - sizeof(LV2_Atom));
2023                         }
2024                 }
2025         }
2026
2027         cycles_t now = get_cycles();
2028         set_cycles((uint32_t)(now - then));
2029
2030         // Update expected transport information for next cycle so we can detect changes
2031         _next_cycle_speed = _session.transport_speed();
2032         _next_cycle_start = _session.transport_frame() + (nframes * _next_cycle_speed);
2033
2034         return 0;
2035 }
2036
2037 bool
2038 LV2Plugin::parameter_is_control(uint32_t param) const
2039 {
2040         assert(param < _port_flags.size());
2041         return _port_flags[param] & PORT_CONTROL;
2042 }
2043
2044 bool
2045 LV2Plugin::parameter_is_audio(uint32_t param) const
2046 {
2047         assert(param < _port_flags.size());
2048         return _port_flags[param] & PORT_AUDIO;
2049 }
2050
2051 bool
2052 LV2Plugin::parameter_is_event(uint32_t param) const
2053 {
2054         assert(param < _port_flags.size());
2055         return _port_flags[param] & PORT_EVENT;
2056 }
2057
2058 bool
2059 LV2Plugin::parameter_is_output(uint32_t param) const
2060 {
2061         assert(param < _port_flags.size());
2062         return _port_flags[param] & PORT_OUTPUT;
2063 }
2064
2065 bool
2066 LV2Plugin::parameter_is_input(uint32_t param) const
2067 {
2068         assert(param < _port_flags.size());
2069         return _port_flags[param] & PORT_INPUT;
2070 }
2071
2072 void
2073 LV2Plugin::print_parameter(uint32_t param, char* buf, uint32_t len) const
2074 {
2075         if (buf && len) {
2076                 if (param < parameter_count()) {
2077                         snprintf(buf, len, "%.3f", get_parameter(param));
2078                 } else {
2079                         strcat(buf, "0");
2080                 }
2081         }
2082 }
2083
2084 boost::shared_ptr<Plugin::ScalePoints>
2085 LV2Plugin::get_scale_points(uint32_t port_index) const
2086 {
2087         const LilvPort*  port   = lilv_plugin_get_port_by_index(_impl->plugin, port_index);
2088         LilvScalePoints* points = lilv_port_get_scale_points(_impl->plugin, port);
2089
2090         boost::shared_ptr<Plugin::ScalePoints> ret;
2091         if (!points) {
2092                 return ret;
2093         }
2094
2095         ret = boost::shared_ptr<Plugin::ScalePoints>(new ScalePoints());
2096
2097         LILV_FOREACH(scale_points, i, points) {
2098                 const LilvScalePoint* p     = lilv_scale_points_get(points, i);
2099                 const LilvNode*       label = lilv_scale_point_get_label(p);
2100                 const LilvNode*       value = lilv_scale_point_get_value(p);
2101                 if (label && (lilv_node_is_float(value) || lilv_node_is_int(value))) {
2102                         ret->insert(make_pair(lilv_node_as_string(label),
2103                                               lilv_node_as_float(value)));
2104                 }
2105         }
2106
2107         lilv_scale_points_free(points);
2108         return ret;
2109 }
2110
2111 void
2112 LV2Plugin::run(pframes_t nframes)
2113 {
2114         uint32_t const N = parameter_count();
2115         for (uint32_t i = 0; i < N; ++i) {
2116                 if (parameter_is_control(i) && parameter_is_input(i)) {
2117                         _control_data[i] = _shadow_data[i];
2118                 }
2119         }
2120
2121         lilv_instance_run(_impl->instance, nframes);
2122
2123         if (_impl->work_iface) {
2124                 _worker->emit_responses();
2125                 if (_impl->work_iface->end_run) {
2126                         _impl->work_iface->end_run(_impl->instance->lv2_handle);
2127                 }
2128         }
2129 }
2130
2131 void
2132 LV2Plugin::latency_compute_run()
2133 {
2134         if (!_latency_control_port) {
2135                 return;
2136         }
2137
2138         // Run the plugin so that it can set its latency parameter
2139
2140         bool was_activated = _was_activated;
2141         activate();
2142
2143         uint32_t port_index = 0;
2144         uint32_t in_index   = 0;
2145         uint32_t out_index  = 0;
2146
2147         // this is done in the main thread. non realtime.
2148         const framecnt_t bufsize = _engine.samples_per_cycle();
2149         float            *buffer = (float*) malloc(_engine.samples_per_cycle() * sizeof(float));
2150
2151         memset(buffer, 0, sizeof(float) * bufsize);
2152
2153         // FIXME: Ensure plugins can handle in-place processing
2154
2155         port_index = 0;
2156
2157         while (port_index < parameter_count()) {
2158                 if (parameter_is_audio(port_index)) {
2159                         if (parameter_is_input(port_index)) {
2160                                 lilv_instance_connect_port(_impl->instance, port_index, buffer);
2161                                 in_index++;
2162                         } else if (parameter_is_output(port_index)) {
2163                                 lilv_instance_connect_port(_impl->instance, port_index, buffer);
2164                                 out_index++;
2165                         }
2166                 }
2167                 port_index++;
2168         }
2169
2170         run(bufsize);
2171         deactivate();
2172         if (was_activated) {
2173                 activate();
2174         }
2175         free(buffer);
2176 }
2177
2178 const LilvPort*
2179 LV2Plugin::Impl::designated_input (const char* uri, void** bufptrs[], void** bufptr)
2180 {
2181         const LilvPort* port = NULL;
2182         LilvNode* designation = lilv_new_uri(_world.world, uri);
2183         port = lilv_plugin_get_port_by_designation(
2184                 plugin, _world.lv2_InputPort, designation);
2185         lilv_node_free(designation);
2186         if (port) {
2187                 bufptrs[lilv_port_get_index(plugin, port)] = bufptr;
2188         }
2189         return port;
2190 }
2191
2192 static bool lv2_filter (const string& str, void* /*arg*/)
2193 {
2194         /* Not a dotfile, has a prefix before a period, suffix is "lv2" */
2195
2196         return str[0] != '.' && (str.length() > 3 && str.find (".lv2") == (str.length() - 4));
2197 }
2198
2199
2200 LV2World::LV2World()
2201         : world(lilv_world_new())
2202         , _bundle_checked(false)
2203 {
2204         lilv_world_load_all(world);
2205
2206         atom_AtomPort      = lilv_new_uri(world, LV2_ATOM__AtomPort);
2207         atom_Chunk         = lilv_new_uri(world, LV2_ATOM__Chunk);
2208         atom_Sequence      = lilv_new_uri(world, LV2_ATOM__Sequence);
2209         atom_bufferType    = lilv_new_uri(world, LV2_ATOM__bufferType);
2210         atom_supports      = lilv_new_uri(world, LV2_ATOM__supports);
2211         atom_eventTransfer = lilv_new_uri(world, LV2_ATOM__eventTransfer);
2212         ev_EventPort       = lilv_new_uri(world, LILV_URI_EVENT_PORT);
2213         ext_logarithmic    = lilv_new_uri(world, LV2_PORT_PROPS__logarithmic);
2214         ext_notOnGUI       = lilv_new_uri(world, LV2_PORT_PROPS__notOnGUI);
2215         lv2_AudioPort      = lilv_new_uri(world, LILV_URI_AUDIO_PORT);
2216         lv2_ControlPort    = lilv_new_uri(world, LILV_URI_CONTROL_PORT);
2217         lv2_InputPort      = lilv_new_uri(world, LILV_URI_INPUT_PORT);
2218         lv2_OutputPort     = lilv_new_uri(world, LILV_URI_OUTPUT_PORT);
2219         lv2_inPlaceBroken  = lilv_new_uri(world, LV2_CORE__inPlaceBroken);
2220         lv2_integer        = lilv_new_uri(world, LV2_CORE__integer);
2221         lv2_reportsLatency = lilv_new_uri(world, LV2_CORE__reportsLatency);
2222         lv2_sampleRate     = lilv_new_uri(world, LV2_CORE__sampleRate);
2223         lv2_toggled        = lilv_new_uri(world, LV2_CORE__toggled);
2224         lv2_enumeration    = lilv_new_uri(world, LV2_CORE__enumeration);
2225         lv2_freewheeling   = lilv_new_uri(world, LV2_CORE__freeWheeling);
2226         midi_MidiEvent     = lilv_new_uri(world, LILV_URI_MIDI_EVENT);
2227         rdfs_comment       = lilv_new_uri(world, LILV_NS_RDFS "comment");
2228         rdfs_label         = lilv_new_uri(world, LILV_NS_RDFS "label");
2229         rdfs_range         = lilv_new_uri(world, LILV_NS_RDFS "range");
2230         rsz_minimumSize    = lilv_new_uri(world, LV2_RESIZE_PORT__minimumSize);
2231         time_Position      = lilv_new_uri(world, LV2_TIME__Position);
2232         ui_GtkUI           = lilv_new_uri(world, LV2_UI__GtkUI);
2233         ui_external        = lilv_new_uri(world, "http://lv2plug.in/ns/extensions/ui#external");
2234         ui_externalkx      = lilv_new_uri(world, "http://kxstudio.sf.net/ns/lv2ext/external-ui#Widget");
2235         units_unit         = lilv_new_uri(world, "http://lv2plug.in/ns/extensions/units#unit");
2236         units_midiNote     = lilv_new_uri(world, "http://lv2plug.in/ns/extensions/units#midiNote");
2237         patch_writable     = lilv_new_uri(world, LV2_PATCH__writable);
2238         patch_Message      = lilv_new_uri(world, LV2_PATCH__Message);
2239 }
2240
2241 LV2World::~LV2World()
2242 {
2243         lilv_node_free(patch_Message);
2244         lilv_node_free(patch_writable);
2245         lilv_node_free(units_midiNote);
2246         lilv_node_free(units_unit);
2247         lilv_node_free(ui_externalkx);
2248         lilv_node_free(ui_external);
2249         lilv_node_free(ui_GtkUI);
2250         lilv_node_free(time_Position);
2251         lilv_node_free(rsz_minimumSize);
2252         lilv_node_free(rdfs_comment);
2253         lilv_node_free(rdfs_label);
2254         lilv_node_free(rdfs_range);
2255         lilv_node_free(midi_MidiEvent);
2256         lilv_node_free(lv2_enumeration);
2257         lilv_node_free(lv2_freewheeling);
2258         lilv_node_free(lv2_toggled);
2259         lilv_node_free(lv2_sampleRate);
2260         lilv_node_free(lv2_reportsLatency);
2261         lilv_node_free(lv2_integer);
2262         lilv_node_free(lv2_inPlaceBroken);
2263         lilv_node_free(lv2_OutputPort);
2264         lilv_node_free(lv2_InputPort);
2265         lilv_node_free(lv2_ControlPort);
2266         lilv_node_free(lv2_AudioPort);
2267         lilv_node_free(ext_notOnGUI);
2268         lilv_node_free(ext_logarithmic);
2269         lilv_node_free(ev_EventPort);
2270         lilv_node_free(atom_supports);
2271         lilv_node_free(atom_eventTransfer);
2272         lilv_node_free(atom_bufferType);
2273         lilv_node_free(atom_Sequence);
2274         lilv_node_free(atom_Chunk);
2275         lilv_node_free(atom_AtomPort);
2276         lilv_world_free(world);
2277 }
2278
2279 void
2280 LV2World::load_bundled_plugins(bool verbose)
2281 {
2282         if (!_bundle_checked) {
2283                 if (verbose) {
2284                         cout << "Scanning folders for bundled LV2s: " << ARDOUR::lv2_bundled_search_path().to_string() << endl;
2285                 }
2286
2287                 vector<string> plugin_objects;
2288                 find_paths_matching_filter (plugin_objects, ARDOUR::lv2_bundled_search_path(), lv2_filter, 0, true, true, true);
2289                 for ( vector<string>::iterator x = plugin_objects.begin(); x != plugin_objects.end (); ++x) {
2290 #ifdef PLATFORM_WINDOWS
2291                         string uri = "file:///" + *x + "/";
2292 #else
2293                         string uri = "file://" + *x + "/";
2294 #endif
2295                         LilvNode *node = lilv_new_uri(world, uri.c_str());
2296                         lilv_world_load_bundle(world, node);
2297                         lilv_node_free(node);
2298                 }
2299
2300                 _bundle_checked = true;
2301         }
2302 }
2303
2304 LV2PluginInfo::LV2PluginInfo (const char* plugin_uri)
2305 {
2306         type = ARDOUR::LV2;
2307         _plugin_uri = strdup(plugin_uri);
2308 }
2309
2310 LV2PluginInfo::~LV2PluginInfo()
2311 {
2312         free(_plugin_uri);
2313         _plugin_uri = NULL;
2314 }
2315
2316 PluginPtr
2317 LV2PluginInfo::load(Session& session)
2318 {
2319         try {
2320                 PluginPtr plugin;
2321                 const LilvPlugins* plugins = lilv_world_get_all_plugins(_world.world);
2322                 LilvNode* uri = lilv_new_uri(_world.world, _plugin_uri);
2323                 if (!uri) { throw failed_constructor(); }
2324                 const LilvPlugin* lp = lilv_plugins_get_by_uri(plugins, uri);
2325                 if (!lp) { throw failed_constructor(); }
2326                 plugin.reset(new LV2Plugin(session.engine(), session, lp, session.frame_rate()));
2327                 lilv_node_free(uri);
2328                 plugin->set_info(PluginInfoPtr(shared_from_this ()));
2329                 return plugin;
2330         } catch (failed_constructor& err) {
2331                 return PluginPtr((Plugin*)0);
2332         }
2333
2334         return PluginPtr();
2335 }
2336
2337 PluginInfoList*
2338 LV2PluginInfo::discover()
2339 {
2340         LV2World world;
2341         world.load_bundled_plugins();
2342         _world.load_bundled_plugins(true);
2343
2344         PluginInfoList*    plugs   = new PluginInfoList;
2345         const LilvPlugins* plugins = lilv_world_get_all_plugins(world.world);
2346
2347         if (!Config->get_show_plugin_scan_window()) {
2348                 info << "LV2: Discovering " << lilv_plugins_size(plugins) << " plugins" << endmsg;
2349         }
2350
2351         LILV_FOREACH(plugins, i, plugins) {
2352                 const LilvPlugin* p = lilv_plugins_get(plugins, i);
2353                 const LilvNode* pun = lilv_plugin_get_uri(p);
2354                 if (!pun) continue;
2355                 LV2PluginInfoPtr info(new LV2PluginInfo(lilv_node_as_string(pun)));
2356
2357                 LilvNode* name = lilv_plugin_get_name(p);
2358                 if (!name || !lilv_plugin_get_port_by_index(p, 0)) {
2359                         warning << "Ignoring invalid LV2 plugin "
2360                                 << lilv_node_as_string(lilv_plugin_get_uri(p))
2361                                 << endmsg;
2362                         continue;
2363                 }
2364
2365                 info->type = LV2;
2366
2367                 info->name = string(lilv_node_as_string(name));
2368                 lilv_node_free(name);
2369                 ARDOUR::PluginScanMessage(_("LV2"), info->name, false);
2370
2371                 const LilvPluginClass* pclass = lilv_plugin_get_class(p);
2372                 const LilvNode*        label  = lilv_plugin_class_get_label(pclass);
2373                 info->category = lilv_node_as_string(label);
2374
2375                 LilvNode* author_name = lilv_plugin_get_author_name(p);
2376                 info->creator = author_name ? string(lilv_node_as_string(author_name)) : "Unknown";
2377                 lilv_node_free(author_name);
2378
2379                 info->path = "/NOPATH"; // Meaningless for LV2
2380
2381                 /* count atom-event-ports that feature
2382                  * atom:supports <http://lv2plug.in/ns/ext/midi#MidiEvent>
2383                  *
2384                  * TODO: nicely ask drobilla to make a lilv_ call for that
2385                  */
2386                 int count_midi_out = 0;
2387                 int count_midi_in = 0;
2388                 for (uint32_t i = 0; i < lilv_plugin_get_num_ports(p); ++i) {
2389                         const LilvPort* port  = lilv_plugin_get_port_by_index(p, i);
2390                         if (lilv_port_is_a(p, port, world.atom_AtomPort)) {
2391                                 LilvNodes* buffer_types = lilv_port_get_value(
2392                                         p, port, world.atom_bufferType);
2393                                 LilvNodes* atom_supports = lilv_port_get_value(
2394                                         p, port, world.atom_supports);
2395
2396                                 if (lilv_nodes_contains(buffer_types, world.atom_Sequence)
2397                                                 && lilv_nodes_contains(atom_supports, world.midi_MidiEvent)) {
2398                                         if (lilv_port_is_a(p, port, world.lv2_InputPort)) {
2399                                                 count_midi_in++;
2400                                         }
2401                                         if (lilv_port_is_a(p, port, world.lv2_OutputPort)) {
2402                                                 count_midi_out++;
2403                                         }
2404                                 }
2405                                 lilv_nodes_free(buffer_types);
2406                                 lilv_nodes_free(atom_supports);
2407                         }
2408                 }
2409
2410                 info->n_inputs.set_audio(
2411                         lilv_plugin_get_num_ports_of_class(
2412                                 p, world.lv2_InputPort, world.lv2_AudioPort, NULL));
2413                 info->n_inputs.set_midi(
2414                         lilv_plugin_get_num_ports_of_class(
2415                                 p, world.lv2_InputPort, world.ev_EventPort, NULL)
2416                         + count_midi_in);
2417
2418                 info->n_outputs.set_audio(
2419                         lilv_plugin_get_num_ports_of_class(
2420                                 p, world.lv2_OutputPort, world.lv2_AudioPort, NULL));
2421                 info->n_outputs.set_midi(
2422                         lilv_plugin_get_num_ports_of_class(
2423                                 p, world.lv2_OutputPort, world.ev_EventPort, NULL)
2424                         + count_midi_out);
2425
2426                 info->unique_id = lilv_node_as_uri(lilv_plugin_get_uri(p));
2427                 info->index     = 0; // Meaningless for LV2
2428
2429                 plugs->push_back(info);
2430         }
2431
2432         return plugs;
2433 }