2 Copyright (C) 2006-2008 Paul Davis
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 #include "pbd/compose.h"
21 #include "ardour/debug.h"
22 #include "ardour/midi_ring_buffer.h"
23 #include "ardour/midi_buffer.h"
24 #include "ardour/event_type_map.h"
27 using namespace ARDOUR
;
30 /** Read a block of MIDI events from buffer into a MidiBuffer.
32 * Timestamps of events returned are relative to start (i.e. event with stamp 0
33 * occurred at start), with offset added.
37 MidiRingBuffer
<T
>::read(MidiBuffer
& dst
, nframes_t start
, nframes_t end
, nframes_t offset
)
39 if (this->read_space() == 0) {
44 Evoral::EventType ev_type
;
49 while (this->read_space() >= sizeof(T
) + sizeof(Evoral::EventType
) + sizeof(uint32_t)) {
51 this->full_peek(sizeof(T
), (uint8_t*)&ev_time
);
54 DEBUG_TRACE (DEBUG::MidiDiskstreamIO
, string_compose ("MRB event @ %1 past end @ %2\n", ev_time
, end
));
56 } else if (ev_time
< start
) {
57 DEBUG_TRACE (DEBUG::MidiDiskstreamIO
, string_compose ("MRB event @ %1 before start @ %2\n", ev_time
, start
));
60 DEBUG_TRACE (DEBUG::MidiDiskstreamIO
, string_compose ("MRB event @ %1 in range %2 .. %3\n", ev_time
, start
, end
));
63 bool success
= read_prefix(&ev_time
, &ev_type
, &ev_size
);
65 cerr
<< "WARNING: error reading event prefix from MIDI ring" << endl
;
69 // This event marks a loop end (i.e. the next event's timestamp will be non-monotonic)
70 if (ev_type
== LoopEventType
) {
73 cerr
<< "MRB loop boundary @ " << ev_time
<< endl
;
75 // Return without reading data or writing to buffer (loop events have no data)
76 // FIXME: This is not correct, loses events after the loop this cycle
81 success
= this->full_peek(sizeof(uint8_t), &status
);
82 assert(success
); // If this failed, buffer is corrupt, all hope is lost
84 // Ignore event if it doesn't match channel filter
85 if (is_channel_event(status
) && get_channel_mode() == FilterChannels
) {
86 const uint8_t channel
= status
& 0x0F;
87 if (!(get_channel_mask() & (1L << channel
))) {
88 // cerr << "MRB skipping event due to channel mask" << endl;
89 this->skip(ev_size
); // Advance read pointer to next event
94 assert(ev_time
>= start
);
98 // write the timestamp to address (write_loc - 1)
99 uint8_t* write_loc
= dst
.reserve(ev_time
, ev_size
);
100 if (write_loc
== NULL
) {
101 cerr
<< "MRB: Unable to reserve space in buffer, event skipped";
102 this->skip (ev_size
); // Advance read pointer to next event
106 // write MIDI buffer contents
107 success
= read_contents (ev_size
, write_loc
);
111 DEBUG_STR_APPEND(a
, string_compose ("wrote MidiEvent to Buffer (time=%1, start=%2 offset=%3)", ev_time
, start
, offset
));
112 for (size_t i
=0; i
< ev_size
; ++i
) {
113 DEBUG_STR_APPEND(a
,hex
);
114 DEBUG_STR_APPEND(a
,"0x");
115 DEBUG_STR_APPEND(a
,(int)write_loc
[i
]);
116 DEBUG_STR_APPEND(a
,' ');
118 DEBUG_STR_APPEND(a
,'\n');
119 DEBUG_TRACE (DEBUG::MidiDiskstreamIO
, DEBUG_STR(a
).str());
123 if (is_channel_event(status
) && get_channel_mode() == ForceChannel
) {
124 write_loc
[0] = (write_loc
[0] & 0xF0) | (get_channel_mask() & 0x0F);
128 cerr
<< "WARNING: error reading event contents from MIDI ring" << endl
;
136 MidiRingBuffer
<T
>::dump(ostream
& str
)
140 if ((rspace
= this->read_space()) == 0) {
141 str
<< "MRB::dump: empty\n";
146 Evoral::EventType ev_type
;
148 size_t read_ptr
= g_atomic_int_get (&this->_read_ptr
);
150 str
<< "Dump @ " << read_ptr
<< endl
;
157 #define space(r,w) ((w > r) ? (w - r) : ((w - r + this->_size) % this->_size))
159 write_ptr
= g_atomic_int_get (&this->_write_ptr
);
160 if (space (read_ptr
, write_ptr
) < sizeof (T
)) {
164 wp
= &this->_buf
[read_ptr
];
165 memcpy (&ev_time
, wp
, sizeof (T
));
166 read_ptr
= (read_ptr
+ sizeof (T
)) % this->_size
;
167 str
<< "time " << ev_time
;
169 write_ptr
= g_atomic_int_get (&this->_write_ptr
);
170 if (space (read_ptr
, write_ptr
) < sizeof (ev_type
)) {
174 wp
= &this->_buf
[read_ptr
];
175 memcpy (&ev_type
, wp
, sizeof (ev_type
));
176 read_ptr
= (read_ptr
+ sizeof (ev_type
)) % this->_size
;
177 str
<< " type " << ev_type
;
179 write_ptr
= g_atomic_int_get (&this->_write_ptr
);
180 if (space (read_ptr
, write_ptr
) < sizeof (ev_size
)) {
185 wp
= &this->_buf
[read_ptr
];
186 memcpy (&ev_size
, wp
, sizeof (ev_size
));
187 read_ptr
= (read_ptr
+ sizeof (ev_size
)) % this->_size
;
188 str
<< " size " << ev_size
;
190 write_ptr
= g_atomic_int_get (&this->_write_ptr
);
191 if (space (read_ptr
, write_ptr
) < ev_size
) {
196 data
= new uint8_t[ev_size
];
198 wp
= &this->_buf
[read_ptr
];
199 memcpy (data
, wp
, ev_size
);
200 read_ptr
= (read_ptr
+ ev_size
) % this->_size
;
202 for (uint32_t i
= 0; i
!= ev_size
; ++i
) {
203 str
<< ' ' << hex
<< (int) data
[i
] << dec
;
213 template class MidiRingBuffer
<nframes_t
>;