source file of the GNU LilyPond music typesetter
- (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "translator-group.hh"
cursor_ = src.cursor_;
list_ = src.cursor_;
here_mom_ = src.here_mom_;
- iter_ = (src.iter_) ? src.iter_->clone () : 0;
+ iter_ = 0;
- if (iter_)
- scm_gc_unprotect_object (iter_->self_scm());
+ if (src.iter_)
+ {
+ iter_ = src.iter_->clone ();
+ scm_gc_unprotect_object (iter_->self_scm());
+ }
}
void
{
Music * mus = unsmob_music (ly_car (cursor));
Moment s = mus->start_mom ();
- Moment l =mus->length_mom () - s;
+ Moment l =mus->get_length () - s;
if (s.grace_part_)
{
swoop.
*/
void
-Sequential_iterator::next_element (bool side_effect)
+Sequential_iterator::next_element (bool)
{
- Moment len =iter_->music_length_mom () - iter_->music_start_mom ();
+ Moment len =iter_->music_get_length () - iter_->music_start_mom ();
assert (!grace_fixups_ || grace_fixups_->start_ >= here_mom_);
if (len.main_part_ && grace_fixups_ &&
void
Sequential_iterator::descend_to_child ()
{
+ Translator_group * child_report = child_report = iter_->report_to ();
+ Translator_group * me_report = report_to ();
+
+ Translator_group * c = child_report;
+ while (c && c != me_report)
+ {
+ c= c->daddy_trans_;
+ }
+
+ if (c == me_report)
+ set_translator (child_report);
}
*/
SCM
-Sequential_iterator::get_pending_events (Moment until)const
+Sequential_iterator::get_pending_events (Moment until) const
{
SCM s = SCM_EOL;
if (until < pending_moment ())
for (SCM i = nm; gh_pair_p (i); i = ly_cdr (i))
{
Music *mus=unsmob_music (ly_car (i));
- m = m >? (mus->length_mom () - mus->start_mom ());
+ m = m >? (mus->get_length () - mus->start_mom ());
}
if (m > Moment (0))
break ;
/*
do the stuff/note/rest preceding a grace.
*/
- iter_->skip (iter_->music_length_mom ());
+ iter_->skip (iter_->music_get_length ());
}
- else if (iter_->music_length_mom () >= until - here_mom_)
+ else if (iter_->music_get_length () >= until - here_mom_)
iter_->skip (until - here_mom_ + iter_->music_start_mom ());
if (iter_->ok ())
/*
do the stuff/note/rest preceding a grace.
*/
- iter_->process (iter_->music_length_mom ());
+ iter_->process (iter_->music_get_length ());
}
else
iter_->process (until - here_mom_ + iter_->music_start_mom ());
}
IMPLEMENT_CTOR_CALLBACK (Sequential_iterator);
+
+bool
+Sequential_iterator::run_always () const
+{
+ return iter_ ? iter_->run_always () : false;
+}