+/* The option parser */
+static Getopt_long *option_parser = 0;
+
+/* Internationalisation kludge in two steps:
+ * use _i () to get entry in POT file
+ * call gettext () explicitely for actual "translation" */
+
+static Long_option_init options_static[] =
+ {
+ {_i ("EXPR"), "evaluate", 'e',
+ _i ("set options, use -e '(ly-option-usage)' for help")},
+ /* Bug in option parser: --output=foe is taken as an abbreviation
+ for --output-format. */
+ {_i ("EXT"), "format", 'f', _i ("use output format EXT")},
+ {0, "help", 'h', _i ("print this help")},
+ {_i ("FIELD"), "header", 'H', _i ("write header field to BASENAME.FIELD")},
+ {_i ("DIR"), "include", 'I', _i ("add DIR to search path")},
+ {_i ("FILE"), "init", 'i', _i ("use FILE as init file")},
+ {0, "no-paper", 'm', _i ("produce MIDI output only")},
+ {_i ("FILE"), "output", 'o', _i ("write output to FILE")},
+ {0, "safe-mode", 's', _i ("run in safe mode")},
+ {0, "version", 'v', _i ("print version number")},
+ {0, "verbose", 'V', _i ("be verbose")},
+ {0, "warranty", 'w', _i ("show warranty and copyright")},
+ {0,0,0,0}
+ };
+
+static void
+dir_info (FILE *out)
+{
+ fputs ("\n", out);
+ fprintf (out, "lilypond_datadir: `%s'\n", LILYPOND_DATADIR);
+ fprintf (out, "local_lilypond_datadir: `%s'\n", LOCAL_LILYPOND_DATADIR);
+ fprintf (out, "localedir: `%s'\n", LOCALEDIR);
+
+ char *lilypond_prefix = getenv ("LILYPONDPREFIX");
+ fprintf (out, "LILYPONDPREFIX: `%s'\n",
+ (lilypond_prefix ? lilypond_prefix : ""));