Subversion Repositories scarts

/*
FUNCTION
	<<strpbrk>>---find characters in string
 
INDEX
	strpbrk
 
ANSI_SYNOPSIS
	#include <string.h>
	char *strpbrk(const char *<[s1]>, const char *<[s2]>);
 
TRAD_SYNOPSIS
	#include <string.h>
	char *strpbrk(<[s1]>, <[s2]>)
	char *<[s1]>;
	char *<[s2]>;
 
DESCRIPTION
	This function locates the first occurence in the string
	pointed to by <[s1]> of any character in string pointed to by
	<[s2]> (excluding the terminating null character).
 
RETURNS
	<<strpbrk>> returns a pointer to the character found in <[s1]>, or a
	null pointer if no character from <[s2]> occurs in <[s1]>.
 
PORTABILITY
<<strpbrk>> requires no supporting OS subroutines.
*/
 
#include <string.h>
 
char *
_DEFUN (strpbrk, (s1, s2),
	_CONST char *s1 _AND
	_CONST char *s2)
{
  _CONST char *c = s2;
  if (!*s1)
    return (char *) NULL;
 
  while (*s1)
    {
      for (c = s2; *c; c++)
	{
	  if (*s1 == *c)
	    break;
	}
      if (*c)
	break;
      s1++;
    }
 
  if (*c == '\0')
    s1 = NULL;
 
  return (char *) s1;
}