home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / uucp / gwd.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  393 b   |  27 lines
  1. #include "uucp.h"
  2.  
  3. /*******
  4.  *    gwd(wkdir)    get working directory
  5.  *
  6.  *    return codes  0 | FAIL
  7.  */
  8.  
  9. gwd(wkdir)
  10. char *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. }
  27.