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--2000 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   //  clone_i_ = 0;
  23 }
  24
  25 Music_iterator::Music_iterator (Music_iterator const& src)
  26 {
  27   //  clone_i_ = src.clone_i_ + 1;
  28   handle_ = *src.handle_.clone ();
  29   music_l_ = src.music_l_;
  30   music_length_ = src.music_length_;
  31 }
  32
  33 Music_iterator::~Music_iterator ()
  34 {
  35 }
  36
  37
  38
  39
  40 Translator_group*
  41 Music_iterator::report_to_l () const
  42 {
  43   return handle_.report_to_l ();
  44 }
  45
  46
  47 void
  48 Music_iterator::set_translator (Translator_group *trans)
  49 {
  50   handle_.set_translator (trans);
  51 }
  52
  53 void
  54 Music_iterator::construct_children ()
  55 {
  56 }
  57
  58 Moment
  59 Music_iterator::pending_moment () const
  60 {
  61   return 0;
  62 }
  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_music (Moment)const
  83 {
  84   return SCM_EOL;
  85 }
  86
  87 Music_iterator*
  88 Music_iterator::static_get_iterator_p (Music *m)
  89 {
  90   Music_iterator * p =0;
  91
  92   SCM ctor = m->get_mus_property ("iterator-ctor") ;
  93   if (unsmob_cxx_function (ctor))
  94     {
  95       Cxx_function f =  unsmob_cxx_function (ctor);
  96
  97       p = (Music_iterator*) (*f) (SCM_EOL);
  98     }
  99   else if (dynamic_cast<Music_wrapper   *> (m))
 100     p = new Music_wrapper_iterator;
 101   else
 102     {
 103       p = new Simple_music_iterator ;
 104     }
 105
 106   p->music_l_ = m;
 107   p->music_length_ = m->length_mom ();
 108
 109   return p;
 110 }
 111
 112
 113 Moment
 114 Music_iterator::music_length_mom() const
 115 {
 116   return music_length_;
 117 }
 118
 119 void
 120 Music_iterator::init_translator (Music *m, Translator_group *report_l)
 121 {
 122   music_l_ = m;
 123   if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
 124     {
 125       SCM ct = csm->get_mus_property ("context-type");
 126       String c_type;
 127       if (gh_string_p (ct))
 128           c_type =  ly_scm2string (ct);
 129
 130       String c_id;
 131       SCM ci = csm->get_mus_property ("context-id");
 132       if (gh_string_p (ci))
 133         c_id = ly_scm2string (ci);
 134
 135       Translator_group* a
 136         =report_l->find_create_translator_l (c_type, c_id);
 137
 138       set_translator (a);
 139
 140     }
 141
 142   if (! report_to_l ())
 143     set_translator (report_l);
 144 }
 145
 146
 147 Music_iterator*
 148 Music_iterator::get_iterator_p (Music *m) const
 149 {
 150   Music_iterator*p = static_get_iterator_p (m);
 151   p->init_translator (m, report_to_l ());
 152
 153   p->construct_children ();
 154   return p;
 155 }
 156
 157 Music_iterator*
 158 Music_iterator::try_music (Music *m) const
 159 {
 160   bool b = report_to_l ()->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);