-void
-Sequential_music_iterator::do_print() const
-{
- if (iter_p_)
- iter_p_->print();
-}
-
-Sequential_music_iterator::Sequential_music_iterator ()
-{
- cursor_ = 0;
- here_mom_ = 0;
- iter_p_ =0;
-}
-
-void
-Sequential_music_iterator::construct_children()
-{
- cursor_ = dynamic_cast<Sequential_music const*> (music_l_)->music_p_list_p_->head_cons_p_;
-
- while (cursor_)
- {
- start_next_element();
- if (!iter_p_->ok())
- {
- leave_element();
- }
- else
- {
- set_Sequential_music_translator();
- break;
- }
- }
-}
-
-void
-Sequential_music_iterator::leave_element()
-{
- delete iter_p_;
- iter_p_ =0;
- Moment elt_time = cursor_->car_p_->length_mom ();
- here_mom_ += elt_time;
- cursor_ =cursor_->next_cons_p_;
-}
-
-void
-Sequential_music_iterator::start_next_element()
-{
- assert (!iter_p_);
- iter_p_ = get_iterator_p (cursor_->car_p_);
-}
-
-void
-Sequential_music_iterator::set_Sequential_music_translator()
-{
- if (iter_p_->report_to_l()->depth_i () > report_to_l ()->depth_i ())
- set_translator (iter_p_->report_to_l());
-}