]> git.donarmstrong.com Git - lilypond.git/blob - lily/simple-music-iterator.cc
patch::: 1.3.85.jcn3
[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
15 void
16 Simple_music_iterator::do_process_and_next (Moment m)
17 {
18   if (ok ())
19     {
20       bool b = try_music (get_music ());
21       if (!b)
22         music_l_->origin ()->warning (_f ("Junking music: `%s'",
23                                           classname (music_l_)));
24
25     }
26   Music_iterator::do_process_and_next (m);
27 }