1/***********************************************************************
2*                                                                      *
3*               This software is part of the ast package               *
4*          Copyright (c) 1985-2011 AT&T Intellectual Property          *
5*                      and is licensed under the                       *
6*                  Common Public License, Version 1.0                  *
7*                    by AT&T Intellectual Property                     *
8*                                                                      *
9*                A copy of the License is available at                 *
10*            http://www.opensource.org/licenses/cpl1.0.txt             *
11*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12*                                                                      *
13*              Information and Software Systems Research               *
14*                            AT&T Research                             *
15*                           Florham Park NJ                            *
16*                                                                      *
17*                 Glenn Fowler <gsf@research.att.com>                  *
18*                  David Korn <dgk@research.att.com>                   *
19*                   Phong Vo <kpv@research.att.com>                    *
20*                                                                      *
21***********************************************************************/
22#pragma prototyped
23
24#include <ast_lib.h>
25
26#if _lib_execvpe
27
28#include <ast.h>
29
30NoN(execvpe)
31
32#else
33
34#if defined(__EXPORT__)
35__EXPORT__ int execvpe(const char*, char* const[], char* const[]);
36#endif
37
38#include <ast.h>
39#include <errno.h>
40
41#if defined(__EXPORT__)
42#define extern	__EXPORT__
43#endif
44
45extern int
46execvpe(const char* name, char* const argv[], char* const envv[])
47{
48	register const char*	path = name;
49	char			buffer[PATH_MAX];
50
51	if (*path != '/' && !(path = pathpath(name, NULL, PATH_REGULAR|PATH_EXECUTE, buffer, sizeof(buffer))))
52		path = name;
53	execve(path, argv, envv);
54	if (errno == ENOEXEC)
55	{
56		register char**	newargv;
57		register char**	ov;
58		register char**	nv;
59
60		for (ov = (char**)argv; *ov++;);
61		if (newargv = newof(0, char*, ov + 1 - (char**)argv, 0))
62		{
63			nv = newargv;
64			*nv++ = "sh";
65			*nv++ = (char*)path;
66			ov = (char**)argv;
67			while (*nv++ = *++ov);
68			path = pathshell();
69			execve(path, newargv, envv);
70			free(newargv);
71		}
72		else
73			errno = ENOMEM;
74	}
75	return -1;
76}
77
78#endif
79