Mercurial > gnulib
annotate lib/progreloc.c @ 7304:1c4ed7637c24
Include <config.h> unconditionally.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Thu, 14 Sep 2006 14:18:36 +0000 |
parents | d78abd0c0b70 |
children | cb2590895141 |
rev | line source |
---|---|
4603 | 1 /* Provide relocatable programs. |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
2 Copyright (C) 2003-2006 Free Software Foundation, Inc. |
4603 | 3 Written by Bruno Haible <bruno@clisp.org>, 2003. |
4 | |
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
|
5 This program is free software; you can redistribute it and/or modify |
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 |
b084a75dc8bc
Change copyright notice to GPL. The file is still under LGPL 2.0; this
Bruno Haible <bruno@clisp.org>
parents:
5164
diff
changeset
|
7 the Free Software Foundation; either version 2, or (at your option) |
4603 | 8 any later version. |
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 |
b084a75dc8bc
Change copyright notice to GPL. The file is still under LGPL 2.0; this
Bruno Haible <bruno@clisp.org>
parents:
5164
diff
changeset
|
16 along with this program; if not, write to the Free Software Foundation, |
5848
a48fb0e98c8c
*** empty log message ***
Paul Eggert <eggert@cs.ucla.edu>
parents:
5583
diff
changeset
|
17 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
4603 | 18 |
19 | |
7304
1c4ed7637c24
Include <config.h> unconditionally.
Bruno Haible <bruno@clisp.org>
parents:
7023
diff
changeset
|
20 #include <config.h> |
4603 | 21 |
22 /* Specification. */ | |
23 #include "progname.h" | |
24 | |
25 #include <stdbool.h> | |
26 #include <stdio.h> | |
27 #include <stdlib.h> | |
28 #include <string.h> | |
29 #include <fcntl.h> | |
30 #if HAVE_UNISTD_H | |
31 # include <unistd.h> | |
32 #endif | |
33 #include <sys/stat.h> | |
34 | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
35 /* 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
|
36 #if HAVE_MACH_O_DYLD_H |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
37 # include <mach-o/dyld.h> |
4603 | 38 #endif |
39 | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
40 #if defined _WIN32 || defined __WIN32__ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
41 # define WIN32_NATIVE |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
42 #endif |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
43 |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
44 #if defined WIN32_NATIVE || defined __CYGWIN__ |
4603 | 45 # define WIN32_LEAN_AND_MEAN |
46 # include <windows.h> | |
47 #endif | |
48 | |
49 #include "xreadlink.h" | |
50 #include "canonicalize.h" | |
51 #include "relocatable.h" | |
52 | |
53 #ifdef NO_XMALLOC | |
54 # define xmalloc malloc | |
5583 | 55 # define xstrdup strdup |
4603 | 56 #else |
5583 | 57 # include "xalloc.h" |
4603 | 58 #endif |
59 | |
60 /* Pathname support. | |
61 ISSLASH(C) tests whether C is a directory separator character. | |
62 IS_PATH_WITH_DIR(P) tests whether P contains a directory specification. | |
63 */ | |
5053
eebff8c51a9b
Treat Cygwin like Windows regarding pathname syntax.
Bruno Haible <bruno@clisp.org>
parents:
4691
diff
changeset
|
64 #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
|
65 /* Win32, Cygwin, OS/2, DOS */ |
4603 | 66 # define ISSLASH(C) ((C) == '/' || (C) == '\\') |
67 # define HAS_DEVICE(P) \ | |
68 ((((P)[0] >= 'A' && (P)[0] <= 'Z') || ((P)[0] >= 'a' && (P)[0] <= 'z')) \ | |
69 && (P)[1] == ':') | |
70 # define IS_PATH_WITH_DIR(P) \ | |
71 (strchr (P, '/') != NULL || strchr (P, '\\') != NULL || HAS_DEVICE (P)) | |
5164
773a21466082
Rename FILESYSTEM_PREFIX_LEN.
Bruno Haible <bruno@clisp.org>
parents:
5053
diff
changeset
|
72 # define FILE_SYSTEM_PREFIX_LEN(P) (HAS_DEVICE (P) ? 2 : 0) |
4603 | 73 #else |
74 /* Unix */ | |
75 # define ISSLASH(C) ((C) == '/') | |
76 # define IS_PATH_WITH_DIR(P) (strchr (P, '/') != NULL) | |
5164
773a21466082
Rename FILESYSTEM_PREFIX_LEN.
Bruno Haible <bruno@clisp.org>
parents:
5053
diff
changeset
|
77 # define FILE_SYSTEM_PREFIX_LEN(P) 0 |
4603 | 78 #endif |
79 | |
80 #undef set_program_name | |
81 | |
82 | |
83 #if ENABLE_RELOCATABLE | |
84 | |
85 #ifdef __linux__ | |
86 /* File descriptor of the executable. | |
87 (Only used to verify that we find the correct executable.) */ | |
88 static int executable_fd = -1; | |
89 #endif | |
90 | |
91 /* Tests whether a given pathname may belong to the executable. */ | |
92 static bool | |
93 maybe_executable (const char *filename) | |
94 { | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
95 /* 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
|
96 #if !(defined WIN32_NATIVE && !defined __CYGWIN__) |
4603 | 97 if (access (filename, X_OK) < 0) |
98 return false; | |
99 | |
100 #ifdef __linux__ | |
101 if (executable_fd >= 0) | |
102 { | |
103 /* If we already have an executable_fd, check that filename points to | |
104 the same inode. */ | |
105 struct stat statexe; | |
106 struct stat statfile; | |
107 | |
108 if (fstat (executable_fd, &statexe) >= 0) | |
109 { | |
110 if (stat (filename, &statfile) < 0) | |
111 return false; | |
112 if (!(statfile.st_dev | |
113 && statfile.st_dev == statexe.st_dev | |
114 && statfile.st_ino == statexe.st_ino)) | |
115 return false; | |
116 } | |
117 } | |
118 #endif | |
119 #endif | |
120 | |
121 return true; | |
122 } | |
123 | |
124 /* Determine the full pathname of the current executable, freshly allocated. | |
125 Return NULL if unknown. | |
126 Guaranteed to work on Linux and Woe32. Likely to work on the other | |
127 Unixes (maybe except BeOS), under most conditions. */ | |
128 static char * | |
129 find_executable (const char *argv0) | |
130 { | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
131 #if defined WIN32_NATIVE || defined __CYGWIN__ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
132 char location[MAX_PATH]; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
133 int length = GetModuleFileName (NULL, location, sizeof (location)); |
4603 | 134 if (length < 0) |
135 return NULL; | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
136 if (!IS_PATH_WITH_DIR (location)) |
4603 | 137 /* Shouldn't happen. */ |
138 return NULL; | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
139 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
140 #if defined __CYGWIN__ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
141 /* 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
|
142 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
|
143 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
|
144 code in relocatable.c. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
145 /* 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
|
146 to the Unix-like slashified notation. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
147 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
|
148 /* 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
|
149 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
|
150 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
|
151 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
|
152 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
|
153 location_as_posix_path[MAX_PATH - 1] = '\0'; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
154 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
|
155 /* A sign of buffer overflow or path truncation. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
156 return NULL; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
157 /* 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
|
158 return canonicalize_file_name (location_as_posix_path); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
159 #else |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
160 return xstrdup (location); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
161 #endif |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
162 } |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
163 #else /* Unix && !Cygwin */ |
4603 | 164 #ifdef __linux__ |
165 /* The executable is accessible as /proc/<pid>/exe. In newer Linux | |
166 versions, also as /proc/self/exe. Linux >= 2.1 provides a symlink | |
167 to the true pathname; older Linux versions give only device and ino, | |
168 enclosed in brackets, which we cannot use here. */ | |
169 { | |
170 char *link; | |
171 | |
172 link = xreadlink ("/proc/self/exe"); | |
173 if (link != NULL && link[0] != '[') | |
174 return link; | |
175 if (executable_fd < 0) | |
176 executable_fd = open ("/proc/self/exe", O_RDONLY, 0); | |
177 | |
178 { | |
179 char buf[6+10+5]; | |
180 sprintf (buf, "/proc/%d/exe", getpid ()); | |
181 link = xreadlink (buf); | |
182 if (link != NULL && link[0] != '[') | |
183 return link; | |
184 if (executable_fd < 0) | |
185 executable_fd = open (buf, O_RDONLY, 0); | |
186 } | |
187 } | |
188 #endif | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
189 #if HAVE_MACH_O_DYLD_H && HAVE__NSGETEXECUTABLEPATH |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
190 /* On MacOS X 10.2 or newer, the function |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
191 int _NSGetExecutablePath (char *buf, unsigned long *bufsize); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
192 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
|
193 char location[4096]; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
194 unsigned long length = sizeof (location); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
195 if (_NSGetExecutablePath (location, &length) == 0 |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
196 && location[0] == '/') |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
197 return canonicalize_file_name (location); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
198 #endif |
4603 | 199 /* Guess the executable's full path. We assume the executable has been |
200 called via execlp() or execvp() with properly set up argv[0]. The | |
201 login(1) convention to add a '-' prefix to argv[0] is not supported. */ | |
202 { | |
203 bool has_slash = false; | |
204 { | |
205 const char *p; | |
206 for (p = argv0; *p; p++) | |
207 if (*p == '/') | |
208 { | |
209 has_slash = true; | |
210 break; | |
211 } | |
212 } | |
213 if (!has_slash) | |
214 { | |
215 /* exec searches paths without slashes in the directory list given | |
216 by $PATH. */ | |
217 const char *path = getenv ("PATH"); | |
218 | |
219 if (path != NULL) | |
220 { | |
221 const char *p; | |
222 const char *p_next; | |
223 | |
224 for (p = path; *p; p = p_next) | |
225 { | |
226 const char *q; | |
227 size_t p_len; | |
228 char *concat_name; | |
229 | |
230 for (q = p; *q; q++) | |
231 if (*q == ':') | |
232 break; | |
233 p_len = q - p; | |
234 p_next = (*q == '\0' ? q : q + 1); | |
235 | |
236 /* We have a path item at p, of length p_len. | |
237 Now concatenate the path item and argv0. */ | |
238 concat_name = (char *) xmalloc (p_len + strlen (argv0) + 2); | |
239 #ifdef NO_XMALLOC | |
240 if (concat_name == NULL) | |
241 return NULL; | |
242 #endif | |
243 if (p_len == 0) | |
244 /* An empty PATH element designates the current directory. */ | |
245 strcpy (concat_name, argv0); | |
246 else | |
247 { | |
248 memcpy (concat_name, p, p_len); | |
249 concat_name[p_len] = '/'; | |
250 strcpy (concat_name + p_len + 1, argv0); | |
251 } | |
252 if (maybe_executable (concat_name)) | |
253 return canonicalize_file_name (concat_name); | |
254 free (concat_name); | |
255 } | |
256 } | |
257 /* Not found in the PATH, assume the current directory. */ | |
258 } | |
259 /* exec treats paths containing slashes as relative to the current | |
260 directory. */ | |
261 if (maybe_executable (argv0)) | |
262 return canonicalize_file_name (argv0); | |
263 } | |
264 /* No way to find the executable. */ | |
265 return NULL; | |
266 #endif | |
267 } | |
268 | |
269 /* Full pathname of executable, or NULL. */ | |
270 static char *executable_fullname; | |
271 | |
272 static void | |
273 prepare_relocate (const char *orig_installprefix, const char *orig_installdir, | |
274 const char *argv0) | |
275 { | |
276 const char *curr_prefix; | |
277 | |
278 /* Determine the full pathname of the current executable. */ | |
279 executable_fullname = find_executable (argv0); | |
280 | |
281 /* Determine the current installation prefix from it. */ | |
282 curr_prefix = compute_curr_prefix (orig_installprefix, orig_installdir, | |
283 executable_fullname); | |
284 if (curr_prefix != NULL) | |
285 /* Now pass this prefix to all copies of the relocate.c source file. */ | |
286 set_relocation_prefix (orig_installprefix, curr_prefix); | |
287 } | |
288 | |
289 /* Set program_name, based on argv[0], and original installation prefix and | |
290 directory, for relocatability. */ | |
291 void | |
292 set_program_name_and_installdir (const char *argv0, | |
293 const char *orig_installprefix, | |
294 const char *orig_installdir) | |
295 { | |
296 const char *argv0_stripped = argv0; | |
297 | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
298 /* 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
|
299 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
|
300 Remove the ".bin" here. */ |
4603 | 301 { |
302 size_t argv0_len = strlen (argv0); | |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
303 const size_t exeext_len = sizeof (EXEEXT) - sizeof (""); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
304 if (argv0_len > 4 + exeext_len) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
305 if (memcmp (argv0 + argv0_len - exeext_len - 4, ".bin", 4) == 0) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
306 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
307 if (sizeof (EXEEXT) > sizeof ("")) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
308 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
309 /* Compare using an inlined copy of c_strncasecmp(), because |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
310 the filenames may have undergone a case conversion since |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
311 they were packaged. In other words, EXEEXT may be ".exe" |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
312 on one system and ".EXE" on another. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
313 static const char exeext[] = EXEEXT; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
314 const char *s1 = argv0 + argv0_len - exeext_len; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
315 const char *s2 = exeext; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
316 for (; *s1 != '\0'; s1++, s2++) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
317 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
318 unsigned char c1 = *s1; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
319 unsigned char c2 = *s2; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
320 if ((c1 >= 'A' && c1 <= 'Z' ? c1 - 'A' + 'a' : c1) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
321 != (c2 >= 'A' && c2 <= 'Z' ? c2 - 'A' + 'a' : c2)) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
322 goto done_stripping; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
323 } |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
324 } |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
325 /* Remove ".bin" before EXEEXT or its equivalent. */ |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
326 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
327 char *shorter = (char *) xmalloc (argv0_len - 4 + 1); |
4603 | 328 #ifdef NO_XMALLOC |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
329 if (shorter != NULL) |
4603 | 330 #endif |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
331 { |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
332 memcpy (shorter, argv0, argv0_len - exeext_len - 4); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
333 if (sizeof (EXEEXT) > sizeof ("")) |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
334 memcpy (shorter + argv0_len - exeext_len - 4, |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
335 argv0 + argv0_len - exeext_len - 4, |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
336 exeext_len); |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
337 shorter[argv0_len - 4] = '\0'; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
338 argv0_stripped = shorter; |
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
339 } |
4603 | 340 } |
7023
d78abd0c0b70
Update from GNU gettext 0.15.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
341 done_stripping: ; |
4603 | 342 } |
343 } | |
344 | |
345 set_program_name (argv0_stripped); | |
346 | |
347 prepare_relocate (orig_installprefix, orig_installdir, argv0); | |
348 } | |
349 | |
350 /* Return the full pathname of the current executable, based on the earlier | |
351 call to set_program_name_and_installdir. Return NULL if unknown. */ | |
352 char * | |
4691 | 353 get_full_program_name (void) |
4603 | 354 { |
355 return executable_fullname; | |
356 } | |
357 | |
358 #endif |