DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T s

⟦76a059262⟧ TextFile

    Length: 649 (0x289)
    Types: TextFile
    Names: »strpbrk.c«

Derivation

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦2fafebccf⟧ »EurOpenD3/mail/smail3.1.19.tar.Z« 
        └─⟦bcd2bc73f⟧ 
            └─⟦this⟧ »pd/strlib/strpbrk.c« 

TextFile

/* @(#)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;
}