Return to execvpe.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / sys

Annotation of coherent/b/lib/libc/sys/execvpe.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * libc/sys/execvpe.c
                      3:  * Sys exec with an array of arguments and environment,
                      4:  * searching directories specified in PATH.
                      5:  */
                      6: 
                      7: #include <errno.h>
                      8: #include <path.h>
                      9: #include <string.h>
                     10: #include <stdlib.h>
                     11: 
                     12: #define        SHELL   "/bin/sh"       /* not DEFSHELL, which is just "sh" */
                     13: 
                     14: 
                     15: /* execvpe(name, argv, env) */
                     16: int
                     17: execvpe(name, argv, env) char *name; char *argv[]; char **env;
                     18: {
                     19:        register char *p1, *p2, *sp;
                     20:        char fname[MAXPATH];
                     21:        int isabs;
                     22: 
                     23:        if ((sp = getenv("PATH")) == NULL)              /* find PATH */
                     24:                sp = DEFPATH;                           /* or take default */
                     25:        isabs = (strchr(name, PATHSEP) != NULL);        /* iff name is absolute */
                     26:        for (;;) {
                     27:                if (isabs)
                     28:                        strcpy(fname, name);            /* use given name */
                     29:                else {
                     30:                        for (p2 = fname; *sp != '\0' && *sp != LISTSEP; )
                     31:                                *p2++ = *sp++;          /* copy pathname component */
                     32:                        if (p2 != fname)
                     33:                                *p2++ = PATHSEP;        /* append PATHSEP if nonempty */
                     34:                        for (p1 = name; *p1 != '\0'; )
                     35:                                *p2++ = *p1++;          /* append name */
                     36:                        *p2 = '\0';                     /* and NUL-terminate */
                     37:                }
                     38:                execve(fname, argv, env);               /* go for it */
                     39:                if (isabs && errno != ENOEXEC)
                     40:                        break;                          /* failed */
                     41:                if (errno == ENOEXEC) {                 /* try again with sh */
                     42:                        p1 = argv[-1];
                     43:                        p2 = argv[0];
                     44:                        argv[-1] = SHELL;
                     45:                        argv[0] = fname;
                     46:                        execve(argv[-1], argv-1, env);
                     47:                        argv[-1] = p1;
                     48:                        argv[0] = p2;
                     49:                        break;                          /* failed */
                     50:                }
                     51:                if (*sp == '\0')
                     52:                        break;                          /* end of PATH, failed */
                     53:                if (*sp == LISTSEP)
                     54:                        sp++;
                     55:        }
                     56:        return -1;                                      /* failed */
                     57: }
                     58: 
                     59: /* end of libc/sys/execvpe.c */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.