home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c033 / 4.ddi / GFIND.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-09-09  |  3.5 KB  |  169 lines
  1. /*****************************************************************
  2.  
  3.  
  4.     gfind.c  --  find strings in filenames which match wildcard
  5.  
  6.  
  7. synopsis:    This program expands the wildcard input
  8.     to all files and outputs them to the standard
  9.     output.
  10.  
  11.     gfind  [string]  [file]  <options>    to find string in file
  12.         where string can include ? or c* for wild character
  13.               file can include ? or * characters
  14.  
  15.     options:    -n    output line number found
  16.             -c    search case sensitive
  17.             -f    output file name second (for sort)
  18.             -F    output file name first
  19.             -s    output string name
  20.             -x    suppress output of text line found in
  21.  
  22.     default is:    -n 
  23.  
  24.     rev    date    by        description
  25.     ----    -------- ---    ----------------------------
  26.     0001    02/10/85 jlk    header
  27.  
  28. *****************************************************************/
  29.  
  30. #include <stdio.h>
  31. #include "blackstr.h"
  32.  
  33. char *fptr[200],fbuff[8192],temp[MAXLINE];
  34. char *(*search)();    /* pointer to match function */
  35.  
  36. main(argc,argv)
  37. int argc;
  38. char *argv[];
  39. {
  40. int i,fcnt,opt;
  41. char str[80],*ptr;
  42.     if(argc<3)
  43.     {
  44.         printf("GFIND: -- [string] [file] required.");
  45.         exit();
  46.     }
  47.     strcpy(str,argv[1]);
  48.     ptr = argv[2];        /* point to file name */
  49.     if(st_wild(ptr))
  50.     {
  51.        fcnt = fl_files(fbuff,ptr,TRUE);  /* get wildcard names */
  52.        st_ptrs(fbuff,fptr,fcnt);         /* pointers to fptr */
  53.     }
  54.     else {
  55.        fptr[0] = fbuff;        /* put file name in fbuff */
  56.        strcpy (fptr[0],argv[2]);
  57.        fptr[1] = 0;
  58.        fcnt = 1;
  59.     }
  60. /*
  61.     Get options
  62. */
  63.     i = 0;
  64.     opt = get_opts(argc,argv);
  65. /*
  66.     Now search files
  67. */
  68.     while(fptr[i])
  69.     {
  70.         fstrfile(fptr[i],str,opt);/* all parms, string first */
  71.         ++i;
  72.     }
  73.     if(!fcnt)
  74.     {
  75.         printf("No files found. ");
  76.         exit();
  77.     }
  78. }
  79.  
  80. /****************************
  81.    fstrfile(fnam,strptr,opt)        find strings in file
  82. ****************************/
  83. fstrfile(fnam,strptr,opt)
  84. char *fnam,*strptr;
  85. int opt;
  86. {
  87. char buff[139];
  88. char *bptr;
  89. int ln,i,lf;
  90. FILE *fp;
  91. extern char *(*search)();
  92.   lf =i= 0;
  93.      ln = 1;
  94.      strupr(fnam);
  95.      printf("\n\r ---- %s \n\r",fnam);
  96.     if(fp=fopen(fnam,"r"))
  97.     while(fgets(buff,138,fp))
  98.     {
  99.         if(bptr = (*search)(buff,strptr))
  100.        {
  101.             lf = FALSE;
  102.             if(opt&0x80)
  103.                 printf("%s/ ",fnam);
  104.             if(opt&02)
  105.                 printf("%s/ ",strncpy(temp,bptr,strlen(strptr)));
  106.             if(opt&0x01)
  107.                 printf("%s/ ",fnam);    /* for str first */
  108.             if(opt&0x04)
  109.                 printf("%4d/ ",ln);
  110.             if(opt&0x08)
  111.             {
  112.                 printf("%s\n\r",buff);
  113.                  lf = TRUE;
  114.             }
  115.             if(!lf)
  116.                 printf("\n\r");
  117.        }
  118.            ++ln;
  119.            i=0;
  120.     } else    printf("\n\r   ERROR  file not found -- %s",fnam);
  121.     fclose(fp);
  122.     return;
  123. }
  124.     
  125.  
  126. /*****************************
  127.    get_opts(nopt,optr)
  128. ******************************/
  129. get_opts(nopt,optr)
  130. int nopt;
  131. char **optr;
  132. {
  133. int i,opt;
  134. char *ptr;
  135. extern char *(*search)();
  136. extern char *st_instr(),*st_instri();
  137.     opt = 8;        /* default to print text line */
  138.     search = st_instri;    /* ignore case is default */
  139.     if(nopt<=3)
  140.         return(12);    /* text and line number */
  141.     for(i=3; i<nopt; ++i)
  142.     {
  143.         ptr = optr[i];
  144.         switch (ptr[1]) {
  145.             case 'c':
  146.                 search = st_instr;
  147.                 break;
  148.             case 'l':
  149.             case 'n':
  150.                 opt |= 4;    /* line number */
  151.                 break;
  152.             case 'f':
  153.                 opt |= 1;    /* file name */
  154.                 break;
  155.             case 's':
  156.                 opt |= 2;    /* string name */
  157.                 break;
  158.             case 'x':
  159.                 opt &= 0xf7;    /* no text line */
  160.                 break;
  161.             case 'F':
  162.                 opt |= 0x80;    /* file name first */
  163.                 break;
  164.         };
  165.     }
  166.     return(opt);
  167. }
  168. 
  169.