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

⟦eea7a3e01⟧ TextFile

    Length: 460 (0x1cc)
    Types: TextFile
    Names: »strspn.c«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─⟦this⟧ »EUUGD11/euug-87hel/sec1/wp/strspn.c«

TextFile

/*
 * strspn - find length of initial segment of s consisting entirely
 * of characters from accept
 */

SIZET
strspn(s, accept)
CONST char *s;
CONST char *accept;
{
	register CONST char *sscan;
	register CONST char *ascan;
	register SIZET count;

	count = 0;
	for (sscan = s; *sscan != '\0'; sscan++) {
		for (ascan = accept; *ascan != '\0'; ascan++)
			if (*sscan == *ascan)
				break;
		if (*ascan == '\0')
			return(count);
		count++;
	}
	return(count);
}