OLD | NEW |
1 /* | 1 /* |
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) 2005--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2005--2020 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 |
11 LilyPond is distributed in the hope that it will be useful, | 11 LilyPond is distributed in the hope that it will be useful, |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | 12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 GNU General Public License for more details. | 14 GNU General Public License for more details. |
15 | 15 |
16 You should have received a copy of the GNU General Public License | 16 You should have received a copy of the GNU General Public License |
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>. | 17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>. |
18 */ | 18 */ |
19 | 19 |
20 #include <map> | 20 #include <map> |
21 using namespace std; | |
22 | 21 |
23 #include "file-name-map.hh" | 22 #include "file-name-map.hh" |
24 #include "lily-guile.hh" | 23 #include "lily-guile.hh" |
25 | 24 |
| 25 using std::map; |
| 26 using std::string; |
| 27 |
26 map<string, string> file_name_map_global; | 28 map<string, string> file_name_map_global; |
27 | 29 |
28 string | 30 string |
29 map_file_name (const string &s) | 31 map_file_name (const string &s) |
30 { | 32 { |
31 if (file_name_map_global.find (s) != file_name_map_global.end ()) | 33 if (file_name_map_global.find (s) != file_name_map_global.end ()) |
32 return file_name_map_global[s]; | 34 return file_name_map_global[s]; |
33 return s; | 35 return s; |
34 } | 36 } |
35 | 37 |
36 LY_DEFINE (ly_add_file_name_alist, "ly:add-file-name-alist", | 38 LY_DEFINE (ly_add_file_name_alist, "ly:add-file-name-alist", |
37 1, 0, 0, (SCM alist), | 39 1, 0, 0, (SCM alist), |
38 "Add mappings for error messages from @var{alist}.") | 40 "Add mappings for error messages from @var{alist}.") |
39 { | 41 { |
40 for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s)) | 42 for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s)) |
41 { | 43 { |
42 SCM key = scm_caar (s); | 44 SCM key = scm_caar (s); |
43 SCM val = scm_cdar (s); | 45 SCM val = scm_cdar (s); |
44 | 46 |
45 file_name_map_global[ly_scm2string (key)] = ly_scm2string (val); | 47 file_name_map_global[ly_scm2string (key)] = ly_scm2string (val); |
46 } | 48 } |
47 return SCM_UNSPECIFIED; | 49 return SCM_UNSPECIFIED; |
48 } | 50 } |
49 | 51 |
OLD | NEW |