X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Frelocate.cc;h=628187363bd39aa8417064146bf779189f5cbfdd;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=47502f7dbda9f054f9524c0587763cf5b26bc91b;hpb=87eedcd59f4082cb0841528ad5bc82cb1d1191e3;p=lilypond.git diff --git a/lily/relocate.cc b/lily/relocate.cc index 47502f7dbd..628187363b 100644 --- a/lily/relocate.cc +++ b/lily/relocate.cc @@ -1,10 +1,20 @@ /* - relocate.cc -- implement relocation based on argv0 + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2005--2011 Han-Wen Nienhuys - (c) 2005--2007 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ #include "relocate.hh" @@ -48,7 +58,7 @@ sane_putenv (char const *key, string value, bool overwrite) /* unfortunately, we can't portably free S here, due to various bugs in glibc prior to 2.1.1 - */ + */ return retval; } @@ -97,37 +107,41 @@ prepend_env_path (char const *key, string value) #include #endif -void +static void prefix_relocation (string prefix) { - if (be_verbose_global) - warning (_f ("Relocation: compile prefix=%s, new prefix=%s", - prefix_directory, - prefix.c_str ())); - string bindir = prefix + "/bin"; string datadir = prefix + "/share"; string localedir = datadir + "/locale"; - string lilypond_datadir = datadir + "/lilypond/"; - - if (is_dir (lilypond_datadir + "/" + TOPLEVEL_VERSION)) - prefix_directory = lilypond_datadir + "/" + TOPLEVEL_VERSION; - else if (is_dir (lilypond_datadir + "/current")) - prefix_directory = lilypond_datadir + "/current"; - + string package_datadir = datadir + "/lilypond/"; + string old_lilypond_datadir = lilypond_datadir; + + if (is_dir (package_datadir + "/" + TOPLEVEL_VERSION)) + lilypond_datadir = package_datadir + "/" + TOPLEVEL_VERSION; + else if (is_dir (package_datadir + "/current")) + lilypond_datadir = package_datadir + "/current"; + else + warning (_f ("not relocating, no %s/ or current/ found under %s", + TOPLEVEL_VERSION, package_datadir.c_str ())); + #if HAVE_GETTEXT if (is_dir (localedir)) bindtextdomain ("lilypond", localedir.c_str ()); #endif prepend_env_path ("PATH", bindir); + + if (be_verbose_global) + warning (_f ("Relocation: compile datadir=%s, new datadir=%s", + old_lilypond_datadir.c_str (), + lilypond_datadir.c_str ())); } /* UGH : this is a complete mess. - */ +*/ -void +static void framework_relocation (string prefix) { if (be_verbose_global) @@ -144,106 +158,106 @@ framework_relocation (string prefix) /* UGH : this is a complete mess. - */ +*/ void setup_paths (char const *argv0_ptr) { File_name argv0_filename (argv0_ptr); - prefix_directory = LILYPOND_DATADIR; - if (relocate_binary - && getenv ("LILYPOND_RELOCATE_PREFIX")) + if (relocate_binary) { - prefix_directory = getenv ("LILYPOND_RELOCATE_PREFIX"); + string prefix_directory; + if (getenv ("LILYPOND_RELOCATE_PREFIX")) + { + prefix_directory = getenv ("LILYPOND_RELOCATE_PREFIX"); #ifdef __MINGW32__ - /* Normalize file name. */ - prefix_directory = File_name (prefix_directory).to_string (); + /* Normalize file name. */ + prefix_directory = File_name (prefix_directory).to_string (); #endif /* __MINGW32__ */ - prefix_relocation (prefix_directory); - string bindir = prefix_directory + "/bin"; - framework_relocation (bindir); - } - else if (relocate_binary) - { - string argv0_abs; - if (argv0_filename.is_absolute ()) - { - argv0_abs = argv0_filename.to_string (); - if (be_verbose_global) - warning (_f ("Relocation: is absolute: argv0=%s", argv0_ptr)); - } - else if (argv0_filename.dir_.length ()) - { - argv0_abs = get_working_directory () - + "/" + string (argv0_filename.to_string ()); - if (be_verbose_global) - warning (_f ("Relocation: from cwd: argv0=%s", argv0_ptr)); + prefix_relocation (prefix_directory); + string bindir = prefix_directory + "/bin"; + framework_relocation (bindir); } - else + else if (relocate_binary) { - /* Find absolute ARGV0 name, using PATH. */ - File_path path; - path.parse_path (getenv ("PATH")); - - if (be_verbose_global) - warning (_f ("Relocation: from PATH=%s\nargv0=%s", - path.to_string ().c_str (), argv0_ptr)); + string argv0_abs; + if (argv0_filename.is_absolute ()) + { + argv0_abs = argv0_filename.to_string (); + if (be_verbose_global) + warning (_f ("Relocation: is absolute: argv0=%s", argv0_ptr)); + } + else if (argv0_filename.dir_.length ()) + { + argv0_abs = get_working_directory () + + "/" + string (argv0_filename.to_string ()); + if (be_verbose_global) + warning (_f ("Relocation: from cwd: argv0=%s", argv0_ptr)); + } + else + { + /* Find absolute ARGV0 name, using PATH. */ + File_path path; + path.parse_path (getenv ("PATH")); #ifndef __MINGW32__ - argv0_abs = path.find (argv0_filename.to_string ()); + argv0_abs = path.find (argv0_filename.to_string ()); #else /* __MINGW32__ */ - char const *ext[] = {"exe", "", 0 }; - argv0_abs = path.find (argv0_filename.to_string (), ext); + path.prepend (get_working_directory ()); + char const *ext[] = {"exe", "", 0 }; + argv0_abs = path.find (argv0_filename.to_string (), ext); #endif /* __MINGW32__ */ - if (argv0_abs.empty ()) - programming_error ("cannot find absolute argv0"); - } + if (be_verbose_global) + warning (_f ("Relocation: from PATH=%s\nargv0=%s", + path.to_string ().c_str (), argv0_ptr)); - string bindir = dir_name (argv0_abs); - string argv0_prefix = dir_name (bindir); - string compile_prefix = dir_name (dir_name (dir_name (prefix_directory))); - if (argv0_prefix != compile_prefix) - { - prefix_relocation (argv0_prefix); - prefix_directory = argv0_prefix; - } - if (argv0_prefix != compile_prefix || string (FRAMEWORKDIR) != "..") - { - framework_relocation (bindir + "/" + FRAMEWORKDIR); - prefix_directory = bindir + "/" + FRAMEWORKDIR; + if (argv0_abs.empty ()) + programming_error ("cannot find absolute argv0"); + } + + string bindir = dir_name (argv0_abs); + string argv0_prefix = dir_name (bindir); + string compile_prefix = dir_name (dir_name (dir_name (lilypond_datadir))); + if (argv0_prefix != compile_prefix) + { + prefix_relocation (argv0_prefix); + prefix_directory = argv0_prefix; + } + if (argv0_prefix != compile_prefix || string (FRAMEWORKDIR) != "..") + { + framework_relocation (bindir + "/" + FRAMEWORKDIR); + prefix_directory = bindir + "/" + FRAMEWORKDIR; + } } + + lilypond_datadir = prefix_directory + + "/share/lilypond/" TOPLEVEL_VERSION; } - /* FIXME: use LILYPOND_DATADIR. */ - if (char const *env = getenv ("LILYPONDPREFIX")) + if (getenv ("LILYPONDPREFIX")) + error (_ ("LILYPONDPREFIX is obsolete, use LILYPOND_DATADIR")); + + if (char const *env = getenv ("LILYPOND_DATADIR")) { -#ifdef __MINGW32__ /* Normalize file name. */ - prefix_directory = File_name (env).to_string (); -#else - prefix_directory = env; -#endif + lilypond_datadir = File_name (env).to_string (); } - global_path.append (""); - - - /* - When running from build dir, a full LILYPOND_PREFIX is set-up at + /* When running from build dir, a full LILYPOND_DATADIR is set-up at + $(OUTBASE)/{share, lib}/lilypond/current. Configure lily using + ./configure --prefix=$(pwd)/out */ + string build_datadir_current = dir_name (lilypond_datadir) + "/current"; + if (!is_dir (lilypond_datadir.c_str ()) + && is_dir (build_datadir_current.c_str ())) + lilypond_datadir = build_datadir_current; - $(OUTBASE)/{share,lib}/lilypond/current - */ - - string build_prefix_current = prefix_directory + "/share/lilypond/" "current"; - string build_prefix_version = prefix_directory + "/share/lilypond/" TOPLEVEL_VERSION; - if (is_dir (build_prefix_version.c_str ())) - prefix_directory = build_prefix_version; - else if (is_dir (build_prefix_current.c_str ())) - prefix_directory = build_prefix_current; + lilypond_datadir = File_name (lilypond_datadir).canonicalized().to_string(); + global_path.append (""); + /* Adding mf/out make lilypond unchanged source directory, when setting LILYPONDPREFIX to lilypond-x.y.z */ char const *suffixes[] = {"ly", "ps", "scm", 0 }; @@ -251,37 +265,35 @@ setup_paths (char const *argv0_ptr) vector dirs; for (char const **s = suffixes; *s; s++) { - string path = prefix_directory + to_string ('/') + string (*s); + string path = lilypond_datadir + to_string ('/') + string (*s); dirs.push_back (path); } - dirs.push_back (prefix_directory + "/fonts/otf/"); - dirs.push_back (prefix_directory + "/fonts/type1/"); - dirs.push_back (prefix_directory + "/fonts/svg/"); + dirs.push_back (lilypond_datadir + "/fonts/otf/"); + dirs.push_back (lilypond_datadir + "/fonts/type1/"); + dirs.push_back (lilypond_datadir + "/fonts/svg/"); for (vsize i = 0; i < dirs.size (); i++) global_path.prepend (dirs[i]); } - - string expand_environment_variables (string orig) { - const char *start_ptr = orig.c_str(); - const char *ptr = orig.c_str(); - size_t len = orig.length(); + char const *start_ptr = orig.c_str (); + char const *ptr = orig.c_str (); + size_t len = orig.length (); string out; while (ptr < start_ptr + len) { - char *dollar = strchr (ptr, '$'); + char const *dollar = strchr (ptr, '$'); if (dollar != NULL) { - char *start_var = dollar + 1; - char *end_var = start_var; - char *start_next = end_var; + char const *start_var = dollar + 1; + char const *end_var = start_var; + char const *start_next = end_var; out += string (ptr, dollar - ptr); ptr = dollar; @@ -306,7 +318,7 @@ expand_environment_variables (string orig) { /* Hmm. what to do for $1 , $~ etc.? - */ + */ do { end_var ++; @@ -318,7 +330,7 @@ expand_environment_variables (string orig) if (start_var < end_var) { string var_name (start_var, end_var - start_var); - const char *value = getenv (var_name.c_str()); + char const *value = getenv (var_name.c_str ()); if (value != NULL) out += string (value); @@ -335,15 +347,15 @@ expand_environment_variables (string orig) return out; } - -string +// Ugh - very inefficient, but safer than fgets. +static string read_line (FILE *f) { string out; int c = 0; while ((c = fgetc (f)) != EOF && c != '\n') - out += c; + out += char(c); return out; } @@ -380,11 +392,11 @@ read_relocation_file (string filename) value = expand_environment_variables (value); if (command == "set") - sane_putenv (variable.c_str(), value, true); + sane_putenv (variable.c_str (), value, true); else if (command == "setdir") - set_env_dir (variable.c_str(), value); + set_env_dir (variable.c_str (), value); else if (command == "setfile") - set_env_file (variable.c_str(), value); + set_env_file (variable.c_str (), value); else if (command == "prependdir") prepend_env_path (variable.c_str (), value); else @@ -402,6 +414,6 @@ read_relocation_dir (string dirname) { File_name name (ent->d_name); if (name.ext_ == "reloc") - read_relocation_file (dirname + "/" + name.to_string ()); + read_relocation_file (dirname + "/" + name.to_string ()); } }