home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / mntlib16 / findfile.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-29  |  2.9 KB  |  104 lines
  1. /* findfile: given a base filename, a list of directories, and a list
  2.    of possible extensions to the filename, attempts to find a file.
  3.    Useful for doing, e.g. spawnvp. Note that the current directory
  4.    is always searched first! If the filename already contains a
  5.    path specification (or extension) then the given path list
  6.    (or extension list) is ignored.
  7.    Returns the name by which the file was found, or NULL.
  8.  
  9.    Written by Eric R. Smith and placed in the public domain.
  10. */
  11.  
  12. #include <limits.h>    /* needed for PATH_MAX */
  13. #include <stddef.h>
  14. #include <types.h>
  15. #include <stat.h>
  16. #include <string.h>
  17.  
  18. /* characters used to separate components in a path list */
  19. #define PATHSEP1        ':'
  20. #define PATHSEP2        ','
  21.  
  22. /* characters used to separate directory names in a file */
  23. #define DIRSEP1         '\\'    /* native OS directory separator */
  24. #define DIRSEP2         '/'     /* for emulating another OS */
  25.  
  26. static char *nullext[] = { NULL };
  27.  
  28. static int
  29. EXISTS(name)
  30.     char *name;
  31. {
  32.     struct stat dummy;
  33.  
  34.     if (stat(name, &dummy) != 0)
  35.         return 0;
  36.     if ( (dummy.st_mode & S_IFMT) != S_IFREG )
  37.         return 0;
  38.     return 1;
  39. }
  40.  
  41. char *
  42. findfile(fname, fpath, fext)
  43.         char *fname, *fpath, **fext;
  44. {
  45.         static char try[PATH_MAX];
  46.         char *s, *t, *extplace, **nextext, c;
  47.         int  hasext = 0, haspath = 0;
  48.  
  49.     if (!fname || !*fname)
  50.         return NULL;
  51.  
  52.         s = try; t = fname;
  53.  
  54. /* copy the file in, checking to see if a path and/or extension are already
  55.    given */
  56.  
  57.         while ( c = *t++ ) {
  58.                 if (c == DIRSEP1 || c == DIRSEP2) {
  59.                         haspath = 1; hasext = 0;
  60.                 }
  61.                 else if (c == '.')
  62.                         hasext = 1;
  63.                 *s++ = c;
  64.         }
  65.         extplace = s;
  66.         *s++ = 0;
  67.  
  68.         if (haspath || !fpath)
  69.                 fpath = "";
  70.         if (hasext || !fext)
  71.                 fext = nullext;
  72.  
  73.         for(;;) {               /* loop on path elements */
  74.                 nextext = fext;
  75.         if (!hasext) {
  76.             extplace[0] = 0;
  77.             extplace[1] = 0;
  78.         }
  79.  
  80.         if (EXISTS(try))
  81.             return try;
  82.         extplace[0] = '.';
  83.                 while(*nextext) {       /* loop on extensions */
  84.                         (void)strcpy(&extplace[1], *nextext++);
  85.                         if (EXISTS(try))
  86.                                 return try;
  87.                 }
  88.                 if (!*fpath) break;  /* no more places to look */
  89.  
  90. /* copy in next element of path list */
  91.                 s = try;
  92.                 while ((c = *fpath) && c != PATHSEP1 && c != PATHSEP2) {
  93.                         *s++ = c;
  94.                         fpath++;
  95.                 }
  96.                 if (c) fpath++;
  97.                 *s++ = DIRSEP1;
  98.                 t = fname;
  99.                 while (*s++ = *t++) ;
  100.                 extplace = --s ;        /* where the extension gets written */
  101.         }
  102.         return NULL;
  103. }
  104.