OLD | NEW |
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) 1998--2014 Jan Nieuwenhuizen <janneke@gnu.org> | 4 Copyright (C) 1998--2014 Jan Nieuwenhuizen <janneke@gnu.org> |
5 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 Han-Wen Nienhuys <hanwen@xs4all.nl> |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond is free software: you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation, either version 3 of the License, or | 9 the Free Software Foundation, either version 3 of the License, or |
10 (at your option) any later version. | 10 (at your option) any later version. |
(...skipping 120 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
131 " If no value is found, return @var{val} or @code{'()}" | 131 " If no value is found, return @var{val} or @code{'()}" |
132 " if @var{val} is not specified.") | 132 " if @var{val} is not specified.") |
133 { | 133 { |
134 Grob *sc = Grob::unsmob (grob); | 134 Grob *sc = Grob::unsmob (grob); |
135 | 135 |
136 LY_ASSERT_SMOB (Grob, grob, 1); | 136 LY_ASSERT_SMOB (Grob, grob, 1); |
137 LY_ASSERT_TYPE (ly_is_symbol, sym, 2); | 137 LY_ASSERT_TYPE (ly_is_symbol, sym, 2); |
138 if (val == SCM_UNDEFINED) | 138 if (val == SCM_UNDEFINED) |
139 val = SCM_EOL; | 139 val = SCM_EOL; |
140 | 140 |
141 SCM retval = sc->internal_get_property (sym); | 141 SCM retval = sc->get_property (sym); |
142 if (retval == SCM_EOL) | 142 if (retval == SCM_EOL) |
143 retval = val; | 143 retval = val; |
144 | 144 |
145 return retval; | 145 return retval; |
146 } | 146 } |
147 | 147 |
148 LY_DEFINE (ly_grob_interfaces, "ly:grob-interfaces", | 148 LY_DEFINE (ly_grob_interfaces, "ly:grob-interfaces", |
149 1, 0, 0, (SCM grob), | 149 1, 0, 0, (SCM grob), |
150 "Return the interfaces list of grob @var{grob}.") | 150 "Return the interfaces list of grob @var{grob}.") |
151 { | 151 { |
(...skipping 323 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
475 1, 0, 0, (SCM grob), | 475 1, 0, 0, (SCM grob), |
476 "Get the index of the vertical axis group the grob @var{grob} belongs
to;" | 476 "Get the index of the vertical axis group the grob @var{grob} belongs
to;" |
477 " return @code{-1} if none is found.") | 477 " return @code{-1} if none is found.") |
478 { | 478 { |
479 Grob *gr = Grob::unsmob (grob); | 479 Grob *gr = Grob::unsmob (grob); |
480 | 480 |
481 LY_ASSERT_SMOB (Grob, grob, 1); | 481 LY_ASSERT_SMOB (Grob, grob, 1); |
482 | 482 |
483 return scm_from_int (Grob::get_vertical_axis_group_index (gr)); | 483 return scm_from_int (Grob::get_vertical_axis_group_index (gr)); |
484 } | 484 } |
OLD | NEW |