ftp.nice.ch/pub/next/unix/mail/smail3.1.20.s.tar.gz#/smail3.1.20/pd/strlib/strspn.c

This is strspn.c in view mode; [Download] [Up]

/* @(#)pd/strlib/strspn.c	1.2 24 Oct 1990 05:19:33 */
/*
 * File   : strspn.c
 * Author : Richard A. O'Keefe.
 * Updated: 11 April 1984
 * Defines: strspn()
 *
 * strspn(s1, s2) returns the  length  of  the  longest  prefix  of  s1
 * consisting  entirely  of characters in s2.  NUL is not considered to
 * be in s2, and _str2set will not include it in the set.
 */

#include "strings.h"
#include "_str2set.h"

int
strspn(str, set)
    register _char_ *str;
    char *set;
{
    register int L;

    _str2set(set);
    for (L = 0; _set_vec[*str++] == _set_ctr; L++) ;
    return L;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.