LEFT | RIGHT |
(no file at all) | |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 2004--2019 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2004--2019 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 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 | 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 | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 10 matching lines...) Expand all Loading... |
21 #include "input.hh" | 21 #include "input.hh" |
22 #include "international.hh" | 22 #include "international.hh" |
23 #include "music.hh" | 23 #include "music.hh" |
24 #include "simple-music-iterator.hh" | 24 #include "simple-music-iterator.hh" |
25 | 25 |
26 class Apply_context_iterator : public Simple_music_iterator | 26 class Apply_context_iterator : public Simple_music_iterator |
27 { | 27 { |
28 public: | 28 public: |
29 DECLARE_SCHEME_CALLBACK (constructor, ()); | 29 DECLARE_SCHEME_CALLBACK (constructor, ()); |
30 protected: | 30 protected: |
31 virtual void process (Moment); | 31 void process (Moment) override; |
32 }; | 32 }; |
33 | 33 |
34 void | 34 void |
35 Apply_context_iterator::process (Moment m) | 35 Apply_context_iterator::process (Moment m) |
36 { | 36 { |
37 SCM proc = get_music ()->get_property ("procedure"); | 37 SCM proc = get_music ()->get_property ("procedure"); |
38 if (ly_is_procedure (proc)) | 38 if (ly_is_procedure (proc)) |
39 with_location (get_music ()->get_property ("origin"), | 39 with_location (get_music ()->get_property ("origin"), |
40 proc, get_outlet ()->self_scm ()); | 40 proc, get_outlet ()->self_scm ()); |
41 else | 41 else |
42 get_music ()->origin ()->warning (_ ("\\applycontext argument is not a proce
dure")); | 42 get_music ()->origin ()->warning (_ ("\\applycontext argument is not a proce
dure")); |
43 | 43 |
44 Simple_music_iterator::process (m); | 44 Simple_music_iterator::process (m); |
45 } | 45 } |
46 | 46 |
47 IMPLEMENT_CTOR_CALLBACK (Apply_context_iterator); | 47 IMPLEMENT_CTOR_CALLBACK (Apply_context_iterator); |
48 | 48 |
LEFT | RIGHT |