1/* Copyright (C) 1995-2022 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <https://www.gnu.org/licenses/>. */
17
18#include <wchar.h>
19
20#ifdef WCSSPN
21# define wcsspn WCSSPN
22#endif
23
24/* Return the length of the maximum initial segment
25 of WCS which contains only wide-characters in ACCEPT. */
26size_t
27wcsspn (const wchar_t *wcs, const wchar_t *accept)
28{
29 const wchar_t *p;
30 const wchar_t *a;
31 size_t count = 0;
32
33 for (p = wcs; *p != L'\0'; ++p)
34 {
35 for (a = accept; *a != L'\0'; ++a)
36 if (*p == *a)
37 break;
38 if (*a == L'\0')
39 return count;
40 else
41 ++count;
42 }
43
44 return count;
45}
46libc_hidden_def (wcsspn)
47

source code of glibc/wcsmbs/wcsspn.c