X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frepeat-acknowledge-engraver.cc;h=00e0c8abe259a4f0fcf5a29165cac81455705099;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=1846d6686d294b10361e0ec5a6476002a926dd60;hpb=99b6f3aa3558b01c9d4158b19a1f1794c534f89c;p=lilypond.git diff --git a/lily/repeat-acknowledge-engraver.cc b/lily/repeat-acknowledge-engraver.cc index 1846d6686d..00e0c8abe2 100644 --- a/lily/repeat-acknowledge-engraver.cc +++ b/lily/repeat-acknowledge-engraver.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2000--2014 Han-Wen Nienhuys + Copyright (C) 2000--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 @@ -51,7 +51,8 @@ Repeat_acknowledge_engraver::initialize () context ()->set_property ("repeatCommands", SCM_EOL); } -Repeat_acknowledge_engraver::Repeat_acknowledge_engraver () +Repeat_acknowledge_engraver::Repeat_acknowledge_engraver (Context *c) + : Engraver (c) { } @@ -85,13 +86,14 @@ Repeat_acknowledge_engraver::process_music () while (scm_is_pair (cs)) { SCM command = scm_car (cs); - if (command == ly_symbol2scm ("start-repeat")) + if (scm_is_eq (command, ly_symbol2scm ("start-repeat"))) start = true; - else if (command == ly_symbol2scm ("end-repeat")) + else if (scm_is_eq (command, ly_symbol2scm ("end-repeat"))) end = true; - else if (command == ly_symbol2scm ("segno-display")) + else if (scm_is_eq (command, ly_symbol2scm ("segno-display"))) segno = true; - else if (scm_is_pair (command) && scm_car (command) == ly_symbol2scm ("volta")) + else if (scm_is_pair (command) + && scm_is_eq (scm_car (command), ly_symbol2scm ("volta"))) volta_found = true; cs = scm_cdr (cs); } @@ -134,6 +136,12 @@ Repeat_acknowledge_engraver::process_music () } } +void +Repeat_acknowledge_engraver::boot () +{ + +} + ADD_TRANSLATOR (Repeat_acknowledge_engraver, /* doc */ "Acknowledge repeated music, and convert the contents of"