X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-iterator.cc;h=b75f1e3281930b391a321e421a248a58169059da;hb=12b33a8040a80d5b4a1217faf0d4cc7529483cc0;hp=9cbc9d77471fe5f34a5e067d6e47cfe844f82c8b;hpb=57d6628b46ba1d7ed7c9c0ca7f579567d1912b0d;p=lilypond.git diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc index 9cbc9d7747..b75f1e3281 100644 --- a/lily/music-iterator.cc +++ b/lily/music-iterator.cc @@ -1,377 +1,192 @@ /* - music-iterator.cc -- implement {Music,Chord,Voice}_iterator + music-iterator.cc -- implement Music_iterator source file of the GNU LilyPond music typesetter - (c) 1997 Han-Wen Nienhuys + (c) 1997--2002 Han-Wen Nienhuys */ -#include "music-list.hh" -#include "music-iterator.hh" -#include "translator.hh" -#include "request.hh" +/* + UGH. too many includes. + */ #include "debug.hh" +#include "music-iterator.hh" +#include "translator-group.hh" +#include "music-wrapper.hh" +#include "music-wrapper-iterator.hh" +#include "simple-music-iterator.hh" +#include "context-specced-music.hh" -IMPLEMENT_STATIC_NAME(Music_iterator); -IMPLEMENT_IS_TYPE_B(Music_iterator); - -void -Music_iterator::do_print()const -{ - -} - -void -Music_iterator::print() const -{ -#ifndef NPRINT - mtor << name() << "{"; - mtor << "report to " << report_to_l_ << " (" << report_to_l_->name() << ")\n"; - mtor << "next at " << next_moment() << " "; - do_print(); - mtor << "}\n"; -#endif -} - -Translator* -Music_iterator::get_req_translator_l() -{ - assert(report_to_l_); - if (report_to_l_->is_bottom_engraver_b() ) - return report_to_l_; - - set_translator( report_to_l_->get_default_interpreter() ); - return report_to_l_; -} - -void -Music_iterator::set_translator(Translator*trans) -{ - if (report_to_l_==trans) - return; - - if (report_to_l_) - report_to_l_->iterator_count_ --; - - report_to_l_ = trans; - - if (report_to_l_) - report_to_l_->iterator_count_ ++; -} - -void -Music_iterator::construct_children() -{ - -} - -Music_iterator::~Music_iterator() +Music_iterator::Music_iterator () { - set_translator(0); } -Moment -Music_iterator::next_moment()const +Music_iterator::Music_iterator (Music_iterator const& src) { - return 0; + handle_ = *src.handle_.clone (); + music_l_ = src.music_l_; + music_length_ = src.music_length_; + start_mom_ = src.start_mom_; } -void -Music_iterator::process_and_next(Moment) +Music_iterator::~Music_iterator () { - first_b_ = false; } -bool -Music_iterator::ok()const -{ - return first_b_; -} -Music_iterator* -Music_iterator::static_get_iterator_p(Music *m, - Translator *report_l) -{ - Music_iterator * p =0; - if (m->is_type_b( Change_reg::static_name())) - p = new Change_iterator((Change_reg*)m); - else if (m->is_type_b( Voice_element::static_name())) - p = new Voice_element_iterator( (Voice_element*) m); - else if (m->is_type_b( Chord::static_name())) - p = new Chord_iterator( (Chord*) m); - else if (m->is_type_b( Voice::static_name())) - p = new Voice_iterator( (Voice*) m); - else if (m->is_type_b( Request::static_name() )) - p = new Request_iterator( (Request*) m ); - - if ( m->is_type_b( Music_list::static_name())) { - Music_list* ml = (Music_list*) m; - if (ml -> type_str_ != "") { - Translator * a =report_l-> - find_get_translator_l(ml-> type_str_, ml->id_str_); - - - p->set_translator( a); - - } - } - if (! p->report_to_l_ ) - p ->set_translator(report_l); - - return p; -} -Music_iterator* -Music_iterator::get_iterator_p(Music*m)const -{ - Music_iterator*p = static_get_iterator_p(m,report_to_l_); - p->daddy_iter_l_ = (Music_iterator*)this; - p->construct_children(); - return p; -} -Music_iterator::Music_iterator() +Translator_group* +Music_iterator::report_to_l () const { - daddy_iter_l_ =0; - report_to_l_ = 0; - first_b_ = true; + return handle_.report_to_l (); } -/* ************** */ -Chord_iterator::Chord_iterator(Chord const *chord_C) -{ - chord_C_ = chord_C; -} - -void -Chord_iterator::construct_children() -{ - int j = 0; - for(PCursor i(chord_C_->music_p_list_.top()); //, int j = 0; - i.ok(); j++, i++) { - Music_iterator * mi = get_iterator_p( i.ptr()); - set_translator(mi->report_to_l_->ancestor_l( chord_C_->multi_level_i_ )); - if ( mi->ok() ) - children_p_list_.bottom().add( mi ); - else - delete mi; - } -} void -Chord_iterator::do_print() const +Music_iterator::set_translator (Translator_group *trans) { -#ifndef NPRINT - for (PCursor i(children_p_list_.top()); i.ok(); i++) { - i->print(); - } -#endif + handle_.set_translator (trans); } void -Chord_iterator::process_and_next(Moment until) +Music_iterator::construct_children () { - for (PCursor i(children_p_list_.top()); i.ok(); ) { - if (i->next_moment() == until) { - i->process_and_next(until); - } - if (!i->ok()) - delete i.remove_p(); - else - i++; - } - Music_iterator::process_and_next(until); - -// assert(!ok() || next_moment() > until); } -IMPLEMENT_STATIC_NAME(Chord_iterator); -IMPLEMENT_IS_TYPE_B1(Chord_iterator,Music_iterator); - Moment -Chord_iterator::next_moment()const -{ - Moment next_ = INFTY; - for (PCursor i(children_p_list_.top()); i.ok(); i++) - next_ = next_ next_moment() ; - return next_; -} - - - -bool -Chord_iterator::ok()const +Music_iterator::pending_moment () const { - return children_p_list_.size(); + return 0; } -/* ************** */ - void -Voice_iterator::do_print()const +Music_iterator::process (Moment) { - if (iter_p_) - iter_p_->print(); } -Voice_iterator::Voice_iterator(Voice const*v) - : PCursor ( v->music_p_list_) +bool +Music_iterator::ok () const { - here_mom_ = v->offset_mom_; - voice_C_ = v; - iter_p_ =0; + return false; } void -Voice_iterator::construct_children() +Music_iterator::skip (Moment) { - if (ok()) { - iter_p_ = Music_iterator::get_iterator_p( ptr() ); - if (iter_p_->report_to_l_->depth_i() > report_to_l_->depth_i()) - set_translator(iter_p_->report_to_l_); - } } -void -Voice_iterator::next_element() +SCM +Music_iterator::get_music (Moment)const { - delete iter_p_ ; - iter_p_ =0; - here_mom_ += ptr()->time_int().length(); - PCursor::next(); - construct_children(); + return SCM_EOL; } -Voice_iterator::~Voice_iterator() +Music_iterator* +Music_iterator::static_get_iterator_p (Music *m) { - delete iter_p_; -} - -IMPLEMENT_STATIC_NAME(Voice_iterator); -IMPLEMENT_IS_TYPE_B1(Voice_iterator,Music_iterator); + Music_iterator * p =0; -void -Voice_iterator::process_and_next(Moment until) -{ - while (ok()) { - Moment local_until = until - here_mom_; - while ( iter_p_ && iter_p_->ok() ) { - Moment here = iter_p_->next_moment(); - if (here != local_until) - return; - iter_p_->process_and_next(local_until); - } - if (!iter_p_) - iter_p_ = Music_iterator::get_iterator_p( ptr() ); - else if (!iter_p_->ok() ) - next_element(); + SCM ctor = m->get_mus_property ("iterator-ctor") ; + if (unsmob_cxx_function (ctor)) + { + Cxx_function f = unsmob_cxx_function (ctor); + + p = (Music_iterator*) (*f) (SCM_EOL); + } + else if (dynamic_cast (m)) + p = new Music_wrapper_iterator; + else + { + p = new Simple_music_iterator ; } - Music_iterator::process_and_next(until); - assert(!ok() || next_moment() > until); -} - -Moment -Voice_iterator::next_moment()const -{ - return iter_p_->next_moment() + here_mom_; -} -bool -Voice_iterator::ok()const -{ - return PCursor::ok(); + p->music_l_ = m; + assert (m); + p->music_length_ = m->length_mom (); + p->start_mom_ = m->start_mom (); + return p; } -/* ***************** */ -void -Request_iterator::do_print()const +Moment +Music_iterator::music_length_mom () const { - mtor << req_l_->name() ; -} + return music_length_; -Request_iterator::Request_iterator(Request const*c) -{ - req_l_ = (Request*)c; - last_b_ = false; } -void -Request_iterator::process_and_next(Moment m) +Moment +Music_iterator::music_start_mom ()const { - if ( first_b_ ) { - bool gotcha = daddy_iter_l_->report_to_l_->try_request(req_l_); - if (!gotcha) - req_l_->warning("Junking request: " + String(req_l_->name())); - first_b_ = false; - } - - if ( m >= req_l_->duration() ) - last_b_ = true; + return start_mom_; } -Moment -Request_iterator::next_moment()const +void +Music_iterator::init_translator (Music *m, Translator_group *report_l) { + music_l_ = m; + assert (m); + if (Context_specced_music * csm =dynamic_cast (m)) + { + SCM ct = csm->get_mus_property ("context-type"); + String c_type; + if (gh_string_p (ct)) + c_type = ly_scm2string (ct); + + String c_id; + SCM ci = csm->get_mus_property ("context-id"); + if (gh_string_p (ci)) + c_id = ly_scm2string (ci); + + Translator_group* a + =report_l->find_create_translator_l (c_type, c_id); - Moment m(0); - if (!first_b_) - m = req_l_->duration(); - return m; -} + set_translator (a); + + } -bool -Request_iterator::ok()const -{ - return (req_l_->duration() && !last_b_) || first_b_; // ugh + if (! report_to_l ()) + set_translator (report_l); } -IMPLEMENT_STATIC_NAME(Request_iterator); -IMPLEMENT_IS_TYPE_B1(Request_iterator, Music_iterator); - -/* ****************** */ -Change_iterator::Change_iterator(Change_reg * ch) +Music_iterator* +Music_iterator::get_iterator_p (Music *m) const { - change_l_ = ch; + Music_iterator*p = static_get_iterator_p (m); + p->init_translator (m, report_to_l ()); + + p->construct_children (); + return p; } -IMPLEMENT_STATIC_NAME(Change_iterator); -IMPLEMENT_IS_TYPE_B1(Change_iterator,Music_iterator); - /* - TODO: pop/pushgroup + TODO: rename to prevent confusion between Translator::try_music and + Iterator::try_music + */ -void -Change_iterator::process_and_next(Moment mom) + +Music_iterator* +Music_iterator::try_music (Music *m) const { -#if 0 - Engraver_group_engraver *group_l = - report_to_l_->find_get_grav_l(change_l_->type_str_, - change_l_->id_str_); - - report_to_l_->daddy_grav_l_->remove_engraver_p(report_to_l_); - group_l->add(report_to_l_); -#endif - Music_iterator::process_and_next(mom); + bool b = report_to_l ()->try_music ((Music*)m); // ugh + Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh + if (!it) + it = try_music_in_children (m); + return it; } - - -/* ******************** */ - -IMPLEMENT_STATIC_NAME(Voice_element_iterator); -IMPLEMENT_IS_TYPE_B1(Voice_element_iterator,Chord_iterator); - -void -Voice_element_iterator::construct_children() +Music_iterator* +Music_iterator::try_music_in_children (Music *) const { - get_req_translator_l(); - Chord_iterator::construct_children(); + return 0; } -Voice_element_iterator::Voice_element_iterator(Voice_element*el_l) - : Chord_iterator(el_l) +IMPLEMENT_CTOR_CALLBACK (Music_iterator); + +Music * +Music_iterator::music_l () const { - + return music_l_; }