mi2mu/midi-score-parser.cc

   1 /*
   2   midi-score-parser.cc -- implement
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
   7 */
   8
   9 #include "moment.hh"
  10 #include "source-file.hh"
  11 #include "source.hh"
  12 #include "mi2mu-global.hh"
  13 #include "midi-score-parser.hh"
  14 #include "midi-track-parser.hh"
  15 #include "mudela-item.hh"
  16 #include "mudela-score.hh"
  17
  18
  19 void
  20 Midi_score_parser::open (String filename_str, Sources* sources_l)
  21 {
  22   info_l_->source_l_ = sources_l->get_file_l (filename_str);
  23   if (!info_l_->source_l_)
  24     ::error (_("can't find: `") + filename_str + "'");
  25   info_l_->byte_L_ = (Byte const*)info_l_->source_l_->ch_C ();
  26 //  info_l_->end_byte_L_ = info_l_->byte_L_ + info_l_->source_l_->length_i ();
  27   info_l_->end_byte_L_ = info_l_->byte_L_ + info_l_->source_l_->length_i () + 1;
  28 }
  29
  30 Mudela_score*
  31 Midi_score_parser::parse (String filename_str, Sources* sources_l)
  32 {
  33   Midi_parser_info info;
  34   info_l_ = &info;
  35   open (filename_str, sources_l);
  36   parse_header ();
  37   return parse_score ();
  38 }
  39
  40 void
  41 Midi_score_parser::parse_header ()
  42 {
  43   String str = get_str (4);
  44   if ( str != "MThd" )
  45     exit (_("MIDI header expected"));
  46
  47   int length_i = get_i (4);
  48   // is this signed?
  49   if (length_i < 6)
  50     exit (_("Invalid header length"));
  51   info_l_->format_i_ = get_i (2);
  52   if (info_l_->format_i_ != 0 && info_l_->format_i_ != 1)
  53     exit (_("Invalid midi format"));
  54   info_l_->tracks_i_ = get_i (2);
  55   if (info_l_->tracks_i_ < 0 || info_l_->tracks_i_ > 32 )
  56     exit (_("Invalid number of tracks"));
  57   info_l_->division_1_i_ = get_i (2) * 4;
  58   if (info_l_->division_1_i_ < 0)
  59     exit (_("Cannot handle non-metrical time"));
  60   // ugh
  61   Duration::division_1_i_s = info_l_->division_1_i_;
  62   forward_byte_L (length_i - 6);
  63 }
  64
  65 int
  66 Midi_score_parser::find_earliest_i (Link_array<Midi_track_parser>& tracks)
  67 {
  68   int earliest_i = 0;
  69   Moment earliest_mom = infinity_mom;
  70   for (int i = 0; i < tracks.size(); i++)
  71     {
  72       if ( tracks [i]->at_mom () < earliest_mom )
  73         {
  74           earliest_mom = tracks [i]->at_mom ();
  75           earliest_i = i;
  76         }
  77     }
  78   return earliest_i;
  79 }
  80
  81 Mudela_score*
  82 Midi_score_parser::parse_score ()
  83 {
  84   int current_bar_i = 0;
  85   Mudela_meter m4 (4, 2, 24, 8);
  86   Moment bar4_mom = m4.bar_mom ();
  87
  88   Mudela_score* score_p = new Mudela_score( 1, 1, 1 );
  89   info_l_->score_l_ = score_p;
  90
  91   Link_array<Midi_track_parser> tracks;
  92   for (int i = 0; i < info_l_->tracks_i_; i++)
  93     tracks.push (new Midi_track_parser (info_l_, i));
  94
  95   LOGOUT (NORMAL_ver) << _("Parsing...\n");
  96   while (tracks.size ())
  97     {
  98       int i = find_earliest_i (tracks);
  99       Moment at_mom = tracks [i]->at_mom ();
 100       Mudela_column* column_l = score_p->get_column_l (at_mom);
 101       Mudela_staff* staff_p = tracks [i]->parse (column_l);
 102       if ( staff_p )
 103         {
 104           score_p->add_staff (staff_p);
 105           delete tracks [i];
 106           tracks.del (i);
 107         }
 108
 109       //  brr, musta have some progress
 110       for (int ii = 0; !info_l_->bar_mom_ && ii < tracks.size (); ii++)
 111         info_l_->bar_mom_ = tracks [ii]->info_l_->bar_mom_;
 112
 113       int bar_i = (int) (at_mom
 114             / (info_l_->bar_mom_ ? info_l_->bar_mom_ : bar4_mom)) + 1;
 115       if (bar_i > current_bar_i)
 116         {
 117           LOGOUT (NORMAL_ver) << '[' << bar_i << ']' << flush;
 118           current_bar_i = bar_i;
 119         }
 120     }
 121   return score_p;
 122 }