Return to pathn.c CVS log

Up to [MW Coherent from dump] / coherent / a / usr / src / misc

Annotation of coherent/a/usr/src/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: 
        !            12: #define PATHSIZE 64
        !            13: 
        !            14: char   *getenv(), *path(), *strchr();
        !            15: char *
        !            16: pathn(name, envpath, deflpath, acs)
        !            17: char *name, *envpath, *deflpath, *acs;
        !            18: {
        !            19:        register char *pathptr;
        !            20: 
        !            21:        if((NULL == envpath) || (NULL == (pathptr = getenv(envpath))))
        !            22:                pathptr = deflpath;
        !            23: 
        !            24:        if(NULL == strchr(acs, 'w')) {
        !            25:                if ((pathptr = path(pathptr, name, AREAD)) == NULL)
        !            26:                        return(name);
        !            27:                else
        !            28:                        return(pathptr);
        !            29:        }
        !            30:        else {
        !            31:                register char *p, c;
        !            32:                static char fullname[PATHSIZE];
        !            33: 
        !            34:                if((p = path(pathptr, name, AWRITE)) == NULL) {
        !            35:                        for(p = fullname; (c = *pathptr++) && c != LISTSEP;)
        !            36:                                *p++ = c;
        !            37:                        *p++ = PATHSEP;
        !            38:                        strcpy(p, name);
        !            39:                        return(fullname);
        !            40:                } else
        !            41:                        return(p);
        !            42:        }
        !            43: }

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