Return to libpath.c CVS log

Up to [Research Unix] / researchv10no / cmd / prefer / pref

Annotation of researchv10no/cmd/prefer/pref/libpath.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * libpath - calculate path to prefer library
        !             3:  *
        !             4:  * Alan Hastings 4/13/87
        !             5:  *
        !             6:  * Added for EXPTOOLS support
        !             7:  */
        !             8: 
        !             9: char *libpath(deflib)
        !            10: char *deflib;
        !            11: {
        !            12:        register char *retval;
        !            13:        char *malloc(), *getenv(), *strcpy(), *strcat();
        !            14: 
        !            15:        if ((retval = getenv("PHOME")) != (char *)0)
        !            16:                return retval;
        !            17: 
        !            18: #ifdef EXPTOOLS
        !            19: # define PREFLIB "/lib/prefer"
        !            20:        if ((retval = getenv("TOOLS")) != (char *)0)
        !            21:        {
        !            22:                char *libuf;
        !            23: 
        !            24:                libuf = malloc((unsigned)(strlen(retval)+sizeof(PREFLIB)+1));
        !            25:                (void) strcpy(libuf, retval);
        !            26:                (void) strcat(libuf, PREFLIB);
        !            27:                return libuf;
        !            28:        }
        !            29: #endif /* EXPTOOLS */
        !            30: 
        !            31:        return deflib;
        !            32: }

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