1 ;;;; standalone.scm -- implement Scheme stuff for use without LilyPond
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
6 ;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 (define standalone (not (defined? 'ly:gulp-file)))
9 ;;(write standalone (current-error-port))
11 (define (gulp-file name)
12 (let* ((file (open-input-file name))
13 (text (read-delimited "" file)))
17 (define (scm-gulp-file name)
19 (cons (string-append (getenv 'LILYPONDPREFIX) "/ly")
20 (cons (string-append (getenv 'LILYPONDPREFIX) "/ps")
22 (let ((path (%search-load-path name)))
27 (define (scm-number->string x)
28 (let ((e (inexact->exact x)))
29 (string-append (if (= e x)
34 (define ly:gulp-file scm-gulp-file)
35 (define ly:number->string scm-number->string)
37 (eval-string (ly:gulp-file "lily.scm"))