home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / NETWORK / ISP / bind.4.8.3.lzh / BIND483 / RES / strpbrk.c < prev    next >
Text File  |  1993-08-24  |  1KB  |  35 lines
  1. /*
  2.  * Copyright (c) 1985 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms are permitted
  6.  * provided that the above copyright notice and this paragraph are
  7.  * duplicated in all such forms and that any documentation,
  8.  * advertising materials, and other materials related to such
  9.  * distribution and use acknowledge that the software was developed
  10.  * by the University of California, Berkeley.  The name of the
  11.  * University may not be used to endorse or promote products derived
  12.  * from this software without specific prior written permission.
  13.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15.  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16.  */
  17.  
  18. #if defined(LIBC_SCCS) && !defined(lint)
  19. static char sccsid[] = "@(#)strpbrk.c    5.5 (Berkeley) 5/10/89";
  20. #endif /* LIBC_SCCS and not lint */
  21.  
  22. char *
  23. strpbrk(s1, s2)
  24.     register char *s1, *s2;
  25. {
  26.     register int c, sc;
  27.     register char *scanp;
  28.  
  29.     for (; c = *s1; ++s1)
  30.         for (scanp = s2; sc = *scanp++;)
  31.             if (sc == c)
  32.                 return(s1);
  33.     return(0);
  34. }
  35.