Replace FSF snail mail address with URLs.
[glibc.git] / string / test-strcspn.c
blobd80947a10a0cf4711c9f935af8046d75fcc04c83
1 /* Test and measure strcspn functions.
2 Copyright (C) 1999, 2002 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Written by Jakub Jelinek <jakub@redhat.com>, 1999.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <http://www.gnu.org/licenses/>. */
20 #define STRPBRK_RESULT(s, pos) (pos)
21 #define RES_TYPE size_t
22 #define TEST_MAIN
23 #include "test-string.h"
25 typedef size_t (*proto_t) (const char *, const char *);
26 size_t simple_strcspn (const char *, const char *);
27 size_t stupid_strcspn (const char *, const char *);
29 IMPL (stupid_strcspn, 0)
30 IMPL (simple_strcspn, 0)
31 IMPL (strcspn, 1)
33 size_t
34 simple_strcspn (const char *s, const char *rej)
36 const char *r, *str = s;
37 char c;
39 while ((c = *s++) != '\0')
40 for (r = rej; *r != '\0'; ++r)
41 if (*r == c)
42 return s - str - 1;
43 return s - str - 1;
46 size_t
47 stupid_strcspn (const char *s, const char *rej)
49 size_t ns = strlen (s), nrej = strlen (rej);
50 size_t i, j;
52 for (i = 0; i < ns; ++i)
53 for (j = 0; j < nrej; ++j)
54 if (s[i] == rej[j])
55 return i;
56 return i;
59 #include "test-strpbrk.c"