X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flyric-combine-music.cc;h=9cf603a3a4929f70aaef18db2c0a5779f0985c8e;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=e3fd0e08b2541f6cc8aa0272ae6f67047e9ac33a;hpb=1a112025ae1b44da63bfaf8c68c1b9d1b0da0bd4;p=lilypond.git diff --git a/lily/lyric-combine-music.cc b/lily/lyric-combine-music.cc index e3fd0e08b2..9cf603a3a4 100644 --- a/lily/lyric-combine-music.cc +++ b/lily/lyric-combine-music.cc @@ -1,27 +1,35 @@ -/* - lyric-combine-music.cc -- implement Lyric_combine_music - - source file of the GNU LilyPond music typesetter - - (c) 1999--2004 Han-Wen Nienhuys - - */ +/* + This file is part of LilyPond, the GNU music typesetter. + + Copyright (C) 1999--2015 Han-Wen Nienhuys + + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ #include "music.hh" -#include "pitch.hh" struct Lyric_combine_music { public: - DECLARE_SCHEME_CALLBACK(length_callback,(SCM)); + DECLARE_SCHEME_CALLBACK (length_callback, (SCM)); }; - -MAKE_SCHEME_CALLBACK(Lyric_combine_music,length_callback,1); +MAKE_SCHEME_CALLBACK (Lyric_combine_music, length_callback, 1); SCM Lyric_combine_music::length_callback (SCM m) { - Music * me = unsmob_music (m); - Music *melody = unsmob_music (scm_car (me->get_property ("elements"))); + Music *me = unsmob (m); + Music *melody = unsmob (scm_car (me->get_property ("elements"))); return melody->get_length ().smobbed_copy (); }