2 folded-repeat-iterator.cc -- implement Folded_repeat_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "folded-repeat-iterator.hh"
12 #include "repeated-music.hh"
13 #include "simultaneous-music-iterator.hh"
16 Folded_repeat_iterator::Folded_repeat_iterator ()
19 alternative_iter_ = 0;
23 Folded_repeat_iterator::ok () const
25 return main_iter_ || alternative_iter_;
28 Folded_repeat_iterator::do_quit ()
30 if (main_iter_)main_iter_->quit ();
31 if (alternative_iter_)alternative_iter_->quit ();
35 Folded_repeat_iterator::pending_moment () const
39 return main_iter_->pending_moment ();
42 return main_length_mom_ + alternative_iter_->pending_moment ();
46 Folded_repeat_iterator::construct_children ()
48 Music *mus = get_music ();
49 main_iter_ = unsmob_iterator (get_iterator (Repeated_music::body (mus)));
50 if (!main_iter_->ok ())
58 Folded_repeat_iterator::process (Moment m)
62 bool success = try_music (get_music ());
64 get_music ()->origin ()->warning (_ ("no one to print a repeat brace"));
69 main_iter_->process (m);
70 if (!main_iter_->ok ())
74 if (!main_iter_ && !alternative_iter_)
79 if (alternative_iter_)
81 alternative_iter_->process (m - main_length_mom_);
82 if (!alternative_iter_->ok ())
84 alternative_iter_->quit ();
85 alternative_iter_ = 0;
91 Folded_repeat_iterator::leave_body ()
93 Music *mus = get_music ();
97 main_length_mom_ += Repeated_music::body (mus)->get_length ();
101 Folded_repeat_iterator::enter_alternative ()
103 Music *mus = get_music ();
104 if (scm_is_pair (Repeated_music::alternatives (mus)))
109 Simultaneous_music_iterator *s = new Simultaneous_music_iterator;
110 s->create_separate_contexts_ = true;
111 s->init_translator (mus, get_outlet ());
113 alternative_iter_ = s;
114 alternative_iter_->construct_children ();
116 scm_gc_unprotect_object (s->self_scm ());
121 Folded_repeat_iterator::try_music_in_children (Music *m) const
125 return main_iter_->try_music (m);
127 if (alternative_iter_)
128 return alternative_iter_->try_music (m);
132 Folded_repeat_iterator::derived_mark () const
135 scm_gc_mark (main_iter_->self_scm ());
136 if (alternative_iter_)
137 scm_gc_mark (alternative_iter_->self_scm ());
141 Folded_repeat_iterator::derived_substitute (Context *f, Context *t)
144 main_iter_->substitute_outlet (f, t);
145 if (alternative_iter_)
146 alternative_iter_->substitute_outlet (f, t);
149 IMPLEMENT_CTOR_CALLBACK (Folded_repeat_iterator);