OLD | NEW |
1 #!@GUILE@ -s | 1 #!@GUILE@ -s |
2 !# | 2 !# |
3 ;;;; lilypond-invoke-editor.scm -- Invoke an editor in file:line:column mode | 3 ;;;; lilypond-invoke-editor.scm -- Invoke an editor in file:line:column mode |
4 | 4 |
5 ;;;; Copyright (C) 2005--2019 Jan Nieuwenhuizen <janneke@gnu.org> | 5 ;;;; Copyright (C) 2005--2019 Jan Nieuwenhuizen <janneke@gnu.org> |
6 | 6 |
7 ;;;; This file is part of LilyPond, the GNU music typesetter. | 7 ;;;; This file is part of LilyPond, the GNU music typesetter. |
8 ;;;; | 8 ;;;; |
9 ;;;; LilyPond is free software: you can redistribute it and/or modify | 9 ;;;; LilyPond is free software: you can redistribute it and/or modify |
10 ;;;; it under the terms of the GNU General Public License as published by | 10 ;;;; it under the terms of the GNU General Public License as published by |
(...skipping 149 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
160 (getenv "TEMP")) | 160 (getenv "TEMP")) |
161 (or (getenv "TMPDIR") | 161 (or (getenv "TMPDIR") |
162 "/tmp")) | 162 "/tmp")) |
163 "/lilypond-invoke-editor.log") "a"))) | 163 "/lilypond-invoke-editor.log") "a"))) |
164 (if (not (= (length files) 1)) | 164 (if (not (= (length files) 1)) |
165 (begin | 165 (begin |
166 (show-help (current-error-port)) | 166 (show-help (current-error-port)) |
167 (exit 2))) | 167 (exit 2))) |
168 (set! %load-path (cons LILYPOND_DATADIR %load-path)) | 168 (set! %load-path (cons LILYPOND_DATADIR %load-path)) |
169 | 169 |
170 (primitive-eval '(use-modules (scm editor))) | 170 (primitive-eval '(use-modules (scm-modules editor))) |
171 | 171 |
172 (strip-framework-path "LD_LIBRARY_PATH") | 172 (strip-framework-path "LD_LIBRARY_PATH") |
173 (let* ((uri (car files))) | 173 (let* ((uri (car files))) |
174 (if (is-textedit-uri? uri) | 174 (if (is-textedit-uri? uri) |
175 (run-editor uri) | 175 (run-editor uri) |
176 (run-browser uri))))) | 176 (run-browser uri))))) |
177 | 177 |
178 (main (command-line)) | 178 (main (command-line)) |
OLD | NEW |