fix crash when copy'ing latent plugins
[ardour.git] / libs / ardour / buffer_set.cc
index 2a1e7f2498da908a45ab0ecb19bb5e26413e7a4c..92f5272b3b2bee945c8723eb0b2188ff58518e9b 100644 (file)
 
 #include <iostream>
 #include <algorithm>
+#include <sstream>
+
+#include "pbd/compose.h"
+#include "pbd/failed_constructor.h"
+
 #include "ardour/buffer.h"
 #include "ardour/buffer_set.h"
+#include "ardour/debug.h"
 #include "ardour/midi_buffer.h"
 #include "ardour/port.h"
 #include "ardour/port_set.h"
-#include "ardour/audioengine.h"
-#ifdef HAVE_SLV2
+#include "ardour/uri_map.h"
+#ifdef LV2_SUPPORT
 #include "ardour/lv2_plugin.h"
-#include "ardour/lv2_event_buffer.h"
+#include "lv2_evbuf.h"
+#endif
+#if defined WINDOWS_VST_SUPPORT || defined LXVST_SUPPORT
+#include "ardour/vestige/aeffectx.h"
 #endif
 
 namespace ARDOUR {
@@ -69,31 +78,77 @@ BufferSet::clear()
        _buffers.clear();
        _count.reset();
        _available.reset();
+
+#if defined WINDOWS_VST_SUPPORT || defined LXVST_SUPPORT
+       for (VSTBuffers::iterator i = _vst_buffers.begin(); i != _vst_buffers.end(); ++i) {
+               delete *i;
+       }
+
+       _vst_buffers.clear ();
+#endif
+
+#ifdef LV2_SUPPORT
+       for (LV2Buffers::iterator i = _lv2_buffers.begin(); i != _lv2_buffers.end(); ++i) {
+               free ((*i).second);
+       }
+       _lv2_buffers.clear ();
+#endif
+
 }
 
-/** Make this BufferSet a direct mirror of a PortSet's buffers.
+/** Set up this BufferSet so that its data structures mirror a PortSet's buffers.
+ *  This is quite expensive and not RT-safe, so it should not be called in a process context;
+ *  get_backend_port_addresses() will fill in a structure set up by this method.
+ *
+ *  XXX: this *is* called in a process context; I'm not sure quite what `should not' means above.
  */
 void
-BufferSet::attach_buffers(PortSet& ports, nframes_t nframes, nframes_t offset)
+BufferSet::attach_buffers (PortSet& ports)
 {
-       clear();
+       const ChanCount& count (ports.count());
+
+       clear ();
 
        for (DataType::iterator t = DataType::begin(); t != DataType::end(); ++t) {
-               _buffers.push_back(BufferVec());
+               _buffers.push_back (BufferVec());
                BufferVec& v = _buffers[*t];
-
-               for (PortSet::iterator p = ports.begin(*t); p != ports.end(*t); ++p) {
-                       assert(p->type() == *t);
-                       v.push_back(&(p->get_buffer(nframes, offset)));
-               }
+               v.assign (count.n (*t), (Buffer*) 0);
        }
 
        _count = ports.count();
        _available = ports.count();
 
+
        _is_mirror = true;
 }
 
+/** Write the backend port addresses from a PortSet into our data structures.  This
+ *  call assumes that attach_buffers() has already been called for the same PortSet.
+ *  Does not allocate, so RT-safe BUT you can only call Port::get_buffer() from
+ *  the process() callback tree anyway, so this has to be called in RT context.
+ */
+void
+BufferSet::get_backend_port_addresses (PortSet& ports, framecnt_t nframes)
+{
+       assert (_count == ports.count ());
+       assert (_available == ports.count ());
+       assert (_is_mirror);
+
+       assert (_buffers.size() == DataType::num_types);
+
+       for (DataType::iterator t = DataType::begin(); t != DataType::end(); ++t) {
+               BufferVec& v = _buffers[*t];
+
+               assert (v.size() == ports.num_ports (*t));
+
+               int i = 0;
+               for (PortSet::iterator p = ports.begin(*t); p != ports.end(*t); ++p) {
+                       v[i] = &p->get_buffer (nframes);
+                       ++i;
+               }
+       }
+}
+
 /** Ensure that there are @a num_buffers buffers of type @a type available,
  * each of size at least @a buffer_size
  */
