lily/percent-repeat-iterator.cc

   1 /*
   2   percent-repeat-iterator.cc --  implement Percent_repeat_iterator
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2001--2002  Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "percent-repeat-iterator.hh"
  11 #include "repeated-music.hh"
  12 #include "input.hh"
  13
  14 IMPLEMENT_CTOR_CALLBACK (Percent_repeat_iterator);
  15
  16
  17 Percent_repeat_iterator::Percent_repeat_iterator ()
  18 {
  19   child_iter_ = 0;
  20
  21 }
  22
  23 void
  24 Percent_repeat_iterator::do_quit()
  25 {
  26   if (child_iter_)
  27     child_iter_->quit();
  28 }
  29 Percent_repeat_iterator::Percent_repeat_iterator (Percent_repeat_iterator const & p)
  30   : Music_iterator (p)
  31 {
  32   child_iter_ = p.child_iter_ ? p.child_iter_->clone (): 0;
  33   finish_mom_ = p.finish_mom_ ;
  34
  35   if(child_iter_)
  36     scm_gc_unprotect_object (child_iter_->self_scm());
  37 }
  38
  39 bool
  40 Percent_repeat_iterator::ok () const
  41 {
  42   return child_iter_;
  43 }
  44
  45 void
  46 Percent_repeat_iterator::construct_children ()
  47 {
  48   Repeated_music * mus =dynamic_cast<Repeated_music *> (get_music ());
  49   finish_mom_ = mus->length_mom ();
  50   child_iter_ = unsmob_iterator (get_iterator (mus->body ()));
  51 }
  52
  53
  54 void
  55 Percent_repeat_iterator::process (Moment m)
  56 {
  57   if (!m.to_bool ())
  58     {
  59       Music_iterator *yeah = try_music (get_music ());
  60       if (yeah)
  61         set_translator (yeah->report_to ());
  62       else
  63         get_music ()->origin ()->warning ( _ ("no one to print a percent"));
  64     }
  65
  66   if (child_iter_->ok ())
  67     child_iter_->process (m);
  68
  69   if (finish_mom_ <= m )
  70     {
  71       child_iter_->quit();
  72       child_iter_ = 0;
  73     }
  74 }
  75
  76 Moment
  77 Percent_repeat_iterator::pending_moment ()const
  78 {
  79   if (child_iter_->ok ())
  80     return child_iter_->pending_moment ();
  81   else
  82     return finish_mom_ ;
  83 }
  84
  85 Music_iterator*
  86 Percent_repeat_iterator::try_music_in_children (Music *m) const
  87 {
  88   return child_iter_->try_music (m);
  89 }
  90
  91 void
  92 Percent_repeat_iterator::derived_mark()const
  93 {
  94   if (child_iter_)
  95     scm_gc_mark (child_iter_->self_scm());
  96 }