From f5703dd33abe29573f14ed4f4253f8aed322709d Mon Sep 17 00:00:00 2001 From: fred Date: Wed, 27 Mar 2002 01:22:40 +0000 Subject: [PATCH] lilypond-1.3.148 --- Documentation/windows/gv.sh | 9 ---- Documentation/windows/ly2dvi.sh | 8 ---- lily/scheme-option.cc | 78 --------------------------------- 3 files changed, 95 deletions(-) delete mode 100644 Documentation/windows/gv.sh delete mode 100644 Documentation/windows/ly2dvi.sh delete mode 100644 lily/scheme-option.cc diff --git a/Documentation/windows/gv.sh b/Documentation/windows/gv.sh deleted file mode 100644 index 8346a38e8e..0000000000 --- a/Documentation/windows/gv.sh +++ /dev/null @@ -1,9 +0,0 @@ -#!/bin/bash -if echo | gsview32 -; then - cat < - - */ - -#include "lily-guile.hh" - -/* - TODO: mooie onschuldige test, en koel om allerleide dingen te kunnen zetten, - maar is dit nou wel handig voor gebruikert? - - -X, of -fps is hendiger dan - - -e "(set-lily-option 'midi-debug #t)' - - [niet voor niets tiepo in 139 announs..] - -*/ -/* Write midi as formatted ascii stream? */ -bool midi_debug_global_b; - - -/* - - Todo: print help text. - - - other interesting stuff to add: - -@item -T,--no-timestamps -don't timestamp the output - -@item -t,--test -Switch on any experimental features. Not for general public use. - - */ - -SCM -set_lily_option (SCM var, SCM val) -{ - if (var == ly_symbol2scm ("midi-debug")) - { - midi_debug_global_b = to_boolean (val); - } - else if (var == ly_symbol2scm ("find-old-relative")) - { - /* - Seems to have been broken for some time! - - @item -Q,--find-old-relative - show all changes needed to convert a file to relative octave syntax. - - - - */ - - ; - - } - - return SCM_UNSPECIFIED; -} - - -static void -init_functions () -{ - scm_make_gsubr ("set-lily-option", 2, 0, 0, (Scheme_function_unknown)set_lily_option); -} - - -ADD_SCM_INIT_FUNC (init_functions_sopt, init_functions); - - -- 2.39.5