@@ -120,7 +175,7 @@ BufferSet::ensure_buffers(DataType type, size_t num_buffers, size_t buffer_capac
        // If there's not enough or they're too small, just nuke the whole thing and
        // rebuild it (so I'm lazy..)
        if (bufs.size() < num_buffers
-                       || (bufs.size() > 0 && bufs[0]->capacity() < buffer_capacity)) {
+           || (bufs.size() > 0 && bufs[0]->capacity() < buffer_capacity)) {
 
                // Nuke it
                for (BufferVec::iterator i = bufs.begin(); i != bufs.end(); ++i) {
@@ -137,12 +192,25 @@ BufferSet::ensure_buffers(DataType type, size_t num_buffers, size_t buffer_capac
                _count.set (type, num_buffers);
        }
 
-#ifdef HAVE_SLV2
+#ifdef LV2_SUPPORT
        // Ensure enough low level MIDI format buffers are available for conversion
        // in both directions (input & output, out-of-place)
        if (type == DataType::MIDI && _lv2_buffers.size() < _buffers[type].size() * 2 + 1) {
                while (_lv2_buffers.size() < _buffers[type].size() * 2) {
-                       _lv2_buffers.push_back(std::make_pair(false, new LV2EventBuffer(buffer_capacity)));
+                       _lv2_buffers.push_back(
+                               std::make_pair(false, lv2_evbuf_new(buffer_capacity,
+                                                                   LV2_EVBUF_EVENT,
+                                                                   URIMap::instance().urids.atom_Chunk,
+                                                                   URIMap::instance().urids.atom_Sequence)));
+               }
+       }
+#endif
+
+#if defined WINDOWS_VST_SUPPORT || defined LXVST_SUPPORT
+       // As above but for VST
+       if (type == DataType::MIDI) {
+               while (_vst_buffers.size() < _buffers[type].size()) {
+                       _vst_buffers.push_back (new VSTBuffer (buffer_capacity));
                }
        }
 #endif
@@ -160,68 +228,9 @@ BufferSet::ensure_buffers(DataType type, size_t num_buffers, size_t buffer_capac
 void
 BufferSet::ensure_buffers(const ChanCount& chns, size_t buffer_capacity)
 {
-       if (chns == ChanCount::ZERO) {
-               return;
-       }
-
-       // If we're a mirror just make sure we're ok
-       if (_is_mirror) {
-               assert(_count >= chns);
-               return;
-       }
-
-       for (DataType::iterator t = DataType::begin(); t != DataType::end(); ++t) {
-
-               // The vector of buffers of this type
-               BufferVec& bufs = _buffers[*t];
-
-               uint32_t nbufs = chns.get (*t);
-
-               if (nbufs == 0) {
-                       // Nuke it
-                       for (BufferVec::iterator i = bufs.begin(); i != bufs.end(); ++i) {
-                               delete (*i);
-                       }
-                       bufs.clear();
-                       continue;
-               }
-
-               // If there's not enough or they're too small, just nuke the whole thing and
-               // rebuild it (so I'm lazy..)
-               if (bufs.size() < nbufs
-                   || (bufs.size() > 0 && bufs[0]->capacity() < buffer_capacity)) {
-
-                       // Nuke it
-                       for (BufferVec::iterator i = bufs.begin(); i != bufs.end(); ++i) {
-                               delete (*i);
-                       }
-                       bufs.clear();
-
-                       // Rebuild it
-                       for (size_t i = 0; i < nbufs; ++i) {
-                               bufs.push_back(Buffer::create(*t, buffer_capacity));
-                       }
-
-                       _available.set (*t, nbufs);
-               }
-
-#ifdef HAVE_SLV2
-               // Ensure enough low level MIDI format buffers are available for conversion
-               // in both directions (input & output, out-of-place)
-               if (*t == DataType::MIDI && _lv2_buffers.size() < _buffers[DataType::MIDI].size() * 2 + 1) {
-                       while (_lv2_buffers.size() < _buffers[DataType::MIDI].size() * 2) {
-                               _lv2_buffers.push_back(std::make_pair(false, new LV2EventBuffer(buffer_capacity)));
-                       }
-               }
-#endif
-
-               // Post-conditions
-               assert(bufs[0]->type() == *t);
-               assert(bufs.size() == _available.get(*t));
-               assert(bufs[0]->capacity() >= buffer_capacity);
+       for (DataType::iterator i = DataType::begin(); i != DataType::end(); ++i) {
+               ensure_buffers (*i, chns.get (*i), buffer_capacity);
        }
-
-       assert (available() == chns);
 }
 
 /** Get the capacity (size) of the available buffers of the given type.
@@ -249,65 +258,198 @@ BufferSet::get(DataType type, size_t i) const
        return *_buffers[type][i];
 }
 
-#ifdef HAVE_SLV2
+#ifdef LV2_SUPPORT
 
-LV2EventBuffer&
-BufferSet::get_lv2_midi(bool input, size_t i)
+void
+BufferSet::ensure_lv2_bufsize(bool input, size_t i, size_t buffer_capacity)
 {
-       MidiBuffer& mbuf = get_midi(i);
-       LV2Buffers::value_type b = _lv2_buffers.at(i * 2 + (input ? 0 : 1));
-       LV2EventBuffer* ebuf = b.second;
-
-       ebuf->reset();
-       if (input) {
-               for (MidiBuffer::iterator e = mbuf.begin(); e != mbuf.end(); ++e) {
-                       const Evoral::MIDIEvent<nframes_t> ev(*e, false);
-                       uint32_t type = LV2Plugin::midi_event_type();
-                       ebuf->append(ev.time(), 0, type, ev.size(), ev.buffer());
+       assert(count().get(DataType::MIDI) > i);
+
+       LV2Buffers::value_type b     = _lv2_buffers.at(i * 2 + (input ? 0 : 1));
+       LV2_Evbuf*             evbuf = b.second;
+
+       if (lv2_evbuf_get_capacity(evbuf) >= buffer_capacity) return;
+
+       lv2_evbuf_free(b.second);
+       _lv2_buffers.at(i * 2 + (input ? 0 : 1)) =
+               std::make_pair(false, lv2_evbuf_new(
+                                       buffer_capacity,
+                                       LV2_EVBUF_EVENT,
+                                       URIMap::instance().urids.atom_Chunk,
+                                       URIMap::instance().urids.atom_Sequence));
+}
+
+LV2_Evbuf*
+BufferSet::get_lv2_midi(bool input, size_t i, bool old_api)
+{
+       assert(count().get(DataType::MIDI) > i);
+
+       LV2Buffers::value_type b     = _lv2_buffers.at(i * 2 + (input ? 0 : 1));
+       LV2_Evbuf*             evbuf = b.second;
+
+       lv2_evbuf_set_type(evbuf, old_api ? LV2_EVBUF_EVENT : LV2_EVBUF_ATOM);
+       lv2_evbuf_reset(evbuf, input);
+       return evbuf;
+}
+
+void
+BufferSet::forward_lv2_midi(LV2_Evbuf* buf, size_t i, bool purge_ardour_buffer)
+{
+       MidiBuffer& mbuf  = get_midi(i);
+       if (purge_ardour_buffer) {
+               mbuf.silence(0, 0);
+       }
+       for (LV2_Evbuf_Iterator i = lv2_evbuf_begin(buf);
+                        lv2_evbuf_is_valid(i);
+                        i = lv2_evbuf_next(i)) {
+               uint32_t frames, subframes, type, size;
+               uint8_t* data;
+               lv2_evbuf_get(i, &frames, &subframes, &type, &size, &data);
+               if (type == URIMap::instance().urids.midi_MidiEvent) {
+                       mbuf.push_back(frames, size, data);
                }
        }
-       return *ebuf;
 }
 
 void
 BufferSet::flush_lv2_midi(bool input, size_t i)
 {
-       MidiBuffer& mbuf = get_midi(i);
-       LV2Buffers::value_type b = _lv2_buffers.at(i * 2 + (input ? 0 : 1));
-       LV2EventBuffer* ebuf = b.second;
+       MidiBuffer&            mbuf  = get_midi(i);
+       LV2Buffers::value_type b     = _lv2_buffers.at(i * 2 + (input ? 0 : 1));
+       LV2_Evbuf*             evbuf = b.second;
 
        mbuf.silence(0, 0);
-       for (ebuf->rewind(); ebuf->is_valid(); ebuf->increment()) {
+       for (LV2_Evbuf_Iterator i = lv2_evbuf_begin(evbuf);
+            lv2_evbuf_is_valid(i);
+            i = lv2_evbuf_next(i)) {
                uint32_t frames;
                uint32_t subframes;
-               uint16_t type;
-               uint16_t size;
+               uint32_t type;
+               uint32_t size;
                uint8_t* data;
-               ebuf->get_event(&frames, &subframes, &type, &size, &data);
-               mbuf.push_back(frames, size, data);
+               lv2_evbuf_get(i, &frames, &subframes, &type, &size, &data);
+#ifndef NDEBUG
+               DEBUG_TRACE (PBD::DEBUG::LV2, string_compose ("(FLUSH) MIDI event of size %1\n", size));
+               for (uint16_t x = 0; x < size; ++x) {
+                       DEBUG_TRACE (PBD::DEBUG::LV2, string_compose ("\tByte[%1] = %2\n", x, (int) data[x]));
+               }
+#endif
+               if (type == URIMap::instance().urids.midi_MidiEvent) {
+                       // TODO: Make Ardour event buffers generic so plugins can communicate
+                       mbuf.push_back(frames, size, data);
+               }
        }
 }
 
-#endif
+#endif /* LV2_SUPPORT */
+
+#if defined WINDOWS_VST_SUPPORT || defined LXVST_SUPPORT
+
+VstEvents*
+BufferSet::get_vst_midi (size_t b)
+{
+       MidiBuffer& m = get_midi (b);
+       VSTBuffer* vst = _vst_buffers[b];
+
+       vst->clear ();
+
+       for (MidiBuffer::iterator i = m.begin(); i != m.end(); ++i) {
+               vst->push_back (*i);
+       }
+
+       return vst->events();
+}
+
+BufferSet::VSTBuffer::VSTBuffer (size_t c)
+  : _capacity (c)
+{
+       _events = static_cast<VstEvents*> (malloc (sizeof (VstEvents) + _capacity * sizeof (VstEvent *)));
+       _midi_events = static_cast<VstMidiEvent*> (malloc (sizeof (VstMidiEvent) * _capacity));
+
+       if (_events == 0 || _midi_events == 0) {
+               free (_events);
+               free (_midi_events);
+               throw failed_constructor ();
+       }
+
+       _events->numEvents = 0;
+       _events->reserved = 0;
+}
 
+BufferSet::VSTBuffer::~VSTBuffer ()
+{
+       free (_events);
+       free (_midi_events);
+}
+
+void
+BufferSet::VSTBuffer::clear ()
+{
+       _events->numEvents = 0;
+}
+
+void
+BufferSet::VSTBuffer::push_back (Evoral::MIDIEvent<framepos_t> const & ev)
+{
+       if (ev.size() > 3) {
+               /* XXX: this will silently drop MIDI messages longer than 3 bytes, so
+                  they won't be passed to VST plugins or VSTis
+               */
+               return;
+       }
+       int const n = _events->numEvents;
+       assert (n < (int) _capacity);
+
+       _events->events[n] = reinterpret_cast<VstEvent*> (_midi_events + n);
+       VstMidiEvent* v = reinterpret_cast<VstMidiEvent*> (_events->events[n]);
+
+       v->type = kVstMidiType;
+       v->byteSize = sizeof (VstMidiEvent);
+       v->deltaFrames = ev.time ();
+
+       v->flags = 0;
+       v->detune = 0;
+       v->noteLength = 0;
+       v->noteOffset = 0;
+       v->reserved1 = 0;
+       v->reserved2 = 0;
+       v->noteOffVelocity = 0;
+       memcpy (v->midiData, ev.buffer(), ev.size());
+       v->midiData[3] = 0;
+
+       _events->numEvents++;
+}
+
+#endif /* WINDOWS_VST_SUPPORT */
+
+/** Copy buffers of one type from `in' to this BufferSet */
+void
+BufferSet::read_from (const BufferSet& in, framecnt_t nframes, DataType type)
+{
+       assert (available().get (type) >= in.count().get (type));
+
+       BufferSet::iterator o = begin (type);
+       for (BufferSet::const_iterator i = in.begin (type); i != in.end (type); ++i, ++o) {
+               o->read_from (*i, nframes);
+       }
+
+       _count.set (type, in.count().get (type));
+}
+
+/** Copy buffers of all types from `in' to this BufferSet */
 void
-BufferSet::read_from (const BufferSet& in, nframes_t nframes)
+BufferSet::read_from (const BufferSet& in, framecnt_t nframes)
 {
        assert(available() >= in.count());
 
        // Copy all buffers 1:1
        for (DataType::iterator t = DataType::begin(); t != DataType::end(); ++t) {
-               BufferSet::iterator o = begin(*t);
-               for (BufferSet::const_iterator i = in.begin(*t); i != in.end(*t); ++i, ++o) {
-                       o->read_from (*i, nframes);
-               }
+               read_from (in, nframes, *t);
        }
-
-       set_count(in.count());
 }
 
 void
-BufferSet::merge_from (const BufferSet& in, nframes_t nframes)
+BufferSet::merge_from (const BufferSet& in, framecnt_t nframes)
 {
        /* merge all input buffers into out existing buffers.
 
@@ -325,7 +467,7 @@ BufferSet::merge_from (const BufferSet& in, nframes_t nframes)
 }
 
 void
-BufferSet::silence (nframes_t nframes, nframes_t offset)
+BufferSet::silence (framecnt_t nframes, framecnt_t offset)
 {
        for (std::vector<BufferVec>::iterator i = _buffers.begin(); i != _buffers.end(); ++i) {
                for (BufferVec::iterator b = i->begin(); b != i->end(); ++b) {
@@ -334,16 +476,5 @@ BufferSet::silence (nframes_t nframes, nframes_t offset)
        }
 }
 
-void
-BufferSet::is_silent (bool yn)
-{
-       for (std::vector<BufferVec>::iterator i = _buffers.begin(); i != _buffers.end(); ++i) {
-               for (BufferVec::iterator b = i->begin(); b != i->end(); ++b) {
-                       (*b)->is_silent (yn);
-               }
-       }
-               
-}
-
 } // namespace ARDOUR