;; - [subject-]-verb-object-object
(anti-alias-factor 1 "render at higher resolution and scale down result\nto prevent jaggies in PNG")
+ (backend ps "which backend to use by default; Options: eps, ps [default], scm, svg, tex, texstr)")
(check-internal-types #f "check every property assignment for types")
(clip-systems #f "Generate cut-out snippets of a score")
+ (datadir #f "LilyPond prefix for data files (Readonly).")
(debug-gc #f "dump memory debugging statistics")
(debug-gc-assert-parsed-dead #f "for memory debugging:
ensure that all refs to parsed objects are dead. This is an internal option, and is switched on automatically for -ddebug-gc.")
(debug-lexer #f "debug the flex lexer")
+ (debug-page-breaking-scoring #f "dump scores for many different page breaking configurations")
(debug-parser #f "debug the bison parser")
+ (debug-property-callbacks #f "debug cyclic callback chains")
(debug-skylines #f "debug skylines")
(delete-intermediate-files #f
"delete unusable PostScript files")
(point-and-click #t "use point & click")
(paper-size "a4" "the default paper size")
(pixmap-format "png16m" "GS format to use for pixel images")
+ (preview #f "make a incipit image. ")
+ (print-pages #t "print pages normally. ")
(protected-scheme-parsing #t "continue when finding errors in inline
scheme are caught in the parser. If off, halt
on errors, and print a stack trace.")
(coverage:enable))
(define-public tex-backend?
- (member (ly:output-backend) '("texstr" "tex")))
+ (member (ly:get-option 'backend) '(texstr tex)))
(define-public parser #f)
(define-public (lilypond-main files)
"Entry point for LilyPond."
- (define (no-files-handler)
- (ly:usage)
- (exit 2))
(eval-string (ly:command-line-code))
+
+ (if (ly:get-option 'help)
+ (begin
+ (ly:option-usage)
+ (exit 0)))
+
+ (if (ly:get-option 'show-available-fonts)
+ (begin
+ (ly:font-config-display-fonts)
+ (exit 0)
+ ))
+
(if (ly:get-option 'gui)
(gui-main files))
(if (null? files)
- (no-files-handler))
+ (begin
+ (ly:usage)
+ (exit 2)))
(if (ly:get-option 'read-file-list)
(set! files
(exit 0)))))
(define-public (lilypond-all files)
- (if (ly:get-option 'help)
- (begin
- (ly:option-usage)
- (exit 0)))
- (if (ly:get-option 'show-available-fonts)
- (begin
- (ly:font-config-display-fonts)
- (exit 0)
- ))
-
(let* ((failed '())
(separate-logs (ly:get-option 'separate-log-files))
(do-measurements (ly:get-option 'dump-profile))