home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / globcp.arc / FINDSTR.C < prev    next >
Text File  |  2019-04-13  |  1KB  |  68 lines
  1. /*
  2.  * ├OPYRIGHT (├) ┴DRIAN ╨EPPER, 1989
  3.  *
  4.  *  ┬UT ╔ (┴DRIAN ╨EPPER) CONSIDER THIS
  5.  * MATERIAL TO BE IN THE ╨UBLIC ─OMAIN.
  6.  */
  7. /*
  8.  * FINDSTR.C - STRING SEARCH PROGRAM
  9.  *
  10.  *  ╘HIS PROGRAM WILL PRINT ALL OCCURRENCES
  11.  * OF THE GIVEN STRING IN THE SPECIFIED FILES.
  12.  *
  13.  *  ╘HE FILES CAN BE SPECIFIED AS A LIST OF
  14.  * PATTERNS.
  15.  */
  16. #INCLUDE <STDIO.H>
  17.  
  18. #DEFINE ═┴╪┬╒╞ 250
  19.  
  20. CHAR *INDEX();
  21. STATIC CHAR *MATCHSTR = ╬╒╠╠;
  22.  
  23. MAIN(ARGC, ARGV) 
  24. UNSIGNED ARGC; 
  25. CHAR *ARGV[];
  26. █
  27.   INT FINDSTR();
  28.   UNSIGNED I;
  29.  
  30.   IF(ARGC < 3)█
  31.     FPRINTF(STDOUT, "%S: <MATCH-STRING> FILE(S)\N",
  32.       ARGV[0]);
  33.     EXIT();
  34.   ▌
  35.   MATCHSTR = ARGV[1];
  36.   FOR(I=2; I<ARGC; ++I)
  37.     GLOB(ARGV[I],&FINDSTR);
  38. ▌
  39.  
  40. STATIC CHAR BUF[═┴╪┬╒╞] = █0▌;
  41.  
  42. FINDSTR(FILENAME)
  43. CHAR *FILENAME;
  44. █
  45.   ╞╔╠┼ INFID;
  46.   CHAR *P;
  47.   CHAR C1;
  48.   UNSIGNED LENGTH, LINENO;
  49.  
  50.   C1 = *MATCHSTR;
  51.   LENGTH = STRLEN(MATCHSTR);
  52.   INFID = FOPEN(FILENAME, "R");
  53.   IF(INFID == ╬╒╠╠) █
  54.     FPRINTF(STDOUT, "CANNOT OPEN %S.\N", FILENAME);
  55.     RETURN;
  56.   ▌
  57.   FOR (LINENO=1; FGETS(BUF, ═┴╪┬╒╞, INFID); ++LINENO) █
  58.     FOR (P=BUF; (P=INDEX(P, C1)) != ╬╒╠╠; ++P) █
  59.       /* CONSIDER ALL OCCURRENCES OF C1 */
  60.       IF(STRNCMP(P, MATCHSTR, LENGTH) == 0) █
  61.         PRINTF("%S %D:%S", FILENAME, LINENO, BUF);
  62.         BREAK;  /* STOP AFTER FIRST MATCH ON LINE */
  63.       ▌
  64.     ▌
  65.   ▌
  66.   FCLOSE(INFID);
  67. ▌
  68.