X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-iterator.cc;h=b89e92c28ec968f2f13bfbfff070a440d891ce7f;hb=e6e59e19a164f0d3af53b0bde3798940de162d66;hp=a26231c0a97df73663b6672e5c54a5a50ef40fec;hpb=6bc0a8a090e82c4bce57df8e980b48cc78cb422b;p=lilypond.git diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc index a26231c0a9..b89e92c28e 100644 --- a/lily/music-iterator.cc +++ b/lily/music-iterator.cc @@ -1,173 +1,266 @@ /* - music-iterator.cc -- implement Music_iterator + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 1997--2015 Han-Wen Nienhuys - (c) 1997--1998 Han-Wen Nienhuys + 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 . */ -#include "debug.hh" -#include "music-list.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" +#include +using namespace std; + +#include "warn.hh" +#include "music.hh" +#include "context.hh" +#include "event-iterator.hh" +#include "input.hh" +#include "international.hh" #include "music-wrapper.hh" #include "music-wrapper-iterator.hh" +#include "simple-music-iterator.hh" -IMPLEMENT_IS_TYPE_B(Music_iterator); +Music_iterator::Music_iterator () +{ + music_ = 0; + smobify_self (); +} + +Music_iterator::~Music_iterator () +{ +} +Context * +Music_iterator::get_outlet () const +{ + return handle_.get_context (); +} void -Music_iterator::do_print() const +Music_iterator::set_context (Context *trans) { + handle_.set_context (trans); +} +void +Music_iterator::construct_children () +{ +} + +Moment +Music_iterator::pending_moment () const +{ + return 0; } 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() << " "; +Music_iterator::process (Moment) +{ +} + +bool +Music_iterator::ok () const +{ + return false; +} + +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_is_procedure (ctor)) + { + iter = scm_call_0 (ctor); + p = unsmob (iter); + } else - DOUT << "not feeling well today.."; - do_print(); - DOUT << "}\n"; -#endif + { + if (dynamic_cast (m)) + p = new Music_wrapper_iterator; + else if (m->is_mus_type ("event")) + p = new Event_iterator; + else + p = new Simple_music_iterator; + + iter = p->self_scm (); + p->unprotect (); + } + + p->music_ = m; + assert (m); + p->music_length_ = m->get_length (); + p->start_mom_ = m->start_mom (); + + return iter; } -Translator_group* -Music_iterator::get_req_translator_l() +Moment +Music_iterator::music_get_length () const { - assert (report_to_l()); - if (report_to_l()->is_bottom_translator_b ()) - return report_to_l(); + return music_length_; +} - set_translator (report_to_l()->get_default_interpreter ()); - return report_to_l(); +Moment +Music_iterator::music_start_mom ()const +{ + return start_mom_; } void -Music_iterator::push_translator (Translator_group*t) +Music_iterator::init_context (Music *m, Context *report) { - report_to_l_arr_.push (t); - t->iterator_count_ ++; + music_ = m; + assert (m); + if (! get_outlet ()) + set_context (report); } void -Music_iterator::pop_translator() +Music_iterator::substitute_outlet (Context *f, Context *t) { - report_to_l()->iterator_count_ --; - assert (report_to_l()->iterator_count_ >=0); - report_to_l_arr_.pop(); + if (f != t) + { + if (get_outlet () == f) + set_context (t); + derived_substitute (f, t); + } } -Translator_group* -Music_iterator::report_to_l() const +void +Music_iterator::derived_substitute (Context *, Context *) { - if (! report_to_l_arr_.size()) - return 0; - return report_to_l_arr_.top(); } +SCM +Music_iterator::get_iterator (Music *m) const +{ + SCM ip = get_static_get_iterator (m); + Music_iterator *p = unsmob (ip); + + p->init_context (m, get_outlet ()); + + p->construct_children (); + return ip; +} +/* Descend to a bottom context; implicitly create a new one if necessary */ 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::descend_to_bottom_context () +{ + assert (get_outlet ()); + if (!get_outlet ()->is_bottom_context ()) + set_context (get_outlet ()->get_default_interpreter ()); } void -Music_iterator::construct_children() +Music_iterator::report_event (Music *m) { + descend_to_bottom_context (); + + /* + FIXME: then don't do it. + */ + if (!m->is_mus_type ("event")) + m->origin ()->programming_error ("Sending non-event to context"); + m->send_to_context (get_outlet ()); } -Music_iterator::~Music_iterator() +IMPLEMENT_CTOR_CALLBACK (Music_iterator); + +Music * +Music_iterator::get_music () const { - set_translator (0); + return music_; } -Moment -Music_iterator::next_moment() const +/****************************************************************/ + +const char Music_iterator::type_p_name_[] = "ly:iterator?"; + +SCM +Music_iterator::mark_smob () const { - return 0; + derived_mark (); + /* + Careful with GC, although we intend the following as pointers + only, we _must_ mark them. + */ + /* Use handle_ directly as get_outlet is a virtual function and we + need to protect the context until Music_iterator::quit is being + run. */ + if (handle_.get_context ()) + scm_gc_mark (handle_.get_context ()->self_scm ()); + if (music_) + scm_gc_mark (music_->self_scm ()); + + return SCM_EOL; } -void -Music_iterator::process_and_next (Moment) +int +Music_iterator::print_smob (SCM port, scm_print_state *) const { - first_b_ = false; + char s[1000]; + + sprintf (s, "#<%s>", class_name ()); + scm_puts (s, port); + return 1; } -bool -Music_iterator::ok() const -{ - return first_b_; -} - -Music_iterator* -Music_iterator::static_get_iterator_p (Music *m, - Translator_group*report_l) -{ - 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); - else if (m->is_type_b (Music_wrapper::static_name ())) - p = new Music_wrapper_iterator ((Music_wrapper *)m); - - - 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); - } +void +Music_iterator::derived_mark ()const +{ +} - if (! p->report_to_l()) - p ->set_translator (report_l); - - return p; +void +Music_iterator::quit () +{ + do_quit (); + handle_.set_context (0); } -Music_iterator* -Music_iterator::get_iterator_p (Music*m) const +void +Music_iterator::do_quit () { - 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() +bool +Music_iterator::run_always ()const { - daddy_iter_l_ =0; - first_b_ = true; + return false; } +bool +is_child_context (Context *me, Context *child) +{ + while (child && child != me) + child = child->get_parent_context (); + return child == me; +} + +/* + move to context of child iterator if it is deeper down in the + hierarchy. +*/ +void +Music_iterator::descend_to_child (Context *child_report) +{ + Context *me_report = get_outlet (); + if (is_child_context (me_report, child_report)) + set_context (child_report); +}