Add display method for \bendAfter.
[lilypond/mpolesky.git] / lily / music-wrapper-iterator.cc
blob4ee22d98a13b68f6f5e1595e841be128ca99c485
1 /*
2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1998--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "music-wrapper-iterator.hh"
21 #include "music-wrapper.hh"
22 #include "music.hh"
24 Music_wrapper_iterator::Music_wrapper_iterator ()
26 child_iter_ = 0;
29 void
30 Music_wrapper_iterator::do_quit ()
32 if (child_iter_)
33 child_iter_->quit ();
36 void
37 Music_wrapper_iterator::derived_mark () const
39 if (child_iter_)
40 scm_gc_mark (child_iter_->self_scm ());
43 void
44 Music_wrapper_iterator::derived_substitute (Context *f, Context *t)
46 if (child_iter_)
47 child_iter_->substitute_outlet (f, t);
50 void
51 Music_wrapper_iterator::construct_children ()
53 Music *my_music = get_music ();
54 Music *child = unsmob_music (my_music->get_property ("element"));
55 child_iter_ = (child)
56 ? unsmob_iterator (get_iterator (child))
57 : 0;
60 bool
61 Music_wrapper_iterator::ok () const
63 return child_iter_ && child_iter_->ok ();
66 void
67 Music_wrapper_iterator::process (Moment m)
69 if (child_iter_)
70 child_iter_->process (m);
73 Moment
74 Music_wrapper_iterator::pending_moment () const
76 if (child_iter_)
77 return child_iter_->pending_moment ();
78 else
79 return Music_iterator::pending_moment ();
82 IMPLEMENT_CTOR_CALLBACK (Music_wrapper_iterator);
84 bool
85 Music_wrapper_iterator::run_always () const
87 return (child_iter_ && child_iter_->run_always ());