]> git.donarmstrong.com Git - lilypond.git/blob - lily/music-wrapper.cc
(Invoking lilypond-book):
[lilypond.git] / lily / music-wrapper.cc
1 /*
2   music-wrapper.cc -- implement Music_wrapper
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "music-wrapper.hh"
10
11 #include "music.hh"
12
13 MAKE_SCHEME_CALLBACK (Music_wrapper, start_callback, 1);
14 SCM
15 Music_wrapper::start_callback (SCM m)
16 {
17   Music *me = unsmob_music (m);
18   Music *elt = unsmob_music (me->get_property ("element"));
19   return elt->start_mom ().smobbed_copy ();
20 }
21
22 MAKE_SCHEME_CALLBACK (Music_wrapper, length_callback, 1);
23 SCM
24 Music_wrapper::length_callback (SCM m)
25 {
26   Music *me = unsmob_music (m);
27   Music *elt = unsmob_music (me->get_property ("element"));
28   return elt->get_length ().smobbed_copy ();
29 }
30