Mercurial > hg > octave-lyh > gnulib-hg
changeset 8101:aa8ae425a79a
New module 'mbscspn'.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Mon, 05 Feb 2007 02:52:43 +0000 |
parents | eff7afbafad3 |
children | 3e7efcdc6568 |
files | lib/mbscspn.c m4/mbscspn.m4 modules/mbscspn |
diffstat | 3 files changed, 118 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/lib/mbscspn.c @@ -0,0 +1,72 @@ +/* Searching a string for a character among a given set of characters. + Copyright (C) 1999, 2002, 2006-2007 Free Software Foundation, Inc. + Written by Bruno Haible <bruno@clisp.org>, 2007. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program 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 General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software Foundation, + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + +#include <config.h> + +/* Specification. */ +#include <string.h> + +#if HAVE_MBRTOWC +# include "mbuiter.h" +#endif + +/* Find the first occurrence in the character string STRING of any character + in the character string ACCEPT. Return the number of bytes from the + beginning of the string to this occurrence, or to the end of the string + if none exists. */ +size_t +mbscspn (const char *string, const char *accept) +{ + /* Optimize two cases. */ + if (accept[0] == '\0') + return strlen (string); + if (accept[1] == '\0') + { + const char *ptr = mbschr (string, accept[0]); + return (ptr != NULL ? ptr - string : strlen (string)); + } + /* General case. */ +#if HAVE_MBRTOWC + if (MB_CUR_MAX > 1) + { + mbui_iterator_t iter; + + for (mbui_init (iter, string); mbui_avail (iter); mbui_advance (iter)) + { + if (mb_len (mbui_cur (iter)) == 1) + { + if (mbschr (accept, (unsigned char) * mbui_cur_ptr (iter))) + return mbui_cur_ptr (iter) - string; + } + else + { + mbui_iterator_t aiter; + + for (mbui_init (aiter, accept); + mbui_avail (aiter); + mbui_advance (aiter)) + if (mb_equal (mbui_cur (aiter), mbui_cur (iter))) + return mbui_cur_ptr (iter) - string; + } + } + return strlen (string); + } + else +#endif + return strcspn (string, accept); +}
new file mode 100644 --- /dev/null +++ b/m4/mbscspn.m4 @@ -0,0 +1,16 @@ +# mbscspn.m4 serial 1 +dnl Copyright (C) 2007 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +AC_DEFUN([gl_FUNC_MBSCSPN], +[ + gl_PREREQ_MBSCSPN +]) + +# Prerequisites of lib/mbscspn.c. +AC_DEFUN([gl_PREREQ_MBSCSPN], [ + AC_REQUIRE([gl_FUNC_MBRTOWC]) + : +])
new file mode 100644 --- /dev/null +++ b/modules/mbscspn @@ -0,0 +1,30 @@ +Description: +mbscspn() function: search a string for any of a set of characters. + +Files: +lib/mbscspn.c +m4/mbscspn.m4 +m4/mbrtowc.m4 + +Depends-on: +mbuiter +string +mbschr +strcspn + +configure.ac: +gl_FUNC_MBSCSPN +gl_STRING_MODULE_INDICATOR([mbscspn]) + +Makefile.am: +lib_SOURCES += mbscspn.c + +Include: +<string.h> + +License: +LGPL + +Maintainer: +Bruno Haible +