source file of the GNU LilyPond music typesetter
- (c) 2000--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2000--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "engraver.hh"
SCM cs = get_property ("repeatCommands");
- String s = "";
+ string s = "";
bool start = false;
bool end = false;
bool volta_found = false;
}
if (start && end)
- s = ":|:";
+ s = robust_scm2string (get_property ("doubleRepeatType"), ":|:");
else if (start)
s = "|:";
else if (end)
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 */
+ ""
+ );