]> git.donarmstrong.com Git - lilypond.git/blob - lily/file-name-map.cc
Merge branch 'master' into lilypond/translation
[lilypond.git] / lily / file-name-map.cc
1 /*
2   file-name-map.cc --  implement map_file_name ()
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include <map>
10 using namespace std;
11
12 #include "file-name-map.hh"
13 #include "lily-guile.hh"
14
15 map<string, string> file_name_map_global;
16
17 string
18 map_file_name (string s)
19 {
20   if (file_name_map_global.find (s) != file_name_map_global.end ())
21     s = file_name_map_global[s];
22   return s;
23 }
24
25 LY_DEFINE (ly_add_file_name_alist, "ly:add-file-name-alist",
26            1, 0, 0, (SCM alist),
27            "Add mappings for error messages from @var{alist}.")
28 {
29   for (SCM s = alist; scm_is_pair (s); s = scm_cdr (s))
30     {
31       SCM key = scm_caar (s);
32       SCM val = scm_cdar (s);
33
34       file_name_map_global[ly_scm2string (key)] = ly_scm2string (val);
35     }
36   return SCM_UNSPECIFIED;
37 }
38