New module 'mbsrchr'.

diff --git a/ChangeLog b/ChangeLog
index 1a4c56a8ef3683e7b0db4433bfa874dfa66c8842..9c8f82f60e0153c5da7766300bdd1c48b7ce5452 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2007-02-04  Bruno Haible  <bruno@clisp.org>
+
+       New module mbsrchr.
+       * modules/mbsrchr: New file.
+       * lib/mbsrchr.c: New file.
+       * lib/string_.h (strrchr): Add a conditional link warning.
+       (mbsrchr): New declaration.
+       * m4/mbsrchr.m4: New file.
+       * m4/string_h.m4 (gl_STRING_MODULE_INDICATOR_DEFAULTS): Initialize
+       GNULIB_MBSRCHR.
+       * modules/string (string.h): Also substitute GNULIB_MBSRCHR.
+       * MODULES.html.sh (Internationalization functions): Add mbsrchr.
+
 2007-02-04  Bruno Haible  <bruno@clisp.org>
 
        New module mbschr.

diff --git a/MODULES.html.sh b/MODULES.html.sh
index c22c4f8f4f23123519bae5025e27d237bb0c0d87..303f8a4e9b6d796d2ea1f9771baa0b15fcbc55a8 100755 (executable)
--- a/MODULES.html.sh
+++ b/MODULES.html.sh
@@ -2162,6 +2162,7 @@ func_all_modules ()
   func_module localcharset
   func_module hard-locale
   func_module mbschr
+  func_module mbsrchr
   func_module mbswidth
   func_module memcasecmp
   func_module memcoll

diff --git a/lib/string_.h b/lib/string_.h
index e365810c8b28ce391fce348bf3ec379c79d31f5a..36d4d054fb82c71cca3994f4e9b532497915c2b0 100644 (file)
--- a/lib/string_.h
+++ b/lib/string_.h
@@ -213,6 +213,15 @@ extern char *strpbrk (char const *__s, char const *__accept);
 # define strpbrk strpbrk_is_unportable__use_gnulib_module_strpbrk_for_portability
 #endif
 
+#if defined GNULIB_POSIXCHECK
+/* strrchr() does not work with multibyte strings if the locale encoding is
+   GB18030 and the character to be searched is a digit.  */
+# undef strrchr
+# define strrchr(s,c) \
+    (GL_LINK_WARNING ("strrchr cannot work correctly on character strings in some multibyte locales - use mbsrchr if you care about internationalization"), \
+     strrchr (s, c))
+#endif
+
 /* Search the next delimiter (char listed in DELIM) starting at *STRINGP.
    If one is found, overwrite it with a NUL, and advance *STRINGP
    to point to the next char after it.  Otherwise, set *STRINGP to NULL.
@@ -317,6 +326,15 @@ extern char *strtok_r (char *restrict __s, char const *restrict __sep,
 extern char * mbschr (const char *string, int c);
 #endif
 
+#if @GNULIB_MBSRCHR@
+/* 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.
+   Unlike strrchr(), this function works correctly in multibyte locales with
+   encodings such as GB18030.  */
+# define mbsrchr rpl_mbsrchr /* avoid collision with HP-UX function */
+extern char * mbsrchr (const char *string, int c);
+#endif
+
 
 #ifdef __cplusplus
 }

diff --git a/m4/string_h.m4 b/m4/string_h.m4
index ab2efd4c928c70f80ad29abbf07491f4504a3591..bb0e7525dacba886b19116eace47ad5d5b8c85d5 100644 (file)
--- a/m4/string_h.m4
+++ b/m4/string_h.m4
@@ -71,4 +71,5 @@ AC_DEFUN([gl_STRING_MODULE_INDICATOR_DEFAULTS],
   GNULIB_STRCASESTR=0;  AC_SUBST([GNULIB_STRCASESTR])
   GNULIB_STRTOK_R=0;    AC_SUBST([GNULIB_STRTOK_R])
   GNULIB_MBSCHR=0;      AC_SUBST([GNULIB_MBSCHR])
+  GNULIB_MBSRCHR=0;     AC_SUBST([GNULIB_MBSRCHR])
 ])

diff --git a/modules/string b/modules/string
index 5e9bd11b16f43055b98b9d96cd720940a8677e56..764496aed41726a86e92b0669c1350dbf971b500 100644 (file)
--- a/modules/string
+++ b/modules/string
@@ -22,6 +22,7 @@ string.h: string_.h
        { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \
          sed -e 's|@''ABSOLUTE_STRING_H''@|$(ABSOLUTE_STRING_H)|g' \
              -e 's|@''GNULIB_MBSCHR''@|$(GNULIB_MBSCHR)|g' \
+             -e 's|@''GNULIB_MBSRCHR''@|$(GNULIB_MBSRCHR)|g' \
              -e 's|@''GNULIB_MEMMEM''@|$(GNULIB_MEMMEM)|g' \
              -e 's|@''GNULIB_MEMPCPY''@|$(GNULIB_MEMPCPY)|g' \
              -e 's|@''GNULIB_MEMRCHR''@|$(GNULIB_MEMRCHR)|g' \