Work around towlower, towupper bug on mingw.

diff --git a/ChangeLog b/ChangeLog
index 5391614538219ec909e025a363f74d77b9c3e62c..f055a3cf5d4a5e55e5e6604f5e9304c5f3b885e8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2009-09-08  Bruno Haible  <bruno@clisp.org>
+
+       Work around towlower, towupper bug on mingw.
+       * lib/wctype.in.h (towlower, towupper) [__MINGW32__]: New replacements.
+       * m4/wctype.m4 (gl_WCTYPE_H): Replace <wctype.h> also on mingw.
+       * doc/posix-functions/towlower.texi: Mention the mingw bug.
+       * doc/posix-functions/towupper.texi: Likewise.
+       Reported by Eric Blake.
+
 2009-09-08  Jim Meyering  <meyering@redhat.com>
 
        build: don't try to run autoheader if we don't use it

diff --git a/doc/posix-functions/towlower.texi b/doc/posix-functions/towlower.texi
index 9857c56a74fde60e5df836356f419dd0b83a9843..18b6eda067fb37d120b7eeeadf6922e3e1d6e571 100644 (file)
--- a/doc/posix-functions/towlower.texi
+++ b/doc/posix-functions/towlower.texi
@@ -11,6 +11,10 @@ Portability problems fixed by Gnulib:
 @item
 This function is missing on some platforms:
 IRIX 5.3, Solaris 2.5.1.
+@item
+This function returns values of which the upper 16 bits are incorrect
+on some platforms:
+mingw.
 @end itemize
 
 Portability problems not fixed by Gnulib:

diff --git a/doc/posix-functions/towupper.texi b/doc/posix-functions/towupper.texi
index 2fd8aea20c2f8ea185854c1b311d2d45da5f51bd..d63469b137ded1cad6a7fda8b947b7218f07d5c9 100644 (file)
--- a/doc/posix-functions/towupper.texi
+++ b/doc/posix-functions/towupper.texi
@@ -11,6 +11,10 @@ Portability problems fixed by Gnulib:
 @item
 This function is missing on some platforms:
 IRIX 5.3, Solaris 2.5.1.
+@item
+This function returns values of which the upper 16 bits are incorrect
+on some platforms:
+mingw.
 @end itemize
 
 Portability problems not fixed by Gnulib:

diff --git a/lib/wctype.in.h b/lib/wctype.in.h
index 66e095a37404d428ccaf990a449586a8a5283293..835185f46fc5d0f4dd7061d3f2baa365b9637f1a 100644 (file)
--- a/lib/wctype.in.h
+++ b/lib/wctype.in.h
@@ -196,5 +196,36 @@ towupper (wint_t wc)
 
 # endif /* ! HAVE_ISWCNTRL */
 
+# if defined __MINGW32__
+
+/* On native Windows, wchar_t is uint16_t, and wint_t is uint32_t.
+   The functions towlower and towupper are implemented in the MSVCRT library
+   to take a wchar_t argument and return a wchar_t result.  mingw declares
+   these functions to take a wint_t argument and return a wint_t result.
+   This means that:
+   1. When the user passes an argument outside the range 0x0000..0xFFFF, the
+      function will look only at the lower 16 bits.  This is allowed according
+      to POSIX.
+   2. The return value is returned in the lower 16 bits of the result register.
+      The upper 16 bits are random: whatever happened to be in that part of the
+      result register.  We need to fix this by adding a zero-extend from
+      wchar_t to wint_t after the call.  */
+
+static inline wint_t
+rpl_towlower (wint_t wc)
+{
+  return (wint_t) (wchar_t) towlower (wc);
+}
+#  define towlower rpl_towlower
+
+static inline wint_t
+rpl_towupper (wint_t wc)
+{
+  return (wint_t) (wchar_t) towupper (wc);
+}
+#  define towupper rpl_towupper
+
+# endif
+
 #endif /* _GL_WCTYPE_H */
 #endif /* _GL_WCTYPE_H */

diff --git a/m4/wctype.m4 b/m4/wctype.m4
index 6a1b6f07f482838d4e2faeafa7474c368336d716..1eb55a412f39c470eb0371264f872b43da1d6b0f 100644 (file)
--- a/m4/wctype.m4
+++ b/m4/wctype.m4
@@ -1,4 +1,4 @@
-# wctype.m4 serial 2
+# wctype.m4 serial 3
 
 dnl A placeholder for ISO C99 <wctype.h>, for platforms that lack it.
 
@@ -12,6 +12,7 @@ dnl Written by Paul Eggert.
 AC_DEFUN([gl_WCTYPE_H],
 [
   AC_REQUIRE([AC_PROG_CC])
+  AC_REQUIRE([AC_CANONICAL_HOST])
   AC_CHECK_FUNCS_ONCE([iswcntrl])
   if test $ac_cv_func_iswcntrl = yes; then
     HAVE_ISWCNTRL=1
@@ -52,7 +53,15 @@ AC_DEFUN([gl_WCTYPE_H],
             ])
         ])
       if test $gl_cv_func_iswcntrl_works = yes; then
-        WCTYPE_H=
+        case "$host_os" in
+          mingw*)
+            dnl On mingw, towlower and towupper return random high 16 bits.
+            ;;
+          *)
+            dnl iswcntrl works. towlower and towupper work as well.
+            WCTYPE_H=
+            ;;
+        esac
       fi
     fi
     dnl Compute NEXT_WCTYPE_H even if WCTYPE_H is empty,