mi2mu/midi-track-parser.cc

   1 /*
   2   midi-track-parser.cc -- implement
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1998 Jan Nieuwenhuizen <janneke@gnu.org>
   7 */
   8
   9 #include <assert.h>
  10 #include "string-convert.hh"
  11 #include "mi2mu-global.hh"
  12 #include "midi-track-parser.hh"
  13 #include "mudela-column.hh"
  14 #include "mudela-item.hh"
  15 #include "mudela-score.hh"
  16 #include "mudela-staff.hh"
  17
  18 Midi_track_parser::Midi_track_parser (Midi_parser_info* info_l, int i)
  19 {
  20   info_l_ = info_l;
  21   at_mom_ = 0;
  22   track_info_p_ = 0;
  23   mudela_staff_p_ = new Mudela_staff (i, "", "", "");
  24   parse_header ();
  25   parse_delta_time ();
  26 }
  27
  28 Midi_track_parser::~Midi_track_parser ()
  29 {
  30   delete mudela_staff_p_;
  31   delete track_info_p_;
  32 }
  33
  34 Moment
  35 Midi_track_parser::at_mom ()
  36 {
  37   return at_mom_;
  38 }
  39
  40 bool
  41 Midi_track_parser::eot ()
  42 {
  43   if ( info_l_->byte_L_ < info_l_->end_byte_L_ )
  44     return false;
  45   return true;
  46 }
  47
  48 void
  49 Midi_track_parser::note_end (Mudela_column* col_l, int channel_i, int pitch_i, int aftertouch_i )
  50 {
  51   // junk dynamics
  52   (void)aftertouch_i;
  53
  54   assert (col_l);
  55
  56   for (PCursor<Mudela_note*> i (open_note_l_list_.top ()); i.ok (); )
  57     {
  58       if ((i->pitch_i_ == pitch_i) && (i->channel_i_ == channel_i))
  59         {
  60           i->end_column_l_ = col_l;
  61           // LOGOUT(DEBUG_ver) << "Note: " << pitch_i;
  62           // LOGOUT(DEBUG_ver) << "; " << i->mudela_column_l_->at_mom_;
  63           // LOGOUT(DEBUG_ver) << ", " << i->end_column_l_->at_mom_ << '\n';
  64           i.remove_p();
  65           return;
  66         }
  67       else
  68         i++;
  69     }
  70   warning (_f ("junking note-end event: channel = %d, pitch = %d",
  71                channel_i, pitch_i));
  72 }
  73
  74 void
  75 Midi_track_parser::note_end_all (Mudela_column* col_l)
  76 {
  77   // find
  78   assert (col_l);
  79   for (PCursor<Mudela_note*> i (open_note_l_list_.top ()); i.ok (); )
  80     {
  81       i->end_column_l_ = col_l;
  82       i.remove_p ();
  83     }
  84 }
  85
  86 Mudela_staff*
  87 Midi_track_parser::parse (Mudela_column* col_l)
  88 {
  89   Moment mom = at_mom ();
  90   while (!eot () && (mom == at_mom ()))
  91     {
  92       Mudela_item* p = parse_event (col_l);
  93       if (p)
  94         mudela_staff_p_->add_item (p);
  95     }
  96
  97   if (!eot())
  98     return 0;
  99
 100   // catch-all
 101   note_end_all (col_l);
 102
 103   Mudela_staff* p = mudela_staff_p_;
 104   mudela_staff_p_ = 0;
 105   return p;
 106 }
 107
 108 void
 109 Midi_track_parser::parse_delta_time ()
 110 {
 111   if (eot ())
 112     return;
 113   int delta_i = get_var_i ();
 114   at_mom_ += Moment (delta_i, info_l_->division_1_i_);
 115 }
 116
 117 Mudela_item*
 118 Midi_track_parser::parse_event (Mudela_column* col_l)
 119 {
 120   Byte byte = peek_byte ();
 121   // RUNNING_STATUS     [\x00-\x5f]
 122   if (byte <= 0x5f)
 123     {
 124       if (running_byte_ <= 0x5f)
 125         exit (_ ("invalid running status"));
 126       /*
 127         'running status' rather means 'missing status'.
 128         we'll just pretend we read the running status byte.
 129       */
 130       byte = running_byte_;
 131     }
 132   else
 133     byte = next_byte ();
 134
 135   Mudela_item* item_p = 0;
 136   // DATA_ENTRY [\x60-\x79]
 137   if ((byte >= 0x60) && (byte <= 0x79))
 138     {
 139       next_byte ();
 140     }
 141   // ALL_NOTES_OFF      [\x7a-\x7f]
 142   else if ((byte >= 0x7a) && (byte <= 0x7f))
 143     {
 144       next_byte ();
 145       next_byte ();
 146       note_end_all (col_l);
 147     }
 148   // NOTE_OFF   [\x80-\x8f]
 149   else if ((byte >= 0x80) && (byte <= 0x8f))
 150     {
 151       running_byte_ = byte;
 152       int channel_i = byte & ~0x90;
 153       int pitch_i = (int)next_byte ();
 154       int dyn_i = (int)next_byte ();
 155       note_end (col_l, channel_i, pitch_i, dyn_i);
 156     }
 157   // NOTE_ON            [\x90-\x9f]
 158   else if ((byte >= 0x90) && (byte <= 0x9f))
 159     {
 160       running_byte_ = byte;
 161       int channel_i = byte & ~0x90;
 162       int pitch_i = (int)next_byte ();
 163       int dyn_i = (int)next_byte ();
 164       /*
 165         sss: some broken devices encode NOTE_OFF as
 166         NOTE_ON with zero volume
 167       */
 168       if (dyn_i)
 169         {
 170           Mudela_note* p = new Mudela_note (col_l, channel_i, pitch_i, dyn_i);
 171           item_p = p;
 172           open_note_l_list_.bottom ().add (p);
 173         }
 174       else
 175         {
 176           note_end (col_l, channel_i, pitch_i, dyn_i);
 177         }
 178     }
 179   // POLYPHONIC_AFTERTOUCH      [\xa0-\xaf]
 180   else if ((byte >= 0xa0) && (byte <= 0xaf))
 181     {
 182       running_byte_ = byte;
 183       next_byte ();
 184       next_byte ();
 185     }
 186   // CONTROLMODE_CHANGE [\xb0-\xbf]
 187   else if ((byte >= 0xb0) && (byte <= 0xbf))
 188     {
 189       running_byte_ = byte;
 190       next_byte ();
 191       next_byte ();
 192     }
 193   // PROGRAM_CHANGE     [\xc0-\xcf]
 194   else if ((byte >= 0xc0) && (byte <= 0xcf))
 195     {
 196       running_byte_ = byte;
 197       next_byte ();
 198     }
 199   // CHANNEL_AFTERTOUCH [\xd0-\xdf]
 200   else if ((byte >= 0xd0) && (byte <= 0xdf))
 201     {
 202       running_byte_ = byte;
 203       next_byte ();
 204       next_byte ();
 205     }
 206   // PITCHWHEEL_RANGE   [\xe0-\xef]
 207   else if ((byte >= 0xe0) && (byte <= 0xef))
 208     {
 209       running_byte_ = byte;
 210       next_byte ();
 211       next_byte ();
 212     }
 213   // SYSEX_EVENT1       [\xf0]
 214   else if (byte == 0xf0)
 215     {
 216       int length_i = get_var_i ();
 217       String str = get_str (length_i);
 218     }
 219   // SYSEX_EVENT2       [\xf7]
 220   else if (byte == 0xf7)
 221     {
 222       int length_i = get_var_i ();
 223       String str = get_str (length_i);
 224     }
 225   // META_EVENT [\xff]
 226   else if (byte == 0xff)
 227     {
 228       // SEQUENCE       [\x00][\x02]
 229       byte = next_byte ();
 230       if (byte == 0)
 231         {
 232           next_byte ();
 233           get_i (2);
 234         }
 235       // YYTEXT         [\x01]
 236       // YYCOPYRIGHT    [\x02]
 237       // YYTRACK_NAME   [\x03]
 238       // YYINSTRUMENT_NAME      [\x04]
 239       // YYLYRIC                [\x05]
 240       // YYMARKER               [\x06]
 241       // YYCUE_POINT    [\x07]
 242       else if ((byte >= 0x01) && (byte <= 0x07))
 243         {
 244           // LOGOUT (DEBUG_ver) << "\n% Text(" << (int)byte << "):" << flush;
 245           int length_i = get_var_i ();
 246           String str = get_str (length_i);
 247           // LOGOUT (DEBUG_ver) << str << endl;
 248           Mudela_text::Type t = (Mudela_text::Type)byte;
 249           Mudela_text* p = new Mudela_text (t, str);
 250           item_p = p;
 251           if (t == Mudela_text::COPYRIGHT)
 252             mudela_staff_p_->copyright_str_ = p->text_str_;
 253           else if (t == Mudela_text::TRACK_NAME)
 254             mudela_staff_p_->name_str_ = p->text_str_;
 255           else if (t == Mudela_text::INSTRUMENT_NAME)
 256             mudela_staff_p_->instrument_str_ = p->text_str_;
 257         }
 258       // END_OF_TRACK   [\x2f][\x00]
 259       else
 260         {
 261           Byte next = peek_byte ();
 262           if ((byte == 0x2f) && (next == 0x00))
 263             {
 264               next_byte ();
 265               info_l_->byte_L_ = info_l_->end_byte_L_;
 266             }
 267           // TEMPO              [\x51][\x03]
 268           else if ((byte == 0x51) && (next == 0x03))
 269             {
 270               next_byte ();
 271               unsigned useconds_per_4_u = get_u (3);
 272               // $$ = new Mudela_tempo ( ($2 << 16) + ($3 << 8) + $4);
 273               // LOGOUT (DEBUG_ver) << $$->str() << endl;
 274               Mudela_tempo* p = new Mudela_tempo ( useconds_per_4_u );
 275               item_p = p;
 276               info_l_->score_l_->mudela_tempo_l_ = p;
 277               mudela_staff_p_->mudela_tempo_l_ = p;
 278             }
 279           // SMPTE_OFFSET       [\x54][\x05]
 280           else if ((byte == 0x54) && (next == 0x05))
 281             {
 282               next_byte ();
 283               (int)next_byte ();
 284               (int)next_byte ();
 285               (int)next_byte ();
 286               (int)next_byte ();
 287               (int)next_byte ();
 288             }
 289           // TIME               [\x58][\x04]
 290           else if ((byte == 0x58) && (next == 0x04))
 291             {
 292               next_byte ();
 293               int num_i = (int)next_byte ();
 294               int den_i = (int)next_byte ();
 295               int clocks_4_i = (int)next_byte ();
 296               int count_32_i = (int)next_byte ();
 297               Mudela_time_signature* p = new Mudela_time_signature ( num_i, den_i, clocks_4_i, count_32_i );
 298               item_p = p;
 299               info_l_->score_l_->mudela_time_signature_l_ = p;
 300               info_l_->bar_mom_ = p->bar_mom ();
 301               mudela_staff_p_->mudela_time_signature_l_ = p;
 302             }
 303           // KEY                [\x59][\x02]
 304           else if ((byte == 0x59) && (next == 0x02))
 305             {
 306               next_byte ();
 307               int accidentals_i = (int)next_byte ();
 308               int minor_i = (int)next_byte ();
 309               Mudela_key* p = new Mudela_key (accidentals_i, minor_i);
 310               item_p = p;
 311               info_l_->score_l_->mudela_key_l_ = p;
 312               mudela_staff_p_->mudela_key_l_ = p;
 313             }
 314           // SSME               [\0x7f][\x03]
 315           else if ((byte == 0x7f) && (next == 0x03))
 316             {
 317               next_byte ();
 318               int length_i = get_var_i ();
 319               String str = get_str (length_i);
 320               item_p = new Mudela_text ((Mudela_text::Type)byte, str);
 321             }
 322           else
 323             {
 324               next_byte ();
 325               next_byte ();
 326               warning (_ ("unimplemented MIDI meta-event"));
 327             }
 328         }
 329     }
 330   else
 331     exit (_ ("invalid MIDI event"));
 332
 333   if (item_p)
 334     item_p->mudela_column_l_ = col_l;
 335
 336   parse_delta_time ();
 337
 338   return item_p;
 339 }
 340
 341 void
 342 Midi_track_parser::parse_header ()
 343 {
 344   String str = get_str (4);
 345   if ( str != "MTrk" )
 346     exit (_ ("MIDI track expected"));
 347
 348   int length_i = get_i (4);
 349   // is this signed?
 350   if (length_i < 0)
 351     exit (_ ("invalid track length"));
 352   assert (!track_info_p_);
 353   track_info_p_ = new Midi_parser_info (*info_l_);
 354   track_info_p_->end_byte_L_ = track_info_p_->byte_L_ + length_i;
 355   forward_byte_L (length_i);
 356   //  forward_byte_L (length_i-1);
 357   info_l_ = track_info_p_;
 358 }