From c8773484f4828bcea57db6d8b7037a3aa78910cf Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 26 Nov 2006 18:34:04 +0100 Subject: [PATCH] tweaks for -djob-count. Move -dread-file-list processing before -djob-count --- scm/lily.scm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/scm/lily.scm b/scm/lily.scm index 30d8e6b1aa..472c42b7ef 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -428,6 +428,15 @@ The syntax is the same as `define*-public'." (if (null? files) (no-files-handler)) + (if (ly:get-option 'read-file-list) + (set! files + (filter (lambda (s) + (> (string-length s) 0)) + (apply append + (map (lambda (f) (string-split (ly:gulp-file f) #\nl)) + files))) + )) + (if (and (number? (ly:get-option 'job-count)) (> (length files) (ly:get-option 'job-count))) @@ -447,6 +456,7 @@ The syntax is the same as `define*-public'." (set! files (vector-ref split-todo joblist))) (begin + (ly:progress "\nForking into jobs: ~a\n" joblist) (for-each (lambda (pid) (let* ((stat (cdr (waitpid pid)))) @@ -461,7 +471,7 @@ The syntax is the same as `define*-public'." (ly:get-option 'log-file) x)) (log (ly:gulp-file logfile)) (len (string-length log)) - (tail (substring log (- len 1024)))) + (tail (substring log (max 0 (- len 1024))))) (display (format "\n\nlogfile ~a:\n\n ~a" logfile tail)))) @@ -487,14 +497,7 @@ The syntax is the same as `define*-public'." (exit 0))))) (define-public (lilypond-all files) - (if (ly:get-option 'read-file-list) - (set! files - (filter (lambda (s) - (> (string-length s) 0)) - (apply append - (map (lambda (f) (string-split (ly:gulp-file f) #\nl)) - files))) - )) + (if (ly:get-option 'show-available-fonts) (begin -- 2.39.2