Return to pathn.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / misc

Annotation of coherent/g/usr/lib/misc/pathn.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * find a file on a path in the environment, or a default path
        !             3:  * with an access priveledge.
        !             4:  *
        !             5:  * example: pathn("helpfile", "LIBPATH", ",,\lib", "r");
        !             6:  *
        !             7:  * Returns full path name.
        !             8:  */
        !             9: #include <stdio.h>
        !            10: #include <path.h>
        !            11: #include <unistd.h>
        !            12: 
        !            13: #define PATHSIZE 64
        !            14: 
        !            15: char   *getenv(), *path(), *strchr();
        !            16: 
        !            17: char *
        !            18: pathn(name, envpath, deflpath, acs)
        !            19: char *name, *envpath, *deflpath, *acs;
        !            20: {
        !            21:        register char *pathptr;
        !            22: 
        !            23:        if ((NULL == envpath) || (NULL == (pathptr = getenv(envpath))))
        !            24:                pathptr = deflpath;
        !            25: 
        !            26:        if (NULL == strchr(acs, 'w')) {
        !            27:                if ((pathptr = path(pathptr, name, R_OK)) == NULL)
        !            28:                        return (name);
        !            29:                else
        !            30:                        return (pathptr);
        !            31:        }
        !            32:        else {
        !            33:                register char *p, c;
        !            34:                static char fullname[PATHSIZE];
        !            35: 
        !            36:                if ((p = path(pathptr, name, W_OK)) == NULL) {
        !            37:                        for (p = fullname; (c = *pathptr++) && c != LISTSEP;)
        !            38:                                *p++ = c;
        !            39:                        *p++ = PATHSEP;
        !            40:                        strcpy(p, name);
        !            41:                        return (fullname);
        !            42:                } else
        !            43:                        return (p);
        !            44:        }
        !            45: }
        !            46: #ifdef TEST
        !            47: #include <misc.h>
        !            48: 
        !            49: main()
        !            50: {
        !            51:        char name[80], envpath[80], deflpath[80], acs[80];
        !            52: 
        !            53:        for (;;) {
        !            54:                ask(name, "file name");
        !            55:                if ('q' == name[0])
        !            56:                        return(0);
        !            57:                ask(envpath, "env");
        !            58:                ask(deflpath, "path");
        !            59:                ask(acs,  "acs");
        !            60:                printf("found %s\n", pathn(name, envpath, deflpath, acs));
        !            61:        }
        !            62: }
        !            63: #endif

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