2 percent-repeat-iterator.cc -- implement Percent_repeat_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 2001--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "percent-repeat-iterator.hh"
11 #include "repeated-music.hh"
14 IMPLEMENT_CTOR_CALLBACK (Percent_repeat_iterator);
17 Percent_repeat_iterator::Percent_repeat_iterator ()
24 Percent_repeat_iterator::do_quit()
29 Percent_repeat_iterator::Percent_repeat_iterator (Percent_repeat_iterator const & p)
32 child_iter_ = p.child_iter_ ? p.child_iter_->clone (): 0;
33 finish_mom_ = p.finish_mom_ ;
36 scm_gc_unprotect_object (child_iter_->self_scm());
40 Percent_repeat_iterator::ok () const
46 Percent_repeat_iterator::construct_children ()
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 ()));
55 Percent_repeat_iterator::process (Moment m)
59 Music_iterator *yeah = try_music (get_music ());
61 set_translator (yeah->report_to ());
63 get_music ()->origin ()->warning ( _ ("no one to print a percent"));
66 if (child_iter_->ok ())
67 child_iter_->process (m);
69 if (finish_mom_ <= m )
77 Percent_repeat_iterator::pending_moment ()const
79 if (child_iter_->ok ())
80 return child_iter_->pending_moment ();
86 Percent_repeat_iterator::try_music_in_children (Music *m) const
88 return child_iter_->try_music (m);
92 Percent_repeat_iterator::derived_mark()const
95 scm_gc_mark (child_iter_->self_scm());