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