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--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 /*
  10   UGH. too many includes.
  11  */
  12 #include "debug.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 Music_iterator::Music_iterator ()
  21 {
  22 }
  23
  24 Music_iterator::Music_iterator (Music_iterator const& src)
  25 {
  26   handle_ = *src.handle_.clone ();
  27   music_l_ = src.music_l_;
  28   music_length_ = src.music_length_;
  29   start_mom_ = src.start_mom_;
  30 }
  31
  32 Music_iterator::~Music_iterator ()
  33 {
  34 }
  35
  36
  37
  38
  39 Translator_group*
  40 Music_iterator::report_to_l () const
  41 {
  42   return handle_.report_to_l ();
  43 }
  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_music (Moment)const
  81 {
  82   return SCM_EOL;
  83 }
  84
  85 Music_iterator*
  86 Music_iterator::static_get_iterator_p (Music *m)
  87 {
  88   Music_iterator * p =0;
  89
  90   SCM ctor = m->get_mus_property ("iterator-ctor") ;
  91   if (unsmob_cxx_function (ctor))
  92     {
  93       Cxx_function f =  unsmob_cxx_function (ctor);
  94
  95       p = (Music_iterator*) (*f) (SCM_EOL);
  96     }
  97   else if (dynamic_cast<Music_wrapper   *> (m))
  98     p = new Music_wrapper_iterator;
  99   else
 100     {
 101       p = new Simple_music_iterator ;
 102     }
 103
 104   p->music_l_ = m;
 105   assert (m);
 106   p->music_length_ = m->length_mom ();
 107   p->start_mom_ = m->start_mom ();
 108   return p;
 109 }
 110
 111
 112 Moment
 113 Music_iterator::music_length_mom () const
 114 {
 115   return music_length_;
 116
 117 }
 118
 119 Moment
 120 Music_iterator::music_start_mom ()const
 121 {
 122   return start_mom_;
 123 }
 124
 125 void
 126 Music_iterator::init_translator (Music *m, Translator_group *report_l)
 127 {
 128   music_l_ = m;
 129   assert (m);
 130   if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
 131     {
 132       SCM ct = csm->get_mus_property ("context-type");
 133       String c_type;
 134       if (gh_string_p (ct))
 135           c_type =  ly_scm2string (ct);
 136
 137       String c_id;
 138       SCM ci = csm->get_mus_property ("context-id");
 139       if (gh_string_p (ci))
 140         c_id = ly_scm2string (ci);
 141
 142       Translator_group* a
 143         =report_l->find_create_translator_l (c_type, c_id);
 144
 145       set_translator (a);
 146
 147     }
 148
 149   if (! report_to_l ())
 150     set_translator (report_l);
 151 }
 152
 153
 154 Music_iterator*
 155 Music_iterator::get_iterator_p (Music *m) const
 156 {
 157   Music_iterator*p = static_get_iterator_p (m);
 158   p->init_translator (m, report_to_l ());
 159
 160   p->construct_children ();
 161   return p;
 162 }
 163
 164 Music_iterator*
 165 Music_iterator::try_music (Music *m) const
 166 {
 167   bool b = report_to_l ()->try_music ((Music*)m); // ugh
 168   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 169   if (!it)
 170     it = try_music_in_children (m);
 171   return it;
 172 }
 173
 174 Music_iterator*
 175 Music_iterator::try_music_in_children (Music *) const
 176 {
 177   return 0;
 178 }
 179
 180 IMPLEMENT_CTOR_CALLBACK (Music_iterator);
 181
 182 Music *
 183 Music_iterator::music_l () const
 184 {
 185   return music_l_;
 186 }