|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T s
Length: 649 (0x289)
Types: TextFile
Names: »strpbrk.c«
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
└─⟦2fafebccf⟧ »EurOpenD3/mail/smail3.1.19.tar.Z«
└─⟦bcd2bc73f⟧
└─⟦this⟧ »pd/strlib/strpbrk.c«
/* @(#)strpbrk.c 1.1 5/6/88 04:41:46 */
/*
* File : strpbrk.c
* Author : Richard A. O'Keefe.
* Updated: 11 April 1984
* Defines: strpbrk()
*
* strpbrk(s1, s2) returns NullS if no character of s2 occurs in s1, or
* a pointer to the first character of s1 which occurs in s2 if there
* is one. It generalises strchr (v7=index). It wouldn't be useful to
* consider NUL as part of s2, as that would occur in every s1.
*/
#include "strings.h"
#include "_str2set.h"
char *
strpbrk(str, set)
register _char_ *str;
char *set;
{
_str2set(set);
while (_set_vec[*str] != _set_ctr)
if (!*str++) return NullS;
return str;
}