home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / lynxlib / wheris.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-23  |  3.1 KB  |  96 lines
  1. /* This source file is part of the LynxLib miscellaneous library by
  2. Robert Fischer, and is Copyright 1990 by Robert Fischer.  It costs no
  3. money, and you may not make money off of it, but you may redistribute
  4. it.  It comes with ABSOLUTELY NO WARRANTY.  See the file LYNXLIB.DOC
  5. for more details.
  6. To contact the author:
  7.     Robert Fischer \\80 Killdeer Rd \\Hamden, CT   06517   USA
  8.     (203) 288-9599     fischer-robert@cs.yale.edu                 */
  9.  
  10. #include <stddef.h>
  11. #include <e_osbind.h>
  12. extern char *getenv();
  13.  
  14. /* ------------------------------------------------------- */
  15. BOOLEAN existf(n)   /* Finds out if file n exists */
  16. char *n;
  17. {
  18. TRANS_BUF buf;
  19. TRANS_BUF *old;
  20. BOOLEAN ret;
  21.     old = Fgetdta();
  22.     Fsetdta(&buf);
  23.     ret = (Fsfirst(n, READ_ONLY | HIDDEN | SYSTEM | CLOSED) == E_OK);
  24.     Fsetdta(old);
  25.     if (ret) ret = ((buf.attrib & FOLDER) == 0);
  26.     return ret;
  27. }
  28. /* ------------------------------------------------------- */
  29. search_env(envvar, fname, fullname, use_this)
  30. /* Searches all the directories in the environment variable */
  31. /* envvar and tests each one, according to use_this(), to see */
  32. /* if it is wanted.  When use_this() returns TRUE, it quits */
  33. char *envvar;       /* The environment variable to search on */
  34. char *fname;        /* The file leaf name */
  35. char *fullname;     /* The full pathname to output */
  36. BOOLEAN (*use_this)();
  37.     /* Routine to determine which file names to keep & which to throw out */
  38.     /* Returns a TRUE to stop the execution */
  39. {
  40. char *envstr;
  41. char *i, *j, *k, *pptr;
  42.  
  43.     /* Check if the environment variable doesn't exist */
  44.     if ((envstr = getenv(envvar)) == NULL) {
  45.         fullname[0] = '\0';
  46.         return;
  47.     }
  48.  
  49.     for (pptr = envstr; *pptr != '\0'; ) {
  50.         for (i = pptr, j = fullname;
  51.                 *i != '\0' && *i != ',';
  52.                 i++, j++)
  53.             *j = *i;
  54.  
  55.         /* Put a . for the current directory */
  56.         if (j == fullname) *j++ = '.';
  57.  
  58.         /* Play the backslash game */
  59.         if (*(j-1) != '\\') *j++ = '\\';
  60.  
  61.         /* strcat */
  62.         for (k = fname; *k != '\0'; k++, j++) *j = *k;
  63.         *j = '\0';
  64.  
  65.         if ((*use_this)(fullname)) return;
  66.  
  67.         /* Increment pptr */
  68.         if (*i != '\0') i++;
  69.         pptr = i;
  70.     }
  71.     fullname[0] = '\0';
  72. }
  73. /* ------------------------------------------------------ */
  74. wheris(envvar, fname, fullname)
  75. /* Finds an already made file from an environment variable */
  76. char *envvar;       /* The environment variable to search on */
  77. char *fname;        /* The file leaf name */
  78. char *fullname;     /* The full pathname to output */
  79. {
  80.     search_env(envvar, fname, fullname, &existf);
  81. }
  82. /* ------------------------------------------------------ */
  83. BOOLEAN ret_true()
  84. {
  85.     return TRUE;
  86. }
  87.  
  88. first_path(envvar, fname, fullname)
  89. /* Matches fname with the first directory in envvar */
  90. char *envvar;       /* The environment variable to search on */
  91. char *fname;        /* The file leaf name */
  92. char *fullname;     /* The full pathname to output */
  93. {
  94.     search_env(envvar, fname, fullname, &ret_true);
  95. }
  96.