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 }
  30
  31 Music_iterator::~Music_iterator ()
  32 {
  33 }
  34
  35
  36
  37
  38 Translator_group*
  39 Music_iterator::report_to_l () const
  40 {
  41   return handle_.report_to_l ();
  42 }
  43
  44
  45 void
  46 Music_iterator::set_translator (Translator_group *trans)
  47 {
  48   handle_.set_translator (trans);
  49 }
  50
  51 void
  52 Music_iterator::construct_children ()
  53 {
  54 }
  55
  56 Moment
  57 Music_iterator::pending_moment () const
  58 {
  59   return 0;
  60 }
  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   p->music_length_ = m->length_mom ();
 106
 107   return p;
 108 }
 109
 110
 111 Moment
 112 Music_iterator::music_length_mom () const
 113 {
 114   return music_length_;
 115 }
 116
 117 void
 118 Music_iterator::init_translator (Music *m, Translator_group *report_l)
 119 {
 120   music_l_ = m;
 121   if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
 122     {
 123       SCM ct = csm->get_mus_property ("context-type");
 124       String c_type;
 125       if (gh_string_p (ct))
 126           c_type =  ly_scm2string (ct);
 127
 128       String c_id;
 129       SCM ci = csm->get_mus_property ("context-id");
 130       if (gh_string_p (ci))
 131         c_id = ly_scm2string (ci);
 132
 133       Translator_group* a
 134         =report_l->find_create_translator_l (c_type, c_id);
 135
 136       set_translator (a);
 137
 138     }
 139
 140   if (! report_to_l ())
 141     set_translator (report_l);
 142 }
 143
 144
 145 Music_iterator*
 146 Music_iterator::get_iterator_p (Music *m) const
 147 {
 148   Music_iterator*p = static_get_iterator_p (m);
 149   p->init_translator (m, report_to_l ());
 150
 151   p->construct_children ();
 152   return p;
 153 }
 154
 155 Music_iterator*
 156 Music_iterator::try_music (Music *m) const
 157 {
 158   bool b = report_to_l ()->try_music ((Music*)m); // ugh
 159   Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
 160   if (!it)
 161     it = try_music_in_children (m);
 162   return it;
 163 }
 164
 165 Music_iterator*
 166 Music_iterator::try_music_in_children (Music *) const
 167 {
 168   return 0;
 169 }
 170
 171 IMPLEMENT_CTOR_CALLBACK (Music_iterator);