annotate lib/strpbrk.c @ 494:e4bb4d9fc4ef

Modified from glibc copy.
author Jim Meyering <jim@meyering.net>
date Mon, 09 Oct 1995 03:46:41 +0000
parents 72bbac9956e0
children 89f4c1937ac7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* Copyright (C) 1991, 1994 Free Software Foundation, Inc.
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
2 NOTE: The canonical source of this file is maintained with the GNU C Library.
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
3 Bugs can be reported to bug-glibc@prep.ai.mit.edu.
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
5 This program is free software; you can redistribute it and/or modify it
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
6 under the terms of the GNU General Public License as published by the
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
7 Free Software Foundation; either version 2, or (at your option) any
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
8 later version.
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
10 This program is distributed in the hope that it will be useful,
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
13 GNU General Public License for more details.
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
15 You should have received a copy of the GNU General Public License
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
16 along with this program; if not, write to the Free Software
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
17 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
19 #ifdef HAVE_CONFIG_H
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
20 # include <config.h>
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
21 #endif
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23 /* Find the first ocurrence in S of any character in ACCEPT. */
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 char *
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
25 strpbrk (s, accept)
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
26 register const char *s;
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
27 register const char *accept;
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 while (*s != '\0')
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 {
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 const char *a = accept;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 while (*a != '\0')
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33 if (*a++ == *s)
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 return (char *) s;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 ++s;
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36 }
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37
494
e4bb4d9fc4ef Modified from glibc copy.
Jim Meyering <jim@meyering.net>
parents: 493
diff changeset
38 return 0;
493
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 }