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. /*            by Mike's "C" Board  619 722-8724                         */
  5. /*                                                                      */
  6. /*      int instr(pos,string,pattern)                                   */
  7. /*              returns starting position in string if found,           */
  8. /*              returns (-1) if not found                               */
  9. /*              <?> can be used as wild card in pattern                 */
  10. /*                                                                      */
  11. /************************************************************************/
  12.  
  13. int     instr(p,s,t)
  14. char    *s,*t;
  15. int     p;
  16. {
  17.         int i,j,k;
  18.  
  19.         for (i=p; s[i] != '\0'; i++) {
  20.                  k = 0;
  21.                 for (j=i; t[k] != '\0' ; j++, k++) {
  22.                     while ( t[k] == '\?') j++, k++;
  23.                     if (s[j] != t[k]) 
  24.                        break;
  25.                     }
  26.                 if (t[k] == '\0')
  27.                         return(i);
  28.         }
  29.                 return(-1);
  30. }
  31.