vasnprintf: Support I flag on glibc systems.

* lib/printf-parse.h (FLAG_LOCALIZED): New macro.
* lib/printf-parse.c (PRINTF_PARSE): Handle the 'I' flag.
* lib/vasnprintf.c (VASNPRINTF): Pass the 'I' flag on to the system's
snprintf function.
* tests/test-vasnprintf-posix.c (test_function): Test the 'I' flag on
glibc systems.
* tests/test-vasnprintf-posix3.c: New file.
* modules/vasnprintf-posix-tests (Files): Add it.
(TESTS, check_PROGRAMS): Add test-vasnprintf-posix3.

7 files changed, 137 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index a303dff230..4eb90a391c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2010-11-07  Bruno Haible  <bruno@clisp.org>
+
+	vasnprintf: Support I flag on glibc systems.
+	* lib/printf-parse.h (FLAG_LOCALIZED): New macro.
+	* lib/printf-parse.c (PRINTF_PARSE): Handle the 'I' flag.
+	* lib/vasnprintf.c (VASNPRINTF): Pass the 'I' flag on to the system's
+	snprintf function.
+	* tests/test-vasnprintf-posix.c (test_function): Test the 'I' flag on
+	glibc systems.
+	* tests/test-vasnprintf-posix3.c: New file.
+	* modules/vasnprintf-posix-tests (Files): Add it.
+	(TESTS, check_PROGRAMS): Add test-vasnprintf-posix3.
+
 2010-11-05  Thien-Thi Nguyen  <ttn@gnuvola.org>  (tiny change)
 
 	[html] Fix copy/paste bug: Use unique name for compiler warnings.
diff --git a/lib/printf-parse.c b/lib/printf-parse.c
index 4fce8751a7..d54ce6de81 100644
--- a/lib/printf-parse.c
+++ b/lib/printf-parse.c
@@ -206,6 +206,13 @@ PRINTF_PARSE (const CHAR_T *format, DIRECTIVES *d, arguments *a)
                   dp->flags |= FLAG_ZERO;
                   cp++;
                 }
+#if __GLIBC__ >= 2
+              else if (*cp == 'I')
+                {
+                  dp->flags |= FLAG_LOCALIZED;
+                  cp++;
+                }
+#endif
               else
                 break;
             }
diff --git a/lib/printf-parse.h b/lib/printf-parse.h
index 88666ad182..67a4a2a21e 100644
--- a/lib/printf-parse.h
+++ b/lib/printf-parse.h
@@ -33,6 +33,9 @@
 #define FLAG_SPACE       8      /* space flag */
 #define FLAG_ALT        16      /* # flag */
 #define FLAG_ZERO       32
+#if __GLIBC__ >= 2
+# define FLAG_LOCALIZED 64      /* I flag, uses localized digits */
+#endif
 
 /* arg_index value indicating that no argument is consumed.  */
 #define ARG_NONE        (~(size_t)0)
