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--2008 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