home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / ip / dns / resolv+2.1.1 / strpbrk.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-28  |  1.1 KB  |  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.