New module 'wcsrchr'.

* modules/wcsrchr: New file.
* lib/wchar.in.h (wcsrchr): New declaration.
* lib/wcsrchr.c: New file.
* lib/wcsrchr-impl.h: New file, from libutf8 with modifications.
* m4/wcsrchr.m4: New file.
* m4/wchar_h.m4 (gl_WCHAR_H): Test whether wcsrchr is declared.
(gl_WCHAR_H_DEFAULTS): Initialize GNULIB_WCSRCHR, HAVE_WCSRCHR.
* modules/wchar (Makefile.am): Substitute GNULIB_WCSRCHR, HAVE_WCSRCHR.
* tests/test-wchar-c++.cc: Test the declaration of wcsrchr.
* doc/posix-functions/wcsrchr.texi: Mention the new module.

1 files changed, 33 insertions, 0 deletions

diff --git a/lib/wcsrchr-impl.h b/lib/wcsrchr-impl.h
new file mode 100644
index 0000000000..db3ba0663d
--- /dev/null
+++ b/lib/wcsrchr-impl.h
@@ -0,0 +1,33 @@
+/* Search wide string for a wide character.
+   Copyright (C) 1999, 2011 Free Software Foundation, Inc.
+   Written by Bruno Haible <bruno@clisp.org>, 1999.
+
+   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 3 of the License, 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, see <http://www.gnu.org/licenses/>.  */
+
+wchar_t *
+wcsrchr (const wchar_t *wcs, wchar_t wc)
+{
+  /* Calling wcslen and then searching from the other end would cause more
+     memory accesses.  Avoid that, at the cost of a few more comparisons.  */
+  wchar_t *result = NULL;
+
+  for (;; wcs++)
+    {
+      if (*wcs == wc)
+        result = (wchar_t *) wcs;
+      if (*wcs == (wchar_t)'\0')
+        break;
+    }
+  return result;
+}