124190Skre /* 224190Skre * Copyright (c) 1985 Regents of the University of California. 324190Skre * All rights reserved. The Berkeley software License Agreement 424190Skre * specifies the terms and conditions for redistribution. 524190Skre */ 624190Skre 724190Skre /* 824190Skre * Sys5 compat routine 924190Skre */ 1024190Skre 11*26537Sdonn #if defined(LIBC_SCCS) && !defined(lint) 12*26537Sdonn static char sccsid[] = "@(#)strspn.c 5.2 (Berkeley) 86/03/09"; 1324190Skre #endif 1424190Skre 1524190Skre strspn(s, set) 1624190Skre register char *s, *set; 1724190Skre { 1824190Skre register n = 0; 1924190Skre register char *p; 2024190Skre register c; 2124190Skre 2224190Skre while (c = *s++) { 2324190Skre for (p = set; *p; p++) 2424190Skre if (c == *p) 2524190Skre break; 2624190Skre if (!*p) 2724190Skre return (n); 2824190Skre n++; 2924190Skre } 3024190Skre return (n); 3124190Skre } 32