2 scheme-option.cc -- implement option setting from Scheme
4 source file of the GNU LilyPond music typesetter
6 (c) 2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "lily-guile.hh"
13 TODO: mooie onschuldige test, en koel om allerleide dingen te kunnen zetten,
14 maar is dit nou wel handig voor gebruikert?
16 -X, of -fps is hendiger dan
18 -e "(set-lily-option 'midi-debug #t)'
20 [niet voor niets tiepo in 139 announs..]
23 /* Write midi as formatted ascii stream? */
24 bool midi_debug_global_b
;
29 Todo: print help text.
32 other interesting stuff to add:
34 @item -T,--no-timestamps
35 don't timestamp the output
38 Switch on any experimental features. Not for general public use.
43 set_lily_option (SCM var
, SCM val
)
45 if (var
== ly_symbol2scm ("midi-debug"))
47 midi_debug_global_b
= to_boolean (val
);
49 else if (var
== ly_symbol2scm ("find-old-relative"))
52 Seems to have been broken for some time!
54 @item -Q,--find-old-relative
55 show all changes needed to convert a file to relative octave syntax.
65 return SCM_UNSPECIFIED
;
72 scm_make_gsubr ("set-lily-option", 2, 0, 0, (Scheme_function_unknown
)set_lily_option
);
76 ADD_SCM_INIT_FUNC (init_functions_sopt
, init_functions
);