Return to pathn.c CVS log

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

Annotation of coherent/e/lib/misc/pathn.c, revision 1.1.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: 
                     16: char *
                     17: pathn(name, envpath, deflpath, acs)
                     18: char *name, *envpath, *deflpath, *acs;
                     19: {
                     20:        register char *pathptr;
                     21: 
                     22:        if ((NULL == envpath) || (NULL == (pathptr = getenv(envpath))))
                     23:                pathptr = deflpath;
                     24: 
                     25:        if (NULL == strchr(acs, 'w')) {
                     26:                if ((pathptr = path(pathptr, name, AREAD)) == NULL)
                     27:                        return (name);
                     28:                else
                     29:                        return (pathptr);
                     30:        }
                     31:        else {
                     32:                register char *p, c;
                     33:                static char fullname[PATHSIZE];
                     34: 
                     35:                if ((p = path(pathptr, name, AWRITE)) == NULL) {
                     36:                        for (p = fullname; (c = *pathptr++) && c != LISTSEP;)
                     37:                                *p++ = c;
                     38:                        *p++ = PATHSEP;
                     39:                        strcpy(p, name);
                     40:                        return (fullname);
                     41:                } else
                     42:                        return (p);
                     43:        }
                     44: }
                     45: #ifdef TEST
                     46: #include <misc.h>
                     47: 
                     48: main()
                     49: {
                     50:        char name[80], envpath[80], deflpath[80], acs[80];
                     51: 
                     52:        for (;;) {
                     53:                ask(name, "file name");
                     54:                if ('q' == name[0])
                     55:                        return(0);
                     56:                ask(envpath, "env");
                     57:                ask(deflpath, "path");
                     58:                ask(acs,  "acs");
                     59:                printf("found %s\n", pathn(name, envpath, deflpath, acs));
                     60:        }
                     61: }
                     62: #endif

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