X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flyric-combine-music.cc;h=7895e154a75eb536080c9034e0c1d1e469b54fc1;hb=92f143cbac313d02c4fab36dac3a25e9c7adbfc2;hp=a7766abbef024853e5fd2518ca54aea150bd0d2d;hpb=5d1ddaf889233f8e5c32a118f9e843e1becca2d2;p=lilypond.git diff --git a/lily/lyric-combine-music.cc b/lily/lyric-combine-music.cc index a7766abbef..7895e154a7 100644 --- a/lily/lyric-combine-music.cc +++ b/lily/lyric-combine-music.cc @@ -1,27 +1,24 @@ -/* - lyric-combine-music.cc -- implement Lyric_combine_music - +/* + lyric-combine-music.cc -- implement Lyric_combine_music + source file of the GNU LilyPond music typesetter - - (c) 1999--2005 Han-Wen Nienhuys - - */ + + (c) 1999--2007 Han-Wen Nienhuys +*/ #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 *me = unsmob_music (m); Music *melody = unsmob_music (scm_car (me->get_property ("elements"))); return melody->get_length ().smobbed_copy (); }