PNG images.")
(backend ps
"Select backend. Possible values: 'eps, 'null,
-'ps, 'scm, 'svg.")
+'ps, 'scm, 'socket, 'svg.")
(check-internal-types #f
"Check every property assignment for types.")
(clip-systems #f
"Debug cyclic callback chains.")
(debug-skylines #f
"Debug skylines.")
- (delete-intermediate-files #f
+ (delete-intermediate-files #t
"Delete unusable, intermediate PostScript files.")
(dump-profile #f
"Dump memory and time information for each file.")
"List available font names.")
(verbose ,(ly:command-line-verbose?)
"Value of the --verbose flag (read-only).")
+ (warning-as-error #f
+"Change all warning and programming_error
+messages into errors.")
))
;; Need to do this in the beginning. Other parts of the Scheme
(if (ly:get-option 'trace-scheme-coverage)
(coverage:enable))
+(if (ly:get-option 'warning-as-error)
+ (begin
+ (set! ly:warning ly:error)
+ (set! ly:programming-error ly:error)))
+
(define-public parser #f)
(ly:error (_ "cannot find: ~A") x))
(primitive-load file-name)
(if (ly:get-option 'verbose)
- (ly:progress "]"))))
+ (ly:progress "]\n"))))
(define-public DOS
(let ((platform (string-tokenize
(recursion-helper (cdr signature) (cdr arguments) (1+ count)))))
(recursion-helper signature arguments 1))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; output
-
-;; (define-public (output-framework) (write "hello\n"))
-
-(define output-ps-module
- (make-module 1021 (list (resolve-interface '(scm output-ps)))))
-
-(define-public (ps-output-expression expr port)
- (display (eval expr output-ps-module) port))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Safe definitions utility
(for-each ly:load init-scheme-files)
(set! type-p-name-alist
- `((,boolean-or-symbol? . "boolean or symbol")
- (,boolean? . "boolean")
+ `((,boolean? . "boolean")
+ (,boolean-or-symbol? . "boolean or symbol")
(,char? . "char")
(,grob-list? . "list of grobs")
(,hash-table? . "hash table")
(,ly:dimension? . "dimension, in staff space")
(,ly:dir? . "direction")
(,ly:duration? . "duration")
+ (,ly:font-metric? . "font metric")
(,ly:grob? . "layout object")
+ (,ly:grob-array? . "array of grobs")
(,ly:input-location? . "input location")
(,ly:moment? . "moment")
(,ly:music? . "music")
+ (,ly:music-list? . "list of music objects")
+ (,ly:music-output? . "music output")
(,ly:pitch? . "pitch")
(,ly:translator? . "translator")
- (,ly:font-metric? . "font metric")
(,ly:simple-closure? . "simple closure")
+ (,ly:skyline-pair? . "pair of skylines")
+ (,ly:stencil? . "stencil")
(,markup-list? . "list of markups")
(,markup? . "markup")
- (,ly:music-list? . "list of music")
(,number-or-grob? . "number or grob")
(,number-or-string? . "number or string")
(,number-pair? . "pair of numbers")
(if separate-logs
(ly:stderr-redirect (format "~a.log" base) "w"))
(if ping-log
- (format ping-log "Procesing ~a\n" base))
+ (format ping-log "Processing ~a\n" base))
(if (ly:get-option 'trace-memory-frequency)
(mtrace:start-trace (ly:get-option 'trace-memory-frequency)))
(lilypond-file handler x)
;; FIXME: soft-code, localize
(welcome-ly (string-append ly "Welcome_to_LilyPond.ly"))
(cmd (get-editor-command welcome-ly 0 0 0)))
- (ly:message (_ "Invoking `~a'...") cmd)
+ (ly:message (_ "Invoking `~a'...\n") cmd)
(system cmd)
(exit 1)))