1 ;;;; lily.scm -- implement Scheme output routines for TeX and PostScript
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 1998--2001 Jan Nieuwenhuizen <janneke@gnu.org>
6 ;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 (use-modules (ice-9 regex))
12 ;;(write standalone (current-error-port))
16 (debug-enable 'backtrace)
19 (define point-and-click #f)
20 (define security-paranoia #f)
21 (define midi-debug #f)
23 (define (line-column-location line col file)
24 "Print an input location, including column number ."
25 (string-append (number->string line) ":"
26 (number->string col) " " file " ")
29 (define (line-location line col file)
30 "Print an input location, without column number ."
31 (string-append (number->string line) " " file)
35 (define default-script-alist '())
36 (define font-name-alist '())
38 (if (not (defined? 'standalone))
39 (define standalone (not (defined? 'ly-gulp-file))))
41 ;; The regex module may not be available, or may be broken.
43 (let ((os (string-downcase (vector-ref (uname) 0))))
44 (not (equal? "cygwin" (substring os 0 (min 6 (string-length os)))))))
46 ;; If you have trouble with regex, define #f
48 ;;(define use-regex #f)
53 ;; URG guile-1.3/1.4 compatibility
54 (define (ly-eval x) (eval2 x #f))
74 (map (lambda (x) (eval-string (ly-gulp-file x)))
82 (map (lambda (x) (eval-string (ly-gulp-file x)))
84 "grob-property-description.scm"
85 "translator-property-description.scm"
86 "interface-description.scm"
93 "generic-property.scm"
94 "basic-properties.scm"
96 "grob-description.scm"