Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/findprog.c @ 14079:97fc9a21a8fb
maint: update almost all copyright ranges to include 2011
Run the new "make update-copyright" rule.
| author | Jim Meyering <meyering@redhat.com> |
|---|---|
| date | Sat, 01 Jan 2011 20:17:23 +0100 |
| parents | c2cbabec01dd |
| children | 8250f2777afc |
| rev | line source |
|---|---|
| 4294 | 1 /* Locating a program in PATH. |
|
14079
97fc9a21a8fb
maint: update almost all copyright ranges to include 2011
Jim Meyering <meyering@redhat.com>
parents:
12559
diff
changeset
|
2 Copyright (C) 2001-2004, 2006-2011 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__ |
|
eebff8c51a9b
Treat Cygwin like Windows regarding pathname syntax.
Bruno Haible <bruno@clisp.org>
parents:
4294
diff
changeset
|
42 /* Win32, 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 |