X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fsimultaneous-music-iterator.cc;h=0631ba9e8dba8ed7ab59284f8cf71f20a5755ffa;hb=dadf069231fbb3357563070318dc11c5746c97ba;hp=5123dca51f324cbf4f2c19418267a2e284e04f51;hpb=e24df7c27635dc996c466295eacf2981bddccaf7;p=lilypond.git diff --git a/lily/simultaneous-music-iterator.cc b/lily/simultaneous-music-iterator.cc index 5123dca51f..0631ba9e8d 100644 --- a/lily/simultaneous-music-iterator.cc +++ b/lily/simultaneous-music-iterator.cc @@ -1,9 +1,9 @@ /* - Simultaneous_music-iterator.cc -- implement Simultaneous_music_iterator + simultaneous-music-iterator.cc -- implement Simultaneous_music_iterator source file of the GNU LilyPond music typesetter - (c) 1997--2005 Han-Wen Nienhuys + (c) 1997--2009 Han-Wen Nienhuys */ #include "simultaneous-music-iterator.hh" @@ -18,7 +18,6 @@ Simultaneous_music_iterator::Simultaneous_music_iterator () children_list_ = SCM_EOL; } - void Simultaneous_music_iterator::derived_mark () const { @@ -26,10 +25,10 @@ Simultaneous_music_iterator::derived_mark () const } void -Simultaneous_music_iterator::derived_substitute (Context *f,Context *t) +Simultaneous_music_iterator::derived_substitute (Context *f, Context *t) { for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s)) - unsmob_iterator (scm_car (s))-> substitute_outlet (f,t); + unsmob_iterator (scm_car (s))->substitute_outlet (f, t); } void @@ -40,59 +39,55 @@ Simultaneous_music_iterator::construct_children () SCM i = get_music ()->get_property ("elements"); children_list_ = SCM_EOL; - SCM * tail = &children_list_; + SCM *tail = &children_list_; for (; scm_is_pair (i); i = scm_cdr (i), j++) { Music *mus = unsmob_music (scm_car (i)); SCM scm_iter = get_static_get_iterator (mus); - Music_iterator * mi = unsmob_iterator (scm_iter); + Music_iterator *mi = unsmob_iterator (scm_iter); /* if create_separate_contexts_ is set, create a new context with the number number as name */ - SCM name = ly_symbol2scm (get_outlet ()->context_name ().to_str0 ()); - Context * t = (j && create_separate_contexts_) + SCM name = ly_symbol2scm (get_outlet ()->context_name ().c_str ()); + Context *c = (j && create_separate_contexts_) ? get_outlet ()->find_create_context (name, to_string (j), SCM_EOL) : get_outlet (); - if (!t) - t = get_outlet (); + if (!c) + c = get_outlet (); - mi->init_translator (mus, t); + mi->init_context (mus, c); mi->construct_children (); - if (mi->ok ()) + if (mi->ok ()) { *tail = scm_cons (scm_iter, *tail); tail = SCM_CDRLOC (*tail); } else - mi->set_context (0); + mi->quit (); } } void Simultaneous_music_iterator::process (Moment until) { - SCM *proc = &children_list_; + SCM *proc = &children_list_; while (scm_is_pair (*proc)) { - Music_iterator * i = unsmob_iterator (scm_car (*proc)); + Music_iterator *i = unsmob_iterator (scm_car (*proc)); if (i->run_always () - || i->pending_moment () == until) - { - i->process (until); - } + || i->pending_moment () == until) + i->process (until); if (!i->ok ()) { i->quit (); *proc = scm_cdr (*proc); } else - { - proc = SCM_CDRLOC (*proc); - } + proc = SCM_CDRLOC (*proc); } } @@ -101,27 +96,27 @@ Simultaneous_music_iterator::pending_moment () const { Moment next; next.set_infinite (1); - + for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s)) { - Music_iterator * it = unsmob_iterator (scm_car (s)); - next = next pending_moment (); + Music_iterator *it = unsmob_iterator (scm_car (s)); + next = min (next, it->pending_moment ()); } - + return next; } bool Simultaneous_music_iterator::ok () const { - bool run_always_ok = false; + bool run_always_ok = false; for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s)) { - Music_iterator * it = unsmob_iterator (scm_car (s)); + Music_iterator *it = unsmob_iterator (scm_car (s)); if (!it->run_always ()) return true; else - run_always_ok = run_always_ok || it->ok (); + run_always_ok = run_always_ok || it->ok (); } return run_always_ok; } @@ -131,22 +126,13 @@ Simultaneous_music_iterator::run_always () const { for (SCM s = children_list_; scm_is_pair (s); s = scm_cdr (s)) { - Music_iterator * it = unsmob_iterator (scm_car (s)); + Music_iterator *it = unsmob_iterator (scm_car (s)); if (it->run_always ()) return true; } return false; } -Music_iterator* -Simultaneous_music_iterator::try_music_in_children (Music *m) const -{ - Music_iterator * b = 0; - for (SCM s = children_list_; !b && scm_is_pair (s); s = scm_cdr (s)) - b = unsmob_iterator (scm_car (s))->try_music (m); - return b; -} - void Simultaneous_music_iterator::do_quit () {