+LY_DEFINE (ly_option_usage, "ly-option-usage", 0, 0, 0, (SCM),
+ "Print ly-set-option usage")
+{
+ printf ( _("lilypond -e EXPR means:").to_str0 ());
+ puts ("");
+ printf (_ (" Evalute the Scheme EXPR before parsing any .ly files.").to_str0 ());
+ puts ("");
+ printf (_ (" Multiple -e options may be given, they will be evaluated sequentially.").to_str0 ());
+ puts ("");
+ printf (_(" The function ly-set-option allows for access to some internal variables.").to_str0 ());
+ puts ("\n");
+ printf (_ ("Usage: lilypond -e \"(ly-set-option SYMBOL VAL)\"").to_str0 ());
+ puts ("\n");
+ printf (_ ("Where SYMBOL VAL pair is any of:").to_str0 ());
+ puts ("");
+ printf ( " help ANY-SYMBOL\n"
+ " internal-type-checking BOOLEAN\n"
+ " midi-debug BOOLEAN\n"
+ " testing-level INTEGER\n");
+
+ exit (0);
+ return SCM_UNSPECIFIED;
+}
+