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