OLD | NEW |
1 ;;;; Common note names in various languages. | 1 ;;;; Common note names in various languages. |
2 ;;;; This file is part of LilyPond, the GNU music typesetter. | 2 ;;;; This file is part of LilyPond, the GNU music typesetter. |
3 ;;;; | 3 ;;;; |
4 ;;;; Copyright (C) 2010--2015 Valentin Villenave <valentin@villenave.net> et al: | 4 ;;;; Copyright (C) 2010--2015 Valentin Villenave <valentin@villenave.net> et al: |
5 ;;;; | 5 ;;;; |
6 ;;;; Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> (Nederlands) | 6 ;;;; Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> (Nederlands) |
7 ;;;; Copyright (C) 1998--2015 Jaume Obrador <jobrador@ipc4.uib.es> (Catalan) | 7 ;;;; Copyright (C) 1998--2015 Jaume Obrador <jobrador@ipc4.uib.es> (Catalan) |
8 ;;;; Copyright (C) 1997--2015 Roland Meier <meier@informatik.th-darmstadt.de> | 8 ;;;; Copyright (C) 1997--2015 Roland Meier <meier@informatik.th-darmstadt.de> |
9 ;;;; Bjoern Jacke <bjoern.jacke@gmx.de> (Deutsch) | 9 ;;;; Bjoern Jacke <bjoern.jacke@gmx.de> (Deutsch) |
10 ;;;; Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> (English) | 10 ;;;; Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> (English) |
(...skipping 15 matching lines...) Expand all Loading... |
26 ;;;; LilyPond is distributed in the hope that it will be useful, | 26 ;;;; LilyPond is distributed in the hope that it will be useful, |
27 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 27 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
28 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 28 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
29 ;;;; GNU General Public License for more details. | 29 ;;;; GNU General Public License for more details. |
30 ;;;; | 30 ;;;; |
31 ;;;; You should have received a copy of the GNU General Public License | 31 ;;;; You should have received a copy of the GNU General Public License |
32 ;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>. | 32 ;;;; along with LilyPond. If not, see <http://www.gnu.org/licenses/>. |
33 | 33 |
34 | 34 |
35 ;;; Variable declaration | 35 ;;; Variable declaration |
36 (define-public pitchnames '()) | 36 (define-session-public pitchnames '()) |
37 (define-public default-language "") | 37 (define-session-public default-language "") |
38 (define-public previous-pitchnames #f) | 38 (define-session-public previous-pitchnames #f) |
39 | 39 |
40 (define-public language-pitch-names | 40 ;;; A bit out of place, but we don't have a good place elsewhere in |
| 41 ;;; scm since it is only filled in ly/drumpitch-init.ly and we need it |
| 42 ;;; in (scm lily) in order to access it in ly/parser.yy. |
| 43 (define-session-public drumPitchNames '()) |
| 44 |
| 45 (define-session-public language-pitch-names |
41 `( | 46 `( |
42 ;; Language: Nederlands --------------------------------------------; | 47 ;; Language: Nederlands --------------------------------------------; |
43 ;; Dutch note names -- LilyPond's default language. | 48 ;; Dutch note names -- LilyPond's default language. |
44 ;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 49 ;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
45 ;; | 50 ;; |
46 ;; es = flat | 51 ;; es = flat |
47 ;; eses = double-flat | 52 ;; eses = double-flat |
48 ;; eh = quarter-tone flat | 53 ;; eh = quarter-tone flat |
49 ;; eseh = three-quarter-tones flat | 54 ;; eseh = three-quarter-tones flat |
50 ;; | 55 ;; |
(...skipping 1056 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1107 (_ "Select note names language.") | 1112 (_ "Select note names language.") |
1108 (let ((alist (assoc-get (string->symbol str) | 1113 (let ((alist (assoc-get (string->symbol str) |
1109 language-pitch-names | 1114 language-pitch-names |
1110 '()))) | 1115 '()))) |
1111 (if (pair? alist) | 1116 (if (pair? alist) |
1112 (begin | 1117 (begin |
1113 (ly:debug (_ "Using `~a' note names...") str) | 1118 (ly:debug (_ "Using `~a' note names...") str) |
1114 (set! pitchnames alist) | 1119 (set! pitchnames alist) |
1115 (ly:parser-set-note-names alist)) | 1120 (ly:parser-set-note-names alist)) |
1116 (ly:warning (_ "Could not find language `~a'. Ignoring.") str)))) | 1121 (ly:warning (_ "Could not find language `~a'. Ignoring.") str)))) |
OLD | NEW |