2 music-iterator.cc -- implement {Music,Chord,Voice}_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 "translator.hh"
16 IMPLEMENT_IS_TYPE_B(Music_iterator);
18 Chord_iterator::~Chord_iterator()
23 Music_iterator::do_print()const
29 Music_iterator::print() const
34 DOUT << name() << "{";
35 DOUT << "report to " <<
36 report_to_l() << " (" << report_to_l ()->name () << ")\n";
37 DOUT << "next at " << next_moment() << " ";
44 Music_iterator::get_req_translator_l()
46 assert (report_to_l());
47 if (report_to_l()->is_bottom_engraver_b ())
50 set_translator (report_to_l()->get_default_interpreter ());
55 Music_iterator::push_translator (Translator*t)
57 report_to_l_arr_.push (t);
58 t->iterator_count_ ++;
62 Music_iterator::pop_translator()
64 report_to_l()->iterator_count_ --;
65 assert (report_to_l()->iterator_count_ >=0);
66 report_to_l_arr_.pop();
70 Music_iterator::report_to_l()const
72 if (! report_to_l_arr_.size())
74 return report_to_l_arr_.top();
79 Music_iterator::set_translator (Translator*trans)
81 if (report_to_l()==trans)
86 push_translator (trans);
90 Music_iterator::construct_children()
95 Music_iterator::~Music_iterator()
101 Music_iterator::next_moment()const
107 Music_iterator::process_and_next (Moment)
113 Music_iterator::ok()const
119 Music_iterator::static_get_iterator_p (Music *m,
120 Translator *report_l)
122 Music_iterator * p =0;
123 if (m->is_type_b (Request_chord::static_name()))
124 p = new Request_chord_iterator ((Request_chord*) m);
125 else if (m->is_type_b (Chord::static_name()))
126 p = new Chord_iterator ((Chord*) m);
127 else if (m->is_type_b (Voice::static_name()))
128 p = new Voice_iterator ((Voice*) m);
130 if (m -> type_str_ != "")
132 Translator * a =report_l->
133 find_get_translator_l (m-> type_str_, m->id_str_);
134 p->set_translator (a);
138 if (! p->report_to_l())
139 p ->set_translator (report_l);
145 Music_iterator::get_iterator_p (Music*m)const
147 Music_iterator*p = static_get_iterator_p (m,report_to_l());
148 p->daddy_iter_l_ = (Music_iterator*)this;
149 p->construct_children();
153 Music_iterator::Music_iterator()
161 Chord_iterator::Chord_iterator (Chord const *chord_C)
167 Chord_iterator::construct_children()
170 for (PCursor<Music*> i (chord_C_->music_p_list_.top()); //, int j = 0;
173 Music_iterator * mi = get_iterator_p (i.ptr());
176 set_translator (mi->report_to_l()->ancestor_l (
177 chord_C_->multi_level_i_) );
178 children_p_list_.bottom().add (mi);
185 Chord_iterator::do_print() const
188 for (PCursor<Music_iterator*> i (children_p_list_.top()); i.ok (); i++)
196 Chord_iterator::process_and_next (Moment until)
198 for (PCursor<Music_iterator*> i (children_p_list_.top()); i.ok ();)
200 if (i->next_moment() == until)
202 i->process_and_next (until);
209 Music_iterator::process_and_next (until);
213 IMPLEMENT_IS_TYPE_B1(Chord_iterator,Music_iterator);
216 Chord_iterator::next_moment()const
218 Moment next_ = infinity_mom;
219 for (PCursor<Music_iterator*> i (children_p_list_.top()); i.ok (); i++)
220 next_ = next_ <? i->next_moment() ;
227 Chord_iterator::ok()const
229 return children_p_list_.size();
235 Voice_iterator::do_print()const
241 Voice_iterator::Voice_iterator (Voice const*v)
242 : PCursor<Music*> ( v->music_p_list_)
244 here_mom_ = v->offset_mom_;
250 Voice_iterator::construct_children()
252 while (PCursor<Music*>::ok())
254 start_next_element();
261 set_voice_translator();
268 Voice_iterator::leave_element()
272 MInterval elt_time = ptr()->time_int ();
273 if (!elt_time.empty_b())
274 here_mom_ += elt_time.length();
275 PCursor<Music*>::next();
279 Voice_iterator::start_next_element()
282 iter_p_ = get_iterator_p (ptr());
286 Voice_iterator::set_voice_translator()
288 if (iter_p_->report_to_l()->depth_i () > report_to_l ()->depth_i ())
289 set_translator (iter_p_->report_to_l());
292 Voice_iterator::~Voice_iterator()
298 IMPLEMENT_IS_TYPE_B1(Voice_iterator,Music_iterator);
301 Voice_iterator::process_and_next (Moment until)
305 Moment local_until = until - here_mom_;
306 while ( iter_p_->ok())
308 Moment here = iter_p_->next_moment();
309 if (here != local_until)
312 iter_p_->process_and_next (local_until);
318 if ( PCursor<Music*>::ok())
320 start_next_element();
321 set_voice_translator();
332 Music_iterator::process_and_next (until);
336 Voice_iterator::next_moment()const
338 return iter_p_->next_moment() + here_mom_;
342 Voice_iterator::ok()const
348 IMPLEMENT_IS_TYPE_B1(Request_chord_iterator,Music_iterator);
351 Request_chord_iterator::construct_children()
353 get_req_translator_l();
356 Request_chord_iterator::Request_chord_iterator (Request_chord*el_l)
359 elt_duration_ = el_l->time_int().length ();
365 Request_chord_iterator::ok()const
367 return (elt_duration_ && !last_b_) || first_b_;
373 Request_chord_iterator::next_moment()const
382 Request_chord_iterator::do_print() const
385 DOUT << "duration: " << elt_duration_;
389 Request_chord_iterator::process_and_next (Moment mom)
393 for (PCursor<Music*> i (elt_l_->music_p_list_); i.ok(); i++)
395 assert (i->is_type_b (Request::static_name()));
396 Request * req_l = (Request*)i.ptr();
397 bool gotcha = report_to_l()->try_request (req_l);
399 req_l->warning ("Junking request: " + String (req_l->name()));
405 if ( mom >= elt_duration_)