-/*
- Hmmm. should do in SCM / C++ ?
- */
-static String
-get_help_string ()
-{
- SCM alist = ly_hash2alist (option_hash_);
- SCM convertor = ly_lily_module_constant ("scm->string");
-
-
- Array<String> opts;
-
- for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s))
- {
- SCM sym = scm_caar (s);
- SCM val = scm_cdar (s);
- String opt_spec =
- String_convert::char_string (' ', INDENT)
- + ly_symbol2string (sym)
- + " ("
- + ly_scm2string (scm_call_1 (convertor, val))
- + ")";
-
- if (opt_spec.length () + SEPARATION > HELP_INDENT)
- {
- opt_spec += "\n"
- + String_convert::char_string (' ', HELP_INDENT);
- }
- else
- opt_spec += String_convert::char_string (' ', HELP_INDENT - opt_spec.length ());
-
- SCM opt_help_scm
- = scm_object_property (sym, ly_symbol2scm ("program-option-documentation"));
- String opt_help = ly_scm2string (opt_help_scm);
- opt_help.substitute (String ("\n"),
- String ("\n")
- + String_convert::char_string (' ', HELP_INDENT));
-
- opts.push (opt_spec + opt_help + "\n");
- }
+ LilyPond is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.