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-iterator.hh"
  14 #include "property-iterator.hh"
  15 #include "request-chord-iterator.hh"
  16 #include "sequential-music-iterator.hh"
  17 #include "simultaneous-music-iterator.hh"
  18 #include "translator-group.hh"
  19 #include "change-iterator.hh"
  20 #include "music-wrapper.hh"
  21 #include "music-wrapper-iterator.hh"
  22 #include "time-scaled-music-iterator.hh"
  23 #include "repeated-music.hh"
  24 #include "folded-repeat-iterator.hh"
  25 #include "unfolded-repeat-iterator.hh"
  26 #include "grace-iterator.hh"
  27 #include "lyric-combine-music-iterator.hh"
  28 #include "auto-change-iterator.hh"
  29 #include "part-combine-music-iterator.hh"
  30 #include "simple-music-iterator.hh"
  31 #include "output-property-music-iterator.hh"
  32 #include "chord-tremolo-iterator.hh"
  33 #include "context-specced-music.hh"
  34
  35 Music_iterator::Music_iterator ()
  36 {
  37   //  clone_i_ = 0;
  38 }
  39
  40 Music_iterator::Music_iterator (Music_iterator const& src)
  41 {
  42   //  clone_i_ = src.clone_i_ + 1;
  43   handle_ = *src.handle_.clone ();
  44   music_l_ = src.music_l_;
  45   music_length_ = src.music_length_;
  46 }
  47
  48 Music_iterator::~Music_iterator ()
  49 {
  50 }
  51
  52
  53
  54
  55 Translator_group*
  56 Music_iterator::report_to_l () const
  57 {
  58   return handle_.report_to_l ();
  59 }
  60
  61
  62 void
  63 Music_iterator::set_translator (Translator_group *trans)
  64 {
  65   handle_.set_translator (trans);
  66 }
  67
  68 void
  69 Music_iterator::construct_children ()
  70 {
  71 }
  72
  73 Moment
  74 Music_iterator::pending_moment () const
  75 {
  76   return 0;
  77 }
  78
  79
  80 void
  81 Music_iterator::process (Moment)
  82 {
  83 }
  84
  85 bool
  86 Music_iterator::ok () const
  87 {
  88   return false;
  89 }
  90
  91 void
  92 Music_iterator::skip (Moment )
  93 {
  94 }
  95
  96 SCM
  97 Music_iterator::get_music (Moment)const
  98 {
  99   return SCM_EOL;
 100 }
 101
 102
 103
 104 /* We could do this decentrally:
 105
 106  -  Declare a new smob-type, which stores a function ptr in its CDR
 107    (and not a struct ptr). The function ptr has signature
 108
 109         Music_iterator* (*)()
 110
 111  - initialize  all music with a set_mus_property("iterator-ctor"),
 112
 113  - do
 114
 115     func_ptr  p = (func_ptr) gh_cdr (get_mus_property ("iterator-ctor"));
 116     iter_p = (*p)();
 117
 118 */
 119
 120 Music_iterator*
 121 Music_iterator::static_get_iterator_p (Music *m)
 122 {
 123   Music_iterator * p =0;
 124
 125   SCM type = m->get_mus_property ("type") ;
 126
 127   if (type == ly_symbol2scm ("property-set"))
 128     p = new Property_iterator;
 129   else if (type == ly_symbol2scm ("property-push"))
 130     p = new Push_property_iterator;
 131   else if (type == ly_symbol2scm ("property-pop"))
 132     p = new Pop_property_iterator;
 133   else if (type == ly_symbol2scm ("output-property"))
 134     p = new Output_property_music_iterator;
 135   else if (type == ly_symbol2scm ("request-chord"))
 136     p = new Request_chord_iterator;
 137   else  if (type == ly_symbol2scm ("lyric-combine-music"))
 138     p = new Lyric_combine_music_iterator;
 139   else if  (type == ly_symbol2scm ("simultaneous-music"))
 140     p =  new Simultaneous_music_iterator;
 141   else if (type == ly_symbol2scm ("sequential-music"))
 142     p =  new Sequential_music_iterator;
 143   else if (type == ly_symbol2scm ("change-translator"))
 144     p = new Change_iterator;
 145   else if (type == ly_symbol2scm ("time-scaled-music"))
 146     p = new Time_scaled_music_iterator;
 147   else if (type == ly_symbol2scm ("grace-music"))
 148     p = new Grace_iterator;
 149   else if (type == ly_symbol2scm ("auto-change-music"))
 150     p = new Auto_change_iterator;
 151   else if (type == ly_symbol2scm ("part-combined-music"))
 152     p = new Part_combine_music_iterator;
 153   else if (dynamic_cast<Music_wrapper   *> (m))
 154     p = new Music_wrapper_iterator;
 155   else if (Repeated_music  * n = dynamic_cast<Repeated_music  *> (m))
 156     {
 157       if (n->type_ == "tremolo")
 158         p = new Chord_tremolo_iterator;
 159       else if (n->fold_b_)
 160         p = new Folded_repeat_iterator;
 161       else
 162         p = new Unfolded_repeat_iterator;
 163     }
 164   else
 165     {
 166       p = new Simple_music_iterator ;
 167     }
 168
 169   p->music_l_ = m;
 170   p->music_length_ = m->length_mom ();
 171
 172   return p;
 173 }
 174
 175
 176 Moment
 177 Music_iterator::music_length_mom() const
 178 {
 179   return music_length_;
 180 }
 181
 182 void
 183 Music_iterator::init_translator (Music *m, Translator_group *report_l)
 184 {
 185   music_l_ = m;
 186   if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
 187     {
 188       SCM ct = csm->get_mus_property ("context-type");
 189       String c_type;
 190       if (gh_string_p (ct))
 191           c_type =  ly_scm2string (ct);
 192
 193       String c_id;
 194       SCM ci = csm->get_mus_property ("context-id");
 195       if (gh_string_p (ci))
 196         c_id = ly_scm2string (ci);
 197
 198       Translator_group* a
 199         =report_l->find_create_translator_l (c_type, c_id);
 200
 201       set_translator (a);
 202
 203     }
 204
 205   if (! report_to_l ())
 206     set_translator (report_l);
 207 }
 208
 209
 210 Music_iterator*
 211 Music_iterator::get_iterator_p (Music *m) const
 212 {
 213   Music_iterator*p = static_get_iterator_p (m);
 214   p->init_translator (m, report_to_l ());
 215
 216   p->construct_children ();
 217   return p;
 218 }
 219
 220 Music_iterator*
 221 Music_iterator::try_music (Music *m) const
 222 {
 223   bool b = report_to_l ()->try_music ( (Music*)m); // ugh
 224   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 225   if (!it)
 226     it = try_music_in_children (m);
 227   return it;
 228 }
 229
 230 Music_iterator*
 231 Music_iterator::try_music_in_children (Music *) const
 232 {
 233   return 0;
 234 }
 235