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--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 /*
  10   UGH. too many includes.
  11  */
  12 #include "warn.hh"
  13 #include "music-iterator.hh"
  14 #include "translator-group.hh"
  15 #include "music-wrapper.hh"
  16 #include "music-wrapper-iterator.hh"
  17 #include "simple-music-iterator.hh"
  18 #include "ly-smobs.icc"
  19
  20 Music_iterator::Music_iterator ()
  21 {
  22   music_ = 0;
  23   smobify_self ();
  24 }
  25
  26 Music_iterator::Music_iterator (Music_iterator const& src)
  27 {
  28   handle_ = *src.handle_.clone ();
  29   music_ = src.music_;
  30   music_length_ = src.music_length_;
  31   start_mom_ = src.start_mom_;
  32   smobify_self ();
  33 }
  34
  35 Music_iterator::~Music_iterator ()
  36 {
  37 }
  38
  39 Translator_group*
  40 Music_iterator::report_to () const
  41 {
  42   return handle_.report_to ();
  43 }
  44
  45 void
  46 Music_iterator::set_translator (Translator_group *trans)
  47 {
  48   handle_.set_translator (trans);
  49 }
  50
  51 void
  52 Music_iterator::construct_children ()
  53 {
  54 }
  55
  56 Moment
  57 Music_iterator::pending_moment () const
  58 {
  59   return 0;
  60 }
  61
  62 void
  63 Music_iterator::process (Moment)
  64 {
  65 }
  66
  67 bool
  68 Music_iterator::ok () const
  69 {
  70   return false;
  71 }
  72
  73 void
  74 Music_iterator::skip (Moment)
  75 {
  76 }
  77
  78 SCM
  79 Music_iterator::get_pending_events (Moment)const
  80 {
  81   return SCM_EOL;
  82 }
  83
  84 SCM
  85 Music_iterator::get_static_get_iterator (Music *m)
  86 {
  87   Music_iterator * p =0;
  88
  89   SCM ctor = m->get_mus_property ("iterator-ctor") ;
  90   SCM iter = SCM_EOL;
  91   if (gh_procedure_p (ctor))
  92     {
  93       iter = gh_call0 (ctor);
  94       p = unsmob_iterator (iter);
  95     }
  96   else
  97     {
  98       if (dynamic_cast<Music_wrapper *> (m))
  99         p = new Music_wrapper_iterator;
 100       else
 101         p = new Simple_music_iterator;
 102
 103       iter = p->self_scm();
 104       scm_gc_unprotect_object (iter);
 105     }
 106
 107   p->music_ = m;
 108   assert (m);
 109   p->music_length_ = m->length_mom ();
 110   p->start_mom_ = m->start_mom ();
 111   return iter;
 112 }
 113
 114
 115 Moment
 116 Music_iterator::music_length_mom () const
 117 {
 118   return music_length_;
 119 }
 120
 121 Moment
 122 Music_iterator::music_start_mom ()const
 123 {
 124   return start_mom_;
 125 }
 126
 127 void
 128 Music_iterator::init_translator (Music *m, Translator_group *report)
 129 {
 130   music_ = m;
 131   assert (m);
 132   if (! report_to ())
 133     set_translator (report);
 134 }
 135
 136
 137 SCM
 138 Music_iterator::get_iterator (Music *m) const
 139 {
 140   SCM ip = get_static_get_iterator (m);
 141   Music_iterator*p = unsmob_iterator (ip);
 142
 143   p->init_translator (m, report_to ());
 144
 145   p->construct_children ();
 146   return ip;
 147 }
 148
 149 /*
 150   TODO: rename to prevent confusion between Translator::try_music and
 151   Iterator::try_music
 152
 153  */
 154 Music_iterator*
 155 Music_iterator::try_music (Music *m) const
 156 {
 157   bool b = report_to ()->try_music ((Music*)m); // ugh
 158   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 159   if (!it)
 160     it = try_music_in_children (m);
 161   return it;
 162 }
 163
 164 Music_iterator*
 165 Music_iterator::try_music_in_children (Music *) const
 166 {
 167   return 0;
 168 }
 169
 170 IMPLEMENT_CTOR_CALLBACK (Music_iterator);
 171
 172 Music *
 173 Music_iterator::get_music () const
 174 {
 175   return music_;
 176 }
 177
 178 /****************************************************************/
 179
 180 IMPLEMENT_TYPE_P (Music_iterator, "ly-iterator?");
 181 IMPLEMENT_SMOBS(Music_iterator);
 182 IMPLEMENT_DEFAULT_EQUAL_P(Music_iterator);
 183
 184 SCM
 185 Music_iterator::mark_smob (SCM smob)
 186 {
 187   Music_iterator * mus = (Music_iterator *)SCM_CELL_WORD_1 (smob);
 188
 189   mus->derived_mark ();
 190   /*
 191     Careful with GC, although we intend the following as pointers
 192     only, we _must_ mark them.
 193    */
 194   if (mus->report_to())
 195     scm_gc_mark (mus->report_to()->self_scm());
 196   if (mus->music_)
 197     scm_gc_mark (mus->music_->self_scm());
 198
 199
 200   return SCM_EOL;
 201 }
 202
 203 int
 204 Music_iterator::print_smob (SCM , SCM port, scm_print_state*)
 205 {
 206   scm_puts ("#<Music iterator>", port);
 207   return 1;
 208 }
 209
 210 void
 211 Music_iterator::derived_mark()const
 212 {
 213 }
 214
 215 void
 216 Music_iterator::quit ()
 217 {
 218   do_quit ();
 219   handle_.quit ();
 220 }
 221
 222 void
 223 Music_iterator::do_quit()
 224 {
 225 }