--- /dev/null
+#!/bin/sh
+# via scm wrapper
+
+foo=lilypond.$$
+trap "rm $foo" 1 2 15
+touch lilypond.$$
+
+$LILYPONDPREFIX/lily/out/lilypond -f scm $*
+scm=`find . -maxdepth 1 -cnewer $foo -and -name '*.scm'`
+for i in $scm; do
+ dir=`dirname $i`
+ base=`basename $i .scm`
+ file=$dir/$base.tex
+ rm -f $file
+ guile -s $i > $file
+done
+rm -f $scm
+rm $foo
{":|", ":|:", "|:"},
{"|", "|", ""},
{"", "|s", "|"},
- {"", "|:", "|:"},
+ {"|", "|:", "|:"},
{"|.", "|.", ""},
{":|", ":|", ""},
{"||", "||", ""},
void
Paper_stream::break_line ()
{
+ // aaargh
*os << "%\n";
*os << to_str (' ', nest_level);
line_len_i_ = 0;
arithmetic_multiplier = 4.8\pt;
texsetting = "\\input lilyponddefs \\musixsixteendefs ";
pssetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n";
- scmsetting = "(display \"(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\");\n";
- scmsetting = "(display \"\\\\input lilyponddefs \\\\musixsixteendefs\");\n";
+ scmsetting = "\"(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\";\n";
+ scmsetting = "\"\\\\input lilyponddefs \\\\musixsixteendefs\";\n";
0 = \font "feta16"
-1 = \font "feta13"
texsetting = "\\input lilyponddefs \\musixtwentydefs ";
pssetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n";
% urg, debugging only
- scmsetting = "(display \"(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\");\n";
- scmsetting = "(display \"\\\\input lilyponddefs \\\\musixtwentydefs\");\n";
+ scmsetting = "\"(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\";\n";
+ scmsetting = "\"\\\\input lilyponddefs \\\\musixtwentydefs\";\n";
-2 = \font "feta13"
-1 = \font "feta16"