gnulib: lib/progreloc.c annotate

annotate lib/progreloc.c @ 40188:e13b9344e430

progreloc: Simplify code for Android. * lib/progreloc.c (executable_fd): Don't define on Android. (maybe_executable, find_executable): Don't use executable_fd on Android.

author	Bruno Haible <bruno@clisp.org>
date	Tue, 19 Feb 2019 21:38:53 +0100
parents	db994b489ff2
children	3ba41edecde6

rev	line source
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	1 /* Provide relocatable programs.
40057 b06060465f09 maint: Run 'make update-copyright' Paul Eggert <eggert@cs.ucla.edu> parents: 19595 diff changeset	2 Copyright (C) 2003-2019 Free Software Foundation, Inc.
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	3 Written by Bruno Haible <bruno@clisp.org>, 2003.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	9
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	10 This program is distributed in the hope that it will be useful,
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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
19190 9759915b2aca all: prefer https: URLs Paul Eggert <eggert@cs.ucla.edu> parents: 18626 diff changeset	16 along with this program. If not, see <https://www.gnu.org/licenses/>. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	17
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	18
14541 0f5c066f32ab * lib/progreloc.c (_GL_USE_STDLIB_ALLOC, malloc): Likewise. Paul Eggert <eggert@cs.ucla.edu> parents: 14399 diff changeset	19 #define _GL_USE_STDLIB_ALLOC 1
7304 1c4ed7637c24 Include <config.h> unconditionally. Bruno Haible <bruno@clisp.org> parents: 7023 diff changeset	20 #include <config.h>
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	21
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	22 /* Specification. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	23 #include "progname.h"
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	24
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	25 #include <stdbool.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	26 #include <stdio.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	27 #include <stdlib.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	28 #include <string.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	29 #include <fcntl.h>
8272 fd48e35f4e5e New modules relocatable, relocatable-lib, relocatable-script. Bruno Haible <bruno@clisp.org> parents: 7863 diff changeset	30 #include <unistd.h>
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	31 #include <sys/stat.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	32
16935 498a2211d839 Write "Mac OS X" instead of "MacOS X". Bruno Haible <bruno@clisp.org> parents: 16242 diff changeset	33 /* Get declaration of _NSGetExecutablePath on Mac OS X 10.2 or newer. */
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	34 #if HAVE_MACH_O_DYLD_H
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	35 # include <mach-o/dyld.h>
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	36 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	37
19595 beb2ad957aca Simplify code. Drop support for Borland C++ on Windows. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	38 #if defined _WIN32 && !defined __CYGWIN__
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	39 # define WINDOWS_NATIVE
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	40 #endif
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	41
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	42 #ifdef WINDOWS_NATIVE
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	43 # define WIN32_LEAN_AND_MEAN
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	44 # include <windows.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	45 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	46
17824 542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	47 #ifdef __EMX__
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	48 # define INCL_DOS
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	49 # include <os2.h>
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	50 #endif
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	51
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	52 #include "relocatable.h"
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	53
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	54 #ifdef NO_XMALLOC
9547 c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	55 # include "areadlink.h"
c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	56 # define xreadlink areadlink
c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	57 #else
c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	58 # include "xreadlink.h"
c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	59 #endif
c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	60
c3d038b0b4d3 Fix link error in relocatability wrappers, due to xalloc_die(). Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	61 #ifdef NO_XMALLOC
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	62 # define xmalloc malloc
5583 5c8e3fc4efe4 Update from gettext. Bruno Haible <bruno@clisp.org> parents: 5270 diff changeset	63 # define xstrdup strdup
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	64 #else
5583 5c8e3fc4efe4 Update from gettext. Bruno Haible <bruno@clisp.org> parents: 5270 diff changeset	65 # include "xalloc.h"
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	66 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	67
13667 3211d36b9926 relocatable-prog-wrapper: Fix compilation failure due to O_EXEC. Bruno Haible <bruno@clisp.org> parents: 13664 diff changeset	68 #ifndef O_EXEC
3211d36b9926 relocatable-prog-wrapper: Fix compilation failure due to O_EXEC. Bruno Haible <bruno@clisp.org> parents: 13664 diff changeset	69 # 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	70 #endif
3211d36b9926 relocatable-prog-wrapper: Fix compilation failure due to O_EXEC. Bruno Haible <bruno@clisp.org> parents: 13664 diff changeset	71
12049 22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	72 /* Declare canonicalize_file_name.
22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	73 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	74 one. */
22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	75 extern char * canonicalize_file_name (const char *name);
22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	76
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	77 /* Pathname support.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	78 ISSLASH(C) tests whether C is a directory separator character.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	79 IS_PATH_WITH_DIR(P) tests whether P contains a directory specification.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	80 */
19595 beb2ad957aca Simplify code. Drop support for Borland C++ on Windows. Bruno Haible <bruno@clisp.org> parents: 19484 diff changeset	81 #if (defined _WIN32 && !defined __CYGWIN__) \|\| defined __EMX__ \|\| defined __DJGPP__
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	82 /* Native Windows, OS/2, DOS */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	83 # define ISSLASH(C) ((C) == '/' \|\| (C) == '\\')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	84 # define HAS_DEVICE(P) \
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	85 ((((P)[0] >= 'A' && (P)[0] <= 'Z') \|\| ((P)[0] >= 'a' && (P)[0] <= 'z')) \
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	86 && (P)[1] == ':')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	87 # define IS_PATH_WITH_DIR(P) \
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	88 (strchr (P, '/') != NULL \|\| strchr (P, '\\') != NULL \|\| HAS_DEVICE (P))
5164 773a21466082 Rename FILESYSTEM_PREFIX_LEN. Bruno Haible <bruno@clisp.org> parents: 5053 diff changeset	89 # define FILE_SYSTEM_PREFIX_LEN(P) (HAS_DEVICE (P) ? 2 : 0)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	90 #else
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	91 /* Unix */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	92 # define ISSLASH(C) ((C) == '/')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	93 # define IS_PATH_WITH_DIR(P) (strchr (P, '/') != NULL)
5164 773a21466082 Rename FILESYSTEM_PREFIX_LEN. Bruno Haible <bruno@clisp.org> parents: 5053 diff changeset	94 # define FILE_SYSTEM_PREFIX_LEN(P) 0
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	95 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	96
13397 758ef73803db Avoid relocwrapper link errors due to gnulib replacement functions. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	97 /* 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	98 #undef sprintf
758ef73803db Avoid relocwrapper link errors due to gnulib replacement functions. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	99
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	100 #undef set_program_name
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	101
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	102
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	103 #if ENABLE_RELOCATABLE
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	104
40188 e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	105 #if defined __linux__ \|\| defined __CYGWIN__
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	106 /* File descriptor of the executable.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	107 (Only used to verify that we find the correct executable.) */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	108 static int executable_fd = -1;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	109 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	110
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	111 /* Tests whether a given pathname may belong to the executable. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	112 static bool
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	113 maybe_executable (const char *filename)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	114 {
16242 59c686e5b2df Talk about "native Windows API", not "Woe32". Bruno Haible <bruno@clisp.org> parents: 16214 diff changeset	115 /* The native Windows API lacks the access() function. */
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	116 #if !defined WINDOWS_NATIVE
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	117 if (access (filename, X_OK) < 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	118 return false;
14399 5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	119 #endif
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	120
40188 e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	121 #if defined __linux__ \|\| defined __CYGWIN__
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	122 if (executable_fd >= 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	123 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	124 /* 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	125 the same inode. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	126 struct stat statexe;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	127 struct stat statfile;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	128
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	129 if (fstat (executable_fd, &statexe) >= 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	130 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	131 if (stat (filename, &statfile) < 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	132 return false;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	133 if (!(statfile.st_dev
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	134 && statfile.st_dev == statexe.st_dev
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	135 && statfile.st_ino == statexe.st_ino))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	136 return false;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	137 }
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	138 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	139 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	140
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	141 return true;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	142 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	143
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	144 /* Determine the full pathname of the current executable, freshly allocated.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	145 Return NULL if unknown.
16242 59c686e5b2df Talk about "native Windows API", not "Woe32". Bruno Haible <bruno@clisp.org> parents: 16214 diff changeset	146 Guaranteed to work on Linux and native Windows. Likely to work on the
59c686e5b2df Talk about "native Windows API", not "Woe32". Bruno Haible <bruno@clisp.org> parents: 16214 diff changeset	147 other Unixes (maybe except BeOS), under most conditions. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	148 static char *
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	149 find_executable (const char *argv0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	150 {
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	151 #if defined WINDOWS_NATIVE
ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	152 /* Native Windows only.
14399 5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	153 On Cygwin, it is better to use the Cygwin provided /proc interface, than
16214 ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	154 to use native Windows API and cygwin_conv_to_posix_path, because it
ec738d6aeef5 Talk about "native Windows API", not "Win32". Bruno Haible <bruno@clisp.org> parents: 16201 diff changeset	155 supports longer file names
19192 d86e08b1f555 all: Replace many more http URLs by https URLs. Update stale URLs. Bruno Haible <bruno@clisp.org> parents: 19190 diff changeset	156 (see <https://cygwin.com/ml/cygwin/2011-01/msg00410.html>). */
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	157 char location[MAX_PATH];
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	158 int length = GetModuleFileName (NULL, location, sizeof (location));
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	159 if (length < 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	160 return NULL;
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	161 if (!IS_PATH_WITH_DIR (location))
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	162 /* Shouldn't happen. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	163 return NULL;
14399 5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	164 return xstrdup (location);
17824 542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	165 #elif defined __EMX__
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	166 PPIB ppib;
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	167 char location[CCHMAXPATH];
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	168
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	169 /* See http://cyberkinetica.homeunix.net/os2tk45/cp1/619_L2H_DosGetInfoBlocksSynt.html
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	170 for specification of DosGetInfoBlocks(). */
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	171 if (DosGetInfoBlocks (NULL, &ppib))
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	172 return NULL;
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	173
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	174 /* See http://cyberkinetica.homeunix.net/os2tk45/cp1/1247_L2H_DosQueryModuleNameSy.html
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	175 for specification of DosQueryModuleName(). */
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	176 if (DosQueryModuleName (ppib->pib_hmte, sizeof (location), location))
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	177 return NULL;
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	178
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	179 _fnslashify (location);
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	180
542f0c385022 find_executable: port to EMX KO Myung-Hun <komh78@gmail.com> parents: 17666 diff changeset	181 return xstrdup (location);
14399 5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	182 #else /* Unix */
40188 e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	183 # if defined __linux__
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	184 /* The executable is accessible as /proc/<pid>/exe. In newer Linux
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	185 versions, also as /proc/self/exe. Linux >= 2.1 provides a symlink
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	186 to the true pathname; older Linux versions give only device and ino,
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	187 enclosed in brackets, which we cannot use here. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	188 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	189 char *link;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	190
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	191 link = xreadlink ("/proc/self/exe");
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	192 if (link != NULL && link[0] != '[')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	193 return link;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	194 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	195 executable_fd = open ("/proc/self/exe", O_EXEC, 0);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	196
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	197 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	198 char buf[6+10+5];
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	199 sprintf (buf, "/proc/%d/exe", getpid ());
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	200 link = xreadlink (buf);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	201 if (link != NULL && link[0] != '[')
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	202 return link;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	203 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	204 executable_fd = open (buf, O_EXEC, 0);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	205 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	206 }
14384 588ed4cdea87 Fix misindentation of preprocessor directives. Bruno Haible <bruno@clisp.org> parents: 14079 diff changeset	207 # endif
40188 e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	208 # if defined __ANDROID__
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	209 {
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	210 char *link;
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	211
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	212 link = xreadlink ("/proc/self/exe");
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	213 if (link != NULL)
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	214 return link;
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	215 }
e13b9344e430 progreloc: Simplify code for Android. Bruno Haible <bruno@clisp.org> parents: 40151 diff changeset	216 # endif
14399 5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	217 # ifdef __CYGWIN__
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	218 /* The executable is accessible as /proc/<pid>/exe, at least in
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	219 Cygwin >= 1.5. */
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	220 {
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	221 char *link;
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	222
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	223 link = xreadlink ("/proc/self/exe");
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	224 if (link != NULL)
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	225 return link;
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	226 if (executable_fd < 0)
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	227 executable_fd = open ("/proc/self/exe", O_EXEC, 0);
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	228 }
5e10178f1466 On Cygwin, use /proc file system instead of win32 API. Bruno Haible <bruno@clisp.org> parents: 14384 diff changeset	229 # endif
14384 588ed4cdea87 Fix misindentation of preprocessor directives. Bruno Haible <bruno@clisp.org> parents: 14079 diff changeset	230 # if HAVE_MACH_O_DYLD_H && HAVE__NSGETEXECUTABLEPATH
16935 498a2211d839 Write "Mac OS X" instead of "MacOS X". Bruno Haible <bruno@clisp.org> parents: 16242 diff changeset	231 /* On Mac OS 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	232 int _NSGetExecutablePath (char buf, uint32_t bufsize);
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	233 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	234 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	235 unsigned int length = sizeof (location);
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	236 if (_NSGetExecutablePath (location, &length) == 0
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	237 && location[0] == '/')
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	238 return canonicalize_file_name (location);
14384 588ed4cdea87 Fix misindentation of preprocessor directives. Bruno Haible <bruno@clisp.org> parents: 14079 diff changeset	239 # endif
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	240 /* Guess the executable's full path. We assume the executable has been
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	241 called via execlp() or execvp() with properly set up argv[0]. The
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	242 login(1) convention to add a '-' prefix to argv[0] is not supported. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	243 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	244 bool has_slash = false;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	245 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	246 const char *p;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	247 for (p = argv0; *p; p++)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	248 if (*p == '/')
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	249 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	250 has_slash = true;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	251 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	252 }
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	253 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	254 if (!has_slash)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	255 {
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	256 /* 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	257 by $PATH. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	258 const char *path = getenv ("PATH");
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	259
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	260 if (path != NULL)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	261 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	262 const char *p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	263 const char *p_next;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	264
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	265 for (p = path; *p; p = p_next)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	266 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	267 const char *q;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	268 size_t p_len;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	269 char *concat_name;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	270
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	271 for (q = p; *q; q++)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	272 if (*q == ':')
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	273 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	274 p_len = q - p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	275 p_next = (*q == '\0' ? q : q + 1);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	276
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	277 /* 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	278 Now concatenate the path item and argv0. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	279 concat_name = (char *) xmalloc (p_len + strlen (argv0) + 2);
14384 588ed4cdea87 Fix misindentation of preprocessor directives. Bruno Haible <bruno@clisp.org> parents: 14079 diff changeset	280 # ifdef NO_XMALLOC
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	281 if (concat_name == NULL)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	282 return NULL;
14384 588ed4cdea87 Fix misindentation of preprocessor directives. Bruno Haible <bruno@clisp.org> parents: 14079 diff changeset	283 # endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	284 if (p_len == 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	285 /* An empty PATH element designates the current directory. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	286 strcpy (concat_name, argv0);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	287 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	288 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	289 memcpy (concat_name, p, p_len);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	290 concat_name[p_len] = '/';
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	291 strcpy (concat_name + p_len + 1, argv0);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	292 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	293 if (maybe_executable (concat_name))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	294 return canonicalize_file_name (concat_name);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	295 free (concat_name);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	296 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	297 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	298 /* Not found in the PATH, assume the current directory. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	299 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	300 /* exec treats paths containing slashes as relative to the current
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	301 directory. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	302 if (maybe_executable (argv0))
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	303 return canonicalize_file_name (argv0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	304 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	305 /* No way to find the executable. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	306 return NULL;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	307 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	308 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	309
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	310 /* Full pathname of executable, or NULL. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	311 static char *executable_fullname;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	312
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	313 static void
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	314 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	315 const char *argv0)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	316 {
9576 8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	317 char *curr_prefix;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	318
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	319 /* Determine the full pathname of the current executable. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	320 executable_fullname = find_executable (argv0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	321
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	322 /* Determine the current installation prefix from it. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	323 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	324 executable_fullname);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	325 if (curr_prefix != NULL)
9576 8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	326 {
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	327 /* 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	328 set_relocation_prefix (orig_installprefix, curr_prefix);
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	329
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	330 free (curr_prefix);
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	331 }
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	332 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	333
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	334 /* Set program_name, based on argv[0], and original installation prefix and
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	335 directory, for relocatability. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	336 void
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	337 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	338 const char *orig_installprefix,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	339 const char *orig_installdir)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	340 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	341 const char *argv0_stripped = argv0;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	342
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	343 /* 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	344 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	345 Remove the ".bin" here. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	346 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	347 size_t argv0_len = strlen (argv0);
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	348 const size_t exeext_len = sizeof (EXEEXT) - sizeof ("");
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	349 if (argv0_len > 4 + exeext_len)
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	350 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	351 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	352 if (sizeof (EXEEXT) > sizeof (""))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	353 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	354 /* 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	355 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	356 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	357 on one system and ".EXE" on another. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	358 static const char exeext[] = EXEEXT;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	359 const char *s1 = argv0 + argv0_len - exeext_len;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	360 const char *s2 = exeext;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	361 for (; *s1 != '\0'; s1++, s2++)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	362 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	363 unsigned char c1 = *s1;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	364 unsigned char c2 = *s2;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	365 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	366 != (c2 >= 'A' && c2 <= 'Z' ? c2 - 'A' + 'a' : c2))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	367 goto done_stripping;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	368 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	369 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	370 /* Remove ".bin" before EXEEXT or its equivalent. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	371 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	372 char shorter = (char ) xmalloc (argv0_len - 4 + 1);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	373 #ifdef NO_XMALLOC
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	374 if (shorter != NULL)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	375 #endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	376 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	377 memcpy (shorter, argv0, argv0_len - exeext_len - 4);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	378 if (sizeof (EXEEXT) > sizeof (""))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	379 memcpy (shorter + argv0_len - exeext_len - 4,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	380 argv0 + argv0_len - exeext_len - 4,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	381 exeext_len);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	382 shorter[argv0_len - 4] = '\0';
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	383 argv0_stripped = shorter;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	384 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	385 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	386 done_stripping: ;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	387 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	388 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	389
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	390 set_program_name (argv0_stripped);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	391
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	392 prepare_relocate (orig_installprefix, orig_installdir, argv0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	393 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	394
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	395 /* Return the full pathname of the current executable, based on the earlier
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	396 call to set_program_name_and_installdir. Return NULL if unknown. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	397 char *
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4603 diff changeset	398 get_full_program_name (void)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	399 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	400 return executable_fullname;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	401 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	402
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	403 #endif

Mercurial > gnulib

annotate lib/progreloc.c @ 40188:e13b9344e430