Return to execvp.c CVS log

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

Annotation of coherent/d/lib/libc/sys/execvp.c, revision 1.1

1.1     ! root        1: /* libc/sys/execvp.c */
        !             2: 
        !             3: #include <stdio.h>
        !             4: #include <errno.h>
        !             5: #include <path.h>
        !             6: #include <string.h>
        !             7: 
        !             8: extern char    *getenv();
        !             9: 
        !            10: #define        SHELL   "/bin/sh"               /* shell name */
        !            11: 
        !            12: /*
        !            13:  * execvp() is a version of execv()
        !            14:  * which mimics the actions of the shell
        !            15:  * in using PATH search rules and running a shell file.
        !            16:  */
        !            17: execvp(name, argp) char *name; char *argp[];
        !            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:                execv(fname, argp);                     /* go for it */
        !            39:                if (isabs && errno != ENOEXEC)
        !            40:                        break;                          /* failed */
        !            41:                if (errno == ENOEXEC) {                 /* try again with sh */
        !            42:                        p1 = argp[-1];
        !            43:                        p2 = argp[0];
        !            44:                        argp[-1] = SHELL;
        !            45:                        argp[0] = fname;
        !            46:                        execv(argp[-1], argp-1);
        !            47:                        argp[-1] = p1;
        !            48:                        argp[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 execvp.c */

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