Mercurial > hg > octave-kai > gnulib-hg
annotate lib/strcspn.c @ 651:242f0fe39aa7
update FSF address in copyright
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Mon, 15 Jul 1996 03:43:36 +0000 |
parents | 6980a90dddc9 |
children | b63f146fd963 |
rev | line source |
---|---|
9 | 1 /* Copyright (C) 1991 Free Software Foundation, Inc. |
2 | |
311 | 3 This program is free software; you can redistribute it and/or modify |
4 it under the terms of the GNU General Public License as published by | |
5 the Free Software Foundation; either version 2, or (at your option) | |
6 any later version. | |
309 | 7 |
311 | 8 This program is distributed in the hope that it will be useful, |
9 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 GNU General Public License for more details. | |
9 | 12 |
311 | 13 You should have received a copy of the GNU General Public License |
651
242f0fe39aa7
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
311
diff
changeset
|
14 along with this program; if not, write to the Free Software Foundation, |
242f0fe39aa7
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
311
diff
changeset
|
15 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
311 | 16 |
17 #ifdef HAVE_CONFIG_H | |
18 #include <config.h> | |
19 #endif | |
9 | 20 |
311 | 21 #ifdef HAVE_STRING_H |
309 | 22 #include <string.h> |
311 | 23 #else |
24 #include <strings.h> | |
25 #ifndef strchr | |
26 #define strchr index | |
27 #endif | |
28 #endif | |
9 | 29 |
30 /* Return the length of the maximum inital segment of S | |
31 which contains no characters from REJECT. */ | |
311 | 32 int |
33 strcspn (s, reject) | |
34 register char *s; | |
35 register char *reject; | |
9 | 36 { |
311 | 37 register int count = 0; |
9 | 38 |
39 while (*s != '\0') | |
311 | 40 if (strchr (reject, *s++) == 0) |
9 | 41 ++count; |
42 else | |
43 return count; | |
44 | |
45 return count; | |
46 } |