OLD | NEW |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 1998--2020 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2020 Jan Nieuwenhuizen <janneke@gnu.org> |
4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 ;;;; | 5 ;;;; |
6 ;;;; LilyPond is free software: you can redistribute it and/or modify | 6 ;;;; LilyPond is free software: you can redistribute it and/or modify |
7 ;;;; it under the terms of the GNU General Public License as published by | 7 ;;;; it under the terms of the GNU General Public License as published by |
8 ;;;; the Free Software Foundation, either version 3 of the License, or | 8 ;;;; the Free Software Foundation, either version 3 of the License, or |
9 ;;;; (at your option) any later version. | 9 ;;;; (at your option) any later version. |
10 ;;;; | 10 ;;;; |
(...skipping 943 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
954 (gui-main files)) | 954 (gui-main files)) |
955 (if (null? files) | 955 (if (null? files) |
956 (begin (ly:usage) | 956 (begin (ly:usage) |
957 (ly:exit 2 #t))) | 957 (ly:exit 2 #t))) |
958 (if (ly:get-option 'read-file-list) | 958 (if (ly:get-option 'read-file-list) |
959 (set! files | 959 (set! files |
960 (remove string-null? | 960 (remove string-null? |
961 (append-map | 961 (append-map |
962 (lambda (f) | 962 (lambda (f) |
963 (string-split | 963 (string-split |
964 (if (guile-v2) | 964 (if (guile-v2) |
965 (string-delete #\cr (ly:gulp-file f)) | 965 (string-delete #\cr (ly:gulp-file f)) |
966 (string-delete (ly:gulp-file f) #\cr)) | 966 (string-delete (ly:gulp-file f) #\cr)) |
967 #\nl)) | 967 #\nl)) |
968 files)))) | 968 files)))) |
969 (if (and (number? (ly:get-option 'job-count)) | 969 (if (and (number? (ly:get-option 'job-count)) |
970 (>= (length files) (ly:get-option 'job-count))) | 970 (>= (length files) (ly:get-option 'job-count))) |
971 (let* ((count (ly:get-option 'job-count)) | 971 (let* ((count (ly:get-option 'job-count)) |
972 (split-todo (split-list files count)) | 972 (split-todo (split-list files count)) |
973 (joblist (multi-fork count)) | 973 (joblist (multi-fork count)) |
974 (errors '())) | 974 (errors '())) |
975 (if (not (string-or-symbol? (ly:get-option 'log-file))) | 975 (if (not (string-or-symbol? (ly:get-option 'log-file))) |
976 (ly:set-option 'log-file "lilypond-multi-run")) | 976 (ly:set-option 'log-file "lilypond-multi-run")) |
977 (if (number? joblist) | 977 (if (number? joblist) |
(...skipping 139 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1117 (ly:exit 0 #f))))) | 1117 (ly:exit 0 #f))))) |
1118 | 1118 |
1119 (define (gui-no-files-handler) | 1119 (define (gui-no-files-handler) |
1120 (let* ((ly (string-append (ly:effective-prefix) "/ly/")) | 1120 (let* ((ly (string-append (ly:effective-prefix) "/ly/")) |
1121 ;; FIXME: soft-code, localize | 1121 ;; FIXME: soft-code, localize |
1122 (welcome-ly (string-append ly "Welcome_to_LilyPond.ly")) | 1122 (welcome-ly (string-append ly "Welcome_to_LilyPond.ly")) |
1123 (cmd (get-editor-command welcome-ly 0 0 0))) | 1123 (cmd (get-editor-command welcome-ly 0 0 0))) |
1124 (ly:message (_ "Invoking `~a'...\n") cmd) | 1124 (ly:message (_ "Invoking `~a'...\n") cmd) |
1125 (system cmd) | 1125 (system cmd) |
1126 (ly:exit 1 #f))) | 1126 (ly:exit 1 #f))) |
OLD | NEW |