home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / STRINDS.ZIP / INSTR.C < prev    next >
Encoding:
Text File  |  1985-03-30  |  1.3 KB  |  31 lines
  1.  
  2.  
  3. /************************************************************************/
  4. /*                                                                      */
  5. /*            by Mike's "C" Board  619 722-8724                         */
  6.  
  7. /*                                                                      */
  8.  
  9. /*      int instr(pos,string,pattern)                                   */
  10.  
  11. /*              returns starting position in string if found,           */
  12.  
  13. /*              returns (-1) if not found                               */
  14.  
  15. /*              <?> can be used as wild card in pattern                 */
  16.  
  17. /*                                                                      */
  18.  
  19. /************************************************************************/
  20.  
  21.  
  22.  
  23. int     instr(p,s,t)
  24.  
  25. char    *s,*t;
  26.  
  27. int     p;
  28.  
  29. {
  30.  
  31.         int i,j,k;
  32.  
  33.  
  34.  
  35.         for (i=p; s[i] != '\0'; i++) {
  36.  
  37.                  k = 0;
  38.  
  39.                 for (j=i; t[k] != '\0' ; j++, k++) {
  40.  
  41.                     while ( t[k] == '\?') j++, k++;
  42.  
  43.                     if (s[j] != t[k]) 
  44.  
  45.                        break;
  46.  
  47.                     }
  48.  
  49.                 if (t[k] == '\0')
  50.  
  51.                         return(i);
  52.  
  53.         }
  54.  
  55.                 return(-1);
  56.  
  57. }
  58.  
  59.