gnulib: lib/progreloc.c annotate

annotate lib/progreloc.c @ 13397:758ef73803db

Avoid relocwrapper link errors due to gnulib replacement functions.

author	Bruno Haible <bruno@clisp.org>
date	Wed, 09 Jun 2010 12:47:59 +0200
parents	c2cbabec01dd
children	241057e2e60f

rev	line source
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	1 /* Provide relocatable programs.
12559 c2cbabec01dd update nearly all FSF copyright year lists to include 2010 Jim Meyering <meyering@redhat.com> parents: 12421 diff changeset	2 Copyright (C) 2003-2010 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
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 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
7304 1c4ed7637c24 Include <config.h> unconditionally. Bruno Haible <bruno@clisp.org> parents: 7023 diff changeset	19 #include <config.h>
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	20
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	21 /* Specification. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	22 #include "progname.h"
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	23
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	24 #include <stdbool.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	25 #include <stdio.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	26 #include <stdlib.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	27 #include <string.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	30 #include <sys/stat.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	35 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	42 # define WIN32_LEAN_AND_MEAN
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	43 # include <windows.h>
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	44 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	45
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	46 #include "relocatable.h"
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	47
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	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 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	56 # define xmalloc malloc
5583 5c8e3fc4efe4 Update from gettext. Bruno Haible <bruno@clisp.org> parents: 5270 diff changeset	57 # define xstrdup strdup
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	58 #else
5583 5c8e3fc4efe4 Update from gettext. Bruno Haible <bruno@clisp.org> parents: 5270 diff changeset	59 # include "xalloc.h"
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	60 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	61
12049 22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	62 /* Declare canonicalize_file_name.
22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	63 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	64 one. */
22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	65 extern char * canonicalize_file_name (const char *name);
22a617bea642 Declare canonicalize_file_name. Bruno Haible <bruno@clisp.org> parents: 12034 diff changeset	66
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	67 /* Pathname support.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	68 ISSLASH(C) tests whether C is a directory separator character.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	69 IS_PATH_WITH_DIR(P) tests whether P contains a directory specification.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	70 */
5053 eebff8c51a9b Treat Cygwin like Windows regarding pathname syntax. Bruno Haible <bruno@clisp.org> parents: 4691 diff changeset	71 #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	72 /* Win32, Cygwin, OS/2, DOS */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	73 # define ISSLASH(C) ((C) == '/' \|\| (C) == '\\')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	74 # define HAS_DEVICE(P) \
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	75 ((((P)[0] >= 'A' && (P)[0] <= 'Z') \|\| ((P)[0] >= 'a' && (P)[0] <= 'z')) \
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	76 && (P)[1] == ':')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	77 # define IS_PATH_WITH_DIR(P) \
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	78 (strchr (P, '/') != NULL \|\| strchr (P, '\\') != NULL \|\| HAS_DEVICE (P))
5164 773a21466082 Rename FILESYSTEM_PREFIX_LEN. Bruno Haible <bruno@clisp.org> parents: 5053 diff changeset	79 # define FILE_SYSTEM_PREFIX_LEN(P) (HAS_DEVICE (P) ? 2 : 0)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	80 #else
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	81 /* Unix */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	82 # define ISSLASH(C) ((C) == '/')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	83 # define IS_PATH_WITH_DIR(P) (strchr (P, '/') != NULL)
5164 773a21466082 Rename FILESYSTEM_PREFIX_LEN. Bruno Haible <bruno@clisp.org> parents: 5053 diff changeset	84 # define FILE_SYSTEM_PREFIX_LEN(P) 0
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	85 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	86
7863 cb2590895141 New module 'fchdir'. Bruno Haible <bruno@clisp.org> parents: 7304 diff changeset	87 /* The results of open() in this file are not used with fchdir,
cb2590895141 New module 'fchdir'. Bruno Haible <bruno@clisp.org> parents: 7304 diff changeset	88 therefore save some unnecessary work in fchdir.c. */
cb2590895141 New module 'fchdir'. Bruno Haible <bruno@clisp.org> parents: 7304 diff changeset	89 #undef open
cb2590895141 New module 'fchdir'. Bruno Haible <bruno@clisp.org> parents: 7304 diff changeset	90 #undef close
cb2590895141 New module 'fchdir'. Bruno Haible <bruno@clisp.org> parents: 7304 diff changeset	91
13397 758ef73803db Avoid relocwrapper link errors due to gnulib replacement functions. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	92 /* 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	93 #undef malloc
758ef73803db Avoid relocwrapper link errors due to gnulib replacement functions. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	94 #undef sprintf
758ef73803db Avoid relocwrapper link errors due to gnulib replacement functions. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	95
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	96 #undef set_program_name
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	97
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	98
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	99 #if ENABLE_RELOCATABLE
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	100
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	101 #ifdef __linux__
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	102 /* File descriptor of the executable.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	103 (Only used to verify that we find the correct executable.) */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	104 static int executable_fd = -1;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	105 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	106
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	107 /* Tests whether a given pathname may belong to the executable. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	108 static bool
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	109 maybe_executable (const char *filename)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	110 {
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	111 /* 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	112 #if !(defined WIN32_NATIVE && !defined __CYGWIN__)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	113 if (access (filename, X_OK) < 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	114 return false;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	115
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	116 #ifdef __linux__
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	117 if (executable_fd >= 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	118 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	119 /* 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	120 the same inode. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	121 struct stat statexe;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	122 struct stat statfile;
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 (fstat (executable_fd, &statexe) >= 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	125 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	126 if (stat (filename, &statfile) < 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	127 return false;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	128 if (!(statfile.st_dev
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	129 && statfile.st_dev == statexe.st_dev
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	130 && statfile.st_ino == statexe.st_ino))
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 }
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	133 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	134 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	135 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	136
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	137 return true;
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
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	140 /* Determine the full pathname of the current executable, freshly allocated.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	141 Return NULL if unknown.
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	142 Guaranteed to work on Linux and Woe32. Likely to work on the other
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	143 Unixes (maybe except BeOS), under most conditions. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	144 static char *
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	145 find_executable (const char *argv0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	146 {
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	147 #if defined WIN32_NATIVE \|\| defined __CYGWIN__
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	148 char location[MAX_PATH];
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	149 int length = GetModuleFileName (NULL, location, sizeof (location));
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	150 if (length < 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	151 return NULL;
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	152 if (!IS_PATH_WITH_DIR (location))
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	153 /* Shouldn't happen. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	154 return NULL;
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	155 {
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	156 #if defined __CYGWIN__
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	157 /* 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	158 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	159 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	160 code in relocatable.c. */
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	161 /* 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	162 to the Unix-like slashified notation. */
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	163 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	164 /* 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	165 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	166 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	167 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	168 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	169 location_as_posix_path[MAX_PATH - 1] = '\0';
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	170 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	171 /* A sign of buffer overflow or path truncation. */
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	172 return NULL;
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	173 /* 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	174 return canonicalize_file_name (location_as_posix_path);
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	175 #else
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	176 return xstrdup (location);
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	177 #endif
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	178 }
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	179 #else /* Unix && !Cygwin */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	180 #ifdef __linux__
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	181 /* The executable is accessible as /proc/<pid>/exe. In newer Linux
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	182 versions, also as /proc/self/exe. Linux >= 2.1 provides a symlink
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	183 to the true pathname; older Linux versions give only device and ino,
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	184 enclosed in brackets, which we cannot use here. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	185 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	186 char *link;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	187
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	188 link = xreadlink ("/proc/self/exe");
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	189 if (link != NULL && link[0] != '[')
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	190 return link;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	191 if (executable_fd < 0)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	192 executable_fd = open ("/proc/self/exe", O_RDONLY, 0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	193
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	194 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	195 char buf[6+10+5];
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	196 sprintf (buf, "/proc/%d/exe", getpid ());
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	197 link = xreadlink (buf);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	198 if (link != NULL && link[0] != '[')
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	199 return link;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	200 if (executable_fd < 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	201 executable_fd = open (buf, O_RDONLY, 0);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	202 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	203 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	204 #endif
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	205 #if HAVE_MACH_O_DYLD_H && HAVE__NSGETEXECUTABLEPATH
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	206 /* 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	207 int _NSGetExecutablePath (char buf, uint32_t bufsize);
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	208 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	209 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	210 unsigned int length = sizeof (location);
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	211 if (_NSGetExecutablePath (location, &length) == 0
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	212 && location[0] == '/')
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	213 return canonicalize_file_name (location);
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	214 #endif
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	215 /* Guess the executable's full path. We assume the executable has been
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	216 called via execlp() or execvp() with properly set up argv[0]. The
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	217 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	218 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	219 bool has_slash = false;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	220 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	221 const char *p;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	222 for (p = argv0; *p; p++)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	223 if (*p == '/')
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	224 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	225 has_slash = true;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	226 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	227 }
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	228 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	229 if (!has_slash)
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	230 {
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	231 /* 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	232 by $PATH. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	233 const char *path = getenv ("PATH");
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	234
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	235 if (path != NULL)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	236 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	237 const char *p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	238 const char *p_next;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	239
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	240 for (p = path; *p; p = p_next)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	241 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	242 const char *q;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	243 size_t p_len;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	244 char *concat_name;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	245
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	246 for (q = p; *q; q++)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	247 if (*q == ':')
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	248 break;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	249 p_len = q - p;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	250 p_next = (*q == '\0' ? q : q + 1);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	251
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	252 /* 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	253 Now concatenate the path item and argv0. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	254 concat_name = (char *) xmalloc (p_len + strlen (argv0) + 2);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	255 #ifdef NO_XMALLOC
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	256 if (concat_name == NULL)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	257 return NULL;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	258 #endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	259 if (p_len == 0)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	260 /* An empty PATH element designates the current directory. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	261 strcpy (concat_name, argv0);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	262 else
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	263 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	264 memcpy (concat_name, p, p_len);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	265 concat_name[p_len] = '/';
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	266 strcpy (concat_name + p_len + 1, argv0);
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 if (maybe_executable (concat_name))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	269 return canonicalize_file_name (concat_name);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	270 free (concat_name);
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 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	273 /* Not found in the PATH, assume the current directory. */
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	274 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	275 /* exec treats paths containing slashes as relative to the current
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	276 directory. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	277 if (maybe_executable (argv0))
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	278 return canonicalize_file_name (argv0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	279 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	280 /* No way to find the executable. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	281 return NULL;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	282 #endif
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	283 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	284
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	285 /* Full pathname of executable, or NULL. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	286 static char *executable_fullname;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	287
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	288 static void
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	289 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	290 const char *argv0)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	291 {
9576 8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	292 char *curr_prefix;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	293
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	294 /* Determine the full pathname of the current executable. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	295 executable_fullname = find_executable (argv0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	296
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	297 /* Determine the current installation prefix from it. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	298 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	299 executable_fullname);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	300 if (curr_prefix != NULL)
9576 8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	301 {
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	302 /* 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	303 set_relocation_prefix (orig_installprefix, curr_prefix);
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	304
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	305 free (curr_prefix);
8cae100b8cd1 Improve memory cleanup in 'relocatable' module. Bruno Haible <bruno@clisp.org> parents: 9547 diff changeset	306 }
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	307 }
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 /* Set program_name, based on argv[0], and original installation prefix and
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	310 directory, for relocatability. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	311 void
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	312 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	313 const char *orig_installprefix,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	314 const char *orig_installdir)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	315 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	316 const char *argv0_stripped = argv0;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	317
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	318 /* 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	319 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	320 Remove the ".bin" here. */
4603 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 size_t argv0_len = strlen (argv0);
7023 d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	323 const size_t exeext_len = sizeof (EXEEXT) - sizeof ("");
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	324 if (argv0_len > 4 + exeext_len)
d78abd0c0b70 Update from GNU gettext 0.15. Bruno Haible <bruno@clisp.org> parents: 6259 diff changeset	325 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	326 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	327 if (sizeof (EXEEXT) > sizeof (""))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	328 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	329 /* 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	330 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	331 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	332 on one system and ".EXE" on another. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	333 static const char exeext[] = EXEEXT;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	334 const char *s1 = argv0 + argv0_len - exeext_len;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	335 const char *s2 = exeext;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	336 for (; *s1 != '\0'; s1++, s2++)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	337 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	338 unsigned char c1 = *s1;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	339 unsigned char c2 = *s2;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	340 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	341 != (c2 >= 'A' && c2 <= 'Z' ? c2 - 'A' + 'a' : c2))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	342 goto done_stripping;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	343 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	344 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	345 /* Remove ".bin" before EXEEXT or its equivalent. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	346 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	347 char shorter = (char ) xmalloc (argv0_len - 4 + 1);
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	348 #ifdef NO_XMALLOC
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	349 if (shorter != NULL)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	350 #endif
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 memcpy (shorter, argv0, argv0_len - exeext_len - 4);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	353 if (sizeof (EXEEXT) > sizeof (""))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	354 memcpy (shorter + argv0_len - exeext_len - 4,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	355 argv0 + argv0_len - exeext_len - 4,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	356 exeext_len);
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	357 shorter[argv0_len - 4] = '\0';
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	358 argv0_stripped = shorter;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	359 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	360 }
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 12049 diff changeset	361 done_stripping: ;
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	362 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	363 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	364
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	365 set_program_name (argv0_stripped);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	366
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	367 prepare_relocate (orig_installprefix, orig_installdir, argv0);
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	368 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	369
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	370 /* Return the full pathname of the current executable, based on the earlier
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	371 call to set_program_name_and_installdir. Return NULL if unknown. */
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	372 char *
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4603 diff changeset	373 get_full_program_name (void)
4603 fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	374 {
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	375 return executable_fullname;
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	376 }
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	377
fae2e3155b7a New module 'progname'. Bruno Haible <bruno@clisp.org> parents: diff changeset	378 #endif

Mercurial > gnulib

annotate lib/progreloc.c @ 13397:758ef73803db