]> git.donarmstrong.com Git - lilypond.git/blob - lily/simple-music-iterator.cc
patch::: 1.3.86.jcn1
[lilypond.git] / lily / simple-music-iterator.cc
1 /*   
2   simple-music-iterator.cc --  implement Simple_music_iterator
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "simple-music-iterator.hh"
11 #include "music.hh"
12 #include "input.hh"
13
14 Simple_music_iterator::Simple_music_iterator ()
15   : Music_iterator ()
16 {
17 }
18
19 Simple_music_iterator::Simple_music_iterator (Simple_music_iterator const &src)
20   : Music_iterator (src)
21 {
22 }
23
24 void
25 Simple_music_iterator::do_process_and_next (Moment m)
26 {
27   if (ok ())
28     {
29       bool b = try_music (get_music ());
30       if (!b)
31         music_l_->origin ()->warning (_f ("Junking music: `%s'",
32                                           classname (music_l_)));
33
34     }
35   Music_iterator::do_process_and_next (m);
36 }