lily/timing-translator.cc

   1 /*
   2   timing-translator.cc -- implement Timing_translator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "timing-translator.hh"
  10 #include "command-request.hh"
  11 #include "translator-group.hh"
  12 #include "global-translator.hh"
  13 #include "multi-measure-rest.hh"
  14
  15 Timing_translator::Timing_translator ()
  16 {
  17   default_grouping_ = Rhythmic_grouping (MInterval (0, 1), 4); // ugh
  18 }
  19
  20 bool
  21 Timing_translator::do_try_request(Request*r)
  22 {
  23   Command_req * c = dynamic_cast <Command_req *> (r);
  24   if (!(c && dynamic_cast <Timing_req *> (c)))
  25     return false;
  26   for (int i=0; i < timing_req_l_arr_.size (); i++)
  27     {
  28       if (timing_req_l_arr_[i]->equal_b(r))
  29         return true;
  30       if (timing_req_l_arr_[i]->name() == r->name())
  31         {
  32           r->warning (_ ("conflicting timing request"));
  33           return false;
  34         }
  35     }
  36
  37   timing_req_l_arr_.push(dynamic_cast <Timing_req *> (c));
  38   return true;
  39 }
  40
  41 Time_signature_change_req*
  42 Timing_translator::time_signature_req_l() const
  43 {
  44   Time_signature_change_req *m_l=0;
  45   for (int i=0; !m_l && i < timing_req_l_arr_.size (); i++)
  46     {
  47       m_l=dynamic_cast<Time_signature_change_req*> (timing_req_l_arr_[i]);
  48     }
  49   return m_l;
  50 }
  51
  52 void
  53 Timing_translator::do_process_requests()
  54 {
  55   for (int i=0; i < timing_req_l_arr_.size (); i++)
  56     {
  57       Timing_req * tr_l = timing_req_l_arr_[i];
  58       Time_signature_change_req *m_l = dynamic_cast <Time_signature_change_req *> (tr_l);
  59       if (m_l)
  60         {
  61           int b_i= m_l->beats_i_;
  62           int o_i = m_l->one_beat_i_;
  63           if (! time_.allow_time_signature_change_b())
  64             tr_l->warning (_ ("time signature change not allowed here"));
  65           else
  66             {
  67               time_.set_time_signature (b_i, o_i);
  68               default_grouping_ =
  69                 Rhythmic_grouping (MInterval (0,Moment (b_i, o_i)), b_i);
  70             }
  71         }
  72       else if (dynamic_cast <Partial_measure_req *> (tr_l))
  73         {
  74           Moment m = dynamic_cast <Partial_measure_req *> (tr_l)->duration_;
  75           String error = time_.try_set_partial_str (m);
  76           if (error.length_i ())
  77             {
  78               tr_l->warning (error);
  79             }
  80           else
  81             time_.setpartial (m);
  82         }
  83       else if (dynamic_cast <Barcheck_req *> (tr_l))
  84         {
  85           if (time_.whole_in_measure_)
  86             {
  87               tr_l ->warning (_f ("barcheck failed by: %s",
  88                 time_.whole_in_measure_.str ()));
  89
  90               time_.whole_in_measure_ = 0; // resync
  91               time_.error_b_ = true;
  92             }
  93
  94         }
  95       else if (dynamic_cast <Cadenza_req *> (tr_l))
  96         {
  97           time_.set_cadenza (dynamic_cast <Cadenza_req *> (tr_l)->on_b_);
  98         }
  99       else if (dynamic_cast <Measure_grouping_req *> (tr_l))
 100         {
 101           default_grouping_ =
 102             parse_grouping (dynamic_cast <Measure_grouping_req *> (tr_l)->beat_i_arr_,
 103                             dynamic_cast <Measure_grouping_req *> (tr_l)->elt_length_arr_);
 104
 105         }
 106     }
 107 }
 108
 109
 110 void
 111 Timing_translator::do_pre_move_processing()
 112 {
 113   timing_req_l_arr_.set_size (0);
 114   Global_translator *global_l =
 115     daddy_trans_l_->ancestor_l (100)->global_l (); // ugh 100.
 116
 117
 118   /* allbars == ! skipbars */
 119   bool allbars = ! get_property ("SkipBars").to_bool ();
 120
 121
 122   if (!time_.cadenza_b_ && allbars)
 123     global_l->add_moment_to_process (time_.next_bar_moment ());
 124 }
 125
 126 IMPLEMENT_IS_TYPE_B1(Timing_translator, Translator);
 127 ADD_THIS_TRANSLATOR(Timing_translator);
 128
 129 void
 130 Timing_translator::do_creation_processing()
 131 {
 132   time_.when_ = now_moment ();
 133 }
 134
 135 void
 136 Timing_translator::do_post_move_processing()
 137 {
 138   time_.add (now_moment ()  - time_.when_);
 139 }
 140
 141 void
 142 Timing_translator::do_print () const
 143 {
 144 #ifndef NPRINT
 145   time_.print ();
 146   default_grouping_.print ();
 147 #endif
 148 }