home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol078 / instr.c < prev    next >
C/C++ Source or Header  |  1984-04-29  |  293b  |  16 lines
  1.  
  2. /*  instr - find first occurence in string of member of set  */
  3. instr (p, s)
  4. /**********/
  5.     char *p, *s;
  6.     {
  7.     char *c;
  8.  
  9.     for ( ; *s; s++)
  10.         for (c = p; *c; c++)
  11.             if (*c == *s)
  12.                 goto out;
  13.     out:
  14.     return c - p;
  15.     }  /* instr */
  16.