lilypond-0.1.54
[lilypond.git] / lily / chord-iterator.cc
bloba21a7862cc56b1aa29d694b52d610864333b3e19
1 /*
2 chord-iter.cc -- implement Chord_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
9 #include "translator-group.hh"
10 #include "debug.hh"
11 #include "chord-iterator.hh"
13 #include "music-list.hh"
16 Chord_iterator::~Chord_iterator()
20 Chord_iterator::Chord_iterator (Chord const *chord_C)
22 chord_C_ = chord_C;
25 void
26 Chord_iterator::construct_children()
28 int j = 0;
29 for (PCursor<Music*> i (chord_C_->music_p_list_.top());
30 i.ok(); j++, i++)
32 Music_iterator * mi = get_iterator_p (i.ptr());
33 if (mi->ok())
35 if (chord_C_->translator_type_str_.empty_b ())
36 set_translator (mi->report_to_l()->ancestor_l (chord_C_->multi_level_i_));
37 children_p_list_.bottom().add (mi);
39 else
40 delete mi;
43 void
44 Chord_iterator::do_print() const
46 #ifndef NPRINT
47 for (PCursor<Music_iterator*> i (children_p_list_.top()); i.ok (); i++)
49 i->print();
51 #endif
54 void
55 Chord_iterator::process_and_next (Moment until)
57 for (PCursor<Music_iterator*> i (children_p_list_.top()); i.ok ();)
59 if (i->next_moment() == until)
61 i->process_and_next (until);
63 if (!i->ok())
64 delete i.remove_p();
65 else
66 i++;
68 Music_iterator::process_and_next (until);
72 IMPLEMENT_IS_TYPE_B1(Chord_iterator,Music_iterator);
74 Moment
75 Chord_iterator::next_moment() const
77 Moment next;
78 next.set_infinite (1);
79 for (PCursor<Music_iterator*> i (children_p_list_.top()); i.ok (); i++)
80 next = next <? i->next_moment() ;
81 return next;
86 bool
87 Chord_iterator::ok() const
89 return children_p_list_.size();