Mercurial > hg > octave-kai > gnulib-hg
annotate lib/findprog.c @ 16366:bb182ee4a09d
maint: replace FSF snail-mail addresses with URLs
* config/argz.mk, lib/accept4.c, lib/alignof.h, lib/alloca.in.h:
* lib/alphasort.c, lib/arcfour.c, lib/arcfour.h, lib/arctwo.c:
* lib/arctwo.h, lib/argz.c, lib/arpa_inet.in.h, lib/asnprintf.c:
* lib/asprintf.c, lib/assert.in.h, lib/base32.c, lib/base32.h:
* lib/base64.c, lib/base64.h, lib/c-ctype.c, lib/c-ctype.h:
* lib/c-strcase.h, lib/c-strcasecmp.c, lib/c-strncasecmp.c:
* lib/check-version.c, lib/check-version.h, lib/config.charset:
* lib/ctype.in.h, lib/des.c, lib/des.h, lib/dup3.c, lib/errno.in.h:
* lib/float+.h, lib/fnmatch.c, lib/fnmatch.in.h, lib/fnmatch_loop.c:
* lib/fseeko.c, lib/gai_strerror.c, lib/gc-gnulib.c:
* lib/gc-libgcrypt.c, lib/gc-pbkdf2-sha1.c, lib/gc.h:
* lib/getaddrinfo.c, lib/getdelim.c, lib/getfilecon.c, lib/getline.c:
* lib/getlogin_r.c, lib/getpass.c, lib/getpass.h, lib/gettext.h:
* lib/gettimeofday.c, lib/glob.in.h, lib/glthread/cond.c:
* lib/glthread/cond.h, lib/glthread/lock.c, lib/glthread/lock.h:
* lib/glthread/thread.c, lib/glthread/thread.h:
* lib/glthread/threadlib.c, lib/glthread/yield.h, lib/hmac-md5.c:
* lib/hmac-sha1.c, lib/hmac.h, lib/iconv.c, lib/iconv.in.h:
* lib/iconv_close.c, lib/iconv_open.c, lib/inet_ntop.c, lib/isfinite.c:
* lib/isinf.c, lib/iswblank.c, lib/langinfo.in.h, lib/link.c:
* lib/localcharset.c, lib/localcharset.h, lib/lseek.c, lib/malloc.c:
* lib/malloca.c, lib/malloca.h, lib/md2.c, lib/md2.h, lib/md4.c:
* lib/md4.h, lib/md5.c, lib/md5.h, lib/memmem.c, lib/mempcpy.c:
* lib/memset.c, lib/memxor.c, lib/memxor.h, lib/minmax.h, lib/mktime.c:
* lib/msvc-inval.c, lib/msvc-inval.h, lib/msvc-nothrow.c:
* lib/msvc-nothrow.h, lib/netdb.in.h, lib/netinet_in.in.h, lib/nproc.c:
* lib/nproc.h, lib/obstack_printf.c, lib/pathmax.h, lib/pipe.c:
* lib/pipe2.c, lib/poll.c, lib/poll.in.h, lib/printf-args.c:
* lib/printf-args.h, lib/printf-parse.c, lib/printf-parse.h:
* lib/pselect.c, lib/pthread.in.h, lib/pty-private.h, lib/pty.in.h:
* lib/read-file.c, lib/read-file.h, lib/ref-add.sin, lib/ref-del.sin:
* lib/regcomp.c, lib/regex.c, lib/regex.h, lib/regex_internal.c:
* lib/regex_internal.h, lib/regexec.c, lib/rijndael-alg-fst.c:
* lib/rijndael-alg-fst.h, lib/rijndael-api-fst.c:
* lib/rijndael-api-fst.h, lib/rint.c, lib/rintf.c, lib/rintl.c:
* lib/round.c, lib/roundf.c, lib/roundl.c, lib/scandir.c, lib/select.c:
* lib/sha1.c, lib/sha1.h, lib/size_max.h, lib/snprintf.c:
* lib/stdalign.in.h, lib/stdarg.in.h, lib/stdbool.in.h:
* lib/stddef.in.h, lib/stdint.in.h, lib/stdio.in.h, lib/str-kmp.h:
* lib/str-two-way.h, lib/strcasecmp.c, lib/strcasestr.c, lib/strdup.c:
* lib/striconv.c, lib/striconv.h, lib/string.in.h, lib/strings.in.h:
* lib/strncasecmp.c, lib/strndup.c, lib/strnlen.c, lib/strpbrk.c:
* lib/strptime.c, lib/strsep.c, lib/strstr.c, lib/strverscmp.c:
* lib/sys_file.in.h, lib/sys_ioctl.in.h, lib/sys_select.in.h:
* lib/sys_socket.in.h, lib/sys_stat.in.h, lib/sys_time.in.h:
* lib/sys_times.in.h, lib/sys_types.in.h, lib/sys_uio.in.h:
* lib/sys_utsname.in.h, lib/sys_wait.in.h, lib/tcgetsid.c:
* lib/termios.in.h, lib/time.in.h, lib/time_r.c, lib/timegm.c:
* lib/times.c, lib/unictype/3level.h, lib/unictype/3levelbit.h:
* lib/unistd.in.h, lib/vasnprintf.c, lib/vasnprintf.h, lib/vasprintf.c:
* lib/vsnprintf.c, lib/waitpid.c, lib/wchar.in.h, lib/wctype.in.h:
* lib/xsize.h, tests/test-closein.c, tests/test-des.c:
* tests/test-fclose.c, tests/test-fgetc.c, tests/test-filevercmp.c:
* tests/test-fputc.c, tests/test-fread.c, tests/test-fwrite.c:
* tests/test-gc-arcfour.c, tests/test-gc-arctwo.c, tests/test-gc-des.c:
* tests/test-gc-hmac-md5.c, tests/test-gc-hmac-sha1.c:
* tests/test-gc-md2.c, tests/test-gc-md4.c, tests/test-gc-md5.c:
* tests/test-gc-pbkdf2-sha1.c, tests/test-gc-rijndael.c:
* tests/test-gc-sha1.c, tests/test-gc.c, tests/test-getdelim.c:
* tests/test-getline.c, tests/test-getndelim2.c, tests/test-md2.c:
* tests/test-md4.c, tests/test-parse-datetime.c, tests/test-perror.c:
* tests/test-perror2.c, tests/test-pipe.c, tests/test-pipe2.c:
* tests/test-poll.c, tests/test-quotearg-simple.c:
* tests/test-quotearg.c, tests/test-quotearg.h:
* tests/test-round-ieee.c, tests/test-round1.c:
* tests/test-roundf-ieee.c, tests/test-roundf1.c:
* tests/test-roundl-ieee.c, tests/test-roundl.c:
* tests/test-safe-alloc.c, tests/test-sigpipe.c:
* tests/test-spawn-pipe-child.c, tests/test-spawn-pipe-main.c:
* tests/test-strerror.c, tests/test-strerror_r.c:
* tests/test-strsignal.c, tests/test-strverscmp.c:
* tests/test-xmemdup0.c:
Replace FSF snail mail addresses with URLs, as per GNU coding
standards. See glibc bug
<http://sourceware.org/bugzilla/show_bug.cgi?id=13673>.
| author | Paul Eggert <eggert@cs.ucla.edu> |
|---|---|
| date | Thu, 09 Feb 2012 21:39:05 -0800 (2012-02-10) |
| parents | ec738d6aeef5 |
| children | e542fd46ad6f |
| rev | line source |
|---|---|
| 4294 | 1 /* Locating a program in PATH. |
|
16201
8250f2777afc
maint: update all copyright year number ranges
Jim Meyering <meyering@redhat.com>
parents:
14079
diff
changeset
|
2 Copyright (C) 2001-2004, 2006-2012 Free Software Foundation, Inc. |
| 4294 | 3 Written by Bruno Haible <haible@clisp.cons.org>, 2001. |
| 4 | |
|
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
8251
diff
changeset
|
5 This program is free software: you can redistribute it and/or modify |
| 4294 | 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:
8251
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:
8251
diff
changeset
|
8 (at your option) any later version. |
| 4294 | 9 |
| 10 This program is distributed in the hope that it will be useful, | |
| 11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 GNU General Public License for more details. | |
| 14 | |
| 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:
8251
diff
changeset
|
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| 4294 | 17 |
| 18 | |
|
7304
1c4ed7637c24
Include <config.h> unconditionally.
Bruno Haible <bruno@clisp.org>
parents:
6751
diff
changeset
|
19 #include <config.h> |
| 4294 | 20 |
| 21 /* Specification. */ | |
| 22 #include "findprog.h" | |
| 23 | |
| 24 #include <stdbool.h> | |
| 25 #include <stdlib.h> | |
| 26 #include <string.h> | |
|
6751
1b0092424a44
Include <unistd.h> unconditionally.
Bruno Haible <bruno@clisp.org>
parents:
6259
diff
changeset
|
27 #include <unistd.h> |
| 4294 | 28 |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
29 /* Avoid collision between findprog.c and findprog-lgpl.c. */ |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
30 #if IN_FINDPROG_LGPL || ! GNULIB_FINDPROG_LGPL |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
31 |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
32 #if !IN_FINDPROG_LGPL |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
33 # include "xalloc.h" |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
34 #endif |
|
10391
f0a681493fa6
New module 'xconcat-filename', split off from module 'concat-filename'.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
35 #include "concat-filename.h" |
| 4294 | 36 |
| 37 | |
| 38 const char * | |
| 39 find_in_path (const char *progname) | |
| 40 { | |
|
5053
eebff8c51a9b
Treat Cygwin like Windows regarding pathname syntax.
Bruno Haible <bruno@clisp.org>
parents:
4294
diff
changeset
|
41 #if defined _WIN32 || 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
|
42 /* Native Windows, Cygwin, OS/2, DOS */ |
| 4294 | 43 /* The searching rules with .COM, .EXE, .BAT, .CMD etc. suffixes are |
| 44 too complicated. Leave it to the OS. */ | |
| 45 return progname; | |
| 46 #else | |
| 47 /* Unix */ | |
| 48 char *path; | |
| 7527 | 49 char *path_rest; |
| 4294 | 50 char *cp; |
| 51 | |
| 52 if (strchr (progname, '/') != NULL) | |
| 53 /* If progname contains a slash, it is either absolute or relative to | |
| 54 the current directory. PATH is not used. */ | |
| 55 return progname; | |
| 56 | |
| 57 path = getenv ("PATH"); | |
| 58 if (path == NULL || *path == '\0') | |
| 59 /* If PATH is not set, the default search path is implementation | |
| 60 dependent. */ | |
| 61 return progname; | |
| 62 | |
| 63 /* Make a copy, to prepare for destructive modifications. */ | |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
64 # if !IN_FINDPROG_LGPL |
| 4294 | 65 path = xstrdup (path); |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
66 # else |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
67 path = strdup (path); |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
68 if (path == NULL) |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
69 /* Out of memory. */ |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
70 return progname; |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
71 # endif |
| 7527 | 72 for (path_rest = path; ; path_rest = cp + 1) |
| 4294 | 73 { |
| 7527 | 74 const char *dir; |
| 4294 | 75 bool last; |
| 76 char *progpathname; | |
| 77 | |
| 78 /* Extract next directory in PATH. */ | |
| 7527 | 79 dir = path_rest; |
| 80 for (cp = path_rest; *cp != '\0' && *cp != ':'; cp++) | |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
81 ; |
| 4294 | 82 last = (*cp == '\0'); |
| 83 *cp = '\0'; | |
| 84 | |
| 85 /* Empty PATH components designate the current directory. */ | |
| 86 if (dir == cp) | |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
87 dir = "."; |
| 4294 | 88 |
| 89 /* Concatenate dir and progname. */ | |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
90 # if !IN_FINDPROG_LGPL |
|
10391
f0a681493fa6
New module 'xconcat-filename', split off from module 'concat-filename'.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
91 progpathname = xconcatenated_filename (dir, progname, NULL); |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
92 # else |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
93 progpathname = concatenated_filename (dir, progname, NULL); |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
94 if (progpathname == NULL) |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
95 { |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
96 /* Out of memory. */ |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
97 free (path); |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
98 return progname; |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
99 } |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
100 # endif |
| 4294 | 101 |
| 102 /* On systems which have the eaccess() system call, let's use it. | |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
103 On other systems, let's hope that this program is not installed |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
104 setuid or setgid, so that it is ok to call access() despite its |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
105 design flaw. */ |
| 4294 | 106 if (eaccess (progpathname, X_OK) == 0) |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
107 { |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
108 /* Found! */ |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
109 if (strcmp (progpathname, progname) == 0) |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
110 { |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
111 free (progpathname); |
| 4294 | 112 |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
113 /* Add the "./" prefix for real, that xconcatenated_filename() |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
114 optimized away. This avoids a second PATH search when the |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
115 caller uses execlp/execvp. */ |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
116 progpathname = XNMALLOC (2 + strlen (progname) + 1, char); |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
117 progpathname[0] = '.'; |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
118 progpathname[1] = '/'; |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
119 memcpy (progpathname + 2, progname, strlen (progname) + 1); |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
120 } |
| 4294 | 121 |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
122 free (path); |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
123 return progpathname; |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
124 } |
| 4294 | 125 |
| 126 free (progpathname); | |
| 127 | |
| 128 if (last) | |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
10392
diff
changeset
|
129 break; |
| 4294 | 130 } |
| 131 | |
| 132 /* Not found in PATH. An error will be signalled at the first call. */ | |
| 133 free (path); | |
| 134 return progname; | |
| 135 #endif | |
| 136 } | |
|
10392
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
137 |
|
dd1c6e77ee94
New module 'findprog-lgpl'.
Bruno Haible <bruno@clisp.org>
parents:
10391
diff
changeset
|
138 #endif |