use C locale, because POSIX locale is not supported on windows, and operation is...
[ardour.git] / libs / ardour / midi_track.cc
index 65a42836a35b57d981579431e9eb0eb499fcb049..2de47263b5cff79de5dbc42610fc4a6855e7bbb8 100644 (file)
     along with this program; if not, write to the Free Software
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */
+#include <cmath>
 
+#ifdef COMPILER_MSVC
+#include <float.h>
+
+// 'std::isinf()' and 'std::isnan()' are not available in MSVC.
+#define isinf_local(val) !((bool)_finite((double)val))
+#define isnan_local(val) (bool)_isnan((double)val)
+#else
+#define isinf_local std::isinf
+#define isnan_local std::isnan
+#endif
+
+#include "pbd/ffs.h"
 #include "pbd/enumwriter.h"
 #include "pbd/convert.h"
 #include "evoral/midi_util.h"
 #include "ardour/buffer_set.h"
 #include "ardour/debug.h"
 #include "ardour/delivery.h"
+#include "ardour/event_type_map.h"
 #include "ardour/meter.h"
 #include "ardour/midi_diskstream.h"
 #include "ardour/midi_playlist.h"
 #include "ardour/midi_port.h"
 #include "ardour/midi_track.h"
+#include "ardour/parameter_types.h"
 #include "ardour/port.h"
 #include "ardour/processor.h"
 #include "ardour/session.h"
@@ -55,6 +70,8 @@ MidiTrack::MidiTrack (Session& sess, string name, Route::Flag flag, TrackMode mo
        , _note_mode(Sustained)
        , _step_editing (false)
        , _input_active (true)
+       , _playback_channel_mask(0x0000ffff)
+       , _capture_channel_mask(0x0000ffff)
 {
 }
 
@@ -77,13 +94,7 @@ MidiTrack::init ()
 boost::shared_ptr<Diskstream>
 MidiTrack::create_diskstream ()
 {
-       MidiDiskstream::Flag dflags = MidiDiskstream::Flag (0);
-
-       if (_flags & Hidden) {
-               dflags = MidiDiskstream::Flag (dflags | MidiDiskstream::Hidden);
-       } else {
-               dflags = MidiDiskstream::Flag (dflags | MidiDiskstream::Recordable);
-       }
+       MidiDiskstream::Flag dflags = MidiDiskstream::Flag (MidiDiskstream::Recordable);
 
        assert(_mode != Destructive);
 
@@ -158,6 +169,38 @@ MidiTrack::set_state (const XMLNode& node, int version)
                set_input_active (string_is_affirmative (prop->value()));
        }
 
+       ChannelMode playback_channel_mode = AllChannels;
+       ChannelMode capture_channel_mode = AllChannels;
+
+       if ((prop = node.property ("playback-channel-mode")) != 0) {
+               playback_channel_mode = ChannelMode (string_2_enum(prop->value(), playback_channel_mode));
+       }
+       if ((prop = node.property ("capture-channel-mode")) != 0) {
+               capture_channel_mode = ChannelMode (string_2_enum(prop->value(), capture_channel_mode));
+       }
+       if ((prop = node.property ("channel-mode")) != 0) {
+               /* 3.0 behaviour where capture and playback modes were not separated */
+               playback_channel_mode = ChannelMode (string_2_enum(prop->value(), playback_channel_mode));
+               capture_channel_mode = playback_channel_mode;
+       }
+
+       unsigned int playback_channel_mask = 0xffff;
+       unsigned int capture_channel_mask = 0xffff;
+
+       if ((prop = node.property ("playback-channel-mask")) != 0) {
+               sscanf (prop->value().c_str(), "0x%x", &playback_channel_mask);
+       }
+       if ((prop = node.property ("capture-channel-mask")) != 0) {
+               sscanf (prop->value().c_str(), "0x%x", &capture_channel_mask);
+       }
+       if ((prop = node.property ("channel-mask")) != 0) {
+               sscanf (prop->value().c_str(), "0x%x", &playback_channel_mask);
+               capture_channel_mask = playback_channel_mask;
+       }
+
+       set_playback_channel_mode (playback_channel_mode, playback_channel_mask);
+       set_capture_channel_mode (capture_channel_mode, capture_channel_mask);
+
        pending_state = const_cast<XMLNode*> (&node);
 
        if (_session.state_of_the_state() & Session::Loading) {
@@ -196,6 +239,13 @@ MidiTrack::state(bool full_state)
                root.add_child_nocopy (*freeze_node);
        }
 
+       root.add_property("playback_channel-mode", enum_2_string(get_playback_channel_mode()));
+       root.add_property("capture_channel-mode", enum_2_string(get_capture_channel_mode()));
+       snprintf (buf, sizeof(buf), "0x%x", get_playback_channel_mask());
+       root.add_property("playback-channel-mask", buf);
+       snprintf (buf, sizeof(buf), "0x%x", get_capture_channel_mask());
+       root.add_property("capture-channel-mask", buf);
+
        root.add_property ("note-mode", enum_2_string (_note_mode));
        root.add_property ("step-editing", (_step_editing ? "yes" : "no"));
        root.add_property ("input-active", (_input_active ? "yes" : "no"));
@@ -208,7 +258,7 @@ MidiTrack::set_state_part_two ()
 {
        XMLNode* fnode;
        XMLProperty* prop;
-       LocaleGuard lg (X_("POSIX"));
+       LocaleGuard lg (X_("C"));
 
        /* This is called after all session state has been restored but before
           have been made ports and connections are established.
@@ -276,6 +326,12 @@ MidiTrack::roll (pframes_t nframes, framepos_t start_frame, framepos_t end_frame
 {
        Glib::Threads::RWLock::ReaderLock lm (_processor_lock, Glib::Threads::TRY_LOCK);
        if (!lm.locked()) {
+               boost::shared_ptr<MidiDiskstream> diskstream = midi_diskstream();
+               framecnt_t playback_distance = diskstream->calculate_playback_distance(nframes);
+               if (can_internal_playback_seek(llabs(playback_distance))) {
+                       /* TODO should declick, and/or note-off */
+                       internal_playback_seek(playback_distance);
+               }
                return 0;
        }
 
