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 void
 140 Music_iterator::substitute_outlet (Translator_group*f, Translator_group *t)
 141 {
 142   if (report_to () == f)
 143     set_translator (t);
 144   derived_substitute (f,t);
 145 }
 146
 147 void
 148 Music_iterator::derived_substitute (Translator_group*,Translator_group*)
 149 {
 150 }
 151
 152 SCM
 153 Music_iterator::get_iterator (Music *m) const
 154 {
 155   SCM ip = get_static_get_iterator (m);
 156   Music_iterator*p = unsmob_iterator (ip);
 157
 158   p->init_translator (m, report_to ());
 159
 160   p->construct_children ();
 161   return ip;
 162 }
 163
 164 /*
 165   TODO: rename to prevent confusion between Translator::try_music and
 166   Iterator::try_music
 167
 168  */
 169 Music_iterator*
 170 Music_iterator::try_music (Music *m) const
 171 {
 172   bool b = report_to ()->try_music ((Music*)m); // ugh
 173   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 174   if (!it)
 175     it = try_music_in_children (m);
 176   return it;
 177 }
 178
 179 Music_iterator*
 180 Music_iterator::try_music_in_children (Music *) const
 181 {
 182   return 0;
 183 }
 184
 185 IMPLEMENT_CTOR_CALLBACK (Music_iterator);
 186
 187 Music *
 188 Music_iterator::get_music () const
 189 {
 190   return music_;
 191 }
 192
 193 /****************************************************************/
 194
 195 IMPLEMENT_TYPE_P (Music_iterator, "ly:iterator?");
 196 IMPLEMENT_SMOBS(Music_iterator);
 197 IMPLEMENT_DEFAULT_EQUAL_P(Music_iterator);
 198
 199 SCM
 200 Music_iterator::mark_smob (SCM smob)
 201 {
 202   Music_iterator * mus = (Music_iterator *)SCM_CELL_WORD_1 (smob);
 203
 204   mus->derived_mark ();
 205   /*
 206     Careful with GC, although we intend the following as pointers
 207     only, we _must_ mark them.
 208    */
 209   if (mus->report_to())
 210     scm_gc_mark (mus->report_to()->self_scm());
 211   if (mus->music_)
 212     scm_gc_mark (mus->music_->self_scm());
 213
 214
 215   return SCM_EOL;
 216 }
 217
 218 int
 219 Music_iterator::print_smob (SCM sm , SCM port, scm_print_state*)
 220 {
 221   char s[1000];
 222
 223   Music_iterator *iter = unsmob_iterator (sm);
 224   sprintf (s, "#<%s>", classname (iter));
 225   scm_puts (s, port);
 226   return 1;
 227 }
 228
 229 void
 230 Music_iterator::derived_mark()const
 231 {
 232 }
 233
 234 void
 235 Music_iterator::quit ()
 236 {
 237   do_quit ();
 238   handle_.quit ();
 239 }
 240
 241 void
 242 Music_iterator::do_quit()
 243 {
 244 }
 245
 246 bool
 247 Music_iterator::run_always ()const
 248 {
 249   return false;
 250 }