diplodocus.org Git - nmh/blob - docs/historical/mh-jun-1982/Extras/libg/gtpath.c

   1 #ifdef COMMENT
   2         Proprietary Rand Corporation, 1981.
   3         Further distribution of this software
   4         subject to the terms of the Rand
   5         license agreement.
   6 #endif
   7
   8 #include "libg.h"
   9
  10 getpath(uid)
  11 {
  12         static char path[50];
  13         register char *pp, *bp;
  14         register int n;
  15
  16         if (getubuf(uid) <= 0) return(NULSTR);
  17         pp = path; bp = u_buf;
  18         for(n=0; n<5; n++) while(*bp++ != ':');
  19         while((*pp++ = *bp++) != ':');
  20         *--pp = '\0';
  21         return(p