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--2014 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2014 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 822 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
833 (simple-format #f "~a/~a" (dirname file) | 833 (simple-format #f "~a/~a" (dirname file) |
834 (fold inverse-basename file rest))) | 834 (fold inverse-basename file rest))) |
835 | 835 |
836 (define-public (write-me message x) | 836 (define-public (write-me message x) |
837 "Return @var{x}. Display @var{message} and write @var{x}. | 837 "Return @var{x}. Display @var{message} and write @var{x}. |
838 Handy for debugging, possibly turned off." | 838 Handy for debugging, possibly turned off." |
839 (display message) (write x) (newline) x) | 839 (display message) (write x) (newline) x) |
840 ;; x) | 840 ;; x) |
841 | 841 |
842 (define-public (stderr string . rest) | 842 (define-public (stderr string . rest) |
843 (apply format (cons (current-error-port) (cons string rest))) | 843 (apply format (current-error-port) string rest) |
844 (force-output (current-error-port))) | 844 (force-output (current-error-port))) |
845 | 845 |
846 (define-public (debugf string . rest) | 846 (define-public (debugf string . rest) |
847 (if #f | 847 (if #f |
848 (apply stderr (cons string rest)))) | 848 (apply stderr string rest))) |
849 | 849 |
850 (define (index-cell cell dir) | 850 (define (index-cell cell dir) |
851 (if (equal? dir 1) | 851 (if (equal? dir 1) |
852 (cdr cell) | 852 (cdr cell) |
853 (car cell))) | 853 (car cell))) |
854 | 854 |
855 (define (cons-map f x) | 855 (define (cons-map f x) |
856 "map F to contents of X" | 856 "map F to contents of X" |
857 (cons (f (car x)) (f (cdr x)))) | 857 (cons (f (car x)) (f (cdr x)))) |
858 | 858 |
(...skipping 128 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
987 (debugf "scaling:~S\n" scaling) | 987 (debugf "scaling:~S\n" scaling) |
988 (debugf "magnification:~S\n" magnification) | 988 (debugf "magnification:~S\n" magnification) |
989 (debugf "design:~S\n" designsize) | 989 (debugf "design:~S\n" designsize) |
990 scaling)) | 990 scaling)) |
991 | 991 |
992 (define-public (version-not-seen-message input-file-name) | 992 (define-public (version-not-seen-message input-file-name) |
993 (ly:warning-located | 993 (ly:warning-located |
994 (ly:format "~a:1" input-file-name) | 994 (ly:format "~a:1" input-file-name) |
995 (_ "no \\version statement found, please add~afor future compatibility") | 995 (_ "no \\version statement found, please add~afor future compatibility") |
996 (format #f "\n\n\\version ~s\n\n" (lilypond-version)))) | 996 (format #f "\n\n\\version ~s\n\n" (lilypond-version)))) |
OLD | NEW |