home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dirutl / glob11.arc / GLOB.C next >
Text File  |  1988-05-30  |  3KB  |  94 lines
  1. /* glob  - glob matching filenames for turbo C */
  2. /* path names must use a / instead of msdos \ */
  3. /* compile with tcc glob.c regexp.obj */
  4. /* $header: glob.c ver 2 Matt Cohen size 2315 time 4/22/88 20:18:54$ */
  5.  
  6. /*
  7. *
  8. * Name: glob - match files against regular expression
  9. *
  10. * Synopsis: glob pathname
  11. *
  12. * Description: glob uses regexp(3) to match files against the pathname
  13. *           which may be a regular expression as described in ed(1)
  14. *           and egrep(1). If a path is not given, the current 
  15. *           directory is used. The pathname must use '/' instead
  16. *           of the MSDOS '\' because the \ is interpreted as
  17. *           part of the regular expression.
  18. *
  19. * Example:       The following shows all executable files in the 
  20. *           current dir:    
  21. *            glob "*\.(EXE|BAT|COM)"
  22. *
  23. * Bugs:        Case is insignifigant due to MSDOS . 
  24. *
  25. */    
  26.  
  27.  
  28. #include <stdio.h>
  29. #include <ctype.h>
  30. #define DIRCH '/'
  31. #define DIRCHSTR "/"
  32. #define SLASH '\\'
  33. #define MODE 0x1f
  34. #include <dir.h>
  35. static char *h="$header: glob.c ver 2 Matt Cohen size 2315 time 4/22/88 20:18:54$";
  36. main(argc,argv)
  37. int argc; char *argv[];
  38. { 
  39.     struct ffblk ff;
  40.     char dirname[BUFSIZ], *getcwd();
  41.    char pat[BUFSIZ];
  42.     char *a,*b,*c,*regcomp(),*regexec(), *strrchr();
  43.     int i,done;
  44.     c=argv[1]; uppercase(c); strcpy(dirname,c);
  45.    if (*c=='*') /* fix up to .* */
  46.    sprintf(pat,"^.%s$",c);
  47.     else
  48.     sprintf(pat,"^%s$",c);
  49.     if ((b=strrchr(dirname,DIRCH))==NULL) /* no slash - current dir */
  50.    {
  51.    strcpy(dirname,getcwd(NULL,100));
  52.    /* make sure we are not in root dir (x:/) */
  53.    if (dirname[strlen(dirname)-1] != SLASH) strcat(dirname,DIRCHSTR);
  54.    }
  55.     /* is a slash.. seperate out the slash part and pattern */
  56.     else  { 
  57.             if (*(b+1)=='*') /* fix * into .* */
  58.             sprintf(pat,"^.%s$",b+1);
  59.          else sprintf(pat,"^%s$",b+1);
  60.          *(b+1)='\0'; /* null it out */
  61.             }    
  62. #ifdef DEBUG
  63.             printf("pat is %s\n",pat);
  64. #endif
  65.     if ((a=regcomp(pat))==0) { printf("could not compile\n");
  66.     exit(0);
  67.     }
  68.    for(i=0;dirname[i];i++) if (dirname[i]==SLASH) dirname[i]=DIRCH;
  69.    strcat(dirname,"*.*");
  70.  #ifdef DEBUG
  71.     printf("dirname is %s\n",dirname);
  72. #endif
  73.  
  74.     done=findfirst(dirname, &ff,MODE);
  75.     
  76.     if (done) { printf("no files\n") ; exit(0);}
  77.     do {
  78.       b=ff.ff_name;
  79.         if (regexec(a,b)) printf("%s\n",b);
  80.         done=findnext(&ff);
  81.         } while (!done);
  82.  
  83. }
  84.  
  85. /* convert a string to upper case */
  86. uppercase(s)
  87. char *s;
  88. {
  89.     int i;
  90.     for (i=0; i < strlen(s); i++)
  91.     if(islower(s[i]))
  92.     s[i]=toupper(s[i]);
  93. }    
  94.