Return to getwd.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / uucp

Annotation of 43BSD/usr.bin/uucp/getwd.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)getwd.c    5.4 (Berkeley) 6/19/85";
        !             3: #endif
        !             4: 
        !             5: #include "uucp.h"
        !             6: 
        !             7: /*
        !             8:  *     get working directory
        !             9:  *
        !            10:  *     return codes  0 = FAIL
        !            11:  *                   wkdir = SUCCES
        !            12:  */
        !            13: 
        !            14: char *
        !            15: getwd(wkdir)
        !            16: register char *wkdir;
        !            17: {
        !            18:        register FILE *fp;
        !            19:        extern FILE *rpopen();
        !            20:        extern int rpclose();
        !            21:        register char *c;
        !            22: 
        !            23:        *wkdir = '\0';
        !            24:        if ((fp = rpopen("PATH=/bin:/usr/bin:/usr/ucb;pwd 2>&-", "r")) == NULL)
        !            25:                return 0;
        !            26:        if (fgets(wkdir, 100, fp) == NULL) {
        !            27:                rpclose(fp);
        !            28:                return 0;
        !            29:        }
        !            30:        if (*(c = wkdir + strlen(wkdir) - 1) == '\n')
        !            31:                *c = '\0';
        !            32:        rpclose(fp);
        !            33:        return wkdir;
        !            34: }

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