2 relocate.cc -- implement relocation based on argv0
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "relocate.hh"
15 /* TODO: autoconf support */
17 #include <sys/types.h>
24 #include "file-name.hh"
25 #include "file-path.hh"
26 #include "international.hh"
27 #include "lily-guile.hh"
28 #include "lily-version.hh"
33 #define FRAMEWORKDIR ".."
37 sane_putenv (char const *key, string value, bool overwrite)
39 if (overwrite || !getenv (key))
41 string combine = string (key) + "=" + value;
42 char *s = strdup (combine.c_str ());
50 set_env_file (char const *key, string value, bool overwrite = false)
53 return sane_putenv (key, value, overwrite);
54 else if (be_verbose_global)
55 warning (_f ("no such file: %s for %s", value, key));
60 set_env_dir (char const *key, string value)
63 return sane_putenv (key, value, false);
64 else if (be_verbose_global)
65 warning (_f ("no such directory: %s for %s", value, key));
70 prepend_env_path (char const *key, string value)
74 if (be_verbose_global)
75 progress_indication (_f ("%s=%s (prepend)\n", key, value.c_str ()));
77 if (char const *cur = getenv (key))
78 value += to_string (PATHSEP) + cur;
80 return sane_putenv (key, value.c_str (), true);
82 else if (be_verbose_global)
83 warning (_f ("no such directory: %s for %s", value, key));
92 prefix_relocation (string prefix)
94 if (be_verbose_global)
95 warning (_f ("Relocation: compile prefix=%s, new prefix=%s",
99 string bindir = prefix + "/bin";
100 string datadir = prefix + "/share";
101 string localedir = datadir + "/locale";
102 string lilypond_datadir = datadir + "/lilypond/";
104 if (is_dir (lilypond_datadir + "/" + TOPLEVEL_VERSION))
105 prefix_directory = lilypond_datadir + "/" + TOPLEVEL_VERSION;
106 else if (is_dir (lilypond_datadir + "/current"))
107 prefix_directory = lilypond_datadir + "/current";
110 if (is_dir (localedir))
111 bindtextdomain ("lilypond", localedir.c_str ());
114 prepend_env_path ("PATH", bindir);
118 framework_relocation (string prefix)
120 if (be_verbose_global)
121 warning (_f ("Relocation: framework_prefix=%s", prefix));
123 sane_putenv ("INSTALLER_ROOT", prefix, true);
125 read_relocation_dir (prefix + "/etc/relocate/");
127 #ifdef OLD_RELOCATION
128 string bindir = prefix + "/bin";
129 string datadir = prefix + "/share";
130 string libdir = prefix + "/lib";
131 string sysconfdir = prefix + "/etc";
133 /* need otherwise dynamic .so's aren't found. */
134 prepend_env_path ("DYLD_LIBRARY_PATH", libdir);
136 set_env_file ("FONTCONFIG_FILE", sysconfdir + "/fonts/fonts.conf", true);
137 set_env_dir ("FONTCONFIG_PATH", sysconfdir + "/fonts");
140 char font_dir[PATH_MAX];
141 ExpandEnvironmentStrings ("%windir%/fonts", font_dir, sizeof (font_dir));
142 prepend_env_path ("GS_FONTPATH", font_dir);
146 #ifdef GHOSTSCRIPT_VERSION
149 "ghostscript-version-undefined"
153 if (char const *cur = getenv ("LILYPOND_GS_VERSION"))
156 prepend_env_path ("GS_FONTPATH", datadir + "/ghostscript/" + gs_version + "/fonts");
157 prepend_env_path ("GS_LIB", datadir + "/ghostscript/" + gs_version + "/Resource");
158 prepend_env_path ("GS_LIB", datadir + "/ghostscript/" + gs_version + "/lib");
160 prepend_env_path ("GS_FONTPATH", datadir + "/gs/fonts");
161 prepend_env_path ("GS_LIB", datadir + "/gs/Resource");
162 prepend_env_path ("GS_LIB", datadir + "/gs/lib");
164 prepend_env_path ("GUILE_LOAD_PATH", datadir
165 + to_string ("/guile/%d.%d",
166 SCM_MAJOR_VERSION, SCM_MINOR_VERSION));
167 set_env_file ("PANGO_RC_FILE", sysconfdir + "/pango/pangorc");
168 set_env_dir ("PANGO_PREFIX", prefix);
173 prepend_env_path ("PATH", bindir);
177 setup_paths (char const *argv0_ptr)
179 File_name argv0_filename (argv0_ptr);
181 prefix_directory = LILYPOND_DATADIR;
183 && getenv ("LILYPOND_RELOCATE_PREFIX"))
185 string prefix = getenv ("LILYPOND_RELOCATE_PREFIX");
187 /* Normalize file name. */
188 prefix = File_name (prefix).to_string ();
189 #endif /* __MINGW32__ */
190 prefix_relocation (prefix);
191 string bindir = prefix + "/bin";
192 framework_relocation (bindir);
194 else if (relocate_binary)
197 if (argv0_filename.is_absolute ())
199 argv0_abs = argv0_filename.to_string ();
200 if (be_verbose_global)
201 warning (_f ("Relocation: is absolute: argv0=%s", argv0_ptr));
203 else if (argv0_filename.dir_.length ())
205 argv0_abs = get_working_directory ()
206 + "/" + string (argv0_filename.to_string ());
207 if (be_verbose_global)
208 warning (_f ("Relocation: from cwd: argv0=%s", argv0_ptr));
212 /* Find absolute ARGV0 name, using PATH. */
214 path.parse_path (getenv ("PATH"));
216 if (be_verbose_global)
217 warning (_f ("Relocation: from PATH=%s\nargv0=%s",
218 path.to_string ().c_str (), argv0_ptr));
221 argv0_abs = path.find (argv0_filename.to_string ());
222 #else /* __MINGW32__ */
223 char const *ext[] = {"exe", "", 0 };
224 argv0_abs = path.find (argv0_filename.to_string (), ext);
225 #endif /* __MINGW32__ */
227 if (argv0_abs.empty ())
228 programming_error ("can't find absolute argv0.");
231 string bindir = dir_name (argv0_abs);
232 string argv0_prefix = dir_name (bindir);
233 string compile_prefix = dir_name (dir_name (dir_name (prefix_directory)));
234 if (argv0_prefix != compile_prefix)
235 prefix_relocation (argv0_prefix);
236 if (argv0_prefix != compile_prefix || string (FRAMEWORKDIR) != "..")
237 framework_relocation (bindir + "/" + FRAMEWORKDIR);
240 /* FIXME: use LILYPOND_DATADIR. */
241 if (char const *env = getenv ("LILYPONDPREFIX"))
245 /* Normalize file name. */
246 prefix_directory = File_name (env).to_string ();
248 prefix_directory = env;
252 global_path.append ("");
256 When running from build dir, a full LILYPOND_PREFIX is set-up at
258 $(OUTBASE)/share/lilypond/TOPLEVEL_VERSION
260 This historical hack will allow the shorthand
262 LILYPONDPREFIX=out lily/out/lilypond ...
266 string build_prefix_current = prefix_directory + "/share/lilypond/" "current";
267 string build_prefix_version = prefix_directory + "/share/lilypond/" TOPLEVEL_VERSION;
268 if (is_dir (build_prefix_version.c_str ()))
269 prefix_directory = build_prefix_version;
270 else if (is_dir (build_prefix_current.c_str ()))
271 prefix_directory = build_prefix_current;
273 /* Adding mf/out make lilypond unchanged source directory, when setting
274 LILYPONDPREFIX to lilypond-x.y.z */
275 char const *suffixes[] = {"ly", "ps", "scm", 0 };
278 for (char const **s = suffixes; *s; s++)
280 string path = prefix_directory + to_string ('/') + string (*s);
281 dirs.push_back (path);
284 dirs.push_back (prefix_directory + "/fonts/otf/");
285 dirs.push_back (prefix_directory + "/fonts/type1/");
286 dirs.push_back (prefix_directory + "/fonts/svg/");
288 for (vsize i = 0; i < dirs.size (); i++)
289 global_path.prepend (dirs[i]);
295 expand_environment_variables (string orig)
297 const char *start_ptr = orig.c_str();
298 const char *ptr = orig.c_str();
299 size_t len = orig.length();
302 while (ptr < start_ptr + len)
304 char *dollar = strchr (ptr, '$');
308 char *start_var = dollar + 1;
309 char *end_var = start_var;
310 char *start_next = end_var;
312 out += string (ptr, dollar - ptr);
315 if (*start_var == '{')
319 end_var = strchr (start_var, '}');
323 end_var = start_var + len;
324 start_next = end_var;
328 start_next = end_var + 1;
334 Hmm. what to do for $1 , $~ etc.?
340 while (isalnum (*end_var) || *end_var == '_');
341 start_next = end_var;
344 if (start_var < end_var)
346 string var_name (start_var, end_var - start_var);
347 const char *value = getenv (var_name.c_str());
349 out += string (value);
371 while ((c = fgetc (f)) != EOF && c != '\n')
378 read_relocation_file (string filename)
380 char const *cname = filename.c_str ();
381 FILE *f = fopen (cname, "r");
383 error (_f ("can't open file %s", cname));
387 string line = read_line (f);
388 size_t idx = line.find (' ');
392 string command = line.substr (0, idx);
393 line = line.substr (idx + 1);
397 idx = line.find ('=');
399 string variable = line.substr (0, idx);
400 string value = line.substr (idx + 1);
402 value = expand_environment_variables (value);
404 if (command == "set")
405 sane_putenv (variable.c_str(), value, true);
406 else if (command == "setdir")
407 set_env_dir (variable.c_str(), value);
408 else if (command == "setfile")
409 set_env_file (variable.c_str(), value);
410 else if (command == "prependdir")
411 prepend_env_path (variable.c_str (), value);
413 error ( _f("Unknown relocation command %s", command));
420 read_relocation_dir (string dirname)
422 DIR *dir = opendir (dirname.c_str ());
424 while (struct dirent *ent = readdir (dir))
426 File_name name (ent->d_name);
427 if (name.ext_ == "reloc")
429 read_relocation_file (name.to_string ());