lily/music-iterator.cc

   1 /*
   2   music-iterator.cc -- implement Music_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 /*
  10   UGH. too many includes.
  11  */
  12 #include "debug.hh"
  13 #include "music-list.hh"
  14 #include "music-iterator.hh"
  15 #include "property-iterator.hh"
  16 #include "request-chord-iterator.hh"
  17 #include "sequential-music-iterator.hh"
  18 #include "simultaneous-music-iterator.hh"
  19 #include "translator-group.hh"
  20 #include "translation-property.hh"
  21 #include "change-iterator.hh"
  22 #include "change-translator.hh"
  23 #include "music-wrapper.hh"
  24 #include "music-wrapper-iterator.hh"
  25 #include "time-scaled-music-iterator.hh"
  26 #include "time-scaled-music.hh"
  27 #include "context-specced-music.hh"
  28 #include "repeated-music.hh"
  29 #include "folded-repeat-iterator.hh"
  30 #include "unfolded-repeat-iterator.hh"
  31 #include "grace-iterator.hh"
  32 #include "grace-music.hh"
  33 #include "lyric-combine-music.hh"
  34 #include "lyric-combine-music-iterator.hh"
  35 #include "auto-change-music.hh"
  36 #include "auto-change-iterator.hh"
  37 #include "part-combine-music.hh"
  38 #include "part-combine-music-iterator.hh"
  39 #include "request.hh"
  40 #include "simple-music-iterator.hh"
  41 #include "output-property.hh"
  42 #include "chord-tremolo-iterator.hh"
  43
  44 Music_iterator::Music_iterator ()
  45 {
  46   first_b_ = true;
  47 }
  48
  49 Music_iterator::Music_iterator (Music_iterator const& src)
  50 {
  51   first_b_ = src.first_b_;
  52   handle_ = *src.handle_.clone ();
  53   music_l_ = src.music_l_;
  54 }
  55
  56 Music_iterator::~Music_iterator ()
  57 {
  58 }
  59
  60 void
  61 Music_iterator::do_print () const
  62 {
  63 }
  64
  65 void
  66 Music_iterator::print () const
  67 {
  68 #ifndef NPRINT
  69   if (!flower_dstream)
  70     return ;
  71   DEBUG_OUT << classname (this) << "{";
  72   Translator_group *t =     report_to_l ();
  73   DEBUG_OUT << "report to " << t->type_str_ << " = " << t->id_str_ << "\n";
  74   if (ok ())
  75     DEBUG_OUT << "next at " << next_moment () << " ";
  76   else
  77     DEBUG_OUT << "not feeling well today..";
  78   do_print ();
  79   DEBUG_OUT << "}\n";
  80 #endif
  81 }
  82
  83 Translator_group*
  84 Music_iterator::get_req_translator_l ()
  85 {
  86   assert (report_to_l ());
  87   if (report_to_l ()->is_bottom_translator_b ())
  88     return report_to_l ();
  89
  90   set_translator (report_to_l ()->get_default_interpreter ());
  91   return report_to_l ();
  92 }
  93
  94
  95 Translator_group*
  96 Music_iterator::report_to_l () const
  97 {
  98   return handle_.report_to_l ();
  99 }
 100
 101
 102 void
 103 Music_iterator::set_translator (Translator_group *trans)
 104 {
 105   handle_.set_translator (trans);
 106 }
 107
 108 void
 109 Music_iterator::construct_children ()
 110 {
 111 }
 112
 113 Moment
 114 Music_iterator::next_moment () const
 115 {
 116   return 0;
 117 }
 118
 119 void
 120 Music_iterator::process (Moment m)
 121 {
 122   do_process (m);
 123 }
 124
 125 void
 126 Music_iterator::do_process (Moment)
 127 {
 128   first_b_ = false;
 129 }
 130
 131 bool
 132 Music_iterator::ok () const
 133 {
 134   return first_b_;
 135 }
 136
 137 SCM
 138 Music_iterator::get_music ()
 139 {
 140   if (ok ())
 141     return scm_listify (scm_cons (music_l_->self_scm (),
 142                                   report_to_l ()->self_scm ()),
 143                         SCM_UNDEFINED);
 144   return SCM_EOL;
 145 }
 146
 147 bool
 148 Music_iterator::next ()
 149 {
 150   first_b_ = false;
 151   return ok ();
 152 }
 153
 154 Music_iterator*
 155 Music_iterator::static_get_iterator_p (Music *m)
 156 {
 157   Music_iterator * p =0;
 158
 159   /* It would be nice to do this decentrally, but the order of this is
 160      significant.  */
 161   if (dynamic_cast<Request_chord   *> (m))
 162     p = new Request_chord_iterator;
 163   else if (dynamic_cast<Lyric_combine_music *> (m))
 164     p = new Lyric_combine_music_iterator;
 165   else if (dynamic_cast<Simultaneous_music *> (m))
 166     p =  new Simultaneous_music_iterator;
 167   else if (dynamic_cast<Sequential_music *> (m))
 168     p =  new Sequential_music_iterator;
 169   else if (dynamic_cast<Translation_property *> (m))
 170     p = new Property_iterator;
 171   else if (dynamic_cast<Change_translator *> (m))
 172     p = new Change_iterator;
 173   else if (dynamic_cast<Push_translation_property*> (m))
 174     p = new Push_property_iterator;
 175   else if (dynamic_cast<Pop_translation_property*> (m))
 176     p = new Pop_property_iterator;
 177   else if (dynamic_cast<Time_scaled_music *> (m))
 178     p = new Time_scaled_music_iterator;
 179   else if (dynamic_cast<Grace_music *> (m))
 180     p = new Grace_iterator;
 181   else if (dynamic_cast<Auto_change_music *> (m))
 182     p = new Auto_change_iterator;
 183   else if (dynamic_cast<Part_combine_music *> (m))
 184     p = new Part_combine_music_iterator;
 185   else if (dynamic_cast<Music_wrapper   *> (m))
 186     p = new Music_wrapper_iterator;
 187   else if (Repeated_music  * n = dynamic_cast<Repeated_music  *> (m))
 188     {
 189       if (n->type_ == "tremolo")
 190         p = new Chord_tremolo_iterator;
 191       else if (n->fold_b_)
 192         p = new Folded_repeat_iterator;
 193       else
 194         p = new Unfolded_repeat_iterator;
 195     }
 196   else
 197     {
 198       p = new Simple_music_iterator ;
 199     }
 200
 201   p->music_l_ = m;
 202   return p;
 203 }
 204
 205 void
 206 Music_iterator::init_translator (Music *m, Translator_group *report_l)
 207 {
 208   music_l_ = m;
 209   if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
 210     {
 211       Translator_group* a =report_l->
 212         find_create_translator_l (csm->translator_type_str_, csm->translator_id_str_);
 213
 214       set_translator (a);
 215
 216     }
 217
 218   if (! report_to_l ())
 219     set_translator (report_l);
 220 }
 221
 222
 223 Music_iterator*
 224 Music_iterator::get_iterator_p (Music *m) const
 225 {
 226   Music_iterator*p = static_get_iterator_p (m);
 227   p->init_translator (m, report_to_l ());
 228
 229   p->construct_children ();
 230   return p;
 231 }
 232
 233 Music_iterator*
 234 Music_iterator::try_music (Music *m) const
 235 {
 236   bool b = report_to_l ()->try_music ( (Music*)m); // ugh
 237   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 238   if (!it)
 239     it = try_music_in_children (m);
 240   return it;
 241 }
 242
 243 Music_iterator*
 244 Music_iterator::try_music_in_children (Music *) const
 245 {
 246   return 0;
 247 }
 248