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::get_outlet () const
  44 {
  45   return handle_.get_outlet ();
  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
  77
  78 SCM
  79 Music_iterator::get_static_get_iterator (Music *m)
  80 {
  81   Music_iterator * p =0;
  82
  83   SCM ctor = m->get_mus_property ("iterator-ctor") ;
  84   SCM iter = SCM_EOL;
  85   if (gh_procedure_p (ctor))
  86     {
  87       iter = gh_call0 (ctor);
  88       p = unsmob_iterator (iter);
  89     }
  90   else
  91     {
  92       if (dynamic_cast<Music_wrapper *> (m))
  93         p = new Music_wrapper_iterator;
  94       else
  95         p = new Simple_music_iterator;
  96
  97       iter = p->self_scm();
  98       scm_gc_unprotect_object (iter);
  99     }
 100
 101   p->music_ = m;
 102   assert (m);
 103   p->music_length_ = m->get_length ();
 104   p->start_mom_ = m->start_mom ();
 105   return iter;
 106 }
 107
 108
 109 Moment
 110 Music_iterator::music_get_length () const
 111 {
 112   return music_length_;
 113 }
 114
 115 Moment
 116 Music_iterator::music_start_mom ()const
 117 {
 118   return start_mom_;
 119 }
 120
 121 void
 122 Music_iterator::init_translator (Music *m, Translator_group *report)
 123 {
 124   music_ = m;
 125   assert (m);
 126   if (! get_outlet ())
 127     set_translator (report);
 128 }
 129
 130 void
 131 Music_iterator::substitute_outlet (Translator_group*f, Translator_group *t)
 132 {
 133   if (get_outlet () == f)
 134     set_translator (t);
 135   derived_substitute (f,t);
 136 }
 137
 138 void
 139 Music_iterator::derived_substitute (Translator_group*,Translator_group*)
 140 {
 141 }
 142
 143 SCM
 144 Music_iterator::get_iterator (Music *m) const
 145 {
 146   SCM ip = get_static_get_iterator (m);
 147   Music_iterator*p = unsmob_iterator (ip);
 148
 149   p->init_translator (m, get_outlet ());
 150
 151   p->construct_children ();
 152   return ip;
 153 }
 154
 155 /*
 156   TODO: rename to prevent confusion between Translator::try_music and
 157   Iterator::try_music
 158
 159  */
 160 Music_iterator*
 161 Music_iterator::try_music (Music *m) const
 162 {
 163   bool b = get_outlet ()->try_music ((Music*)m); // ugh
 164   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 165   if (!it)
 166     it = try_music_in_children (m);
 167   return it;
 168 }
 169
 170 Music_iterator*
 171 Music_iterator::try_music_in_children (Music *) const
 172 {
 173   return 0;
 174 }
 175
 176 IMPLEMENT_CTOR_CALLBACK (Music_iterator);
 177
 178 Music *
 179 Music_iterator::get_music () const
 180 {
 181   return music_;
 182 }
 183
 184 /****************************************************************/
 185
 186 IMPLEMENT_TYPE_P (Music_iterator, "ly:iterator?");
 187 IMPLEMENT_SMOBS(Music_iterator);
 188 IMPLEMENT_DEFAULT_EQUAL_P(Music_iterator);
 189
 190 SCM
 191 Music_iterator::mark_smob (SCM smob)
 192 {
 193   Music_iterator * mus = (Music_iterator *)SCM_CELL_WORD_1 (smob);
 194
 195   mus->derived_mark ();
 196   /*
 197     Careful with GC, although we intend the following as pointers
 198     only, we _must_ mark them.
 199    */
 200   if (mus->get_outlet ())
 201     scm_gc_mark (mus->get_outlet ()->self_scm());
 202   if (mus->music_)
 203     scm_gc_mark (mus->music_->self_scm());
 204
 205
 206   return SCM_EOL;
 207 }
 208
 209 int
 210 Music_iterator::print_smob (SCM sm , SCM port, scm_print_state*)
 211 {
 212   char s[1000];
 213
 214   Music_iterator *iter = unsmob_iterator (sm);
 215   sprintf (s, "#<%s>", classname (iter));
 216   scm_puts (s, port);
 217   return 1;
 218 }
 219
 220 void
 221 Music_iterator::derived_mark()const
 222 {
 223 }
 224
 225 void
 226 Music_iterator::quit ()
 227 {
 228   do_quit ();
 229   handle_.quit ();
 230 }
 231
 232 void
 233 Music_iterator::do_quit()
 234 {
 235 }
 236
 237 bool
 238 Music_iterator::run_always ()const
 239 {
 240   return false;
 241 }