home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dirutl / which.arc / WHICH.C next >
Encoding:
C/C++ Source or Header  |  1988-04-28  |  2.7 KB  |  110 lines
  1. /* which.c - tell which program is executed when you type it's name */
  2. /*     usage: which command [command]... */
  3. /* fixes bug in earlier version using turbo-C searchpath() */
  4. /* should be completely portable now */
  5.  
  6. #include <stdio.h>
  7. #define lerror( str )      {  fputs( str, stderr ); _exit(1);  }
  8. #define EXIST(s) (modtime(s) !=0)
  9.  
  10. static char *h="$header: which.c ver 8 Matt Cohen size 2725 time 4/27/88 23:01:08$";
  11. static char *c="$copyright:  (c) 1988 Matt Cohen$";
  12.  
  13. main(argc,argv)
  14. int argc; char *argv[];
  15. { 
  16. char *searchpath(), buf[BUFSIZ], *pathname, *strcpy();
  17. int i,flag=0; long modtime();
  18.  
  19. if (argc < 2) lerror("usage: which command [command]...\n");
  20. for(i=1; i < argc; i++) {
  21.     flag=0;
  22.      strcpy(buf,argv[i]);
  23.     pathname=searchpath(buf);
  24.      flag=(pathname != NULL);
  25.     if (flag) printf("%s\n",pathname);
  26.    else printf("%s not found\n",argv[i]);
  27.    }
  28. }
  29.  
  30. /* make full filename fn have suffix s */
  31. suffix(fn,q)
  32. char fn[],q[];
  33. {    int k; int i;
  34.     for(k=0; k < strlen(fn) && fn[k] != '.'; k++);
  35.    if (k == strlen(fn)) fn[k]='.';
  36.    k++;
  37.    fn[k]='\0';
  38.    strcat(fn,q);
  39. }
  40.  
  41. /* search the path for the program s , looking first in . */
  42. char *searchpath(s)
  43. char *s ;
  44. {    char *B[20]; int i,n; char *getenv(), *path, *strsave(), *strcpy();
  45.     char f[50], dir[50];
  46.     long modtime(); 
  47.       /*  look in . first */
  48.       
  49.       suffix(s,"COM");
  50.         if (EXIST(s))  return(strsave(s));
  51.         suffix(s,"EXE");
  52.         if (EXIST(s))  return(strsave(s));
  53.         suffix(s,"BAT");
  54.         if (EXIST(s))  return(strsave(s));
  55.       /* now look through path */
  56.     if ((path=getenv("PATH"))==NULL) return(NULL); /* no path */
  57.         n=split(path,B);
  58.     for(i=0; i<n; i++)
  59.     {
  60.         strcpy(dir,B[i]); strcat(dir,"\\");
  61.         strcat(dir,s);
  62.       suffix(dir,"COM");
  63.         if (EXIST(dir))  return(strsave(dir));
  64.         suffix(dir,"EXE");
  65.         if (EXIST(dir))  return(strsave(dir));
  66.         suffix(dir,"BAT");
  67.         if (EXIST(dir))  return(strsave(dir));
  68.     }
  69.     return(NULL);
  70. }    
  71.         
  72. /* split path into array B[] with n elts */
  73. split(path,B)
  74. char *path;
  75. char *B[];
  76. {
  77.     int i=0; char *strtok(),*strsave(),*p, *tok;
  78.       p = strsave(path);
  79.       tok = strtok(p,";");
  80.       B[i++] = strsave(tok);
  81.       while(tok != NULL)
  82.       {
  83.       tok = strtok(NULL,";");
  84.      if (tok != NULL)
  85.       B[i++] = strsave(tok);
  86.       }
  87.       return(i);
  88. }
  89.  
  90. /* strsave - save string s somewhere; return address */
  91. char *strsave(s)
  92. char *s;
  93. {
  94.     char *malloc(), *p, *strcpy();
  95.     p = malloc(strlen(s)+1);    /* +1 to hold '\0' */
  96.     if (p==NULL) {
  97.         fprintf(stderr,"out of memory\n"); exit(1); }
  98.     return(strcpy(p, s));
  99. }
  100.  
  101. #define TIME_TYPE long
  102. #include <sys/stat.h>
  103. /* modtime - return file's modification time (0 for nonexistent files) */
  104. TIME_TYPE modtime(file)
  105. char *file;
  106. {
  107.     struct stat buf;
  108.     return(stat(file, &buf) >= 0 ? buf.st_mtime : 0);
  109. }
  110.