lily/folded-repeat-iterator.cc

   1 /*
   2      folded-repeat-iterator.cc --  implement Folded_repeat_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11 #include "folded-repeat-iterator.hh"
  12 #include "repeated-music.hh"
  13 #include "music-list.hh"
  14 #include "simultaneous-music-iterator.hh"
  15 #include "translator-group.hh"
  16
  17 Folded_repeat_iterator::Folded_repeat_iterator ()
  18 {
  19   main_iter_ = 0;
  20   alternative_iter_ = 0;
  21 }
  22
  23 bool
  24 Folded_repeat_iterator::ok () const
  25 {
  26   return main_iter_ || alternative_iter_;
  27 }
  28 void
  29 Folded_repeat_iterator::do_quit()
  30 {
  31   if (main_iter_)main_iter_->quit();
  32   if (alternative_iter_)alternative_iter_->quit();
  33 }
  34
  35 Folded_repeat_iterator::Folded_repeat_iterator (Folded_repeat_iterator const &src)
  36   : Music_iterator (src)
  37 {
  38   main_iter_ = 0;
  39   alternative_iter_ = 0;
  40   main_length_mom_ = src.main_length_mom_;
  41
  42   if (src.alternative_iter_)
  43     alternative_iter_ = src.alternative_iter_->clone ();
  44   if (src.main_iter_)
  45     main_iter_ = src.main_iter_->clone ();
  46
  47   if (main_iter_)
  48     scm_gc_unprotect_object (main_iter_->self_scm());
  49   if (alternative_iter_)
  50     scm_gc_unprotect_object (alternative_iter_->self_scm());
  51 }
  52
  53 Moment
  54 Folded_repeat_iterator::pending_moment () const
  55 {
  56   if (main_iter_)
  57     {
  58       return main_iter_->pending_moment ();
  59     }
  60   else
  61     return main_length_mom_ + alternative_iter_->pending_moment ();
  62 }
  63
  64 void
  65 Folded_repeat_iterator::construct_children ()
  66 {
  67   Repeated_music  *  mus = dynamic_cast<Repeated_music*> (get_music ());
  68   main_iter_ = unsmob_iterator (get_iterator (mus->body ()));
  69   if (!main_iter_->ok ())
  70     {
  71       leave_body ();
  72       enter_alternative ();
  73     }
  74 }
  75
  76 void
  77 Folded_repeat_iterator::process (Moment m)
  78 {
  79   if (!m.to_bool () )
  80     {
  81       bool success = try_music (get_music ());
  82       if (!success)
  83         get_music ()->origin ()->warning (_ ("no one to print a repeat brace"));
  84     }
  85
  86   if (main_iter_)
  87     {
  88       main_iter_->process (m);
  89       if (!main_iter_->ok ())
  90         leave_body ();
  91     }
  92
  93   if (!main_iter_ && !alternative_iter_)
  94     {
  95       enter_alternative ();
  96     }
  97
  98   if (alternative_iter_)
  99     {
 100       alternative_iter_->process (m - main_length_mom_);
 101       if (!alternative_iter_->ok ())
 102         {
 103           alternative_iter_->quit();
 104           alternative_iter_ =0;
 105         }
 106     }
 107 }
 108
 109 void
 110 Folded_repeat_iterator::leave_body ()
 111 {
 112   Repeated_music *  mus = dynamic_cast<Repeated_music *> (get_music ());
 113
 114   main_iter_->quit ();
 115   main_iter_ = 0;
 116   main_length_mom_ +=  mus->body ()->get_length ();
 117 }
 118
 119 void
 120 Folded_repeat_iterator::enter_alternative ()
 121 {
 122   Repeated_music *  mus = dynamic_cast<Repeated_music *> (get_music ());
 123   if (mus->alternatives ())
 124     {
 125       /*
 126         ugh.
 127       */
 128       Simultaneous_music_iterator * s = new Simultaneous_music_iterator;
 129       s->separate_contexts_b_ = true;
 130       s->init_translator (mus, get_outlet ());
 131
 132       alternative_iter_ = s;
 133       alternative_iter_->construct_children ();
 134
 135       scm_gc_unprotect_object (s->self_scm());
 136     }
 137 }
 138
 139
 140 Music_iterator*
 141 Folded_repeat_iterator::try_music_in_children (Music * m) const
 142 {
 143   if (main_iter_)
 144     {
 145       return main_iter_->try_music (m);
 146     }
 147   if (alternative_iter_)
 148     return alternative_iter_->try_music (m);
 149   return 0;
 150 }
 151 void
 152 Folded_repeat_iterator::derived_mark()const
 153 {
 154   if (main_iter_)
 155     scm_gc_mark (main_iter_->self_scm());
 156   if (alternative_iter_)
 157     scm_gc_mark (alternative_iter_->self_scm());
 158 }
 159
 160 void
 161 Folded_repeat_iterator::derived_substitute (Translator_group*f, Translator_group*t)
 162 {
 163   if (main_iter_)
 164     main_iter_->substitute_outlet (f,t);
 165   if (alternative_iter_)
 166     alternative_iter_->substitute_outlet (f,t);
 167 }
 168
 169 IMPLEMENT_CTOR_CALLBACK (Folded_repeat_iterator);