If execv fails with ENOEXEC, run the shell on the file.
[kopensolaris-gnu/glibc.git] / posix / execvp.c
1 /* Copyright (C) 1991, 1992, 1995, 1996 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Library General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 Library General Public License for more details.
13
14 You should have received a copy of the GNU Library General Public
15 License along with the GNU C Library; see the file COPYING.LIB.  If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <unistd.h>
20 #include <stdarg.h>
21 #include <stdlib.h>
22 #include <string.h>
23 #include <errno.h>
24 #include <paths.h>
25
26 /* Execute FILE, searching in the `PATH' environment variable if it contains
27    no slashes, with arguments ARGV and environment from `environ'.  */
28 int
29 execvp (file, argv)
30      const char *file;
31      char *const argv[];
32 {
33   void execute (const char *file, char *const argv[])
34     {
35       execv (file, argv);
36
37       if (errno == ENOEXEC)
38         {
39           /* The file is accessible but it is not an executable file.
40              Invoke the shell to interpret it as a script.  */
41
42           int argc;
43           char **new_argv;
44
45           /* Count the arguments.  */
46           for (argc = 0; argv[argc++];);
47
48           /* Construct an argument list for the shell.  */
49           new_argv = __alloca ((argc + 1) * sizeof (char *));
50           for (new_argv[0] = _PATH_BSHELL; argc > 0; --argc)
51             new_argv[argc] = argv[argc - 1];
52
53           /* Execute the shell.  */
54           execv (new_argv[0], new_argv);
55         }
56     }
57
58   if (strchr (file, '/') != NULL)
59     /* Don't search when it contains a slash.  */
60     execute (file, argv);
61   else
62     {
63       char *path, *p, *name;
64       size_t len;
65
66       path = getenv ("PATH");
67       if (path == NULL)
68         {
69           /* There is no `PATH' in the environment.
70              The default search path is the current directory
71              followed by the path `confstr' returns for `_CS_PATH'.  */
72           len = confstr (_CS_PATH, (char *) NULL, 0);
73           path = (char *) __alloca (1 + len);
74           path[0] = ':';
75           (void) confstr (_CS_PATH, path + 1, len);
76         }
77
78       len = strlen (file) + 1;
79       name = __alloca (strlen (path) + len);
80       p = path;
81       do
82         {
83           path = p;
84           p = strchr (path, ':');
85           if (p == NULL)
86             p = strchr (path, '\0');
87
88           if (p == path)
89             /* Two adjacent colons, or a colon at the beginning or the end
90                of `PATH' means to search the current directory.  */
91             (void) memcpy (name, file, len);
92           else
93             {
94               /* Construct the pathname to try.  */
95               (void) memcpy (name, path, p - path);
96               name[p - path] = '/';
97               (void) memcpy (&name[(p - path) + 1], file, len);
98             }
99
100           /* Try to execute this name.  If it works, execv will not return.  */
101           execute (name, argv);
102
103           switch (errno)
104             {
105             case ENOENT:
106             case EACCES:
107               /* Those errors indicate the file is missing or not executable
108                  by us, in which case we want to just try the next path
109                  directory.  */
110               break;
111
112             default:
113               /* Some other error means we found an executable file, but
114                  something went wrong executing it; return the error to our
115                  caller.  */
116               return -1;
117             }
118         }
119       while (*p++ != '\0');
120     }
121
122   /* We tried every element and none of them worked.
123      Return the error from the last attempt (probably ENOENT).  */
124   return -1;
125 }