;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2007 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;; Internationalisation: (_i "to be translated") gets an entry in the
(read-enable 'positions)
(debug-enable 'debug)
-
-
(define scheme-options-definitions
`(
(debug-skylines #f "debug skylines")
(delete-intermediate-files #f
"delete unusable PostScript files")
- (dump-profile #f "dump timing information for each file")
+ (dump-profile #f "dump memory and time information for each file")
+ (dump-cpu-profile #f "dump timing information (system-dependent)")
(dump-signatures #f "dump output signatures of each system. Used for regression testing.")
(eps-box-padding #f "Pad EPS bounding box left edge. Guarantee alignment between systems in LaTeX.")
(gs-load-fonts #f
"load fonts via Ghostscript.")
+ (gs-load-lily-fonts #f
+ "load only lilypond fonts via Ghostscript.")
(gui #f "running from gui; redirect stderr to log file")
(help #f "show this help.")
(include-book-title-preview #t "include book-titles in preview images.")
(use-modules (ice-9 regex)
(ice-9 safe)
+ (ice-9 format)
(ice-9 rdelim)
(ice-9 optargs)
(oop goops)
(scm memory-trace)
(scm coverage)
)
+(define-public fancy-format format)
+(define-public (ergonomic-simple-format dest . rest)
+ "Like ice-9 format, but without the memory consumption."
+
+ (if (string? dest)
+ (apply simple-format (cons #f (cons dest rest)))
+ (apply simple-format (cons dest rest))))
+
+(define format ergonomic-simple-format)
;; my display
(define-public (myd k v) (display k) (display ": ") (display v) (display ", ")
(define-public parser #f)
-(define-public (lilypond-version)
- (string-join
- (map (lambda (x) (if (symbol? x)
- (symbol->string x)
- (number->string x)))
- (ly:version))
- "."))
-
;; TeX C++ code actually hooks into TEX_STRING_HASHLIMIT
(define-public TEX_STRING_HASHLIMIT 10000000)
safe-objects))
,safe-symbol)))
+(define-safe-public (lilypond-version)
+ (string-join
+ (map (lambda (x) (if (symbol? x)
+ (symbol->string x)
+ (number->string x)))
+ (ly:version))
+ "."))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; init pitch system
(ly:progress "\nWriting timing to ~a..." outname)
(format (open-file outname "w")
"time: ~a\ncells: ~a\n"
- (car diff)
+ (if (ly:get-option 'dump-cpu-profile)
+ (car diff)
+ 0)
(cadr diff)
)))