dynamic keyframes, textbox rework, andrea ffmpeg.opts, perpetual chkpt undo, lv2...
[goodguy/history.git] / cinelerra-5.1 / cinelerra / pluginlv2client.C
index 7ef948675b11c8b0594820bdb2c2a4f38bca9e43..289eed4ea98541b06a3df7198e537a0a787628ea 100644 (file)
  *
  */
 
+#include "bchash.h"
 #include "clip.h"
 #include "cstrdup.h"
-#include "bchash.h"
+#include "edl.h"
+#include "edlsession.h"
+#include "file.h"
+#include "filesystem.h"
 #include "filexml.h"
 #include "language.h"
+#include "mainerror.h"
 #include "mwindow.h"
+#include "plugin.h"
 #include "pluginlv2client.h"
+#include "pluginlv2config.h"
+#include "pluginlv2ui.inc"
 #include "pluginserver.h"
+#include "pluginset.h"
 #include "samples.h"
+#include "track.h"
 
 #include <ctype.h>
 #include <string.h>
 
-#define LV2_SEQ_SIZE  9624
-
-PluginLV2UriTable::PluginLV2UriTable()
-{
-       set_array_delete();
-}
-
-PluginLV2UriTable::~PluginLV2UriTable()
-{
-       remove_all_objects();
-}
-
-LV2_URID PluginLV2UriTable::map(const char *uri)
-{
-       for( int i=0; i<size(); ++i )
-               if( !strcmp(uri, get(i)) ) return i+1;
-       append(cstrdup(uri));
-       return size();
-}
-
-const char *PluginLV2UriTable::unmap(LV2_URID urid)
-{
-       int idx = urid - 1;
-       return idx>=0 && idx<size() ? get(idx) : 0;
-}
-
-PluginLV2Client_OptName:: PluginLV2Client_OptName(PluginLV2Client_Opt *opt)
-{
-       this->opt = opt;
-       set_text(opt->get_name());
-}
-
-PluginLV2Client_OptValue::PluginLV2Client_OptValue(PluginLV2Client_Opt *opt)
-{
-       this->opt = opt;
-       update();
-}
+PluginLV2UIs PluginLV2ParentUI::plugin_lv2;
 
-int PluginLV2Client_OptValue::update()
+PluginLV2UIs::PluginLV2UIs()
+ : Mutex("PluginLV2UIs")
 {
-       char val[BCSTRLEN];
-       sprintf(val, "%f", opt->get_value());
-       if( !strcmp(val, get_text()) ) return 0;
-       set_text(val);
-       return 1;
 }
 
-
-PluginLV2Client_Opt::PluginLV2Client_Opt(PluginLV2ClientConfig *conf, const char *sym, int idx)
+PluginLV2UIs::~PluginLV2UIs()
 {
-       this->conf = conf;
-       this->idx = idx;
-       this->sym = cstrdup(sym);
-       item_name = new PluginLV2Client_OptName(this);
-       item_value = new PluginLV2Client_OptValue(this);
+       del_uis();
 }
 
-PluginLV2Client_Opt::~PluginLV2Client_Opt()
+void PluginLV2UIs::del_uis()
 {
-       delete [] sym;
-       delete item_name;
-       delete item_value;
+       while( size() ) remove_object();
 }
 
