home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LIB / unix.zoo / strpbrk.c < prev    next >
Text File  |  2009-11-06  |  2KB  |  50 lines
  1.  
  2. /***************************************************************************/
  3. /*                                                                         */
  4. /* strpbrk() : Unix library (OS9/68000)                                    */
  5. /* ========                                                                */
  6. /*                                                                         */
  7. /* Author:     K. Schmitt                                                  */
  8. /* Compiler:   Microware C Vers. 3.0                                       */
  9. /* OS:         OS9/68000 Vers. 2.2                                         */
  10. /*                                                                         */
  11. /* Edition History                                                         */
  12. /* ===============                                                         */
  13. /*                                                                         */
  14. /* Ed. 0.00  Date 11/15/88                                                 */
  15. /*           First version                                                 */
  16. /*                                                                         */
  17. /***************************************************************************/
  18. /*                                                                         */
  19. /* Description                                                             */
  20. /*                                                                         */
  21. /*
  22.  
  23.           char *strpbrk (s1, s2)
  24.           char *s1, *s2;
  25.  
  26.           Strpbrk returns a pointer to the first occurrence in string  
  27.           s1 of any character from string s2, or NULL if no character  
  28.           from s2 exists in s1.
  29. */
  30.  
  31. char *strpbrk (s1, s2)
  32.           register char *s1, *s2;
  33.           {
  34.           register char *p;
  35.  
  36.           while (*s1)
  37.                {
  38.                p = s2;
  39.                while (*p)
  40.                     {
  41.                     if (*p++ == *s1) return (s1);
  42.                     }
  43.                s1++;
  44.                }
  45.  
  46.           return ((char *) 0);
  47.  
  48.           } /* end of strpbrk */
  49.  
  50.