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--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "translator-group.hh"
  10 #include "debug.hh"
  11 #include "simultaneous-music-iterator.hh"
  12 #include "music-list.hh"
  13 #include "killing-cons.tcc"
  14
  15 Simultaneous_music_iterator::Simultaneous_music_iterator ()
  16 {
  17 }
  18
  19 Simultaneous_music_iterator::~Simultaneous_music_iterator ()
  20 {
  21   children_p_list_.junk ();
  22 }
  23
  24 void
  25 Simultaneous_music_iterator::construct_children()
  26 {
  27   int j = 0;
  28   Simultaneous_music const *sim = dynamic_cast<Simultaneous_music const*> (music_l_);
  29
  30   for (Cons<Music> *i = sim->music_p_list_p_->head_cons_p_; i;  i = i->next_cons_p_, j++)
  31     {
  32       Music_iterator * mi = get_iterator_p (i->car_p_);
  33       if (mi->ok())
  34         {
  35           if  (sim->translator_type_str_.empty_b ())
  36             set_translator (mi->report_to_l()->ancestor_l (0)); // huh?
  37           children_p_list_.append (new Killing_cons<Music_iterator> (mi,0));
  38         }
  39       else
  40         delete mi;
  41     }
  42 }
  43
  44
  45 void
  46 Simultaneous_music_iterator::do_print() const
  47 {
  48 #ifndef NPRINT
  49   for (Cons<Music_iterator> *p = children_p_list_.head_cons_p_; p; p = p->next_cons_p_)
  50     p->car_p_->print();
  51 #endif
  52 }
  53
  54 void
  55 Simultaneous_music_iterator::do_process_and_next (Moment until)
  56 {
  57   for (Cons<Music_iterator> **pp = &children_p_list_.head_cons_p_; *pp; )
  58     {
  59       Music_iterator * i = (*pp)->car_p_;
  60       if  (i->next_moment() == until)
  61         {
  62           i->process_and_next (until);
  63         }
  64       if (!i->ok())
  65         delete children_p_list_.remove_cons_p (pp);
  66       else
  67         pp = &(*pp)->next_cons_p_;
  68     }
  69   Music_iterator::do_process_and_next (until);
  70 }
  71
  72
  73
  74
  75 Moment
  76 Simultaneous_music_iterator::next_moment() const
  77 {
  78   Moment next;
  79   next.set_infinite (1);
  80
  81   for (Cons<Music_iterator> *p = children_p_list_.head_cons_p_; p; p = p->next_cons_p_)
  82     next = next <? p->car_p_->next_moment() ;
  83   return next;
  84 }
  85
  86
  87
  88 bool
  89 Simultaneous_music_iterator::ok() const
  90 {
  91   return children_p_list_.head_cons_p_;
  92 }
  93