Mercurial > hg > octave-lojdl > gnulib-hg
changeset 8084:26bd958c1cd1
New module 'mbsrchr'.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Mon, 05 Feb 2007 01:07:28 +0000 |
parents | c8815c37b48c |
children | 452a78f76352 |
files | lib/mbsrchr.c m4/mbsrchr.m4 modules/mbsrchr |
diffstat | 3 files changed, 100 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/lib/mbsrchr.c @@ -0,0 +1,56 @@ +/* Searching a string for the last occurrence of a character. + Copyright (C) 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 + +/* Locate the last single-byte character C in the character string STRING, + and return a pointer to it. Return NULL if C is not found in STRING. */ +char * +mbsrchr (const char *string, int c) +{ +#if HAVE_MBRTOWC + if (MB_CUR_MAX > 1 + /* Optimization: We know that ASCII characters < 0x30 don't occur as + part of multibyte characters longer than 1 byte. Hence, if c < 0x30, + the faster unibyte loop can be used. */ + && (unsigned char) c >= 0x30) + { + const char *result = NULL; + mbui_iterator_t iter; + + for (mbui_init (iter, string);; mbui_advance (iter)) + { + if (mb_len (mbui_cur (iter)) == 1 + && (unsigned char) * mbui_cur_ptr (iter) == (unsigned char) c) + result = mbui_cur_ptr (iter); + if (!mbui_avail (iter)) + break; + } + return (char *) result; + } + else +#endif + return strrchr (string, c); +}
new file mode 100644 --- /dev/null +++ b/m4/mbsrchr.m4 @@ -0,0 +1,16 @@ +# mbsrchr.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_MBSRCHR], +[ + gl_PREREQ_MBSRCHR +]) + +# Prerequisites of lib/mbsrchr.c. +AC_DEFUN([gl_PREREQ_MBSRCHR], [ + AC_REQUIRE([gl_FUNC_MBRTOWC]) + : +])
new file mode 100644 --- /dev/null +++ b/modules/mbsrchr @@ -0,0 +1,28 @@ +Description: +mbsrchr() function: search a string for a character, from the end. + +Files: +lib/mbsrchr.c +m4/mbsrchr.m4 +m4/mbrtowc.m4 + +Depends-on: +mbuiter +string + +configure.ac: +gl_FUNC_MBSRCHR +gl_STRING_MODULE_INDICATOR([mbsrchr]) + +Makefile.am: +lib_SOURCES += mbsrchr.c + +Include: +<string.h> + +License: +LGPL + +Maintainer: +Bruno Haible +