X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frelative-octave-check.cc;h=1c15364b861b5479b0f9cd08a694047169b20e85;hb=89758a4006f40d8af793f88e27760e9e21257dce;hp=9ce7c5d88d8a45a3c3cad523b25edb2590ccf6bb;hpb=c668a48a83d7cdc70e97cb25069427c59d75c31a;p=lilypond.git diff --git a/lily/relative-octave-check.cc b/lily/relative-octave-check.cc index 9ce7c5d88d..1c15364b86 100644 --- a/lily/relative-octave-check.cc +++ b/lily/relative-octave-check.cc @@ -1,31 +1,29 @@ /* - relative-octave-check.cc -- implement Relative_octave_check + relative-octave-check.cc -- implement Relative_octave_check source file of the GNU LilyPond music typesetter - (c) 2005 Han-Wen Nienhuys - + (c) 2005--2007 Han-Wen Nienhuys */ -#include "music.hh" #include "input.hh" -#include "pitch.hh" +#include "international.hh" +#include "music.hh" class Relative_octave_check { public: - DECLARE_SCHEME_CALLBACK(relative_callback,(SCM,SCM)); + DECLARE_SCHEME_CALLBACK (relative_callback, (SCM, SCM)); }; - -MAKE_SCHEME_CALLBACK(Relative_octave_check, relative_callback, 2) -SCM +MAKE_SCHEME_CALLBACK (Relative_octave_check, relative_callback, 2) + SCM Relative_octave_check::relative_callback (SCM music, SCM last_pitch) { Pitch p = *unsmob_pitch (last_pitch); - Music *m = unsmob_music (music); + Music *m = unsmob_music (music); Pitch *check_p = unsmob_pitch (m->get_property ("pitch")); - + int delta_oct = 0; if (check_p) { @@ -37,15 +35,16 @@ Relative_octave_check::relative_callback (SCM music, SCM last_pitch) if (result != *check_p) { - String s = _("Failed octave check, got: "); + string s = _ ("Failed octave check, got: "); s += result.to_string (); - + m->origin ()->warning (s); - + delta_oct = check_p->get_octave () - result.get_octave (); } } - + return Pitch (p.get_octave () + delta_oct, - p.get_notename (), p.get_alteration ()).smobbed_copy (); + p.get_notename (), + p.get_alteration ()).smobbed_copy (); }