ignore @var{thunk} and instead just reinitialize all recorded
variables to their value after the initial call of @var{thunk}."
ignore @var{thunk} and instead just reinitialize all recorded
variables to their value after the initial call of @var{thunk}."
-;; We need to save the variables of the current module along with
-;; their values: functions defined in the module might refer to the
-;; variables.
+ ;; We need to save the variables of the current module along with
+ ;; their values: functions defined in the module might refer to the
+ ;; variables.
-;; The entries in lilypond-declarations consist of a cons* consisting
-;; of symbol, variable, and value. Variables defined with
-;; define-session have the symbol set to #f.
+ ;; The entries in lilypond-declarations consist of a cons* consisting
+ ;; of symbol, variable, and value. Variables defined with
+ ;; define-session have the symbol set to #f.
'ps, 'scm, 'socket, 'svg.")
'ps, 'scm, 'socket, 'svg.")
- (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 (read-only).")
- (debug-gc #f
-"Dump memory debugging statistics.")
- (debug-gc-assert-parsed-dead #f
-"For memory debugging: Ensure that all
+ (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 (read-only).")
+ (debug-gc
+ #f
+ "Dump memory debugging statistics.")
+ (debug-gc-assert-parsed-dead
+ #f
+ "For memory debugging: Ensure that all
references to parsed objects are dead. This is
an internal option, and is switched on
automatically for `-ddebug-gc'.")
references 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
+ (debug-lexer
+ #f
+ "Debug the flex lexer.")
+ (debug-page-breaking-scoring
+ #f
+ "Dump scores for many different page breaking
- (debug-parser #f
-"Debug the bison parser.")
- (debug-property-callbacks #f
-"Debug cyclic callback chains.")
- (debug-skylines #f
-"Debug skylines.")
- (delete-intermediate-files #t
-"Delete unusable, intermediate PostScript files.")
- (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
+ (debug-parser
+ #f
+ "Debug the bison parser.")
+ (debug-property-callbacks
+ #f
+ "Debug cyclic callback chains.")
+ (debug-skylines
+ #f
+ "Debug skylines.")
+ (delete-intermediate-files
+ #t
+ "Delete unusable, intermediate PostScript files.")
+ (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
- (gs-load-fonts #f
-"Load fonts via Ghostscript.")
- (gs-load-lily-fonts #f
-"Load only LilyPond fonts via Ghostscript.")
- (gui #f
-"Run LilyPond from a GUI and redirect stderr to
+ (gs-load-fonts
+ #f
+ "Load fonts via Ghostscript.")
+ (gs-load-lily-fonts
+ #f
+ "Load only LilyPond fonts via Ghostscript.")
+ (gui
+ #f
+ "Run LilyPond from a GUI and redirect stderr to
- (help #f
-"Show this help.")
- (include-book-title-preview #t
-"Include book titles in preview images.")
- (include-eps-fonts #t
-"Include fonts in separate-system EPS files.")
- (include-settings #f
-"Include file for global settings, included before the score is processed.")
- (job-count #f
-"Process in parallel, using the given number of
+ (help
+ #f
+ "Show this help.")
+ (include-book-title-preview
+ #t
+ "Include book titles in preview images.")
+ (include-eps-fonts
+ #t
+ "Include fonts in separate-system EPS files.")
+ (include-settings
+ #f
+ "Include file for global settings, included before the score is processed.")
+ (job-count
+ #f
+ "Process in parallel, using the given number of
assume it will not terminate on its own, print a warning and return a
null markup instead.")
(midi-extension ,(if (eq? PLATFORM 'windows)
"mid"
"midi")
assume it will not terminate on its own, print a warning and return a
null markup instead.")
(midi-extension ,(if (eq? PLATFORM 'windows)
"mid"
"midi")
- (point-and-click #t
-"Add point & click links to PDF output.")
- (paper-size "a4"
-"Set default paper size.")
- (pixmap-format "png16m"
-"Set GhostScript's output format for pixel images.")
- (preview #f
-"Create preview images also.")
- (print-pages #t
-"Print pages in the normal way.")
- (protected-scheme-parsing #t
-"Continue when errors in inline scheme are caught
+ (point-and-click
+ #t
+ "Add point & click links to PDF output.")
+ (paper-size
+ "a4"
+ "Set default paper size.")
+ (pixmap-format
+ "png16m"
+ "Set GhostScript's output format for pixel images.")
+ (preview
+ #f
+ "Create preview images also.")
+ (print-pages
+ #t
+ "Print pages in the normal way.")
+ (protected-scheme-parsing
+ #t
+ "Continue when errors in inline scheme are caught
- (profile-property-accesses #f
-"Keep statistics of get_property() calls.")
- (resolution 101
-"Set resolution for generating PNG pixmaps to
+ (profile-property-accesses
+ #f
+ "Keep statistics of get_property() calls.")
+ (resolution
+ 101
+ "Set resolution for generating PNG pixmaps to
- (relative-includes #f
-"When processing an \\include command, look for
-the included file relative to the current file
-(instead of the root file)")
- (safe #f
-"Run in safer mode.")
- (separate-log-files #f
-"For input files `FILE1.ly', `FILE2.ly', ...
+ (relative-includes
+ #f
+ "When processing an \\include command, look for
+the included file relative to the current file\
+\n(instead of the root file)")
+ (safe
+ #f
+ "Run in safer mode.")
+ (separate-log-files
+ #f
+ "For input files `FILE1.ly', `FILE2.ly', ...
- (show-available-fonts #f
-"List available font names.")
- (strict-infinity-checking #f
-"Force a crash on encountering Inf and NaN
+ (show-available-fonts
+ #f
+ "List available font names.")
+ (strict-infinity-checking
+ #f
+ "Force a crash on encountering Inf and NaN
- (svg-woff #f
-"Use woff font files in SVG backend.")
- (trace-memory-frequency #f
-"Record Scheme cell usage this many times per
+ (svg-woff
+ #f
+ "Use woff font files in SVG backend.")
+ (trace-memory-frequency
+ #f
+ "Record Scheme cell usage this many times per
-"Verbose output, i.e. loglevel at least DEBUG (read-only).")
- (warning-as-error #f
-"Change all warning and programming_error
+ "Verbose output, i.e. loglevel at least DEBUG (read-only).")
+ (warning-as-error
+ #f
+ "Change all warning and programming_error
- ((guile-v2)
- (ly:debug (_ "Using (ice-9 curried-definitions) module\n"))
- (use-modules (ice-9 curried-definitions)))
- (else
- (ly:debug (_ "Guile 1.8\n"))))
+ ((guile-v2)
+ (ly:debug (_ "Using (ice-9 curried-definitions) module\n"))
+ (use-modules (ice-9 curried-definitions)))
+ (else
+ (ly:debug (_ "Guile 1.8\n"))))
;; TODO add in modules for V1.8.7 deprecated in V2.0 and integrated
;; into Guile base code, like (ice-9 syncase).
;; TODO add in modules for V1.8.7 deprecated in V2.0 and integrated
;; into Guile base code, like (ice-9 syncase).
(define-public guile-predicates
`((,hash-table? . "hash table")
(define-public guile-predicates
`((,hash-table? . "hash table")
(define-public lilypond-scheme-predicates
`((,boolean-or-symbol? . "boolean or symbol")
(define-public lilypond-scheme-predicates
`((,boolean-or-symbol? . "boolean or symbol")
(,number-or-pair? . "number or pair")
(,number-or-string? . "number or string")
(,number-pair? . "pair of numbers")
(,number-or-pair? . "number or pair")
(,number-or-string? . "number or string")
(,number-pair? . "pair of numbers")
(,rhythmic-location? . "rhythmic location")
(,scheme? . "any type")
(,string-or-pair? . "string or pair")
(,rhythmic-location? . "rhythmic location")
(,scheme? . "any type")
(,string-or-pair? . "string or pair")
- (out-file-name (string-append
- "gcstat-" (number->string gc-protect-stat-count)
- ".scm"))
- (outfile (open-file out-file-name "w")))
+ (out-file-name (string-append
+ "gcstat-" (number->string gc-protect-stat-count)
+ ".scm"))
+ (outfile (open-file out-file-name "w")))
- (for-each
- (lambda (x)
- (if (not (hashq-ref gc-zombies x))
- (begin
- (ly:programming-error "Parsed object should be dead: ~a" x)
- (hashq-set! gc-zombies x #t))))
- (ly:parsed-undead-list!))
+ (for-each
+ (lambda (x)
+ (if (not (hashq-ref gc-zombies x))
+ (begin
+ (ly:programming-error "Parsed object should be dead: ~a" x)
+ (hashq-set! gc-zombies x #t))))
+ (ly:parsed-undead-list!))
(set! stats (gc-live-object-stats))
(ly:progress "Dumping live object statistics.\n")
(dump-live-object-stats outfile)))
(set! stats (gc-live-object-stats))
(ly:progress "Dumping live object statistics.\n")
(dump-live-object-stats outfile)))
(if (and (number? (ly:get-option 'job-count))
(>= (length files) (ly:get-option 'job-count)))
(let* ((count (ly:get-option 'job-count))
(if (and (number? (ly:get-option 'job-count))
(>= (length files) (ly:get-option 'job-count)))
(let* ((count (ly:get-option 'job-count))
- errors)
- (if (pair? errors)
- (ly:error "Children ~a exited with errors."
- (map car errors)))
- ;; must overwrite individual entries
- (if (ly:get-option 'dump-profile)
- (dump-profile "lily-run-total"
- '(0 0) (profile-measurements)))
- (if (null? errors)
- (ly:exit 0 #f)
- (ly:exit 1 #f))))))
+ errors)
+ (if (pair? errors)
+ (ly:error "Children ~a exited with errors."
+ (map car errors)))
+ ;; must overwrite individual entries
+ (if (ly:get-option 'dump-profile)
+ (dump-profile "lily-run-total"
+ '(0 0) (profile-measurements)))
+ (if (null? errors)
+ (ly:exit 0 #f)
+ (ly:exit 1 #f))))))
(if (string-or-symbol? (ly:get-option 'log-file))
(ly:stderr-redirect (format #f "~a.log" (ly:get-option 'log-file)) "w"))
(if (string-or-symbol? (ly:get-option 'log-file))
(ly:stderr-redirect (format #f "~a.log" (ly:get-option 'log-file)) "w"))