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--2012 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2012 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 827 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
838 (flush-all-ports))) | 838 (flush-all-ports))) |
839 files) | 839 files) |
840 | 840 |
841 ;; Ensure a notice re failed files is written to aggregate logfile. | 841 ;; Ensure a notice re failed files is written to aggregate logfile. |
842 (if ping-log | 842 (if ping-log |
843 (format ping-log "Failed files: ~a\n" failed)) | 843 (format ping-log "Failed files: ~a\n" failed)) |
844 (if (ly:get-option 'dump-profile) | 844 (if (ly:get-option 'dump-profile) |
845 (dump-profile "lily-run-total" '(0 0) (profile-measurements))) | 845 (dump-profile "lily-run-total" '(0 0) (profile-measurements))) |
846 failed)) | 846 failed)) |
847 | 847 |
| 848 (define-public lilypond-declarations '()) |
| 849 |
848 (define (lilypond-file handler file-name) | 850 (define (lilypond-file handler file-name) |
849 (catch 'ly-file-failed | 851 (catch 'ly-file-failed |
850 (lambda () (ly:parse-file file-name)) | 852 (lambda () (ly:parse-file file-name)) |
851 (lambda (x . args) (handler x file-name)))) | 853 (lambda (x . args) (handler x file-name)))) |
852 | 854 |
853 (use-modules (scm editor)) | 855 (use-modules (scm editor)) |
854 | 856 |
855 (define-public (gui-main files) | 857 (define-public (gui-main files) |
856 (if (null? files) | 858 (if (null? files) |
857 (gui-no-files-handler)) | 859 (gui-no-files-handler)) |
(...skipping 16 matching lines...) Expand all Loading... |
874 (ly:exit 0 #f))))) | 876 (ly:exit 0 #f))))) |
875 | 877 |
876 (define (gui-no-files-handler) | 878 (define (gui-no-files-handler) |
877 (let* ((ly (string-append (ly:effective-prefix) "/ly/")) | 879 (let* ((ly (string-append (ly:effective-prefix) "/ly/")) |
878 ;; FIXME: soft-code, localize | 880 ;; FIXME: soft-code, localize |
879 (welcome-ly (string-append ly "Welcome_to_LilyPond.ly")) | 881 (welcome-ly (string-append ly "Welcome_to_LilyPond.ly")) |
880 (cmd (get-editor-command welcome-ly 0 0 0))) | 882 (cmd (get-editor-command welcome-ly 0 0 0))) |
881 (ly:message (_ "Invoking `~a'...\n") cmd) | 883 (ly:message (_ "Invoking `~a'...\n") cmd) |
882 (system cmd) | 884 (system cmd) |
883 (ly:exit 1 #f))) | 885 (ly:exit 1 #f))) |
OLD | NEW |