-
- (c) 2001--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-
-#include "program-option.hh"
-
-#include <cstdio>
-#include <string.h>
-
-#include "string-convert.hh"
-#include "protected-scm.hh"
-#include "parse-scm.hh"
-#include "warn.hh"
-#include "main.hh"
-
-
-/* Write midi as formatted ascii stream? */
-bool do_midi_debugging_global;
-
-/*
- Backwards compatibility.
-*/
-bool lily_1_8_relative = false;
-bool lily_1_8_compatibility_used = false;
-
-/*
- crash if internally the wrong type is used for a grob property.
-*/
-bool do_internal_type_checking_global;
-
-
-static Lilypond_option_init options[] = {
- {"point-and-click", "#t",
- "use point & click"},
- {"midi-debug", "#f",
- "generate human readable MIDI",},
- {"internal-type-checking", "#f",
- "check every property assignment for types"},
- {"parse-protect", "#t",
- "continue when finding errors in inline\n"
- "scheme are caught in the parser. If off, halt \n"
- "on errors, and print a stack trace."},
- {"old-relative", "#f",
- "relative for simultaneous music works\n"
- "similar to chord syntax"},
- {"resolution", "90",
- "resolution for generating bitmaps"},
- {"preview-include-book-title", "#t",
- "include book-titles in preview images."},
- {"gs-font-load", "#f",
- "load fonts via Ghostscript."},
- {"delete-intermediate-files", "#f",
- "delete unusable PostScript files"},
- {"ttf-verbosity", "0",
- "how much verbosity for TTF font embedding?"},
- {0,0,0},
-};
-
-Protected_scm option_hash_;
-
-void internal_set_option (SCM var, SCM val)
-{
- scm_hashq_set_x (option_hash_, var, val);