diff --git a/lib/vasnprintf.c b/lib/vasnprintf.c
index 59ea01cc7e..87b8a55b99 100644
--- a/lib/vasnprintf.c
+++ b/lib/vasnprintf.c
@@ -4754,6 +4754,10 @@ VASNPRINTF (DCHAR_T *resultbuf, size_t *lengthp,
                   *fbp++ = ' ';
                 if (flags & FLAG_ALT)
                   *fbp++ = '#';
+#if __GLIBC__ >= 2
+                if (flags & FLAG_LOCALIZED)
+                  *fbp++ = 'I';
+#endif
                 if (!pad_ourselves)
                   {
                     if (flags & FLAG_ZERO)
diff --git a/modules/vasnprintf-posix-tests b/modules/vasnprintf-posix-tests
index e281d262e6..5a4800d00f 100644
--- a/modules/vasnprintf-posix-tests
+++ b/modules/vasnprintf-posix-tests
@@ -2,6 +2,7 @@ Files:
 tests/test-vasnprintf-posix.c
 tests/test-vasnprintf-posix2.sh
 tests/test-vasnprintf-posix2.c
+tests/test-vasnprintf-posix3.c
 tests/minus-zero.h
 tests/nan.h
 tests/macros.h
@@ -17,6 +18,6 @@ gt_LOCALE_FR
 gt_LOCALE_FR_UTF8
 
 Makefile.am:
-TESTS += test-vasnprintf-posix test-vasnprintf-posix2.sh
+TESTS += test-vasnprintf-posix test-vasnprintf-posix2.sh test-vasnprintf-posix3
 TESTS_ENVIRONMENT += LOCALE_FR='@LOCALE_FR@' LOCALE_FR_UTF8='@LOCALE_FR_UTF8@'
-check_PROGRAMS += test-vasnprintf-posix test-vasnprintf-posix2
+check_PROGRAMS += test-vasnprintf-posix test-vasnprintf-posix2 test-vasnprintf-posix3
diff --git a/tests/test-vasnprintf-posix.c b/tests/test-vasnprintf-posix.c
index 66b4eb4265..c0e9ea2fac 100644
--- a/tests/test-vasnprintf-posix.c
+++ b/tests/test-vasnprintf-posix.c
@@ -3658,6 +3658,19 @@ test_function (char * (*my_asnprintf) (char *, size_t *, const char *, ...))
       free (result);
   }
 #endif
+
+#if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 2)
+  /* Test that the 'I' flag is supported.  */
+  {
+    size_t length;
+    char *result =
+      my_asnprintf (NULL, &length, "%Id %d", 1234567, 99);
+    ASSERT (result != NULL);
+    ASSERT (strcmp (result, "1234567 99") == 0);
+    ASSERT (length == strlen (result));
+    free (result);
+  }
+#endif
 }
 
 static char *
diff --git a/tests/test-vasnprintf-posix3.c b/tests/test-vasnprintf-posix3.c
new file mode 100644
index 0000000000..e0237fa60f
--- /dev/null
+++ b/tests/test-vasnprintf-posix3.c
@@ -0,0 +1,94 @@
+/* Test of POSIX compatible vasnprintf() and asnprintf() functions.
+   Copyright (C) 2010 Free Software Foundation, Inc.
+
+   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/>.  */
+
+/* Written by Bruno Haible <bruno@clisp.org>, 2010.  */
+
+#include <config.h>
+
+#include "vasnprintf.h"
+
+#include <locale.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "macros.h"
+
+static void
+test_function (char * (*my_asnprintf) (char *, size_t *, const char *, ...))
+{
+  /* glibc >= 2.2 supports the 'I' flag, and in glibc >= 2.2.3 the fa_IR
+     locale defines the 'outdigits' to be U+06F0..U+06F9.
+     So we test for glibc >= 2.3.  */
+#if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 3)
+  /* Test that the 'I' flag is supported.  */
+  {
+    size_t length;
+    char *result =
+      my_asnprintf (NULL, &length, "%Id %d", 1234567, 99);
+    static const char expected[] = /* "۱۲۳۴۵۶۷ 99" */
+      "\xDB\xB1\xDB\xB2\xDB\xB3\xDB\xB4\xDB\xB5\xDB\xB6\xDB\xB7 99";
+    ASSERT (result != NULL);
+    ASSERT (strcmp (result, expected) == 0);
+    ASSERT (length == strlen (result));
+    free (result);
+  }
+#endif
+}
+
+static char *
+my_asnprintf (char *resultbuf, size_t *lengthp, const char *format, ...)
+{
+  va_list args;
+  char *ret;
+
+  va_start (args, format);
+  ret = vasnprintf (resultbuf, lengthp, format, args);
+  va_end (args);
+  return ret;
+}
+
+static void
+test_vasnprintf ()
+{
+  test_function (my_asnprintf);
+}
+
+static void
+test_asnprintf ()
+{
+  test_function (asnprintf);
+}
+
+int
+main (int argc, char *argv[])
+{
+#if __GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 3)
+  /* Select a locale with Arabic 'outdigits'.  */
+  if (setlocale (LC_ALL, "fa_IR.UTF-8") == NULL)
+    {
+      fprintf (stderr, "Skipping test: no Iranian locale is installed\n");
+      return 77;
+    }
+
+  test_vasnprintf ();
+  test_asnprintf ();
+
+  return 0;
+#else
+  fprintf (stderr, "Skipping test: not a glibc >= 2.3 system\n");
+  return 77;
+#endif
+}