2 music-iterator.cc -- implement Music_iterator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 UGH. too many includes.
13 #include "music-iterator.hh"
14 #include "property-iterator.hh"
15 #include "request-chord-iterator.hh"
16 #include "sequential-music-iterator.hh"
17 #include "simultaneous-music-iterator.hh"
18 #include "translator-group.hh"
19 #include "change-iterator.hh"
20 #include "music-wrapper.hh"
21 #include "music-wrapper-iterator.hh"
22 #include "time-scaled-music-iterator.hh"
23 #include "repeated-music.hh"
24 #include "folded-repeat-iterator.hh"
25 #include "unfolded-repeat-iterator.hh"
26 #include "grace-iterator.hh"
27 #include "lyric-combine-music-iterator.hh"
28 #include "auto-change-iterator.hh"
29 #include "part-combine-music-iterator.hh"
30 #include "simple-music-iterator.hh"
31 #include "output-property-music-iterator.hh"
32 #include "chord-tremolo-iterator.hh"
33 #include "context-specced-music.hh"
35 Music_iterator::Music_iterator ()
40 Music_iterator::Music_iterator (Music_iterator const& src)
42 // clone_i_ = src.clone_i_ + 1;
43 handle_ = *src.handle_.clone ();
44 music_l_ = src.music_l_;
45 music_length_ = src.music_length_;
48 Music_iterator::~Music_iterator ()
56 Music_iterator::report_to_l () const
58 return handle_.report_to_l ();
63 Music_iterator::set_translator (Translator_group *trans)
65 handle_.set_translator (trans);
69 Music_iterator::construct_children ()
74 Music_iterator::pending_moment () const
81 Music_iterator::process (Moment)
86 Music_iterator::ok () const
92 Music_iterator::skip (Moment )
97 Music_iterator::get_music (Moment)const
104 /* We could do this decentrally:
106 - Declare a new smob-type, which stores a function ptr in its CDR
107 (and not a struct ptr). The function ptr has signature
109 Music_iterator* (*)()
111 - initialize all music with a set_mus_property("iterator-ctor"),
115 func_ptr p = (func_ptr) gh_cdr (get_mus_property ("iterator-ctor"));
121 Music_iterator::static_get_iterator_p (Music *m)
123 Music_iterator * p =0;
125 SCM type = m->get_mus_property ("type") ;
127 if (type == ly_symbol2scm ("property-set"))
128 p = new Property_iterator;
129 else if (type == ly_symbol2scm ("property-push"))
130 p = new Push_property_iterator;
131 else if (type == ly_symbol2scm ("property-pop"))
132 p = new Pop_property_iterator;
133 else if (type == ly_symbol2scm ("output-property"))
134 p = new Output_property_music_iterator;
135 else if (type == ly_symbol2scm ("request-chord"))
136 p = new Request_chord_iterator;
137 else if (type == ly_symbol2scm ("lyric-combine-music"))
138 p = new Lyric_combine_music_iterator;
139 else if (type == ly_symbol2scm ("simultaneous-music"))
140 p = new Simultaneous_music_iterator;
141 else if (type == ly_symbol2scm ("sequential-music"))
142 p = new Sequential_music_iterator;
143 else if (type == ly_symbol2scm ("change-translator"))
144 p = new Change_iterator;
145 else if (type == ly_symbol2scm ("time-scaled-music"))
146 p = new Time_scaled_music_iterator;
147 else if (type == ly_symbol2scm ("grace-music"))
148 p = new Grace_iterator;
149 else if (type == ly_symbol2scm ("auto-change-music"))
150 p = new Auto_change_iterator;
151 else if (type == ly_symbol2scm ("part-combined-music"))
152 p = new Part_combine_music_iterator;
153 else if (dynamic_cast<Music_wrapper *> (m))
154 p = new Music_wrapper_iterator;
155 else if (Repeated_music * n = dynamic_cast<Repeated_music *> (m))
157 if (n->type_ == "tremolo")
158 p = new Chord_tremolo_iterator;
160 p = new Folded_repeat_iterator;
162 p = new Unfolded_repeat_iterator;
166 p = new Simple_music_iterator ;
170 p->music_length_ = m->length_mom ();
177 Music_iterator::music_length_mom() const
179 return music_length_;
183 Music_iterator::init_translator (Music *m, Translator_group *report_l)
186 if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
188 SCM ct = csm->get_mus_property ("context-type");
190 if (gh_string_p (ct))
191 c_type = ly_scm2string (ct);
194 SCM ci = csm->get_mus_property ("context-id");
195 if (gh_string_p (ci))
196 c_id = ly_scm2string (ci);
199 =report_l->find_create_translator_l (c_type, c_id);
205 if (! report_to_l ())
206 set_translator (report_l);
211 Music_iterator::get_iterator_p (Music *m) const
213 Music_iterator*p = static_get_iterator_p (m);
214 p->init_translator (m, report_to_l ());
216 p->construct_children ();
221 Music_iterator::try_music (Music *m) const
223 bool b = report_to_l ()->try_music ( (Music*)m); // ugh
224 Music_iterator * it = b ? (Music_iterator*) this : 0; // ugh
226 it = try_music_in_children (m);
231 Music_iterator::try_music_in_children (Music *) const