home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / directry / glob / glob.c next >
Encoding:
C/C++ Source or Header  |  1988-04-22  |  2.3 KB  |  89 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 SLASH '\\'
  32. #define MODE 0x1f
  33. #include <dir.h>
  34. static char *h="$header: glob.c ver 2 Matt Cohen size 2315 time 4/22/88 20:18:54$";
  35. main(argc,argv)
  36. int argc; char *argv[];
  37. { 
  38.     struct ffblk ff;
  39.     char dirname[BUFSIZ], *getcwd();
  40.    char pat[BUFSIZ];
  41.     char *a,*b,*c,*regcomp(),*regexec(), *strrchr();
  42.     int i,done;
  43.     c=argv[1]; uppercase(c); strcpy(dirname,c);
  44.    if (*c=='*') /* fix up to .* */
  45.    sprintf(pat,"^.%s$",c);
  46.     else
  47.     sprintf(pat,"^%s$",c);
  48.     if ((b=strrchr(dirname,DIRCH))==NULL) /* no slash - current dir */
  49.    sprintf(dirname,"%s%c",getcwd(NULL,100),DIRCH);
  50.     /* is a slash.. seperate out the slash part and pattern */
  51.     else  { 
  52.             if (*(b+1)=='*') /* fix * into .* */
  53.             sprintf(pat,"^.%s$",b+1);
  54.          else sprintf(pat,"^%s$",b+1);
  55.          *(b+1)='\0'; /* null it out */
  56.             }    
  57. #ifdef DEBUG
  58.             printf("pat is %s\n",pat);
  59. #endif
  60.     if ((a=regcomp(pat))==0) { printf("could not compile\n");
  61.     exit(0);
  62.     }
  63.    for(i=0;dirname[i];i++) if (dirname[i]==SLASH) dirname[i]=DIRCH;
  64.    strcat(dirname,"*.*");
  65.  #ifdef DEBUG
  66.     printf("dirname is %s\n",dirname);
  67. #endif
  68.  
  69.     done=findfirst(dirname, &ff,MODE);
  70.     
  71.     if (done) { printf("no files\n") ; exit(0);}
  72.     do {
  73.       b=ff.ff_name;
  74.         if (regexec(a,b)) printf("%s\n",b);
  75.         done=findnext(&ff);
  76.         } while (!done);
  77.  
  78. }
  79.  
  80. /* convert a string to upper case */
  81. uppercase(s)
  82. char *s;
  83. {
  84.     int i;
  85.     for (i=0; i < strlen(s); i++)
  86.     if(islower(s[i]))
  87.     s[i]=toupper(s[i]);
  88. }    
  89.