gtk2_ardour/midi_tracer.cc

   1 /*
   2     Copyright (C) 2010 Paul Davis
   3
   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.
   8
   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.
  13
  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.
  17
  18 */
  19
  20 #include <stdint.h>
  21
  22 #include <sstream>
  23 #include <sys/time.h>
  24 #include <time.h>
  25
  26 #include "midi++/parser.h"
  27
  28 #include "ardour/async_midi_port.h"
  29 #include "ardour/midi_port.h"
  30 #include "ardour/audioengine.h"
  31
  32 #include "midi_tracer.h"
  33 #include "gui_thread.h"
  34 #include "i18n.h"
  35
  36 using namespace Gtk;
  37 using namespace std;
  38 using namespace MIDI;
  39 using namespace Glib;
  40
  41 MidiTracer::MidiTracer ()
  42         : ArdourWindow (_("MIDI Tracer"))
  43         , parser (0)
  44         , line_count_adjustment (200, 1, 2000, 1, 10)
  45         , line_count_spinner (line_count_adjustment)
  46         , line_count_label (_("Line history: "))
  47         , autoscroll (true)
  48         , show_hex (true)
  49         , collect (true)
  50         , show_delta_time (false)
  51         , _update_queued (0)
  52         , fifo (1024)
  53         , buffer_pool ("miditracer", buffer_size, 1024) // 1024 256 byte buffers
  54         , autoscroll_button (_("Auto-Scroll"))
  55         , base_button (_("Decimal"))
  56         , collect_button (_("Enabled"))
  57         , delta_time_button (_("Delta times"))
  58 {
  59         ARDOUR::AudioEngine::instance()->PortRegisteredOrUnregistered.connect
  60                 (_manager_connection, invalidator (*this), boost::bind (&MidiTracer::ports_changed, this), gui_context());
  61
  62         _last_receipt.tv_sec = 0;
  63         _last_receipt.tv_usec = 0;
  64
  65         VBox* vbox = manage (new VBox);
  66         vbox->set_spacing (4);
  67
  68         HBox* pbox = manage (new HBox);
  69         pbox->set_spacing (6);
  70         pbox->pack_start (*manage (new Label (_("Port:"))), false, false);
  71
  72         _port_combo.signal_changed().connect (sigc::mem_fun (*this, &MidiTracer::port_changed));
  73         pbox->pack_start (_port_combo);
  74         pbox->show_all ();
  75         vbox->pack_start (*pbox, false, false);
  76
  77         scroller.add (text);
  78         vbox->set_border_width (12);
  79         vbox->pack_start (scroller, true, true);
  80
  81         text.show ();
  82         text.set_name ("MidiTracerTextView");
  83         scroller.show ();
  84         scroller.set_size_request (400, 400);
  85
  86         collect_button.set_active (true);
  87         base_button.set_active (false);
  88         autoscroll_button.set_active (true);
  89
  90         line_count_box.set_spacing (6);
  91         line_count_box.pack_start (line_count_label, false, false);
  92         line_count_box.pack_start (line_count_spinner, false, false);
  93
  94         line_count_spinner.show ();
  95         line_count_label.show ();
  96         line_count_box.show ();
  97
  98         HBox* bbox = manage (new HBox);
  99         bbox->add (line_count_box);
 100         bbox->add (delta_time_button);
 101         bbox->add (base_button);
 102         bbox->add (collect_button);
 103         bbox->add (autoscroll_button);
 104         bbox->show ();
 105
 106         vbox->pack_start (*bbox, false, false);
 107
 108         add (*vbox);
 109
 110         base_button.signal_toggled().connect (sigc::mem_fun (*this, &MidiTracer::base_toggle));
 111         collect_button.signal_toggled().connect (sigc::mem_fun (*this, &MidiTracer::collect_toggle));
 112         autoscroll_button.signal_toggled().connect (sigc::mem_fun (*this, &MidiTracer::autoscroll_toggle));
 113         delta_time_button.signal_toggled().connect (sigc::mem_fun (*this, &MidiTracer::delta_toggle));
 114
 115         base_button.show ();
 116         collect_button.show ();
 117         autoscroll_button.show ();
 118
 119         ports_changed ();
 120         port_changed ();
 121 }
 122
 123
 124 MidiTracer::~MidiTracer()
 125 {
 126 }
 127
 128 void
 129 MidiTracer::ports_changed ()
 130 {
 131         string const c = _port_combo.get_active_text ();
 132         _port_combo.clear ();
 133
 134         ARDOUR::PortManager::PortList pl;
 135         ARDOUR::AudioEngine::instance()->get_ports (ARDOUR::DataType::MIDI, pl);
 136
 137         if (pl.empty()) {
 138                 _port_combo.set_active_text ("");
 139                 return;
 140         }
 141
 142         for (ARDOUR::PortManager::PortList::const_iterator i = pl.begin(); i != pl.end(); ++i) {
 143                 _port_combo.append_text ((*i)->name());
 144         }
 145
 146         if (c.empty()) {
 147                 _port_combo.set_active_text (pl.front()->name());
 148         } else {
 149                 _port_combo.set_active_text (c);
 150         }
 151 }
 152
 153 void
 154 MidiTracer::port_changed ()
 155 {
 156         using namespace ARDOUR;
 157
 158         disconnect ();
 159
 160         boost::shared_ptr<ARDOUR::Port> p = AudioEngine::instance()->get_port_by_name (_port_combo.get_active_text());
 161
 162         if (!p) {
 163                 std::cerr << "port not found\n";
 164                 return;
 165         }
 166
 167         boost::shared_ptr<AsyncMIDIPort> async = boost::dynamic_pointer_cast<AsyncMIDIPort> (p);
 168
 169         if (!async) {
 170                 /* pure ARDOUR::MidiPort ... cannot currently attach to it because it
 171                  * has no Parser.
 172                  */
 173                 return;
 174         }
 175
 176         async->parser()->any.connect_same_thread (_parser_connection, boost::bind (&MidiTracer::tracer, this, _1, _2, _3));
 177 }
 178
 179 void
 180 MidiTracer::disconnect ()
 181 {
 182         _parser_connection.disconnect ();
 183 }
 184
 185 void
 186 MidiTracer::tracer (Parser&, byte* msg, size_t len)
 187 {
 188         stringstream ss;
 189         struct timeval tv;
 190         char* buf;
 191         struct tm now;
 192         size_t bufsize;
 193         size_t s;
 194
 195         gettimeofday (&tv, 0);
 196
 197         buf = (char *) buffer_pool.alloc ();
 198         bufsize = buffer_size;
 199
 200         if (_last_receipt.tv_sec != 0 && show_delta_time) {
 201                 struct timeval delta;
 202                 timersub (&tv, &_last_receipt, &delta);
 203                 s = snprintf (buf, bufsize, "+%02" PRId64 ":%06" PRId64, (int64_t) delta.tv_sec, (int64_t) delta.tv_usec);
 204                 bufsize -= s;
 205         } else {
 206                 localtime_r (&tv.tv_sec, &now);
 207                 s = strftime (buf, bufsize, "%H:%M:%S", &now);
 208                 bufsize -= s;
 209                 s += snprintf (&buf[s], bufsize, ".%06" PRId64, (int64_t) tv.tv_usec);
 210                 bufsize -= s;
 211         }
 212
 213         _last_receipt = tv;
 214
 215         switch ((eventType) msg[0]&0xf0) {
 216         case off:
 217                 if (show_hex) {
 218                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x %02x\n", "NoteOff", (msg[0]&0xf)+1, (int) msg[1], (int) msg[2]);
 219                 } else {
 220                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %-3d %-3d\n", "NoteOff", (msg[0]&0xf)+1, (int) msg[1], (int) msg[2]);
 221                 }
 222                 break;
 223
 224         case on:
 225                 if (show_hex) {
 226                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x %02x\n", "NoteOn", (msg[0]&0xf)+1, (int) msg[1], (int) msg[2]);
 227                 } else {
 228                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %-3d %-3d\n", "NoteOn", (msg[0]&0xf)+1, (int) msg[1], (int) msg[2]);
 229                 }
 230                 break;
 231
 232         case polypress:
 233                 if (show_hex) {
 234                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x\n", "PolyPressure", (msg[0]&0xf)+1, (int) msg[1]);
 235                 } else {
 236                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %-3d\n", "PolyPressure", (msg[0]&0xf)+1, (int) msg[1]);
 237                 }
 238                 break;
 239
 240         case MIDI::controller:
 241                 if (show_hex) {
 242                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x %02x\n", "Controller", (msg[0]&0xf)+1, (int) msg[1], (int) msg[2]);
 243                 } else {
 244                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %2d %-3d\n", "Controller", (msg[0]&0xf)+1, (int) msg[1], (int) msg[2]);
 245                 }
 246                 break;
 247
 248         case program:
 249                 if (show_hex) {
 250                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x\n", "Program Change", (msg[0]&0xf)+1, (int) msg[1]);
 251                 } else {
 252                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %-3d\n", "Program Change", (msg[0]&0xf)+1, (int) msg[1]);
 253                 }
 254                 break;
 255
 256         case chanpress:
 257                 if (show_hex) {
 258                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x/%-3d\n", "Channel Pressure", (msg[0]&0xf)+1, (int) msg[1], (int) msg[1]);
 259                 } else {
 260                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x/%-3d\n", "Channel Pressure", (msg[0]&0xf)+1, (int) msg[1], (int) msg[1]);
 261                 }
 262                 break;
 263
 264         case MIDI::pitchbend:
 265                 if (show_hex) {
 266                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %02x\n", "Pitch Bend", (msg[0]&0xf)+1, (int) msg[1]);
 267                 } else {
 268                         s += snprintf (&buf[s], bufsize, "%16s chn %2d %-3d\n", "Pitch Bend", (msg[0]&0xf)+1, (int) msg[1]);
 269                 }
 270                 break;
 271
 272         case MIDI::sysex:
 273                 if (len == 1) {
 274                         switch (msg[0]) {
 275                         case 0xf8:
 276                                 s += snprintf (&buf[s], bufsize, "%16s\n", "Clock");
 277                                 break;
 278                         case 0xfa:
 279                                 s += snprintf (&buf[s], bufsize, "%16s\n", "Start");
 280                                 break;
 281                         case 0xfb:
 282                                 s += snprintf (&buf[s], bufsize, "%16s\n", "Continue");
 283                                 break;
 284                         case 0xfc:
 285                                 s += snprintf (&buf[s], bufsize, "%16s\n", "Stop");
 286                                 break;
 287                         case 0xfe:
 288                                 s += snprintf (&buf[s], bufsize, "%16s\n", "Active Sense");
 289                                 break;
 290                         case 0xff:
 291                                 s += snprintf (&buf[s], bufsize, "%16s\n", "Reset");
 292                                 break;
 293                         default:
 294                                 s += snprintf (&buf[s], bufsize, "%16s %02x\n", "Sysex", (int) msg[1]);
 295                                 break;
 296                         }
 297
 298                 } else if (len > 5 && msg[0] == 0xf0 && msg[1] == 0x7f && msg[3] == 0x06) {
 299                         /* MMC */
 300                         int cmd = msg[4];
 301                         if (cmd == 0x44 && msg[5] == 0x06 && msg[6] == 0x01) {
 302                                 s += snprintf (
 303                                         &buf[s], bufsize, " MMC locate to %02d:%02d:%02d:%02d.%02d\n",
 304                                         msg[7], msg[8], msg[9], msg[10], msg[11]
 305                                         );
 306                         } else {
 307                                 std::string name;
 308                                 if (cmd == 0x1) {
 309                                         name = "STOP";
 310                                 } else if (cmd == 0x3) {
 311                                         name = "DEFERRED PLAY";
 312                                 } else if (cmd == 0x6) {
 313                                         name = "RECORD STROBE";
 314                                 } else if (cmd == 0x7) {
 315                                         name = "RECORD EXIT";
 316                                 } else if (cmd == 0x8) {
 317                                         name = "RECORD PAUSE";
 318                                 }
 319                                 if (!name.empty()) {
 320                                         s += snprintf (&buf[s], bufsize, " MMC command %s\n", name.c_str());
 321                                 } else {
 322                                         s += snprintf (&buf[s], bufsize, " MMC command %02x\n", cmd);
 323                                 }
 324                         }
 325
 326                 } else if (len == 10 && msg[0] == 0xf0 && msg[1] == 0x7f && msg[9] == 0xf7)  {
 327
 328                         /* MTC full frame */
 329                         s += snprintf (
 330                                 &buf[s], bufsize, " MTC full frame to %02d:%02d:%02d:%02d\n", msg[5] & 0x1f, msg[6], msg[7], msg[8]
 331                                 );
 332                 } else if (len == 3 && msg[0] == MIDI::position) {
 333
 334                         /* MIDI Song Position */
 335                         int midi_beats = (msg[2] << 7) | msg[1];
 336                         s += snprintf (&buf[s], bufsize, "%16s %d\n", "Position", (int) midi_beats);
 337                 } else {
 338
 339                         /* other sys-ex */
 340
 341                         s += snprintf (&buf[s], bufsize, "%16s (%d) = [", "Sysex", (int) len);
 342                         bufsize -= s;
 343
 344                         for (unsigned int i = 0; i < len && bufsize > 3; ++i) {
 345                                 if (i > 0) {
 346                                         s += snprintf (&buf[s], bufsize, " %02x", msg[i]);
 347                                 } else {
 348                                         s += snprintf (&buf[s], bufsize, "%02x", msg[i]);
 349                                 }
 350                                 bufsize -= s;
 351                         }
 352                         s += snprintf (&buf[s], bufsize, "]\n");
 353                 }
 354                 break;
 355
 356         case MIDI::song:
 357                 s += snprintf (&buf[s], bufsize, "%16s\n", "Song");
 358                 break;
 359
 360         case MIDI::tune:
 361                 s += snprintf (&buf[s], bufsize, "%16s\n", "Tune");
 362                 break;
 363
 364         case MIDI::eox:
 365                 s += snprintf (&buf[s], bufsize, "%16s\n", "EOX");
 366                 break;
 367
 368         case MIDI::timing:
 369                 s += snprintf (&buf[s], bufsize, "%16s\n", "Timing");
 370                 break;
 371
 372         case MIDI::start:
 373                 s += snprintf (&buf[s], bufsize, "%16s\n", "Start");
 374                 break;
 375
 376         case MIDI::stop:
 377                 s += snprintf (&buf[s], bufsize, "%16s\n", "Stop");
 378                 break;
 379
 380         case MIDI::contineu:
 381                 s += snprintf (&buf[s], bufsize, "%16s\n", "Continue");
 382                 break;
 383
 384         case active:
 385                 s += snprintf (&buf[s], bufsize, "%16s\n", "Active Sense");
 386                 break;
 387
 388         default:
 389                 s += snprintf (&buf[s], bufsize, "%16s\n", "Unknown");
 390                 break;
 391         }
 392
 393         // If you want to append more to the line, uncomment this first
 394         // bufsize -= s;
 395
 396         fifo.write (&buf, 1);
 397
 398         if (g_atomic_int_get (&_update_queued) == 0) {
 399                 gui_context()->call_slot (invalidator (*this), boost::bind (&MidiTracer::update, this));
 400                 g_atomic_int_inc (&_update_queued);
 401         }
 402 }
 403
 404 void
 405 MidiTracer::update ()
 406 {
 407         bool updated = false;
 408         g_atomic_int_dec_and_test (&_update_queued);
 409
 410         RefPtr<TextBuffer> buf (text.get_buffer());
 411
 412         int excess = buf->get_line_count() - line_count_adjustment.get_value();
 413
 414         if (excess > 0) {
 415                 buf->erase (buf->begin(), buf->get_iter_at_line (excess));
 416         }
 417
 418         char *str;
 419
 420         while (fifo.read (&str, 1)) {
 421                 buf->insert (buf->end(), string (str));
 422                 buffer_pool.release (str);
 423                 updated = true;
 424         }
 425
 426         if (updated && autoscroll) {
 427                 scroller.get_vadjustment()->set_value (scroller.get_vadjustment()->get_upper());
 428         }
 429 }
 430
 431 void
 432 MidiTracer::base_toggle ()
 433 {
 434         show_hex = !base_button.get_active();
 435 }
 436
 437 void
 438 MidiTracer::delta_toggle ()
 439 {
 440         show_delta_time = delta_time_button.get_active();
 441 }
 442
 443 void
 444 MidiTracer::collect_toggle ()
 445 {
 446         if (collect_button.get_active ()) {
 447                 port_changed ();
 448         } else {
 449                 disconnect ();
 450         }
 451 }
 452
 453 void
 454 MidiTracer::autoscroll_toggle ()
 455 {
 456         autoscroll = autoscroll_button.get_active ();
 457 }