Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/vasnprintf.c @ 10001:facc928673d7
Declare rpmatch.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Tue, 29 Apr 2008 02:55:59 +0200 |
| parents | 0471a8660b70 |
| children | e4945463e1bf |
| rev | line source |
|---|---|
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1 /* vsprintf with automatic memory allocation. |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
2 Copyright (C) 1999, 2002-2008 Free Software Foundation, Inc. |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3 |
|
4440
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
4 This program is free software; you can redistribute it and/or modify |
|
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
5 it under the terms of the GNU General Public License as published by |
|
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
6 the Free Software Foundation; either version 2, or (at your option) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
7 any later version. |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
8 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
9 This program is distributed in the hope that it will be useful, |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
10 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
4440
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
12 GNU General Public License for more details. |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
13 |
|
4440
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
14 You should have received a copy of the GNU General Public License along |
|
e58a1c05a6ba
Update gettext source files from gettext automatically, using srclist-update.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4428
diff
changeset
|
15 with this program; if not, write to the Free Software Foundation, |
|
5848
a48fb0e98c8c
*** empty log message ***
Paul Eggert <eggert@cs.ucla.edu>
parents:
5670
diff
changeset
|
16 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
17 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
18 /* This file can be parametrized with the following macros: |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
19 VASNPRINTF The name of the function being defined. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
20 FCHAR_T The element type of the format string. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
21 DCHAR_T The element type of the destination (result) string. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
22 FCHAR_T_ONLY_ASCII Set to 1 to enable verification that all characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
23 in the format string are ASCII. MUST be set if |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
24 FCHAR_T and DCHAR_T are not the same type. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
25 DIRECTIVE Structure denoting a format directive. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
26 Depends on FCHAR_T. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
27 DIRECTIVES Structure denoting the set of format directives of a |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
28 format string. Depends on FCHAR_T. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
29 PRINTF_PARSE Function that parses a format string. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
30 Depends on FCHAR_T. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
31 DCHAR_CPY memcpy like function for DCHAR_T[] arrays. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
32 DCHAR_SET memset like function for DCHAR_T[] arrays. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
33 DCHAR_MBSNLEN mbsnlen like function for DCHAR_T[] arrays. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
34 SNPRINTF The system's snprintf (or similar) function. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
35 This may be either snprintf or swprintf. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
36 TCHAR_T The element type of the argument and result string |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
37 of the said SNPRINTF function. This may be either |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
38 char or wchar_t. The code exploits that |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
39 sizeof (TCHAR_T) | sizeof (DCHAR_T) and |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
40 alignof (TCHAR_T) <= alignof (DCHAR_T). |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
41 DCHAR_IS_TCHAR Set to 1 if DCHAR_T and TCHAR_T are the same type. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
42 DCHAR_CONV_FROM_ENCODING A function to convert from char[] to DCHAR[]. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
43 DCHAR_IS_UINT8_T Set to 1 if DCHAR_T is uint8_t. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
44 DCHAR_IS_UINT16_T Set to 1 if DCHAR_T is uint16_t. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
45 DCHAR_IS_UINT32_T Set to 1 if DCHAR_T is uint32_t. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
46 |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
47 /* Tell glibc's <stdio.h> to provide a prototype for snprintf(). |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
48 This must come before <config.h> because <config.h> may include |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
49 <features.h>, and once <features.h> has been included, it's too late. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
50 #ifndef _GNU_SOURCE |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
51 # define _GNU_SOURCE 1 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
52 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
53 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
54 #ifndef VASNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
55 # include <config.h> |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
56 #endif |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
57 #ifndef IN_LIBINTL |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
58 # include <alloca.h> |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
59 #endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
60 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
61 /* Specification. */ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
62 #ifndef VASNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
63 # if WIDE_CHAR_VERSION |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
64 # include "vasnwprintf.h" |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
65 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
66 # include "vasnprintf.h" |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
67 # endif |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
68 #endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
69 |
|
8400
655fca11a0e6
The decimal point must be locale dependent.
Bruno Haible <bruno@clisp.org>
parents:
8343
diff
changeset
|
70 #include <locale.h> /* localeconv() */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
71 #include <stdio.h> /* snprintf(), sprintf() */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
72 #include <stdlib.h> /* abort(), malloc(), realloc(), free() */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
73 #include <string.h> /* memcpy(), strlen() */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
74 #include <errno.h> /* errno */ |
|
7218
0fd12ba5cfc6
Do the INT_MAX check only where size_t is converted to 'int'.
Bruno Haible <bruno@clisp.org>
parents:
6583
diff
changeset
|
75 #include <limits.h> /* CHAR_BIT */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
76 #include <float.h> /* DBL_MAX_EXP, LDBL_MAX_EXP */ |
|
8554
35eb5062216c
Prefer nl_langinfo over localeconv.
Bruno Haible <bruno@clisp.org>
parents:
8531
diff
changeset
|
77 #if HAVE_NL_LANGINFO |
|
35eb5062216c
Prefer nl_langinfo over localeconv.
Bruno Haible <bruno@clisp.org>
parents:
8531
diff
changeset
|
78 # include <langinfo.h> |
|
35eb5062216c
Prefer nl_langinfo over localeconv.
Bruno Haible <bruno@clisp.org>
parents:
8531
diff
changeset
|
79 #endif |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
80 #ifndef VASNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
81 # if WIDE_CHAR_VERSION |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
82 # include "wprintf-parse.h" |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
83 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
84 # include "printf-parse.h" |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
85 # endif |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
86 #endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
87 |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
88 /* Checked size_t computations. */ |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
89 #include "xsize.h" |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
90 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
91 #if (NEED_PRINTF_DOUBLE || NEED_PRINTF_LONG_DOUBLE) && !defined IN_LIBINTL |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
92 # include <math.h> |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
93 # include "float+.h" |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
94 #endif |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
95 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
96 #if (NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE) && !defined IN_LIBINTL |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
97 # include <math.h> |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
98 # include "isnand.h" |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
99 #endif |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
100 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
101 #if (NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE) && !defined IN_LIBINTL |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
102 # include <math.h> |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
103 # include "isnanl-nolibm.h" |
|
8915
f15c03805bd9
Fix possible compilation error.
Bruno Haible <bruno@clisp.org>
parents:
8865
diff
changeset
|
104 # include "fpucw.h" |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
105 #endif |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
106 |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
107 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_DOUBLE) && !defined IN_LIBINTL |
|
8655
9a272158fe43
Faster determination of the sign of a number.
Bruno Haible <bruno@clisp.org>
parents:
8648
diff
changeset
|
108 # include <math.h> |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
109 # include "isnand.h" |
| 8526 | 110 # include "printf-frexp.h" |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
111 #endif |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
112 |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
113 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE) && !defined IN_LIBINTL |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
114 # include <math.h> |
|
8648
359d135f748c
Assume 'long double' exists.
Bruno Haible <bruno@clisp.org>
parents:
8569
diff
changeset
|
115 # include "isnanl-nolibm.h" |
|
359d135f748c
Assume 'long double' exists.
Bruno Haible <bruno@clisp.org>
parents:
8569
diff
changeset
|
116 # include "printf-frexpl.h" |
|
359d135f748c
Assume 'long double' exists.
Bruno Haible <bruno@clisp.org>
parents:
8569
diff
changeset
|
117 # include "fpucw.h" |
|
8335
2c9de3b6ba5b
New module 'vasnprintf-posix'.
Bruno Haible <bruno@clisp.org>
parents:
8254
diff
changeset
|
118 #endif |
|
2c9de3b6ba5b
New module 'vasnprintf-posix'.
Bruno Haible <bruno@clisp.org>
parents:
8254
diff
changeset
|
119 |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
120 #if HAVE_WCHAR_T |
|
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
121 # if HAVE_WCSLEN |
|
4523
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
122 # define local_wcslen wcslen |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
123 # else |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
124 /* Solaris 2.5.1 has wcslen() in a separate library libw.so. To avoid |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
125 a dependency towards this library, here is a local substitute. |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
126 Define this substitute only once, even if this file is included |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
127 twice in the same compilation unit. */ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
128 # ifndef local_wcslen_defined |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
129 # define local_wcslen_defined 1 |
|
4523
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
130 static size_t |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
131 local_wcslen (const wchar_t *s) |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
132 { |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
133 const wchar_t *ptr; |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
134 |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
135 for (ptr = s; *ptr != (wchar_t) 0; ptr++) |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
136 ; |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
137 return ptr - s; |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
138 } |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
139 # endif |
|
4523
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
140 # endif |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
141 #endif |
|
6cc4874a100b
Work around the lack of wcslen() on Solaris 2.5.1.
Bruno Haible <bruno@clisp.org>
parents:
4444
diff
changeset
|
142 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
143 /* Default parameters. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
144 #ifndef VASNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
145 # if WIDE_CHAR_VERSION |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
146 # define VASNPRINTF vasnwprintf |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
147 # define FCHAR_T wchar_t |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
148 # define DCHAR_T wchar_t |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
149 # define TCHAR_T wchar_t |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
150 # define DCHAR_IS_TCHAR 1 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
151 # define DIRECTIVE wchar_t_directive |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
152 # define DIRECTIVES wchar_t_directives |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
153 # define PRINTF_PARSE wprintf_parse |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
154 # define DCHAR_CPY wmemcpy |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
155 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
156 # define VASNPRINTF vasnprintf |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
157 # define FCHAR_T char |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
158 # define DCHAR_T char |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
159 # define TCHAR_T char |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
160 # define DCHAR_IS_TCHAR 1 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
161 # define DIRECTIVE char_directive |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
162 # define DIRECTIVES char_directives |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
163 # define PRINTF_PARSE printf_parse |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
164 # define DCHAR_CPY memcpy |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
165 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
166 #endif |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
167 #if WIDE_CHAR_VERSION |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
168 /* TCHAR_T is wchar_t. */ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
169 # define USE_SNPRINTF 1 |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
170 # if HAVE_DECL__SNWPRINTF |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
171 /* On Windows, the function swprintf() has a different signature than |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
172 on Unix; we use the _snwprintf() function instead. */ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
173 # define SNPRINTF _snwprintf |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
174 # else |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
175 /* Unix. */ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
176 # define SNPRINTF swprintf |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
177 # endif |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
178 #else |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
179 /* TCHAR_T is char. */ |
|
9940
0471a8660b70
Work around snprintf bug on Linux libc5.
Bruno Haible <bruno@clisp.org>
parents:
9939
diff
changeset
|
180 /* Use snprintf if it exists under the name 'snprintf' or '_snprintf'. |
|
8831
d3f907c33d15
Work around broken snprintf function on BeOS.
Bruno Haible <bruno@clisp.org>
parents:
8830
diff
changeset
|
181 But don't use it on BeOS, since BeOS snprintf produces no output if the |
|
9940
0471a8660b70
Work around snprintf bug on Linux libc5.
Bruno Haible <bruno@clisp.org>
parents:
9939
diff
changeset
|
182 size argument is >= 0x3000000. |
|
0471a8660b70
Work around snprintf bug on Linux libc5.
Bruno Haible <bruno@clisp.org>
parents:
9939
diff
changeset
|
183 Also don't use it on Linux libc5, since there snprintf with size = 1 |
|
0471a8660b70
Work around snprintf bug on Linux libc5.
Bruno Haible <bruno@clisp.org>
parents:
9939
diff
changeset
|
184 writes any output without bounds, like sprintf. */ |
|
0471a8660b70
Work around snprintf bug on Linux libc5.
Bruno Haible <bruno@clisp.org>
parents:
9939
diff
changeset
|
185 # if (HAVE_DECL__SNPRINTF || HAVE_SNPRINTF) && !defined __BEOS__ && !(__GNU_LIBRARY__ == 1) |
|
8831
d3f907c33d15
Work around broken snprintf function on BeOS.
Bruno Haible <bruno@clisp.org>
parents:
8830
diff
changeset
|
186 # define USE_SNPRINTF 1 |
|
d3f907c33d15
Work around broken snprintf function on BeOS.
Bruno Haible <bruno@clisp.org>
parents:
8830
diff
changeset
|
187 # else |
|
d3f907c33d15
Work around broken snprintf function on BeOS.
Bruno Haible <bruno@clisp.org>
parents:
8830
diff
changeset
|
188 # define USE_SNPRINTF 0 |
|
d3f907c33d15
Work around broken snprintf function on BeOS.
Bruno Haible <bruno@clisp.org>
parents:
8830
diff
changeset
|
189 # endif |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
190 # if HAVE_DECL__SNPRINTF |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
191 /* Windows. */ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
192 # define SNPRINTF _snprintf |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
193 # else |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
194 /* Unix. */ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
195 # define SNPRINTF snprintf |
|
8417
ee40afd85f2c
Avoid an endless recursion.
Bruno Haible <bruno@clisp.org>
parents:
8400
diff
changeset
|
196 /* Here we need to call the native snprintf, not rpl_snprintf. */ |
|
ee40afd85f2c
Avoid an endless recursion.
Bruno Haible <bruno@clisp.org>
parents:
8400
diff
changeset
|
197 # undef snprintf |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
198 # endif |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
199 #endif |
|
8424
ec3450ce9889
Use the system's sprintf function.
Bruno Haible <bruno@clisp.org>
parents:
8417
diff
changeset
|
200 /* Here we need to call the native sprintf, not rpl_sprintf. */ |
|
ec3450ce9889
Use the system's sprintf function.
Bruno Haible <bruno@clisp.org>
parents:
8417
diff
changeset
|
201 #undef sprintf |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
202 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
203 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE) && !defined IN_LIBINTL |
|
8569
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
204 /* Determine the decimal-point character according to the current locale. */ |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
205 # ifndef decimal_point_char_defined |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
206 # define decimal_point_char_defined 1 |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
207 static char |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
208 decimal_point_char () |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
209 { |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
210 const char *point; |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
211 /* Determine it in a multithread-safe way. We know nl_langinfo is |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
212 multithread-safe on glibc systems, but is not required to be multithread- |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
213 safe by POSIX. sprintf(), however, is multithread-safe. localeconv() |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
214 is rarely multithread-safe. */ |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
215 # if HAVE_NL_LANGINFO && __GLIBC__ |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
216 point = nl_langinfo (RADIXCHAR); |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
217 # elif 1 |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
218 char pointbuf[5]; |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
219 sprintf (pointbuf, "%#.0f", 1.0); |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
220 point = &pointbuf[1]; |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
221 # else |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
222 point = localeconv () -> decimal_point; |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
223 # endif |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
224 /* The decimal point is always a single byte: either '.' or ','. */ |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
225 return (point[0] != '\0' ? point[0] : '.'); |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
226 } |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
227 # endif |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
228 #endif |
|
378e85482afa
Use multithread-safe primitives for determining the decimal point character.
Bruno Haible <bruno@clisp.org>
parents:
8554
diff
changeset
|
229 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
230 #if NEED_PRINTF_INFINITE_DOUBLE && !NEED_PRINTF_DOUBLE && !defined IN_LIBINTL |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
231 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
232 /* Equivalent to !isfinite(x) || x == 0, but does not require libm. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
233 static int |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
234 is_infinite_or_zero (double x) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
235 { |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
236 return isnand (x) || x + x == x; |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
237 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
238 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
239 #endif |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
240 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
241 #if NEED_PRINTF_INFINITE_LONG_DOUBLE && !NEED_PRINTF_LONG_DOUBLE && !defined IN_LIBINTL |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
242 |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
243 /* Equivalent to !isfinite(x), but does not require libm. */ |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
244 static int |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
245 is_infinitel (long double x) |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
246 { |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
247 return isnanl (x) || (x + x == x && x != 0.0L); |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
248 } |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
249 |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
250 #endif |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
251 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
252 #if (NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_DOUBLE) && !defined IN_LIBINTL |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
253 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
254 /* Converting 'long double' to decimal without rare rounding bugs requires |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
255 real bignums. We use the naming conventions of GNU gmp, but vastly simpler |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
256 (and slower) algorithms. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
257 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
258 typedef unsigned int mp_limb_t; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
259 # define GMP_LIMB_BITS 32 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
260 typedef int mp_limb_verify[2 * (sizeof (mp_limb_t) * CHAR_BIT == GMP_LIMB_BITS) - 1]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
261 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
262 typedef unsigned long long mp_twolimb_t; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
263 # define GMP_TWOLIMB_BITS 64 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
264 typedef int mp_twolimb_verify[2 * (sizeof (mp_twolimb_t) * CHAR_BIT == GMP_TWOLIMB_BITS) - 1]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
265 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
266 /* Representation of a bignum >= 0. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
267 typedef struct |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
268 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
269 size_t nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
270 mp_limb_t *limbs; /* Bits in little-endian order, allocated with malloc(). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
271 } mpn_t; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
272 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
273 /* Compute the product of two bignums >= 0. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
274 Return the allocated memory in case of success, NULL in case of memory |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
275 allocation failure. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
276 static void * |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
277 multiply (mpn_t src1, mpn_t src2, mpn_t *dest) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
278 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
279 const mp_limb_t *p1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
280 const mp_limb_t *p2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
281 size_t len1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
282 size_t len2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
283 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
284 if (src1.nlimbs <= src2.nlimbs) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
285 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
286 len1 = src1.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
287 p1 = src1.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
288 len2 = src2.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
289 p2 = src2.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
290 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
291 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
292 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
293 len1 = src2.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
294 p1 = src2.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
295 len2 = src1.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
296 p2 = src1.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
297 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
298 /* Now 0 <= len1 <= len2. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
299 if (len1 == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
300 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
301 /* src1 or src2 is zero. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
302 dest->nlimbs = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
303 dest->limbs = (mp_limb_t *) malloc (1); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
304 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
305 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
306 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
307 /* Here 1 <= len1 <= len2. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
308 size_t dlen; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
309 mp_limb_t *dp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
310 size_t k, i, j; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
311 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
312 dlen = len1 + len2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
313 dp = (mp_limb_t *) malloc (dlen * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
314 if (dp == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
315 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
316 for (k = len2; k > 0; ) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
317 dp[--k] = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
318 for (i = 0; i < len1; i++) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
319 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
320 mp_limb_t digit1 = p1[i]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
321 mp_twolimb_t carry = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
322 for (j = 0; j < len2; j++) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
323 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
324 mp_limb_t digit2 = p2[j]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
325 carry += (mp_twolimb_t) digit1 * (mp_twolimb_t) digit2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
326 carry += dp[i + j]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
327 dp[i + j] = (mp_limb_t) carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
328 carry = carry >> GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
329 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
330 dp[i + len2] = (mp_limb_t) carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
331 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
332 /* Normalise. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
333 while (dlen > 0 && dp[dlen - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
334 dlen--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
335 dest->nlimbs = dlen; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
336 dest->limbs = dp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
337 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
338 return dest->limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
339 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
340 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
341 /* Compute the quotient of a bignum a >= 0 and a bignum b > 0. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
342 a is written as a = q * b + r with 0 <= r < b. q is the quotient, r |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
343 the remainder. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
344 Finally, round-to-even is performed: If r > b/2 or if r = b/2 and q is odd, |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
345 q is incremented. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
346 Return the allocated memory in case of success, NULL in case of memory |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
347 allocation failure. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
348 static void * |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
349 divide (mpn_t a, mpn_t b, mpn_t *q) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
350 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
351 /* Algorithm: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
352 First normalise a and b: a=[a[m-1],...,a[0]], b=[b[n-1],...,b[0]] |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
353 with m>=0 and n>0 (in base beta = 2^GMP_LIMB_BITS). |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
354 If m<n, then q:=0 and r:=a. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
355 If m>=n=1, perform a single-precision division: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
356 r:=0, j:=m, |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
357 while j>0 do |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
358 {Here (q[m-1]*beta^(m-1)+...+q[j]*beta^j) * b[0] + r*beta^j = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
359 = a[m-1]*beta^(m-1)+...+a[j]*beta^j und 0<=r<b[0]<beta} |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
360 j:=j-1, r:=r*beta+a[j], q[j]:=floor(r/b[0]), r:=r-b[0]*q[j]. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
361 Normalise [q[m-1],...,q[0]], yields q. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
362 If m>=n>1, perform a multiple-precision division: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
363 We have a/b < beta^(m-n+1). |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
364 s:=intDsize-1-(hightest bit in b[n-1]), 0<=s<intDsize. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
365 Shift a and b left by s bits, copying them. r:=a. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
366 r=[r[m],...,r[0]], b=[b[n-1],...,b[0]] with b[n-1]>=beta/2. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
367 For j=m-n,...,0: {Here 0 <= r < b*beta^(j+1).} |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
368 Compute q* : |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
369 q* := floor((r[j+n]*beta+r[j+n-1])/b[n-1]). |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
370 In case of overflow (q* >= beta) set q* := beta-1. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
371 Compute c2 := ((r[j+n]*beta+r[j+n-1]) - q* * b[n-1])*beta + r[j+n-2] |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
372 and c3 := b[n-2] * q*. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
373 {We have 0 <= c2 < 2*beta^2, even 0 <= c2 < beta^2 if no overflow |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
374 occurred. Furthermore 0 <= c3 < beta^2. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
375 If there was overflow and |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
376 r[j+n]*beta+r[j+n-1] - q* * b[n-1] >= beta, i.e. c2 >= beta^2, |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
377 the next test can be skipped.} |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
378 While c3 > c2, {Here 0 <= c2 < c3 < beta^2} |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
379 Put q* := q* - 1, c2 := c2 + b[n-1]*beta, c3 := c3 - b[n-2]. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
380 If q* > 0: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
381 Put r := r - b * q* * beta^j. In detail: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
382 [r[n+j],...,r[j]] := [r[n+j],...,r[j]] - q* * [b[n-1],...,b[0]]. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
383 hence: u:=0, for i:=0 to n-1 do |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
384 u := u + q* * b[i], |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
385 r[j+i]:=r[j+i]-(u mod beta) (+ beta, if carry), |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
386 u:=u div beta (+ 1, if carry in subtraction) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
387 r[n+j]:=r[n+j]-u. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
388 {Since always u = (q* * [b[i-1],...,b[0]] div beta^i) + 1 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
389 < q* + 1 <= beta, |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
390 the carry u does not overflow.} |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
391 If a negative carry occurs, put q* := q* - 1 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
392 and [r[n+j],...,r[j]] := [r[n+j],...,r[j]] + [0,b[n-1],...,b[0]]. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
393 Set q[j] := q*. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
394 Normalise [q[m-n],..,q[0]]; this yields the quotient q. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
395 Shift [r[n-1],...,r[0]] right by s bits and normalise; this yields the |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
396 rest r. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
397 The room for q[j] can be allocated at the memory location of r[n+j]. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
398 Finally, round-to-even: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
399 Shift r left by 1 bit. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
400 If r > b or if r = b and q[0] is odd, q := q+1. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
401 */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
402 const mp_limb_t *a_ptr = a.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
403 size_t a_len = a.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
404 const mp_limb_t *b_ptr = b.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
405 size_t b_len = b.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
406 mp_limb_t *roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
407 mp_limb_t *tmp_roomptr = NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
408 mp_limb_t *q_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
409 size_t q_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
410 mp_limb_t *r_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
411 size_t r_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
412 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
413 /* Allocate room for a_len+2 digits. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
414 (Need a_len+1 digits for the real division and 1 more digit for the |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
415 final rounding of q.) */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
416 roomptr = (mp_limb_t *) malloc ((a_len + 2) * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
417 if (roomptr == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
418 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
419 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
420 /* Normalise a. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
421 while (a_len > 0 && a_ptr[a_len - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
422 a_len--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
423 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
424 /* Normalise b. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
425 for (;;) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
426 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
427 if (b_len == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
428 /* Division by zero. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
429 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
430 if (b_ptr[b_len - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
431 b_len--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
432 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
433 break; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
434 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
435 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
436 /* Here m = a_len >= 0 and n = b_len > 0. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
437 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
438 if (a_len < b_len) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
439 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
440 /* m<n: trivial case. q=0, r := copy of a. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
441 r_ptr = roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
442 r_len = a_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
443 memcpy (r_ptr, a_ptr, a_len * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
444 q_ptr = roomptr + a_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
445 q_len = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
446 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
447 else if (b_len == 1) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
448 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
449 /* n=1: single precision division. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
450 beta^(m-1) <= a < beta^m ==> beta^(m-2) <= a/b < beta^m */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
451 r_ptr = roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
452 q_ptr = roomptr + 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
453 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
454 mp_limb_t den = b_ptr[0]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
455 mp_limb_t remainder = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
456 const mp_limb_t *sourceptr = a_ptr + a_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
457 mp_limb_t *destptr = q_ptr + a_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
458 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
459 for (count = a_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
460 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
461 mp_twolimb_t num = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
462 ((mp_twolimb_t) remainder << GMP_LIMB_BITS) | *--sourceptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
463 *--destptr = num / den; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
464 remainder = num % den; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
465 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
466 /* Normalise and store r. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
467 if (remainder > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
468 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
469 r_ptr[0] = remainder; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
470 r_len = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
471 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
472 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
473 r_len = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
474 /* Normalise q. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
475 q_len = a_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
476 if (q_ptr[q_len - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
477 q_len--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
478 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
479 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
480 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
481 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
482 /* n>1: multiple precision division. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
483 beta^(m-1) <= a < beta^m, beta^(n-1) <= b < beta^n ==> |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
484 beta^(m-n-1) <= a/b < beta^(m-n+1). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
485 /* Determine s. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
486 size_t s; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
487 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
488 mp_limb_t msd = b_ptr[b_len - 1]; /* = b[n-1], > 0 */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
489 s = 31; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
490 if (msd >= 0x10000) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
491 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
492 msd = msd >> 16; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
493 s -= 16; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
494 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
495 if (msd >= 0x100) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
496 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
497 msd = msd >> 8; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
498 s -= 8; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
499 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
500 if (msd >= 0x10) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
501 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
502 msd = msd >> 4; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
503 s -= 4; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
504 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
505 if (msd >= 0x4) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
506 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
507 msd = msd >> 2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
508 s -= 2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
509 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
510 if (msd >= 0x2) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
511 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
512 msd = msd >> 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
513 s -= 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
514 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
515 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
516 /* 0 <= s < GMP_LIMB_BITS. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
517 Copy b, shifting it left by s bits. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
518 if (s > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
519 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
520 tmp_roomptr = (mp_limb_t *) malloc (b_len * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
521 if (tmp_roomptr == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
522 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
523 free (roomptr); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
524 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
525 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
526 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
527 const mp_limb_t *sourceptr = b_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
528 mp_limb_t *destptr = tmp_roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
529 mp_twolimb_t accu = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
530 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
531 for (count = b_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
532 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
533 accu += (mp_twolimb_t) *sourceptr++ << s; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
534 *destptr++ = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
535 accu = accu >> GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
536 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
537 /* accu must be zero, since that was how s was determined. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
538 if (accu != 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
539 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
540 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
541 b_ptr = tmp_roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
542 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
543 /* Copy a, shifting it left by s bits, yields r. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
544 Memory layout: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
545 At the beginning: r = roomptr[0..a_len], |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
546 at the end: r = roomptr[0..b_len-1], q = roomptr[b_len..a_len] */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
547 r_ptr = roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
548 if (s == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
549 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
550 memcpy (r_ptr, a_ptr, a_len * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
551 r_ptr[a_len] = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
552 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
553 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
554 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
555 const mp_limb_t *sourceptr = a_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
556 mp_limb_t *destptr = r_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
557 mp_twolimb_t accu = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
558 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
559 for (count = a_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
560 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
561 accu += (mp_twolimb_t) *sourceptr++ << s; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
562 *destptr++ = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
563 accu = accu >> GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
564 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
565 *destptr++ = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
566 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
567 q_ptr = roomptr + b_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
568 q_len = a_len - b_len + 1; /* q will have m-n+1 limbs */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
569 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
570 size_t j = a_len - b_len; /* m-n */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
571 mp_limb_t b_msd = b_ptr[b_len - 1]; /* b[n-1] */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
572 mp_limb_t b_2msd = b_ptr[b_len - 2]; /* b[n-2] */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
573 mp_twolimb_t b_msdd = /* b[n-1]*beta+b[n-2] */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
574 ((mp_twolimb_t) b_msd << GMP_LIMB_BITS) | b_2msd; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
575 /* Division loop, traversed m-n+1 times. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
576 j counts down, b is unchanged, beta/2 <= b[n-1] < beta. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
577 for (;;) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
578 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
579 mp_limb_t q_star; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
580 mp_limb_t c1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
581 if (r_ptr[j + b_len] < b_msd) /* r[j+n] < b[n-1] ? */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
582 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
583 /* Divide r[j+n]*beta+r[j+n-1] by b[n-1], no overflow. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
584 mp_twolimb_t num = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
585 ((mp_twolimb_t) r_ptr[j + b_len] << GMP_LIMB_BITS) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
586 | r_ptr[j + b_len - 1]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
587 q_star = num / b_msd; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
588 c1 = num % b_msd; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
589 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
590 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
591 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
592 /* Overflow, hence r[j+n]*beta+r[j+n-1] >= beta*b[n-1]. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
593 q_star = (mp_limb_t)~(mp_limb_t)0; /* q* = beta-1 */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
594 /* Test whether r[j+n]*beta+r[j+n-1] - (beta-1)*b[n-1] >= beta |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
595 <==> r[j+n]*beta+r[j+n-1] + b[n-1] >= beta*b[n-1]+beta |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
596 <==> b[n-1] < floor((r[j+n]*beta+r[j+n-1]+b[n-1])/beta) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
597 {<= beta !}. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
598 If yes, jump directly to the subtraction loop. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
599 (Otherwise, r[j+n]*beta+r[j+n-1] - (beta-1)*b[n-1] < beta |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
600 <==> floor((r[j+n]*beta+r[j+n-1]+b[n-1])/beta) = b[n-1] ) */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
601 if (r_ptr[j + b_len] > b_msd |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
602 || (c1 = r_ptr[j + b_len - 1] + b_msd) < b_msd) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
603 /* r[j+n] >= b[n-1]+1 or |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
604 r[j+n] = b[n-1] and the addition r[j+n-1]+b[n-1] gives a |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
605 carry. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
606 goto subtract; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
607 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
608 /* q_star = q*, |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
609 c1 = (r[j+n]*beta+r[j+n-1]) - q* * b[n-1] (>=0, <beta). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
610 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
611 mp_twolimb_t c2 = /* c1*beta+r[j+n-2] */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
612 ((mp_twolimb_t) c1 << GMP_LIMB_BITS) | r_ptr[j + b_len - 2]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
613 mp_twolimb_t c3 = /* b[n-2] * q* */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
614 (mp_twolimb_t) b_2msd * (mp_twolimb_t) q_star; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
615 /* While c2 < c3, increase c2 and decrease c3. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
616 Consider c3-c2. While it is > 0, decrease it by |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
617 b[n-1]*beta+b[n-2]. Because of b[n-1]*beta+b[n-2] >= beta^2/2 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
618 this can happen only twice. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
619 if (c3 > c2) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
620 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
621 q_star = q_star - 1; /* q* := q* - 1 */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
622 if (c3 - c2 > b_msdd) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
623 q_star = q_star - 1; /* q* := q* - 1 */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
624 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
625 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
626 if (q_star > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
627 subtract: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
628 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
629 /* Subtract r := r - b * q* * beta^j. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
630 mp_limb_t cr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
631 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
632 const mp_limb_t *sourceptr = b_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
633 mp_limb_t *destptr = r_ptr + j; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
634 mp_twolimb_t carry = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
635 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
636 for (count = b_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
637 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
638 /* Here 0 <= carry <= q*. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
639 carry = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
640 carry |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
641 + (mp_twolimb_t) q_star * (mp_twolimb_t) *sourceptr++ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
642 + (mp_limb_t) ~(*destptr); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
643 /* Here 0 <= carry <= beta*q* + beta-1. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
644 *destptr++ = ~(mp_limb_t) carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
645 carry = carry >> GMP_LIMB_BITS; /* <= q* */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
646 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
647 cr = (mp_limb_t) carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
648 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
649 /* Subtract cr from r_ptr[j + b_len], then forget about |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
650 r_ptr[j + b_len]. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
651 if (cr > r_ptr[j + b_len]) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
652 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
653 /* Subtraction gave a carry. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
654 q_star = q_star - 1; /* q* := q* - 1 */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
655 /* Add b back. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
656 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
657 const mp_limb_t *sourceptr = b_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
658 mp_limb_t *destptr = r_ptr + j; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
659 mp_limb_t carry = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
660 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
661 for (count = b_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
662 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
663 mp_limb_t source1 = *sourceptr++; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
664 mp_limb_t source2 = *destptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
665 *destptr++ = source1 + source2 + carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
666 carry = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
667 (carry |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
668 ? source1 >= (mp_limb_t) ~source2 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
669 : source1 > (mp_limb_t) ~source2); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
670 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
671 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
672 /* Forget about the carry and about r[j+n]. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
673 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
674 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
675 /* q* is determined. Store it as q[j]. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
676 q_ptr[j] = q_star; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
677 if (j == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
678 break; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
679 j--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
680 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
681 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
682 r_len = b_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
683 /* Normalise q. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
684 if (q_ptr[q_len - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
685 q_len--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
686 # if 0 /* Not needed here, since we need r only to compare it with b/2, and |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
687 b is shifted left by s bits. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
688 /* Shift r right by s bits. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
689 if (s > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
690 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
691 mp_limb_t ptr = r_ptr + r_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
692 mp_twolimb_t accu = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
693 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
694 for (count = r_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
695 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
696 accu = (mp_twolimb_t) (mp_limb_t) accu << GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
697 accu += (mp_twolimb_t) *--ptr << (GMP_LIMB_BITS - s); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
698 *ptr = (mp_limb_t) (accu >> GMP_LIMB_BITS); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
699 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
700 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
701 # endif |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
702 /* Normalise r. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
703 while (r_len > 0 && r_ptr[r_len - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
704 r_len--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
705 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
706 /* Compare r << 1 with b. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
707 if (r_len > b_len) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
708 goto increment_q; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
709 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
710 size_t i; |
|
8835
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
711 for (i = b_len;;) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
712 { |
|
8835
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
713 mp_limb_t r_i = |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
714 (i <= r_len && i > 0 ? r_ptr[i - 1] >> (GMP_LIMB_BITS - 1) : 0) |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
715 | (i < r_len ? r_ptr[i] << 1 : 0); |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
716 mp_limb_t b_i = (i < b_len ? b_ptr[i] : 0); |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
717 if (r_i > b_i) |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
718 goto increment_q; |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
719 if (r_i < b_i) |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
720 goto keep_q; |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
721 if (i == 0) |
|
c06bc412ffc3
Fix small bug in 'divide' function.
Bruno Haible <bruno@clisp.org>
parents:
8832
diff
changeset
|
722 break; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
723 i--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
724 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
725 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
726 if (q_len > 0 && ((q_ptr[0] & 1) != 0)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
727 /* q is odd. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
728 increment_q: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
729 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
730 size_t i; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
731 for (i = 0; i < q_len; i++) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
732 if (++(q_ptr[i]) != 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
733 goto keep_q; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
734 q_ptr[q_len++] = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
735 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
736 keep_q: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
737 if (tmp_roomptr != NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
738 free (tmp_roomptr); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
739 q->limbs = q_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
740 q->nlimbs = q_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
741 return roomptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
742 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
743 |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
744 /* Convert a bignum a >= 0, multiplied with 10^extra_zeroes, to decimal |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
745 representation. |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
746 Destroys the contents of a. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
747 Return the allocated memory - containing the decimal digits in low-to-high |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
748 order, terminated with a NUL character - in case of success, NULL in case |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
749 of memory allocation failure. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
750 static char * |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
751 convert_to_decimal (mpn_t a, size_t extra_zeroes) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
752 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
753 mp_limb_t *a_ptr = a.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
754 size_t a_len = a.nlimbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
755 /* 0.03345 is slightly larger than log(2)/(9*log(10)). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
756 size_t c_len = 9 * ((size_t)(a_len * (GMP_LIMB_BITS * 0.03345f)) + 1); |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
757 char *c_ptr = (char *) malloc (xsum (c_len, extra_zeroes)); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
758 if (c_ptr != NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
759 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
760 char *d_ptr = c_ptr; |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
761 for (; extra_zeroes > 0; extra_zeroes--) |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
762 *d_ptr++ = '0'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
763 while (a_len > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
764 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
765 /* Divide a by 10^9, in-place. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
766 mp_limb_t remainder = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
767 mp_limb_t *ptr = a_ptr + a_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
768 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
769 for (count = a_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
770 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
771 mp_twolimb_t num = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
772 ((mp_twolimb_t) remainder << GMP_LIMB_BITS) | *--ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
773 *ptr = num / 1000000000; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
774 remainder = num % 1000000000; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
775 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
776 /* Store the remainder as 9 decimal digits. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
777 for (count = 9; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
778 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
779 *d_ptr++ = '0' + (remainder % 10); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
780 remainder = remainder / 10; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
781 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
782 /* Normalize a. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
783 if (a_ptr[a_len - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
784 a_len--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
785 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
786 /* Remove leading zeroes. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
787 while (d_ptr > c_ptr && d_ptr[-1] == '0') |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
788 d_ptr--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
789 /* But keep at least one zero. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
790 if (d_ptr == c_ptr) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
791 *d_ptr++ = '0'; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
792 /* Terminate the string. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
793 *d_ptr = '\0'; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
794 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
795 return c_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
796 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
797 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
798 # if NEED_PRINTF_LONG_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
799 |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
800 /* Assuming x is finite and >= 0: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
801 write x as x = 2^e * m, where m is a bignum. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
802 Return the allocated memory in case of success, NULL in case of memory |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
803 allocation failure. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
804 static void * |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
805 decode_long_double (long double x, int *ep, mpn_t *mp) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
806 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
807 mpn_t m; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
808 int exp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
809 long double y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
810 size_t i; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
811 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
812 /* Allocate memory for result. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
813 m.nlimbs = (LDBL_MANT_BIT + GMP_LIMB_BITS - 1) / GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
814 m.limbs = (mp_limb_t *) malloc (m.nlimbs * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
815 if (m.limbs == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
816 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
817 /* Split into exponential part and mantissa. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
818 y = frexpl (x, &exp); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
819 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
820 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
821 /* x = 2^exp * y = 2^(exp - LDBL_MANT_BIT) * (y * LDBL_MANT_BIT), and the |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
822 latter is an integer. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
823 /* Convert the mantissa (y * LDBL_MANT_BIT) to a sequence of limbs. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
824 I'm not sure whether it's safe to cast a 'long double' value between |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
825 2^31 and 2^32 to 'unsigned int', therefore play safe and cast only |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
826 'long double' values between 0 and 2^16 (to 'unsigned int' or 'int', |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
827 doesn't matter). */ |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
828 # if (LDBL_MANT_BIT % GMP_LIMB_BITS) != 0 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
829 # if (LDBL_MANT_BIT % GMP_LIMB_BITS) > GMP_LIMB_BITS / 2 |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
830 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
831 mp_limb_t hi, lo; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
832 y *= (mp_limb_t) 1 << (LDBL_MANT_BIT % (GMP_LIMB_BITS / 2)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
833 hi = (int) y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
834 y -= hi; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
835 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
836 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
837 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
838 lo = (int) y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
839 y -= lo; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
840 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
841 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
842 m.limbs[LDBL_MANT_BIT / GMP_LIMB_BITS] = (hi << (GMP_LIMB_BITS / 2)) | lo; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
843 } |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
844 # else |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
845 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
846 mp_limb_t d; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
847 y *= (mp_limb_t) 1 << (LDBL_MANT_BIT % GMP_LIMB_BITS); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
848 d = (int) y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
849 y -= d; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
850 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
851 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
852 m.limbs[LDBL_MANT_BIT / GMP_LIMB_BITS] = d; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
853 } |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
854 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
855 # endif |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
856 for (i = LDBL_MANT_BIT / GMP_LIMB_BITS; i > 0; ) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
857 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
858 mp_limb_t hi, lo; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
859 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
860 hi = (int) y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
861 y -= hi; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
862 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
863 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
864 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
865 lo = (int) y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
866 y -= lo; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
867 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
868 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
869 m.limbs[--i] = (hi << (GMP_LIMB_BITS / 2)) | lo; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
870 } |
|
9489
940605ef6e9e
Don't abort if the 'long double' type has excess precision.
Bruno Haible <bruno@clisp.org>
parents:
9462
diff
changeset
|
871 #if 0 /* On FreeBSD 6.1/x86, 'long double' numbers sometimes have excess |
|
940605ef6e9e
Don't abort if the 'long double' type has excess precision.
Bruno Haible <bruno@clisp.org>
parents:
9462
diff
changeset
|
872 precision. */ |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
873 if (!(y == 0.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
874 abort (); |
|
9489
940605ef6e9e
Don't abort if the 'long double' type has excess precision.
Bruno Haible <bruno@clisp.org>
parents:
9462
diff
changeset
|
875 #endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
876 /* Normalise. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
877 while (m.nlimbs > 0 && m.limbs[m.nlimbs - 1] == 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
878 m.nlimbs--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
879 *mp = m; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
880 *ep = exp - LDBL_MANT_BIT; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
881 return m.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
882 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
883 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
884 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
885 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
886 # if NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
887 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
888 /* Assuming x is finite and >= 0: |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
889 write x as x = 2^e * m, where m is a bignum. |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
890 Return the allocated memory in case of success, NULL in case of memory |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
891 allocation failure. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
892 static void * |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
893 decode_double (double x, int *ep, mpn_t *mp) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
894 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
895 mpn_t m; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
896 int exp; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
897 double y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
898 size_t i; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
899 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
900 /* Allocate memory for result. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
901 m.nlimbs = (DBL_MANT_BIT + GMP_LIMB_BITS - 1) / GMP_LIMB_BITS; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
902 m.limbs = (mp_limb_t *) malloc (m.nlimbs * sizeof (mp_limb_t)); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
903 if (m.limbs == NULL) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
904 return NULL; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
905 /* Split into exponential part and mantissa. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
906 y = frexp (x, &exp); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
907 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
908 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
909 /* x = 2^exp * y = 2^(exp - DBL_MANT_BIT) * (y * DBL_MANT_BIT), and the |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
910 latter is an integer. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
911 /* Convert the mantissa (y * DBL_MANT_BIT) to a sequence of limbs. |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
912 I'm not sure whether it's safe to cast a 'double' value between |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
913 2^31 and 2^32 to 'unsigned int', therefore play safe and cast only |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
914 'double' values between 0 and 2^16 (to 'unsigned int' or 'int', |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
915 doesn't matter). */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
916 # if (DBL_MANT_BIT % GMP_LIMB_BITS) != 0 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
917 # if (DBL_MANT_BIT % GMP_LIMB_BITS) > GMP_LIMB_BITS / 2 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
918 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
919 mp_limb_t hi, lo; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
920 y *= (mp_limb_t) 1 << (DBL_MANT_BIT % (GMP_LIMB_BITS / 2)); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
921 hi = (int) y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
922 y -= hi; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
923 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
924 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
925 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
926 lo = (int) y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
927 y -= lo; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
928 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
929 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
930 m.limbs[DBL_MANT_BIT / GMP_LIMB_BITS] = (hi << (GMP_LIMB_BITS / 2)) | lo; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
931 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
932 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
933 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
934 mp_limb_t d; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
935 y *= (mp_limb_t) 1 << (DBL_MANT_BIT % GMP_LIMB_BITS); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
936 d = (int) y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
937 y -= d; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
938 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
939 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
940 m.limbs[DBL_MANT_BIT / GMP_LIMB_BITS] = d; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
941 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
942 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
943 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
944 for (i = DBL_MANT_BIT / GMP_LIMB_BITS; i > 0; ) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
945 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
946 mp_limb_t hi, lo; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
947 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
948 hi = (int) y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
949 y -= hi; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
950 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
951 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
952 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
953 lo = (int) y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
954 y -= lo; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
955 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
956 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
957 m.limbs[--i] = (hi << (GMP_LIMB_BITS / 2)) | lo; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
958 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
959 if (!(y == 0.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
960 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
961 /* Normalise. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
962 while (m.nlimbs > 0 && m.limbs[m.nlimbs - 1] == 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
963 m.nlimbs--; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
964 *mp = m; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
965 *ep = exp - DBL_MANT_BIT; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
966 return m.limbs; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
967 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
968 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
969 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
970 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
971 /* Assuming x = 2^e * m is finite and >= 0, and n is an integer: |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
972 Returns the decimal representation of round (x * 10^n). |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
973 Return the allocated memory - containing the decimal digits in low-to-high |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
974 order, terminated with a NUL character - in case of success, NULL in case |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
975 of memory allocation failure. */ |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
976 static char * |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
977 scale10_round_decimal_decoded (int e, mpn_t m, void *memory, int n) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
978 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
979 int s; |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
980 size_t extra_zeroes; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
981 unsigned int abs_n; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
982 unsigned int abs_s; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
983 mp_limb_t *pow5_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
984 size_t pow5_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
985 unsigned int s_limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
986 unsigned int s_bits; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
987 mpn_t pow5; |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
988 mpn_t z; |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
989 void *z_memory; |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
990 char *digits; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
991 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
992 if (memory == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
993 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
994 /* x = 2^e * m, hence |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
995 y = round (2^e * 10^n * m) = round (2^(e+n) * 5^n * m) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
996 = round (2^s * 5^n * m). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
997 s = e + n; |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
998 extra_zeroes = 0; |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
999 /* Factor out a common power of 10 if possible. */ |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1000 if (s > 0 && n > 0) |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1001 { |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1002 extra_zeroes = (s < n ? s : n); |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1003 s -= extra_zeroes; |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1004 n -= extra_zeroes; |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1005 } |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1006 /* Here y = round (2^s * 5^n * m) * 10^extra_zeroes. |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1007 Before converting to decimal, we need to compute |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1008 z = round (2^s * 5^n * m). */ |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1009 /* Compute 5^|n|, possibly shifted by |s| bits if n and s have the same |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1010 sign. 2.322 is slightly larger than log(5)/log(2). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1011 abs_n = (n >= 0 ? n : -n); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1012 abs_s = (s >= 0 ? s : -s); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1013 pow5_ptr = (mp_limb_t *) malloc (((int)(abs_n * (2.322f / GMP_LIMB_BITS)) + 1 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1014 + abs_s / GMP_LIMB_BITS + 1) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1015 * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1016 if (pow5_ptr == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1017 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1018 free (memory); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1019 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1020 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1021 /* Initialize with 1. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1022 pow5_ptr[0] = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1023 pow5_len = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1024 /* Multiply with 5^|n|. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1025 if (abs_n > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1026 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1027 static mp_limb_t const small_pow5[13 + 1] = |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1028 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1029 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1030 48828125, 244140625, 1220703125 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1031 }; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1032 unsigned int n13; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1033 for (n13 = 0; n13 <= abs_n; n13 += 13) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1034 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1035 mp_limb_t digit1 = small_pow5[n13 + 13 <= abs_n ? 13 : abs_n - n13]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1036 size_t j; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1037 mp_twolimb_t carry = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1038 for (j = 0; j < pow5_len; j++) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1039 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1040 mp_limb_t digit2 = pow5_ptr[j]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1041 carry += (mp_twolimb_t) digit1 * (mp_twolimb_t) digit2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1042 pow5_ptr[j] = (mp_limb_t) carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1043 carry = carry >> GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1044 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1045 if (carry > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1046 pow5_ptr[pow5_len++] = (mp_limb_t) carry; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1047 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1048 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1049 s_limbs = abs_s / GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1050 s_bits = abs_s % GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1051 if (n >= 0 ? s >= 0 : s <= 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1052 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1053 /* Multiply with 2^|s|. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1054 if (s_bits > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1055 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1056 mp_limb_t *ptr = pow5_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1057 mp_twolimb_t accu = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1058 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1059 for (count = pow5_len; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1060 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1061 accu += (mp_twolimb_t) *ptr << s_bits; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1062 *ptr++ = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1063 accu = accu >> GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1064 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1065 if (accu > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1066 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1067 *ptr = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1068 pow5_len++; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1069 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1070 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1071 if (s_limbs > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1072 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1073 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1074 for (count = pow5_len; count > 0;) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1075 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1076 count--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1077 pow5_ptr[s_limbs + count] = pow5_ptr[count]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1078 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1079 for (count = s_limbs; count > 0;) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1080 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1081 count--; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1082 pow5_ptr[count] = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1083 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1084 pow5_len += s_limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1085 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1086 pow5.limbs = pow5_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1087 pow5.nlimbs = pow5_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1088 if (n >= 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1089 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1090 /* Multiply m with pow5. No division needed. */ |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1091 z_memory = multiply (m, pow5, &z); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1092 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1093 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1094 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1095 /* Divide m by pow5 and round. */ |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1096 z_memory = divide (m, pow5, &z); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1097 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1098 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1099 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1100 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1101 pow5.limbs = pow5_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1102 pow5.nlimbs = pow5_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1103 if (n >= 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1104 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1105 /* n >= 0, s < 0. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1106 Multiply m with pow5, then divide by 2^|s|. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1107 mpn_t numerator; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1108 mpn_t denominator; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1109 void *tmp_memory; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1110 tmp_memory = multiply (m, pow5, &numerator); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1111 if (tmp_memory == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1112 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1113 free (pow5_ptr); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1114 free (memory); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1115 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1116 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1117 /* Construct 2^|s|. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1118 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1119 mp_limb_t *ptr = pow5_ptr + pow5_len; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1120 size_t i; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1121 for (i = 0; i < s_limbs; i++) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1122 ptr[i] = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1123 ptr[s_limbs] = (mp_limb_t) 1 << s_bits; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1124 denominator.limbs = ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1125 denominator.nlimbs = s_limbs + 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1126 } |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1127 z_memory = divide (numerator, denominator, &z); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1128 free (tmp_memory); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1129 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1130 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1131 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1132 /* n < 0, s > 0. |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1133 Multiply m with 2^s, then divide by pow5. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1134 mpn_t numerator; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1135 mp_limb_t *num_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1136 num_ptr = (mp_limb_t *) malloc ((m.nlimbs + s_limbs + 1) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1137 * sizeof (mp_limb_t)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1138 if (num_ptr == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1139 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1140 free (pow5_ptr); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1141 free (memory); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1142 return NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1143 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1144 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1145 mp_limb_t *destptr = num_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1146 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1147 size_t i; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1148 for (i = 0; i < s_limbs; i++) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1149 *destptr++ = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1150 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1151 if (s_bits > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1152 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1153 const mp_limb_t *sourceptr = m.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1154 mp_twolimb_t accu = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1155 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1156 for (count = m.nlimbs; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1157 { |
|
9445
e0f2eeb1796a
Fix output of floating-point values with large exponent.
Bruno Haible <bruno@clisp.org>
parents:
9442
diff
changeset
|
1158 accu += (mp_twolimb_t) *sourceptr++ << s_bits; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1159 *destptr++ = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1160 accu = accu >> GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1161 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1162 if (accu > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1163 *destptr++ = (mp_limb_t) accu; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1164 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1165 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1166 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1167 const mp_limb_t *sourceptr = m.limbs; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1168 size_t count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1169 for (count = m.nlimbs; count > 0; count--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1170 *destptr++ = *sourceptr++; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1171 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1172 numerator.limbs = num_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1173 numerator.nlimbs = destptr - num_ptr; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1174 } |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1175 z_memory = divide (numerator, pow5, &z); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1176 free (num_ptr); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1177 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1178 } |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1179 free (pow5_ptr); |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1180 free (memory); |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1181 |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1182 /* Here y = round (x * 10^n) = z * 10^extra_zeroes. */ |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1183 |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1184 if (z_memory == NULL) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1185 return NULL; |
|
8838
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1186 digits = convert_to_decimal (z, extra_zeroes); |
|
db95bdbeb72c
Optimize the case of huge precision.
Bruno Haible <bruno@clisp.org>
parents:
8837
diff
changeset
|
1187 free (z_memory); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1188 return digits; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1189 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1190 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1191 # if NEED_PRINTF_LONG_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1192 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1193 /* Assuming x is finite and >= 0, and n is an integer: |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1194 Returns the decimal representation of round (x * 10^n). |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1195 Return the allocated memory - containing the decimal digits in low-to-high |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1196 order, terminated with a NUL character - in case of success, NULL in case |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1197 of memory allocation failure. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1198 static char * |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1199 scale10_round_decimal_long_double (long double x, int n) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1200 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1201 int e; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1202 mpn_t m; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1203 void *memory = decode_long_double (x, &e, &m); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1204 return scale10_round_decimal_decoded (e, m, memory, n); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1205 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1206 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1207 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1208 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1209 # if NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1210 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1211 /* Assuming x is finite and >= 0, and n is an integer: |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1212 Returns the decimal representation of round (x * 10^n). |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1213 Return the allocated memory - containing the decimal digits in low-to-high |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1214 order, terminated with a NUL character - in case of success, NULL in case |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1215 of memory allocation failure. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1216 static char * |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1217 scale10_round_decimal_double (double x, int n) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1218 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1219 int e; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1220 mpn_t m; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1221 void *memory = decode_double (x, &e, &m); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1222 return scale10_round_decimal_decoded (e, m, memory, n); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1223 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1224 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1225 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1226 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1227 # if NEED_PRINTF_LONG_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1228 |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1229 /* Assuming x is finite and > 0: |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1230 Return an approximation for n with 10^n <= x < 10^(n+1). |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1231 The approximation is usually the right n, but may be off by 1 sometimes. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1232 static int |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1233 floorlog10l (long double x) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1234 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1235 int exp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1236 long double y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1237 double z; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1238 double l; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1239 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1240 /* Split into exponential part and mantissa. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1241 y = frexpl (x, &exp); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1242 if (!(y >= 0.0L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1243 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1244 if (y == 0.0L) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1245 return INT_MIN; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1246 if (y < 0.5L) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1247 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1248 while (y < (1.0L / (1 << (GMP_LIMB_BITS / 2)) / (1 << (GMP_LIMB_BITS / 2)))) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1249 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1250 y *= 1.0L * (1 << (GMP_LIMB_BITS / 2)) * (1 << (GMP_LIMB_BITS / 2)); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1251 exp -= GMP_LIMB_BITS; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1252 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1253 if (y < (1.0L / (1 << 16))) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1254 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1255 y *= 1.0L * (1 << 16); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1256 exp -= 16; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1257 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1258 if (y < (1.0L / (1 << 8))) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1259 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1260 y *= 1.0L * (1 << 8); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1261 exp -= 8; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1262 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1263 if (y < (1.0L / (1 << 4))) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1264 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1265 y *= 1.0L * (1 << 4); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1266 exp -= 4; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1267 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1268 if (y < (1.0L / (1 << 2))) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1269 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1270 y *= 1.0L * (1 << 2); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1271 exp -= 2; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1272 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1273 if (y < (1.0L / (1 << 1))) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1274 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1275 y *= 1.0L * (1 << 1); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1276 exp -= 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1277 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1278 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1279 if (!(y >= 0.5L && y < 1.0L)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1280 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1281 /* Compute an approximation for l = log2(x) = exp + log2(y). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1282 l = exp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1283 z = y; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1284 if (z < 0.70710678118654752444) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1285 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1286 z *= 1.4142135623730950488; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1287 l -= 0.5; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1288 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1289 if (z < 0.8408964152537145431) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1290 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1291 z *= 1.1892071150027210667; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1292 l -= 0.25; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1293 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1294 if (z < 0.91700404320467123175) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1295 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1296 z *= 1.0905077326652576592; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1297 l -= 0.125; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1298 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1299 if (z < 0.9576032806985736469) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1300 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1301 z *= 1.0442737824274138403; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1302 l -= 0.0625; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1303 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1304 /* Now 0.95 <= z <= 1.01. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1305 z = 1 - z; |
|
9939
11aa2931dfc7
Make floorlog10 function more precise.
Bruno Haible <bruno@clisp.org>
parents:
9938
diff
changeset
|
1306 /* log2(1-z) = 1/log(2) * (- z - z^2/2 - z^3/3 - z^4/4 - ...) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1307 Four terms are enough to get an approximation with error < 10^-7. */ |
|
9939
11aa2931dfc7
Make floorlog10 function more precise.
Bruno Haible <bruno@clisp.org>
parents:
9938
diff
changeset
|
1308 l -= 1.4426950408889634074 * z * (1.0 + z * (0.5 + z * ((1.0 / 3) + z * 0.25))); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1309 /* Finally multiply with log(2)/log(10), yields an approximation for |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1310 log10(x). */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1311 l *= 0.30102999566398119523; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1312 /* Round down to the next integer. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1313 return (int) l + (l < 0 ? -1 : 0); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1314 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1315 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1316 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1317 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1318 # if NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1319 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1320 /* Assuming x is finite and > 0: |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1321 Return an approximation for n with 10^n <= x < 10^(n+1). |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1322 The approximation is usually the right n, but may be off by 1 sometimes. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1323 static int |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1324 floorlog10 (double x) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1325 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1326 int exp; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1327 double y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1328 double z; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1329 double l; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1330 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1331 /* Split into exponential part and mantissa. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1332 y = frexp (x, &exp); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1333 if (!(y >= 0.0 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1334 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1335 if (y == 0.0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1336 return INT_MIN; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1337 if (y < 0.5) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1338 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1339 while (y < (1.0 / (1 << (GMP_LIMB_BITS / 2)) / (1 << (GMP_LIMB_BITS / 2)))) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1340 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1341 y *= 1.0 * (1 << (GMP_LIMB_BITS / 2)) * (1 << (GMP_LIMB_BITS / 2)); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1342 exp -= GMP_LIMB_BITS; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1343 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1344 if (y < (1.0 / (1 << 16))) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1345 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1346 y *= 1.0 * (1 << 16); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1347 exp -= 16; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1348 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1349 if (y < (1.0 / (1 << 8))) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1350 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1351 y *= 1.0 * (1 << 8); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1352 exp -= 8; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1353 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1354 if (y < (1.0 / (1 << 4))) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1355 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1356 y *= 1.0 * (1 << 4); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1357 exp -= 4; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1358 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1359 if (y < (1.0 / (1 << 2))) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1360 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1361 y *= 1.0 * (1 << 2); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1362 exp -= 2; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1363 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1364 if (y < (1.0 / (1 << 1))) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1365 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1366 y *= 1.0 * (1 << 1); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1367 exp -= 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1368 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1369 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1370 if (!(y >= 0.5 && y < 1.0)) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1371 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1372 /* Compute an approximation for l = log2(x) = exp + log2(y). */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1373 l = exp; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1374 z = y; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1375 if (z < 0.70710678118654752444) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1376 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1377 z *= 1.4142135623730950488; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1378 l -= 0.5; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1379 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1380 if (z < 0.8408964152537145431) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1381 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1382 z *= 1.1892071150027210667; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1383 l -= 0.25; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1384 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1385 if (z < 0.91700404320467123175) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1386 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1387 z *= 1.0905077326652576592; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1388 l -= 0.125; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1389 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1390 if (z < 0.9576032806985736469) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1391 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1392 z *= 1.0442737824274138403; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1393 l -= 0.0625; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1394 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1395 /* Now 0.95 <= z <= 1.01. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1396 z = 1 - z; |
|
9939
11aa2931dfc7
Make floorlog10 function more precise.
Bruno Haible <bruno@clisp.org>
parents:
9938
diff
changeset
|
1397 /* log2(1-z) = 1/log(2) * (- z - z^2/2 - z^3/3 - z^4/4 - ...) |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1398 Four terms are enough to get an approximation with error < 10^-7. */ |
|
9939
11aa2931dfc7
Make floorlog10 function more precise.
Bruno Haible <bruno@clisp.org>
parents:
9938
diff
changeset
|
1399 l -= 1.4426950408889634074 * z * (1.0 + z * (0.5 + z * ((1.0 / 3) + z * 0.25))); |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1400 /* Finally multiply with log(2)/log(10), yields an approximation for |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1401 log10(x). */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1402 l *= 0.30102999566398119523; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1403 /* Round down to the next integer. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1404 return (int) l + (l < 0 ? -1 : 0); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1405 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1406 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1407 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
1408 |
|
9938
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1409 /* Tests whether a string of digits consists of exactly PRECISION zeroes and |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1410 a single '1' digit. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1411 static int |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1412 is_borderline (const char *digits, size_t precision) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1413 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1414 for (; precision > 0; precision--, digits++) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1415 if (*digits != '0') |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1416 return 0; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1417 if (*digits != '1') |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1418 return 0; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1419 digits++; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1420 return *digits == '\0'; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1421 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
1422 |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1423 #endif |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
1424 |
| 8961 | 1425 DCHAR_T * |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1426 VASNPRINTF (DCHAR_T *resultbuf, size_t *lengthp, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1427 const FCHAR_T *format, va_list args) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1428 { |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1429 DIRECTIVES d; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1430 arguments a; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1431 |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1432 if (PRINTF_PARSE (format, &d, &a) < 0) |
|
9438
290aa46b4526
Fix out-of-memory handling of vasnprintf.
Bruno Haible <bruno@clisp.org>
parents:
9371
diff
changeset
|
1433 /* errno is already set. */ |
|
290aa46b4526
Fix out-of-memory handling of vasnprintf.
Bruno Haible <bruno@clisp.org>
parents:
9371
diff
changeset
|
1434 return NULL; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1435 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1436 #define CLEANUP() \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1437 free (d.dir); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1438 if (a.arg) \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1439 free (a.arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1440 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1441 if (PRINTF_FETCHARGS (args, &a) < 0) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1442 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1443 CLEANUP (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1444 errno = EINVAL; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1445 return NULL; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1446 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1447 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1448 { |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1449 size_t buf_neededlength; |
| 8961 | 1450 TCHAR_T *buf; |
| 1451 TCHAR_T *buf_malloced; | |
| 1452 const FCHAR_T *cp; | |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1453 size_t i; |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1454 DIRECTIVE *dp; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1455 /* Output string accumulator. */ |
| 8961 | 1456 DCHAR_T *result; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1457 size_t allocated; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1458 size_t length; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1459 |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1460 /* Allocate a small buffer that will hold a directive passed to |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1461 sprintf or snprintf. */ |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1462 buf_neededlength = |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1463 xsum4 (7, d.max_width_length, d.max_precision_length, 6); |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1464 #if HAVE_ALLOCA |
| 8961 | 1465 if (buf_neededlength < 4000 / sizeof (TCHAR_T)) |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1466 { |
| 8961 | 1467 buf = (TCHAR_T *) alloca (buf_neededlength * sizeof (TCHAR_T)); |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1468 buf_malloced = NULL; |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1469 } |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1470 else |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1471 #endif |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1472 { |
| 8961 | 1473 size_t buf_memsize = xtimes (buf_neededlength, sizeof (TCHAR_T)); |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1474 if (size_overflow_p (buf_memsize)) |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1475 goto out_of_memory_1; |
| 8961 | 1476 buf = (TCHAR_T *) malloc (buf_memsize); |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1477 if (buf == NULL) |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1478 goto out_of_memory_1; |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1479 buf_malloced = buf; |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1480 } |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
1481 |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1482 if (resultbuf != NULL) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1483 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1484 result = resultbuf; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1485 allocated = *lengthp; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1486 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1487 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1488 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1489 result = NULL; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1490 allocated = 0; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1491 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1492 length = 0; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1493 /* Invariants: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1494 result is either == resultbuf or == NULL or malloc-allocated. |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1495 If length > 0, then result != NULL. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1496 |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1497 /* Ensures that allocated >= needed. Aborts through a jump to |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1498 out_of_memory if needed is SIZE_MAX or otherwise too big. */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1499 #define ENSURE_ALLOCATION(needed) \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1500 if ((needed) > allocated) \ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1501 { \ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1502 size_t memory_size; \ |
| 8961 | 1503 DCHAR_T *memory; \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1504 \ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1505 allocated = (allocated > 0 ? xtimes (allocated, 2) : 12); \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1506 if ((needed) > allocated) \ |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1507 allocated = (needed); \ |
| 8961 | 1508 memory_size = xtimes (allocated, sizeof (DCHAR_T)); \ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1509 if (size_overflow_p (memory_size)) \ |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1510 goto out_of_memory; \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1511 if (result == resultbuf || result == NULL) \ |
| 8961 | 1512 memory = (DCHAR_T *) malloc (memory_size); \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1513 else \ |
| 8961 | 1514 memory = (DCHAR_T *) realloc (result, memory_size); \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1515 if (memory == NULL) \ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1516 goto out_of_memory; \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1517 if (result == resultbuf && length > 0) \ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1518 DCHAR_CPY (memory, result, length); \ |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
1519 result = memory; \ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1520 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1521 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1522 for (cp = format, i = 0, dp = &d.dir[0]; ; cp = dp->dir_end, i++, dp++) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1523 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1524 if (cp != dp->dir_start) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1525 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1526 size_t n = dp->dir_start - cp; |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1527 size_t augmented_length = xsum (length, n); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1528 |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1529 ENSURE_ALLOCATION (augmented_length); |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1530 /* This copies a piece of FCHAR_T[] into a DCHAR_T[]. Here we |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1531 need that the format string contains only ASCII characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1532 if FCHAR_T and DCHAR_T are not the same type. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1533 if (sizeof (FCHAR_T) == sizeof (DCHAR_T)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1534 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1535 DCHAR_CPY (result + length, (const DCHAR_T *) cp, n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1536 length = augmented_length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1537 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1538 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1539 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1540 do |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1541 result[length++] = (unsigned char) *cp++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1542 while (--n > 0); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1543 } |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1544 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1545 if (i == d.count) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1546 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1547 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1548 /* Execute a single directive. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1549 if (dp->conversion == '%') |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1550 { |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1551 size_t augmented_length; |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1552 |
|
4886
e4317f1f2e2c
Use size_t instead of ssize_t.
Bruno Haible <bruno@clisp.org>
parents:
4879
diff
changeset
|
1553 if (!(dp->arg_index == ARG_NONE)) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1554 abort (); |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1555 augmented_length = xsum (length, 1); |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1556 ENSURE_ALLOCATION (augmented_length); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1557 result[length] = '%'; |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
1558 length = augmented_length; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1559 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1560 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1561 { |
|
4886
e4317f1f2e2c
Use size_t instead of ssize_t.
Bruno Haible <bruno@clisp.org>
parents:
4879
diff
changeset
|
1562 if (!(dp->arg_index != ARG_NONE)) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1563 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1564 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1565 if (dp->conversion == 'n') |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1566 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1567 switch (a.arg[dp->arg_index].type) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1568 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1569 case TYPE_COUNT_SCHAR_POINTER: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1570 *a.arg[dp->arg_index].a.a_count_schar_pointer = length; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1571 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1572 case TYPE_COUNT_SHORT_POINTER: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1573 *a.arg[dp->arg_index].a.a_count_short_pointer = length; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1574 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1575 case TYPE_COUNT_INT_POINTER: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1576 *a.arg[dp->arg_index].a.a_count_int_pointer = length; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1577 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1578 case TYPE_COUNT_LONGINT_POINTER: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1579 *a.arg[dp->arg_index].a.a_count_longint_pointer = length; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1580 break; |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
1581 #if HAVE_LONG_LONG_INT |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1582 case TYPE_COUNT_LONGLONGINT_POINTER: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1583 *a.arg[dp->arg_index].a.a_count_longlongint_pointer = length; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1584 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1585 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1586 default: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1587 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1588 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1589 } |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1590 #if ENABLE_UNISTDIO |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1591 /* The unistdio extensions. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1592 else if (dp->conversion == 'U') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1593 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1594 arg_type type = a.arg[dp->arg_index].type; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1595 int flags = dp->flags; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1596 int has_width; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1597 size_t width; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1598 int has_precision; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1599 size_t precision; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1600 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1601 has_width = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1602 width = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1603 if (dp->width_start != dp->width_end) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1604 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1605 if (dp->width_arg_index != ARG_NONE) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1606 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1607 int arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1608 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1609 if (!(a.arg[dp->width_arg_index].type == TYPE_INT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1610 abort (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1611 arg = a.arg[dp->width_arg_index].a.a_int; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1612 if (arg < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1613 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1614 /* "A negative field width is taken as a '-' flag |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1615 followed by a positive field width." */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1616 flags |= FLAG_LEFT; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1617 width = (unsigned int) (-arg); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1618 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1619 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1620 width = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1621 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1622 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1623 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1624 const FCHAR_T *digitp = dp->width_start; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1625 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1626 do |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1627 width = xsum (xtimes (width, 10), *digitp++ - '0'); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1628 while (digitp != dp->width_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1629 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1630 has_width = 1; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1631 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1632 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1633 has_precision = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1634 precision = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1635 if (dp->precision_start != dp->precision_end) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1636 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1637 if (dp->precision_arg_index != ARG_NONE) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1638 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1639 int arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1640 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1641 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1642 abort (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1643 arg = a.arg[dp->precision_arg_index].a.a_int; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1644 /* "A negative precision is taken as if the precision |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1645 were omitted." */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1646 if (arg >= 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1647 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1648 precision = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1649 has_precision = 1; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1650 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1651 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1652 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1653 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1654 const FCHAR_T *digitp = dp->precision_start + 1; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1655 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1656 precision = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1657 while (digitp != dp->precision_end) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1658 precision = xsum (xtimes (precision, 10), *digitp++ - '0'); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1659 has_precision = 1; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1660 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1661 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1662 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1663 switch (type) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1664 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1665 case TYPE_U8_STRING: |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1666 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1667 const uint8_t *arg = a.arg[dp->arg_index].a.a_u8_string; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1668 const uint8_t *arg_end; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1669 size_t characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1670 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1671 if (has_precision) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1672 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1673 /* Use only PRECISION characters, from the left. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1674 arg_end = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1675 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1676 for (; precision > 0; precision--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1677 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1678 int count = u8_strmblen (arg_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1679 if (count == 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1680 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1681 if (count < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1682 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1683 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1684 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1685 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1686 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1687 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1688 errno = EILSEQ; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1689 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1690 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1691 arg_end += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1692 characters++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1693 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1694 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1695 else if (has_width) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1696 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1697 /* Use the entire string, and count the number of |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1698 characters. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1699 arg_end = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1700 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1701 for (;;) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1702 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1703 int count = u8_strmblen (arg_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1704 if (count == 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1705 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1706 if (count < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1707 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1708 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1709 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1710 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1711 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1712 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1713 errno = EILSEQ; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1714 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1715 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1716 arg_end += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1717 characters++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1718 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1719 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1720 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1721 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1722 /* Use the entire string. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1723 arg_end = arg + u8_strlen (arg); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1724 /* The number of characters doesn't matter. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1725 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1726 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1727 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1728 if (has_width && width > characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1729 && !(dp->flags & FLAG_LEFT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1730 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1731 size_t n = width - characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1732 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1733 DCHAR_SET (result + length, ' ', n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1734 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1735 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1736 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1737 # if DCHAR_IS_UINT8_T |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1738 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1739 size_t n = arg_end - arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1740 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1741 DCHAR_CPY (result + length, arg, n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1742 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1743 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1744 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1745 { /* Convert. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1746 DCHAR_T *converted = result + length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1747 size_t converted_len = allocated - length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1748 # if DCHAR_IS_TCHAR |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1749 /* Convert from UTF-8 to locale encoding. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1750 if (u8_conv_to_encoding (locale_charset (), |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1751 iconveh_question_mark, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1752 arg, arg_end - arg, NULL, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1753 &converted, &converted_len) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1754 < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1755 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1756 /* Convert from UTF-8 to UTF-16/UTF-32. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1757 converted = |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1758 U8_TO_DCHAR (arg, arg_end - arg, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1759 converted, &converted_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1760 if (converted == NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1761 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1762 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1763 int saved_errno = errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1764 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1765 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1766 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1767 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1768 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1769 errno = saved_errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1770 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1771 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1772 if (converted != result + length) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1773 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1774 ENSURE_ALLOCATION (xsum (length, converted_len)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1775 DCHAR_CPY (result + length, converted, converted_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1776 free (converted); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1777 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1778 length += converted_len; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1779 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1780 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1781 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1782 if (has_width && width > characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1783 && (dp->flags & FLAG_LEFT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1784 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1785 size_t n = width - characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1786 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1787 DCHAR_SET (result + length, ' ', n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1788 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1789 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1790 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1791 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1792 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1793 case TYPE_U16_STRING: |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1794 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1795 const uint16_t *arg = a.arg[dp->arg_index].a.a_u16_string; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1796 const uint16_t *arg_end; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1797 size_t characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1798 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1799 if (has_precision) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1800 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1801 /* Use only PRECISION characters, from the left. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1802 arg_end = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1803 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1804 for (; precision > 0; precision--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1805 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1806 int count = u16_strmblen (arg_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1807 if (count == 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1808 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1809 if (count < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1810 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1811 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1812 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1813 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1814 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1815 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1816 errno = EILSEQ; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1817 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1818 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1819 arg_end += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1820 characters++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1821 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1822 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1823 else if (has_width) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1824 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1825 /* Use the entire string, and count the number of |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1826 characters. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1827 arg_end = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1828 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1829 for (;;) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1830 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1831 int count = u16_strmblen (arg_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1832 if (count == 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1833 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1834 if (count < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1835 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1836 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1837 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1838 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1839 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1840 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1841 errno = EILSEQ; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1842 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1843 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1844 arg_end += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1845 characters++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1846 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1847 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1848 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1849 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1850 /* Use the entire string. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1851 arg_end = arg + u16_strlen (arg); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1852 /* The number of characters doesn't matter. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1853 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1854 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1855 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1856 if (has_width && width > characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1857 && !(dp->flags & FLAG_LEFT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1858 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1859 size_t n = width - characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1860 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1861 DCHAR_SET (result + length, ' ', n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1862 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1863 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1864 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1865 # if DCHAR_IS_UINT16_T |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1866 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1867 size_t n = arg_end - arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1868 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1869 DCHAR_CPY (result + length, arg, n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1870 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1871 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1872 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1873 { /* Convert. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1874 DCHAR_T *converted = result + length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1875 size_t converted_len = allocated - length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1876 # if DCHAR_IS_TCHAR |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1877 /* Convert from UTF-16 to locale encoding. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1878 if (u16_conv_to_encoding (locale_charset (), |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1879 iconveh_question_mark, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1880 arg, arg_end - arg, NULL, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1881 &converted, &converted_len) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1882 < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1883 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1884 /* Convert from UTF-16 to UTF-8/UTF-32. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1885 converted = |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1886 U16_TO_DCHAR (arg, arg_end - arg, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1887 converted, &converted_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1888 if (converted == NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1889 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1890 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1891 int saved_errno = errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1892 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1893 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1894 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1895 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1896 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1897 errno = saved_errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1898 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1899 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1900 if (converted != result + length) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1901 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1902 ENSURE_ALLOCATION (xsum (length, converted_len)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1903 DCHAR_CPY (result + length, converted, converted_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1904 free (converted); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1905 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1906 length += converted_len; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1907 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1908 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1909 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1910 if (has_width && width > characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1911 && (dp->flags & FLAG_LEFT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1912 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1913 size_t n = width - characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1914 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1915 DCHAR_SET (result + length, ' ', n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1916 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1917 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1918 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1919 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1920 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1921 case TYPE_U32_STRING: |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1922 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1923 const uint32_t *arg = a.arg[dp->arg_index].a.a_u32_string; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1924 const uint32_t *arg_end; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1925 size_t characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1926 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1927 if (has_precision) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1928 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1929 /* Use only PRECISION characters, from the left. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1930 arg_end = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1931 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1932 for (; precision > 0; precision--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1933 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1934 int count = u32_strmblen (arg_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1935 if (count == 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1936 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1937 if (count < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1938 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1939 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1940 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1941 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1942 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1943 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1944 errno = EILSEQ; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1945 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1946 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1947 arg_end += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1948 characters++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1949 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1950 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1951 else if (has_width) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1952 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1953 /* Use the entire string, and count the number of |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1954 characters. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1955 arg_end = arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1956 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1957 for (;;) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1958 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1959 int count = u32_strmblen (arg_end); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1960 if (count == 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1961 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1962 if (count < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1963 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1964 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1965 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1966 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1967 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1968 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1969 errno = EILSEQ; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1970 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1971 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1972 arg_end += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1973 characters++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1974 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1975 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1976 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1977 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1978 /* Use the entire string. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1979 arg_end = arg + u32_strlen (arg); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1980 /* The number of characters doesn't matter. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1981 characters = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1982 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1983 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1984 if (has_width && width > characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1985 && !(dp->flags & FLAG_LEFT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1986 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1987 size_t n = width - characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1988 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1989 DCHAR_SET (result + length, ' ', n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1990 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1991 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1992 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1993 # if DCHAR_IS_UINT32_T |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1994 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1995 size_t n = arg_end - arg; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1996 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1997 DCHAR_CPY (result + length, arg, n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1998 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
1999 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2000 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2001 { /* Convert. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2002 DCHAR_T *converted = result + length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2003 size_t converted_len = allocated - length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2004 # if DCHAR_IS_TCHAR |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2005 /* Convert from UTF-32 to locale encoding. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2006 if (u32_conv_to_encoding (locale_charset (), |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2007 iconveh_question_mark, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2008 arg, arg_end - arg, NULL, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2009 &converted, &converted_len) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2010 < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2011 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2012 /* Convert from UTF-32 to UTF-8/UTF-16. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2013 converted = |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2014 U32_TO_DCHAR (arg, arg_end - arg, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2015 converted, &converted_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2016 if (converted == NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2017 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2018 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2019 int saved_errno = errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2020 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2021 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2022 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2023 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2024 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2025 errno = saved_errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2026 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2027 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2028 if (converted != result + length) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2029 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2030 ENSURE_ALLOCATION (xsum (length, converted_len)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2031 DCHAR_CPY (result + length, converted, converted_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2032 free (converted); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2033 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2034 length += converted_len; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2035 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2036 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2037 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2038 if (has_width && width > characters |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2039 && (dp->flags & FLAG_LEFT)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2040 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2041 size_t n = width - characters; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2042 ENSURE_ALLOCATION (xsum (length, n)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2043 DCHAR_SET (result + length, ' ', n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2044 length += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2045 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2046 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2047 break; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2048 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2049 default: |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2050 abort (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2051 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2052 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2053 #endif |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2054 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_DOUBLE) && !defined IN_LIBINTL |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2055 else if ((dp->conversion == 'a' || dp->conversion == 'A') |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2056 # if !(NEED_PRINTF_DIRECTIVE_A || (NEED_PRINTF_LONG_DOUBLE && NEED_PRINTF_DOUBLE)) |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2057 && (0 |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2058 # if NEED_PRINTF_DOUBLE |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2059 || a.arg[dp->arg_index].type == TYPE_DOUBLE |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2060 # endif |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2061 # if NEED_PRINTF_LONG_DOUBLE |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2062 || a.arg[dp->arg_index].type == TYPE_LONGDOUBLE |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2063 # endif |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2064 ) |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2065 # endif |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2066 ) |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2067 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2068 arg_type type = a.arg[dp->arg_index].type; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2069 int flags = dp->flags; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2070 int has_width; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2071 size_t width; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2072 int has_precision; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2073 size_t precision; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2074 size_t tmp_length; |
| 8961 | 2075 DCHAR_T tmpbuf[700]; |
| 2076 DCHAR_T *tmp; | |
| 2077 DCHAR_T *pad_ptr; | |
| 2078 DCHAR_T *p; | |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2079 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2080 has_width = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2081 width = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2082 if (dp->width_start != dp->width_end) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2083 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2084 if (dp->width_arg_index != ARG_NONE) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2085 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2086 int arg; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2087 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2088 if (!(a.arg[dp->width_arg_index].type == TYPE_INT)) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2089 abort (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2090 arg = a.arg[dp->width_arg_index].a.a_int; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2091 if (arg < 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2092 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2093 /* "A negative field width is taken as a '-' flag |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2094 followed by a positive field width." */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2095 flags |= FLAG_LEFT; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2096 width = (unsigned int) (-arg); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2097 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2098 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2099 width = arg; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2100 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2101 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2102 { |
| 8961 | 2103 const FCHAR_T *digitp = dp->width_start; |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2104 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2105 do |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2106 width = xsum (xtimes (width, 10), *digitp++ - '0'); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2107 while (digitp != dp->width_end); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2108 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2109 has_width = 1; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2110 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2111 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2112 has_precision = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2113 precision = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2114 if (dp->precision_start != dp->precision_end) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2115 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2116 if (dp->precision_arg_index != ARG_NONE) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2117 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2118 int arg; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2119 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2120 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT)) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2121 abort (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2122 arg = a.arg[dp->precision_arg_index].a.a_int; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2123 /* "A negative precision is taken as if the precision |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2124 were omitted." */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2125 if (arg >= 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2126 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2127 precision = arg; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2128 has_precision = 1; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2129 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2130 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2131 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2132 { |
| 8961 | 2133 const FCHAR_T *digitp = dp->precision_start + 1; |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2134 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2135 precision = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2136 while (digitp != dp->precision_end) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2137 precision = xsum (xtimes (precision, 10), *digitp++ - '0'); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2138 has_precision = 1; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2139 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2140 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2141 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2142 /* Allocate a temporary buffer of sufficient size. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2143 if (type == TYPE_LONGDOUBLE) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2144 tmp_length = |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2145 (unsigned int) ((LDBL_DIG + 1) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2146 * 0.831 /* decimal -> hexadecimal */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2147 ) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2148 + 1; /* turn floor into ceil */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2149 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2150 tmp_length = |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2151 (unsigned int) ((DBL_DIG + 1) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2152 * 0.831 /* decimal -> hexadecimal */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2153 ) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2154 + 1; /* turn floor into ceil */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2155 if (tmp_length < precision) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2156 tmp_length = precision; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2157 /* Account for sign, decimal point etc. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2158 tmp_length = xsum (tmp_length, 12); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2159 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2160 if (tmp_length < width) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2161 tmp_length = width; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2162 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2163 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2164 |
| 8961 | 2165 if (tmp_length <= sizeof (tmpbuf) / sizeof (DCHAR_T)) |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2166 tmp = tmpbuf; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2167 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2168 { |
| 8961 | 2169 size_t tmp_memsize = xtimes (tmp_length, sizeof (DCHAR_T)); |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2170 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2171 if (size_overflow_p (tmp_memsize)) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2172 /* Overflow, would lead to out of memory. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2173 goto out_of_memory; |
| 8961 | 2174 tmp = (DCHAR_T *) malloc (tmp_memsize); |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2175 if (tmp == NULL) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2176 /* Out of memory. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2177 goto out_of_memory; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2178 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2179 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2180 pad_ptr = NULL; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2181 p = tmp; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2182 if (type == TYPE_LONGDOUBLE) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2183 { |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2184 # if NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2185 long double arg = a.arg[dp->arg_index].a.a_longdouble; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2186 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2187 if (isnanl (arg)) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2188 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2189 if (dp->conversion == 'A') |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2190 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2191 *p++ = 'N'; *p++ = 'A'; *p++ = 'N'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2192 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2193 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2194 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2195 *p++ = 'n'; *p++ = 'a'; *p++ = 'n'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2196 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2197 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2198 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2199 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2200 int sign = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2201 DECL_LONG_DOUBLE_ROUNDING |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2202 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2203 BEGIN_LONG_DOUBLE_ROUNDING (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2204 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2205 if (signbit (arg)) /* arg < 0.0L or negative zero */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2206 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2207 sign = -1; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2208 arg = -arg; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2209 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2210 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2211 if (sign < 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2212 *p++ = '-'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2213 else if (flags & FLAG_SHOWSIGN) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2214 *p++ = '+'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2215 else if (flags & FLAG_SPACE) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2216 *p++ = ' '; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2217 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2218 if (arg > 0.0L && arg + arg == arg) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2219 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2220 if (dp->conversion == 'A') |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2221 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2222 *p++ = 'I'; *p++ = 'N'; *p++ = 'F'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2223 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2224 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2225 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2226 *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2227 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2228 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2229 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2230 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2231 int exponent; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2232 long double mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2233 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2234 if (arg > 0.0L) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2235 mantissa = printf_frexpl (arg, &exponent); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2236 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2237 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2238 exponent = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2239 mantissa = 0.0L; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2240 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2241 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2242 if (has_precision |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2243 && precision < (unsigned int) ((LDBL_DIG + 1) * 0.831) + 1) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2244 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2245 /* Round the mantissa. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2246 long double tail = mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2247 size_t q; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2248 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2249 for (q = precision; ; q--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2250 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2251 int digit = (int) tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2252 tail -= digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2253 if (q == 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2254 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2255 if (digit & 1 ? tail >= 0.5L : tail > 0.5L) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2256 tail = 1 - tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2257 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2258 tail = - tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2259 break; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2260 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2261 tail *= 16.0L; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2262 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2263 if (tail != 0.0L) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2264 for (q = precision; q > 0; q--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2265 tail *= 0.0625L; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2266 mantissa += tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2267 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2268 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2269 *p++ = '0'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2270 *p++ = dp->conversion - 'A' + 'X'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2271 pad_ptr = p; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2272 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2273 int digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2274 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2275 digit = (int) mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2276 mantissa -= digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2277 *p++ = '0' + digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2278 if ((flags & FLAG_ALT) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2279 || mantissa > 0.0L || precision > 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2280 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2281 *p++ = decimal_point_char (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2282 /* This loop terminates because we assume |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2283 that FLT_RADIX is a power of 2. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2284 while (mantissa > 0.0L) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2285 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2286 mantissa *= 16.0L; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2287 digit = (int) mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2288 mantissa -= digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2289 *p++ = digit |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2290 + (digit < 10 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2291 ? '0' |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2292 : dp->conversion - 10); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2293 if (precision > 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2294 precision--; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2295 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2296 while (precision > 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2297 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2298 *p++ = '0'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2299 precision--; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2300 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2301 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2302 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2303 *p++ = dp->conversion - 'A' + 'P'; |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2304 # if WIDE_CHAR_VERSION |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2305 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2306 static const wchar_t decimal_format[] = |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2307 { '%', '+', 'd', '\0' }; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2308 SNPRINTF (p, 6 + 1, decimal_format, exponent); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2309 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2310 while (*p != '\0') |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2311 p++; |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2312 # else |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2313 if (sizeof (DCHAR_T) == 1) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2314 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2315 sprintf ((char *) p, "%+d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2316 while (*p != '\0') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2317 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2318 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2319 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2320 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2321 char expbuf[6 + 1]; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2322 const char *ep; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2323 sprintf (expbuf, "%+d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2324 for (ep = expbuf; (*p = *ep) != '\0'; ep++) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2325 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2326 } |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2327 # endif |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2328 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2329 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2330 END_LONG_DOUBLE_ROUNDING (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2331 } |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2332 # else |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2333 abort (); |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2334 # endif |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2335 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2336 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2337 { |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2338 # if NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_DOUBLE |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2339 double arg = a.arg[dp->arg_index].a.a_double; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2340 |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
2341 if (isnand (arg)) |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2342 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2343 if (dp->conversion == 'A') |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2344 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2345 *p++ = 'N'; *p++ = 'A'; *p++ = 'N'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2346 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2347 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2348 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2349 *p++ = 'n'; *p++ = 'a'; *p++ = 'n'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2350 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2351 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2352 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2353 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2354 int sign = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2355 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2356 if (signbit (arg)) /* arg < 0.0 or negative zero */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2357 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2358 sign = -1; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2359 arg = -arg; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2360 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2361 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2362 if (sign < 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2363 *p++ = '-'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2364 else if (flags & FLAG_SHOWSIGN) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2365 *p++ = '+'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2366 else if (flags & FLAG_SPACE) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2367 *p++ = ' '; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2368 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2369 if (arg > 0.0 && arg + arg == arg) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2370 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2371 if (dp->conversion == 'A') |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2372 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2373 *p++ = 'I'; *p++ = 'N'; *p++ = 'F'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2374 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2375 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2376 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2377 *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2378 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2379 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2380 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2381 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2382 int exponent; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2383 double mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2384 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2385 if (arg > 0.0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2386 mantissa = printf_frexp (arg, &exponent); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2387 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2388 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2389 exponent = 0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2390 mantissa = 0.0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2391 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2392 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2393 if (has_precision |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2394 && precision < (unsigned int) ((DBL_DIG + 1) * 0.831) + 1) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2395 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2396 /* Round the mantissa. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2397 double tail = mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2398 size_t q; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2399 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2400 for (q = precision; ; q--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2401 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2402 int digit = (int) tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2403 tail -= digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2404 if (q == 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2405 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2406 if (digit & 1 ? tail >= 0.5 : tail > 0.5) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2407 tail = 1 - tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2408 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2409 tail = - tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2410 break; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2411 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2412 tail *= 16.0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2413 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2414 if (tail != 0.0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2415 for (q = precision; q > 0; q--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2416 tail *= 0.0625; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2417 mantissa += tail; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2418 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2419 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2420 *p++ = '0'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2421 *p++ = dp->conversion - 'A' + 'X'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2422 pad_ptr = p; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2423 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2424 int digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2425 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2426 digit = (int) mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2427 mantissa -= digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2428 *p++ = '0' + digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2429 if ((flags & FLAG_ALT) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2430 || mantissa > 0.0 || precision > 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2431 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2432 *p++ = decimal_point_char (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2433 /* This loop terminates because we assume |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2434 that FLT_RADIX is a power of 2. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2435 while (mantissa > 0.0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2436 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2437 mantissa *= 16.0; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2438 digit = (int) mantissa; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2439 mantissa -= digit; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2440 *p++ = digit |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2441 + (digit < 10 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2442 ? '0' |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2443 : dp->conversion - 10); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2444 if (precision > 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2445 precision--; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2446 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2447 while (precision > 0) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2448 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2449 *p++ = '0'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2450 precision--; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2451 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2452 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2453 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2454 *p++ = dp->conversion - 'A' + 'P'; |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2455 # if WIDE_CHAR_VERSION |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2456 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2457 static const wchar_t decimal_format[] = |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2458 { '%', '+', 'd', '\0' }; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2459 SNPRINTF (p, 6 + 1, decimal_format, exponent); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2460 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2461 while (*p != '\0') |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2462 p++; |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2463 # else |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2464 if (sizeof (DCHAR_T) == 1) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2465 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2466 sprintf ((char *) p, "%+d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2467 while (*p != '\0') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2468 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2469 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2470 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2471 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2472 char expbuf[6 + 1]; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2473 const char *ep; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2474 sprintf (expbuf, "%+d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2475 for (ep = expbuf; (*p = *ep) != '\0'; ep++) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2476 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2477 } |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2478 # endif |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2479 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2480 } |
|
9454
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2481 # else |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2482 abort (); |
|
265fad13afeb
Fix the processing of finite numbers with the 'a' and 'A' directives.
Bruno Haible <bruno@clisp.org>
parents:
9450
diff
changeset
|
2483 # endif |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2484 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2485 /* The generated string now extends from tmp to p, with the |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2486 zero padding insertion point being at pad_ptr. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2487 if (has_width && p - tmp < width) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2488 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2489 size_t pad = width - (p - tmp); |
| 8961 | 2490 DCHAR_T *end = p + pad; |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2491 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2492 if (flags & FLAG_LEFT) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2493 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2494 /* Pad with spaces on the right. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2495 for (; pad > 0; pad--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2496 *p++ = ' '; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2497 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2498 else if ((flags & FLAG_ZERO) && pad_ptr != NULL) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2499 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2500 /* Pad with zeroes. */ |
| 8961 | 2501 DCHAR_T *q = end; |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2502 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2503 while (p > pad_ptr) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2504 *--q = *--p; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2505 for (; pad > 0; pad--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2506 *p++ = '0'; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2507 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2508 else |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2509 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2510 /* Pad with spaces on the left. */ |
| 8961 | 2511 DCHAR_T *q = end; |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2512 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2513 while (p > tmp) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2514 *--q = *--p; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2515 for (; pad > 0; pad--) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2516 *p++ = ' '; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2517 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2518 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2519 p = end; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2520 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2521 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2522 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2523 size_t count = p - tmp; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2524 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2525 if (count >= tmp_length) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2526 /* tmp_length was incorrectly calculated - fix the |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2527 code above! */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2528 abort (); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2529 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2530 /* Make room for the result. */ |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2531 if (count >= allocated - length) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2532 { |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2533 size_t n = xsum (length, count); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2534 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2535 ENSURE_ALLOCATION (n); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2536 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2537 |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2538 /* Append the result. */ |
| 8961 | 2539 memcpy (result + length, tmp, count * sizeof (DCHAR_T)); |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2540 if (tmp != tmpbuf) |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2541 free (tmp); |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2542 length += count; |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2543 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2544 } |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2545 #endif |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2546 #if (NEED_PRINTF_INFINITE_DOUBLE || NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE || NEED_PRINTF_LONG_DOUBLE) && !defined IN_LIBINTL |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2547 else if ((dp->conversion == 'f' || dp->conversion == 'F' |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2548 || dp->conversion == 'e' || dp->conversion == 'E' |
|
8916
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2549 || dp->conversion == 'g' || dp->conversion == 'G' |
|
353e81af4858
Do the extra handling of NaN and Inf also the %a / %A.
Bruno Haible <bruno@clisp.org>
parents:
8915
diff
changeset
|
2550 || dp->conversion == 'a' || dp->conversion == 'A') |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2551 && (0 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2552 # if NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2553 || a.arg[dp->arg_index].type == TYPE_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2554 # elif NEED_PRINTF_INFINITE_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2555 || (a.arg[dp->arg_index].type == TYPE_DOUBLE |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2556 /* The systems (mingw) which produce wrong output |
|
8865
9e203d8ade65
Stricter check for printf result for NaN arguments.
Bruno Haible <bruno@clisp.org>
parents:
8860
diff
changeset
|
2557 for Inf, -Inf, and NaN also do so for -0.0. |
|
9e203d8ade65
Stricter check for printf result for NaN arguments.
Bruno Haible <bruno@clisp.org>
parents:
8860
diff
changeset
|
2558 Therefore we treat this case here as well. */ |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2559 && is_infinite_or_zero (a.arg[dp->arg_index].a.a_double)) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2560 # endif |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2561 # if NEED_PRINTF_LONG_DOUBLE |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2562 || a.arg[dp->arg_index].type == TYPE_LONGDOUBLE |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2563 # elif NEED_PRINTF_INFINITE_LONG_DOUBLE |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2564 || (a.arg[dp->arg_index].type == TYPE_LONGDOUBLE |
|
8865
9e203d8ade65
Stricter check for printf result for NaN arguments.
Bruno Haible <bruno@clisp.org>
parents:
8860
diff
changeset
|
2565 /* Some systems produce wrong output for Inf, |
|
9e203d8ade65
Stricter check for printf result for NaN arguments.
Bruno Haible <bruno@clisp.org>
parents:
8860
diff
changeset
|
2566 -Inf, and NaN. */ |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2567 && is_infinitel (a.arg[dp->arg_index].a.a_longdouble)) |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2568 # endif |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2569 )) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2570 { |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2571 # if (NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE) && (NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE) |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2572 arg_type type = a.arg[dp->arg_index].type; |
|
8846
6fe000202977
Fix a warning in last patch.
Bruno Haible <bruno@clisp.org>
parents:
8840
diff
changeset
|
2573 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2574 int flags = dp->flags; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2575 int has_width; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2576 size_t width; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2577 int has_precision; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2578 size_t precision; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2579 size_t tmp_length; |
| 8961 | 2580 DCHAR_T tmpbuf[700]; |
| 2581 DCHAR_T *tmp; | |
| 2582 DCHAR_T *pad_ptr; | |
| 2583 DCHAR_T *p; | |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2584 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2585 has_width = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2586 width = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2587 if (dp->width_start != dp->width_end) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2588 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2589 if (dp->width_arg_index != ARG_NONE) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2590 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2591 int arg; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2592 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2593 if (!(a.arg[dp->width_arg_index].type == TYPE_INT)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2594 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2595 arg = a.arg[dp->width_arg_index].a.a_int; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2596 if (arg < 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2597 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2598 /* "A negative field width is taken as a '-' flag |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2599 followed by a positive field width." */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2600 flags |= FLAG_LEFT; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2601 width = (unsigned int) (-arg); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2602 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2603 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2604 width = arg; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2605 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2606 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2607 { |
| 8961 | 2608 const FCHAR_T *digitp = dp->width_start; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2609 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2610 do |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2611 width = xsum (xtimes (width, 10), *digitp++ - '0'); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2612 while (digitp != dp->width_end); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2613 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2614 has_width = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2615 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2616 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2617 has_precision = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2618 precision = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2619 if (dp->precision_start != dp->precision_end) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2620 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2621 if (dp->precision_arg_index != ARG_NONE) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2622 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2623 int arg; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2624 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2625 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2626 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2627 arg = a.arg[dp->precision_arg_index].a.a_int; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2628 /* "A negative precision is taken as if the precision |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2629 were omitted." */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2630 if (arg >= 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2631 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2632 precision = arg; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2633 has_precision = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2634 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2635 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2636 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2637 { |
| 8961 | 2638 const FCHAR_T *digitp = dp->precision_start + 1; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2639 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2640 precision = 0; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2641 while (digitp != dp->precision_end) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2642 precision = xsum (xtimes (precision, 10), *digitp++ - '0'); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2643 has_precision = 1; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2644 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2645 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2646 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2647 /* POSIX specifies the default precision to be 6 for %f, %F, |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2648 %e, %E, but not for %g, %G. Implementations appear to use |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2649 the same default precision also for %g, %G. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2650 if (!has_precision) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2651 precision = 6; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2652 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2653 /* Allocate a temporary buffer of sufficient size. */ |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2654 # if NEED_PRINTF_DOUBLE && NEED_PRINTF_LONG_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2655 tmp_length = (type == TYPE_LONGDOUBLE ? LDBL_DIG + 1 : DBL_DIG + 1); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2656 # elif NEED_PRINTF_INFINITE_DOUBLE && NEED_PRINTF_LONG_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2657 tmp_length = (type == TYPE_LONGDOUBLE ? LDBL_DIG + 1 : 0); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2658 # elif NEED_PRINTF_LONG_DOUBLE |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2659 tmp_length = LDBL_DIG + 1; |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2660 # elif NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2661 tmp_length = DBL_DIG + 1; |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2662 # else |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2663 tmp_length = 0; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2664 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2665 if (tmp_length < precision) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2666 tmp_length = precision; |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2667 # if NEED_PRINTF_LONG_DOUBLE |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2668 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2669 if (type == TYPE_LONGDOUBLE) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2670 # endif |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2671 if (dp->conversion == 'f' || dp->conversion == 'F') |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2672 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2673 long double arg = a.arg[dp->arg_index].a.a_longdouble; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2674 if (!(isnanl (arg) || arg + arg == arg)) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2675 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2676 /* arg is finite and nonzero. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2677 int exponent = floorlog10l (arg < 0 ? -arg : arg); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2678 if (exponent >= 0 && tmp_length < exponent + precision) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2679 tmp_length = exponent + precision; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2680 } |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2681 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2682 # endif |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2683 # if NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2684 # if NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2685 if (type == TYPE_DOUBLE) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2686 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2687 if (dp->conversion == 'f' || dp->conversion == 'F') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2688 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2689 double arg = a.arg[dp->arg_index].a.a_double; |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
2690 if (!(isnand (arg) || arg + arg == arg)) |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2691 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2692 /* arg is finite and nonzero. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2693 int exponent = floorlog10 (arg < 0 ? -arg : arg); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2694 if (exponent >= 0 && tmp_length < exponent + precision) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2695 tmp_length = exponent + precision; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2696 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2697 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2698 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2699 /* Account for sign, decimal point etc. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2700 tmp_length = xsum (tmp_length, 12); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2701 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2702 if (tmp_length < width) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2703 tmp_length = width; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2704 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2705 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2706 |
| 8961 | 2707 if (tmp_length <= sizeof (tmpbuf) / sizeof (DCHAR_T)) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2708 tmp = tmpbuf; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2709 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2710 { |
| 8961 | 2711 size_t tmp_memsize = xtimes (tmp_length, sizeof (DCHAR_T)); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2712 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2713 if (size_overflow_p (tmp_memsize)) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2714 /* Overflow, would lead to out of memory. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2715 goto out_of_memory; |
| 8961 | 2716 tmp = (DCHAR_T *) malloc (tmp_memsize); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2717 if (tmp == NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2718 /* Out of memory. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2719 goto out_of_memory; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2720 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2721 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2722 pad_ptr = NULL; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2723 p = tmp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2724 |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2725 # if NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
2726 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2727 if (type == TYPE_LONGDOUBLE) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2728 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2729 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2730 long double arg = a.arg[dp->arg_index].a.a_longdouble; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2731 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2732 if (isnanl (arg)) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2733 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2734 if (dp->conversion >= 'A' && dp->conversion <= 'Z') |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2735 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2736 *p++ = 'N'; *p++ = 'A'; *p++ = 'N'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2737 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2738 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2739 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2740 *p++ = 'n'; *p++ = 'a'; *p++ = 'n'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2741 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2742 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2743 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2744 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2745 int sign = 0; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2746 DECL_LONG_DOUBLE_ROUNDING |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2747 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2748 BEGIN_LONG_DOUBLE_ROUNDING (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2749 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2750 if (signbit (arg)) /* arg < 0.0L or negative zero */ |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2751 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2752 sign = -1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2753 arg = -arg; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2754 } |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2755 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2756 if (sign < 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2757 *p++ = '-'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2758 else if (flags & FLAG_SHOWSIGN) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2759 *p++ = '+'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2760 else if (flags & FLAG_SPACE) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2761 *p++ = ' '; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2762 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2763 if (arg > 0.0L && arg + arg == arg) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2764 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2765 if (dp->conversion >= 'A' && dp->conversion <= 'Z') |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2766 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2767 *p++ = 'I'; *p++ = 'N'; *p++ = 'F'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2768 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2769 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2770 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2771 *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2772 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2773 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2774 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2775 { |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2776 # if NEED_PRINTF_LONG_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2777 pad_ptr = p; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2778 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2779 if (dp->conversion == 'f' || dp->conversion == 'F') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2780 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2781 char *digits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2782 size_t ndigits; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2783 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2784 digits = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2785 scale10_round_decimal_long_double (arg, precision); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2786 if (digits == NULL) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2787 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2788 END_LONG_DOUBLE_ROUNDING (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2789 goto out_of_memory; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2790 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2791 ndigits = strlen (digits); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2792 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2793 if (ndigits > precision) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2794 do |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2795 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2796 --ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2797 *p++ = digits[ndigits]; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2798 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2799 while (ndigits > precision); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2800 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2801 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2802 /* Here ndigits <= precision. */ |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2803 if ((flags & FLAG_ALT) || precision > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2804 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2805 *p++ = decimal_point_char (); |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2806 for (; precision > ndigits; precision--) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2807 *p++ = '0'; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2808 while (ndigits > 0) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2809 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2810 --ndigits; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2811 *p++ = digits[ndigits]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2812 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2813 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2814 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2815 free (digits); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2816 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2817 else if (dp->conversion == 'e' || dp->conversion == 'E') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2818 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2819 int exponent; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2820 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2821 if (arg == 0.0L) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2822 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2823 exponent = 0; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2824 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2825 if ((flags & FLAG_ALT) || precision > 0) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2826 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2827 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2828 for (; precision > 0; precision--) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2829 *p++ = '0'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2830 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2831 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2832 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2833 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2834 /* arg > 0.0L. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2835 int adjusted; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2836 char *digits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2837 size_t ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2838 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2839 exponent = floorlog10l (arg); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2840 adjusted = 0; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2841 for (;;) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2842 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2843 digits = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2844 scale10_round_decimal_long_double (arg, |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2845 (int)precision - exponent); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2846 if (digits == NULL) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2847 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2848 END_LONG_DOUBLE_ROUNDING (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2849 goto out_of_memory; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2850 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2851 ndigits = strlen (digits); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2852 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2853 if (ndigits == precision + 1) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2854 break; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2855 if (ndigits < precision |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2856 || ndigits > precision + 2) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2857 /* The exponent was not guessed |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2858 precisely enough. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2859 abort (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2860 if (adjusted) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2861 /* None of two values of exponent is |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2862 the right one. Prevent an endless |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2863 loop. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2864 abort (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2865 free (digits); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2866 if (ndigits == precision) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2867 exponent -= 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2868 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2869 exponent += 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2870 adjusted = 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2871 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2872 /* Here ndigits = precision+1. */ |
|
9938
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2873 if (is_borderline (digits, precision)) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2874 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2875 /* Maybe the exponent guess was too high |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2876 and a smaller exponent can be reached |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2877 by turning a 10...0 into 9...9x. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2878 char *digits2 = |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2879 scale10_round_decimal_long_double (arg, |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2880 (int)precision - exponent + 1); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2881 if (digits2 == NULL) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2882 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2883 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2884 END_LONG_DOUBLE_ROUNDING (); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2885 goto out_of_memory; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2886 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2887 if (strlen (digits2) == precision + 1) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2888 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2889 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2890 digits = digits2; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2891 exponent -= 1; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2892 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2893 else |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2894 free (digits2); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2895 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2896 /* Here ndigits = precision+1. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
2897 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2898 *p++ = digits[--ndigits]; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2899 if ((flags & FLAG_ALT) || precision > 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2900 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2901 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2902 while (ndigits > 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2903 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2904 --ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2905 *p++ = digits[ndigits]; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2906 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2907 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2908 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2909 free (digits); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2910 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2911 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2912 *p++ = dp->conversion; /* 'e' or 'E' */ |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
2913 # if WIDE_CHAR_VERSION |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2914 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2915 static const wchar_t decimal_format[] = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2916 { '%', '+', '.', '2', 'd', '\0' }; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2917 SNPRINTF (p, 6 + 1, decimal_format, exponent); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2918 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2919 while (*p != '\0') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2920 p++; |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2921 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2922 if (sizeof (DCHAR_T) == 1) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2923 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2924 sprintf ((char *) p, "%+.2d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2925 while (*p != '\0') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2926 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2927 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2928 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2929 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2930 char expbuf[6 + 1]; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2931 const char *ep; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2932 sprintf (expbuf, "%+.2d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2933 for (ep = expbuf; (*p = *ep) != '\0'; ep++) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2934 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2935 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
2936 # endif |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2937 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2938 else if (dp->conversion == 'g' || dp->conversion == 'G') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2939 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2940 if (precision == 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2941 precision = 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2942 /* precision >= 1. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2943 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2944 if (arg == 0.0L) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2945 /* The exponent is 0, >= -4, < precision. |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2946 Use fixed-point notation. */ |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2947 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2948 size_t ndigits = precision; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2949 /* Number of trailing zeroes that have to be |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2950 dropped. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2951 size_t nzeroes = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2952 (flags & FLAG_ALT ? 0 : precision - 1); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2953 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2954 --ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2955 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2956 if ((flags & FLAG_ALT) || ndigits > nzeroes) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2957 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2958 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2959 while (ndigits > nzeroes) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2960 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2961 --ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2962 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2963 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2964 } |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2965 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2966 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2967 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2968 /* arg > 0.0L. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2969 int exponent; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2970 int adjusted; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2971 char *digits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2972 size_t ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2973 size_t nzeroes; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2974 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2975 exponent = floorlog10l (arg); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2976 adjusted = 0; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2977 for (;;) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2978 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2979 digits = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2980 scale10_round_decimal_long_double (arg, |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2981 (int)(precision - 1) - exponent); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2982 if (digits == NULL) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2983 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2984 END_LONG_DOUBLE_ROUNDING (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2985 goto out_of_memory; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2986 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2987 ndigits = strlen (digits); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
2988 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2989 if (ndigits == precision) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2990 break; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2991 if (ndigits < precision - 1 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2992 || ndigits > precision + 1) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2993 /* The exponent was not guessed |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2994 precisely enough. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2995 abort (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2996 if (adjusted) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2997 /* None of two values of exponent is |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2998 the right one. Prevent an endless |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
2999 loop. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3000 abort (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3001 free (digits); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3002 if (ndigits < precision) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3003 exponent -= 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3004 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3005 exponent += 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3006 adjusted = 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3007 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3008 /* Here ndigits = precision. */ |
|
9938
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3009 if (is_borderline (digits, precision - 1)) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3010 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3011 /* Maybe the exponent guess was too high |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3012 and a smaller exponent can be reached |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3013 by turning a 10...0 into 9...9x. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3014 char *digits2 = |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3015 scale10_round_decimal_long_double (arg, |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3016 (int)(precision - 1) - exponent + 1); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3017 if (digits2 == NULL) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3018 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3019 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3020 END_LONG_DOUBLE_ROUNDING (); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3021 goto out_of_memory; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3022 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3023 if (strlen (digits2) == precision) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3024 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3025 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3026 digits = digits2; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3027 exponent -= 1; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3028 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3029 else |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3030 free (digits2); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3031 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3032 /* Here ndigits = precision. */ |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3033 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3034 /* Determine the number of trailing zeroes |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3035 that have to be dropped. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3036 nzeroes = 0; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3037 if ((flags & FLAG_ALT) == 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3038 while (nzeroes < ndigits |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3039 && digits[nzeroes] == '0') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3040 nzeroes++; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3041 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3042 /* The exponent is now determined. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3043 if (exponent >= -4 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3044 && exponent < (long)precision) |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3045 { |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3046 /* Fixed-point notation: |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3047 max(exponent,0)+1 digits, then the |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3048 decimal point, then the remaining |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3049 digits without trailing zeroes. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3050 if (exponent >= 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3051 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3052 size_t count = exponent + 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3053 /* Note: count <= precision = ndigits. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3054 for (; count > 0; count--) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3055 *p++ = digits[--ndigits]; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3056 if ((flags & FLAG_ALT) || ndigits > nzeroes) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3057 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3058 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3059 while (ndigits > nzeroes) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3060 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3061 --ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3062 *p++ = digits[ndigits]; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3063 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3064 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3065 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3066 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3067 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3068 size_t count = -exponent - 1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3069 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3070 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3071 for (; count > 0; count--) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3072 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3073 while (ndigits > nzeroes) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3074 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3075 --ndigits; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3076 *p++ = digits[ndigits]; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3077 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3078 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3079 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3080 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3081 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3082 /* Exponential notation. */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3083 *p++ = digits[--ndigits]; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3084 if ((flags & FLAG_ALT) || ndigits > nzeroes) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3085 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3086 *p++ = decimal_point_char (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3087 while (ndigits > nzeroes) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3088 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3089 --ndigits; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3090 *p++ = digits[ndigits]; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3091 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3092 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3093 *p++ = dp->conversion - 'G' + 'E'; /* 'e' or 'E' */ |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
3094 # if WIDE_CHAR_VERSION |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3095 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3096 static const wchar_t decimal_format[] = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3097 { '%', '+', '.', '2', 'd', '\0' }; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3098 SNPRINTF (p, 6 + 1, decimal_format, exponent); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3099 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3100 while (*p != '\0') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3101 p++; |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3102 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3103 if (sizeof (DCHAR_T) == 1) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3104 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3105 sprintf ((char *) p, "%+.2d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3106 while (*p != '\0') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3107 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3108 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3109 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3110 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3111 char expbuf[6 + 1]; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3112 const char *ep; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3113 sprintf (expbuf, "%+.2d", exponent); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3114 for (ep = expbuf; (*p = *ep) != '\0'; ep++) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3115 p++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3116 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3117 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3118 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3119 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3120 free (digits); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3121 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3122 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3123 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3124 abort (); |
|
8860
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
3125 # else |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
3126 /* arg is finite. */ |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
3127 abort (); |
|
771a56a41b5b
Fix *printf result for NaN, Inf on AIX, Solaris, OSF/1.
Bruno Haible <bruno@clisp.org>
parents:
8846
diff
changeset
|
3128 # endif |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3129 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3130 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3131 END_LONG_DOUBLE_ROUNDING (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3132 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3133 } |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3134 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3135 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3136 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3137 # endif |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3138 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3139 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3140 double arg = a.arg[dp->arg_index].a.a_double; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3141 |
|
9646
a113e473cc98
Rename isnan, applicable to 'double' only, to isnand.
Bruno Haible <bruno@clisp.org>
parents:
9489
diff
changeset
|
3142 if (isnand (arg)) |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3143 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3144 if (dp->conversion >= 'A' && dp->conversion <= 'Z') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3145 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3146 *p++ = 'N'; *p++ = 'A'; *p++ = 'N'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3147 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3148 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3149 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3150 *p++ = 'n'; *p++ = 'a'; *p++ = 'n'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3151 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3152 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3153 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3154 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3155 int sign = 0; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3156 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3157 if (signbit (arg)) /* arg < 0.0 or negative zero */ |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3158 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3159 sign = -1; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3160 arg = -arg; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3161 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3162 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3163 if (sign < 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3164 *p++ = '-'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3165 else if (flags & FLAG_SHOWSIGN) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3166 *p++ = '+'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3167 else if (flags & FLAG_SPACE) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3168 *p++ = ' '; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3169 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3170 if (arg > 0.0 && arg + arg == arg) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3171 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3172 if (dp->conversion >= 'A' && dp->conversion <= 'Z') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3173 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3174 *p++ = 'I'; *p++ = 'N'; *p++ = 'F'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3175 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3176 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3177 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3178 *p++ = 'i'; *p++ = 'n'; *p++ = 'f'; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3179 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3180 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3181 else |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3182 { |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3183 # if NEED_PRINTF_DOUBLE |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3184 pad_ptr = p; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3185 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3186 if (dp->conversion == 'f' || dp->conversion == 'F') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3187 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3188 char *digits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3189 size_t ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3190 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3191 digits = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3192 scale10_round_decimal_double (arg, precision); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3193 if (digits == NULL) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3194 goto out_of_memory; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3195 ndigits = strlen (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3196 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3197 if (ndigits > precision) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3198 do |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3199 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3200 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3201 *p++ = digits[ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3202 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3203 while (ndigits > precision); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3204 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3205 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3206 /* Here ndigits <= precision. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3207 if ((flags & FLAG_ALT) || precision > 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3208 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3209 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3210 for (; precision > ndigits; precision--) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3211 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3212 while (ndigits > 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3213 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3214 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3215 *p++ = digits[ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3216 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3217 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3218 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3219 free (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3220 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3221 else if (dp->conversion == 'e' || dp->conversion == 'E') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3222 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3223 int exponent; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3224 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3225 if (arg == 0.0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3226 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3227 exponent = 0; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3228 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3229 if ((flags & FLAG_ALT) || precision > 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3230 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3231 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3232 for (; precision > 0; precision--) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3233 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3234 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3235 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3236 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3237 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3238 /* arg > 0.0. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3239 int adjusted; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3240 char *digits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3241 size_t ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3242 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3243 exponent = floorlog10 (arg); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3244 adjusted = 0; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3245 for (;;) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3246 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3247 digits = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3248 scale10_round_decimal_double (arg, |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3249 (int)precision - exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3250 if (digits == NULL) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3251 goto out_of_memory; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3252 ndigits = strlen (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3253 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3254 if (ndigits == precision + 1) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3255 break; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3256 if (ndigits < precision |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3257 || ndigits > precision + 2) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3258 /* The exponent was not guessed |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3259 precisely enough. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3260 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3261 if (adjusted) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3262 /* None of two values of exponent is |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3263 the right one. Prevent an endless |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3264 loop. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3265 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3266 free (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3267 if (ndigits == precision) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3268 exponent -= 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3269 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3270 exponent += 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3271 adjusted = 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3272 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3273 /* Here ndigits = precision+1. */ |
|
9938
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3274 if (is_borderline (digits, precision)) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3275 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3276 /* Maybe the exponent guess was too high |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3277 and a smaller exponent can be reached |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3278 by turning a 10...0 into 9...9x. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3279 char *digits2 = |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3280 scale10_round_decimal_double (arg, |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3281 (int)precision - exponent + 1); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3282 if (digits2 == NULL) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3283 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3284 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3285 goto out_of_memory; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3286 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3287 if (strlen (digits2) == precision + 1) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3288 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3289 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3290 digits = digits2; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3291 exponent -= 1; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3292 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3293 else |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3294 free (digits2); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3295 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3296 /* Here ndigits = precision+1. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3297 |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3298 *p++ = digits[--ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3299 if ((flags & FLAG_ALT) || precision > 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3300 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3301 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3302 while (ndigits > 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3303 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3304 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3305 *p++ = digits[ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3306 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3307 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3308 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3309 free (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3310 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3311 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3312 *p++ = dp->conversion; /* 'e' or 'E' */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3313 # if WIDE_CHAR_VERSION |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3314 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3315 static const wchar_t decimal_format[] = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3316 /* Produce the same number of exponent digits |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3317 as the native printf implementation. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3318 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3319 { '%', '+', '.', '3', 'd', '\0' }; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3320 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3321 { '%', '+', '.', '2', 'd', '\0' }; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3322 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3323 SNPRINTF (p, 6 + 1, decimal_format, exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3324 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3325 while (*p != '\0') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3326 p++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3327 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3328 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3329 static const char decimal_format[] = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3330 /* Produce the same number of exponent digits |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3331 as the native printf implementation. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3332 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3333 "%+.3d"; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3334 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3335 "%+.2d"; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3336 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3337 if (sizeof (DCHAR_T) == 1) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3338 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3339 sprintf ((char *) p, decimal_format, exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3340 while (*p != '\0') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3341 p++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3342 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3343 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3344 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3345 char expbuf[6 + 1]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3346 const char *ep; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3347 sprintf (expbuf, decimal_format, exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3348 for (ep = expbuf; (*p = *ep) != '\0'; ep++) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3349 p++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3350 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3351 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3352 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3353 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3354 else if (dp->conversion == 'g' || dp->conversion == 'G') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3355 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3356 if (precision == 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3357 precision = 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3358 /* precision >= 1. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3359 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3360 if (arg == 0.0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3361 /* The exponent is 0, >= -4, < precision. |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3362 Use fixed-point notation. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3363 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3364 size_t ndigits = precision; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3365 /* Number of trailing zeroes that have to be |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3366 dropped. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3367 size_t nzeroes = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3368 (flags & FLAG_ALT ? 0 : precision - 1); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3369 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3370 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3371 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3372 if ((flags & FLAG_ALT) || ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3373 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3374 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3375 while (ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3376 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3377 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3378 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3379 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3380 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3381 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3382 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3383 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3384 /* arg > 0.0. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3385 int exponent; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3386 int adjusted; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3387 char *digits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3388 size_t ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3389 size_t nzeroes; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3390 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3391 exponent = floorlog10 (arg); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3392 adjusted = 0; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3393 for (;;) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3394 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3395 digits = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3396 scale10_round_decimal_double (arg, |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3397 (int)(precision - 1) - exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3398 if (digits == NULL) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3399 goto out_of_memory; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3400 ndigits = strlen (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3401 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3402 if (ndigits == precision) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3403 break; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3404 if (ndigits < precision - 1 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3405 || ndigits > precision + 1) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3406 /* The exponent was not guessed |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3407 precisely enough. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3408 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3409 if (adjusted) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3410 /* None of two values of exponent is |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3411 the right one. Prevent an endless |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3412 loop. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3413 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3414 free (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3415 if (ndigits < precision) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3416 exponent -= 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3417 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3418 exponent += 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3419 adjusted = 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3420 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3421 /* Here ndigits = precision. */ |
|
9938
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3422 if (is_borderline (digits, precision - 1)) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3423 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3424 /* Maybe the exponent guess was too high |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3425 and a smaller exponent can be reached |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3426 by turning a 10...0 into 9...9x. */ |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3427 char *digits2 = |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3428 scale10_round_decimal_double (arg, |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3429 (int)(precision - 1) - exponent + 1); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3430 if (digits2 == NULL) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3431 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3432 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3433 goto out_of_memory; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3434 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3435 if (strlen (digits2) == precision) |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3436 { |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3437 free (digits); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3438 digits = digits2; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3439 exponent -= 1; |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3440 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3441 else |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3442 free (digits2); |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3443 } |
|
9f8c455639fc
Fix rounding when a precision is given.
Bruno Haible <bruno@clisp.org>
parents:
9834
diff
changeset
|
3444 /* Here ndigits = precision. */ |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3445 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3446 /* Determine the number of trailing zeroes |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3447 that have to be dropped. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3448 nzeroes = 0; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3449 if ((flags & FLAG_ALT) == 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3450 while (nzeroes < ndigits |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3451 && digits[nzeroes] == '0') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3452 nzeroes++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3453 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3454 /* The exponent is now determined. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3455 if (exponent >= -4 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3456 && exponent < (long)precision) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3457 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3458 /* Fixed-point notation: |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3459 max(exponent,0)+1 digits, then the |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3460 decimal point, then the remaining |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3461 digits without trailing zeroes. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3462 if (exponent >= 0) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3463 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3464 size_t count = exponent + 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3465 /* Note: count <= precision = ndigits. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3466 for (; count > 0; count--) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3467 *p++ = digits[--ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3468 if ((flags & FLAG_ALT) || ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3469 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3470 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3471 while (ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3472 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3473 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3474 *p++ = digits[ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3475 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3476 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3477 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3478 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3479 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3480 size_t count = -exponent - 1; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3481 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3482 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3483 for (; count > 0; count--) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3484 *p++ = '0'; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3485 while (ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3486 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3487 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3488 *p++ = digits[ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3489 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3490 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3491 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3492 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3493 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3494 /* Exponential notation. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3495 *p++ = digits[--ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3496 if ((flags & FLAG_ALT) || ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3497 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3498 *p++ = decimal_point_char (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3499 while (ndigits > nzeroes) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3500 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3501 --ndigits; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3502 *p++ = digits[ndigits]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3503 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3504 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3505 *p++ = dp->conversion - 'G' + 'E'; /* 'e' or 'E' */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3506 # if WIDE_CHAR_VERSION |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3507 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3508 static const wchar_t decimal_format[] = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3509 /* Produce the same number of exponent digits |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3510 as the native printf implementation. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3511 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3512 { '%', '+', '.', '3', 'd', '\0' }; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3513 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3514 { '%', '+', '.', '2', 'd', '\0' }; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3515 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3516 SNPRINTF (p, 6 + 1, decimal_format, exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3517 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3518 while (*p != '\0') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3519 p++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3520 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3521 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3522 static const char decimal_format[] = |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3523 /* Produce the same number of exponent digits |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3524 as the native printf implementation. */ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3525 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3526 "%+.3d"; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3527 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3528 "%+.2d"; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3529 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3530 if (sizeof (DCHAR_T) == 1) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3531 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3532 sprintf ((char *) p, decimal_format, exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3533 while (*p != '\0') |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3534 p++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3535 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3536 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3537 { |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3538 char expbuf[6 + 1]; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3539 const char *ep; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3540 sprintf (expbuf, decimal_format, exponent); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3541 for (ep = expbuf; (*p = *ep) != '\0'; ep++) |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3542 p++; |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3543 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3544 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3545 # endif |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3546 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3547 |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3548 free (digits); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3549 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3550 } |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3551 else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3552 abort (); |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3553 # else |
|
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3554 /* arg is finite. */ |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3555 if (!(arg == 0.0)) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3556 abort (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3557 |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3558 pad_ptr = p; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3559 |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3560 if (dp->conversion == 'f' || dp->conversion == 'F') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3561 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3562 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3563 if ((flags & FLAG_ALT) || precision > 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3564 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3565 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3566 for (; precision > 0; precision--) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3567 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3568 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3569 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3570 else if (dp->conversion == 'e' || dp->conversion == 'E') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3571 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3572 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3573 if ((flags & FLAG_ALT) || precision > 0) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3574 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3575 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3576 for (; precision > 0; precision--) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3577 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3578 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3579 *p++ = dp->conversion; /* 'e' or 'E' */ |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3580 *p++ = '+'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3581 /* Produce the same number of exponent digits as |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3582 the native printf implementation. */ |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3583 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3584 *p++ = '0'; |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3585 # endif |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3586 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3587 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3588 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3589 else if (dp->conversion == 'g' || dp->conversion == 'G') |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3590 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3591 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3592 if (flags & FLAG_ALT) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3593 { |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3594 size_t ndigits = |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3595 (precision > 0 ? precision - 1 : 0); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3596 *p++ = decimal_point_char (); |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3597 for (; ndigits > 0; --ndigits) |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3598 *p++ = '0'; |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3599 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3600 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3601 else |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3602 abort (); |
|
9442
ad275322f8f1
Fix *printf behaviour in out-of-memory situations on MacOS X and *BSD.
Bruno Haible <bruno@clisp.org>
parents:
9439
diff
changeset
|
3603 # endif |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3604 } |
|
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3605 } |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3606 } |
|
8840
792e05ae7ac8
Fix *printf result for NaN, Inf, -0.0 on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8838
diff
changeset
|
3607 # endif |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3608 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3609 /* The generated string now extends from tmp to p, with the |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3610 zero padding insertion point being at pad_ptr. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3611 if (has_width && p - tmp < width) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3612 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3613 size_t pad = width - (p - tmp); |
| 8961 | 3614 DCHAR_T *end = p + pad; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3615 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3616 if (flags & FLAG_LEFT) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3617 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3618 /* Pad with spaces on the right. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3619 for (; pad > 0; pad--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3620 *p++ = ' '; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3621 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3622 else if ((flags & FLAG_ZERO) && pad_ptr != NULL) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3623 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3624 /* Pad with zeroes. */ |
| 8961 | 3625 DCHAR_T *q = end; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3626 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3627 while (p > pad_ptr) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3628 *--q = *--p; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3629 for (; pad > 0; pad--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3630 *p++ = '0'; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3631 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3632 else |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3633 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3634 /* Pad with spaces on the left. */ |
| 8961 | 3635 DCHAR_T *q = end; |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3636 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3637 while (p > tmp) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3638 *--q = *--p; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3639 for (; pad > 0; pad--) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3640 *p++ = ' '; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3641 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3642 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3643 p = end; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3644 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3645 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3646 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3647 size_t count = p - tmp; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3648 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3649 if (count >= tmp_length) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3650 /* tmp_length was incorrectly calculated - fix the |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3651 code above! */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3652 abort (); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3653 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3654 /* Make room for the result. */ |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3655 if (count >= allocated - length) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3656 { |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3657 size_t n = xsum (length, count); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3658 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3659 ENSURE_ALLOCATION (n); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3660 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3661 |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3662 /* Append the result. */ |
| 8961 | 3663 memcpy (result + length, tmp, count * sizeof (DCHAR_T)); |
|
8832
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3664 if (tmp != tmpbuf) |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3665 free (tmp); |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3666 length += count; |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3667 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3668 } |
|
1466c973f476
Add support for 'long double' number output.
Bruno Haible <bruno@clisp.org>
parents:
8831
diff
changeset
|
3669 #endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3670 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3671 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3672 arg_type type = a.arg[dp->arg_index].type; |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3673 int flags = dp->flags; |
|
9674
b69f1141e94f
Fix *printf behaviour regarding the left-adjust flag on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents:
9672
diff
changeset
|
3674 #if !USE_SNPRINTF || !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_LEFTADJUST || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3675 int has_width; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3676 size_t width; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3677 #endif |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3678 #if !USE_SNPRINTF || NEED_PRINTF_UNBOUNDED_PRECISION |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3679 int has_precision; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3680 size_t precision; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3681 #endif |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3682 #if NEED_PRINTF_UNBOUNDED_PRECISION |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3683 int prec_ourselves; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3684 #else |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3685 # define prec_ourselves 0 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3686 #endif |
|
9674
b69f1141e94f
Fix *printf behaviour regarding the left-adjust flag on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents:
9672
diff
changeset
|
3687 #if NEED_PRINTF_FLAG_LEFTADJUST |
|
b69f1141e94f
Fix *printf behaviour regarding the left-adjust flag on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents:
9672
diff
changeset
|
3688 # define pad_ourselves 1 |
|
b69f1141e94f
Fix *printf behaviour regarding the left-adjust flag on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents:
9672
diff
changeset
|
3689 #elif !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3690 int pad_ourselves; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3691 #else |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3692 # define pad_ourselves 0 |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3693 #endif |
| 8961 | 3694 TCHAR_T *fbp; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3695 unsigned int prefix_count; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3696 int prefixes[2]; |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
3697 #if !USE_SNPRINTF |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3698 size_t tmp_length; |
| 8962 | 3699 TCHAR_T tmpbuf[700]; |
| 3700 TCHAR_T *tmp; | |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3701 #endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3702 |
|
9674
b69f1141e94f
Fix *printf behaviour regarding the left-adjust flag on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents:
9672
diff
changeset
|
3703 #if !USE_SNPRINTF || !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_LEFTADJUST || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3704 has_width = 0; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3705 width = 0; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3706 if (dp->width_start != dp->width_end) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3707 { |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3708 if (dp->width_arg_index != ARG_NONE) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3709 { |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3710 int arg; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3711 |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3712 if (!(a.arg[dp->width_arg_index].type == TYPE_INT)) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3713 abort (); |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3714 arg = a.arg[dp->width_arg_index].a.a_int; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3715 if (arg < 0) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3716 { |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3717 /* "A negative field width is taken as a '-' flag |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3718 followed by a positive field width." */ |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3719 flags |= FLAG_LEFT; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3720 width = (unsigned int) (-arg); |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3721 } |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3722 else |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3723 width = arg; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3724 } |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3725 else |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3726 { |
| 8961 | 3727 const FCHAR_T *digitp = dp->width_start; |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3728 |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3729 do |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3730 width = xsum (xtimes (width, 10), *digitp++ - '0'); |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3731 while (digitp != dp->width_end); |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3732 } |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3733 has_width = 1; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3734 } |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3735 #endif |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3736 |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3737 #if !USE_SNPRINTF || NEED_PRINTF_UNBOUNDED_PRECISION |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3738 has_precision = 0; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3739 precision = 6; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3740 if (dp->precision_start != dp->precision_end) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3741 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3742 if (dp->precision_arg_index != ARG_NONE) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3743 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3744 int arg; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3745 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3746 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT)) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3747 abort (); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3748 arg = a.arg[dp->precision_arg_index].a.a_int; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3749 /* "A negative precision is taken as if the precision |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3750 were omitted." */ |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3751 if (arg >= 0) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3752 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3753 precision = arg; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3754 has_precision = 1; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3755 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3756 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3757 else |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3758 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3759 const FCHAR_T *digitp = dp->precision_start + 1; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3760 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3761 precision = 0; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3762 while (digitp != dp->precision_end) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3763 precision = xsum (xtimes (precision, 10), *digitp++ - '0'); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3764 has_precision = 1; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3765 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3766 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3767 #endif |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
3768 |
| 9834 | 3769 /* Decide whether to handle the precision ourselves. */ |
| 3770 #if NEED_PRINTF_UNBOUNDED_PRECISION | |
| 3771 switch (dp->conversion) | |
| 3772 { | |
| 3773 case 'd': case 'i': case 'u': | |
| 3774 case 'o': | |
| 3775 case 'x': case 'X': case 'p': | |
| 3776 prec_ourselves = has_precision && (precision > 0); | |
| 3777 break; | |
| 3778 default: | |
| 3779 prec_ourselves = 0; | |
| 3780 break; | |
| 3781 } | |
| 3782 #endif | |
| 3783 | |
| 3784 /* Decide whether to perform the padding ourselves. */ | |
| 3785 #if !NEED_PRINTF_FLAG_LEFTADJUST && (!DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION) | |
| 3786 switch (dp->conversion) | |
| 3787 { | |
| 3788 # if !DCHAR_IS_TCHAR || ENABLE_UNISTDIO | |
| 3789 /* If we need conversion from TCHAR_T[] to DCHAR_T[], we need | |
| 3790 to perform the padding after this conversion. Functions | |
| 3791 with unistdio extensions perform the padding based on | |
| 3792 character count rather than element count. */ | |
| 3793 case 'c': case 's': | |
| 3794 # endif | |
| 3795 # if NEED_PRINTF_FLAG_ZERO | |
| 3796 case 'f': case 'F': case 'e': case 'E': case 'g': case 'G': | |
| 3797 case 'a': case 'A': | |
| 3798 # endif | |
| 3799 pad_ourselves = 1; | |
| 3800 break; | |
| 3801 default: | |
| 3802 pad_ourselves = prec_ourselves; | |
| 3803 break; | |
| 3804 } | |
| 3805 #endif | |
| 3806 | |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
3807 #if !USE_SNPRINTF |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3808 /* Allocate a temporary buffer of sufficient size for calling |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3809 sprintf. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3810 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3811 switch (dp->conversion) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3812 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3813 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3814 case 'd': case 'i': case 'u': |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
3815 # if HAVE_LONG_LONG_INT |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3816 if (type == TYPE_LONGLONGINT || type == TYPE_ULONGLONGINT) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3817 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3818 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3819 * 0.30103 /* binary -> decimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3820 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3821 + 1; /* turn floor into ceil */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3822 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3823 # endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3824 if (type == TYPE_LONGINT || type == TYPE_ULONGINT) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3825 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3826 (unsigned int) (sizeof (unsigned long) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3827 * 0.30103 /* binary -> decimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3828 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3829 + 1; /* turn floor into ceil */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3830 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3831 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3832 (unsigned int) (sizeof (unsigned int) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3833 * 0.30103 /* binary -> decimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3834 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3835 + 1; /* turn floor into ceil */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3836 if (tmp_length < precision) |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3837 tmp_length = precision; |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3838 /* Multiply by 2, as an estimate for FLAG_GROUP. */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3839 tmp_length = xsum (tmp_length, tmp_length); |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3840 /* Add 1, to account for a leading sign. */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3841 tmp_length = xsum (tmp_length, 1); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3842 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3843 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3844 case 'o': |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
3845 # if HAVE_LONG_LONG_INT |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3846 if (type == TYPE_LONGLONGINT || type == TYPE_ULONGLONGINT) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3847 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3848 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3849 * 0.333334 /* binary -> octal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3850 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3851 + 1; /* turn floor into ceil */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3852 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3853 # endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3854 if (type == TYPE_LONGINT || type == TYPE_ULONGINT) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3855 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3856 (unsigned int) (sizeof (unsigned long) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3857 * 0.333334 /* binary -> octal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3858 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3859 + 1; /* turn floor into ceil */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3860 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3861 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3862 (unsigned int) (sizeof (unsigned int) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3863 * 0.333334 /* binary -> octal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3864 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3865 + 1; /* turn floor into ceil */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3866 if (tmp_length < precision) |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3867 tmp_length = precision; |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3868 /* Add 1, to account for a leading sign. */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3869 tmp_length = xsum (tmp_length, 1); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3870 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3871 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3872 case 'x': case 'X': |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
3873 # if HAVE_LONG_LONG_INT |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3874 if (type == TYPE_LONGLONGINT || type == TYPE_ULONGLONGINT) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3875 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3876 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3877 * 0.25 /* binary -> hexadecimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3878 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3879 + 1; /* turn floor into ceil */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3880 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3881 # endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3882 if (type == TYPE_LONGINT || type == TYPE_ULONGINT) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3883 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3884 (unsigned int) (sizeof (unsigned long) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3885 * 0.25 /* binary -> hexadecimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3886 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3887 + 1; /* turn floor into ceil */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3888 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3889 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3890 (unsigned int) (sizeof (unsigned int) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3891 * 0.25 /* binary -> hexadecimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3892 ) |
|
6583
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3893 + 1; /* turn floor into ceil */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3894 if (tmp_length < precision) |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3895 tmp_length = precision; |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3896 /* Add 2, to account for a leading sign or alternate form. */ |
|
eb8d54cb67a4
Fix an incorrect estimation of the sprintf result size.
Bruno Haible <bruno@clisp.org>
parents:
5848
diff
changeset
|
3897 tmp_length = xsum (tmp_length, 2); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3898 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3899 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3900 case 'f': case 'F': |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3901 if (type == TYPE_LONGDOUBLE) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3902 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3903 (unsigned int) (LDBL_MAX_EXP |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3904 * 0.30103 /* binary -> decimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3905 * 2 /* estimate for FLAG_GROUP */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3906 ) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3907 + 1 /* turn floor into ceil */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3908 + 10; /* sign, decimal point etc. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3909 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3910 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3911 (unsigned int) (DBL_MAX_EXP |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3912 * 0.30103 /* binary -> decimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3913 * 2 /* estimate for FLAG_GROUP */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3914 ) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3915 + 1 /* turn floor into ceil */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3916 + 10; /* sign, decimal point etc. */ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3917 tmp_length = xsum (tmp_length, precision); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3918 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3919 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3920 case 'e': case 'E': case 'g': case 'G': |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3921 tmp_length = |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3922 12; /* sign, decimal point, exponent etc. */ |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3923 tmp_length = xsum (tmp_length, precision); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3924 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3925 |
|
8254
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3926 case 'a': case 'A': |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3927 if (type == TYPE_LONGDOUBLE) |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3928 tmp_length = |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3929 (unsigned int) (LDBL_DIG |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3930 * 0.831 /* decimal -> hexadecimal */ |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3931 ) |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3932 + 1; /* turn floor into ceil */ |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3933 else |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3934 tmp_length = |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3935 (unsigned int) (DBL_DIG |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3936 * 0.831 /* decimal -> hexadecimal */ |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3937 ) |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3938 + 1; /* turn floor into ceil */ |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3939 if (tmp_length < precision) |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3940 tmp_length = precision; |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3941 /* Account for sign, decimal point etc. */ |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3942 tmp_length = xsum (tmp_length, 12); |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3943 break; |
|
bbea39ab5a58
Fix estimate of size needed for a 'a' or 'A' conversion.
Bruno Haible <bruno@clisp.org>
parents:
8051
diff
changeset
|
3944 |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3945 case 'c': |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
3946 # if HAVE_WINT_T && !WIDE_CHAR_VERSION |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3947 if (type == TYPE_WIDE_CHAR) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3948 tmp_length = MB_CUR_MAX; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3949 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3950 # endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3951 tmp_length = 1; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3952 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3953 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3954 case 's': |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
3955 # if HAVE_WCHAR_T |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3956 if (type == TYPE_WIDE_STRING) |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3957 { |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3958 tmp_length = |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3959 local_wcslen (a.arg[dp->arg_index].a.a_wide_string); |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3960 |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3961 # if !WIDE_CHAR_VERSION |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3962 tmp_length = xtimes (tmp_length, MB_CUR_MAX); |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
3963 # endif |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
3964 } |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3965 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3966 # endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3967 tmp_length = strlen (a.arg[dp->arg_index].a.a_string); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3968 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3969 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3970 case 'p': |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3971 tmp_length = |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3972 (unsigned int) (sizeof (void *) * CHAR_BIT |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3973 * 0.25 /* binary -> hexadecimal */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3974 ) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3975 + 1 /* turn floor into ceil */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3976 + 2; /* account for leading 0x */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3977 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3978 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3979 default: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3980 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3981 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3982 |
| 9834 | 3983 if (!pad_ourselves) |
| 3984 { | |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3985 # if ENABLE_UNISTDIO |
| 9834 | 3986 /* Padding considers the number of characters, therefore |
| 3987 the number of elements after padding may be | |
| 3988 > max (tmp_length, width) | |
| 3989 but is certainly | |
| 3990 <= tmp_length + width. */ | |
| 3991 tmp_length = xsum (tmp_length, width); | |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3992 # else |
| 9834 | 3993 /* Padding considers the number of elements, |
| 3994 says POSIX. */ | |
| 3995 if (tmp_length < width) | |
| 3996 tmp_length = width; | |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
3997 # endif |
| 9834 | 3998 } |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
3999 |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4000 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4001 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4002 |
| 8962 | 4003 if (tmp_length <= sizeof (tmpbuf) / sizeof (TCHAR_T)) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4004 tmp = tmpbuf; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4005 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4006 { |
| 8962 | 4007 size_t tmp_memsize = xtimes (tmp_length, sizeof (TCHAR_T)); |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4008 |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4009 if (size_overflow_p (tmp_memsize)) |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4010 /* Overflow, would lead to out of memory. */ |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4011 goto out_of_memory; |
| 8962 | 4012 tmp = (TCHAR_T *) malloc (tmp_memsize); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4013 if (tmp == NULL) |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4014 /* Out of memory. */ |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4015 goto out_of_memory; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4016 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4017 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4018 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4019 /* Construct the format string for calling snprintf or |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4020 sprintf. */ |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4021 fbp = buf; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4022 *fbp++ = '%'; |
|
8803
6c1d98929550
Work around lack of support of grouping flag.
Bruno Haible <bruno@clisp.org>
parents:
8664
diff
changeset
|
4023 #if NEED_PRINTF_FLAG_GROUPING |
|
6c1d98929550
Work around lack of support of grouping flag.
Bruno Haible <bruno@clisp.org>
parents:
8664
diff
changeset
|
4024 /* The underlying implementation doesn't support the ' flag. |
|
6c1d98929550
Work around lack of support of grouping flag.
Bruno Haible <bruno@clisp.org>
parents:
8664
diff
changeset
|
4025 Produce no grouping characters in this case; this is |
|
6c1d98929550
Work around lack of support of grouping flag.
Bruno Haible <bruno@clisp.org>
parents:
8664
diff
changeset
|
4026 acceptable because the grouping is locale dependent. */ |
|
6c1d98929550
Work around lack of support of grouping flag.
Bruno Haible <bruno@clisp.org>
parents:
8664
diff
changeset
|
4027 #else |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4028 if (flags & FLAG_GROUP) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4029 *fbp++ = '\''; |
|
8803
6c1d98929550
Work around lack of support of grouping flag.
Bruno Haible <bruno@clisp.org>
parents:
8664
diff
changeset
|
4030 #endif |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4031 if (flags & FLAG_LEFT) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4032 *fbp++ = '-'; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4033 if (flags & FLAG_SHOWSIGN) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4034 *fbp++ = '+'; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4035 if (flags & FLAG_SPACE) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4036 *fbp++ = ' '; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4037 if (flags & FLAG_ALT) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4038 *fbp++ = '#'; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4039 if (!pad_ourselves) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4040 { |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4041 if (flags & FLAG_ZERO) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4042 *fbp++ = '0'; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4043 if (dp->width_start != dp->width_end) |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4044 { |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4045 size_t n = dp->width_end - dp->width_start; |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4046 /* The width specification is known to consist only |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4047 of standard ASCII characters. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4048 if (sizeof (FCHAR_T) == sizeof (TCHAR_T)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4049 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4050 memcpy (fbp, dp->width_start, n * sizeof (TCHAR_T)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4051 fbp += n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4052 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4053 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4054 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4055 const FCHAR_T *mp = dp->width_start; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4056 do |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4057 *fbp++ = (unsigned char) *mp++; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4058 while (--n > 0); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4059 } |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4060 } |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4061 } |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4062 if (!prec_ourselves) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4063 { |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4064 if (dp->precision_start != dp->precision_end) |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4065 { |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4066 size_t n = dp->precision_end - dp->precision_start; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4067 /* The precision specification is known to consist only |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4068 of standard ASCII characters. */ |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4069 if (sizeof (FCHAR_T) == sizeof (TCHAR_T)) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4070 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4071 memcpy (fbp, dp->precision_start, n * sizeof (TCHAR_T)); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4072 fbp += n; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4073 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4074 else |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4075 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4076 const FCHAR_T *mp = dp->precision_start; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4077 do |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4078 *fbp++ = (unsigned char) *mp++; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4079 while (--n > 0); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4080 } |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4081 } |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4082 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4083 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4084 switch (type) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4085 { |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
4086 #if HAVE_LONG_LONG_INT |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4087 case TYPE_LONGLONGINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4088 case TYPE_ULONGLONGINT: |
|
8830
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4089 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__ |
|
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4090 *fbp++ = 'I'; |
|
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4091 *fbp++ = '6'; |
|
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4092 *fbp++ = '4'; |
|
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4093 break; |
|
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4094 # else |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4095 *fbp++ = 'l'; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4096 /*FALLTHROUGH*/ |
|
8830
abc2bcb16721
Support output of 64-bit numbers on mingw.
Bruno Haible <bruno@clisp.org>
parents:
8804
diff
changeset
|
4097 # endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4098 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4099 case TYPE_LONGINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4100 case TYPE_ULONGINT: |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
4101 #if HAVE_WINT_T |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4102 case TYPE_WIDE_CHAR: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4103 #endif |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
4104 #if HAVE_WCHAR_T |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4105 case TYPE_WIDE_STRING: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4106 #endif |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4107 *fbp++ = 'l'; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4108 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4109 case TYPE_LONGDOUBLE: |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4110 *fbp++ = 'L'; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4111 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4112 default: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4113 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4114 } |
|
8664
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4115 #if NEED_PRINTF_DIRECTIVE_F |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4116 if (dp->conversion == 'F') |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4117 *fbp = 'f'; |
|
8664
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4118 else |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4119 #endif |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4120 *fbp = dp->conversion; |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4121 #if USE_SNPRINTF |
|
9676
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4122 # if !(__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 3) || ((defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__)) |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4123 fbp[1] = '%'; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4124 fbp[2] = 'n'; |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4125 fbp[3] = '\0'; |
|
9361
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4126 # else |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4127 /* On glibc2 systems from glibc >= 2.3 - probably also older |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4128 ones - we know that snprintf's returns value conforms to |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4129 ISO C 99: the gl_SNPRINTF_DIRECTIVE_N test passes. |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4130 Therefore we can avoid using %n in this situation. |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4131 On glibc2 systems from 2004-10-18 or newer, the use of %n |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4132 in format strings in writable memory may crash the program |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4133 (if compiled with _FORTIFY_SOURCE=2), so we should avoid it |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4134 in this situation. */ |
|
9676
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4135 /* On native Win32 systems (such as mingw), we can avoid using |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4136 %n because: |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4137 - Although the gl_SNPRINTF_TRUNCATION_C99 test fails, |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4138 snprintf does not write more than the specified number |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4139 of bytes. (snprintf (buf, 3, "%d %d", 4567, 89) writes |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4140 '4', '5', '6' into buf, not '4', '5', '\0'.) |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4141 - Although the gl_SNPRINTF_RETVAL_C99 test fails, snprintf |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4142 allows us to recognize the case of an insufficient |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4143 buffer size: it returns -1 in this case. |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4144 On native Win32 systems (such as mingw) where the OS is |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4145 Windows Vista, the use of %n in format strings by default |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4146 crashes the program. See |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4147 <http://gcc.gnu.org/ml/gcc/2007-06/msg00122.html> and |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4148 <http://msdn2.microsoft.com/en-us/library/ms175782(VS.80).aspx> |
|
cbba7bfe013b
Don't use %n on native Woe32 systems, to avoid a crash on Windows Vista systems.
Bruno Haible <bruno@clisp.org>
parents:
9674
diff
changeset
|
4149 So we should avoid %n in this situation. */ |
|
9361
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4150 fbp[1] = '\0'; |
|
40389da21b02
Don't use %n on glibc >= 2.3 systems.
Bruno Haible <bruno@clisp.org>
parents:
9095
diff
changeset
|
4151 # endif |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4152 #else |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4153 fbp[1] = '\0'; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4154 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4155 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4156 /* Construct the arguments for calling snprintf or sprintf. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4157 prefix_count = 0; |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4158 if (!pad_ourselves && dp->width_arg_index != ARG_NONE) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4159 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4160 if (!(a.arg[dp->width_arg_index].type == TYPE_INT)) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4161 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4162 prefixes[prefix_count++] = a.arg[dp->width_arg_index].a.a_int; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4163 } |
|
4886
e4317f1f2e2c
Use size_t instead of ssize_t.
Bruno Haible <bruno@clisp.org>
parents:
4879
diff
changeset
|
4164 if (dp->precision_arg_index != ARG_NONE) |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4165 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4166 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT)) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4167 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4168 prefixes[prefix_count++] = a.arg[dp->precision_arg_index].a.a_int; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4169 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4170 |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4171 #if USE_SNPRINTF |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4172 /* The SNPRINTF result is appended after result[0..length]. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4173 The latter is an array of DCHAR_T; SNPRINTF appends an |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4174 array of TCHAR_T to it. This is possible because |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4175 sizeof (TCHAR_T) divides sizeof (DCHAR_T) and |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4176 alignof (TCHAR_T) <= alignof (DCHAR_T). */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4177 # define TCHARS_PER_DCHAR (sizeof (DCHAR_T) / sizeof (TCHAR_T)) |
|
9462
7bbddc0fae4a
Document and work around a BeOS snprintf() bug.
Bruno Haible <bruno@clisp.org>
parents:
9461
diff
changeset
|
4178 /* Ensure that maxlen below will be >= 2. Needed on BeOS, |
|
7bbddc0fae4a
Document and work around a BeOS snprintf() bug.
Bruno Haible <bruno@clisp.org>
parents:
9461
diff
changeset
|
4179 where an snprintf() with maxlen==1 acts like sprintf(). */ |
|
7bbddc0fae4a
Document and work around a BeOS snprintf() bug.
Bruno Haible <bruno@clisp.org>
parents:
9461
diff
changeset
|
4180 ENSURE_ALLOCATION (xsum (length, |
|
7bbddc0fae4a
Document and work around a BeOS snprintf() bug.
Bruno Haible <bruno@clisp.org>
parents:
9461
diff
changeset
|
4181 (2 + TCHARS_PER_DCHAR - 1) |
|
7bbddc0fae4a
Document and work around a BeOS snprintf() bug.
Bruno Haible <bruno@clisp.org>
parents:
9461
diff
changeset
|
4182 / TCHARS_PER_DCHAR)); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4183 /* Prepare checking whether snprintf returns the count |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4184 via %n. */ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4185 *(TCHAR_T *) (result + length) = '\0'; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4186 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4187 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4188 for (;;) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4189 { |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4190 int count = -1; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4191 |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4192 #if USE_SNPRINTF |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4193 int retcount = 0; |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4194 size_t maxlen = allocated - length; |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4195 /* SNPRINTF can fail if its second argument is |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4196 > INT_MAX. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4197 if (maxlen > INT_MAX / TCHARS_PER_DCHAR) |
|
9371
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4198 maxlen = INT_MAX / TCHARS_PER_DCHAR; |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4199 maxlen = maxlen * TCHARS_PER_DCHAR; |
| 4704 | 4200 # define SNPRINTF_BUF(arg) \ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4201 switch (prefix_count) \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4202 { \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4203 case 0: \ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4204 retcount = SNPRINTF ((TCHAR_T *) (result + length), \ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4205 maxlen, buf, \ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4206 arg, &count); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4207 break; \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4208 case 1: \ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4209 retcount = SNPRINTF ((TCHAR_T *) (result + length), \ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4210 maxlen, buf, \ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4211 prefixes[0], arg, &count); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4212 break; \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4213 case 2: \ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4214 retcount = SNPRINTF ((TCHAR_T *) (result + length), \ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4215 maxlen, buf, \ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4216 prefixes[0], prefixes[1], arg, \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4217 &count); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4218 break; \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4219 default: \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4220 abort (); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4221 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4222 #else |
| 4704 | 4223 # define SNPRINTF_BUF(arg) \ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4224 switch (prefix_count) \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4225 { \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4226 case 0: \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4227 count = sprintf (tmp, buf, arg); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4228 break; \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4229 case 1: \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4230 count = sprintf (tmp, buf, prefixes[0], arg); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4231 break; \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4232 case 2: \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4233 count = sprintf (tmp, buf, prefixes[0], prefixes[1],\ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4234 arg); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4235 break; \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4236 default: \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4237 abort (); \ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4238 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4239 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4240 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4241 switch (type) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4242 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4243 case TYPE_SCHAR: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4244 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4245 int arg = a.arg[dp->arg_index].a.a_schar; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4246 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4247 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4248 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4249 case TYPE_UCHAR: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4250 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4251 unsigned int arg = a.arg[dp->arg_index].a.a_uchar; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4252 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4253 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4254 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4255 case TYPE_SHORT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4256 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4257 int arg = a.arg[dp->arg_index].a.a_short; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4258 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4259 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4260 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4261 case TYPE_USHORT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4262 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4263 unsigned int arg = a.arg[dp->arg_index].a.a_ushort; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4264 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4265 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4266 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4267 case TYPE_INT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4268 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4269 int arg = a.arg[dp->arg_index].a.a_int; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4270 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4271 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4272 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4273 case TYPE_UINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4274 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4275 unsigned int arg = a.arg[dp->arg_index].a.a_uint; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4276 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4277 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4278 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4279 case TYPE_LONGINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4280 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4281 long int arg = a.arg[dp->arg_index].a.a_longint; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4282 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4283 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4284 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4285 case TYPE_ULONGINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4286 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4287 unsigned long int arg = a.arg[dp->arg_index].a.a_ulongint; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4288 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4289 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4290 break; |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
4291 #if HAVE_LONG_LONG_INT |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4292 case TYPE_LONGLONGINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4293 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4294 long long int arg = a.arg[dp->arg_index].a.a_longlongint; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4295 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4296 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4297 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4298 case TYPE_ULONGLONGINT: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4299 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4300 unsigned long long int arg = a.arg[dp->arg_index].a.a_ulonglongint; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4301 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4302 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4303 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4304 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4305 case TYPE_DOUBLE: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4306 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4307 double arg = a.arg[dp->arg_index].a.a_double; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4308 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4309 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4310 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4311 case TYPE_LONGDOUBLE: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4312 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4313 long double arg = a.arg[dp->arg_index].a.a_longdouble; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4314 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4315 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4316 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4317 case TYPE_CHAR: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4318 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4319 int arg = a.arg[dp->arg_index].a.a_char; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4320 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4321 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4322 break; |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
4323 #if HAVE_WINT_T |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4324 case TYPE_WIDE_CHAR: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4325 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4326 wint_t arg = a.arg[dp->arg_index].a.a_wide_char; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4327 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4328 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4329 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4330 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4331 case TYPE_STRING: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4332 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4333 const char *arg = a.arg[dp->arg_index].a.a_string; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4334 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4335 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4336 break; |
|
8051
9c2b0396b27c
Stylistic change: Use '#if HAVE_*' instead of '#ifdef HAVE_*'.
Bruno Haible <bruno@clisp.org>
parents:
7475
diff
changeset
|
4337 #if HAVE_WCHAR_T |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4338 case TYPE_WIDE_STRING: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4339 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4340 const wchar_t *arg = a.arg[dp->arg_index].a.a_wide_string; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4341 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4342 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4343 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4344 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4345 case TYPE_POINTER: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4346 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4347 void *arg = a.arg[dp->arg_index].a.a_pointer; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4348 SNPRINTF_BUF (arg); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4349 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4350 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4351 default: |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4352 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4353 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4354 |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4355 #if USE_SNPRINTF |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4356 /* Portability: Not all implementations of snprintf() |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4357 are ISO C 99 compliant. Determine the number of |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4358 bytes that snprintf() has produced or would have |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4359 produced. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4360 if (count >= 0) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4361 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4362 /* Verify that snprintf() has NUL-terminated its |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4363 result. */ |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4364 if (count < maxlen |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4365 && ((TCHAR_T *) (result + length)) [count] != '\0') |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4366 abort (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4367 /* Portability hack. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4368 if (retcount > count) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4369 count = retcount; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4370 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4371 else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4372 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4373 /* snprintf() doesn't understand the '%n' |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4374 directive. */ |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4375 if (fbp[1] != '\0') |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4376 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4377 /* Don't use the '%n' directive; instead, look |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4378 at the snprintf() return value. */ |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4379 fbp[1] = '\0'; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4380 continue; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4381 } |
|
4801
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4382 else |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4383 { |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4384 /* Look at the snprintf() return value. */ |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4385 if (retcount < 0) |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4386 { |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4387 /* HP-UX 10.20 snprintf() is doubly deficient: |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4388 It doesn't understand the '%n' directive, |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4389 *and* it returns -1 (rather than the length |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4390 that would have been required) when the |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4391 buffer is too small. */ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4392 size_t bigger_need = |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4393 xsum (xtimes (allocated, 2), 12); |
|
4801
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4394 ENSURE_ALLOCATION (bigger_need); |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4395 continue; |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4396 } |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4397 else |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4398 count = retcount; |
|
83746ec4d74a
Portability to HP-UX 10, found by Jim Meyering.
Bruno Haible <bruno@clisp.org>
parents:
4704
diff
changeset
|
4399 } |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4400 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4401 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4402 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4403 /* Attempt to handle failure. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4404 if (count < 0) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4405 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4406 if (!(result == resultbuf || result == NULL)) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4407 free (result); |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4408 if (buf_malloced != NULL) |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4409 free (buf_malloced); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4410 CLEANUP (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4411 errno = EINVAL; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4412 return NULL; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4413 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4414 |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4415 #if USE_SNPRINTF |
|
9439
9d292d1d891c
Fix detection of overflow: don't assume that snprintf is C99 compliant.
Bruno Haible <bruno@clisp.org>
parents:
9438
diff
changeset
|
4416 /* Handle overflow of the allocated buffer. |
|
9d292d1d891c
Fix detection of overflow: don't assume that snprintf is C99 compliant.
Bruno Haible <bruno@clisp.org>
parents:
9438
diff
changeset
|
4417 If such an overflow occurs, a C99 compliant snprintf() |
|
9d292d1d891c
Fix detection of overflow: don't assume that snprintf is C99 compliant.
Bruno Haible <bruno@clisp.org>
parents:
9438
diff
changeset
|
4418 returns a count >= maxlen. However, a non-compliant |
|
9d292d1d891c
Fix detection of overflow: don't assume that snprintf is C99 compliant.
Bruno Haible <bruno@clisp.org>
parents:
9438
diff
changeset
|
4419 snprintf() function returns only count = maxlen - 1. To |
|
9d292d1d891c
Fix detection of overflow: don't assume that snprintf is C99 compliant.
Bruno Haible <bruno@clisp.org>
parents:
9438
diff
changeset
|
4420 cover both cases, test whether count >= maxlen - 1. */ |
|
9d292d1d891c
Fix detection of overflow: don't assume that snprintf is C99 compliant.
Bruno Haible <bruno@clisp.org>
parents:
9438
diff
changeset
|
4421 if ((unsigned int) count + 1 >= maxlen) |
|
8837
6d6277df29a9
Fix logic bug introduced on 2007-05-06.
Bruno Haible <bruno@clisp.org>
parents:
8835
diff
changeset
|
4422 { |
|
9371
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4423 /* If maxlen already has attained its allowed maximum, |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4424 allocating more memory will not increase maxlen. |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4425 Instead of looping, bail out. */ |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4426 if (maxlen == INT_MAX / TCHARS_PER_DCHAR) |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4427 goto overflow; |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4428 else |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4429 { |
|
9461
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4430 /* Need at least (count + 1) * sizeof (TCHAR_T) |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4431 bytes. (The +1 is for the trailing NUL.) |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4432 But ask for (count + 2) * sizeof (TCHAR_T) |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4433 bytes, so that in the next round, we likely get |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4434 maxlen > (unsigned int) count + 1 |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4435 and so we don't get here again. |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4436 And allocate proportionally, to avoid looping |
|
9371
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4437 eternally if snprintf() reports a too small |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4438 count. */ |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4439 size_t n = |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4440 xmax (xsum (length, |
|
9461
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4441 ((unsigned int) count + 2 |
|
c6d483077434
Fix inefficiency introduced on 2007-11-03.
Bruno Haible <bruno@clisp.org>
parents:
9454
diff
changeset
|
4442 + TCHARS_PER_DCHAR - 1) |
|
9371
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4443 / TCHARS_PER_DCHAR), |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4444 xtimes (allocated, 2)); |
|
8837
6d6277df29a9
Fix logic bug introduced on 2007-05-06.
Bruno Haible <bruno@clisp.org>
parents:
8835
diff
changeset
|
4445 |
|
9371
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4446 ENSURE_ALLOCATION (n); |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4447 continue; |
|
8b3c48038257
Don't report an unjustified overflow error.
Bruno Haible <bruno@clisp.org>
parents:
9361
diff
changeset
|
4448 } |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4449 } |
|
8837
6d6277df29a9
Fix logic bug introduced on 2007-05-06.
Bruno Haible <bruno@clisp.org>
parents:
8835
diff
changeset
|
4450 #endif |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4451 |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4452 #if NEED_PRINTF_UNBOUNDED_PRECISION |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4453 if (prec_ourselves) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4454 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4455 /* Handle the precision. */ |
|
9651
cee38e50f29c
vasnprintf.c: Avoid warning about unused label
Jim Meyering <meyering@redhat.com>
parents:
9646
diff
changeset
|
4456 TCHAR_T *prec_ptr = |
|
9446
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4457 # if USE_SNPRINTF |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4458 (TCHAR_T *) (result + length); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4459 # else |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4460 tmp; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4461 # endif |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4462 size_t prefix_count; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4463 size_t move; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4464 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4465 prefix_count = 0; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4466 /* Put the additional zeroes after the sign. */ |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4467 if (count >= 1 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4468 && (*prec_ptr == '-' || *prec_ptr == '+' |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4469 || *prec_ptr == ' ')) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4470 prefix_count = 1; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4471 /* Put the additional zeroes after the 0x prefix if |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4472 (flags & FLAG_ALT) || (dp->conversion == 'p'). */ |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4473 else if (count >= 2 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4474 && prec_ptr[0] == '0' |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4475 && (prec_ptr[1] == 'x' || prec_ptr[1] == 'X')) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4476 prefix_count = 2; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4477 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4478 move = count - prefix_count; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4479 if (precision > move) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4480 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4481 /* Insert zeroes. */ |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4482 size_t insert = precision - move; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4483 TCHAR_T *prec_end; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4484 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4485 # if USE_SNPRINTF |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4486 size_t n = |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4487 xsum (length, |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4488 (count + insert + TCHARS_PER_DCHAR - 1) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4489 / TCHARS_PER_DCHAR); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4490 length += (count + TCHARS_PER_DCHAR - 1) / TCHARS_PER_DCHAR; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4491 ENSURE_ALLOCATION (n); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4492 length -= (count + TCHARS_PER_DCHAR - 1) / TCHARS_PER_DCHAR; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4493 prec_ptr = (TCHAR_T *) (result + length); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4494 # endif |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4495 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4496 prec_end = prec_ptr + count; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4497 prec_ptr += prefix_count; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4498 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4499 while (prec_end > prec_ptr) |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4500 { |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4501 prec_end--; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4502 prec_end[insert] = prec_end[0]; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4503 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4504 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4505 prec_end += insert; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4506 do |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4507 *--prec_end = '0'; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4508 while (prec_end > prec_ptr); |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4509 |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4510 count += insert; |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4511 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4512 } |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4513 #endif |
|
0519fc8ce06a
Fix *printf behaviour for large precisions on mingw and BeOS.
Bruno Haible <bruno@clisp.org>
parents:
9445
diff
changeset
|
4514 |
| 9834 | 4515 #if !USE_SNPRINTF |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4516 if (count >= tmp_length) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4517 /* tmp_length was incorrectly calculated - fix the |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4518 code above! */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4519 abort (); |
| 9834 | 4520 #endif |
| 4521 | |
| 4522 #if !DCHAR_IS_TCHAR | |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4523 /* Convert from TCHAR_T[] to DCHAR_T[]. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4524 if (dp->conversion == 'c' || dp->conversion == 's') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4525 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4526 /* type = TYPE_CHAR or TYPE_WIDE_CHAR or TYPE_STRING |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4527 TYPE_WIDE_STRING. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4528 The result string is not certainly ASCII. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4529 const TCHAR_T *tmpsrc; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4530 DCHAR_T *tmpdst; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4531 size_t tmpdst_len; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4532 /* This code assumes that TCHAR_T is 'char'. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4533 typedef int TCHAR_T_verify |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4534 [2 * (sizeof (TCHAR_T) == 1) - 1]; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4535 # if USE_SNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4536 tmpsrc = (TCHAR_T *) (result + length); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4537 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4538 tmpsrc = tmp; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4539 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4540 tmpdst = NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4541 tmpdst_len = 0; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4542 if (DCHAR_CONV_FROM_ENCODING (locale_charset (), |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4543 iconveh_question_mark, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4544 tmpsrc, count, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4545 NULL, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4546 &tmpdst, &tmpdst_len) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4547 < 0) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4548 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4549 int saved_errno = errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4550 if (!(result == resultbuf || result == NULL)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4551 free (result); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4552 if (buf_malloced != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4553 free (buf_malloced); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4554 CLEANUP (); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4555 errno = saved_errno; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4556 return NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4557 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4558 ENSURE_ALLOCATION (xsum (length, tmpdst_len)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4559 DCHAR_CPY (result + length, tmpdst, tmpdst_len); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4560 free (tmpdst); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4561 count = tmpdst_len; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4562 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4563 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4564 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4565 /* The result string is ASCII. |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4566 Simple 1:1 conversion. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4567 # if USE_SNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4568 /* If sizeof (DCHAR_T) == sizeof (TCHAR_T), it's a |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4569 no-op conversion, in-place on the array starting |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4570 at (result + length). */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4571 if (sizeof (DCHAR_T) != sizeof (TCHAR_T)) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4572 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4573 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4574 const TCHAR_T *tmpsrc; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4575 DCHAR_T *tmpdst; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4576 size_t n; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4577 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4578 # if USE_SNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4579 if (result == resultbuf) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4580 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4581 tmpsrc = (TCHAR_T *) (result + length); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4582 /* ENSURE_ALLOCATION will not move tmpsrc |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4583 (because it's part of resultbuf). */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4584 ENSURE_ALLOCATION (xsum (length, count)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4585 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4586 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4587 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4588 /* ENSURE_ALLOCATION will move the array |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4589 (because it uses realloc(). */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4590 ENSURE_ALLOCATION (xsum (length, count)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4591 tmpsrc = (TCHAR_T *) (result + length); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4592 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4593 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4594 tmpsrc = tmp; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4595 ENSURE_ALLOCATION (xsum (length, count)); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4596 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4597 tmpdst = result + length; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4598 /* Copy backwards, because of overlapping. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4599 tmpsrc += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4600 tmpdst += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4601 for (n = count; n > 0; n--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4602 *--tmpdst = (unsigned char) *--tmpsrc; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4603 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4604 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4605 #endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4606 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4607 #if DCHAR_IS_TCHAR && !USE_SNPRINTF |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4608 /* Make room for the result. */ |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4609 if (count > allocated - length) |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4610 { |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4611 /* Need at least count elements. But allocate |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4612 proportionally. */ |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4613 size_t n = |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4614 xmax (xsum (length, count), xtimes (allocated, 2)); |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4615 |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4616 ENSURE_ALLOCATION (n); |
|
8837
6d6277df29a9
Fix logic bug introduced on 2007-05-06.
Bruno Haible <bruno@clisp.org>
parents:
8835
diff
changeset
|
4617 } |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4618 #endif |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4619 |
|
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4620 /* Here count <= allocated - length. */ |
|
8837
6d6277df29a9
Fix logic bug introduced on 2007-05-06.
Bruno Haible <bruno@clisp.org>
parents:
8835
diff
changeset
|
4621 |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4622 /* Perform padding. */ |
|
9674
b69f1141e94f
Fix *printf behaviour regarding the left-adjust flag on HP-UX 10.20.
Bruno Haible <bruno@clisp.org>
parents:
9672
diff
changeset
|
4623 #if !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_LEFTADJUST || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4624 if (pad_ourselves && has_width) |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4625 { |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4626 size_t w; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4627 # if ENABLE_UNISTDIO |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4628 /* Outside POSIX, it's preferrable to compare the width |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4629 against the number of _characters_ of the converted |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4630 value. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4631 w = DCHAR_MBSNLEN (result + length, count); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4632 # else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4633 /* The width is compared against the number of _bytes_ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4634 of the converted value, says POSIX. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4635 w = count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4636 # endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4637 if (w < width) |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4638 { |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4639 size_t pad = width - w; |
| 9834 | 4640 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4641 /* Make room for the result. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4642 if (xsum (count, pad) > allocated - length) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4643 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4644 /* Need at least count + pad elements. But |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4645 allocate proportionally. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4646 size_t n = |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4647 xmax (xsum3 (length, count, pad), |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4648 xtimes (allocated, 2)); |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4649 |
| 9834 | 4650 # if USE_SNPRINTF |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4651 length += count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4652 ENSURE_ALLOCATION (n); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4653 length -= count; |
| 9834 | 4654 # else |
| 4655 ENSURE_ALLOCATION (n); | |
| 4656 # endif | |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4657 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4658 /* Here count + pad <= allocated - length. */ |
| 9834 | 4659 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4660 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4661 # if !DCHAR_IS_TCHAR || USE_SNPRINTF |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4662 DCHAR_T * const rp = result + length; |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4663 # else |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4664 DCHAR_T * const rp = tmp; |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4665 # endif |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4666 DCHAR_T *p = rp + count; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4667 DCHAR_T *end = p + pad; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4668 DCHAR_T *pad_ptr; |
|
9827
32d08ee66484
Fix a bug in unistdio routines, introduced on 2007-06-10.
Bruno Haible <bruno@clisp.org>
parents:
9676
diff
changeset
|
4669 # if !DCHAR_IS_TCHAR || ENABLE_UNISTDIO |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4670 if (dp->conversion == 'c' |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4671 || dp->conversion == 's') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4672 /* No zero-padding for string directives. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4673 pad_ptr = NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4674 else |
|
9672
c0fb9d4d860d
Fix bug introduced on 2007-06-10.
Bruno Haible <bruno@clisp.org>
parents:
9651
diff
changeset
|
4675 # endif |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4676 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4677 pad_ptr = (*rp == '-' ? rp + 1 : rp); |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4678 /* No zero-padding of "inf" and "nan". */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4679 if ((*pad_ptr >= 'A' && *pad_ptr <= 'Z') |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4680 || (*pad_ptr >= 'a' && *pad_ptr <= 'z')) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4681 pad_ptr = NULL; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4682 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4683 /* The generated string now extends from rp to p, |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4684 with the zero padding insertion point being at |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4685 pad_ptr. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4686 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4687 count = count + pad; /* = end - rp */ |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4688 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4689 if (flags & FLAG_LEFT) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4690 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4691 /* Pad with spaces on the right. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4692 for (; pad > 0; pad--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4693 *p++ = ' '; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4694 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4695 else if ((flags & FLAG_ZERO) && pad_ptr != NULL) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4696 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4697 /* Pad with zeroes. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4698 DCHAR_T *q = end; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4699 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4700 while (p > pad_ptr) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4701 *--q = *--p; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4702 for (; pad > 0; pad--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4703 *p++ = '0'; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4704 } |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4705 else |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4706 { |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4707 /* Pad with spaces on the left. */ |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4708 DCHAR_T *q = end; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4709 |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4710 while (p > rp) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4711 *--q = *--p; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4712 for (; pad > 0; pad--) |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4713 *p++ = ' '; |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4714 } |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4715 } |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4716 } |
|
8804
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4717 } |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4718 #endif |
|
6ce313658b4d
Work around an incorrect implementation of the 0 flag on most platforms.
Bruno Haible <bruno@clisp.org>
parents:
8803
diff
changeset
|
4719 |
|
8963
f2b97e5b14f5
Tweak the size computations and reallocations.
Bruno Haible <bruno@clisp.org>
parents:
8962
diff
changeset
|
4720 /* Here still count <= allocated - length. */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4721 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4722 #if !DCHAR_IS_TCHAR || USE_SNPRINTF |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4723 /* The snprintf() result did fit. */ |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4724 #else |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4725 /* Append the sprintf() result. */ |
| 8961 | 4726 memcpy (result + length, tmp, count * sizeof (DCHAR_T)); |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4727 #endif |
|
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4728 #if !USE_SNPRINTF |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4729 if (tmp != tmpbuf) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4730 free (tmp); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4731 #endif |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4732 |
|
8664
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4733 #if NEED_PRINTF_DIRECTIVE_F |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4734 if (dp->conversion == 'F') |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4735 { |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4736 /* Convert the %f result to upper case for %F. */ |
| 8961 | 4737 DCHAR_T *rp = result + length; |
|
8664
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4738 size_t rc; |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4739 for (rc = count; rc > 0; rc--, rp++) |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4740 if (*rp >= 'a' && *rp <= 'z') |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4741 *rp = *rp - 'a' + 'A'; |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4742 } |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4743 #endif |
|
40c507f55b0f
Implement the %F directive if the system doesn't implement it correctly.
Bruno Haible <bruno@clisp.org>
parents:
8655
diff
changeset
|
4744 |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4745 length += count; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4746 break; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4747 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4748 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4749 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4750 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4751 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4752 /* Add the final NUL. */ |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4753 ENSURE_ALLOCATION (xsum (length, 1)); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4754 result[length] = '\0'; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4755 |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4756 if (result != resultbuf && length + 1 < allocated) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4757 { |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4758 /* Shrink the allocated memory if possible. */ |
| 8961 | 4759 DCHAR_T *memory; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4760 |
| 8961 | 4761 memory = (DCHAR_T *) realloc (result, (length + 1) * sizeof (DCHAR_T)); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4762 if (memory != NULL) |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4763 result = memory; |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4764 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4765 |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4766 if (buf_malloced != NULL) |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4767 free (buf_malloced); |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4768 CLEANUP (); |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4769 *lengthp = length; |
|
7218
0fd12ba5cfc6
Do the INT_MAX check only where size_t is converted to 'int'.
Bruno Haible <bruno@clisp.org>
parents:
6583
diff
changeset
|
4770 /* Note that we can produce a big string of a length > INT_MAX. POSIX |
|
0fd12ba5cfc6
Do the INT_MAX check only where size_t is converted to 'int'.
Bruno Haible <bruno@clisp.org>
parents:
6583
diff
changeset
|
4771 says that snprintf() fails with errno = EOVERFLOW in this case, but |
|
0fd12ba5cfc6
Do the INT_MAX check only where size_t is converted to 'int'.
Bruno Haible <bruno@clisp.org>
parents:
6583
diff
changeset
|
4772 that's only because snprintf() returns an 'int'. This function does |
|
0fd12ba5cfc6
Do the INT_MAX check only where size_t is converted to 'int'.
Bruno Haible <bruno@clisp.org>
parents:
6583
diff
changeset
|
4773 not have this limitation. */ |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4774 return result; |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4775 |
|
9651
cee38e50f29c
vasnprintf.c: Avoid warning about unused label
Jim Meyering <meyering@redhat.com>
parents:
9646
diff
changeset
|
4776 #if USE_SNPRINTF |
|
8468
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4777 overflow: |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4778 if (!(result == resultbuf || result == NULL)) |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4779 free (result); |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4780 if (buf_malloced != NULL) |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4781 free (buf_malloced); |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4782 CLEANUP (); |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4783 errno = EOVERFLOW; |
|
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4784 return NULL; |
|
9651
cee38e50f29c
vasnprintf.c: Avoid warning about unused label
Jim Meyering <meyering@redhat.com>
parents:
9646
diff
changeset
|
4785 #endif |
|
8468
336e69863755
Fix endless loop when the given allocated size was > INT_MAX.
Bruno Haible <bruno@clisp.org>
parents:
8465
diff
changeset
|
4786 |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4787 out_of_memory: |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4788 if (!(result == resultbuf || result == NULL)) |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4789 free (result); |
|
4879
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4790 if (buf_malloced != NULL) |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4791 free (buf_malloced); |
|
9b96adbed643
Avoid alloca with too large size.
Bruno Haible <bruno@clisp.org>
parents:
4872
diff
changeset
|
4792 out_of_memory_1: |
|
4872
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4793 CLEANUP (); |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4794 errno = ENOMEM; |
|
c5afc99b8ce5
Use xsize.h to protect against memory size overflows.
Bruno Haible <bruno@clisp.org>
parents:
4871
diff
changeset
|
4795 return NULL; |
|
4224
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4796 } |
|
83eabea25586
New modules vasnprintf and vasprintf.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4797 } |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4798 |
|
8973
7df86a1985e4
Add support for Unicode strings (both as output format and as arguments to
Bruno Haible <bruno@clisp.org>
parents:
8963
diff
changeset
|
4799 #undef TCHARS_PER_DCHAR |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4800 #undef SNPRINTF |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4801 #undef USE_SNPRINTF |
|
9450
9928de4bfe8a
Undefine two macros after they are not needed any more.
Bruno Haible <bruno@clisp.org>
parents:
9446
diff
changeset
|
4802 #undef DCHAR_CPY |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4803 #undef PRINTF_PARSE |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4804 #undef DIRECTIVES |
|
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4805 #undef DIRECTIVE |
|
9450
9928de4bfe8a
Undefine two macros after they are not needed any more.
Bruno Haible <bruno@clisp.org>
parents:
9446
diff
changeset
|
4806 #undef DCHAR_IS_TCHAR |
| 8961 | 4807 #undef TCHAR_T |
| 4808 #undef DCHAR_T | |
| 4809 #undef FCHAR_T | |
|
4871
87df35000dab
Merge support for wide characters, from GNU gettext.
Bruno Haible <bruno@clisp.org>
parents:
4801
diff
changeset
|
4810 #undef VASNPRINTF |