X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frepeat-acknowledge-engraver.cc;h=d61ef206ba83af8dd301227cf36de164587087c9;hb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;hp=b41f8b3fe3dfa217bd24ef871eb403e79fd6abab;hpb=545092a25d8ca41dc90b87482474b3719f7130a9;p=lilypond.git diff --git a/lily/repeat-acknowledge-engraver.cc b/lily/repeat-acknowledge-engraver.cc index b41f8b3fe3..d61ef206ba 100644 --- a/lily/repeat-acknowledge-engraver.cc +++ b/lily/repeat-acknowledge-engraver.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 2000--2005 Han-Wen Nienhuys + (c) 2000--2008 Han-Wen Nienhuys */ #include "engraver.hh" @@ -66,7 +66,7 @@ Repeat_acknowledge_engraver::process_music () SCM cs = get_property ("repeatCommands"); - String s = ""; + string s = ""; bool start = false; bool end = false; bool volta_found = false; @@ -83,7 +83,7 @@ Repeat_acknowledge_engraver::process_music () } if (start && end) - s = ":|:"; + s = robust_scm2string (get_property ("doubleRepeatType"), ":|:"); else if (start) s = "|:"; else if (end) @@ -102,14 +102,24 @@ Repeat_acknowledge_engraver::process_music () if (!scm_is_string (wb) || ly_is_equal (db, wb)) { if (s != "" || (volta_found && !scm_is_string (wb))) - context ()->set_property ("whichBar", scm_makfrom0str (s.to_str0 ())); + context ()->set_property ("whichBar", ly_string2scm (s)); } } ADD_TRANSLATOR (Repeat_acknowledge_engraver, - /* doc */ "Acknowledge repeated music, and convert the contents of " - "repeatCommands ainto an appropriate setting for whichBar.", - /* create */ "", - /* accept */ "", - /* read */ "repeatCommands whichBar", - /* write */ ""); + /* doc */ + "Acknowledge repeated music, and convert the contents of" + " @code{repeatCommands} into an appropriate setting for" + " @code{whichBar}.", + + /* create */ + "", + + /* read */ + "doubleRepeatType " + "repeatCommands " + "whichBar ", + + /* write */ + "" + );