-float PluginLV2Client_Opt::get_value()
+PluginLV2ParentUI *PluginLV2UIs::del_ui(PluginLV2Client *client)
 {
-       return conf->ctls[idx];
-}
-
-void PluginLV2Client_Opt::set_value(float v)
-{
-       conf->ctls[idx] = v;
-}
-
-int PluginLV2Client_Opt::update(float v)
-{
-       set_value(v);
-       return item_value->update();
-}
-
-const char *PluginLV2Client_Opt::get_name()
-{
-       return conf->names[idx];
-}
-
-PluginLV2ClientConfig::PluginLV2ClientConfig()
-{
-       names = 0;
-       mins = 0;
-       maxs = 0;
-       ctls = 0;
-       nb_ports = 0;
-}
-
-PluginLV2ClientConfig::~PluginLV2ClientConfig()
-{
-       reset();
-       remove_all_objects();
-}
-
-void PluginLV2ClientConfig::reset()
-{
-       for( int i=0; i<nb_ports; ++i ) delete [] names[i];
-       delete [] names; names = 0;
-       delete [] mins;  mins = 0;
-       delete [] maxs;  maxs = 0;
-       delete [] ctls;  ctls = 0;
-       nb_ports = 0;
-}
-
-
-int PluginLV2ClientConfig::equivalent(PluginLV2ClientConfig &that)
-{
-       PluginLV2ClientConfig &conf = *this;
-       for( int i=0; i<that.size(); ++i ) {
-               PluginLV2Client_Opt *topt = conf[i], *vopt = that[i];
-               if( !EQUIV(topt->get_value(), vopt->get_value()) ) return 0;
+       lock("PluginLV2UIs::del_ui client");
+       int i = size();
+       while( --i >= 0 && get(i)->client != client );
+       PluginLV2ParentUI *ui = 0;
+       if( i >= 0 ) {
+               if( (ui=get(i))->gui ) ui->client = 0;
+               else { remove_object_number(i);  ui = 0; }
        }
-       return 1;
-}
-
-void PluginLV2ClientConfig::copy_from(PluginLV2ClientConfig &that)
-{
-        if( nb_ports != that.nb_ports ) {
-                reset();
-               nb_ports = that.nb_ports;
-               names = new const char *[nb_ports];
-               for( int i=0; i<nb_ports; ++i ) names[i] = 0;
-               mins  = new float[nb_ports];
-               maxs  = new float[nb_ports];
-               ctls  = new float[nb_ports];
-        }
-        for( int i=0; i<nb_ports; ++i ) {
-               delete [] names[i];
-               names[i] = cstrdup(that.names[i]);
-                mins[i] = that.mins[i];
-                maxs[i] = that.maxs[i];
-                ctls[i] = that.ctls[i];
-        }
-       remove_all_objects();
-       for( int i=0; i<that.size(); ++i ) {
-               append(new PluginLV2Client_Opt(this, that[i]->sym, that[i]->idx));
+       unlock();
+       return ui;
+}
+PluginLV2ParentUI *PluginLV2UIs::del_ui(PluginLV2ClientWindow *gui)
+{
+       lock("PluginLV2UIs::del_ui gui");
+       int i = size();
+       while( --i >= 0 && get(i)->gui != gui );
+       PluginLV2ParentUI *ui = 0;
+       if( i >= 0 ) {
+               if( (ui=get(i))->client ) ui->gui = 0;
+               else { remove_object_number(i);  ui = 0; }
        }
+       unlock();
+       return ui;
 }
 
-void PluginLV2ClientConfig::interpolate(PluginLV2ClientConfig &prev, PluginLV2ClientConfig &next,
-       int64_t prev_frame, int64_t next_frame, int64_t current_frame)
-{
-       copy_from(prev);
-}
-
-void PluginLV2ClientConfig::init_lv2(const LilvPlugin *lilv)
-{
-       reset();
-       nb_ports = lilv_plugin_get_num_ports(lilv);
-       names = new const char *[nb_ports];
-       mins  = new float[nb_ports];
-       maxs  = new float[nb_ports];
-       ctls  = new float[nb_ports];
-       lilv_plugin_get_port_ranges_float(lilv, mins, maxs, ctls);
-               for( int i=0; i<nb_ports; ++i ) {
-               const LilvPort *lp = lilv_plugin_get_port_by_index(lilv, i);
-               LilvNode *pnm = lilv_port_get_name(lilv, lp);
-               names[i] = cstrdup(lilv_node_as_string(pnm));
-               lilv_node_free(pnm);
-       }
-}
-
-int PluginLV2ClientConfig::update()
-{
-       int ret = 0;
-       PluginLV2ClientConfig &conf = *this;
-       for( int i=0; i<size(); ++i ) {
-               if( conf[i]->item_value->update() ) ++ret;
-       }
-       return ret;
-}
-
-PluginLV2ClientReset::
-PluginLV2ClientReset(PluginLV2ClientWindow *gui, int x, int y)
- : BC_GenericButton(x, y, _("Reset"))
-{
-       this->gui = gui;
-}
-
-PluginLV2ClientReset::
-~PluginLV2ClientReset()
-{
-}
-
-int PluginLV2ClientReset::handle_event()
-{
-       PluginLV2Client *plugin = gui->plugin;
-       plugin->init_lv2();
-       gui->selected = 0;
-       gui->update_selected();
-       gui->panel->update();
-        plugin->send_configure_change();
-        return 1;
-}
-
-PluginLV2ClientText::
-PluginLV2ClientText(PluginLV2ClientWindow *gui, int x, int y, int w)
- : BC_TextBox(x, y, w, 1, (char *)"")
-{
-        this->gui = gui;
-}
-
-PluginLV2ClientText::
-~PluginLV2ClientText()
-{
-}
-
-int PluginLV2ClientText::handle_event()
-{
-        return 0;
-}
-
-
-PluginLV2ClientApply::
-PluginLV2ClientApply(PluginLV2ClientWindow *gui, int x, int y)
- : BC_GenericButton(x, y, _("Apply"))
-{
-       this->gui = gui;
-}
-
-PluginLV2ClientApply::
-~PluginLV2ClientApply()
-{
-}
-
-int PluginLV2ClientApply::handle_event()
-{
-       const char *text = gui->text->get_text();
-       if( text && gui->selected ) {
-               gui->selected->update(atof(text));
-               gui->update_selected();
-               gui->plugin->send_configure_change();
-       }
-       return 1;
-}
-
-
-PluginLV2Client_OptPanel::
-PluginLV2Client_OptPanel(PluginLV2ClientWindow *gui, int x, int y, int w, int h)
- : BC_ListBox(x, y, w, h, LISTBOX_TEXT), opts(items[0]), vals(items[1])
-{
-       this->gui = gui;
-       update();  // init col/wid/columns
-}
-
-PluginLV2Client_OptPanel::
-~PluginLV2Client_OptPanel()
+PluginLV2ParentUI *PluginLV2UIs::add_ui(PluginLV2ParentUI *ui, PluginLV2Client *client)
 {
+       ui->start_child();
+       ui->start_parent(client);
+       append(ui);
+       return ui;
 }
 
-int PluginLV2Client_OptPanel::selection_changed()
+PluginLV2ParentUI *PluginLV2UIs::search_ui(Plugin *plugin)
 {
-       PluginLV2Client_Opt *opt = 0;
-       BC_ListBoxItem *item = get_selection(0, 0);
-       if( item ) {
-               PluginLV2Client_OptName *opt_name = (PluginLV2Client_OptName *)item;
-               opt = opt_name->opt;
-       }
-       gui->update(opt);
-       return 1;
-}
+       int64_t position = plugin->startproject;
+       PluginSet *plugin_set = plugin->plugin_set;
+       int set_no = plugin_set->get_number();
+       int track_no = plugin_set->track->number_of();
 
-void PluginLV2Client_OptPanel::update()
-{
-       opts.remove_all();
-       vals.remove_all();
-       PluginLV2ClientConfig &conf = gui->plugin->config;
-       for( int i=0; i<conf.size(); ++i ) {
-               PluginLV2Client_Opt *opt = conf[i];
-               opts.append(opt->item_name);
-               vals.append(opt->item_value);
+       PluginLV2ParentUI *ui = 0;
+       for( int i=size(); !ui && --i>=0; ) {
+               PluginLV2ParentUI *parent_ui = get(i);
+               if( parent_ui->position != position ) continue;
+               if( parent_ui->set_no != set_no ) continue;
+               if( parent_ui->track_no == track_no ) ui = parent_ui;
        }
-       const char *cols[] = { "option", "value", };
-       const int col1_w = 150;
-       int wids[] = { col1_w, get_w()-col1_w };
-       BC_ListBox::update(&items[0], &cols[0], &wids[0], sizeof(items)/sizeof(items[0]));
+       return ui;
 }
 
-PluginLV2ClientWindow::PluginLV2ClientWindow(PluginLV2Client *plugin)
- : PluginClientWindow(plugin, 500, 300, 500, 300, 0)
+PluginLV2ParentUI *PluginLV2UIs::find_ui(Plugin *plugin)
 {
-       this->plugin = plugin;
-       selected = 0;
+       if( !plugin ) return 0;
+       lock("PluginLV2UIs::find_ui");
+       PluginLV2ParentUI *ui = search_ui(plugin);
+       unlock();
+       return ui;
 }
-
-PluginLV2ClientWindow::~PluginLV2ClientWindow()
+PluginLV2ParentUI *PluginLV2Client::find_ui()
 {
+       return PluginLV2ParentUI::plugin_lv2.find_ui(server->plugin);
 }
-
-
-void PluginLV2ClientWindow::create_objects()
+PluginLV2ParentUI *PluginLV2ClientWindow::find_ui()
 {
-       BC_Title *title;
-       int x = 10, y = 10;
-       add_subwindow(title = new BC_Title(x, y, plugin->title));
-       y += title->get_h() + 10;
-       add_subwindow(varbl = new BC_Title(x, y, ""));
-       add_subwindow(range = new BC_Title(x+160, y, ""));
-       int x1 = get_w() - BC_GenericButton::calculate_w(this, _("Reset")) - 8;
-       add_subwindow(reset = new PluginLV2ClientReset(this, x1, y));
-       y += title->get_h() + 10;
-       x1 = get_w() - BC_GenericButton::calculate_w(this, _("Apply")) - 8;
-       add_subwindow(apply = new PluginLV2ClientApply(this, x1, y));
-       add_subwindow(text = new PluginLV2ClientText(this, x, y, x1-x - 8));
-       y += title->get_h() + 10;
-       plugin->init_lv2();
-
-       int panel_x = x, panel_y = y;
-       int panel_w = get_w()-10 - panel_x;
-       int panel_h = get_h()-10 - panel_y;
-       panel = new PluginLV2Client_OptPanel(this, panel_x, panel_y, panel_w, panel_h);
-       add_subwindow(panel);
-       panel->update();
-       show_window(1);
+       return PluginLV2ParentUI::plugin_lv2.find_ui(client->server->plugin);
 }
 
-void PluginLV2ClientWindow::update_selected()
+PluginLV2ParentUI *PluginLV2UIs::get_ui(PluginLV2Client *client)
 {
-       update(selected);
+       lock("PluginLV2UIs::get_ui");
+       Plugin *plugin = client->server->plugin;
+       PluginLV2ParentUI *ui = search_ui(plugin);
+       if( !ui ) ui = add_ui(new PluginLV2ParentUI(plugin), client);
+       unlock();
+       return ui;
 }
-
-int PluginLV2ClientWindow::scalar(float f, char *rp)
+PluginLV2ParentUI *PluginLV2Client::get_ui()
 {
-        const char *cp = 0;
-             if( f == FLT_MAX ) cp = "FLT_MAX";
-        else if( f == FLT_MIN ) cp = "FLT_MIN";
-        else if( f == -FLT_MAX ) cp = "-FLT_MAX";
-        else if( f == -FLT_MIN ) cp = "-FLT_MIN";
-        else if( f == 0 ) cp = signbit(f) ? "-0" : "0";
-        else if( isnan(f) ) cp = signbit(f) ? "-NAN" : "NAN";
-        else if( isinf(f) ) cp = signbit(f) ? "-INF" : "INF";
-        else return sprintf(rp, "%g", f);
-        return sprintf(rp, "%s", cp);
+       PluginLV2ParentUI *ui = PluginLV2ParentUI::plugin_lv2.get_ui(this);
+       ui->client = this;
+       return ui;
 }
-
-void PluginLV2ClientWindow::update(PluginLV2Client_Opt *opt)
+PluginLV2ParentUI *PluginLV2ClientWindow::get_ui()
 {
-       if( selected != opt ) {
-               if( selected ) selected->item_name->set_selected(0);
-               selected = opt;
-               if( selected ) selected->item_name->set_selected(1);
-       }
-       char var[BCSTRLEN];  var[0] = 0;
-       char val[BCSTRLEN];  val[0] = 0;
-       char rng[BCTEXTLEN]; rng[0] = 0;
-       if( opt ) {
-               sprintf(var,"%s:", opt->conf->names[opt->idx]);
-               char *cp = rng;
-               cp += sprintf(cp,"( ");
-               cp += scalar(opt->conf->mins[opt->idx], cp);
-               cp += sprintf(cp, " .. ");
-               cp += scalar(opt->conf->maxs[opt->idx], cp);
-               cp += sprintf(cp, " )");
-               sprintf(val, "%f", opt->get_value());
-       }
-       varbl->update(var);
-       range->update(rng);
-       text->update(val);
-       panel->update();
+       PluginLV2ParentUI *ui = PluginLV2ParentUI::plugin_lv2.get_ui(client);
+       ui->gui = this;
+       return ui;
 }
 
 
 PluginLV2Client::PluginLV2Client(PluginServer *server)
- : PluginAClient(server)
-{
-       in_buffers = 0;
-       out_buffers = 0;
-       nb_in_bfrs = 0;
-       nb_out_bfrs = 0;
-        bfrsz = 0;
-       nb_inputs = 0;
-       nb_outputs = 0;
-       max_bufsz = 0;
-
-       world = 0;
-       instance = 0;
-       lv2_InputPort = 0;
-       lv2_OutputPort = 0;
-       lv2_AudioPort = 0;
-       lv2_CVPort = 0;
-       lv2_ControlPort = 0;
-       lv2_Optional = 0;
-       atom_AtomPort = 0;
-       atom_Sequence = 0;
-       urid_map = 0;
-       powerOf2BlockLength = 0;
-       fixedBlockLength = 0;
-       boundedBlockLength = 0;
-       seq_out = 0;
+ : PluginAClient(server), PluginLV2()
+{
+       title[0] = 0;
 }
 
 PluginLV2Client::~PluginLV2Client()
 {
-       reset_lv2();
-       lilv_world_free(world);
+       PluginLV2ParentUI::plugin_lv2.del_ui(this);
 }
 
-void PluginLV2Client::reset_lv2()
-{
-       if( instance ) lilv_instance_deactivate(instance);
-       lilv_instance_free(instance);         instance = 0;
-       lilv_node_free(powerOf2BlockLength);  powerOf2BlockLength = 0;
-       lilv_node_free(fixedBlockLength);     fixedBlockLength = 0;
-       lilv_node_free(boundedBlockLength);   boundedBlockLength = 0;
-       lilv_node_free(urid_map);             urid_map = 0;
-       lilv_node_free(atom_Sequence);        atom_Sequence = 0;
-       lilv_node_free(atom_AtomPort);        atom_AtomPort = 0;
-       lilv_node_free(lv2_Optional);         lv2_Optional = 0;
-       lilv_node_free(lv2_ControlPort);      lv2_ControlPort = 0;
-       lilv_node_free(lv2_AudioPort);        lv2_AudioPort = 0;
-       lilv_node_free(lv2_CVPort);           lv2_CVPort = 0;
-       lilv_node_free(lv2_OutputPort);       lv2_OutputPort = 0;
-       lilv_node_free(lv2_InputPort);        lv2_InputPort = 0;
-       delete [] (char *)seq_out;            seq_out = 0;
-       uri_table.remove_all_objects();
-       delete_buffers();
-       nb_inputs = 0;
-       nb_outputs = 0;
-       max_bufsz = 0;
-       config.reset();
-       config.remove_all_objects();
-}
-
-int PluginLV2Client::load_lv2(const char *path)
-{
-       if( !world ) {
-               world = lilv_world_new();
-               if( !world ) {
-                       printf("lv2: lilv_world_new failed");
-                       return 1;
-               }
-               lilv_world_load_all(world);
-       }
-
-       LilvNode *uri = lilv_new_uri(world, path);
-       if( !uri ) {
-               printf("lv2: lilv_new_uri(%s) failed", path);
-               return 1;
-       }
-
-       const LilvPlugins *all_plugins = lilv_world_get_all_plugins(world);
-       lilv = lilv_plugins_get_by_uri(all_plugins, uri);
-       lilv_node_free(uri);
-       if( !lilv ) {
-               printf("lv2: lilv_plugins_get_by_uriPlugin(%s) failed", path);
-               return 1;
-       }
-
-       LilvNode *name = lilv_plugin_get_name(lilv);
-       const char *nm = lilv_node_as_string(name);
-       snprintf(title,sizeof(title),"L2_%s",nm);
-       lilv_node_free(name);
-       return 0;
-}
+NEW_WINDOW_MACRO(PluginLV2Client, PluginLV2ClientWindow)
 
 int PluginLV2Client::init_lv2()
 {
-       reset_lv2();
-
-       lv2_InputPort       = lilv_new_uri(world, LV2_CORE__InputPort);
-       lv2_OutputPort      = lilv_new_uri(world, LV2_CORE__OutputPort);
-       lv2_AudioPort       = lilv_new_uri(world, LV2_CORE__AudioPort);
-       lv2_ControlPort     = lilv_new_uri(world, LV2_CORE__ControlPort);
-       lv2_CVPort          = lilv_new_uri(world, LV2_CORE__CVPort);
-       lv2_Optional        = lilv_new_uri(world, LV2_CORE__connectionOptional);
-       atom_AtomPort       = lilv_new_uri(world, LV2_ATOM__AtomPort);
-       atom_Sequence       = lilv_new_uri(world, LV2_ATOM__Sequence);
-       urid_map            = lilv_new_uri(world, LV2_URID__map);
-       powerOf2BlockLength = lilv_new_uri(world, LV2_BUF_SIZE__powerOf2BlockLength);
-       fixedBlockLength    = lilv_new_uri(world, LV2_BUF_SIZE__fixedBlockLength);
-       boundedBlockLength  = lilv_new_uri(world, LV2_BUF_SIZE__boundedBlockLength);
-       seq_out = (LV2_Atom_Sequence *) new char[sizeof(LV2_Atom_Sequence) + LV2_SEQ_SIZE];
-
-       config.init_lv2(lilv);
-       nb_inputs = nb_outputs = 0;
-
-        for( int i=0; i<config.nb_ports; ++i ) {
-               const LilvPort *lp = lilv_plugin_get_port_by_index(lilv, i);
-               int is_input = lilv_port_is_a(lilv, lp, lv2_InputPort);
-               if( !is_input && !lilv_port_is_a(lilv, lp, lv2_OutputPort) &&
-                   !lilv_port_has_property(lilv, lp, lv2_Optional) ) {
-                       printf("lv2: not input, not output, and not optional: %s\n", config.names[i]);
-                       continue;
-               }
-               if( is_input && lilv_port_is_a(lilv, lp, lv2_ControlPort) ) {
-                       const char *sym = lilv_node_as_string(lilv_port_get_symbol(lilv, lp));
-                       config.append(new PluginLV2Client_Opt(&config, sym, i));
-                       continue;
-               }
-               if( lilv_port_is_a(lilv, lp, lv2_AudioPort) ||
-                   lilv_port_is_a(lilv, lp, lv2_CVPort ) ) {
-                       if( is_input ) ++nb_inputs; else ++nb_outputs;
-                       continue;
-               }
+       int bfrsz = block_length;
+       EDL *edl = server->edl;
+       if( edl ) {
+               PlaybackConfig *playback_config = edl->session->playback_config;
+               bfrsz = playback_config->aconfig->fragment_size;
        }
-
-       map.handle = (void*)&uri_table;
-       map.map = uri_table_map;
-       map_feature.URI = LV2_URID_MAP_URI;
-       map_feature.data = &map;
-       unmap.handle = (void*)&uri_table;
-       unmap.unmap  = uri_table_unmap;
-       unmap_feature.URI = LV2_URID_UNMAP_URI;
-       unmap_feature.data = &unmap;
-       features[0] = &map_feature;
-       features[1] = &unmap_feature;
-       static const LV2_Feature buf_size_features[3] = {
-               { LV2_BUF_SIZE__powerOf2BlockLength, NULL },
-               { LV2_BUF_SIZE__fixedBlockLength,    NULL },
-               { LV2_BUF_SIZE__boundedBlockLength,  NULL },
-       };
-       features[2] = &buf_size_features[0];
-       features[3] = &buf_size_features[1];
-       features[4] = &buf_size_features[2];
-       features[5] = 0;
-
-       instance = lilv_plugin_instantiate(lilv, sample_rate, features);
-       if( !instance ) {
-               printf("lv2: lilv_plugin_instantiate failed: %s\n", server->title);
-               return 1;
-       }
-       lilv_instance_activate(instance);
-// not sure what to do with these
-       max_bufsz = nb_inputs &&
-               (lilv_plugin_has_feature(lilv, powerOf2BlockLength) ||
-                lilv_plugin_has_feature(lilv, fixedBlockLength) ||
-                lilv_plugin_has_feature(lilv, boundedBlockLength)) ? 4096 : 0;
-       return 0;
-}
-
-LV2_URID PluginLV2Client::uri_table_map(LV2_URID_Map_Handle handle, const char *uri)
-{
-       return ((PluginLV2UriTable *)handle)->map(uri);
-}
-
-const char *PluginLV2Client::uri_table_unmap(LV2_URID_Map_Handle handle, LV2_URID urid)
-{
-       return ((PluginLV2UriTable *)handle)->unmap(urid);
+       int sample_rate = get_project_samplerate();
+       if( sample_rate < 64 ) sample_rate = samplerate;
+       return PluginLV2::init_lv2(config, sample_rate, bfrsz);
 }
 
-NEW_WINDOW_MACRO(PluginLV2Client, PluginLV2ClientWindow)
-
 int PluginLV2Client::load_configuration()
 {
        int64_t src_position =  get_source_position();
@@ -596,14 +193,24 @@ void PluginLV2Client::update_gui()
 {
        PluginClientThread *thread = get_thread();
        if( !thread ) return;
-       PluginLV2ClientWindow *window = (PluginLV2ClientWindow*)thread->get_window();
-       window->lock_window("PluginFClient::update_gui");
+       PluginLV2ClientWindow *gui = (PluginLV2ClientWindow*)thread->get_window();
+       gui->lock_window("PluginFClient::update_gui");
        load_configuration();
-       if( config.update() > 0 )
-               window->update_selected();
-       window->unlock_window();
+       if( config.update() > 0 ) {
+               gui->update_selected();
+               update_lv2();
+       }
+       gui->unlock_window();
 }
 
+void PluginLV2Client::update_lv2()
+{
+       PluginLV2ParentUI *ui = find_ui();
+       if( !ui ) return;
+       ui->send_child(LV2_UPDATE, config.ctls, sizeof(float)*config.nb_ports);
+}
+
+
 int PluginLV2Client::is_realtime() { return 1; }
 int PluginLV2Client::is_multichannel() { return nb_inputs > 1 || nb_outputs > 1 ? 1 : 0; }
 const char* PluginLV2Client::plugin_title() { return title; }
@@ -622,12 +229,12 @@ char* PluginLV2Client::to_string(char *string, const char *input)
 void PluginLV2Client::save_data(KeyFrame *keyframe)
 {
        FileXML output;
-       output.set_shared_output(keyframe->get_data(), MESSAGESIZE);
+       output.set_shared_output(keyframe->xbuf);
        char name[BCTEXTLEN];  to_string(name, plugin_title());
        output.tag.set_title(name);
        for( int i=0; i<config.size(); ++i ) {
                PluginLV2Client_Opt *opt = config[i];
-               output.tag.set_property(opt->sym, opt->get_value());
+               output.tag.set_property(opt->get_symbol(), opt->get_value());
        }
        output.append_tag();
        output.terminate_string();
@@ -636,136 +243,109 @@ void PluginLV2Client::save_data(KeyFrame *keyframe)
 void PluginLV2Client::read_data(KeyFrame *keyframe)
 {
        FileXML input;
-       input.set_shared_input(keyframe->get_data(), strlen(keyframe->get_data()));
+       input.set_shared_input(keyframe->xbuf);
        char name[BCTEXTLEN];  to_string(name, plugin_title());
 
        while( !input.read_tag() ) {
                if( !input.tag.title_is(name) ) continue;
                for( int i=0; i<config.size(); ++i ) {
                        PluginLV2Client_Opt *opt = config[i];
-                       float value = input.tag.get_property(opt->sym, 0.);
+                       float value = input.tag.get_property(opt->get_symbol(), 0.);
                        opt->set_value(value);
                }
        }
 }
 
-void PluginLV2Client::connect_ports()
+void PluginLV2Client::load_buffer(int samples, Samples **input, int ich)
 {
-       int ich = 0, och = 0;
-       for( int i=0; i<config.nb_ports; ++i ) {
-               const LilvPort *lp = lilv_plugin_get_port_by_index(lilv, i);
-               if( lilv_port_is_a(lilv, lp, lv2_AudioPort) ||
-                   lilv_port_is_a(lilv, lp, lv2_CVPort) ) {
-                       if( lilv_port_is_a(lilv, lp, lv2_InputPort) )
-                               lilv_instance_connect_port(instance, i, in_buffers[ich++]);
-                       else if( lilv_port_is_a(lilv, lp, lv2_OutputPort))
-                               lilv_instance_connect_port(instance, i, out_buffers[och++]);
-                       continue;
-               }
-               if( lilv_port_is_a(lilv, lp, atom_AtomPort) ) {
-                       if( lilv_port_is_a(lilv, lp, lv2_InputPort) )
-                               lilv_instance_connect_port(instance, i, &seq_in);
-                       else
-                               lilv_instance_connect_port(instance, i, seq_out);
-                       continue;
-               }
-               if( lilv_port_is_a(lilv, lp, lv2_ControlPort) ) {
-                       lilv_instance_connect_port(instance, i, &config.ctls[i]);
-                       continue;
-               }
+       for( int i=0; i<nb_inputs; ++i ) {
+               int k = i < ich ? i : 0;
+               double *inp = input[k]->get_data();
+               float *ip = in_buffers[i];
+               for( int j=samples; --j>=0; *ip++=*inp++ );
        }
-
-       seq_in[0].atom.size = sizeof(LV2_Atom_Sequence_Body);
-       seq_in[0].atom.type = uri_table.map(LV2_ATOM__Sequence);
-       seq_in[1].atom.size = 0;
-       seq_in[1].atom.type = 0;
-       seq_out->atom.size  = LV2_SEQ_SIZE;
-       seq_out->atom.type  = uri_table.map(LV2_ATOM__Chunk);
+       for( int i=0; i<nb_outputs; ++i )
+               bzero(out_buffers[i], samples*sizeof(float));
 }
 
-void PluginLV2Client::init_plugin(int size)
+int PluginLV2Client::unload_buffer(int samples, Samples **output, int och)
 {
-       if( !instance )
-               init_lv2();
-
-       load_configuration();
-
-       if( bfrsz < size )
-               delete_buffers();
-
-       bfrsz = MAX(size, bfrsz);
-       if( !in_buffers ) {
-               in_buffers = new float*[nb_in_bfrs=nb_inputs];
-               for(int i=0; i<nb_in_bfrs; ++i )
-                       in_buffers[i] = new float[bfrsz];
-       }
-       if( !out_buffers ) {
-               out_buffers = new float*[nb_out_bfrs=nb_outputs];
-               for( int i=0; i<nb_out_bfrs; ++i )
-                       out_buffers[i] = new float[bfrsz];
+       if( nb_outputs < och ) och = nb_outputs;
+       for( int i=0; i<och; ++i ) {
+               double *outp = output[i]->get_data();
+               float *op = out_buffers[i];
+               for( int j=samples; --j>=0; *outp++=*op++ );
        }
+       return samples;
 }
 
-void PluginLV2Client::delete_buffers()
+void PluginLV2Client::process_buffer(int size)
 {
-       if( in_buffers ) {
-               for( int i=0; i<nb_in_bfrs; ++i ) delete [] in_buffers[i];
-               delete [] in_buffers;  in_buffers = 0;  nb_in_bfrs = 0;
-       }
-       if( out_buffers ) {
-                for( int i=0; i<nb_out_bfrs; ++i ) delete [] out_buffers[i];
-               delete [] out_buffers;  out_buffers = 0;  nb_out_bfrs = 0;
-       }
-        bfrsz = 0;
+       PluginLV2ParentUI *ui = get_ui();
+       if( !ui ) return;
+       shm_bfr->done = 0;
+       ui->send_child(LV2_SHMID, &shmid, sizeof(shmid));
+// timeout 10*duration, min 2sec, max 10sec
+       double sample_rate = get_project_samplerate();
+       double t = !sample_rate ? 2. : 10. * size / sample_rate;
+       bclamp(t, 2., 10.);
+       ui->output_bfr->timed_lock(t*1e6, "PluginLV2Client::process_buffer");
+       if( !shm_bfr->done )
+               eprintf("timeout: %s",server->title);
 }
 
 int PluginLV2Client::process_realtime(int64_t size,
        Samples *input_ptr, Samples *output_ptr)
 {
-       init_plugin(size);
-
-       for( int i=0; i<nb_in_bfrs; ++i ) {
-               double *inp = input_ptr->get_data();
-               float *ip = in_buffers[i];
-               for( int j=size; --j>=0; *ip++=*inp++ );
-       }
-       for( int i=0; i<nb_out_bfrs; ++i )
-               bzero(out_buffers[i], size*sizeof(float));
-
-       connect_ports();
-       lilv_instance_run(instance, size);
-
-       double *outp = output_ptr->get_data();
-       float *op = out_buffers[0];
-       for( int i=size; --i>=0; *outp++=*op++ );
-       return size;
+       if( load_configuration() )
+               update_lv2();
+       init_buffer(size);
+       load_buffer(size, &input_ptr, 1);
+       process_buffer(size);
+       return unload_buffer(size, &output_ptr, 1);
 }
 
 int PluginLV2Client::process_realtime(int64_t size,
        Samples **input_ptr, Samples **output_ptr)
 {
-       init_plugin(size);
+       if( load_configuration() )
+               update_lv2();
+       init_buffer(size);
+       load_buffer(size, input_ptr, PluginClient::total_in_buffers);
+       process_buffer(size);
+       return unload_buffer(size, output_ptr, PluginClient::total_out_buffers);
+}
 
-       for( int i=0; i<nb_in_bfrs; ++i ) {
-               int k = i < PluginClient::total_in_buffers ? i : 0;
-               double *inp = input_ptr[k]->get_data();
-               float *ip = in_buffers[i];
-               for( int j=size; --j>=0; *ip++=*inp++ );
+
+PluginLV2BlackList::PluginLV2BlackList(const char *path)
+{
+       set_array_delete();
+       char lv2_blacklist_path[BCTEXTLEN];
+       sprintf(lv2_blacklist_path, "%s/%s", File::get_cindat_path(), path);
+       FILE *bfp = fopen(lv2_blacklist_path, "r");
+       if( !bfp ) return;
+       while( fgets(lv2_blacklist_path, sizeof(lv2_blacklist_path), bfp) ) {
+               if( lv2_blacklist_path[0] == '#' ) continue;
+               int len = strlen(lv2_blacklist_path);
+               if( len > 0 && lv2_blacklist_path[len-1] == '\n' )
+                       lv2_blacklist_path[len-1] = 0;
+               if( !lv2_blacklist_path[0] ) continue;
+               append(cstrdup(lv2_blacklist_path));
        }
-       for( int i=0; i<nb_out_bfrs; ++i )
-               bzero(out_buffers[i], size*sizeof(float));
+       fclose(bfp);
+}
 
-       connect_ports();
-       lilv_instance_run(instance, size);
+PluginLV2BlackList::~PluginLV2BlackList()
+{
+       remove_all_objects();
+}
 
-       int nbfrs = PluginClient::total_out_buffers;
-       if( nb_out_bfrs < nbfrs ) nbfrs = nb_out_bfrs;
-       for( int i=0; i<nbfrs; ++i ) {
-               double *outp = output_ptr[i]->get_data();
-               float *op = out_buffers[i];
-               for( int j=size; --j>=0; *outp++=*op++ );
-       }
-       return size;
+int PluginLV2BlackList::is_badboy(const char *uri)
+{
+       FileSystem fs;
+       for( int i=size(); --i>=0; )
+               if( !fs.test_filter(uri, get(i)) ) return 1;
+       return 0;
 }
 
 PluginServer* MWindow::new_lv2_server(MWindow *mwindow, const char *name)
@@ -776,14 +356,16 @@ PluginServer* MWindow::new_lv2_server(MWindow *mwindow, const char *name)
 PluginClient *PluginServer::new_lv2_plugin()
 {
        PluginLV2Client *client = new PluginLV2Client(this);
-       if( client->load_lv2(path) ) { delete client;  client = 0; }
-       else client->init_lv2();
+       if( client->load_lv2(path, client->title) ) { delete client;  return client = 0; }
+       client->init_lv2();
        return client;
 }
 
 int MWindow::init_lv2_index(MWindow *mwindow, Preferences *preferences, FILE *fp)
 {
        printf("init lv2 index:\n");
+       PluginLV2BlackList blacklist("lv2_blacklist.txt");
+
        LilvWorld *world = lilv_world_new();
        lilv_world_load_all(world);
        const LilvPlugins *all_plugins = lilv_world_get_all_plugins(world);
@@ -791,6 +373,8 @@ int MWindow::init_lv2_index(MWindow *mwindow, Preferences *preferences, FILE *fp
        LILV_FOREACH(plugins, i, all_plugins) {
                const LilvPlugin *lilv = lilv_plugins_get(all_plugins, i);
                const char *uri = lilv_node_as_uri(lilv_plugin_get_uri(lilv));
+               if( blacklist.is_badboy(uri) ) continue;
+printf("LOAD: %s\n", uri);
                PluginServer server(mwindow, uri, PLUGIN_TYPE_LV2);
                int result = server.open_plugin(1, preferences, 0, 0);
                if( !result ) {
@@ -803,6 +387,101 @@ int MWindow::init_lv2_index(MWindow *mwindow, Preferences *preferences, FILE *fp
        return 0;
 }
 
+PluginLV2ParentUI::PluginLV2ParentUI(Plugin *plugin)
+{
+       this->position = plugin->startproject;
+       PluginSet *plugin_set = plugin->plugin_set;
+       if( plugin_set ) {
+               this->set_no = plugin_set->get_number();
+               this->track_no = plugin_set->track->number_of();
+       }
+       else
+               this->track_no = this->set_no = -1;
+
+       output_bfr = new Condition(0, "PluginLV2ParentUI::output_bfr", 1);
+       client = 0;
+       gui = 0;
+       hidden = -1;
+}
+
+PluginLV2ParentUI::~PluginLV2ParentUI()
+{
+       stop();
+       delete output_bfr;
+}
+
+void PluginLV2ParentUI::start_parent(PluginLV2Client *client)
+{
+       start();
+       const char *path = client->server->path;
+       int len = sizeof(open_bfr_t) + strlen(path);
+       char bfr[len];  memset(bfr, 0, len);
+       open_bfr_t *open_bfr = (open_bfr_t *)bfr;
+       open_bfr->sample_rate = client->get_project_samplerate();
+       PlaybackConfig *playback_config = client->server->edl->session->playback_config;
+       open_bfr->bfrsz = playback_config->aconfig->fragment_size;
+       strcpy(open_bfr->path, path);
+       send_child(LV2_OPEN, open_bfr, len);
+       PluginLV2ClientConfig &conf = client->config;
+       send_child(LV2_LOAD, conf.ctls, conf.nb_ports*sizeof(float));
+}
+
+int PluginLV2ParentUI::handle_parent()
+{
+       int result = 1;
+
+       switch( parent_token ) {
+       case LV2_UPDATE: {
+               if( !gui ) break;
+               gui->lv2_update((float *)parent_data);
+               break; }
+       case LV2_HIDE: {
+               hidden = 1;
+               break; }
+       case LV2_SHOW: {
+               if( hidden < 0 )
+                       gui->lv2_ui_enable();
+               hidden = 0;
+               break; }
+       case LV2_SHMID: {
+               output_bfr->unlock();
+               break; }
+       case EXIT_CODE: {
+               hidden = 1;
+               output_bfr->unlock();
+               result = -1;
+               break; }
+       default:
+               result = 0;
+               break;
+       }
+
+       return result;
+}
+
+int PluginLV2ParentUI::show()
+{
+       if( !hidden ) return 1;
+       send_child(LV2_SHOW, 0, 0);
+       return 0;
+}
+
+int PluginLV2ParentUI::hide()
+{
+       if( hidden ) return 1;
+       send_child(LV2_HIDE, 0, 0);
+       return 0;
+}
+
+ForkChild *PluginLV2ParentUI::new_fork()
+{
+       return new PluginLV2ChildUI();
+}
+
+// stub in parent
+int PluginLV2ChildUI::child_iteration(int64_t usec) { return -1; }
+int PluginLV2ChildUI::send_host(int64_t token, const void *data, int bytes) { return -1; }
+
 #else
 #include "mwindow.h"
 #include "pluginserver.h"