/*
- sequential-iterator.cc -- implement Sequential_iterator
+ This file is part of LilyPond, the GNU music typesetter.
- source file of the GNU LilyPond music typesetter
+ Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
- (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ LilyPond is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
#include "sequential-iterator.hh"
SCM
Sequential_iterator::get_music_list () const
{
- return SCM_EOL;
+ Music *m = get_music ();
+ SCM proc = m->get_property ("elements-callback");
+ if (ly_is_procedure (proc))
+ return scm_call_1 (proc, m->self_scm ());
+ else
+ return SCM_EOL;
}
void
Moment l = mus->get_length () - s;
if (s.grace_part_)
- {
- if (last != Moment (-1))
- {
- Grace_fixup *p = new Grace_fixup;
- p->start_ = last;
- p->length_ = here - last;
- p->grace_start_ = s.grace_part_;
- p->next_ = 0;
- *tail = p;
- tail = &(*tail)->next_;
- }
-
- here.grace_part_ = s.grace_part_;
- }
+ {
+ if (last != Moment (-1))
+ {
+ Grace_fixup *p = new Grace_fixup;
+ p->start_ = last;
+ p->length_ = here - last;
+ p->grace_start_ = s.grace_part_;
+ p->next_ = 0;
+ *tail = p;
+ tail = &(*tail)->next_;
+ }
+
+ here.grace_part_ = s.grace_part_;
+ }
if (l.to_bool ())
- {
- last = here;
- here += l;
- }
+ {
+ last = here;
+ here += l;
+ }
}
return head;
else
{
/*
- !len.grace_part_ || len.main_part_
+ !len.grace_part_ || len.main_part_
- We skip over a big chunk (mainpart != 0). Any starting graces
- in that chunk should be in len.grace_part_
+ We skip over a big chunk (mainpart != 0). Any starting graces
+ in that chunk should be in len.grace_part_
*/
last_mom_ = here_mom_;
{
Grace_fixup *gf = get_grace_fixup ();
if (gf
- && gf->start_ + gf->length_
- + Moment (Rational (0), gf->grace_start_) == until)
- {
- /*
- do the stuff/note/rest preceding a grace.
- */
- iter_->process (iter_->music_get_length ());
- }
+ && gf->start_ + gf->length_
+ + Moment (Rational (0), gf->grace_start_) == until)
+ {
+ /*
+ do the stuff/note/rest preceding a grace.
+ */
+ iter_->process (iter_->music_get_length ());
+ }
else
- {
- Moment w = until - here_mom_ + iter_->music_start_mom ();
- iter_->process (w);
- }
+ {
+ Moment w = until - here_mom_ + iter_->music_start_mom ();
+ iter_->process (w);
+ }
/*
- if the iter is still OK, there must be events left that have
+ if the iter is still OK, there must be events left that have
- TIME > LEFT
+ TIME > LEFT
*/
if (iter_->ok ())
- return;
+ return;
descend_to_child (iter_->get_outlet ());
next_element (true);