Mercurial > gnulib
annotate lib/progreloc.c @ 14079:97fc9a21a8fb
maint: update almost all copyright ranges to include 2011
Run the new "make update-copyright" rule.
author | Jim Meyering <meyering@redhat.com> |
---|---|
date | Sat, 01 Jan 2011 20:17:23 +0100 |
parents | 3211d36b9926 |
children | 588ed4cdea87 |
rev | line source |
---|---|
4603 | 1 /* Provide relocatable programs. |
14079
97fc9a21a8fb
maint: update almost all copyright ranges to include 2011
Jim Meyering <meyering@redhat.com>
parents:
13667
diff
changeset
|
2 Copyright (C) 2003-2011 Free Software Foundation, Inc. |
4603 | 3 Written by Bruno Haible <bruno@clisp.org>, 2003. |
4 | |
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8272
diff
changeset
|
5 This program is free software: you can redistribute it and/or modify |
5270
b084a75dc8bc
Change copyright notice to GPL. The file is still under LGPL 2.0; this
Bruno Haible <bruno@clisp.org>
parents:
5164
diff
changeset
|
6 it under the terms of the GNU General Public License as published by |
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8272
diff
changeset
|
7 the Free Software Foundation; either version 3 of the License, or |
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8272
diff
changeset
|
8 (at your option) any later version. |
4603 | 9 |
10 This program is distributed in the hope that it will be useful, | |
11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
5270
b084a75dc8bc
Change copyright notice to GPL. The file is still under LGPL 2.0; this
Bruno Haible <bruno@clisp.org>
parents:
5164
diff
changeset
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
b084a75dc8bc
Change copyright notice to GPL. The file is still under LGPL 2.0; this
Bruno Haible <bruno@clisp.org>
parents:
5164
diff
changeset
|
13 GNU General Public License for more details. |
4603 | 14 |
5270
b084a75dc8bc
Change copyright notice to GPL. The file is still under LGPL 2.0; this
Bruno Haible <bruno@clisp.org>
parents:
5164
diff
changeset
|
15 You should have received a copy of the GNU General Public License |
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8272
diff
changeset
|
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
4603 | 17 |
18 | |
7304
1c4ed7637c24
Include <config.h> unconditionally.
Bruno Haible <bruno@clisp.org>
parents:
7023
diff
changeset
|
19 #include <config.h> |
4603 | 20 |
21 /* Specification. */ | |
22 #include "progname.h" | |
23 | |
24 #include <stdbool.h> | |
25 #include <stdio.h> | |
26 #include <stdlib.h> | |
27 #include <string.h> | |
28 #include <fcntl.h> | |
8272
fd48e35f4e5e
New modules relocatable, relocatable-lib, relocatable-script.
Bruno Haible <bruno@clisp.org>
parents:
7863
diff
changeset
|
29 #include <unistd.h> |
4603 | 30 #include <sys/stat.h> |
31 | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
32 /* Get declaration of _NSGetExecutablePath on MacOS X 10.2 or newer. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
33 #if HAVE_MACH_O_DYLD_H |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
34 # include <mach-o/dyld.h> |
4603 | 35 #endif |
36 | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
37 #if defined _WIN32 || defined __WIN32__ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
38 # define WIN32_NATIVE |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
39 #endif |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
40 |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
41 #if defined WIN32_NATIVE || defined __CYGWIN__ |
4603 | 42 # define WIN32_LEAN_AND_MEAN |
43 # include <windows.h> | |
44 #endif | |
45 | |
46 #include "relocatable.h" | |
47 | |
48 #ifdef NO_XMALLOC | |
9547
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
49 # include "areadlink.h" |
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
50 # define xreadlink areadlink |
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
51 #else |
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
52 # include "xreadlink.h" |
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
53 #endif |
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
54 |
c3d038b0b4d3
Fix link error in relocatability wrappers, due to xalloc_die().
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
55 #ifdef NO_XMALLOC |
4603 | 56 # define xmalloc malloc |
5583 | 57 # define xstrdup strdup |
4603 | 58 #else |
5583 | 59 # include "xalloc.h" |
4603 | 60 #endif |
61 | |
13667
3211d36b9926
relocatable-prog-wrapper: Fix compilation failure due to O_EXEC.
Bruno Haible <bruno@clisp.org>
parents:
13664
diff
changeset
|
62 #ifndef O_EXEC |
3211d36b9926
relocatable-prog-wrapper: Fix compilation failure due to O_EXEC.
Bruno Haible <bruno@clisp.org>
parents:
13664
diff
changeset
|
63 # define O_EXEC O_RDONLY /* This is often close enough in older systems. */ |
3211d36b9926
relocatable-prog-wrapper: Fix compilation failure due to O_EXEC.
Bruno Haible <bruno@clisp.org>
parents:
13664
diff
changeset
|
64 #endif |
3211d36b9926
relocatable-prog-wrapper: Fix compilation failure due to O_EXEC.
Bruno Haible <bruno@clisp.org>
parents:
13664
diff
changeset
|
65 |
12049
22a617bea642
Declare canonicalize_file_name.
Bruno Haible <bruno@clisp.org>
parents:
12034
diff
changeset
|
66 /* Declare canonicalize_file_name. |
22a617bea642
Declare canonicalize_file_name.
Bruno Haible <bruno@clisp.org>
parents:
12034
diff
changeset
|
67 The <stdlib.h> included above may be the system's one, not the gnulib |
22a617bea642
Declare canonicalize_file_name.
Bruno Haible <bruno@clisp.org>
parents:
12034
diff
changeset
|
68 one. */ |
22a617bea642
Declare canonicalize_file_name.
Bruno Haible <bruno@clisp.org>
parents:
12034
diff
changeset
|
69 extern char * canonicalize_file_name (const char *name); |
22a617bea642
Declare canonicalize_file_name.
Bruno Haible <bruno@clisp.org>
parents:
12034
diff
changeset
|
70 |
4603 | 71 /* Pathname support. |
72 ISSLASH(C) tests whether C is a directory separator character. | |
73 IS_PATH_WITH_DIR(P) tests whether P contains a directory specification. | |
74 */ | |
5053
eebff8c51a9b
Treat Cygwin like Windows regarding pathname syntax.
Bruno Haible <bruno@clisp.org>
parents:
4691
diff
changeset
|
75 #if defined _WIN32 || defined __WIN32__ || defined __CYGWIN__ || defined __EMX__ || defined __DJGPP__ |
eebff8c51a9b
Treat Cygwin like Windows regarding pathname syntax.
Bruno Haible <bruno@clisp.org>
parents:
4691
diff
changeset
|
76 /* Win32, Cygwin, OS/2, DOS */ |
4603 | 77 # define ISSLASH(C) ((C) == '/' || (C) == '\\') |
78 # define HAS_DEVICE(P) \ | |
79 ((((P)[0] >= 'A' && (P)[0] <= 'Z') || ((P)[0] >= 'a' && (P)[0] <= 'z')) \ | |
80 && (P)[1] == ':') | |
81 # define IS_PATH_WITH_DIR(P) \ | |
82 (strchr (P, '/') != NULL || strchr (P, '\\') != NULL || HAS_DEVICE (P)) | |
5164
773a21466082
Rename FILESYSTEM_PREFIX_LEN.
Bruno Haible <bruno@clisp.org>
parents:
5053
diff
changeset
|
83 # define FILE_SYSTEM_PREFIX_LEN(P) (HAS_DEVICE (P) ? 2 : 0) |
4603 | 84 #else |
85 /* Unix */ | |
86 # define ISSLASH(C) ((C) == '/') | |
87 # define IS_PATH_WITH_DIR(P) (strchr (P, '/') != NULL) | |
5164
773a21466082
Rename FILESYSTEM_PREFIX_LEN.
Bruno Haible <bruno@clisp.org>
parents:
5053
diff
changeset
|
88 # define FILE_SYSTEM_PREFIX_LEN(P) 0 |
4603 | 89 #endif |
90 | |
7863 | 91 /* The results of open() in this file are not used with fchdir, |
92 therefore save some unnecessary work in fchdir.c. */ | |
93 #undef open | |
94 #undef close | |
95 | |
13397
758ef73803db
Avoid relocwrapper link errors due to gnulib replacement functions.
Bruno Haible <bruno@clisp.org>
parents:
12559
diff
changeset
|
96 /* Use the system functions, not the gnulib overrides in this file. */ |
758ef73803db
Avoid relocwrapper link errors due to gnulib replacement functions.
Bruno Haible <bruno@clisp.org>
parents:
12559
diff
changeset
|
97 #undef malloc |
758ef73803db
Avoid relocwrapper link errors due to gnulib replacement functions.
Bruno Haible <bruno@clisp.org>
parents:
12559
diff
changeset
|
98 #undef sprintf |
758ef73803db
Avoid relocwrapper link errors due to gnulib replacement functions.
Bruno Haible <bruno@clisp.org>
parents:
12559
diff
changeset
|
99 |
4603 | 100 #undef set_program_name |
101 | |
102 | |
103 #if ENABLE_RELOCATABLE | |
104 | |
105 #ifdef __linux__ | |
106 /* File descriptor of the executable. | |
107 (Only used to verify that we find the correct executable.) */ | |
108 static int executable_fd = -1; | |
109 #endif | |
110 | |
111 /* Tests whether a given pathname may belong to the executable. */ | |
112 static bool | |
113 maybe_executable (const char *filename) | |
114 { | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
115 /* Woe32 lacks the access() function, but Cygwin doesn't. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
116 #if !(defined WIN32_NATIVE && !defined __CYGWIN__) |
4603 | 117 if (access (filename, X_OK) < 0) |
118 return false; | |
119 | |
120 #ifdef __linux__ | |
121 if (executable_fd >= 0) | |
122 { | |
123 /* If we already have an executable_fd, check that filename points to | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
124 the same inode. */ |
4603 | 125 struct stat statexe; |
126 struct stat statfile; | |
127 | |
128 if (fstat (executable_fd, &statexe) >= 0) | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
129 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
130 if (stat (filename, &statfile) < 0) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
131 return false; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
132 if (!(statfile.st_dev |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
133 && statfile.st_dev == statexe.st_dev |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
134 && statfile.st_ino == statexe.st_ino)) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
135 return false; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
136 } |
4603 | 137 } |
138 #endif | |
139 #endif | |
140 | |
141 return true; | |
142 } | |
143 | |
144 /* Determine the full pathname of the current executable, freshly allocated. | |
145 Return NULL if unknown. | |
146 Guaranteed to work on Linux and Woe32. Likely to work on the other | |
147 Unixes (maybe except BeOS), under most conditions. */ | |
148 static char * | |
149 find_executable (const char *argv0) | |
150 { | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
151 #if defined WIN32_NATIVE || defined __CYGWIN__ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
152 char location[MAX_PATH]; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
153 int length = GetModuleFileName (NULL, location, sizeof (location)); |
4603 | 154 if (length < 0) |
155 return NULL; | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
156 if (!IS_PATH_WITH_DIR (location)) |
4603 | 157 /* Shouldn't happen. */ |
158 return NULL; | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
159 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
160 #if defined __CYGWIN__ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
161 /* cygwin-1.5.13 (2005-03-01) or newer would also allow a Linux-like |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
162 implementation: readlink of "/proc/self/exe". But using the |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
163 result of the Win32 system call is simpler and is consistent with the |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
164 code in relocatable.c. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
165 /* On Cygwin, we need to convert paths coming from Win32 system calls |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
166 to the Unix-like slashified notation. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
167 static char location_as_posix_path[2 * MAX_PATH]; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
168 /* There's no error return defined for cygwin_conv_to_posix_path. |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
169 See cygwin-api/func-cygwin-conv-to-posix-path.html. |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
170 Does it overflow the buffer of expected size MAX_PATH or does it |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
171 truncate the path? I don't know. Let's catch both. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
172 cygwin_conv_to_posix_path (location, location_as_posix_path); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
173 location_as_posix_path[MAX_PATH - 1] = '\0'; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
174 if (strlen (location_as_posix_path) >= MAX_PATH - 1) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
175 /* A sign of buffer overflow or path truncation. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
176 return NULL; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
177 /* Call canonicalize_file_name, because Cygwin supports symbolic links. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
178 return canonicalize_file_name (location_as_posix_path); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
179 #else |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
180 return xstrdup (location); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
181 #endif |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
182 } |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
183 #else /* Unix && !Cygwin */ |
4603 | 184 #ifdef __linux__ |
185 /* The executable is accessible as /proc/<pid>/exe. In newer Linux | |
186 versions, also as /proc/self/exe. Linux >= 2.1 provides a symlink | |
187 to the true pathname; older Linux versions give only device and ino, | |
188 enclosed in brackets, which we cannot use here. */ | |
189 { | |
190 char *link; | |
191 | |
192 link = xreadlink ("/proc/self/exe"); | |
193 if (link != NULL && link[0] != '[') | |
194 return link; | |
195 if (executable_fd < 0) | |
13664
241057e2e60f
fcntl-h: define O_CLOEXEC and O_EXEC if not defined; use new defines
Paul Eggert <eggert@cs.ucla.edu>
parents:
13397
diff
changeset
|
196 executable_fd = open ("/proc/self/exe", O_EXEC, 0); |
4603 | 197 |
198 { | |
199 char buf[6+10+5]; | |
200 sprintf (buf, "/proc/%d/exe", getpid ()); | |
201 link = xreadlink (buf); | |
202 if (link != NULL && link[0] != '[') | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
203 return link; |
4603 | 204 if (executable_fd < 0) |
13664
241057e2e60f
fcntl-h: define O_CLOEXEC and O_EXEC if not defined; use new defines
Paul Eggert <eggert@cs.ucla.edu>
parents:
13397
diff
changeset
|
205 executable_fd = open (buf, O_EXEC, 0); |
4603 | 206 } |
207 } | |
208 #endif | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
209 #if HAVE_MACH_O_DYLD_H && HAVE__NSGETEXECUTABLEPATH |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
210 /* On MacOS X 10.2 or newer, the function |
11025
6d85e95ca18f
Update use of API that has changed in MacOS X 10.4.
Bruno Haible <bruno@clisp.org>
parents:
9576
diff
changeset
|
211 int _NSGetExecutablePath (char *buf, uint32_t *bufsize); |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
212 can be used to retrieve the executable's full path. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
213 char location[4096]; |
11025
6d85e95ca18f
Update use of API that has changed in MacOS X 10.4.
Bruno Haible <bruno@clisp.org>
parents:
9576
diff
changeset
|
214 unsigned int length = sizeof (location); |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
215 if (_NSGetExecutablePath (location, &length) == 0 |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
216 && location[0] == '/') |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
217 return canonicalize_file_name (location); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
218 #endif |
4603 | 219 /* Guess the executable's full path. We assume the executable has been |
220 called via execlp() or execvp() with properly set up argv[0]. The | |
221 login(1) convention to add a '-' prefix to argv[0] is not supported. */ | |
222 { | |
223 bool has_slash = false; | |
224 { | |
225 const char *p; | |
226 for (p = argv0; *p; p++) | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
227 if (*p == '/') |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
228 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
229 has_slash = true; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
230 break; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
231 } |
4603 | 232 } |
233 if (!has_slash) | |
234 { | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
235 /* exec searches paths without slashes in the directory list given |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
236 by $PATH. */ |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
237 const char *path = getenv ("PATH"); |
4603 | 238 |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
239 if (path != NULL) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
240 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
241 const char *p; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
242 const char *p_next; |
4603 | 243 |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
244 for (p = path; *p; p = p_next) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
245 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
246 const char *q; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
247 size_t p_len; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
248 char *concat_name; |
4603 | 249 |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
250 for (q = p; *q; q++) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
251 if (*q == ':') |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
252 break; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
253 p_len = q - p; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
254 p_next = (*q == '\0' ? q : q + 1); |
4603 | 255 |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
256 /* We have a path item at p, of length p_len. |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
257 Now concatenate the path item and argv0. */ |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
258 concat_name = (char *) xmalloc (p_len + strlen (argv0) + 2); |
4603 | 259 #ifdef NO_XMALLOC |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
260 if (concat_name == NULL) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
261 return NULL; |
4603 | 262 #endif |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
263 if (p_len == 0) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
264 /* An empty PATH element designates the current directory. */ |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
265 strcpy (concat_name, argv0); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
266 else |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
267 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
268 memcpy (concat_name, p, p_len); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
269 concat_name[p_len] = '/'; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
270 strcpy (concat_name + p_len + 1, argv0); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
271 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
272 if (maybe_executable (concat_name)) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
273 return canonicalize_file_name (concat_name); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
274 free (concat_name); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
275 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
276 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
277 /* Not found in the PATH, assume the current directory. */ |
4603 | 278 } |
279 /* exec treats paths containing slashes as relative to the current | |
280 directory. */ | |
281 if (maybe_executable (argv0)) | |
282 return canonicalize_file_name (argv0); | |
283 } | |
284 /* No way to find the executable. */ | |
285 return NULL; | |
286 #endif | |
287 } | |
288 | |
289 /* Full pathname of executable, or NULL. */ | |
290 static char *executable_fullname; | |
291 | |
292 static void | |
293 prepare_relocate (const char *orig_installprefix, const char *orig_installdir, | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
294 const char *argv0) |
4603 | 295 { |
9576
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
296 char *curr_prefix; |
4603 | 297 |
298 /* Determine the full pathname of the current executable. */ | |
299 executable_fullname = find_executable (argv0); | |
300 | |
301 /* Determine the current installation prefix from it. */ | |
302 curr_prefix = compute_curr_prefix (orig_installprefix, orig_installdir, | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
303 executable_fullname); |
4603 | 304 if (curr_prefix != NULL) |
9576
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
305 { |
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
306 /* Now pass this prefix to all copies of the relocate.c source file. */ |
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
307 set_relocation_prefix (orig_installprefix, curr_prefix); |
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
308 |
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
309 free (curr_prefix); |
8cae100b8cd1
Improve memory cleanup in 'relocatable' module.
Bruno Haible <bruno@clisp.org>
parents:
9547
diff
changeset
|
310 } |
4603 | 311 } |
312 | |
313 /* Set program_name, based on argv[0], and original installation prefix and | |
314 directory, for relocatability. */ | |
315 void | |
316 set_program_name_and_installdir (const char *argv0, | |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
317 const char *orig_installprefix, |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
318 const char *orig_installdir) |
4603 | 319 { |
320 const char *argv0_stripped = argv0; | |
321 | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
322 /* Relocatable programs are renamed to .bin by install-reloc. Or, more |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
323 generally, their suffix is changed from $exeext to .bin$exeext. |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
324 Remove the ".bin" here. */ |
4603 | 325 { |
326 size_t argv0_len = strlen (argv0); | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
327 const size_t exeext_len = sizeof (EXEEXT) - sizeof (""); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
328 if (argv0_len > 4 + exeext_len) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
329 if (memcmp (argv0 + argv0_len - exeext_len - 4, ".bin", 4) == 0) |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
330 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
331 if (sizeof (EXEEXT) > sizeof ("")) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
332 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
333 /* Compare using an inlined copy of c_strncasecmp(), because |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
334 the filenames may have undergone a case conversion since |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
335 they were packaged. In other words, EXEEXT may be ".exe" |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
336 on one system and ".EXE" on another. */ |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
337 static const char exeext[] = EXEEXT; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
338 const char *s1 = argv0 + argv0_len - exeext_len; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
339 const char *s2 = exeext; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
340 for (; *s1 != '\0'; s1++, s2++) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
341 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
342 unsigned char c1 = *s1; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
343 unsigned char c2 = *s2; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
344 if ((c1 >= 'A' && c1 <= 'Z' ? c1 - 'A' + 'a' : c1) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
345 != (c2 >= 'A' && c2 <= 'Z' ? c2 - 'A' + 'a' : c2)) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
346 goto done_stripping; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
347 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
348 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
349 /* Remove ".bin" before EXEEXT or its equivalent. */ |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
350 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
351 char *shorter = (char *) xmalloc (argv0_len - 4 + 1); |
4603 | 352 #ifdef NO_XMALLOC |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
353 if (shorter != NULL) |
4603 | 354 #endif |
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
355 { |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
356 memcpy (shorter, argv0, argv0_len - exeext_len - 4); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
357 if (sizeof (EXEEXT) > sizeof ("")) |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
358 memcpy (shorter + argv0_len - exeext_len - 4, |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
359 argv0 + argv0_len - exeext_len - 4, |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
360 exeext_len); |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
361 shorter[argv0_len - 4] = '\0'; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
362 argv0_stripped = shorter; |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
363 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
364 } |
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
12049
diff
changeset
|
365 done_stripping: ; |
4603 | 366 } |
367 } | |
368 | |
369 set_program_name (argv0_stripped); | |
370 | |
371 prepare_relocate (orig_installprefix, orig_installdir, argv0); | |
372 } | |
373 | |
374 /* Return the full pathname of the current executable, based on the earlier | |
375 call to set_program_name_and_installdir. Return NULL if unknown. */ | |
376 char * | |
4691 | 377 get_full_program_name (void) |
4603 | 378 { |
379 return executable_fullname; | |
380 } | |
381 | |
382 #endif |