@@ -287,6 +343,9 @@ MidiTrack::roll (pframes_t nframes, framepos_t start_frame, framepos_t end_frame
 
        if (!_active) {
                silence (nframes);
+               if (_meter_point == MeterInput && (_monitoring & MonitorInput || _diskstream->record_enabled())) {
+                       _meter->reset();
+               }
                return 0;
        }
 
@@ -300,25 +359,36 @@ MidiTrack::roll (pframes_t nframes, framepos_t start_frame, framepos_t end_frame
                   playback distance to zero, thus causing diskstream::commit
                   to do nothing.
                   */
-               dret = diskstream->process (transport_frame, 0, playback_distance);
+               BufferSet bufs; /* empty set - is OK, since nothing will happen */
+
+               dret = diskstream->process (bufs, transport_frame, 0, playback_distance, false);
                need_butler = diskstream->commit (playback_distance);
                return dret;
        }
 
+       BufferSet& bufs = _session.get_route_buffers (n_process_buffers());
+
+       fill_buffers_with_input (bufs, _input, nframes);
+
+       if (_meter_point == MeterInput && (_monitoring & MonitorInput || _diskstream->record_enabled())) {
+               _meter->run (bufs, start_frame, end_frame, nframes, true);
+       }
+
+       /* filter captured data before the diskstream sees it */
+
+       filter_channels (bufs, get_capture_channel_mode(), get_capture_channel_mask());
 
        _silent = false;
 
-       if ((dret = diskstream->process (transport_frame, nframes, playback_distance)) != 0) {
+       if ((dret = diskstream->process (bufs, transport_frame, nframes, playback_distance, (monitoring_state() == MonitoringDisk))) != 0) {
                need_butler = diskstream->commit (playback_distance);
                silence (nframes);
                return dret;
        }
 
-       /* special condition applies */
-
-       if (_meter_point == MeterInput) {
-               _input->process_input (_meter, start_frame, end_frame, nframes);
-       }
+       /* filter playback data before we do anything else */
+       
+       filter_channels (bufs, get_playback_channel_mode(), get_playback_channel_mask ());
 
        if (monitoring_state() == MonitoringInput) {
 
@@ -334,47 +404,17 @@ MidiTrack::roll (pframes_t nframes, framepos_t start_frame, framepos_t end_frame
 
                diskstream->flush_playback (start_frame, end_frame);
 
-               passthru (start_frame, end_frame, nframes, 0);
-
-       } else {
-
-               /*
-                  XXX is it true that the earlier test on n_outputs()
-                  means that we can avoid checking it again here? i think
-                  so, because changing the i/o configuration of an IO
-                  requires holding the AudioEngine lock, which we hold
-                  while in the process() tree.
-                  */
-
-
-               /* copy the diskstream data to all output buffers */
-
-               BufferSet& bufs = _session.get_scratch_buffers (n_process_buffers());
-               MidiBuffer& mbuf (bufs.get_midi (0));
-
-               /* we are a MIDI track, so we always start the chain with a
-                * single-MIDI-channel diskstream 
-                */
-               ChanCount c;
-               c.set_audio (0);
-               c.set_midi (1);
-               bufs.set_count (c);
-
-               assert (nframes > 0);
-
-               diskstream->get_playback (mbuf, nframes);
-
-               /* append immediate messages to the first MIDI buffer (thus sending it to the first output port) */
-
-               write_out_of_band_data (bufs, start_frame, end_frame, nframes);
-
-               /* final argument: don't waste time with automation if we're recording or we've just stopped (yes it can happen) */
+       } 
 
-               process_output_buffers (
-                       bufs, start_frame, end_frame, nframes,
-                       declick, (!diskstream->record_enabled() && !_session.transport_stopped())
-                       );
-       }
+       
+       /* append immediate messages to the first MIDI buffer (thus sending it to the first output port) */
+       
+       write_out_of_band_data (bufs, start_frame, end_frame, nframes);
+       
+       /* final argument: don't waste time with automation if we're not recording or rolling */
+       
+       process_output_buffers (bufs, start_frame, end_frame, nframes,
+                               declick, (!diskstream->record_enabled() && !_session.transport_stopped()));
 
        for (ProcessorList::iterator i = _processors.begin(); i != _processors.end(); ++i) {
                boost::shared_ptr<Delivery> d = boost::dynamic_pointer_cast<Delivery> (*i);
@@ -457,6 +497,43 @@ MidiTrack::push_midi_input_to_step_edit_ringbuffer (framecnt_t nframes)
        }
 }
 
+void 
+MidiTrack::filter_channels (BufferSet& bufs, ChannelMode mode, uint32_t mask)
+{
+       if (mode == AllChannels) {
+               return;
+       }
+
+       MidiBuffer& buf (bufs.get_midi (0));
+       
+       for (MidiBuffer::iterator e = buf.begin(); e != buf.end(); ) {
+               
+               Evoral::MIDIEvent<framepos_t> ev(*e, false);
+
+               if (ev.is_channel_event()) {
+                       switch (mode) {
+                       case FilterChannels:
+                               if (0 == ((1<<ev.channel()) & mask)) {
+                                       e = buf.erase (e);
+                               } else {
+                                       ++e;
+                               }
+                               break;
+                       case ForceChannel:
+                               ev.set_channel (PBD::ffs (mask) - 1);
+                               ++e;
+                               break;
+                       case AllChannels:
+                               /* handled by the opening if() */
+                               ++e;
+                               break;
+                       }
+               } else {
+                       ++e;
+               }
+       }
+}
+
 void
 MidiTrack::write_out_of_band_data (BufferSet& bufs, framepos_t /*start*/, framepos_t /*end*/, framecnt_t nframes)
 {
@@ -473,36 +550,62 @@ MidiTrack::write_out_of_band_data (BufferSet& bufs, framepos_t /*start*/, framep
                 * the last argument ("stop on overflow in destination") so that we'll
                 * ship the rest out next time.
                 *
-                * the (nframes-1) argument puts all these events at the last
+                * the Port::port_offset() + (nframes-1) argument puts all these events at the last
                 * possible position of the output buffer, so that we do not
-                * violate monotonicity when writing.
+                * violate monotonicity when writing. Port::port_offset() will
+                * be non-zero if we're in a split process cycle.
                 */
-
-               _immediate_events.read (buf, 0, 1, nframes-1, true);
+               _immediate_events.read (buf, 0, 1, Port::port_offset() + nframes - 1, true);
        }
 }
 
 int
-MidiTrack::export_stuff (BufferSet& /*bufs*/, framepos_t /*start_frame*/, framecnt_t /*nframes*/, 
-                        boost::shared_ptr<Processor> /*endpoint*/, bool /*include_endpoint*/, bool /*forexport*/)
-{
-       return -1;
+MidiTrack::export_stuff (BufferSet&                   buffers,
+                         framepos_t                   start,
+                         framecnt_t                   nframes,
+                         boost::shared_ptr<Processor> endpoint,
+                         bool                         include_endpoint,
+                         bool                         for_export,
+                         bool                         for_freeze)
+{
+       if (buffers.count().n_midi() == 0) {
+               return -1;
+       }
+
+       boost::shared_ptr<MidiDiskstream> diskstream = midi_diskstream();
+
+       Glib::Threads::RWLock::ReaderLock rlock (_processor_lock);
+
+       boost::shared_ptr<MidiPlaylist> mpl = boost::dynamic_pointer_cast<MidiPlaylist>(diskstream->playlist());
+       if (!mpl) {
+               return -2;
+       }
+
+       buffers.get_midi(0).clear();
+       if (mpl->read(buffers.get_midi(0), start, nframes, 0) != nframes) {
+               return -1;
+       }
+
+       //bounce_process (buffers, start, nframes, endpoint, include_endpoint, for_export, for_freeze);
+
+       return 0;
 }
 
 boost::shared_ptr<Region>
-MidiTrack::bounce (InterThreadInfo& /*itt*/)
+MidiTrack::bounce (InterThreadInfo& itt)
 {
-       std::cerr << "MIDI bounce currently unsupported" << std::endl;
-       return boost::shared_ptr<Region> ();
+       return bounce_range (_session.current_start_frame(), _session.current_end_frame(), itt, main_outs(), false);
 }
 
-
 boost::shared_ptr<Region>
-MidiTrack::bounce_range (framepos_t /*start*/, framepos_t /*end*/, InterThreadInfo& /*itt*/,
-                        boost::shared_ptr<Processor> /*endpoint*/, bool /*include_endpoint*/)
+MidiTrack::bounce_range (framepos_t                   start,
+                         framepos_t                   end,
+                         InterThreadInfo&             itt,
+                         boost::shared_ptr<Processor> endpoint,
+                         bool                         include_endpoint)
 {
-       std::cerr << "MIDI bounce range currently unsupported" << std::endl;
-       return boost::shared_ptr<Region> ();
+       vector<boost::shared_ptr<Source> > srcs;
+       return _session.write_one_track (*this, start, end, false, srcs, itt, endpoint, include_endpoint, false, false);
 }
 
 void
@@ -555,22 +658,43 @@ MidiTrack::write_immediate_event(size_t size, const uint8_t* buf)
                cerr << "WARNING: Ignoring illegal immediate MIDI event" << endl;
                return false;
        }
-       const uint32_t type = EventTypeMap::instance().midi_event_type(buf[0]);
-       return (_immediate_events.write(0, type, size, buf) == size);
+       const uint32_t type = midi_parameter_type(buf[0]);
+       return (_immediate_events.write (0, type, size, buf) == size);
+}
+
+void
+MidiTrack::set_parameter_automation_state (Evoral::Parameter param, AutoState state)
+{
+       switch (param.type()) {
+       case MidiCCAutomation:
+       case MidiPgmChangeAutomation:
+       case MidiPitchBenderAutomation:
+       case MidiChannelPressureAutomation:
+       case MidiSystemExclusiveAutomation:
+               /* The track control for MIDI parameters is for immediate events to act
+                  as a control surface, write/touch for them is not currently
+                  supported. */
+               return;
+       default:
+               Automatable::set_parameter_automation_state(param, state);
+       }
 }
 
 void
 MidiTrack::MidiControl::set_value(double val)
 {
+       const Evoral::Parameter &parameter = _list ? _list->parameter() : Control::parameter();
+       const Evoral::ParameterDescriptor &desc = EventTypeMap::instance().descriptor(parameter);
+
        bool valid = false;
-       if (std::isinf(val)) {
+       if (isinf_local(val)) {
                cerr << "MIDIControl value is infinity" << endl;
-       } else if (std::isnan(val)) {
+       } else if (isnan_local(val)) {
                cerr << "MIDIControl value is NaN" << endl;
-       } else if (val < _list->parameter().min()) {
-               cerr << "MIDIControl value is < " << _list->parameter().min() << endl;
-       } else if (val > _list->parameter().max()) {
-               cerr << "MIDIControl value is > " << _list->parameter().max() << endl;
+       } else if (val < desc.lower) {
+               cerr << "MIDIControl value is < " << desc.lower << endl;
+       } else if (val > desc.upper) {
+               cerr << "MIDIControl value is > " << desc.upper << endl;
        } else {
                valid = true;
        }
@@ -579,14 +703,14 @@ MidiTrack::MidiControl::set_value(double val)
                return;
        }
 
-       assert(val <= _list->parameter().max());
-       if ( ! automation_playback()) {
+       assert(val <= desc.upper);
+       if ( ! _list || ! automation_playback()) {
                size_t size = 3;
-               uint8_t ev[3] = { _list->parameter().channel(), uint8_t (val), 0 };
-               switch(_list->parameter().type()) {
+               uint8_t ev[3] = { parameter.channel(), uint8_t (val), 0 };
+               switch(parameter.type()) {
                case MidiCCAutomation:
                        ev[0] += MIDI_CMD_CONTROL;
-                       ev[1] = _list->parameter().id();
+                       ev[1] = parameter.id();
                        ev[2] = int(val);
                        break;
 
@@ -637,21 +761,53 @@ MidiTrack::write_source (uint32_t)
 }
 
 void
-MidiTrack::set_channel_mode (ChannelMode mode, uint16_t mask)
+MidiTrack::set_playback_channel_mode(ChannelMode mode, uint16_t mask) 
+{
+       ChannelMode old = get_playback_channel_mode ();
+       uint16_t old_mask = get_playback_channel_mask ();
+
+       if (old != mode || mask != old_mask) {
+               _set_playback_channel_mode (mode, mask);
+               PlaybackChannelModeChanged ();
+               _session.set_dirty ();
+       }
+}
+
+void
+MidiTrack::set_capture_channel_mode(ChannelMode mode, uint16_t mask) 
 {
-       midi_diskstream()->set_channel_mode (mode, mask);
+       ChannelMode old = get_capture_channel_mode ();
+       uint16_t old_mask = get_capture_channel_mask ();
+
+       if (old != mode || mask != old_mask) {
+               _set_capture_channel_mode (mode, mask);
+               CaptureChannelModeChanged ();
+               _session.set_dirty ();
+       }
 }
 
-ChannelMode
-MidiTrack::get_channel_mode ()
+void
+MidiTrack::set_playback_channel_mask (uint16_t mask)
 {
-       return midi_diskstream()->get_channel_mode ();
+       uint16_t old = get_playback_channel_mask();
+
+       if (old != mask) {
+               _set_playback_channel_mask (mask);
+               PlaybackChannelMaskChanged ();
+               _session.set_dirty ();
+       }
 }
 
-uint16_t
-MidiTrack::get_channel_mask ()
+void
+MidiTrack::set_capture_channel_mask (uint16_t mask)
 {
-       return midi_diskstream()->get_channel_mask ();
+       uint16_t old = get_capture_channel_mask();
+
+       if (old != mask) {
+               _set_capture_channel_mask (mask);
+               CaptureChannelMaskChanged ();
+               _session.set_dirty ();
+       }
 }
 
 boost::shared_ptr<MidiPlaylist>
@@ -739,7 +895,7 @@ MidiTrack::act_on_mute ()
        if (muted()) {
                /* only send messages for channels we are using */
 
-               uint16_t mask = get_channel_mask();
+               uint16_t mask = get_playback_channel_mask();
 
                for (uint8_t channel = 0; channel <= 0xF; channel++) {
 
@@ -792,3 +948,4 @@ MidiTrack::monitoring_state () const
        } 
        return ms;
 }
+