Research V7 development
[unix-history] / usr / src / cmd / uucp / gwd.c
CommitLineData
808bd6eb
N
1#include "uucp.h"
2
3/*******
4 * gwd(wkdir) get working directory
5 *
6 * return codes 0 | FAIL
7 */
8
9gwd(wkdir)
10char *wkdir;
11{
12 FILE *fp;
13 extern FILE *popen(), *pclose();
14 char *c;
15
16 if ((fp = popen("pwd", "r")) == NULL)
17 return(FAIL);
18 if (fgets(wkdir, 100, fp) == NULL) {
19 pclose(fp);
20 return(FAIL);
21 }
22 if (*(c = wkdir + strlen(wkdir) - 1) == '\n')
23 *c = '\0';
24 pclose(fp);
25 return(0);
26}