X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-iterator.cc;h=e6fbf64304f0b1329ffcc96f90c4087838674877;hb=55a36d7beef61098884e49d6b853ce3d7a79811a;hp=e975d300a9a10184bb079553c315e1da1e977e34;hpb=78ed9c22a8cbf56ff5390553e0a2854aa42cbbc5;p=lilypond.git diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc index e975d300a9..e6fbf64304 100644 --- a/lily/music-iterator.cc +++ b/lily/music-iterator.cc @@ -3,179 +3,262 @@ source file of the GNU LilyPond music typesetter - (c) 1997--1999 Han-Wen Nienhuys + (c) 1997--2004 Han-Wen Nienhuys */ -#include "debug.hh" -#include "music-list.hh" + +/* + UGH. too many includes. + */ + #include "music-iterator.hh" -#include "property-iterator.hh" -#include "request-iterator.hh" -#include "sequential-music-iterator.hh" -#include "simultaneous-music-iterator.hh" -#include "translator-group.hh" -#include "translation-property.hh" -#include "change-iterator.hh" -#include "change-translator.hh" + +#include + +#include "warn.hh" +#include "context.hh" #include "music-wrapper.hh" #include "music-wrapper-iterator.hh" -#include "time-scaled-music-iterator.hh" -#include "time-scaled-music.hh" -#include "context-specced-music.hh" -#include "new-repeated-music.hh" -#include "folded-repeat-iterator.hh" -#include "unfolded-repeat-iterator.hh" -#include "grace-iterator.hh" -#include "grace-music.hh" +#include "simple-music-iterator.hh" -void -Music_iterator::do_print() const +#include "ly-smobs.icc" + +Music_iterator::Music_iterator () { + music_ = 0; + smobify_self (); } -void -Music_iterator::print() const -{ -#ifndef NPRINT - if (!check_debug) - return ; - DOUT << classname(this) << "{"; - DOUT << "report to " << - report_to_l() << " (" << classname (report_to_l ()) << ")\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& ) +{ + assert (false); } -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(); +Context * +Music_iterator::get_outlet () const +{ + return handle_.get_outlet (); } +void +Music_iterator::set_context (Context *trans) +{ + handle_.set_context (trans); +} -Translator_group* -Music_iterator::report_to_l() const +void +Music_iterator::construct_children () { - return handle_.report_to_l (); } +Moment +Music_iterator::pending_moment () const +{ + return 0; +} void -Music_iterator::set_translator (Translator_group*trans) +Music_iterator::process (Moment) { - handle_.set_translator (trans); } -void -Music_iterator::construct_children() +bool +Music_iterator::ok () const { + return false; } -Music_iterator::~Music_iterator() + + +SCM +Music_iterator::get_static_get_iterator (Music *m) +{ + Music_iterator * p = 0; + + SCM ctor = m->get_property ("iterator-ctor") ; + SCM iter = SCM_EOL; + if (ly_c_procedure_p (ctor)) + { + iter = scm_call_0 (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::music_get_length () const { + return music_length_; } Moment -Music_iterator::next_moment() const +Music_iterator::music_start_mom ()const { - return 0; + return start_mom_; } +void +Music_iterator::init_translator (Music *m, Context *report) +{ + music_ = m; + assert (m); + if (! get_outlet ()) + set_context (report); +} void -Music_iterator::process_and_next (Moment m) +Music_iterator::substitute_outlet (Context *f, Context *t) { - do_process_and_next (m); + if (get_outlet () == f) + set_context (t); + derived_substitute (f,t); } void -Music_iterator::do_process_and_next (Moment) +Music_iterator::derived_substitute (Context *,Context *) { - first_b_ = false; } -bool -Music_iterator::ok() const +SCM +Music_iterator::get_iterator (Music *m) const +{ + SCM ip = get_static_get_iterator (m); + Music_iterator*p = unsmob_iterator (ip); + + p->init_translator (m, get_outlet ()); + + p->construct_children (); + return ip; +} + +/* + TODO: rename to prevent confusion between Context::try_music and + Iterator::try_music + + */ +Music_iterator* +Music_iterator::try_music (Music *m) const { - return first_b_; + bool b = get_outlet ()->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::static_get_iterator_p (Music const *m) +Music_iterator::try_music_in_children (Music *) const +{ + return 0; +} + +IMPLEMENT_CTOR_CALLBACK (Music_iterator); + +Music * +Music_iterator::get_music () const { - Music_iterator * p =0; + 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->get_outlet ()) + scm_gc_mark (mus->get_outlet ()->self_scm ()); + if (mus->music_) + scm_gc_mark (mus->music_->self_scm ()); - if (dynamic_cast (m)) - p = new Request_chord_iterator; - else if (dynamic_cast (m)) - p = new Simultaneous_music_iterator; - else if (dynamic_cast (m)) - p = new Sequential_music_iterator; - else if (dynamic_cast (m)) - p = new Property_iterator; - else if (dynamic_cast (m)) - p = new Change_iterator; - else if (dynamic_cast (m)) - p = new Time_scaled_music_iterator; - else if (dynamic_cast (m)) - p = new Grace_iterator; - else if (dynamic_cast (m)) - p = new Music_wrapper_iterator; - else if (Repeated_music const * n = dynamic_cast (m)) - { - if (n->fold_b_) - p = new Folded_repeat_iterator; - else - p = new Unfolded_repeat_iterator; - } - else - assert (0); + return SCM_EOL; +} - p->music_l_ = m; - return p; +int +Music_iterator::print_smob (SCM sm , SCM port, scm_print_state*) +{ + char s[1000]; + + Music_iterator *iter = unsmob_iterator (sm); + sprintf (s, "#<%s>", classname (iter)); + scm_puts (s, port); + return 1; } void -Music_iterator::init_translator (Music const *m, Translator_group *report_l) +Music_iterator::derived_mark ()const { - music_l_ = m; - if (Context_specced_music const * csm =dynamic_cast(m)) - { - Translator_group* a =report_l-> - find_create_translator_l (csm->translator_type_str_, csm->translator_id_str_); +} - set_translator (a); - - } +void +Music_iterator::quit () +{ + do_quit (); + handle_.quit (); +} + +void +Music_iterator::do_quit () +{ +} - if (! report_to_l()) - set_translator (report_l); +bool +Music_iterator::run_always ()const +{ + return false; } -Music_iterator* -Music_iterator::get_iterator_p (Music const*m) const +bool +is_child_context (Context *me, Context *child) { - Music_iterator*p = static_get_iterator_p (m); - p->init_translator (m, report_to_l()); + while (child && child != me) + { + child = child->get_parent_context (); + } - p->construct_children(); - return p; + return child == me; } -Music_iterator::Music_iterator() +/* + move to context of child iterator if it is deeper down in the + hierarchy. + */ +void +Music_iterator::descend_to_child (Context * child_report) { - first_b_ = true; + Context * me_report = get_outlet (); + if (is_child_context (me_report, child_report)) + set_context (child_report); } - -