Left: | ||
Right: |
LEFT | RIGHT |
---|---|
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) 1997--2010 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--2010 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 |
11 LilyPond is distributed in the hope that it will be useful, | 11 LilyPond is distributed in the hope that it will be useful, |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | 12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 GNU General Public License for more details. | 14 GNU General Public License for more details. |
15 | 15 |
16 You should have received a copy of the GNU General Public License | 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/>. | 17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>. |
18 */ | 18 */ |
19 | 19 |
20 #include "engraver.hh" | 20 #include "engraver.hh" |
21 #include "grob.hh" | 21 #include "grob.hh" |
22 | 22 |
23 LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob", | 23 LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob", |
24 3, 0, 0, (SCM engraver, SCM grob_name, SCM cause), | 24 3, 0, 0, (SCM engraver, SCM grob_name, SCM cause), |
25 » "Creates a grob originating from given engraver instance, " | 25 » "Creates a grob originating from given engraver instance," |
26 » "with give @code{grob_name}, a symbol. " | 26 » " with give @code{grob-name}, a symbol. @code{cause}" |
27 » "@code{cause} should either be another grob " | 27 » " should either be another grob or a music event.") |
28 » "or a music event.") | |
29 { | 28 { |
30 LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); | 29 LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); |
31 LY_ASSERT_TYPE (ly_is_symbol, grob_name, 2); | 30 LY_ASSERT_TYPE (ly_is_symbol, grob_name, 2); |
32 LY_ASSERT_TYPE (ly_is_grob_cause, cause, 3); | 31 LY_ASSERT_TYPE (ly_is_grob_cause, cause, 3); |
33 | 32 |
34 Grob *g = unsmob_engraver (engraver)-> | 33 Grob *g = unsmob_engraver (engraver)-> |
35 internal_make_grob(grob_name, cause, | 34 internal_make_grob(grob_name, cause, |
36 ly_symbol2string (grob_name).c_str (), | 35 ly_symbol2string (grob_name).c_str (), |
37 "scheme", 0, "scheme"); | 36 "scheme", 0, "scheme"); |
38 return g->self_scm (); | 37 return g->self_scm (); |
39 } | 38 } |
40 | 39 |
41 LY_DEFINE (ly_engraver_announce_end_grob, "ly:engraver-announce-end-grob", | 40 LY_DEFINE (ly_engraver_announce_end_grob, "ly:engraver-announce-end-grob", |
42 3, 0, 0, (SCM engraver, SCM grob, SCM cause), | 41 3, 0, 0, (SCM engraver, SCM grob, SCM cause), |
43 » "Announces an end grob originating from given engraver instance, " | 42 » "Announces the end of a grob (i.e., the end of a spanner)" |
44 » "with @code{grob} being a grob. " | 43 » " originating from given engraver instance, with" |
45 » "@code{cause} should either be another grob " | 44 » " @code{grob} being a grob. @code{cause} should either" |
46 » "or a music event.") | 45 » " be another grob or a music event.") |
47 { | 46 { |
lemzwerg
2010/08/02 12:34:25
Please don't use trailing spaces in strings. Inst
MikeSol
2010/08/02 12:40:48
OK. Will do for ly_engraver_announce_end_grob. W
| |
48 LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); | 47 LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); |
49 LY_ASSERT_TYPE (unsmob_grob, grob, 2); | 48 LY_ASSERT_SMOB (Grob, grob, 2); |
50 LY_ASSERT_TYPE (ly_is_grob_cause, cause, 3); | 49 LY_ASSERT_TYPE (ly_is_grob_cause, cause, 3); |
51 | 50 |
52 unsmob_engraver (engraver)-> | 51 unsmob_engraver (engraver)-> |
53 announce_end_grob (unsmob_grob (grob), cause); | 52 announce_end_grob (unsmob_grob (grob), cause); |
54 | 53 |
55 return SCM_UNSPECIFIED; | 54 return SCM_UNSPECIFIED; |
56 } | 55 } |
LEFT | RIGHT |