X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-iterator.cc;h=f0af46424390b15e638126d7b247f1766e36b223;hb=1403a2c3b4a03ee78be253ac4c4f206b7a3b05db;hp=9c792489141b1adf2616f6abff51941a28cbfca8;hpb=1edc2436a028cb2d1be8786ab0972a95b0985d42;p=lilypond.git diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc index 9c79248914..f0af464243 100644 --- a/lily/music-iterator.cc +++ b/lily/music-iterator.cc @@ -3,163 +3,225 @@ source file of the GNU LilyPond music typesetter - (c) 1997 Han-Wen Nienhuys + (c) 1997--2002 Han-Wen Nienhuys */ -#include "debug.hh" -#include "music-list.hh" + +/* + UGH. too many includes. + */ +#include "warn.hh" #include "music-iterator.hh" -#include "voice-iterator.hh" -#include "property-iterator.hh" -#include "chord-iterator.hh" -#include "request-iterator.hh" #include "translator-group.hh" -#include "translation-property.hh" -#include "change-iterator.hh" -#include "change-translator.hh" - -IMPLEMENT_IS_TYPE_B(Music_iterator); +#include "music-wrapper.hh" +#include "music-wrapper-iterator.hh" +#include "simple-music-iterator.hh" +#include "ly-smobs.icc" +#include "ly-smobs.icc" -void -Music_iterator::do_print() const +Music_iterator::Music_iterator () { - + music_ = 0; + smobify_self (); } -void -Music_iterator::print() const -{ -#ifndef NPRINT - if (!check_debug) - return ; - DOUT << name() << "{"; - DOUT << "report to " << - report_to_l() << " (" << report_to_l ()->name () << ")\n"; - if (ok()) - DOUT << "next at " << next_moment() << " "; - else - DOUT << "not feeling well today.."; - do_print(); - DOUT << "}\n"; -#endif +Music_iterator::Music_iterator (Music_iterator const& src) +{ + handle_ = *src.handle_.clone (); + music_ = src.music_; + music_length_ = src.music_length_; + start_mom_ = src.start_mom_; + smobify_self (); } -Translator_group* -Music_iterator::get_req_translator_l() +Music_iterator::~Music_iterator () { - assert (report_to_l()); - if (report_to_l()->is_bottom_translator_b ()) - return report_to_l(); +} - set_translator (report_to_l()->get_default_interpreter ()); - return report_to_l(); +Translator_group* +Music_iterator::report_to () const +{ + return handle_.report_to (); } void -Music_iterator::push_translator (Translator_group*t) +Music_iterator::set_translator (Translator_group *trans) { - report_to_l_arr_.push (t); - t->iterator_count_ ++; + handle_.set_translator (trans); } void -Music_iterator::pop_translator() +Music_iterator::construct_children () { - report_to_l()->iterator_count_ --; - assert (report_to_l()->iterator_count_ >=0); - report_to_l_arr_.pop(); } -Translator_group* -Music_iterator::report_to_l() const +Moment +Music_iterator::pending_moment () const { - if (! report_to_l_arr_.size()) - return 0; - return report_to_l_arr_.top(); + return 0; } - void -Music_iterator::set_translator (Translator_group*trans) -{ - if (report_to_l()==trans) - return; - if (report_to_l()) - pop_translator(); - if (trans) - push_translator (trans); +Music_iterator::process (Moment) +{ +} + +bool +Music_iterator::ok () const +{ + return false; } void -Music_iterator::construct_children() +Music_iterator::skip (Moment) { +} +SCM +Music_iterator::get_pending_events (Moment)const +{ + return SCM_EOL; } -Music_iterator::~Music_iterator() +SCM +Music_iterator::get_static_get_iterator (Music *m) { - set_translator (0); + Music_iterator * p =0; + + SCM ctor = m->get_mus_property ("iterator-ctor") ; + SCM iter = SCM_EOL; + if (gh_procedure_p (ctor)) + { + iter = gh_call0 (ctor); + p = unsmob_iterator (iter); + } + else + { + if (dynamic_cast (m)) + p = new Music_wrapper_iterator; + else + p = new Simple_music_iterator; + + iter = p->self_scm(); + scm_gc_unprotect_object (iter); + } + + p->music_ = m; + assert (m); + p->music_length_ = m->get_length (); + p->start_mom_ = m->start_mom (); + return iter; } + Moment -Music_iterator::next_moment() const +Music_iterator::music_get_length () const { - return 0; + return music_length_; } -void -Music_iterator::process_and_next (Moment) +Moment +Music_iterator::music_start_mom ()const { - first_b_ = false; + return start_mom_; } -bool -Music_iterator::ok() const +void +Music_iterator::init_translator (Music *m, Translator_group *report) { - return first_b_; + music_ = m; + assert (m); + if (! report_to ()) + set_translator (report); } -Music_iterator* -Music_iterator::static_get_iterator_p (Music *m, - Translator_group*report_l) + +SCM +Music_iterator::get_iterator (Music *m) const { - Music_iterator * p =0; - if (m->is_type_b (Request_chord::static_name())) - p = new Request_chord_iterator ((Request_chord*) 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 (Translation_property::static_name ())) - p = new Property_iterator((Translation_property *) m); - else if (m->is_type_b (Change_translator::static_name ())) - p = new Change_iterator((Change_translator*) m); + SCM ip = get_static_get_iterator (m); + Music_iterator*p = unsmob_iterator (ip); - if (m -> translator_type_str_.length_i ()) - { - Translator_group* a =report_l-> - find_create_translator_l (m-> translator_type_str_, m->translator_id_str_); - p->set_translator (a); - } + p->init_translator (m, report_to ()); + + p->construct_children (); + return ip; +} - if (! p->report_to_l()) - p ->set_translator (report_l); +/* + TODO: rename to prevent confusion between Translator::try_music and + Iterator::try_music - return p; + */ +Music_iterator* +Music_iterator::try_music (Music *m) const +{ + bool b = report_to ()->try_music ((Music*)m); // ugh + Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh + if (!it) + it = try_music_in_children (m); + return it; } Music_iterator* -Music_iterator::get_iterator_p (Music*m) const +Music_iterator::try_music_in_children (Music *) const { - Music_iterator*p = static_get_iterator_p (m,report_to_l()); - p->daddy_iter_l_ = (Music_iterator*)this; - p->construct_children(); - return p; + return 0; } -Music_iterator::Music_iterator() +IMPLEMENT_CTOR_CALLBACK (Music_iterator); + +Music * +Music_iterator::get_music () const { - daddy_iter_l_ =0; - first_b_ = true; + return music_; } +/****************************************************************/ + +IMPLEMENT_TYPE_P (Music_iterator, "ly:iterator?"); +IMPLEMENT_SMOBS(Music_iterator); +IMPLEMENT_DEFAULT_EQUAL_P(Music_iterator); + +SCM +Music_iterator::mark_smob (SCM smob) +{ + Music_iterator * mus = (Music_iterator *)SCM_CELL_WORD_1 (smob); + + mus->derived_mark (); + /* + Careful with GC, although we intend the following as pointers + only, we _must_ mark them. + */ + if (mus->report_to()) + scm_gc_mark (mus->report_to()->self_scm()); + if (mus->music_) + scm_gc_mark (mus->music_->self_scm()); + + + return SCM_EOL; +} + +int +Music_iterator::print_smob (SCM , SCM port, scm_print_state*) +{ + scm_puts ("#", port); + return 1; +} + +void +Music_iterator::derived_mark()const +{ +} + +void +Music_iterator::quit () +{ + do_quit (); + handle_.quit (); +} + +void +Music_iterator::do_quit() +{ +}