2 music-iterator.cc -- implement Music_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
9 #include "music-list.hh"
10 #include "music-iterator.hh"
11 #include "voice-iterator.hh"
12 #include "property-iterator.hh"
13 #include "chord-iterator.hh"
14 #include "request-iterator.hh"
15 #include "translator-group.hh"
16 #include "translation-property.hh"
18 IMPLEMENT_IS_TYPE_B(Music_iterator);
22 Music_iterator::do_print() const
28 Music_iterator::print() const
33 DOUT << name() << "{";
34 DOUT << "report to " <<
35 report_to_l() << " (" << report_to_l ()->name () << ")\n";
37 DOUT << "next at " << next_moment() << " ";
39 DOUT << "not feeling well today..";
46 Music_iterator::get_req_translator_l()
48 assert (report_to_l());
49 if (report_to_l()->is_bottom_translator_b ())
52 set_translator (report_to_l()->get_default_interpreter ());
57 Music_iterator::push_translator (Translator_group*t)
59 report_to_l_arr_.push (t);
60 t->iterator_count_ ++;
64 Music_iterator::pop_translator()
66 report_to_l()->iterator_count_ --;
67 assert (report_to_l()->iterator_count_ >=0);
68 report_to_l_arr_.pop();
72 Music_iterator::report_to_l() const
74 if (! report_to_l_arr_.size())
76 return report_to_l_arr_.top();
81 Music_iterator::set_translator (Translator_group*trans)
83 if (report_to_l()==trans)
88 push_translator (trans);
92 Music_iterator::construct_children()
97 Music_iterator::~Music_iterator()
103 Music_iterator::next_moment() const
109 Music_iterator::process_and_next (Moment)
115 Music_iterator::ok() const
121 Music_iterator::static_get_iterator_p (Music *m,
122 Translator_group*report_l)
124 Music_iterator * p =0;
125 if (m->is_type_b (Request_chord::static_name()))
126 p = new Request_chord_iterator ((Request_chord*) m);
127 else if (m->is_type_b (Chord::static_name()))
128 p = new Chord_iterator ((Chord*) m);
129 else if (m->is_type_b (Voice::static_name()))
130 p = new Voice_iterator ((Voice*) m);
131 else if (m->is_type_b (Translation_property::static_name ()))
132 p = new Property_iterator((Translation_property *) m);
134 if (m -> translator_type_str_)
136 Translator_group* a =report_l->
137 find_create_translator_l (m-> translator_type_str_, m->translator_id_str_);
138 p->set_translator (a);
142 if (! p->report_to_l())
143 p ->set_translator (report_l);
149 Music_iterator::get_iterator_p (Music*m) const
151 Music_iterator*p = static_get_iterator_p (m,report_to_l());
152 p->daddy_iter_l_ = (Music_iterator*)this;
153 p->construct_children();
157 Music_iterator::Music_iterator()