lily/simultaneous-music-iterator.cc

   1 /*
   2   Simultaneous_music-iterator.cc -- implement Simultaneous_music_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "translator-group.hh"
  10 #include "warn.hh"
  11 #include "simultaneous-music-iterator.hh"
  12 #include "music-list.hh"
  13 #include "killing-cons.tcc"
  14
  15
  16 Simultaneous_music_iterator::Simultaneous_music_iterator ()
  17 {
  18   separate_contexts_b_ = false;
  19   children_list_ = SCM_EOL;
  20 }
  21
  22 Simultaneous_music_iterator::Simultaneous_music_iterator (Simultaneous_music_iterator const& src)
  23   : Music_iterator (src)
  24 {
  25   separate_contexts_b_
  26     = src.separate_contexts_b_;
  27
  28   SCM children_list = SCM_EOL;
  29   SCM *tail  = &children_list;
  30   for (SCM s = src.children_list_; gh_pair_p (s); s = gh_cdr(s))
  31     {
  32       Music_iterator *i = unsmob_iterator (gh_car (s));
  33       SCM cl = i->clone ()->self_scm();
  34       *tail = scm_cons (cl, *tail);
  35       tail = SCM_CDRLOC (*tail);
  36       scm_gc_unprotect_object (cl);
  37     }
  38
  39   children_list_ = children_list;
  40   scm_remember_upto_here_1 (children_list);
  41 }
  42
  43 void
  44 Simultaneous_music_iterator::derived_mark()const
  45 {
  46   scm_gc_mark (children_list_);
  47 }
  48
  49 SCM
  50 Simultaneous_music_iterator::get_pending_events (Moment m)const
  51 {
  52   SCM l = SCM_EOL;
  53   for (SCM s = children_list_; gh_pair_p (s); s = gh_cdr(s))
  54     {
  55       l = gh_append2 (unsmob_iterator (gh_car (s))->get_pending_events (m), l);
  56     }
  57   return l;
  58 }
  59
  60 void
  61 Simultaneous_music_iterator::construct_children ()
  62 {
  63   int j = 0;
  64
  65   SCM i = get_music ()->get_mus_property ("elements");
  66
  67   children_list_ = SCM_EOL;
  68   SCM * tail = &children_list_;
  69   for (; gh_pair_p (i); i = ly_cdr (i), j++)
  70     {
  71       Music *mus = unsmob_music (ly_car (i));
  72
  73       SCM scm_iter = get_static_get_iterator (mus);
  74       Music_iterator * mi = unsmob_iterator (scm_iter);
  75
  76       /* if separate_contexts_b_ is set, create a new context with the
  77          number number as name */
  78
  79       Translator_group * t = (j && separate_contexts_b_)
  80         ? report_to ()->find_create_translator (report_to ()->type_string_,
  81                                                     to_string (j))
  82         : report_to ();
  83
  84       if (!t)
  85         t = report_to ();
  86
  87       mi->init_translator (mus, t);
  88       mi->construct_children ();
  89
  90       if (mi->ok ())
  91         {
  92           *tail = scm_cons (scm_iter, *tail);
  93           tail = SCM_CDRLOC (*tail);
  94         }
  95       else
  96         mi->set_translator (0);
  97     }
  98 }
  99
 100 void
 101 Simultaneous_music_iterator::process (Moment until)
 102 {
 103   SCM *proc = &children_list_;
 104   while(gh_pair_p (*proc))
 105     {
 106       Music_iterator * i = unsmob_iterator (gh_car (*proc));
 107       if (i->pending_moment () == until)
 108         {
 109           i->process (until);
 110         }
 111       if (!i->ok ())
 112         {
 113           i->quit ();
 114           *proc = gh_cdr (*proc);
 115         }
 116       else
 117         {
 118           proc = SCM_CDRLOC(*proc);
 119         }
 120     }
 121 }
 122
 123 void
 124 Simultaneous_music_iterator::skip (Moment until)
 125 {
 126   SCM *proc = &children_list_;
 127   while(gh_pair_p (*proc))
 128     {
 129       Music_iterator * i = unsmob_iterator (gh_car (*proc));
 130       if (i->pending_moment () <= until)
 131         {
 132           i->skip (until);
 133         }
 134       if (!i->ok ())
 135         {
 136           i->quit ();
 137           *proc = gh_cdr (*proc);
 138         }
 139       else
 140         {
 141           proc = SCM_CDRLOC(*proc);
 142         }
 143     }
 144 }
 145
 146 Moment
 147 Simultaneous_music_iterator::pending_moment () const
 148 {
 149   Moment next;
 150   next.set_infinite (1);
 151
 152   for (SCM s = children_list_; gh_pair_p (s); s = gh_cdr(s))
 153     next = next <? unsmob_iterator (gh_car (s))->pending_moment () ;
 154   return next;
 155 }
 156
 157
 158
 159 bool
 160 Simultaneous_music_iterator::ok () const
 161 {
 162   return gh_pair_p (children_list_);
 163 }
 164
 165 Music_iterator*
 166 Simultaneous_music_iterator::try_music_in_children (Music *m) const
 167 {
 168   Music_iterator * b=0;
 169   for (SCM s = children_list_; !b && gh_pair_p (s); s = gh_cdr(s))
 170     b =unsmob_iterator (gh_car (s))->try_music (m);
 171   return b;
 172 }
 173
 174 void
 175 Simultaneous_music_iterator::do_quit ()
 176 {
 177   for (SCM s = children_list_; gh_pair_p (s); s = gh_cdr(s))
 178     unsmob_iterator (gh_car (s))->quit();
 179 }
 180
 181
 182 IMPLEMENT_CTOR_CALLBACK (Simultaneous_music_iterator);