home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / dlibsrc / pfindfil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-10-05  |  873 b   |  35 lines
  1. #include <stddef.h>
  2. #include <limits.h>
  3.  
  4. char *pfindfile(path, afn, ext)
  5.     register char *path;
  6.     register char *afn;
  7.     char *ext;
  8.     {
  9.     static char tmp[PATHSIZE];
  10.     register char *p;
  11.     char *findfile(), *strchr(), *getenv(), *strcpy();
  12.  
  13.     if(strchr(afn, '\\') || strchr(afn, ':'))    /* file has path */
  14.         return(findfile(afn, ext));
  15.     if((path == NULL)                /* if no path spec */
  16.     && ((path = getenv("PATH")) == NULL))        /* get PATH from env */
  17.         path = ".";                /* or fake it */
  18.     while(*path)
  19.         {
  20.         p = tmp;
  21.         while((*path != '\0') &&
  22.               (*path != ';') &&
  23.               (*path != ','))    /* copy directory */
  24.             *p++ = *path++;
  25.         if(*path)            /* move past delim */
  26.             ++path;
  27.         if(p[-1] != '\\')        /* add \ if needed */
  28.             *p++ = '\\';
  29.         strcpy(p, afn);            /* copy filename */
  30.         if(p = findfile(tmp, ext))    /* do search */
  31.             return(p);
  32.         }
  33.     return(NULL);
  34.     }
  35.