Mercurial > hg > octave-lojdl > gnulib-hg
changeset 493:72bbac9956e0
.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Mon, 09 Oct 1995 03:42:11 +0000 |
parents | 33a21db1201a |
children | e4bb4d9fc4ef |
files | lib/strpbrk.c |
diffstat | 1 files changed, 38 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/lib/strpbrk.c @@ -0,0 +1,38 @@ +/* Copyright (C) 1991, 1994 Free Software Foundation, Inc. +This file is part of the GNU C Library. + +The GNU C Library is free software; you can redistribute it and/or +modify it under the terms of the GNU Library General Public License as +published by the Free Software Foundation; either version 2 of the +License, or (at your option) any later version. + +The GNU C Library is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +Library General Public License for more details. + +You should have received a copy of the GNU Library General Public +License along with the GNU C Library; see the file COPYING.LIB. If +not, write to the Free Software Foundation, Inc., 675 Mass Ave, +Cambridge, MA 02139, USA. */ + +#include <ansidecl.h> +#include <string.h> + + +/* Find the first ocurrence in S of any character in ACCEPT. */ +char * +DEFUN(strpbrk, (s, accept), + register CONST char *s AND register CONST char *accept) +{ + while (*s != '\0') + { + const char *a = accept; + while (*a != '\0') + if (*a++ == *s) + return (char *) s; + ++s; + } + + return NULL; +}