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_; i;  i = i->next_, j++)
  31     {
  32       Music_iterator * mi = get_iterator_p (i->car_);
  33       if (mi->ok())
  34         {
  35 #if 0
  36           if  (sim->translator_type_str_.empty_b ())
  37             set_translator (mi->report_to_l()->ancestor_l (0)); // huh?
  38 #endif
  39
  40           children_p_list_.append (new Killing_cons<Music_iterator> (mi,0));
  41         }
  42       else
  43         delete mi;
  44     }
  45 }
  46
  47
  48 void
  49 Simultaneous_music_iterator::do_print() const
  50 {
  51 #ifndef NPRINT
  52   for (Cons<Music_iterator> *p = children_p_list_.head_; p; p = p->next_)
  53     p->car_->print();
  54 #endif
  55 }
  56
  57 void
  58 Simultaneous_music_iterator::do_process_and_next (Moment until)
  59 {
  60   for (Cons<Music_iterator> **pp = &children_p_list_.head_; *pp; )
  61     {
  62       Music_iterator * i = (*pp)->car_;
  63       if  (i->next_moment() == until)
  64         {
  65           i->process_and_next (until);
  66         }
  67       if (!i->ok())
  68         delete children_p_list_.remove_cons (pp);
  69       else
  70         pp = &(*pp)->next_;
  71     }
  72   Music_iterator::do_process_and_next (until);
  73 }
  74
  75
  76
  77
  78 Moment
  79 Simultaneous_music_iterator::next_moment() const
  80 {
  81   Moment next;
  82   next.set_infinite (1);
  83
  84   for (Cons<Music_iterator> *p = children_p_list_.head_; p; p = p->next_)
  85     next = next <? p->car_->next_moment() ;
  86   return next;
  87 }
  88
  89
  90
  91 bool
  92 Simultaneous_music_iterator::ok() const
  93 {
  94   return children_p_list_.head_;
  95 }
  96