(if (defined? 'set-debug-cell-accesses!)
(set-debug-cell-accesses! #f))
+;(set-debug-cell-accesses! 5000)
+
(use-modules (ice-9 regex)
(ice-9 safe)
(oop goops)
(debug-enable 'backtrace)
(read-enable 'positions)))
-(define-public (line-column-location line col file)
+(define-public (line-column-location file line col)
"Print an input location, including column number ."
(string-append (number->string line) ":"
(number->string col) " " file))
-(define-public (line-location line col file)
+(define-public (line-location file line col)
"Print an input location, without column number ."
(string-append (number->string line) " " file))
(define ifdef "First run this through cpp.")
(define ifndef "First run this through cpp.")
-
+;; gettext wrapper
+(define-public _ ly:gettext)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; parser stuff.
(define-public (print-music-as-book parser music)
- (let* ((score (ly:music-scorify music))
- (head (ly:parser-lookup parser '$globalheader))
- (book (ly:score-bookify score head)))
+ (let* ((head (ly:parser-lookup parser '$globalheader))
+ (book (ly:make-book (ly:parser-lookup parser $defaultbookpaper)
+ head score)))
(ly:parser-print-book parser book)))
(define-public (print-score-as-book parser score)
(let*
((head (ly:parser-lookup parser '$globalheader))
- (book (ly:score-bookify score head)))
-
+ (book (ly:make-book (ly:parser-lookup parser $defaultbookpaper)
+ head score)))
(ly:parser-print-book parser book)))
(define-public (print-score parser score)
(let* ((head (ly:parser-lookup parser '$globalheader))
- (book (ly:score-bookify score head)))
+ (book (ly:make-book (ly:parser-lookup parser $defaultbookpaper)
+ head score)))
(ly:parser-print-score parser book)))
-(define-public default-toplevel-music-handler print-music-as-book)
-(define-public default-toplevel-book-handler ly:parser-print-book)
-(define-public default-toplevel-score-handler print-score-as-book)
+(define-public (collect-scores-for-book parser score)
+ (let*
+ ((oldval (ly:parser-lookup parser 'toplevel-scores)))
+ (ly:parser-define parser 'toplevel-scores (cons score oldval))
+ ))
+(define-public (collect-music-for-book parser music)
+ (collect-scores-for-book parser (ly:music-scorify music)))
+
;;;;;;;;;;;;;;;;
; alist
(define-public (assoc-get key alist . default)
(define-public (write-me message x)
- "Return X. Display MESSAGE and write X. Handy for debugging, possibly turned off."
+ "Return X. Display MESSAGE and write X. Handy for debugging,
+possibly turned off."
(display message) (write x) (newline) x)
;; x)
text
tuplet
white-dot
+ white-text
zigzag-line
))
-;; TODO: generate this list by registering the output-backend-commands
-;; output-backend-commands should have docstrings.
+;; TODO:
+;; - generate this list by registering the output-backend-commands
+;; output-backend-commands should have docstrings.
+;; - remove hard copies in output-ps output-tex
(define-public (ly:all-output-backend-commands)
"Return list of output backend commands."
'(
comment
- define-origin
+ grob-cause
no-origin
placebox
unknown
(outfile (open-file (string-append
"gcstat-" (number->string gc-protect-stat-count)
".scm"
- ) "w"))
- )
+ ) "w")))
(display "DUMPING...\n")
(display
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-public (postscript->pdf papersize name)
+ (let* ((cmd (string-append "ps2pdf -sPAPERSIZE=" papersize " " name))
+ (output-name
+ (regexp-substitute/global #f "\\.ps" name 'pre ".pdf" 'post)))
+
+ (newline (current-error-port))
+ (display (format (_ "Converting to `~a'...") output-name)
+ (current-error-port))
+ (newline (current-error-port))
+
+ (if (ly:get-option 'verbose)
+ (display (format "Invoking `~a'..." cmd) (current-error-port)))
+
+ (system cmd)))
+
+(define-public (postscript->png resolution name)
+ (let
+ ((cmd (string-append
+ "ps2png --resolution="
+ (if (number? resolution)
+ (number->string resolution)
+ "90")
+ (if (ly:get-option 'verbose)
+ "--verbose "
+ " ")
+ name)))
+ (if (ly:get-option 'verbose)
+ (begin
+ (display (format (_ "Invoking `~a'...") cmd) (current-error-port))
+ (newline (current-error-port))))
+ (system cmd)))
+
(define-public (lilypond-main files)
"Entry point for LilyPond."
(let* ((failed '())
(handler (lambda (key arg) (set! failed (cons arg failed)))))
(for-each
- (lambda (f) (catch 'ly-file-failed (lambda () (ly:parse-file f)) handler))
+ (lambda (f)
+ (catch 'ly-file-failed (lambda () (ly:parse-file f)) handler)
+;;; (dump-gc-protects)
+ )
files)
(if (pair? failed)
(begin
- (display
- (string-append "\n *** Failed files: " (string-join failed) "\n"))
+ (newline (current-error-port))
+ (display (_ "error: failed files: ") (current-error-port))
+ (display (string-join failed) (current-error-port))
+ (newline (current-error-port))
+ (newline (current-error-port))
(exit 1))
(exit 0))))
-