113656Ssam #ifndef lint 2*23605Sbloom static char sccsid[] = "@(#)getwd.c 5.4 (Berkeley) 06/19/85"; 313656Ssam #endif 413656Ssam 513656Ssam #include "uucp.h" 613656Ssam 717835Sralph /* 817835Sralph * get working directory 913656Ssam * 10*23605Sbloom * return codes 0 = FAIL 11*23605Sbloom * wkdir = SUCCES 1213656Ssam */ 1313656Ssam 14*23605Sbloom char * 15*23605Sbloom getwd(wkdir) 1613656Ssam register char *wkdir; 1713656Ssam { 1813656Ssam register FILE *fp; 1913656Ssam extern FILE *rpopen(); 2013656Ssam extern int rpclose(); 2113656Ssam register char *c; 2213656Ssam 2313656Ssam *wkdir = '\0'; 2417835Sralph if ((fp = rpopen("PATH=/bin:/usr/bin:/usr/ucb;pwd 2>&-", "r")) == NULL) 25*23605Sbloom return 0; 2617835Sralph if (fgets(wkdir, 100, fp) == NULL) { 2717835Sralph rpclose(fp); 28*23605Sbloom return 0; 2913656Ssam } 3013656Ssam if (*(c = wkdir + strlen(wkdir) - 1) == '\n') 3113656Ssam *c = '\0'; 3213656Ssam rpclose(fp); 33*23605Sbloom return wkdir; 3413656Ssam } 35