annotate lib/vasnprintf.c @ 448:5cccf90bf838 3.0 tip

Fixed bug with complex external references generating invalid relocations in the object file
author lost@l-w.ca
date Fri, 05 Nov 2010 22:27:00 -0600
parents b8bf63962a99
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
434
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1 /* vsprintf with automatic memory allocation.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2 Copyright (C) 1999, 2002-2010 Free Software Foundation, Inc.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
6 the Free Software Foundation; either version 3, or (at your option)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
7 any later version.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
8
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
12 GNU General Public License for more details.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
13
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
14 You should have received a copy of the GNU General Public License along
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
15 with this program; if not, write to the Free Software Foundation,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
16 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
17
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
18 /* This file can be parametrized with the following macros:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
19 VASNPRINTF The name of the function being defined.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
20 FCHAR_T The element type of the format string.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
21 DCHAR_T The element type of the destination (result) string.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
22 FCHAR_T_ONLY_ASCII Set to 1 to enable verification that all characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
23 in the format string are ASCII. MUST be set if
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
24 FCHAR_T and DCHAR_T are not the same type.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
25 DIRECTIVE Structure denoting a format directive.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
26 Depends on FCHAR_T.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
27 DIRECTIVES Structure denoting the set of format directives of a
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
28 format string. Depends on FCHAR_T.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
29 PRINTF_PARSE Function that parses a format string.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
30 Depends on FCHAR_T.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
31 DCHAR_CPY memcpy like function for DCHAR_T[] arrays.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
32 DCHAR_SET memset like function for DCHAR_T[] arrays.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
33 DCHAR_MBSNLEN mbsnlen like function for DCHAR_T[] arrays.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
34 SNPRINTF The system's snprintf (or similar) function.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
35 This may be either snprintf or swprintf.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
36 TCHAR_T The element type of the argument and result string
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
37 of the said SNPRINTF function. This may be either
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
38 char or wchar_t. The code exploits that
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
39 sizeof (TCHAR_T) | sizeof (DCHAR_T) and
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
40 alignof (TCHAR_T) <= alignof (DCHAR_T).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
41 DCHAR_IS_TCHAR Set to 1 if DCHAR_T and TCHAR_T are the same type.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
42 DCHAR_CONV_FROM_ENCODING A function to convert from char[] to DCHAR[].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
43 DCHAR_IS_UINT8_T Set to 1 if DCHAR_T is uint8_t.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
44 DCHAR_IS_UINT16_T Set to 1 if DCHAR_T is uint16_t.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
45 DCHAR_IS_UINT32_T Set to 1 if DCHAR_T is uint32_t. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
46
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
47 /* Tell glibc's <stdio.h> to provide a prototype for snprintf().
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
48 This must come before <config.h> because <config.h> may include
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
49 <features.h>, and once <features.h> has been included, it's too late. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
50 #ifndef _GNU_SOURCE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
51 # define _GNU_SOURCE 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
52 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
53
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
54 #ifndef VASNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
55 # include <config.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
56 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
57 #ifndef IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
58 # include <alloca.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
59 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
60
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
61 /* Specification. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
62 #ifndef VASNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
63 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
64 # include "vasnwprintf.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
65 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
66 # include "vasnprintf.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
67 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
68 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
69
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
70 #include <locale.h> /* localeconv() */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
71 #include <stdio.h> /* snprintf(), sprintf() */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
72 #include <stdlib.h> /* abort(), malloc(), realloc(), free() */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
73 #include <string.h> /* memcpy(), strlen() */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
74 #include <errno.h> /* errno */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
75 #include <limits.h> /* CHAR_BIT */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
76 #include <float.h> /* DBL_MAX_EXP, LDBL_MAX_EXP */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
77 #if HAVE_NL_LANGINFO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
78 # include <langinfo.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
79 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
80 #ifndef VASNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
81 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
82 # include "wprintf-parse.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
83 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
84 # include "printf-parse.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
85 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
86 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
87
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
88 /* Checked size_t computations. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
89 #include "xsize.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
90
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
91 #if (NEED_PRINTF_DOUBLE || NEED_PRINTF_LONG_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
92 # include <math.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
93 # include "float+.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
94 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
95
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
96 #if (NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
97 # include <math.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
98 # include "isnand-nolibm.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
99 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
100
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
101 #if (NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
102 # include <math.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
103 # include "isnanl-nolibm.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
104 # include "fpucw.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
105 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
106
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
107 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
108 # include <math.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
109 # include "isnand-nolibm.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
110 # include "printf-frexp.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
111 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
112
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
113 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
114 # include <math.h>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
115 # include "isnanl-nolibm.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
116 # include "printf-frexpl.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
117 # include "fpucw.h"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
118 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
119
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
120 /* Default parameters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
121 #ifndef VASNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
122 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
123 # define VASNPRINTF vasnwprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
124 # define FCHAR_T wchar_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
125 # define DCHAR_T wchar_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
126 # define TCHAR_T wchar_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
127 # define DCHAR_IS_TCHAR 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
128 # define DIRECTIVE wchar_t_directive
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
129 # define DIRECTIVES wchar_t_directives
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
130 # define PRINTF_PARSE wprintf_parse
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
131 # define DCHAR_CPY wmemcpy
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
132 # define DCHAR_SET wmemset
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
133 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
134 # define VASNPRINTF vasnprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
135 # define FCHAR_T char
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
136 # define DCHAR_T char
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
137 # define TCHAR_T char
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
138 # define DCHAR_IS_TCHAR 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
139 # define DIRECTIVE char_directive
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
140 # define DIRECTIVES char_directives
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
141 # define PRINTF_PARSE printf_parse
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
142 # define DCHAR_CPY memcpy
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
143 # define DCHAR_SET memset
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
144 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
145 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
146 #if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
147 /* TCHAR_T is wchar_t. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
148 # define USE_SNPRINTF 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
149 # if HAVE_DECL__SNWPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
150 /* On Windows, the function swprintf() has a different signature than
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
151 on Unix; we use the _snwprintf() function instead. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
152 # define SNPRINTF _snwprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
153 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
154 /* Unix. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
155 # define SNPRINTF swprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
156 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
157 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
158 /* TCHAR_T is char. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
159 /* Use snprintf if it exists under the name 'snprintf' or '_snprintf'.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
160 But don't use it on BeOS, since BeOS snprintf produces no output if the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
161 size argument is >= 0x3000000.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
162 Also don't use it on Linux libc5, since there snprintf with size = 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
163 writes any output without bounds, like sprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
164 # if (HAVE_DECL__SNPRINTF || HAVE_SNPRINTF) && !defined __BEOS__ && !(__GNU_LIBRARY__ == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
165 # define USE_SNPRINTF 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
166 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
167 # define USE_SNPRINTF 0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
168 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
169 # if HAVE_DECL__SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
170 /* Windows. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
171 # define SNPRINTF _snprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
172 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
173 /* Unix. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
174 # define SNPRINTF snprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
175 /* Here we need to call the native snprintf, not rpl_snprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
176 # undef snprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
177 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
178 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
179 /* Here we need to call the native sprintf, not rpl_sprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
180 #undef sprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
181
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
182 /* GCC >= 4.0 with -Wall emits unjustified "... may be used uninitialized"
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
183 warnings in this file. Use -Dlint to suppress them. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
184 #ifdef lint
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
185 # define IF_LINT(Code) Code
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
186 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
187 # define IF_LINT(Code) /* empty */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
188 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
189
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
190 /* Avoid some warnings from "gcc -Wshadow".
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
191 This file doesn't use the exp() and remainder() functions. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
192 #undef exp
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
193 #define exp expo
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
194 #undef remainder
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
195 #define remainder rem
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
196
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
197 #if !USE_SNPRINTF && !WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
198 # if (HAVE_STRNLEN && !defined _AIX)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
199 # define local_strnlen strnlen
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
200 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
201 # ifndef local_strnlen_defined
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
202 # define local_strnlen_defined 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
203 static size_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
204 local_strnlen (const char *string, size_t maxlen)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
205 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
206 const char *end = memchr (string, '\0', maxlen);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
207 return end ? (size_t) (end - string) : maxlen;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
208 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
209 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
210 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
211 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
212
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
213 #if (!USE_SNPRINTF || (NEED_PRINTF_DIRECTIVE_LS && !defined IN_LIBINTL)) && HAVE_WCHAR_T && (WIDE_CHAR_VERSION || DCHAR_IS_TCHAR)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
214 # if HAVE_WCSLEN
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
215 # define local_wcslen wcslen
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
216 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
217 /* Solaris 2.5.1 has wcslen() in a separate library libw.so. To avoid
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
218 a dependency towards this library, here is a local substitute.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
219 Define this substitute only once, even if this file is included
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
220 twice in the same compilation unit. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
221 # ifndef local_wcslen_defined
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
222 # define local_wcslen_defined 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
223 static size_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
224 local_wcslen (const wchar_t *s)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
225 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
226 const wchar_t *ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
227
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
228 for (ptr = s; *ptr != (wchar_t) 0; ptr++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
229 ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
230 return ptr - s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
231 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
232 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
233 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
234 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
235
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
236 #if !USE_SNPRINTF && HAVE_WCHAR_T && WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
237 # if HAVE_WCSNLEN
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
238 # define local_wcsnlen wcsnlen
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
239 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
240 # ifndef local_wcsnlen_defined
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
241 # define local_wcsnlen_defined 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
242 static size_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
243 local_wcsnlen (const wchar_t *s, size_t maxlen)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
244 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
245 const wchar_t *ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
246
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
247 for (ptr = s; maxlen > 0 && *ptr != (wchar_t) 0; ptr++, maxlen--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
248 ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
249 return ptr - s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
250 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
251 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
252 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
253 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
254
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
255 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE || NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
256 /* Determine the decimal-point character according to the current locale. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
257 # ifndef decimal_point_char_defined
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
258 # define decimal_point_char_defined 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
259 static char
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
260 decimal_point_char (void)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
261 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
262 const char *point;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
263 /* Determine it in a multithread-safe way. We know nl_langinfo is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
264 multithread-safe on glibc systems and MacOS X systems, but is not required
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
265 to be multithread-safe by POSIX. sprintf(), however, is multithread-safe.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
266 localeconv() is rarely multithread-safe. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
267 # if HAVE_NL_LANGINFO && (__GLIBC__ || (defined __APPLE__ && defined __MACH__))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
268 point = nl_langinfo (RADIXCHAR);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
269 # elif 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
270 char pointbuf[5];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
271 sprintf (pointbuf, "%#.0f", 1.0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
272 point = &pointbuf[1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
273 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
274 point = localeconv () -> decimal_point;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
275 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
276 /* The decimal point is always a single byte: either '.' or ','. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
277 return (point[0] != '\0' ? point[0] : '.');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
278 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
279 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
280 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
281
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
282 #if NEED_PRINTF_INFINITE_DOUBLE && !NEED_PRINTF_DOUBLE && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
283
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
284 /* Equivalent to !isfinite(x) || x == 0, but does not require libm. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
285 static int
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
286 is_infinite_or_zero (double x)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
287 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
288 return isnand (x) || x + x == x;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
289 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
290
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
291 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
292
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
293 #if NEED_PRINTF_INFINITE_LONG_DOUBLE && !NEED_PRINTF_LONG_DOUBLE && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
294
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
295 /* Equivalent to !isfinite(x) || x == 0, but does not require libm. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
296 static int
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
297 is_infinite_or_zerol (long double x)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
298 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
299 return isnanl (x) || x + x == x;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
300 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
301
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
302 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
303
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
304 #if (NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
305
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
306 /* Converting 'long double' to decimal without rare rounding bugs requires
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
307 real bignums. We use the naming conventions of GNU gmp, but vastly simpler
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
308 (and slower) algorithms. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
309
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
310 typedef unsigned int mp_limb_t;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
311 # define GMP_LIMB_BITS 32
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
312 typedef int mp_limb_verify[2 * (sizeof (mp_limb_t) * CHAR_BIT == GMP_LIMB_BITS) - 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
313
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
314 typedef unsigned long long mp_twolimb_t;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
315 # define GMP_TWOLIMB_BITS 64
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
316 typedef int mp_twolimb_verify[2 * (sizeof (mp_twolimb_t) * CHAR_BIT == GMP_TWOLIMB_BITS) - 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
317
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
318 /* Representation of a bignum >= 0. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
319 typedef struct
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
320 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
321 size_t nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
322 mp_limb_t *limbs; /* Bits in little-endian order, allocated with malloc(). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
323 } mpn_t;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
324
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
325 /* Compute the product of two bignums >= 0.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
326 Return the allocated memory in case of success, NULL in case of memory
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
327 allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
328 static void *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
329 multiply (mpn_t src1, mpn_t src2, mpn_t *dest)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
330 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
331 const mp_limb_t *p1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
332 const mp_limb_t *p2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
333 size_t len1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
334 size_t len2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
335
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
336 if (src1.nlimbs <= src2.nlimbs)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
337 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
338 len1 = src1.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
339 p1 = src1.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
340 len2 = src2.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
341 p2 = src2.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
342 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
343 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
344 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
345 len1 = src2.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
346 p1 = src2.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
347 len2 = src1.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
348 p2 = src1.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
349 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
350 /* Now 0 <= len1 <= len2. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
351 if (len1 == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
352 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
353 /* src1 or src2 is zero. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
354 dest->nlimbs = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
355 dest->limbs = (mp_limb_t *) malloc (1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
356 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
357 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
358 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
359 /* Here 1 <= len1 <= len2. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
360 size_t dlen;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
361 mp_limb_t *dp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
362 size_t k, i, j;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
363
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
364 dlen = len1 + len2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
365 dp = (mp_limb_t *) malloc (dlen * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
366 if (dp == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
367 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
368 for (k = len2; k > 0; )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
369 dp[--k] = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
370 for (i = 0; i < len1; i++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
371 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
372 mp_limb_t digit1 = p1[i];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
373 mp_twolimb_t carry = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
374 for (j = 0; j < len2; j++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
375 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
376 mp_limb_t digit2 = p2[j];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
377 carry += (mp_twolimb_t) digit1 * (mp_twolimb_t) digit2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
378 carry += dp[i + j];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
379 dp[i + j] = (mp_limb_t) carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
380 carry = carry >> GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
381 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
382 dp[i + len2] = (mp_limb_t) carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
383 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
384 /* Normalise. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
385 while (dlen > 0 && dp[dlen - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
386 dlen--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
387 dest->nlimbs = dlen;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
388 dest->limbs = dp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
389 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
390 return dest->limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
391 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
392
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
393 /* Compute the quotient of a bignum a >= 0 and a bignum b > 0.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
394 a is written as a = q * b + r with 0 <= r < b. q is the quotient, r
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
395 the remainder.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
396 Finally, round-to-even is performed: If r > b/2 or if r = b/2 and q is odd,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
397 q is incremented.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
398 Return the allocated memory in case of success, NULL in case of memory
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
399 allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
400 static void *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
401 divide (mpn_t a, mpn_t b, mpn_t *q)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
402 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
403 /* Algorithm:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
404 First normalise a and b: a=[a[m-1],...,a[0]], b=[b[n-1],...,b[0]]
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
405 with m>=0 and n>0 (in base beta = 2^GMP_LIMB_BITS).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
406 If m<n, then q:=0 and r:=a.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
407 If m>=n=1, perform a single-precision division:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
408 r:=0, j:=m,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
409 while j>0 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
410 {Here (q[m-1]*beta^(m-1)+...+q[j]*beta^j) * b[0] + r*beta^j =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
411 = a[m-1]*beta^(m-1)+...+a[j]*beta^j und 0<=r<b[0]<beta}
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
412 j:=j-1, r:=r*beta+a[j], q[j]:=floor(r/b[0]), r:=r-b[0]*q[j].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
413 Normalise [q[m-1],...,q[0]], yields q.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
414 If m>=n>1, perform a multiple-precision division:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
415 We have a/b < beta^(m-n+1).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
416 s:=intDsize-1-(highest bit in b[n-1]), 0<=s<intDsize.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
417 Shift a and b left by s bits, copying them. r:=a.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
418 r=[r[m],...,r[0]], b=[b[n-1],...,b[0]] with b[n-1]>=beta/2.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
419 For j=m-n,...,0: {Here 0 <= r < b*beta^(j+1).}
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
420 Compute q* :
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
421 q* := floor((r[j+n]*beta+r[j+n-1])/b[n-1]).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
422 In case of overflow (q* >= beta) set q* := beta-1.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
423 Compute c2 := ((r[j+n]*beta+r[j+n-1]) - q* * b[n-1])*beta + r[j+n-2]
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
424 and c3 := b[n-2] * q*.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
425 {We have 0 <= c2 < 2*beta^2, even 0 <= c2 < beta^2 if no overflow
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
426 occurred. Furthermore 0 <= c3 < beta^2.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
427 If there was overflow and
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
428 r[j+n]*beta+r[j+n-1] - q* * b[n-1] >= beta, i.e. c2 >= beta^2,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
429 the next test can be skipped.}
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
430 While c3 > c2, {Here 0 <= c2 < c3 < beta^2}
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
431 Put q* := q* - 1, c2 := c2 + b[n-1]*beta, c3 := c3 - b[n-2].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
432 If q* > 0:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
433 Put r := r - b * q* * beta^j. In detail:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
434 [r[n+j],...,r[j]] := [r[n+j],...,r[j]] - q* * [b[n-1],...,b[0]].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
435 hence: u:=0, for i:=0 to n-1 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
436 u := u + q* * b[i],
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
437 r[j+i]:=r[j+i]-(u mod beta) (+ beta, if carry),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
438 u:=u div beta (+ 1, if carry in subtraction)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
439 r[n+j]:=r[n+j]-u.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
440 {Since always u = (q* * [b[i-1],...,b[0]] div beta^i) + 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
441 < q* + 1 <= beta,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
442 the carry u does not overflow.}
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
443 If a negative carry occurs, put q* := q* - 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
444 and [r[n+j],...,r[j]] := [r[n+j],...,r[j]] + [0,b[n-1],...,b[0]].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
445 Set q[j] := q*.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
446 Normalise [q[m-n],..,q[0]]; this yields the quotient q.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
447 Shift [r[n-1],...,r[0]] right by s bits and normalise; this yields the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
448 rest r.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
449 The room for q[j] can be allocated at the memory location of r[n+j].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
450 Finally, round-to-even:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
451 Shift r left by 1 bit.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
452 If r > b or if r = b and q[0] is odd, q := q+1.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
453 */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
454 const mp_limb_t *a_ptr = a.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
455 size_t a_len = a.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
456 const mp_limb_t *b_ptr = b.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
457 size_t b_len = b.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
458 mp_limb_t *roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
459 mp_limb_t *tmp_roomptr = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
460 mp_limb_t *q_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
461 size_t q_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
462 mp_limb_t *r_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
463 size_t r_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
464
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
465 /* Allocate room for a_len+2 digits.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
466 (Need a_len+1 digits for the real division and 1 more digit for the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
467 final rounding of q.) */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
468 roomptr = (mp_limb_t *) malloc ((a_len + 2) * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
469 if (roomptr == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
470 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
471
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
472 /* Normalise a. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
473 while (a_len > 0 && a_ptr[a_len - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
474 a_len--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
475
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
476 /* Normalise b. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
477 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
478 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
479 if (b_len == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
480 /* Division by zero. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
481 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
482 if (b_ptr[b_len - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
483 b_len--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
484 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
485 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
486 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
487
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
488 /* Here m = a_len >= 0 and n = b_len > 0. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
489
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
490 if (a_len < b_len)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
491 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
492 /* m<n: trivial case. q=0, r := copy of a. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
493 r_ptr = roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
494 r_len = a_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
495 memcpy (r_ptr, a_ptr, a_len * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
496 q_ptr = roomptr + a_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
497 q_len = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
498 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
499 else if (b_len == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
500 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
501 /* n=1: single precision division.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
502 beta^(m-1) <= a < beta^m ==> beta^(m-2) <= a/b < beta^m */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
503 r_ptr = roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
504 q_ptr = roomptr + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
505 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
506 mp_limb_t den = b_ptr[0];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
507 mp_limb_t remainder = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
508 const mp_limb_t *sourceptr = a_ptr + a_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
509 mp_limb_t *destptr = q_ptr + a_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
510 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
511 for (count = a_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
512 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
513 mp_twolimb_t num =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
514 ((mp_twolimb_t) remainder << GMP_LIMB_BITS) | *--sourceptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
515 *--destptr = num / den;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
516 remainder = num % den;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
517 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
518 /* Normalise and store r. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
519 if (remainder > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
520 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
521 r_ptr[0] = remainder;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
522 r_len = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
523 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
524 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
525 r_len = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
526 /* Normalise q. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
527 q_len = a_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
528 if (q_ptr[q_len - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
529 q_len--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
530 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
531 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
532 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
533 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
534 /* n>1: multiple precision division.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
535 beta^(m-1) <= a < beta^m, beta^(n-1) <= b < beta^n ==>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
536 beta^(m-n-1) <= a/b < beta^(m-n+1). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
537 /* Determine s. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
538 size_t s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
539 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
540 mp_limb_t msd = b_ptr[b_len - 1]; /* = b[n-1], > 0 */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
541 s = 31;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
542 if (msd >= 0x10000)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
543 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
544 msd = msd >> 16;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
545 s -= 16;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
546 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
547 if (msd >= 0x100)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
548 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
549 msd = msd >> 8;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
550 s -= 8;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
551 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
552 if (msd >= 0x10)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
553 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
554 msd = msd >> 4;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
555 s -= 4;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
556 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
557 if (msd >= 0x4)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
558 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
559 msd = msd >> 2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
560 s -= 2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
561 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
562 if (msd >= 0x2)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
563 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
564 msd = msd >> 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
565 s -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
566 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
567 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
568 /* 0 <= s < GMP_LIMB_BITS.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
569 Copy b, shifting it left by s bits. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
570 if (s > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
571 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
572 tmp_roomptr = (mp_limb_t *) malloc (b_len * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
573 if (tmp_roomptr == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
574 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
575 free (roomptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
576 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
577 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
578 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
579 const mp_limb_t *sourceptr = b_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
580 mp_limb_t *destptr = tmp_roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
581 mp_twolimb_t accu = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
582 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
583 for (count = b_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
584 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
585 accu += (mp_twolimb_t) *sourceptr++ << s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
586 *destptr++ = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
587 accu = accu >> GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
588 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
589 /* accu must be zero, since that was how s was determined. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
590 if (accu != 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
591 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
592 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
593 b_ptr = tmp_roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
594 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
595 /* Copy a, shifting it left by s bits, yields r.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
596 Memory layout:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
597 At the beginning: r = roomptr[0..a_len],
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
598 at the end: r = roomptr[0..b_len-1], q = roomptr[b_len..a_len] */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
599 r_ptr = roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
600 if (s == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
601 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
602 memcpy (r_ptr, a_ptr, a_len * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
603 r_ptr[a_len] = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
604 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
605 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
606 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
607 const mp_limb_t *sourceptr = a_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
608 mp_limb_t *destptr = r_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
609 mp_twolimb_t accu = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
610 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
611 for (count = a_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
612 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
613 accu += (mp_twolimb_t) *sourceptr++ << s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
614 *destptr++ = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
615 accu = accu >> GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
616 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
617 *destptr++ = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
618 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
619 q_ptr = roomptr + b_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
620 q_len = a_len - b_len + 1; /* q will have m-n+1 limbs */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
621 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
622 size_t j = a_len - b_len; /* m-n */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
623 mp_limb_t b_msd = b_ptr[b_len - 1]; /* b[n-1] */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
624 mp_limb_t b_2msd = b_ptr[b_len - 2]; /* b[n-2] */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
625 mp_twolimb_t b_msdd = /* b[n-1]*beta+b[n-2] */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
626 ((mp_twolimb_t) b_msd << GMP_LIMB_BITS) | b_2msd;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
627 /* Division loop, traversed m-n+1 times.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
628 j counts down, b is unchanged, beta/2 <= b[n-1] < beta. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
629 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
630 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
631 mp_limb_t q_star;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
632 mp_limb_t c1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
633 if (r_ptr[j + b_len] < b_msd) /* r[j+n] < b[n-1] ? */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
634 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
635 /* Divide r[j+n]*beta+r[j+n-1] by b[n-1], no overflow. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
636 mp_twolimb_t num =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
637 ((mp_twolimb_t) r_ptr[j + b_len] << GMP_LIMB_BITS)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
638 | r_ptr[j + b_len - 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
639 q_star = num / b_msd;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
640 c1 = num % b_msd;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
641 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
642 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
643 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
644 /* Overflow, hence r[j+n]*beta+r[j+n-1] >= beta*b[n-1]. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
645 q_star = (mp_limb_t)~(mp_limb_t)0; /* q* = beta-1 */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
646 /* Test whether r[j+n]*beta+r[j+n-1] - (beta-1)*b[n-1] >= beta
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
647 <==> r[j+n]*beta+r[j+n-1] + b[n-1] >= beta*b[n-1]+beta
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
648 <==> b[n-1] < floor((r[j+n]*beta+r[j+n-1]+b[n-1])/beta)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
649 {<= beta !}.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
650 If yes, jump directly to the subtraction loop.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
651 (Otherwise, r[j+n]*beta+r[j+n-1] - (beta-1)*b[n-1] < beta
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
652 <==> floor((r[j+n]*beta+r[j+n-1]+b[n-1])/beta) = b[n-1] ) */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
653 if (r_ptr[j + b_len] > b_msd
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
654 || (c1 = r_ptr[j + b_len - 1] + b_msd) < b_msd)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
655 /* r[j+n] >= b[n-1]+1 or
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
656 r[j+n] = b[n-1] and the addition r[j+n-1]+b[n-1] gives a
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
657 carry. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
658 goto subtract;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
659 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
660 /* q_star = q*,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
661 c1 = (r[j+n]*beta+r[j+n-1]) - q* * b[n-1] (>=0, <beta). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
662 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
663 mp_twolimb_t c2 = /* c1*beta+r[j+n-2] */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
664 ((mp_twolimb_t) c1 << GMP_LIMB_BITS) | r_ptr[j + b_len - 2];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
665 mp_twolimb_t c3 = /* b[n-2] * q* */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
666 (mp_twolimb_t) b_2msd * (mp_twolimb_t) q_star;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
667 /* While c2 < c3, increase c2 and decrease c3.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
668 Consider c3-c2. While it is > 0, decrease it by
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
669 b[n-1]*beta+b[n-2]. Because of b[n-1]*beta+b[n-2] >= beta^2/2
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
670 this can happen only twice. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
671 if (c3 > c2)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
672 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
673 q_star = q_star - 1; /* q* := q* - 1 */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
674 if (c3 - c2 > b_msdd)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
675 q_star = q_star - 1; /* q* := q* - 1 */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
676 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
677 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
678 if (q_star > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
679 subtract:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
680 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
681 /* Subtract r := r - b * q* * beta^j. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
682 mp_limb_t cr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
683 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
684 const mp_limb_t *sourceptr = b_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
685 mp_limb_t *destptr = r_ptr + j;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
686 mp_twolimb_t carry = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
687 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
688 for (count = b_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
689 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
690 /* Here 0 <= carry <= q*. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
691 carry =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
692 carry
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
693 + (mp_twolimb_t) q_star * (mp_twolimb_t) *sourceptr++
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
694 + (mp_limb_t) ~(*destptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
695 /* Here 0 <= carry <= beta*q* + beta-1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
696 *destptr++ = ~(mp_limb_t) carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
697 carry = carry >> GMP_LIMB_BITS; /* <= q* */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
698 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
699 cr = (mp_limb_t) carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
700 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
701 /* Subtract cr from r_ptr[j + b_len], then forget about
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
702 r_ptr[j + b_len]. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
703 if (cr > r_ptr[j + b_len])
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
704 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
705 /* Subtraction gave a carry. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
706 q_star = q_star - 1; /* q* := q* - 1 */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
707 /* Add b back. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
708 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
709 const mp_limb_t *sourceptr = b_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
710 mp_limb_t *destptr = r_ptr + j;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
711 mp_limb_t carry = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
712 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
713 for (count = b_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
714 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
715 mp_limb_t source1 = *sourceptr++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
716 mp_limb_t source2 = *destptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
717 *destptr++ = source1 + source2 + carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
718 carry =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
719 (carry
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
720 ? source1 >= (mp_limb_t) ~source2
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
721 : source1 > (mp_limb_t) ~source2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
722 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
723 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
724 /* Forget about the carry and about r[j+n]. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
725 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
726 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
727 /* q* is determined. Store it as q[j]. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
728 q_ptr[j] = q_star;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
729 if (j == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
730 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
731 j--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
732 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
733 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
734 r_len = b_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
735 /* Normalise q. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
736 if (q_ptr[q_len - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
737 q_len--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
738 # if 0 /* Not needed here, since we need r only to compare it with b/2, and
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
739 b is shifted left by s bits. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
740 /* Shift r right by s bits. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
741 if (s > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
742 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
743 mp_limb_t ptr = r_ptr + r_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
744 mp_twolimb_t accu = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
745 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
746 for (count = r_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
747 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
748 accu = (mp_twolimb_t) (mp_limb_t) accu << GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
749 accu += (mp_twolimb_t) *--ptr << (GMP_LIMB_BITS - s);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
750 *ptr = (mp_limb_t) (accu >> GMP_LIMB_BITS);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
751 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
752 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
753 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
754 /* Normalise r. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
755 while (r_len > 0 && r_ptr[r_len - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
756 r_len--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
757 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
758 /* Compare r << 1 with b. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
759 if (r_len > b_len)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
760 goto increment_q;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
761 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
762 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
763 for (i = b_len;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
764 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
765 mp_limb_t r_i =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
766 (i <= r_len && i > 0 ? r_ptr[i - 1] >> (GMP_LIMB_BITS - 1) : 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
767 | (i < r_len ? r_ptr[i] << 1 : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
768 mp_limb_t b_i = (i < b_len ? b_ptr[i] : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
769 if (r_i > b_i)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
770 goto increment_q;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
771 if (r_i < b_i)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
772 goto keep_q;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
773 if (i == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
774 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
775 i--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
776 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
777 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
778 if (q_len > 0 && ((q_ptr[0] & 1) != 0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
779 /* q is odd. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
780 increment_q:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
781 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
782 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
783 for (i = 0; i < q_len; i++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
784 if (++(q_ptr[i]) != 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
785 goto keep_q;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
786 q_ptr[q_len++] = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
787 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
788 keep_q:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
789 if (tmp_roomptr != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
790 free (tmp_roomptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
791 q->limbs = q_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
792 q->nlimbs = q_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
793 return roomptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
794 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
795
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
796 /* Convert a bignum a >= 0, multiplied with 10^extra_zeroes, to decimal
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
797 representation.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
798 Destroys the contents of a.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
799 Return the allocated memory - containing the decimal digits in low-to-high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
800 order, terminated with a NUL character - in case of success, NULL in case
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
801 of memory allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
802 static char *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
803 convert_to_decimal (mpn_t a, size_t extra_zeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
804 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
805 mp_limb_t *a_ptr = a.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
806 size_t a_len = a.nlimbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
807 /* 0.03345 is slightly larger than log(2)/(9*log(10)). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
808 size_t c_len = 9 * ((size_t)(a_len * (GMP_LIMB_BITS * 0.03345f)) + 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
809 char *c_ptr = (char *) malloc (xsum (c_len, extra_zeroes));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
810 if (c_ptr != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
811 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
812 char *d_ptr = c_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
813 for (; extra_zeroes > 0; extra_zeroes--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
814 *d_ptr++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
815 while (a_len > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
816 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
817 /* Divide a by 10^9, in-place. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
818 mp_limb_t remainder = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
819 mp_limb_t *ptr = a_ptr + a_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
820 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
821 for (count = a_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
822 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
823 mp_twolimb_t num =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
824 ((mp_twolimb_t) remainder << GMP_LIMB_BITS) | *--ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
825 *ptr = num / 1000000000;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
826 remainder = num % 1000000000;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
827 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
828 /* Store the remainder as 9 decimal digits. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
829 for (count = 9; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
830 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
831 *d_ptr++ = '0' + (remainder % 10);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
832 remainder = remainder / 10;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
833 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
834 /* Normalize a. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
835 if (a_ptr[a_len - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
836 a_len--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
837 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
838 /* Remove leading zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
839 while (d_ptr > c_ptr && d_ptr[-1] == '0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
840 d_ptr--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
841 /* But keep at least one zero. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
842 if (d_ptr == c_ptr)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
843 *d_ptr++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
844 /* Terminate the string. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
845 *d_ptr = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
846 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
847 return c_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
848 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
849
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
850 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
851
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
852 /* Assuming x is finite and >= 0:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
853 write x as x = 2^e * m, where m is a bignum.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
854 Return the allocated memory in case of success, NULL in case of memory
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
855 allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
856 static void *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
857 decode_long_double (long double x, int *ep, mpn_t *mp)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
858 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
859 mpn_t m;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
860 int exp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
861 long double y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
862 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
863
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
864 /* Allocate memory for result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
865 m.nlimbs = (LDBL_MANT_BIT + GMP_LIMB_BITS - 1) / GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
866 m.limbs = (mp_limb_t *) malloc (m.nlimbs * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
867 if (m.limbs == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
868 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
869 /* Split into exponential part and mantissa. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
870 y = frexpl (x, &exp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
871 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
872 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
873 /* x = 2^exp * y = 2^(exp - LDBL_MANT_BIT) * (y * LDBL_MANT_BIT), and the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
874 latter is an integer. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
875 /* Convert the mantissa (y * LDBL_MANT_BIT) to a sequence of limbs.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
876 I'm not sure whether it's safe to cast a 'long double' value between
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
877 2^31 and 2^32 to 'unsigned int', therefore play safe and cast only
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
878 'long double' values between 0 and 2^16 (to 'unsigned int' or 'int',
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
879 doesn't matter). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
880 # if (LDBL_MANT_BIT % GMP_LIMB_BITS) != 0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
881 # if (LDBL_MANT_BIT % GMP_LIMB_BITS) > GMP_LIMB_BITS / 2
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
882 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
883 mp_limb_t hi, lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
884 y *= (mp_limb_t) 1 << (LDBL_MANT_BIT % (GMP_LIMB_BITS / 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
885 hi = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
886 y -= hi;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
887 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
888 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
889 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
890 lo = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
891 y -= lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
892 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
893 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
894 m.limbs[LDBL_MANT_BIT / GMP_LIMB_BITS] = (hi << (GMP_LIMB_BITS / 2)) | lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
895 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
896 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
897 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
898 mp_limb_t d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
899 y *= (mp_limb_t) 1 << (LDBL_MANT_BIT % GMP_LIMB_BITS);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
900 d = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
901 y -= d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
902 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
903 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
904 m.limbs[LDBL_MANT_BIT / GMP_LIMB_BITS] = d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
905 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
906 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
907 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
908 for (i = LDBL_MANT_BIT / GMP_LIMB_BITS; i > 0; )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
909 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
910 mp_limb_t hi, lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
911 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
912 hi = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
913 y -= hi;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
914 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
915 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
916 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
917 lo = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
918 y -= lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
919 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
920 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
921 m.limbs[--i] = (hi << (GMP_LIMB_BITS / 2)) | lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
922 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
923 #if 0 /* On FreeBSD 6.1/x86, 'long double' numbers sometimes have excess
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
924 precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
925 if (!(y == 0.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
926 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
927 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
928 /* Normalise. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
929 while (m.nlimbs > 0 && m.limbs[m.nlimbs - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
930 m.nlimbs--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
931 *mp = m;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
932 *ep = exp - LDBL_MANT_BIT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
933 return m.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
934 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
935
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
936 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
937
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
938 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
939
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
940 /* Assuming x is finite and >= 0:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
941 write x as x = 2^e * m, where m is a bignum.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
942 Return the allocated memory in case of success, NULL in case of memory
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
943 allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
944 static void *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
945 decode_double (double x, int *ep, mpn_t *mp)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
946 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
947 mpn_t m;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
948 int exp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
949 double y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
950 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
951
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
952 /* Allocate memory for result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
953 m.nlimbs = (DBL_MANT_BIT + GMP_LIMB_BITS - 1) / GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
954 m.limbs = (mp_limb_t *) malloc (m.nlimbs * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
955 if (m.limbs == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
956 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
957 /* Split into exponential part and mantissa. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
958 y = frexp (x, &exp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
959 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
960 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
961 /* x = 2^exp * y = 2^(exp - DBL_MANT_BIT) * (y * DBL_MANT_BIT), and the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
962 latter is an integer. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
963 /* Convert the mantissa (y * DBL_MANT_BIT) to a sequence of limbs.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
964 I'm not sure whether it's safe to cast a 'double' value between
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
965 2^31 and 2^32 to 'unsigned int', therefore play safe and cast only
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
966 'double' values between 0 and 2^16 (to 'unsigned int' or 'int',
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
967 doesn't matter). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
968 # if (DBL_MANT_BIT % GMP_LIMB_BITS) != 0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
969 # if (DBL_MANT_BIT % GMP_LIMB_BITS) > GMP_LIMB_BITS / 2
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
970 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
971 mp_limb_t hi, lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
972 y *= (mp_limb_t) 1 << (DBL_MANT_BIT % (GMP_LIMB_BITS / 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
973 hi = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
974 y -= hi;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
975 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
976 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
977 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
978 lo = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
979 y -= lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
980 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
981 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
982 m.limbs[DBL_MANT_BIT / GMP_LIMB_BITS] = (hi << (GMP_LIMB_BITS / 2)) | lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
983 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
984 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
985 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
986 mp_limb_t d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
987 y *= (mp_limb_t) 1 << (DBL_MANT_BIT % GMP_LIMB_BITS);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
988 d = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
989 y -= d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
990 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
991 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
992 m.limbs[DBL_MANT_BIT / GMP_LIMB_BITS] = d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
993 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
994 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
995 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
996 for (i = DBL_MANT_BIT / GMP_LIMB_BITS; i > 0; )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
997 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
998 mp_limb_t hi, lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
999 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1000 hi = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1001 y -= hi;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1002 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1003 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1004 y *= (mp_limb_t) 1 << (GMP_LIMB_BITS / 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1005 lo = (int) y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1006 y -= lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1007 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1008 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1009 m.limbs[--i] = (hi << (GMP_LIMB_BITS / 2)) | lo;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1010 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1011 if (!(y == 0.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1012 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1013 /* Normalise. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1014 while (m.nlimbs > 0 && m.limbs[m.nlimbs - 1] == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1015 m.nlimbs--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1016 *mp = m;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1017 *ep = exp - DBL_MANT_BIT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1018 return m.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1019 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1020
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1021 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1022
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1023 /* Assuming x = 2^e * m is finite and >= 0, and n is an integer:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1024 Returns the decimal representation of round (x * 10^n).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1025 Return the allocated memory - containing the decimal digits in low-to-high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1026 order, terminated with a NUL character - in case of success, NULL in case
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1027 of memory allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1028 static char *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1029 scale10_round_decimal_decoded (int e, mpn_t m, void *memory, int n)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1030 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1031 int s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1032 size_t extra_zeroes;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1033 unsigned int abs_n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1034 unsigned int abs_s;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1035 mp_limb_t *pow5_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1036 size_t pow5_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1037 unsigned int s_limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1038 unsigned int s_bits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1039 mpn_t pow5;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1040 mpn_t z;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1041 void *z_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1042 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1043
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1044 if (memory == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1045 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1046 /* x = 2^e * m, hence
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1047 y = round (2^e * 10^n * m) = round (2^(e+n) * 5^n * m)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1048 = round (2^s * 5^n * m). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1049 s = e + n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1050 extra_zeroes = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1051 /* Factor out a common power of 10 if possible. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1052 if (s > 0 && n > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1053 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1054 extra_zeroes = (s < n ? s : n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1055 s -= extra_zeroes;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1056 n -= extra_zeroes;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1057 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1058 /* Here y = round (2^s * 5^n * m) * 10^extra_zeroes.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1059 Before converting to decimal, we need to compute
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1060 z = round (2^s * 5^n * m). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1061 /* Compute 5^|n|, possibly shifted by |s| bits if n and s have the same
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1062 sign. 2.322 is slightly larger than log(5)/log(2). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1063 abs_n = (n >= 0 ? n : -n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1064 abs_s = (s >= 0 ? s : -s);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1065 pow5_ptr = (mp_limb_t *) malloc (((int)(abs_n * (2.322f / GMP_LIMB_BITS)) + 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1066 + abs_s / GMP_LIMB_BITS + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1067 * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1068 if (pow5_ptr == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1069 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1070 free (memory);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1071 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1072 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1073 /* Initialize with 1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1074 pow5_ptr[0] = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1075 pow5_len = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1076 /* Multiply with 5^|n|. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1077 if (abs_n > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1078 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1079 static mp_limb_t const small_pow5[13 + 1] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1080 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1081 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1082 48828125, 244140625, 1220703125
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1083 };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1084 unsigned int n13;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1085 for (n13 = 0; n13 <= abs_n; n13 += 13)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1086 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1087 mp_limb_t digit1 = small_pow5[n13 + 13 <= abs_n ? 13 : abs_n - n13];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1088 size_t j;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1089 mp_twolimb_t carry = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1090 for (j = 0; j < pow5_len; j++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1091 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1092 mp_limb_t digit2 = pow5_ptr[j];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1093 carry += (mp_twolimb_t) digit1 * (mp_twolimb_t) digit2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1094 pow5_ptr[j] = (mp_limb_t) carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1095 carry = carry >> GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1096 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1097 if (carry > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1098 pow5_ptr[pow5_len++] = (mp_limb_t) carry;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1099 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1100 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1101 s_limbs = abs_s / GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1102 s_bits = abs_s % GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1103 if (n >= 0 ? s >= 0 : s <= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1104 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1105 /* Multiply with 2^|s|. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1106 if (s_bits > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1107 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1108 mp_limb_t *ptr = pow5_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1109 mp_twolimb_t accu = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1110 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1111 for (count = pow5_len; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1112 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1113 accu += (mp_twolimb_t) *ptr << s_bits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1114 *ptr++ = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1115 accu = accu >> GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1116 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1117 if (accu > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1118 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1119 *ptr = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1120 pow5_len++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1121 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1122 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1123 if (s_limbs > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1124 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1125 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1126 for (count = pow5_len; count > 0;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1127 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1128 count--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1129 pow5_ptr[s_limbs + count] = pow5_ptr[count];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1130 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1131 for (count = s_limbs; count > 0;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1132 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1133 count--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1134 pow5_ptr[count] = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1135 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1136 pow5_len += s_limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1137 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1138 pow5.limbs = pow5_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1139 pow5.nlimbs = pow5_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1140 if (n >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1141 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1142 /* Multiply m with pow5. No division needed. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1143 z_memory = multiply (m, pow5, &z);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1144 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1145 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1146 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1147 /* Divide m by pow5 and round. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1148 z_memory = divide (m, pow5, &z);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1149 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1150 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1151 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1152 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1153 pow5.limbs = pow5_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1154 pow5.nlimbs = pow5_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1155 if (n >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1156 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1157 /* n >= 0, s < 0.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1158 Multiply m with pow5, then divide by 2^|s|. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1159 mpn_t numerator;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1160 mpn_t denominator;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1161 void *tmp_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1162 tmp_memory = multiply (m, pow5, &numerator);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1163 if (tmp_memory == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1164 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1165 free (pow5_ptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1166 free (memory);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1167 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1168 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1169 /* Construct 2^|s|. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1170 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1171 mp_limb_t *ptr = pow5_ptr + pow5_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1172 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1173 for (i = 0; i < s_limbs; i++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1174 ptr[i] = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1175 ptr[s_limbs] = (mp_limb_t) 1 << s_bits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1176 denominator.limbs = ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1177 denominator.nlimbs = s_limbs + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1178 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1179 z_memory = divide (numerator, denominator, &z);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1180 free (tmp_memory);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1181 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1182 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1183 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1184 /* n < 0, s > 0.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1185 Multiply m with 2^s, then divide by pow5. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1186 mpn_t numerator;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1187 mp_limb_t *num_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1188 num_ptr = (mp_limb_t *) malloc ((m.nlimbs + s_limbs + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1189 * sizeof (mp_limb_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1190 if (num_ptr == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1191 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1192 free (pow5_ptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1193 free (memory);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1194 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1195 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1196 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1197 mp_limb_t *destptr = num_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1198 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1199 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1200 for (i = 0; i < s_limbs; i++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1201 *destptr++ = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1202 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1203 if (s_bits > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1204 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1205 const mp_limb_t *sourceptr = m.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1206 mp_twolimb_t accu = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1207 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1208 for (count = m.nlimbs; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1209 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1210 accu += (mp_twolimb_t) *sourceptr++ << s_bits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1211 *destptr++ = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1212 accu = accu >> GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1213 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1214 if (accu > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1215 *destptr++ = (mp_limb_t) accu;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1216 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1217 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1218 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1219 const mp_limb_t *sourceptr = m.limbs;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1220 size_t count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1221 for (count = m.nlimbs; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1222 *destptr++ = *sourceptr++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1223 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1224 numerator.limbs = num_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1225 numerator.nlimbs = destptr - num_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1226 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1227 z_memory = divide (numerator, pow5, &z);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1228 free (num_ptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1229 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1230 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1231 free (pow5_ptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1232 free (memory);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1233
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1234 /* Here y = round (x * 10^n) = z * 10^extra_zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1235
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1236 if (z_memory == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1237 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1238 digits = convert_to_decimal (z, extra_zeroes);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1239 free (z_memory);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1240 return digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1241 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1242
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1243 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1244
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1245 /* Assuming x is finite and >= 0, and n is an integer:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1246 Returns the decimal representation of round (x * 10^n).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1247 Return the allocated memory - containing the decimal digits in low-to-high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1248 order, terminated with a NUL character - in case of success, NULL in case
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1249 of memory allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1250 static char *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1251 scale10_round_decimal_long_double (long double x, int n)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1252 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1253 int e IF_LINT(= 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1254 mpn_t m;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1255 void *memory = decode_long_double (x, &e, &m);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1256 return scale10_round_decimal_decoded (e, m, memory, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1257 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1258
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1259 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1260
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1261 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1262
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1263 /* Assuming x is finite and >= 0, and n is an integer:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1264 Returns the decimal representation of round (x * 10^n).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1265 Return the allocated memory - containing the decimal digits in low-to-high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1266 order, terminated with a NUL character - in case of success, NULL in case
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1267 of memory allocation failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1268 static char *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1269 scale10_round_decimal_double (double x, int n)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1270 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1271 int e IF_LINT(= 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1272 mpn_t m;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1273 void *memory = decode_double (x, &e, &m);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1274 return scale10_round_decimal_decoded (e, m, memory, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1275 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1276
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1277 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1278
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1279 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1280
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1281 /* Assuming x is finite and > 0:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1282 Return an approximation for n with 10^n <= x < 10^(n+1).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1283 The approximation is usually the right n, but may be off by 1 sometimes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1284 static int
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1285 floorlog10l (long double x)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1286 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1287 int exp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1288 long double y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1289 double z;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1290 double l;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1291
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1292 /* Split into exponential part and mantissa. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1293 y = frexpl (x, &exp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1294 if (!(y >= 0.0L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1295 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1296 if (y == 0.0L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1297 return INT_MIN;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1298 if (y < 0.5L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1299 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1300 while (y < (1.0L / (1 << (GMP_LIMB_BITS / 2)) / (1 << (GMP_LIMB_BITS / 2))))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1301 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1302 y *= 1.0L * (1 << (GMP_LIMB_BITS / 2)) * (1 << (GMP_LIMB_BITS / 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1303 exp -= GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1304 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1305 if (y < (1.0L / (1 << 16)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1306 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1307 y *= 1.0L * (1 << 16);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1308 exp -= 16;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1309 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1310 if (y < (1.0L / (1 << 8)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1311 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1312 y *= 1.0L * (1 << 8);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1313 exp -= 8;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1314 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1315 if (y < (1.0L / (1 << 4)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1316 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1317 y *= 1.0L * (1 << 4);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1318 exp -= 4;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1319 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1320 if (y < (1.0L / (1 << 2)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1321 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1322 y *= 1.0L * (1 << 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1323 exp -= 2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1324 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1325 if (y < (1.0L / (1 << 1)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1326 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1327 y *= 1.0L * (1 << 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1328 exp -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1329 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1330 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1331 if (!(y >= 0.5L && y < 1.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1332 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1333 /* Compute an approximation for l = log2(x) = exp + log2(y). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1334 l = exp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1335 z = y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1336 if (z < 0.70710678118654752444)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1337 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1338 z *= 1.4142135623730950488;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1339 l -= 0.5;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1340 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1341 if (z < 0.8408964152537145431)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1342 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1343 z *= 1.1892071150027210667;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1344 l -= 0.25;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1345 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1346 if (z < 0.91700404320467123175)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1347 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1348 z *= 1.0905077326652576592;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1349 l -= 0.125;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1350 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1351 if (z < 0.9576032806985736469)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1352 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1353 z *= 1.0442737824274138403;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1354 l -= 0.0625;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1355 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1356 /* Now 0.95 <= z <= 1.01. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1357 z = 1 - z;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1358 /* log2(1-z) = 1/log(2) * (- z - z^2/2 - z^3/3 - z^4/4 - ...)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1359 Four terms are enough to get an approximation with error < 10^-7. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1360 l -= 1.4426950408889634074 * z * (1.0 + z * (0.5 + z * ((1.0 / 3) + z * 0.25)));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1361 /* Finally multiply with log(2)/log(10), yields an approximation for
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1362 log10(x). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1363 l *= 0.30102999566398119523;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1364 /* Round down to the next integer. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1365 return (int) l + (l < 0 ? -1 : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1366 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1367
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1368 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1369
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1370 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1371
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1372 /* Assuming x is finite and > 0:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1373 Return an approximation for n with 10^n <= x < 10^(n+1).
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1374 The approximation is usually the right n, but may be off by 1 sometimes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1375 static int
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1376 floorlog10 (double x)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1377 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1378 int exp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1379 double y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1380 double z;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1381 double l;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1382
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1383 /* Split into exponential part and mantissa. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1384 y = frexp (x, &exp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1385 if (!(y >= 0.0 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1386 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1387 if (y == 0.0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1388 return INT_MIN;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1389 if (y < 0.5)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1390 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1391 while (y < (1.0 / (1 << (GMP_LIMB_BITS / 2)) / (1 << (GMP_LIMB_BITS / 2))))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1392 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1393 y *= 1.0 * (1 << (GMP_LIMB_BITS / 2)) * (1 << (GMP_LIMB_BITS / 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1394 exp -= GMP_LIMB_BITS;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1395 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1396 if (y < (1.0 / (1 << 16)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1397 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1398 y *= 1.0 * (1 << 16);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1399 exp -= 16;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1400 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1401 if (y < (1.0 / (1 << 8)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1402 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1403 y *= 1.0 * (1 << 8);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1404 exp -= 8;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1405 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1406 if (y < (1.0 / (1 << 4)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1407 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1408 y *= 1.0 * (1 << 4);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1409 exp -= 4;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1410 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1411 if (y < (1.0 / (1 << 2)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1412 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1413 y *= 1.0 * (1 << 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1414 exp -= 2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1415 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1416 if (y < (1.0 / (1 << 1)))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1417 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1418 y *= 1.0 * (1 << 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1419 exp -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1420 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1421 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1422 if (!(y >= 0.5 && y < 1.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1423 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1424 /* Compute an approximation for l = log2(x) = exp + log2(y). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1425 l = exp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1426 z = y;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1427 if (z < 0.70710678118654752444)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1428 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1429 z *= 1.4142135623730950488;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1430 l -= 0.5;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1431 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1432 if (z < 0.8408964152537145431)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1433 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1434 z *= 1.1892071150027210667;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1435 l -= 0.25;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1436 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1437 if (z < 0.91700404320467123175)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1438 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1439 z *= 1.0905077326652576592;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1440 l -= 0.125;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1441 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1442 if (z < 0.9576032806985736469)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1443 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1444 z *= 1.0442737824274138403;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1445 l -= 0.0625;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1446 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1447 /* Now 0.95 <= z <= 1.01. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1448 z = 1 - z;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1449 /* log2(1-z) = 1/log(2) * (- z - z^2/2 - z^3/3 - z^4/4 - ...)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1450 Four terms are enough to get an approximation with error < 10^-7. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1451 l -= 1.4426950408889634074 * z * (1.0 + z * (0.5 + z * ((1.0 / 3) + z * 0.25)));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1452 /* Finally multiply with log(2)/log(10), yields an approximation for
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1453 log10(x). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1454 l *= 0.30102999566398119523;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1455 /* Round down to the next integer. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1456 return (int) l + (l < 0 ? -1 : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1457 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1458
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1459 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1460
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1461 /* Tests whether a string of digits consists of exactly PRECISION zeroes and
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1462 a single '1' digit. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1463 static int
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1464 is_borderline (const char *digits, size_t precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1465 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1466 for (; precision > 0; precision--, digits++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1467 if (*digits != '0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1468 return 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1469 if (*digits != '1')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1470 return 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1471 digits++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1472 return *digits == '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1473 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1474
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1475 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1476
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1477 DCHAR_T *
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1478 VASNPRINTF (DCHAR_T *resultbuf, size_t *lengthp,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1479 const FCHAR_T *format, va_list args)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1480 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1481 DIRECTIVES d;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1482 arguments a;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1483
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1484 if (PRINTF_PARSE (format, &d, &a) < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1485 /* errno is already set. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1486 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1487
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1488 #define CLEANUP() \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1489 free (d.dir); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1490 if (a.arg) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1491 free (a.arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1492
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1493 if (PRINTF_FETCHARGS (args, &a) < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1494 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1495 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1496 errno = EINVAL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1497 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1498 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1499
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1500 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1501 size_t buf_neededlength;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1502 TCHAR_T *buf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1503 TCHAR_T *buf_malloced;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1504 const FCHAR_T *cp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1505 size_t i;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1506 DIRECTIVE *dp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1507 /* Output string accumulator. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1508 DCHAR_T *result;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1509 size_t allocated;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1510 size_t length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1511
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1512 /* Allocate a small buffer that will hold a directive passed to
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1513 sprintf or snprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1514 buf_neededlength =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1515 xsum4 (7, d.max_width_length, d.max_precision_length, 6);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1516 #if HAVE_ALLOCA
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1517 if (buf_neededlength < 4000 / sizeof (TCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1518 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1519 buf = (TCHAR_T *) alloca (buf_neededlength * sizeof (TCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1520 buf_malloced = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1521 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1522 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1523 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1524 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1525 size_t buf_memsize = xtimes (buf_neededlength, sizeof (TCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1526 if (size_overflow_p (buf_memsize))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1527 goto out_of_memory_1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1528 buf = (TCHAR_T *) malloc (buf_memsize);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1529 if (buf == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1530 goto out_of_memory_1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1531 buf_malloced = buf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1532 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1533
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1534 if (resultbuf != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1535 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1536 result = resultbuf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1537 allocated = *lengthp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1538 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1539 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1540 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1541 result = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1542 allocated = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1543 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1544 length = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1545 /* Invariants:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1546 result is either == resultbuf or == NULL or malloc-allocated.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1547 If length > 0, then result != NULL. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1548
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1549 /* Ensures that allocated >= needed. Aborts through a jump to
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1550 out_of_memory if needed is SIZE_MAX or otherwise too big. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1551 #define ENSURE_ALLOCATION(needed) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1552 if ((needed) > allocated) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1553 { \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1554 size_t memory_size; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1555 DCHAR_T *memory; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1556 \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1557 allocated = (allocated > 0 ? xtimes (allocated, 2) : 12); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1558 if ((needed) > allocated) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1559 allocated = (needed); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1560 memory_size = xtimes (allocated, sizeof (DCHAR_T)); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1561 if (size_overflow_p (memory_size)) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1562 goto out_of_memory; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1563 if (result == resultbuf || result == NULL) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1564 memory = (DCHAR_T *) malloc (memory_size); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1565 else \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1566 memory = (DCHAR_T *) realloc (result, memory_size); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1567 if (memory == NULL) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1568 goto out_of_memory; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1569 if (result == resultbuf && length > 0) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1570 DCHAR_CPY (memory, result, length); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1571 result = memory; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1572 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1573
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1574 for (cp = format, i = 0, dp = &d.dir[0]; ; cp = dp->dir_end, i++, dp++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1575 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1576 if (cp != dp->dir_start)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1577 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1578 size_t n = dp->dir_start - cp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1579 size_t augmented_length = xsum (length, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1580
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1581 ENSURE_ALLOCATION (augmented_length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1582 /* This copies a piece of FCHAR_T[] into a DCHAR_T[]. Here we
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1583 need that the format string contains only ASCII characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1584 if FCHAR_T and DCHAR_T are not the same type. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1585 if (sizeof (FCHAR_T) == sizeof (DCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1586 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1587 DCHAR_CPY (result + length, (const DCHAR_T *) cp, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1588 length = augmented_length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1589 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1590 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1591 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1592 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1593 result[length++] = (unsigned char) *cp++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1594 while (--n > 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1595 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1596 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1597 if (i == d.count)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1598 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1599
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1600 /* Execute a single directive. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1601 if (dp->conversion == '%')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1602 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1603 size_t augmented_length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1604
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1605 if (!(dp->arg_index == ARG_NONE))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1606 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1607 augmented_length = xsum (length, 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1608 ENSURE_ALLOCATION (augmented_length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1609 result[length] = '%';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1610 length = augmented_length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1611 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1612 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1613 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1614 if (!(dp->arg_index != ARG_NONE))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1615 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1616
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1617 if (dp->conversion == 'n')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1618 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1619 switch (a.arg[dp->arg_index].type)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1620 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1621 case TYPE_COUNT_SCHAR_POINTER:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1622 *a.arg[dp->arg_index].a.a_count_schar_pointer = length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1623 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1624 case TYPE_COUNT_SHORT_POINTER:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1625 *a.arg[dp->arg_index].a.a_count_short_pointer = length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1626 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1627 case TYPE_COUNT_INT_POINTER:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1628 *a.arg[dp->arg_index].a.a_count_int_pointer = length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1629 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1630 case TYPE_COUNT_LONGINT_POINTER:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1631 *a.arg[dp->arg_index].a.a_count_longint_pointer = length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1632 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1633 #if HAVE_LONG_LONG_INT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1634 case TYPE_COUNT_LONGLONGINT_POINTER:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1635 *a.arg[dp->arg_index].a.a_count_longlongint_pointer = length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1636 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1637 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1638 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1639 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1640 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1641 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1642 #if ENABLE_UNISTDIO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1643 /* The unistdio extensions. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1644 else if (dp->conversion == 'U')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1645 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1646 arg_type type = a.arg[dp->arg_index].type;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1647 int flags = dp->flags;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1648 int has_width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1649 size_t width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1650 int has_precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1651 size_t precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1652
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1653 has_width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1654 width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1655 if (dp->width_start != dp->width_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1656 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1657 if (dp->width_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1658 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1659 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1660
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1661 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1662 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1663 arg = a.arg[dp->width_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1664 if (arg < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1665 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1666 /* "A negative field width is taken as a '-' flag
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1667 followed by a positive field width." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1668 flags |= FLAG_LEFT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1669 width = (unsigned int) (-arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1670 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1671 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1672 width = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1673 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1674 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1675 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1676 const FCHAR_T *digitp = dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1677
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1678 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1679 width = xsum (xtimes (width, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1680 while (digitp != dp->width_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1681 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1682 has_width = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1683 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1684
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1685 has_precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1686 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1687 if (dp->precision_start != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1688 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1689 if (dp->precision_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1690 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1691 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1692
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1693 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1694 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1695 arg = a.arg[dp->precision_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1696 /* "A negative precision is taken as if the precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1697 were omitted." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1698 if (arg >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1699 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1700 precision = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1701 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1702 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1703 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1704 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1705 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1706 const FCHAR_T *digitp = dp->precision_start + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1707
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1708 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1709 while (digitp != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1710 precision = xsum (xtimes (precision, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1711 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1712 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1713 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1714
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1715 switch (type)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1716 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1717 case TYPE_U8_STRING:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1718 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1719 const uint8_t *arg = a.arg[dp->arg_index].a.a_u8_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1720 const uint8_t *arg_end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1721 size_t characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1722
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1723 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1724 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1725 /* Use only PRECISION characters, from the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1726 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1727 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1728 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1729 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1730 int count = u8_strmblen (arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1731 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1732 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1733 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1734 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1735 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1736 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1737 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1738 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1739 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1740 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1741 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1742 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1743 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1744 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1745 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1746 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1747 else if (has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1748 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1749 /* Use the entire string, and count the number of
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1750 characters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1751 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1752 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1753 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1754 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1755 int count = u8_strmblen (arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1756 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1757 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1758 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1759 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1760 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1761 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1762 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1763 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1764 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1765 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1766 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1767 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1768 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1769 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1770 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1771 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1772 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1773 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1774 /* Use the entire string. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1775 arg_end = arg + u8_strlen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1776 /* The number of characters doesn't matter. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1777 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1778 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1779
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1780 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1781 && !(dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1782 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1783 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1784 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1785 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1786 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1787 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1788
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1789 # if DCHAR_IS_UINT8_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1790 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1791 size_t n = arg_end - arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1792 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1793 DCHAR_CPY (result + length, arg, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1794 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1795 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1796 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1797 { /* Convert. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1798 DCHAR_T *converted = result + length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1799 size_t converted_len = allocated - length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1800 # if DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1801 /* Convert from UTF-8 to locale encoding. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1802 converted =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1803 u8_conv_to_encoding (locale_charset (),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1804 iconveh_question_mark,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1805 arg, arg_end - arg, NULL,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1806 converted, &converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1807 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1808 /* Convert from UTF-8 to UTF-16/UTF-32. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1809 converted =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1810 U8_TO_DCHAR (arg, arg_end - arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1811 converted, &converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1812 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1813 if (converted == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1814 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1815 int saved_errno = errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1816 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1817 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1818 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1819 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1820 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1821 errno = saved_errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1822 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1823 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1824 if (converted != result + length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1825 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1826 ENSURE_ALLOCATION (xsum (length, converted_len));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1827 DCHAR_CPY (result + length, converted, converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1828 free (converted);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1829 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1830 length += converted_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1831 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1832 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1833
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1834 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1835 && (dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1836 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1837 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1838 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1839 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1840 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1841 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1842 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1843 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1844
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1845 case TYPE_U16_STRING:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1846 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1847 const uint16_t *arg = a.arg[dp->arg_index].a.a_u16_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1848 const uint16_t *arg_end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1849 size_t characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1850
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1851 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1852 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1853 /* Use only PRECISION characters, from the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1854 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1855 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1856 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1857 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1858 int count = u16_strmblen (arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1859 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1860 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1861 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1862 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1863 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1864 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1865 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1866 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1867 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1868 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1869 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1870 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1871 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1872 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1873 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1874 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1875 else if (has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1876 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1877 /* Use the entire string, and count the number of
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1878 characters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1879 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1880 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1881 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1882 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1883 int count = u16_strmblen (arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1884 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1885 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1886 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1887 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1888 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1889 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1890 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1891 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1892 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1893 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1894 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1895 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1896 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1897 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1898 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1899 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1900 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1901 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1902 /* Use the entire string. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1903 arg_end = arg + u16_strlen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1904 /* The number of characters doesn't matter. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1905 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1906 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1907
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1908 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1909 && !(dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1910 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1911 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1912 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1913 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1914 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1915 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1916
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1917 # if DCHAR_IS_UINT16_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1918 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1919 size_t n = arg_end - arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1920 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1921 DCHAR_CPY (result + length, arg, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1922 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1923 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1924 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1925 { /* Convert. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1926 DCHAR_T *converted = result + length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1927 size_t converted_len = allocated - length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1928 # if DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1929 /* Convert from UTF-16 to locale encoding. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1930 converted =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1931 u16_conv_to_encoding (locale_charset (),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1932 iconveh_question_mark,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1933 arg, arg_end - arg, NULL,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1934 converted, &converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1935 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1936 /* Convert from UTF-16 to UTF-8/UTF-32. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1937 converted =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1938 U16_TO_DCHAR (arg, arg_end - arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1939 converted, &converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1940 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1941 if (converted == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1942 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1943 int saved_errno = errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1944 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1945 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1946 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1947 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1948 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1949 errno = saved_errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1950 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1951 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1952 if (converted != result + length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1953 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1954 ENSURE_ALLOCATION (xsum (length, converted_len));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1955 DCHAR_CPY (result + length, converted, converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1956 free (converted);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1957 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1958 length += converted_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1959 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1960 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1961
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1962 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1963 && (dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1964 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1965 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1966 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1967 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1968 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1969 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1970 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1971 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1972
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1973 case TYPE_U32_STRING:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1974 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1975 const uint32_t *arg = a.arg[dp->arg_index].a.a_u32_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1976 const uint32_t *arg_end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1977 size_t characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1978
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1979 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1980 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1981 /* Use only PRECISION characters, from the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1982 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1983 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1984 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1985 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1986 int count = u32_strmblen (arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1987 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1988 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1989 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1990 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1991 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1992 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1993 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1994 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1995 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1996 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1997 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1998 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
1999 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2000 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2001 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2002 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2003 else if (has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2004 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2005 /* Use the entire string, and count the number of
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2006 characters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2007 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2008 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2009 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2010 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2011 int count = u32_strmblen (arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2012 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2013 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2014 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2015 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2016 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2017 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2018 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2019 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2020 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2021 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2022 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2023 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2024 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2025 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2026 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2027 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2028 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2029 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2030 /* Use the entire string. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2031 arg_end = arg + u32_strlen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2032 /* The number of characters doesn't matter. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2033 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2034 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2035
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2036 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2037 && !(dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2038 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2039 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2040 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2041 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2042 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2043 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2044
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2045 # if DCHAR_IS_UINT32_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2046 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2047 size_t n = arg_end - arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2048 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2049 DCHAR_CPY (result + length, arg, n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2050 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2051 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2052 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2053 { /* Convert. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2054 DCHAR_T *converted = result + length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2055 size_t converted_len = allocated - length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2056 # if DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2057 /* Convert from UTF-32 to locale encoding. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2058 converted =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2059 u32_conv_to_encoding (locale_charset (),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2060 iconveh_question_mark,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2061 arg, arg_end - arg, NULL,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2062 converted, &converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2063 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2064 /* Convert from UTF-32 to UTF-8/UTF-16. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2065 converted =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2066 U32_TO_DCHAR (arg, arg_end - arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2067 converted, &converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2068 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2069 if (converted == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2070 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2071 int saved_errno = errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2072 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2073 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2074 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2075 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2076 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2077 errno = saved_errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2078 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2079 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2080 if (converted != result + length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2081 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2082 ENSURE_ALLOCATION (xsum (length, converted_len));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2083 DCHAR_CPY (result + length, converted, converted_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2084 free (converted);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2085 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2086 length += converted_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2087 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2088 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2089
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2090 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2091 && (dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2092 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2093 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2094 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2095 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2096 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2097 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2098 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2099 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2100
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2101 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2102 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2103 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2104 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2105 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2106 #if (!USE_SNPRINTF || (NEED_PRINTF_DIRECTIVE_LS && !defined IN_LIBINTL)) && HAVE_WCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2107 else if (dp->conversion == 's'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2108 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2109 && a.arg[dp->arg_index].type != TYPE_WIDE_STRING
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2110 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2111 && a.arg[dp->arg_index].type == TYPE_WIDE_STRING
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2112 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2113 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2114 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2115 /* The normal handling of the 's' directive below requires
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2116 allocating a temporary buffer. The determination of its
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2117 length (tmp_length), in the case when a precision is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2118 specified, below requires a conversion between a char[]
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2119 string and a wchar_t[] wide string. It could be done, but
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2120 we have no guarantee that the implementation of sprintf will
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2121 use the exactly same algorithm. Without this guarantee, it
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2122 is possible to have buffer overrun bugs. In order to avoid
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2123 such bugs, we implement the entire processing of the 's'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2124 directive ourselves. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2125 int flags = dp->flags;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2126 int has_width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2127 size_t width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2128 int has_precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2129 size_t precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2130
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2131 has_width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2132 width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2133 if (dp->width_start != dp->width_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2134 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2135 if (dp->width_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2136 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2137 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2138
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2139 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2140 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2141 arg = a.arg[dp->width_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2142 if (arg < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2143 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2144 /* "A negative field width is taken as a '-' flag
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2145 followed by a positive field width." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2146 flags |= FLAG_LEFT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2147 width = (unsigned int) (-arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2148 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2149 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2150 width = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2151 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2152 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2153 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2154 const FCHAR_T *digitp = dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2155
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2156 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2157 width = xsum (xtimes (width, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2158 while (digitp != dp->width_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2159 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2160 has_width = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2161 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2162
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2163 has_precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2164 precision = 6;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2165 if (dp->precision_start != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2166 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2167 if (dp->precision_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2168 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2169 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2170
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2171 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2172 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2173 arg = a.arg[dp->precision_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2174 /* "A negative precision is taken as if the precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2175 were omitted." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2176 if (arg >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2177 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2178 precision = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2179 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2180 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2181 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2182 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2183 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2184 const FCHAR_T *digitp = dp->precision_start + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2185
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2186 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2187 while (digitp != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2188 precision = xsum (xtimes (precision, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2189 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2190 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2191 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2192
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2193 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2194 /* %s in vasnwprintf. See the specification of fwprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2195 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2196 const char *arg = a.arg[dp->arg_index].a.a_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2197 const char *arg_end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2198 size_t characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2199
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2200 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2201 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2202 /* Use only as many bytes as needed to produce PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2203 wide characters, from the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2204 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2205 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2206 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2207 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2208 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2209 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2210 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2211 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2212 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2213 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2214 count = mbrlen (arg_end, MB_CUR_MAX, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2215 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2216 count = mblen (arg_end, MB_CUR_MAX);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2217 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2218 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2219 /* Found the terminating NUL. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2220 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2221 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2222 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2223 /* Invalid or incomplete multibyte character. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2224 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2225 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2226 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2227 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2228 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2229 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2230 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2231 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2232 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2233 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2234 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2235 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2236 else if (has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2237 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2238 /* Use the entire string, and count the number of wide
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2239 characters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2240 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2241 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2242 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2243 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2244 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2245 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2246 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2247 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2248 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2249 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2250 count = mbrlen (arg_end, MB_CUR_MAX, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2251 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2252 count = mblen (arg_end, MB_CUR_MAX);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2253 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2254 if (count == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2255 /* Found the terminating NUL. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2256 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2257 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2258 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2259 /* Invalid or incomplete multibyte character. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2260 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2261 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2262 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2263 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2264 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2265 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2266 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2267 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2268 arg_end += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2269 characters++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2270 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2271 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2272 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2273 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2274 /* Use the entire string. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2275 arg_end = arg + strlen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2276 /* The number of characters doesn't matter. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2277 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2278 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2279
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2280 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2281 && !(dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2282 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2283 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2284 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2285 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2286 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2287 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2288
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2289 if (has_precision || has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2290 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2291 /* We know the number of wide characters in advance. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2292 size_t remaining;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2293 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2294 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2295 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2296 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2297 ENSURE_ALLOCATION (xsum (length, characters));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2298 for (remaining = characters; remaining > 0; remaining--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2299 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2300 wchar_t wc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2301 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2302 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2303 count = mbrtowc (&wc, arg, arg_end - arg, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2304 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2305 count = mbtowc (&wc, arg, arg_end - arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2306 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2307 if (count <= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2308 /* mbrtowc not consistent with mbrlen, or mbtowc
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2309 not consistent with mblen. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2310 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2311 result[length++] = wc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2312 arg += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2313 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2314 if (!(arg == arg_end))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2315 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2316 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2317 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2318 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2319 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2320 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2321 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2322 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2323 while (arg < arg_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2324 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2325 wchar_t wc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2326 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2327 # if HAVE_MBRTOWC
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2328 count = mbrtowc (&wc, arg, arg_end - arg, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2329 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2330 count = mbtowc (&wc, arg, arg_end - arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2331 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2332 if (count <= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2333 /* mbrtowc not consistent with mbrlen, or mbtowc
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2334 not consistent with mblen. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2335 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2336 ENSURE_ALLOCATION (xsum (length, 1));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2337 result[length++] = wc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2338 arg += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2339 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2340 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2341
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2342 if (has_width && width > characters
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2343 && (dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2344 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2345 size_t n = width - characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2346 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2347 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2348 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2349 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2350 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2351 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2352 /* %ls in vasnprintf. See the specification of fprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2353 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2354 const wchar_t *arg = a.arg[dp->arg_index].a.a_wide_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2355 const wchar_t *arg_end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2356 size_t characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2357 # if !DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2358 /* This code assumes that TCHAR_T is 'char'. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2359 typedef int TCHAR_T_verify[2 * (sizeof (TCHAR_T) == 1) - 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2360 TCHAR_T *tmpsrc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2361 DCHAR_T *tmpdst;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2362 size_t tmpdst_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2363 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2364 size_t w;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2365
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2366 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2367 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2368 /* Use only as many wide characters as needed to produce
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2369 at most PRECISION bytes, from the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2370 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2371 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2372 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2373 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2374 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2375 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2376 while (precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2377 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2378 char cbuf[64]; /* Assume MB_CUR_MAX <= 64. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2379 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2380
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2381 if (*arg_end == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2382 /* Found the terminating null wide character. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2383 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2384 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2385 count = wcrtomb (cbuf, *arg_end, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2386 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2387 count = wctomb (cbuf, *arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2388 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2389 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2390 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2391 /* Cannot convert. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2392 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2393 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2394 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2395 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2396 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2397 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2398 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2399 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2400 if (precision < count)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2401 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2402 arg_end++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2403 characters += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2404 precision -= count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2405 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2406 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2407 # if DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2408 else if (has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2409 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2410 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2411 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2412 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2413 /* Use the entire string, and count the number of
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2414 bytes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2415 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2416 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2417 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2418 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2419 arg_end = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2420 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2421 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2422 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2423 char cbuf[64]; /* Assume MB_CUR_MAX <= 64. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2424 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2425
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2426 if (*arg_end == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2427 /* Found the terminating null wide character. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2428 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2429 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2430 count = wcrtomb (cbuf, *arg_end, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2431 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2432 count = wctomb (cbuf, *arg_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2433 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2434 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2435 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2436 /* Cannot convert. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2437 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2438 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2439 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2440 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2441 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2442 errno = EILSEQ;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2443 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2444 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2445 arg_end++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2446 characters += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2447 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2448 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2449 # if DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2450 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2451 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2452 /* Use the entire string. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2453 arg_end = arg + local_wcslen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2454 /* The number of bytes doesn't matter. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2455 characters = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2456 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2457 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2458
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2459 # if !DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2460 /* Convert the string into a piece of temporary memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2461 tmpsrc = (TCHAR_T *) malloc (characters * sizeof (TCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2462 if (tmpsrc == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2463 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2464 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2465 TCHAR_T *tmpptr = tmpsrc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2466 size_t remaining;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2467 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2468 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2469 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2470 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2471 for (remaining = characters; remaining > 0; )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2472 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2473 char cbuf[64]; /* Assume MB_CUR_MAX <= 64. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2474 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2475
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2476 if (*arg == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2477 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2478 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2479 count = wcrtomb (cbuf, *arg, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2480 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2481 count = wctomb (cbuf, *arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2482 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2483 if (count <= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2484 /* Inconsistency. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2485 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2486 memcpy (tmpptr, cbuf, count);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2487 tmpptr += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2488 arg++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2489 remaining -= count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2490 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2491 if (!(arg == arg_end))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2492 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2493 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2494
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2495 /* Convert from TCHAR_T[] to DCHAR_T[]. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2496 tmpdst =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2497 DCHAR_CONV_FROM_ENCODING (locale_charset (),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2498 iconveh_question_mark,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2499 tmpsrc, characters,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2500 NULL,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2501 NULL, &tmpdst_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2502 if (tmpdst == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2503 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2504 int saved_errno = errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2505 free (tmpsrc);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2506 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2507 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2508 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2509 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2510 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2511 errno = saved_errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2512 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2513 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2514 free (tmpsrc);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2515 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2516
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2517 if (has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2518 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2519 # if ENABLE_UNISTDIO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2520 /* Outside POSIX, it's preferrable to compare the width
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2521 against the number of _characters_ of the converted
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2522 value. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2523 w = DCHAR_MBSNLEN (result + length, characters);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2524 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2525 /* The width is compared against the number of _bytes_
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2526 of the converted value, says POSIX. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2527 w = characters;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2528 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2529 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2530 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2531 /* w doesn't matter. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2532 w = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2533
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2534 if (has_width && width > w
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2535 && !(dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2536 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2537 size_t n = width - w;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2538 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2539 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2540 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2541 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2542
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2543 # if DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2544 if (has_precision || has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2545 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2546 /* We know the number of bytes in advance. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2547 size_t remaining;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2548 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2549 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2550 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2551 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2552 ENSURE_ALLOCATION (xsum (length, characters));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2553 for (remaining = characters; remaining > 0; )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2554 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2555 char cbuf[64]; /* Assume MB_CUR_MAX <= 64. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2556 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2557
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2558 if (*arg == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2559 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2560 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2561 count = wcrtomb (cbuf, *arg, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2562 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2563 count = wctomb (cbuf, *arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2564 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2565 if (count <= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2566 /* Inconsistency. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2567 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2568 memcpy (result + length, cbuf, count);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2569 length += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2570 arg++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2571 remaining -= count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2572 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2573 if (!(arg == arg_end))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2574 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2575 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2576 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2577 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2578 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2579 mbstate_t state;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2580 memset (&state, '\0', sizeof (mbstate_t));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2581 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2582 while (arg < arg_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2583 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2584 char cbuf[64]; /* Assume MB_CUR_MAX <= 64. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2585 int count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2586
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2587 if (*arg == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2588 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2589 # if HAVE_WCRTOMB && !defined GNULIB_defined_mbstate_t
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2590 count = wcrtomb (cbuf, *arg, &state);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2591 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2592 count = wctomb (cbuf, *arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2593 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2594 if (count <= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2595 /* Inconsistency. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2596 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2597 ENSURE_ALLOCATION (xsum (length, count));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2598 memcpy (result + length, cbuf, count);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2599 length += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2600 arg++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2601 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2602 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2603 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2604 ENSURE_ALLOCATION (xsum (length, tmpdst_len));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2605 DCHAR_CPY (result + length, tmpdst, tmpdst_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2606 free (tmpdst);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2607 length += tmpdst_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2608 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2609
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2610 if (has_width && width > w
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2611 && (dp->flags & FLAG_LEFT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2612 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2613 size_t n = width - w;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2614 ENSURE_ALLOCATION (xsum (length, n));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2615 DCHAR_SET (result + length, ' ', n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2616 length += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2617 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2618 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2619 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2620 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2621 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2622 #if (NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2623 else if ((dp->conversion == 'a' || dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2624 # if !(NEED_PRINTF_DIRECTIVE_A || (NEED_PRINTF_LONG_DOUBLE && NEED_PRINTF_DOUBLE))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2625 && (0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2626 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2627 || a.arg[dp->arg_index].type == TYPE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2628 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2629 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2630 || a.arg[dp->arg_index].type == TYPE_LONGDOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2631 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2632 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2633 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2634 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2635 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2636 arg_type type = a.arg[dp->arg_index].type;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2637 int flags = dp->flags;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2638 int has_width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2639 size_t width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2640 int has_precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2641 size_t precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2642 size_t tmp_length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2643 DCHAR_T tmpbuf[700];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2644 DCHAR_T *tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2645 DCHAR_T *pad_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2646 DCHAR_T *p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2647
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2648 has_width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2649 width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2650 if (dp->width_start != dp->width_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2651 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2652 if (dp->width_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2653 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2654 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2655
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2656 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2657 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2658 arg = a.arg[dp->width_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2659 if (arg < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2660 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2661 /* "A negative field width is taken as a '-' flag
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2662 followed by a positive field width." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2663 flags |= FLAG_LEFT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2664 width = (unsigned int) (-arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2665 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2666 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2667 width = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2668 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2669 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2670 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2671 const FCHAR_T *digitp = dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2672
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2673 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2674 width = xsum (xtimes (width, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2675 while (digitp != dp->width_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2676 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2677 has_width = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2678 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2679
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2680 has_precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2681 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2682 if (dp->precision_start != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2683 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2684 if (dp->precision_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2685 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2686 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2687
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2688 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2689 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2690 arg = a.arg[dp->precision_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2691 /* "A negative precision is taken as if the precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2692 were omitted." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2693 if (arg >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2694 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2695 precision = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2696 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2697 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2698 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2699 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2700 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2701 const FCHAR_T *digitp = dp->precision_start + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2702
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2703 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2704 while (digitp != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2705 precision = xsum (xtimes (precision, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2706 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2707 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2708 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2709
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2710 /* Allocate a temporary buffer of sufficient size. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2711 if (type == TYPE_LONGDOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2712 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2713 (unsigned int) ((LDBL_DIG + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2714 * 0.831 /* decimal -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2715 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2716 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2717 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2718 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2719 (unsigned int) ((DBL_DIG + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2720 * 0.831 /* decimal -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2721 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2722 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2723 if (tmp_length < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2724 tmp_length = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2725 /* Account for sign, decimal point etc. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2726 tmp_length = xsum (tmp_length, 12);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2727
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2728 if (tmp_length < width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2729 tmp_length = width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2730
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2731 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2732
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2733 if (tmp_length <= sizeof (tmpbuf) / sizeof (DCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2734 tmp = tmpbuf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2735 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2736 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2737 size_t tmp_memsize = xtimes (tmp_length, sizeof (DCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2738
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2739 if (size_overflow_p (tmp_memsize))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2740 /* Overflow, would lead to out of memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2741 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2742 tmp = (DCHAR_T *) malloc (tmp_memsize);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2743 if (tmp == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2744 /* Out of memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2745 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2746 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2747
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2748 pad_ptr = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2749 p = tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2750 if (type == TYPE_LONGDOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2751 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2752 # if NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2753 long double arg = a.arg[dp->arg_index].a.a_longdouble;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2754
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2755 if (isnanl (arg))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2756 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2757 if (dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2758 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2759 *p++ = 'N'; *p++ = 'A'; *p++ = 'N';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2760 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2761 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2762 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2763 *p++ = 'n'; *p++ = 'a'; *p++ = 'n';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2764 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2765 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2766 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2767 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2768 int sign = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2769 DECL_LONG_DOUBLE_ROUNDING
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2770
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2771 BEGIN_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2772
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2773 if (signbit (arg)) /* arg < 0.0L or negative zero */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2774 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2775 sign = -1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2776 arg = -arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2777 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2778
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2779 if (sign < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2780 *p++ = '-';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2781 else if (flags & FLAG_SHOWSIGN)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2782 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2783 else if (flags & FLAG_SPACE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2784 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2785
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2786 if (arg > 0.0L && arg + arg == arg)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2787 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2788 if (dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2789 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2790 *p++ = 'I'; *p++ = 'N'; *p++ = 'F';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2791 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2792 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2793 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2794 *p++ = 'i'; *p++ = 'n'; *p++ = 'f';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2795 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2796 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2797 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2798 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2799 int exponent;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2800 long double mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2801
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2802 if (arg > 0.0L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2803 mantissa = printf_frexpl (arg, &exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2804 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2805 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2806 exponent = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2807 mantissa = 0.0L;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2808 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2809
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2810 if (has_precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2811 && precision < (unsigned int) ((LDBL_DIG + 1) * 0.831) + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2812 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2813 /* Round the mantissa. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2814 long double tail = mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2815 size_t q;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2816
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2817 for (q = precision; ; q--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2818 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2819 int digit = (int) tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2820 tail -= digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2821 if (q == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2822 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2823 if (digit & 1 ? tail >= 0.5L : tail > 0.5L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2824 tail = 1 - tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2825 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2826 tail = - tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2827 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2828 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2829 tail *= 16.0L;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2830 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2831 if (tail != 0.0L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2832 for (q = precision; q > 0; q--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2833 tail *= 0.0625L;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2834 mantissa += tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2835 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2836
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2837 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2838 *p++ = dp->conversion - 'A' + 'X';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2839 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2840 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2841 int digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2842
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2843 digit = (int) mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2844 mantissa -= digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2845 *p++ = '0' + digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2846 if ((flags & FLAG_ALT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2847 || mantissa > 0.0L || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2848 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2849 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2850 /* This loop terminates because we assume
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2851 that FLT_RADIX is a power of 2. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2852 while (mantissa > 0.0L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2853 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2854 mantissa *= 16.0L;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2855 digit = (int) mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2856 mantissa -= digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2857 *p++ = digit
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2858 + (digit < 10
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2859 ? '0'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2860 : dp->conversion - 10);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2861 if (precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2862 precision--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2863 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2864 while (precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2865 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2866 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2867 precision--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2868 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2869 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2870 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2871 *p++ = dp->conversion - 'A' + 'P';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2872 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2873 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2874 static const wchar_t decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2875 { '%', '+', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2876 SNPRINTF (p, 6 + 1, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2877 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2878 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2879 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2880 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2881 if (sizeof (DCHAR_T) == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2882 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2883 sprintf ((char *) p, "%+d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2884 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2885 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2886 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2887 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2888 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2889 char expbuf[6 + 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2890 const char *ep;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2891 sprintf (expbuf, "%+d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2892 for (ep = expbuf; (*p = *ep) != '\0'; ep++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2893 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2894 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2895 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2896 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2897
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2898 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2899 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2900 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2901 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2902 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2903 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2904 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2905 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2906 # if NEED_PRINTF_DIRECTIVE_A || NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2907 double arg = a.arg[dp->arg_index].a.a_double;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2908
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2909 if (isnand (arg))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2910 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2911 if (dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2912 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2913 *p++ = 'N'; *p++ = 'A'; *p++ = 'N';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2914 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2915 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2916 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2917 *p++ = 'n'; *p++ = 'a'; *p++ = 'n';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2918 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2919 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2920 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2921 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2922 int sign = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2923
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2924 if (signbit (arg)) /* arg < 0.0 or negative zero */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2925 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2926 sign = -1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2927 arg = -arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2928 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2929
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2930 if (sign < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2931 *p++ = '-';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2932 else if (flags & FLAG_SHOWSIGN)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2933 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2934 else if (flags & FLAG_SPACE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2935 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2936
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2937 if (arg > 0.0 && arg + arg == arg)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2938 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2939 if (dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2940 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2941 *p++ = 'I'; *p++ = 'N'; *p++ = 'F';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2942 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2943 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2944 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2945 *p++ = 'i'; *p++ = 'n'; *p++ = 'f';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2946 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2947 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2948 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2949 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2950 int exponent;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2951 double mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2952
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2953 if (arg > 0.0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2954 mantissa = printf_frexp (arg, &exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2955 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2956 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2957 exponent = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2958 mantissa = 0.0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2959 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2960
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2961 if (has_precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2962 && precision < (unsigned int) ((DBL_DIG + 1) * 0.831) + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2963 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2964 /* Round the mantissa. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2965 double tail = mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2966 size_t q;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2967
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2968 for (q = precision; ; q--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2969 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2970 int digit = (int) tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2971 tail -= digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2972 if (q == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2973 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2974 if (digit & 1 ? tail >= 0.5 : tail > 0.5)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2975 tail = 1 - tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2976 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2977 tail = - tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2978 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2979 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2980 tail *= 16.0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2981 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2982 if (tail != 0.0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2983 for (q = precision; q > 0; q--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2984 tail *= 0.0625;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2985 mantissa += tail;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2986 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2987
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2988 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2989 *p++ = dp->conversion - 'A' + 'X';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2990 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2991 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2992 int digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2993
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2994 digit = (int) mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2995 mantissa -= digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2996 *p++ = '0' + digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2997 if ((flags & FLAG_ALT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2998 || mantissa > 0.0 || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
2999 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3000 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3001 /* This loop terminates because we assume
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3002 that FLT_RADIX is a power of 2. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3003 while (mantissa > 0.0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3004 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3005 mantissa *= 16.0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3006 digit = (int) mantissa;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3007 mantissa -= digit;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3008 *p++ = digit
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3009 + (digit < 10
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3010 ? '0'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3011 : dp->conversion - 10);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3012 if (precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3013 precision--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3014 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3015 while (precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3016 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3017 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3018 precision--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3019 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3020 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3021 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3022 *p++ = dp->conversion - 'A' + 'P';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3023 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3024 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3025 static const wchar_t decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3026 { '%', '+', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3027 SNPRINTF (p, 6 + 1, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3028 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3029 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3030 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3031 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3032 if (sizeof (DCHAR_T) == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3033 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3034 sprintf ((char *) p, "%+d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3035 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3036 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3037 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3038 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3039 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3040 char expbuf[6 + 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3041 const char *ep;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3042 sprintf (expbuf, "%+d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3043 for (ep = expbuf; (*p = *ep) != '\0'; ep++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3044 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3045 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3046 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3047 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3048 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3049 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3050 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3051 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3052 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3053 /* The generated string now extends from tmp to p, with the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3054 zero padding insertion point being at pad_ptr. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3055 if (has_width && p - tmp < width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3056 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3057 size_t pad = width - (p - tmp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3058 DCHAR_T *end = p + pad;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3059
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3060 if (flags & FLAG_LEFT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3061 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3062 /* Pad with spaces on the right. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3063 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3064 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3065 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3066 else if ((flags & FLAG_ZERO) && pad_ptr != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3067 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3068 /* Pad with zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3069 DCHAR_T *q = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3070
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3071 while (p > pad_ptr)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3072 *--q = *--p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3073 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3074 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3075 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3076 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3077 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3078 /* Pad with spaces on the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3079 DCHAR_T *q = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3080
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3081 while (p > tmp)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3082 *--q = *--p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3083 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3084 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3085 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3086
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3087 p = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3088 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3089
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3090 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3091 size_t count = p - tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3092
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3093 if (count >= tmp_length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3094 /* tmp_length was incorrectly calculated - fix the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3095 code above! */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3096 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3097
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3098 /* Make room for the result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3099 if (count >= allocated - length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3100 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3101 size_t n = xsum (length, count);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3102
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3103 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3104 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3105
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3106 /* Append the result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3107 memcpy (result + length, tmp, count * sizeof (DCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3108 if (tmp != tmpbuf)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3109 free (tmp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3110 length += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3111 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3112 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3113 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3114 #if (NEED_PRINTF_INFINITE_DOUBLE || NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE || NEED_PRINTF_LONG_DOUBLE) && !defined IN_LIBINTL
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3115 else if ((dp->conversion == 'f' || dp->conversion == 'F'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3116 || dp->conversion == 'e' || dp->conversion == 'E'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3117 || dp->conversion == 'g' || dp->conversion == 'G'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3118 || dp->conversion == 'a' || dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3119 && (0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3120 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3121 || a.arg[dp->arg_index].type == TYPE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3122 # elif NEED_PRINTF_INFINITE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3123 || (a.arg[dp->arg_index].type == TYPE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3124 /* The systems (mingw) which produce wrong output
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3125 for Inf, -Inf, and NaN also do so for -0.0.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3126 Therefore we treat this case here as well. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3127 && is_infinite_or_zero (a.arg[dp->arg_index].a.a_double))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3128 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3129 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3130 || a.arg[dp->arg_index].type == TYPE_LONGDOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3131 # elif NEED_PRINTF_INFINITE_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3132 || (a.arg[dp->arg_index].type == TYPE_LONGDOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3133 /* Some systems produce wrong output for Inf,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3134 -Inf, and NaN. Some systems in this category
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3135 (IRIX 5.3) also do so for -0.0. Therefore we
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3136 treat this case here as well. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3137 && is_infinite_or_zerol (a.arg[dp->arg_index].a.a_longdouble))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3138 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3139 ))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3140 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3141 # if (NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE) && (NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3142 arg_type type = a.arg[dp->arg_index].type;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3143 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3144 int flags = dp->flags;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3145 int has_width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3146 size_t width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3147 int has_precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3148 size_t precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3149 size_t tmp_length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3150 DCHAR_T tmpbuf[700];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3151 DCHAR_T *tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3152 DCHAR_T *pad_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3153 DCHAR_T *p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3154
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3155 has_width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3156 width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3157 if (dp->width_start != dp->width_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3158 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3159 if (dp->width_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3160 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3161 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3162
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3163 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3164 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3165 arg = a.arg[dp->width_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3166 if (arg < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3167 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3168 /* "A negative field width is taken as a '-' flag
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3169 followed by a positive field width." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3170 flags |= FLAG_LEFT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3171 width = (unsigned int) (-arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3172 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3173 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3174 width = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3175 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3176 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3177 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3178 const FCHAR_T *digitp = dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3179
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3180 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3181 width = xsum (xtimes (width, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3182 while (digitp != dp->width_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3183 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3184 has_width = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3185 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3186
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3187 has_precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3188 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3189 if (dp->precision_start != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3190 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3191 if (dp->precision_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3192 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3193 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3194
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3195 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3196 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3197 arg = a.arg[dp->precision_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3198 /* "A negative precision is taken as if the precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3199 were omitted." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3200 if (arg >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3201 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3202 precision = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3203 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3204 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3205 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3206 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3207 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3208 const FCHAR_T *digitp = dp->precision_start + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3209
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3210 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3211 while (digitp != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3212 precision = xsum (xtimes (precision, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3213 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3214 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3215 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3216
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3217 /* POSIX specifies the default precision to be 6 for %f, %F,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3218 %e, %E, but not for %g, %G. Implementations appear to use
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3219 the same default precision also for %g, %G. But for %a, %A,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3220 the default precision is 0. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3221 if (!has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3222 if (!(dp->conversion == 'a' || dp->conversion == 'A'))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3223 precision = 6;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3224
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3225 /* Allocate a temporary buffer of sufficient size. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3226 # if NEED_PRINTF_DOUBLE && NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3227 tmp_length = (type == TYPE_LONGDOUBLE ? LDBL_DIG + 1 : DBL_DIG + 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3228 # elif NEED_PRINTF_INFINITE_DOUBLE && NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3229 tmp_length = (type == TYPE_LONGDOUBLE ? LDBL_DIG + 1 : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3230 # elif NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3231 tmp_length = LDBL_DIG + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3232 # elif NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3233 tmp_length = DBL_DIG + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3234 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3235 tmp_length = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3236 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3237 if (tmp_length < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3238 tmp_length = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3239 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3240 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3241 if (type == TYPE_LONGDOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3242 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3243 if (dp->conversion == 'f' || dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3244 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3245 long double arg = a.arg[dp->arg_index].a.a_longdouble;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3246 if (!(isnanl (arg) || arg + arg == arg))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3247 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3248 /* arg is finite and nonzero. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3249 int exponent = floorlog10l (arg < 0 ? -arg : arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3250 if (exponent >= 0 && tmp_length < exponent + precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3251 tmp_length = exponent + precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3252 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3253 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3254 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3255 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3256 # if NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3257 if (type == TYPE_DOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3258 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3259 if (dp->conversion == 'f' || dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3260 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3261 double arg = a.arg[dp->arg_index].a.a_double;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3262 if (!(isnand (arg) || arg + arg == arg))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3263 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3264 /* arg is finite and nonzero. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3265 int exponent = floorlog10 (arg < 0 ? -arg : arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3266 if (exponent >= 0 && tmp_length < exponent + precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3267 tmp_length = exponent + precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3268 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3269 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3270 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3271 /* Account for sign, decimal point etc. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3272 tmp_length = xsum (tmp_length, 12);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3273
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3274 if (tmp_length < width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3275 tmp_length = width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3276
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3277 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3278
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3279 if (tmp_length <= sizeof (tmpbuf) / sizeof (DCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3280 tmp = tmpbuf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3281 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3282 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3283 size_t tmp_memsize = xtimes (tmp_length, sizeof (DCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3284
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3285 if (size_overflow_p (tmp_memsize))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3286 /* Overflow, would lead to out of memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3287 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3288 tmp = (DCHAR_T *) malloc (tmp_memsize);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3289 if (tmp == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3290 /* Out of memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3291 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3292 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3293
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3294 pad_ptr = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3295 p = tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3296
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3297 # if NEED_PRINTF_LONG_DOUBLE || NEED_PRINTF_INFINITE_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3298 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3299 if (type == TYPE_LONGDOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3300 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3301 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3302 long double arg = a.arg[dp->arg_index].a.a_longdouble;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3303
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3304 if (isnanl (arg))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3305 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3306 if (dp->conversion >= 'A' && dp->conversion <= 'Z')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3307 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3308 *p++ = 'N'; *p++ = 'A'; *p++ = 'N';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3309 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3310 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3311 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3312 *p++ = 'n'; *p++ = 'a'; *p++ = 'n';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3313 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3314 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3315 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3316 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3317 int sign = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3318 DECL_LONG_DOUBLE_ROUNDING
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3319
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3320 BEGIN_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3321
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3322 if (signbit (arg)) /* arg < 0.0L or negative zero */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3323 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3324 sign = -1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3325 arg = -arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3326 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3327
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3328 if (sign < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3329 *p++ = '-';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3330 else if (flags & FLAG_SHOWSIGN)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3331 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3332 else if (flags & FLAG_SPACE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3333 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3334
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3335 if (arg > 0.0L && arg + arg == arg)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3336 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3337 if (dp->conversion >= 'A' && dp->conversion <= 'Z')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3338 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3339 *p++ = 'I'; *p++ = 'N'; *p++ = 'F';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3340 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3341 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3342 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3343 *p++ = 'i'; *p++ = 'n'; *p++ = 'f';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3344 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3345 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3346 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3347 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3348 # if NEED_PRINTF_LONG_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3349 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3350
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3351 if (dp->conversion == 'f' || dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3352 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3353 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3354 size_t ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3355
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3356 digits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3357 scale10_round_decimal_long_double (arg, precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3358 if (digits == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3359 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3360 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3361 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3362 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3363 ndigits = strlen (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3364
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3365 if (ndigits > precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3366 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3367 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3368 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3369 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3370 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3371 while (ndigits > precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3372 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3373 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3374 /* Here ndigits <= precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3375 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3376 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3377 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3378 for (; precision > ndigits; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3379 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3380 while (ndigits > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3381 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3382 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3383 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3384 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3385 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3386
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3387 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3388 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3389 else if (dp->conversion == 'e' || dp->conversion == 'E')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3390 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3391 int exponent;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3392
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3393 if (arg == 0.0L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3394 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3395 exponent = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3396 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3397 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3398 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3399 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3400 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3401 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3402 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3403 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3404 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3405 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3406 /* arg > 0.0L. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3407 int adjusted;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3408 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3409 size_t ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3410
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3411 exponent = floorlog10l (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3412 adjusted = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3413 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3414 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3415 digits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3416 scale10_round_decimal_long_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3417 (int)precision - exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3418 if (digits == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3419 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3420 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3421 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3422 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3423 ndigits = strlen (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3424
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3425 if (ndigits == precision + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3426 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3427 if (ndigits < precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3428 || ndigits > precision + 2)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3429 /* The exponent was not guessed
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3430 precisely enough. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3431 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3432 if (adjusted)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3433 /* None of two values of exponent is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3434 the right one. Prevent an endless
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3435 loop. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3436 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3437 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3438 if (ndigits == precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3439 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3440 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3441 exponent += 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3442 adjusted = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3443 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3444 /* Here ndigits = precision+1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3445 if (is_borderline (digits, precision))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3446 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3447 /* Maybe the exponent guess was too high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3448 and a smaller exponent can be reached
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3449 by turning a 10...0 into 9...9x. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3450 char *digits2 =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3451 scale10_round_decimal_long_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3452 (int)precision - exponent + 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3453 if (digits2 == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3454 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3455 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3456 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3457 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3458 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3459 if (strlen (digits2) == precision + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3460 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3461 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3462 digits = digits2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3463 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3464 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3465 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3466 free (digits2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3467 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3468 /* Here ndigits = precision+1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3469
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3470 *p++ = digits[--ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3471 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3472 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3473 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3474 while (ndigits > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3475 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3476 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3477 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3478 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3479 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3480
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3481 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3482 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3483
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3484 *p++ = dp->conversion; /* 'e' or 'E' */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3485 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3486 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3487 static const wchar_t decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3488 { '%', '+', '.', '2', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3489 SNPRINTF (p, 6 + 1, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3490 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3491 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3492 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3493 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3494 if (sizeof (DCHAR_T) == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3495 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3496 sprintf ((char *) p, "%+.2d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3497 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3498 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3499 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3500 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3501 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3502 char expbuf[6 + 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3503 const char *ep;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3504 sprintf (expbuf, "%+.2d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3505 for (ep = expbuf; (*p = *ep) != '\0'; ep++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3506 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3507 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3508 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3509 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3510 else if (dp->conversion == 'g' || dp->conversion == 'G')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3511 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3512 if (precision == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3513 precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3514 /* precision >= 1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3515
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3516 if (arg == 0.0L)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3517 /* The exponent is 0, >= -4, < precision.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3518 Use fixed-point notation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3519 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3520 size_t ndigits = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3521 /* Number of trailing zeroes that have to be
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3522 dropped. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3523 size_t nzeroes =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3524 (flags & FLAG_ALT ? 0 : precision - 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3525
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3526 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3527 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3528 if ((flags & FLAG_ALT) || ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3529 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3530 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3531 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3532 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3533 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3534 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3535 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3536 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3537 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3538 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3539 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3540 /* arg > 0.0L. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3541 int exponent;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3542 int adjusted;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3543 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3544 size_t ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3545 size_t nzeroes;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3546
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3547 exponent = floorlog10l (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3548 adjusted = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3549 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3550 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3551 digits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3552 scale10_round_decimal_long_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3553 (int)(precision - 1) - exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3554 if (digits == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3555 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3556 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3557 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3558 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3559 ndigits = strlen (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3560
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3561 if (ndigits == precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3562 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3563 if (ndigits < precision - 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3564 || ndigits > precision + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3565 /* The exponent was not guessed
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3566 precisely enough. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3567 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3568 if (adjusted)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3569 /* None of two values of exponent is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3570 the right one. Prevent an endless
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3571 loop. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3572 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3573 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3574 if (ndigits < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3575 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3576 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3577 exponent += 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3578 adjusted = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3579 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3580 /* Here ndigits = precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3581 if (is_borderline (digits, precision - 1))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3582 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3583 /* Maybe the exponent guess was too high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3584 and a smaller exponent can be reached
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3585 by turning a 10...0 into 9...9x. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3586 char *digits2 =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3587 scale10_round_decimal_long_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3588 (int)(precision - 1) - exponent + 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3589 if (digits2 == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3590 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3591 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3592 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3593 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3594 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3595 if (strlen (digits2) == precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3596 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3597 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3598 digits = digits2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3599 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3600 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3601 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3602 free (digits2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3603 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3604 /* Here ndigits = precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3605
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3606 /* Determine the number of trailing zeroes
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3607 that have to be dropped. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3608 nzeroes = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3609 if ((flags & FLAG_ALT) == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3610 while (nzeroes < ndigits
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3611 && digits[nzeroes] == '0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3612 nzeroes++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3613
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3614 /* The exponent is now determined. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3615 if (exponent >= -4
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3616 && exponent < (long)precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3617 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3618 /* Fixed-point notation:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3619 max(exponent,0)+1 digits, then the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3620 decimal point, then the remaining
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3621 digits without trailing zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3622 if (exponent >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3623 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3624 size_t count = exponent + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3625 /* Note: count <= precision = ndigits. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3626 for (; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3627 *p++ = digits[--ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3628 if ((flags & FLAG_ALT) || ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3629 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3630 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3631 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3632 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3633 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3634 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3635 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3636 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3637 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3638 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3639 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3640 size_t count = -exponent - 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3641 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3642 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3643 for (; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3644 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3645 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3646 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3647 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3648 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3649 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3650 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3651 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3652 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3653 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3654 /* Exponential notation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3655 *p++ = digits[--ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3656 if ((flags & FLAG_ALT) || ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3657 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3658 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3659 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3660 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3661 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3662 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3663 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3664 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3665 *p++ = dp->conversion - 'G' + 'E'; /* 'e' or 'E' */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3666 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3667 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3668 static const wchar_t decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3669 { '%', '+', '.', '2', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3670 SNPRINTF (p, 6 + 1, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3671 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3672 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3673 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3674 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3675 if (sizeof (DCHAR_T) == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3676 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3677 sprintf ((char *) p, "%+.2d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3678 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3679 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3680 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3681 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3682 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3683 char expbuf[6 + 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3684 const char *ep;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3685 sprintf (expbuf, "%+.2d", exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3686 for (ep = expbuf; (*p = *ep) != '\0'; ep++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3687 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3688 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3689 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3690 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3691
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3692 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3693 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3694 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3695 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3696 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3697 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3698 /* arg is finite. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3699 if (!(arg == 0.0L))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3700 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3701
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3702 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3703
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3704 if (dp->conversion == 'f' || dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3705 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3706 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3707 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3708 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3709 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3710 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3711 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3712 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3713 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3714 else if (dp->conversion == 'e' || dp->conversion == 'E')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3715 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3716 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3717 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3718 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3719 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3720 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3721 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3722 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3723 *p++ = dp->conversion; /* 'e' or 'E' */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3724 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3725 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3726 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3727 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3728 else if (dp->conversion == 'g' || dp->conversion == 'G')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3729 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3730 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3731 if (flags & FLAG_ALT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3732 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3733 size_t ndigits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3734 (precision > 0 ? precision - 1 : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3735 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3736 for (; ndigits > 0; --ndigits)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3737 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3738 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3739 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3740 else if (dp->conversion == 'a' || dp->conversion == 'A')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3741 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3742 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3743 *p++ = dp->conversion - 'A' + 'X';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3744 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3745 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3746 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3747 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3748 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3749 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3750 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3751 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3752 *p++ = dp->conversion - 'A' + 'P';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3753 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3754 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3755 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3756 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3757 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3758 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3759 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3760
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3761 END_LONG_DOUBLE_ROUNDING ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3762 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3763 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3764 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3765 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3766 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3767 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3768 # if NEED_PRINTF_DOUBLE || NEED_PRINTF_INFINITE_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3769 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3770 double arg = a.arg[dp->arg_index].a.a_double;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3771
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3772 if (isnand (arg))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3773 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3774 if (dp->conversion >= 'A' && dp->conversion <= 'Z')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3775 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3776 *p++ = 'N'; *p++ = 'A'; *p++ = 'N';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3777 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3778 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3779 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3780 *p++ = 'n'; *p++ = 'a'; *p++ = 'n';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3781 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3782 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3783 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3784 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3785 int sign = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3786
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3787 if (signbit (arg)) /* arg < 0.0 or negative zero */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3788 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3789 sign = -1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3790 arg = -arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3791 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3792
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3793 if (sign < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3794 *p++ = '-';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3795 else if (flags & FLAG_SHOWSIGN)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3796 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3797 else if (flags & FLAG_SPACE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3798 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3799
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3800 if (arg > 0.0 && arg + arg == arg)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3801 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3802 if (dp->conversion >= 'A' && dp->conversion <= 'Z')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3803 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3804 *p++ = 'I'; *p++ = 'N'; *p++ = 'F';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3805 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3806 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3807 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3808 *p++ = 'i'; *p++ = 'n'; *p++ = 'f';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3809 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3810 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3811 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3812 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3813 # if NEED_PRINTF_DOUBLE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3814 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3815
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3816 if (dp->conversion == 'f' || dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3817 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3818 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3819 size_t ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3820
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3821 digits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3822 scale10_round_decimal_double (arg, precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3823 if (digits == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3824 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3825 ndigits = strlen (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3826
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3827 if (ndigits > precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3828 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3829 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3830 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3831 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3832 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3833 while (ndigits > precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3834 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3835 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3836 /* Here ndigits <= precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3837 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3838 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3839 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3840 for (; precision > ndigits; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3841 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3842 while (ndigits > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3843 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3844 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3845 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3846 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3847 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3848
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3849 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3850 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3851 else if (dp->conversion == 'e' || dp->conversion == 'E')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3852 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3853 int exponent;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3854
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3855 if (arg == 0.0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3856 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3857 exponent = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3858 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3859 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3860 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3861 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3862 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3863 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3864 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3865 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3866 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3867 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3868 /* arg > 0.0. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3869 int adjusted;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3870 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3871 size_t ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3872
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3873 exponent = floorlog10 (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3874 adjusted = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3875 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3876 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3877 digits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3878 scale10_round_decimal_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3879 (int)precision - exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3880 if (digits == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3881 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3882 ndigits = strlen (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3883
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3884 if (ndigits == precision + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3885 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3886 if (ndigits < precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3887 || ndigits > precision + 2)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3888 /* The exponent was not guessed
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3889 precisely enough. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3890 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3891 if (adjusted)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3892 /* None of two values of exponent is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3893 the right one. Prevent an endless
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3894 loop. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3895 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3896 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3897 if (ndigits == precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3898 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3899 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3900 exponent += 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3901 adjusted = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3902 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3903 /* Here ndigits = precision+1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3904 if (is_borderline (digits, precision))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3905 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3906 /* Maybe the exponent guess was too high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3907 and a smaller exponent can be reached
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3908 by turning a 10...0 into 9...9x. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3909 char *digits2 =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3910 scale10_round_decimal_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3911 (int)precision - exponent + 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3912 if (digits2 == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3913 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3914 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3915 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3916 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3917 if (strlen (digits2) == precision + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3918 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3919 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3920 digits = digits2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3921 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3922 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3923 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3924 free (digits2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3925 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3926 /* Here ndigits = precision+1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3927
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3928 *p++ = digits[--ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3929 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3930 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3931 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3932 while (ndigits > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3933 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3934 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3935 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3936 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3937 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3938
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3939 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3940 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3941
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3942 *p++ = dp->conversion; /* 'e' or 'E' */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3943 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3944 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3945 static const wchar_t decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3946 /* Produce the same number of exponent digits
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3947 as the native printf implementation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3948 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3949 { '%', '+', '.', '3', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3950 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3951 { '%', '+', '.', '2', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3952 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3953 SNPRINTF (p, 6 + 1, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3954 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3955 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3956 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3957 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3958 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3959 static const char decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3960 /* Produce the same number of exponent digits
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3961 as the native printf implementation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3962 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3963 "%+.3d";
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3964 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3965 "%+.2d";
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3966 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3967 if (sizeof (DCHAR_T) == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3968 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3969 sprintf ((char *) p, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3970 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3971 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3972 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3973 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3974 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3975 char expbuf[6 + 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3976 const char *ep;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3977 sprintf (expbuf, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3978 for (ep = expbuf; (*p = *ep) != '\0'; ep++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3979 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3980 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3981 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3982 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3983 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3984 else if (dp->conversion == 'g' || dp->conversion == 'G')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3985 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3986 if (precision == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3987 precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3988 /* precision >= 1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3989
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3990 if (arg == 0.0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3991 /* The exponent is 0, >= -4, < precision.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3992 Use fixed-point notation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3993 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3994 size_t ndigits = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3995 /* Number of trailing zeroes that have to be
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3996 dropped. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3997 size_t nzeroes =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3998 (flags & FLAG_ALT ? 0 : precision - 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
3999
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4000 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4001 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4002 if ((flags & FLAG_ALT) || ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4003 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4004 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4005 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4006 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4007 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4008 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4009 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4010 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4011 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4012 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4013 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4014 /* arg > 0.0. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4015 int exponent;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4016 int adjusted;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4017 char *digits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4018 size_t ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4019 size_t nzeroes;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4020
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4021 exponent = floorlog10 (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4022 adjusted = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4023 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4024 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4025 digits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4026 scale10_round_decimal_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4027 (int)(precision - 1) - exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4028 if (digits == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4029 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4030 ndigits = strlen (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4031
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4032 if (ndigits == precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4033 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4034 if (ndigits < precision - 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4035 || ndigits > precision + 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4036 /* The exponent was not guessed
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4037 precisely enough. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4038 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4039 if (adjusted)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4040 /* None of two values of exponent is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4041 the right one. Prevent an endless
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4042 loop. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4043 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4044 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4045 if (ndigits < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4046 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4047 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4048 exponent += 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4049 adjusted = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4050 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4051 /* Here ndigits = precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4052 if (is_borderline (digits, precision - 1))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4053 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4054 /* Maybe the exponent guess was too high
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4055 and a smaller exponent can be reached
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4056 by turning a 10...0 into 9...9x. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4057 char *digits2 =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4058 scale10_round_decimal_double (arg,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4059 (int)(precision - 1) - exponent + 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4060 if (digits2 == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4061 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4062 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4063 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4064 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4065 if (strlen (digits2) == precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4066 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4067 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4068 digits = digits2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4069 exponent -= 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4070 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4071 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4072 free (digits2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4073 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4074 /* Here ndigits = precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4075
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4076 /* Determine the number of trailing zeroes
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4077 that have to be dropped. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4078 nzeroes = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4079 if ((flags & FLAG_ALT) == 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4080 while (nzeroes < ndigits
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4081 && digits[nzeroes] == '0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4082 nzeroes++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4083
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4084 /* The exponent is now determined. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4085 if (exponent >= -4
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4086 && exponent < (long)precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4087 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4088 /* Fixed-point notation:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4089 max(exponent,0)+1 digits, then the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4090 decimal point, then the remaining
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4091 digits without trailing zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4092 if (exponent >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4093 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4094 size_t count = exponent + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4095 /* Note: count <= precision = ndigits. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4096 for (; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4097 *p++ = digits[--ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4098 if ((flags & FLAG_ALT) || ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4099 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4100 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4101 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4102 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4103 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4104 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4105 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4106 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4107 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4108 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4109 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4110 size_t count = -exponent - 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4111 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4112 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4113 for (; count > 0; count--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4114 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4115 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4116 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4117 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4118 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4119 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4120 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4121 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4122 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4123 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4124 /* Exponential notation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4125 *p++ = digits[--ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4126 if ((flags & FLAG_ALT) || ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4127 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4128 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4129 while (ndigits > nzeroes)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4130 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4131 --ndigits;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4132 *p++ = digits[ndigits];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4133 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4134 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4135 *p++ = dp->conversion - 'G' + 'E'; /* 'e' or 'E' */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4136 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4137 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4138 static const wchar_t decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4139 /* Produce the same number of exponent digits
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4140 as the native printf implementation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4141 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4142 { '%', '+', '.', '3', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4143 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4144 { '%', '+', '.', '2', 'd', '\0' };
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4145 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4146 SNPRINTF (p, 6 + 1, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4147 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4148 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4149 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4150 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4151 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4152 static const char decimal_format[] =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4153 /* Produce the same number of exponent digits
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4154 as the native printf implementation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4155 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4156 "%+.3d";
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4157 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4158 "%+.2d";
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4159 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4160 if (sizeof (DCHAR_T) == 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4161 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4162 sprintf ((char *) p, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4163 while (*p != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4164 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4165 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4166 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4167 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4168 char expbuf[6 + 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4169 const char *ep;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4170 sprintf (expbuf, decimal_format, exponent);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4171 for (ep = expbuf; (*p = *ep) != '\0'; ep++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4172 p++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4173 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4174 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4175 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4176 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4177
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4178 free (digits);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4179 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4180 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4181 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4182 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4183 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4184 /* arg is finite. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4185 if (!(arg == 0.0))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4186 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4187
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4188 pad_ptr = p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4189
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4190 if (dp->conversion == 'f' || dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4191 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4192 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4193 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4194 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4195 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4196 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4197 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4198 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4199 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4200 else if (dp->conversion == 'e' || dp->conversion == 'E')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4201 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4202 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4203 if ((flags & FLAG_ALT) || precision > 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4204 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4205 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4206 for (; precision > 0; precision--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4207 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4208 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4209 *p++ = dp->conversion; /* 'e' or 'E' */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4210 *p++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4211 /* Produce the same number of exponent digits as
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4212 the native printf implementation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4213 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4214 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4215 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4216 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4217 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4218 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4219 else if (dp->conversion == 'g' || dp->conversion == 'G')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4220 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4221 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4222 if (flags & FLAG_ALT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4223 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4224 size_t ndigits =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4225 (precision > 0 ? precision - 1 : 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4226 *p++ = decimal_point_char ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4227 for (; ndigits > 0; --ndigits)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4228 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4229 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4230 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4231 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4232 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4233 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4234 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4235 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4236 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4237 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4238
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4239 /* The generated string now extends from tmp to p, with the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4240 zero padding insertion point being at pad_ptr. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4241 if (has_width && p - tmp < width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4242 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4243 size_t pad = width - (p - tmp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4244 DCHAR_T *end = p + pad;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4245
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4246 if (flags & FLAG_LEFT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4247 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4248 /* Pad with spaces on the right. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4249 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4250 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4251 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4252 else if ((flags & FLAG_ZERO) && pad_ptr != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4253 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4254 /* Pad with zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4255 DCHAR_T *q = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4256
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4257 while (p > pad_ptr)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4258 *--q = *--p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4259 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4260 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4261 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4262 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4263 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4264 /* Pad with spaces on the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4265 DCHAR_T *q = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4266
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4267 while (p > tmp)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4268 *--q = *--p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4269 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4270 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4271 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4272
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4273 p = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4274 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4275
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4276 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4277 size_t count = p - tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4278
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4279 if (count >= tmp_length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4280 /* tmp_length was incorrectly calculated - fix the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4281 code above! */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4282 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4283
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4284 /* Make room for the result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4285 if (count >= allocated - length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4286 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4287 size_t n = xsum (length, count);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4288
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4289 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4290 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4291
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4292 /* Append the result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4293 memcpy (result + length, tmp, count * sizeof (DCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4294 if (tmp != tmpbuf)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4295 free (tmp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4296 length += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4297 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4298 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4299 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4300 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4301 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4302 arg_type type = a.arg[dp->arg_index].type;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4303 int flags = dp->flags;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4304 #if !USE_SNPRINTF || !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_LEFTADJUST || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4305 int has_width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4306 size_t width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4307 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4308 #if !USE_SNPRINTF || NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4309 int has_precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4310 size_t precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4311 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4312 #if NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4313 int prec_ourselves;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4314 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4315 # define prec_ourselves 0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4316 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4317 #if NEED_PRINTF_FLAG_LEFTADJUST
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4318 # define pad_ourselves 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4319 #elif !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4320 int pad_ourselves;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4321 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4322 # define pad_ourselves 0
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4323 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4324 TCHAR_T *fbp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4325 unsigned int prefix_count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4326 int prefixes[2] IF_LINT (= { 0 });
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4327 #if !USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4328 size_t tmp_length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4329 TCHAR_T tmpbuf[700];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4330 TCHAR_T *tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4331 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4332
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4333 #if !USE_SNPRINTF || !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_LEFTADJUST || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4334 has_width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4335 width = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4336 if (dp->width_start != dp->width_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4337 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4338 if (dp->width_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4339 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4340 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4341
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4342 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4343 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4344 arg = a.arg[dp->width_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4345 if (arg < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4346 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4347 /* "A negative field width is taken as a '-' flag
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4348 followed by a positive field width." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4349 flags |= FLAG_LEFT;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4350 width = (unsigned int) (-arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4351 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4352 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4353 width = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4354 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4355 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4356 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4357 const FCHAR_T *digitp = dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4358
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4359 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4360 width = xsum (xtimes (width, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4361 while (digitp != dp->width_end);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4362 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4363 has_width = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4364 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4365 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4366
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4367 #if !USE_SNPRINTF || NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4368 has_precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4369 precision = 6;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4370 if (dp->precision_start != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4371 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4372 if (dp->precision_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4373 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4374 int arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4375
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4376 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4377 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4378 arg = a.arg[dp->precision_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4379 /* "A negative precision is taken as if the precision
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4380 were omitted." */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4381 if (arg >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4382 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4383 precision = arg;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4384 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4385 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4386 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4387 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4388 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4389 const FCHAR_T *digitp = dp->precision_start + 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4390
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4391 precision = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4392 while (digitp != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4393 precision = xsum (xtimes (precision, 10), *digitp++ - '0');
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4394 has_precision = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4395 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4396 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4397 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4398
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4399 /* Decide whether to handle the precision ourselves. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4400 #if NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4401 switch (dp->conversion)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4402 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4403 case 'd': case 'i': case 'u':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4404 case 'o':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4405 case 'x': case 'X': case 'p':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4406 prec_ourselves = has_precision && (precision > 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4407 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4408 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4409 prec_ourselves = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4410 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4411 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4412 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4413
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4414 /* Decide whether to perform the padding ourselves. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4415 #if !NEED_PRINTF_FLAG_LEFTADJUST && (!DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4416 switch (dp->conversion)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4417 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4418 # if !DCHAR_IS_TCHAR || ENABLE_UNISTDIO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4419 /* If we need conversion from TCHAR_T[] to DCHAR_T[], we need
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4420 to perform the padding after this conversion. Functions
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4421 with unistdio extensions perform the padding based on
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4422 character count rather than element count. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4423 case 'c': case 's':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4424 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4425 # if NEED_PRINTF_FLAG_ZERO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4426 case 'f': case 'F': case 'e': case 'E': case 'g': case 'G':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4427 case 'a': case 'A':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4428 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4429 pad_ourselves = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4430 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4431 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4432 pad_ourselves = prec_ourselves;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4433 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4434 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4435 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4436
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4437 #if !USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4438 /* Allocate a temporary buffer of sufficient size for calling
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4439 sprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4440 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4441 switch (dp->conversion)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4442 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4443
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4444 case 'd': case 'i': case 'u':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4445 # if HAVE_LONG_LONG_INT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4446 if (type == TYPE_LONGLONGINT || type == TYPE_ULONGLONGINT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4447 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4448 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4449 * 0.30103 /* binary -> decimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4450 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4451 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4452 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4453 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4454 if (type == TYPE_LONGINT || type == TYPE_ULONGINT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4455 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4456 (unsigned int) (sizeof (unsigned long) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4457 * 0.30103 /* binary -> decimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4458 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4459 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4460 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4461 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4462 (unsigned int) (sizeof (unsigned int) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4463 * 0.30103 /* binary -> decimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4464 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4465 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4466 if (tmp_length < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4467 tmp_length = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4468 /* Multiply by 2, as an estimate for FLAG_GROUP. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4469 tmp_length = xsum (tmp_length, tmp_length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4470 /* Add 1, to account for a leading sign. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4471 tmp_length = xsum (tmp_length, 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4472 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4473
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4474 case 'o':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4475 # if HAVE_LONG_LONG_INT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4476 if (type == TYPE_LONGLONGINT || type == TYPE_ULONGLONGINT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4477 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4478 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4479 * 0.333334 /* binary -> octal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4480 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4481 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4482 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4483 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4484 if (type == TYPE_LONGINT || type == TYPE_ULONGINT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4485 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4486 (unsigned int) (sizeof (unsigned long) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4487 * 0.333334 /* binary -> octal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4488 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4489 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4490 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4491 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4492 (unsigned int) (sizeof (unsigned int) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4493 * 0.333334 /* binary -> octal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4494 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4495 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4496 if (tmp_length < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4497 tmp_length = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4498 /* Add 1, to account for a leading sign. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4499 tmp_length = xsum (tmp_length, 1);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4500 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4501
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4502 case 'x': case 'X':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4503 # if HAVE_LONG_LONG_INT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4504 if (type == TYPE_LONGLONGINT || type == TYPE_ULONGLONGINT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4505 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4506 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4507 * 0.25 /* binary -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4508 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4509 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4510 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4511 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4512 if (type == TYPE_LONGINT || type == TYPE_ULONGINT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4513 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4514 (unsigned int) (sizeof (unsigned long) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4515 * 0.25 /* binary -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4516 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4517 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4518 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4519 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4520 (unsigned int) (sizeof (unsigned int) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4521 * 0.25 /* binary -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4522 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4523 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4524 if (tmp_length < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4525 tmp_length = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4526 /* Add 2, to account for a leading sign or alternate form. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4527 tmp_length = xsum (tmp_length, 2);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4528 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4529
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4530 case 'f': case 'F':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4531 if (type == TYPE_LONGDOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4532 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4533 (unsigned int) (LDBL_MAX_EXP
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4534 * 0.30103 /* binary -> decimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4535 * 2 /* estimate for FLAG_GROUP */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4536 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4537 + 1 /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4538 + 10; /* sign, decimal point etc. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4539 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4540 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4541 (unsigned int) (DBL_MAX_EXP
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4542 * 0.30103 /* binary -> decimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4543 * 2 /* estimate for FLAG_GROUP */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4544 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4545 + 1 /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4546 + 10; /* sign, decimal point etc. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4547 tmp_length = xsum (tmp_length, precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4548 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4549
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4550 case 'e': case 'E': case 'g': case 'G':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4551 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4552 12; /* sign, decimal point, exponent etc. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4553 tmp_length = xsum (tmp_length, precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4554 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4555
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4556 case 'a': case 'A':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4557 if (type == TYPE_LONGDOUBLE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4558 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4559 (unsigned int) (LDBL_DIG
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4560 * 0.831 /* decimal -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4561 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4562 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4563 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4564 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4565 (unsigned int) (DBL_DIG
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4566 * 0.831 /* decimal -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4567 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4568 + 1; /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4569 if (tmp_length < precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4570 tmp_length = precision;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4571 /* Account for sign, decimal point etc. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4572 tmp_length = xsum (tmp_length, 12);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4573 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4574
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4575 case 'c':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4576 # if HAVE_WINT_T && !WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4577 if (type == TYPE_WIDE_CHAR)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4578 tmp_length = MB_CUR_MAX;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4579 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4580 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4581 tmp_length = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4582 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4583
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4584 case 's':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4585 # if HAVE_WCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4586 if (type == TYPE_WIDE_STRING)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4587 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4588 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4589 /* ISO C says about %ls in fwprintf:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4590 "If the precision is not specified or is greater
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4591 than the size of the array, the array shall
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4592 contain a null wide character."
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4593 So if there is a precision, we must not use
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4594 wcslen. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4595 const wchar_t *arg =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4596 a.arg[dp->arg_index].a.a_wide_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4597
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4598 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4599 tmp_length = local_wcsnlen (arg, precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4600 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4601 tmp_length = local_wcslen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4602 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4603 /* ISO C says about %ls in fprintf:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4604 "If a precision is specified, no more than that
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4605 many bytes are written (including shift
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4606 sequences, if any), and the array shall contain
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4607 a null wide character if, to equal the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4608 multibyte character sequence length given by
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4609 the precision, the function would need to
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4610 access a wide character one past the end of the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4611 array."
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4612 So if there is a precision, we must not use
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4613 wcslen. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4614 /* This case has already been handled above. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4615 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4616 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4617 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4618 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4619 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4620 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4621 # if WIDE_CHAR_VERSION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4622 /* ISO C says about %s in fwprintf:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4623 "If the precision is not specified or is greater
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4624 than the size of the converted array, the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4625 converted array shall contain a null wide
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4626 character."
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4627 So if there is a precision, we must not use
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4628 strlen. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4629 /* This case has already been handled above. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4630 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4631 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4632 /* ISO C says about %s in fprintf:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4633 "If the precision is not specified or greater
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4634 than the size of the array, the array shall
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4635 contain a null character."
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4636 So if there is a precision, we must not use
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4637 strlen. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4638 const char *arg = a.arg[dp->arg_index].a.a_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4639
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4640 if (has_precision)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4641 tmp_length = local_strnlen (arg, precision);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4642 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4643 tmp_length = strlen (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4644 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4645 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4646 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4647
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4648 case 'p':
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4649 tmp_length =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4650 (unsigned int) (sizeof (void *) * CHAR_BIT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4651 * 0.25 /* binary -> hexadecimal */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4652 )
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4653 + 1 /* turn floor into ceil */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4654 + 2; /* account for leading 0x */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4655 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4656
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4657 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4658 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4659 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4660
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4661 if (!pad_ourselves)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4662 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4663 # if ENABLE_UNISTDIO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4664 /* Padding considers the number of characters, therefore
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4665 the number of elements after padding may be
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4666 > max (tmp_length, width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4667 but is certainly
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4668 <= tmp_length + width. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4669 tmp_length = xsum (tmp_length, width);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4670 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4671 /* Padding considers the number of elements,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4672 says POSIX. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4673 if (tmp_length < width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4674 tmp_length = width;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4675 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4676 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4677
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4678 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4679 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4680
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4681 if (tmp_length <= sizeof (tmpbuf) / sizeof (TCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4682 tmp = tmpbuf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4683 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4684 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4685 size_t tmp_memsize = xtimes (tmp_length, sizeof (TCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4686
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4687 if (size_overflow_p (tmp_memsize))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4688 /* Overflow, would lead to out of memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4689 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4690 tmp = (TCHAR_T *) malloc (tmp_memsize);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4691 if (tmp == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4692 /* Out of memory. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4693 goto out_of_memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4694 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4695 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4696
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4697 /* Construct the format string for calling snprintf or
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4698 sprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4699 fbp = buf;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4700 *fbp++ = '%';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4701 #if NEED_PRINTF_FLAG_GROUPING
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4702 /* The underlying implementation doesn't support the ' flag.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4703 Produce no grouping characters in this case; this is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4704 acceptable because the grouping is locale dependent. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4705 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4706 if (flags & FLAG_GROUP)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4707 *fbp++ = '\'';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4708 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4709 if (flags & FLAG_LEFT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4710 *fbp++ = '-';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4711 if (flags & FLAG_SHOWSIGN)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4712 *fbp++ = '+';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4713 if (flags & FLAG_SPACE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4714 *fbp++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4715 if (flags & FLAG_ALT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4716 *fbp++ = '#';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4717 if (!pad_ourselves)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4718 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4719 if (flags & FLAG_ZERO)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4720 *fbp++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4721 if (dp->width_start != dp->width_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4722 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4723 size_t n = dp->width_end - dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4724 /* The width specification is known to consist only
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4725 of standard ASCII characters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4726 if (sizeof (FCHAR_T) == sizeof (TCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4727 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4728 memcpy (fbp, dp->width_start, n * sizeof (TCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4729 fbp += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4730 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4731 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4732 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4733 const FCHAR_T *mp = dp->width_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4734 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4735 *fbp++ = (unsigned char) *mp++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4736 while (--n > 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4737 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4738 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4739 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4740 if (!prec_ourselves)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4741 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4742 if (dp->precision_start != dp->precision_end)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4743 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4744 size_t n = dp->precision_end - dp->precision_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4745 /* The precision specification is known to consist only
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4746 of standard ASCII characters. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4747 if (sizeof (FCHAR_T) == sizeof (TCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4748 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4749 memcpy (fbp, dp->precision_start, n * sizeof (TCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4750 fbp += n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4751 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4752 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4753 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4754 const FCHAR_T *mp = dp->precision_start;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4755 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4756 *fbp++ = (unsigned char) *mp++;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4757 while (--n > 0);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4758 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4759 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4760 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4761
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4762 switch (type)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4763 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4764 #if HAVE_LONG_LONG_INT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4765 case TYPE_LONGLONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4766 case TYPE_ULONGLONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4767 # if (defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4768 *fbp++ = 'I';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4769 *fbp++ = '6';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4770 *fbp++ = '4';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4771 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4772 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4773 *fbp++ = 'l';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4774 /*FALLTHROUGH*/
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4775 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4776 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4777 case TYPE_LONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4778 case TYPE_ULONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4779 #if HAVE_WINT_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4780 case TYPE_WIDE_CHAR:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4781 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4782 #if HAVE_WCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4783 case TYPE_WIDE_STRING:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4784 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4785 *fbp++ = 'l';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4786 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4787 case TYPE_LONGDOUBLE:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4788 *fbp++ = 'L';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4789 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4790 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4791 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4792 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4793 #if NEED_PRINTF_DIRECTIVE_F
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4794 if (dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4795 *fbp = 'f';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4796 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4797 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4798 *fbp = dp->conversion;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4799 #if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4800 # if !(__GLIBC__ > 2 || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 3) || ((defined _WIN32 || defined __WIN32__) && ! defined __CYGWIN__))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4801 fbp[1] = '%';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4802 fbp[2] = 'n';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4803 fbp[3] = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4804 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4805 /* On glibc2 systems from glibc >= 2.3 - probably also older
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4806 ones - we know that snprintf's returns value conforms to
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4807 ISO C 99: the gl_SNPRINTF_DIRECTIVE_N test passes.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4808 Therefore we can avoid using %n in this situation.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4809 On glibc2 systems from 2004-10-18 or newer, the use of %n
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4810 in format strings in writable memory may crash the program
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4811 (if compiled with _FORTIFY_SOURCE=2), so we should avoid it
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4812 in this situation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4813 /* On native Win32 systems (such as mingw), we can avoid using
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4814 %n because:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4815 - Although the gl_SNPRINTF_TRUNCATION_C99 test fails,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4816 snprintf does not write more than the specified number
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4817 of bytes. (snprintf (buf, 3, "%d %d", 4567, 89) writes
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4818 '4', '5', '6' into buf, not '4', '5', '\0'.)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4819 - Although the gl_SNPRINTF_RETVAL_C99 test fails, snprintf
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4820 allows us to recognize the case of an insufficient
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4821 buffer size: it returns -1 in this case.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4822 On native Win32 systems (such as mingw) where the OS is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4823 Windows Vista, the use of %n in format strings by default
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4824 crashes the program. See
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4825 <http://gcc.gnu.org/ml/gcc/2007-06/msg00122.html> and
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4826 <http://msdn2.microsoft.com/en-us/library/ms175782(VS.80).aspx>
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4827 So we should avoid %n in this situation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4828 fbp[1] = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4829 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4830 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4831 fbp[1] = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4832 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4833
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4834 /* Construct the arguments for calling snprintf or sprintf. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4835 prefix_count = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4836 if (!pad_ourselves && dp->width_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4837 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4838 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4839 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4840 prefixes[prefix_count++] = a.arg[dp->width_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4841 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4842 if (!prec_ourselves && dp->precision_arg_index != ARG_NONE)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4843 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4844 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4845 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4846 prefixes[prefix_count++] = a.arg[dp->precision_arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4847 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4848
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4849 #if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4850 /* The SNPRINTF result is appended after result[0..length].
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4851 The latter is an array of DCHAR_T; SNPRINTF appends an
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4852 array of TCHAR_T to it. This is possible because
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4853 sizeof (TCHAR_T) divides sizeof (DCHAR_T) and
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4854 alignof (TCHAR_T) <= alignof (DCHAR_T). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4855 # define TCHARS_PER_DCHAR (sizeof (DCHAR_T) / sizeof (TCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4856 /* Ensure that maxlen below will be >= 2. Needed on BeOS,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4857 where an snprintf() with maxlen==1 acts like sprintf(). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4858 ENSURE_ALLOCATION (xsum (length,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4859 (2 + TCHARS_PER_DCHAR - 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4860 / TCHARS_PER_DCHAR));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4861 /* Prepare checking whether snprintf returns the count
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4862 via %n. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4863 *(TCHAR_T *) (result + length) = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4864 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4865
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4866 for (;;)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4867 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4868 int count = -1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4869
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4870 #if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4871 int retcount = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4872 size_t maxlen = allocated - length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4873 /* SNPRINTF can fail if its second argument is
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4874 > INT_MAX. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4875 if (maxlen > INT_MAX / TCHARS_PER_DCHAR)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4876 maxlen = INT_MAX / TCHARS_PER_DCHAR;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4877 maxlen = maxlen * TCHARS_PER_DCHAR;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4878 # define SNPRINTF_BUF(arg) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4879 switch (prefix_count) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4880 { \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4881 case 0: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4882 retcount = SNPRINTF ((TCHAR_T *) (result + length), \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4883 maxlen, buf, \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4884 arg, &count); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4885 break; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4886 case 1: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4887 retcount = SNPRINTF ((TCHAR_T *) (result + length), \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4888 maxlen, buf, \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4889 prefixes[0], arg, &count); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4890 break; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4891 case 2: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4892 retcount = SNPRINTF ((TCHAR_T *) (result + length), \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4893 maxlen, buf, \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4894 prefixes[0], prefixes[1], arg, \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4895 &count); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4896 break; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4897 default: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4898 abort (); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4899 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4900 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4901 # define SNPRINTF_BUF(arg) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4902 switch (prefix_count) \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4903 { \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4904 case 0: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4905 count = sprintf (tmp, buf, arg); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4906 break; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4907 case 1: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4908 count = sprintf (tmp, buf, prefixes[0], arg); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4909 break; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4910 case 2: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4911 count = sprintf (tmp, buf, prefixes[0], prefixes[1],\
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4912 arg); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4913 break; \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4914 default: \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4915 abort (); \
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4916 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4917 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4918
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4919 switch (type)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4920 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4921 case TYPE_SCHAR:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4922 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4923 int arg = a.arg[dp->arg_index].a.a_schar;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4924 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4925 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4926 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4927 case TYPE_UCHAR:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4928 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4929 unsigned int arg = a.arg[dp->arg_index].a.a_uchar;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4930 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4931 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4932 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4933 case TYPE_SHORT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4934 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4935 int arg = a.arg[dp->arg_index].a.a_short;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4936 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4937 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4938 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4939 case TYPE_USHORT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4940 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4941 unsigned int arg = a.arg[dp->arg_index].a.a_ushort;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4942 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4943 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4944 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4945 case TYPE_INT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4946 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4947 int arg = a.arg[dp->arg_index].a.a_int;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4948 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4949 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4950 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4951 case TYPE_UINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4952 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4953 unsigned int arg = a.arg[dp->arg_index].a.a_uint;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4954 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4955 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4956 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4957 case TYPE_LONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4958 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4959 long int arg = a.arg[dp->arg_index].a.a_longint;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4960 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4961 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4962 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4963 case TYPE_ULONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4964 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4965 unsigned long int arg = a.arg[dp->arg_index].a.a_ulongint;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4966 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4967 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4968 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4969 #if HAVE_LONG_LONG_INT
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4970 case TYPE_LONGLONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4971 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4972 long long int arg = a.arg[dp->arg_index].a.a_longlongint;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4973 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4974 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4975 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4976 case TYPE_ULONGLONGINT:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4977 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4978 unsigned long long int arg = a.arg[dp->arg_index].a.a_ulonglongint;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4979 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4980 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4981 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4982 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4983 case TYPE_DOUBLE:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4984 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4985 double arg = a.arg[dp->arg_index].a.a_double;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4986 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4987 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4988 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4989 case TYPE_LONGDOUBLE:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4990 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4991 long double arg = a.arg[dp->arg_index].a.a_longdouble;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4992 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4993 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4994 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4995 case TYPE_CHAR:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4996 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4997 int arg = a.arg[dp->arg_index].a.a_char;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4998 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
4999 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5000 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5001 #if HAVE_WINT_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5002 case TYPE_WIDE_CHAR:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5003 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5004 wint_t arg = a.arg[dp->arg_index].a.a_wide_char;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5005 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5006 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5007 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5008 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5009 case TYPE_STRING:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5010 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5011 const char *arg = a.arg[dp->arg_index].a.a_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5012 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5013 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5014 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5015 #if HAVE_WCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5016 case TYPE_WIDE_STRING:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5017 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5018 const wchar_t *arg = a.arg[dp->arg_index].a.a_wide_string;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5019 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5020 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5021 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5022 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5023 case TYPE_POINTER:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5024 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5025 void *arg = a.arg[dp->arg_index].a.a_pointer;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5026 SNPRINTF_BUF (arg);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5027 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5028 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5029 default:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5030 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5031 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5032
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5033 #if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5034 /* Portability: Not all implementations of snprintf()
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5035 are ISO C 99 compliant. Determine the number of
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5036 bytes that snprintf() has produced or would have
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5037 produced. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5038 if (count >= 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5039 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5040 /* Verify that snprintf() has NUL-terminated its
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5041 result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5042 if (count < maxlen
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5043 && ((TCHAR_T *) (result + length)) [count] != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5044 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5045 /* Portability hack. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5046 if (retcount > count)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5047 count = retcount;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5048 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5049 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5050 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5051 /* snprintf() doesn't understand the '%n'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5052 directive. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5053 if (fbp[1] != '\0')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5054 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5055 /* Don't use the '%n' directive; instead, look
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5056 at the snprintf() return value. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5057 fbp[1] = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5058 continue;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5059 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5060 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5061 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5062 /* Look at the snprintf() return value. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5063 if (retcount < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5064 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5065 /* HP-UX 10.20 snprintf() is doubly deficient:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5066 It doesn't understand the '%n' directive,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5067 *and* it returns -1 (rather than the length
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5068 that would have been required) when the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5069 buffer is too small. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5070 size_t bigger_need =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5071 xsum (xtimes (allocated, 2), 12);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5072 ENSURE_ALLOCATION (bigger_need);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5073 continue;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5074 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5075 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5076 count = retcount;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5077 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5078 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5079 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5080
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5081 /* Attempt to handle failure. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5082 if (count < 0)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5083 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5084 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5085 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5086 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5087 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5088 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5089 errno = EINVAL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5090 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5091 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5092
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5093 #if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5094 /* Handle overflow of the allocated buffer.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5095 If such an overflow occurs, a C99 compliant snprintf()
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5096 returns a count >= maxlen. However, a non-compliant
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5097 snprintf() function returns only count = maxlen - 1. To
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5098 cover both cases, test whether count >= maxlen - 1. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5099 if ((unsigned int) count + 1 >= maxlen)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5100 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5101 /* If maxlen already has attained its allowed maximum,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5102 allocating more memory will not increase maxlen.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5103 Instead of looping, bail out. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5104 if (maxlen == INT_MAX / TCHARS_PER_DCHAR)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5105 goto overflow;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5106 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5107 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5108 /* Need at least (count + 1) * sizeof (TCHAR_T)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5109 bytes. (The +1 is for the trailing NUL.)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5110 But ask for (count + 2) * sizeof (TCHAR_T)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5111 bytes, so that in the next round, we likely get
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5112 maxlen > (unsigned int) count + 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5113 and so we don't get here again.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5114 And allocate proportionally, to avoid looping
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5115 eternally if snprintf() reports a too small
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5116 count. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5117 size_t n =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5118 xmax (xsum (length,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5119 ((unsigned int) count + 2
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5120 + TCHARS_PER_DCHAR - 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5121 / TCHARS_PER_DCHAR),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5122 xtimes (allocated, 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5123
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5124 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5125 continue;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5126 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5127 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5128 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5129
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5130 #if NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5131 if (prec_ourselves)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5132 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5133 /* Handle the precision. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5134 TCHAR_T *prec_ptr =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5135 # if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5136 (TCHAR_T *) (result + length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5137 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5138 tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5139 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5140 size_t prefix_count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5141 size_t move;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5142
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5143 prefix_count = 0;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5144 /* Put the additional zeroes after the sign. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5145 if (count >= 1
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5146 && (*prec_ptr == '-' || *prec_ptr == '+'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5147 || *prec_ptr == ' '))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5148 prefix_count = 1;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5149 /* Put the additional zeroes after the 0x prefix if
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5150 (flags & FLAG_ALT) || (dp->conversion == 'p'). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5151 else if (count >= 2
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5152 && prec_ptr[0] == '0'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5153 && (prec_ptr[1] == 'x' || prec_ptr[1] == 'X'))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5154 prefix_count = 2;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5155
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5156 move = count - prefix_count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5157 if (precision > move)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5158 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5159 /* Insert zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5160 size_t insert = precision - move;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5161 TCHAR_T *prec_end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5162
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5163 # if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5164 size_t n =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5165 xsum (length,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5166 (count + insert + TCHARS_PER_DCHAR - 1)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5167 / TCHARS_PER_DCHAR);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5168 length += (count + TCHARS_PER_DCHAR - 1) / TCHARS_PER_DCHAR;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5169 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5170 length -= (count + TCHARS_PER_DCHAR - 1) / TCHARS_PER_DCHAR;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5171 prec_ptr = (TCHAR_T *) (result + length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5172 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5173
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5174 prec_end = prec_ptr + count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5175 prec_ptr += prefix_count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5176
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5177 while (prec_end > prec_ptr)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5178 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5179 prec_end--;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5180 prec_end[insert] = prec_end[0];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5181 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5182
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5183 prec_end += insert;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5184 do
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5185 *--prec_end = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5186 while (prec_end > prec_ptr);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5187
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5188 count += insert;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5189 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5190 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5191 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5192
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5193 #if !USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5194 if (count >= tmp_length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5195 /* tmp_length was incorrectly calculated - fix the
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5196 code above! */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5197 abort ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5198 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5199
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5200 #if !DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5201 /* Convert from TCHAR_T[] to DCHAR_T[]. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5202 if (dp->conversion == 'c' || dp->conversion == 's')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5203 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5204 /* type = TYPE_CHAR or TYPE_WIDE_CHAR or TYPE_STRING
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5205 TYPE_WIDE_STRING.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5206 The result string is not certainly ASCII. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5207 const TCHAR_T *tmpsrc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5208 DCHAR_T *tmpdst;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5209 size_t tmpdst_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5210 /* This code assumes that TCHAR_T is 'char'. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5211 typedef int TCHAR_T_verify
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5212 [2 * (sizeof (TCHAR_T) == 1) - 1];
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5213 # if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5214 tmpsrc = (TCHAR_T *) (result + length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5215 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5216 tmpsrc = tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5217 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5218 tmpdst =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5219 DCHAR_CONV_FROM_ENCODING (locale_charset (),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5220 iconveh_question_mark,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5221 tmpsrc, count,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5222 NULL,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5223 NULL, &tmpdst_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5224 if (tmpdst == NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5225 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5226 int saved_errno = errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5227 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5228 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5229 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5230 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5231 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5232 errno = saved_errno;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5233 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5234 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5235 ENSURE_ALLOCATION (xsum (length, tmpdst_len));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5236 DCHAR_CPY (result + length, tmpdst, tmpdst_len);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5237 free (tmpdst);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5238 count = tmpdst_len;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5239 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5240 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5241 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5242 /* The result string is ASCII.
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5243 Simple 1:1 conversion. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5244 # if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5245 /* If sizeof (DCHAR_T) == sizeof (TCHAR_T), it's a
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5246 no-op conversion, in-place on the array starting
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5247 at (result + length). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5248 if (sizeof (DCHAR_T) != sizeof (TCHAR_T))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5249 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5250 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5251 const TCHAR_T *tmpsrc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5252 DCHAR_T *tmpdst;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5253 size_t n;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5254
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5255 # if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5256 if (result == resultbuf)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5257 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5258 tmpsrc = (TCHAR_T *) (result + length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5259 /* ENSURE_ALLOCATION will not move tmpsrc
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5260 (because it's part of resultbuf). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5261 ENSURE_ALLOCATION (xsum (length, count));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5262 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5263 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5264 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5265 /* ENSURE_ALLOCATION will move the array
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5266 (because it uses realloc(). */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5267 ENSURE_ALLOCATION (xsum (length, count));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5268 tmpsrc = (TCHAR_T *) (result + length);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5269 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5270 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5271 tmpsrc = tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5272 ENSURE_ALLOCATION (xsum (length, count));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5273 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5274 tmpdst = result + length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5275 /* Copy backwards, because of overlapping. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5276 tmpsrc += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5277 tmpdst += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5278 for (n = count; n > 0; n--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5279 *--tmpdst = (unsigned char) *--tmpsrc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5280 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5281 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5282 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5283
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5284 #if DCHAR_IS_TCHAR && !USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5285 /* Make room for the result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5286 if (count > allocated - length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5287 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5288 /* Need at least count elements. But allocate
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5289 proportionally. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5290 size_t n =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5291 xmax (xsum (length, count), xtimes (allocated, 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5292
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5293 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5294 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5295 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5296
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5297 /* Here count <= allocated - length. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5298
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5299 /* Perform padding. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5300 #if !DCHAR_IS_TCHAR || ENABLE_UNISTDIO || NEED_PRINTF_FLAG_LEFTADJUST || NEED_PRINTF_FLAG_ZERO || NEED_PRINTF_UNBOUNDED_PRECISION
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5301 if (pad_ourselves && has_width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5302 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5303 size_t w;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5304 # if ENABLE_UNISTDIO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5305 /* Outside POSIX, it's preferrable to compare the width
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5306 against the number of _characters_ of the converted
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5307 value. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5308 w = DCHAR_MBSNLEN (result + length, count);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5309 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5310 /* The width is compared against the number of _bytes_
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5311 of the converted value, says POSIX. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5312 w = count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5313 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5314 if (w < width)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5315 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5316 size_t pad = width - w;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5317
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5318 /* Make room for the result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5319 if (xsum (count, pad) > allocated - length)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5320 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5321 /* Need at least count + pad elements. But
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5322 allocate proportionally. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5323 size_t n =
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5324 xmax (xsum3 (length, count, pad),
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5325 xtimes (allocated, 2));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5326
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5327 # if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5328 length += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5329 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5330 length -= count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5331 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5332 ENSURE_ALLOCATION (n);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5333 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5334 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5335 /* Here count + pad <= allocated - length. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5336
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5337 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5338 # if !DCHAR_IS_TCHAR || USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5339 DCHAR_T * const rp = result + length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5340 # else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5341 DCHAR_T * const rp = tmp;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5342 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5343 DCHAR_T *p = rp + count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5344 DCHAR_T *end = p + pad;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5345 DCHAR_T *pad_ptr;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5346 # if !DCHAR_IS_TCHAR || ENABLE_UNISTDIO
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5347 if (dp->conversion == 'c'
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5348 || dp->conversion == 's')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5349 /* No zero-padding for string directives. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5350 pad_ptr = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5351 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5352 # endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5353 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5354 pad_ptr = (*rp == '-' ? rp + 1 : rp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5355 /* No zero-padding of "inf" and "nan". */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5356 if ((*pad_ptr >= 'A' && *pad_ptr <= 'Z')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5357 || (*pad_ptr >= 'a' && *pad_ptr <= 'z'))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5358 pad_ptr = NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5359 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5360 /* The generated string now extends from rp to p,
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5361 with the zero padding insertion point being at
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5362 pad_ptr. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5363
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5364 count = count + pad; /* = end - rp */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5365
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5366 if (flags & FLAG_LEFT)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5367 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5368 /* Pad with spaces on the right. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5369 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5370 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5371 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5372 else if ((flags & FLAG_ZERO) && pad_ptr != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5373 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5374 /* Pad with zeroes. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5375 DCHAR_T *q = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5376
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5377 while (p > pad_ptr)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5378 *--q = *--p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5379 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5380 *p++ = '0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5381 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5382 else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5383 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5384 /* Pad with spaces on the left. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5385 DCHAR_T *q = end;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5386
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5387 while (p > rp)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5388 *--q = *--p;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5389 for (; pad > 0; pad--)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5390 *p++ = ' ';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5391 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5392 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5393 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5394 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5395 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5396
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5397 /* Here still count <= allocated - length. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5398
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5399 #if !DCHAR_IS_TCHAR || USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5400 /* The snprintf() result did fit. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5401 #else
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5402 /* Append the sprintf() result. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5403 memcpy (result + length, tmp, count * sizeof (DCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5404 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5405 #if !USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5406 if (tmp != tmpbuf)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5407 free (tmp);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5408 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5409
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5410 #if NEED_PRINTF_DIRECTIVE_F
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5411 if (dp->conversion == 'F')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5412 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5413 /* Convert the %f result to upper case for %F. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5414 DCHAR_T *rp = result + length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5415 size_t rc;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5416 for (rc = count; rc > 0; rc--, rp++)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5417 if (*rp >= 'a' && *rp <= 'z')
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5418 *rp = *rp - 'a' + 'A';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5419 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5420 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5421
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5422 length += count;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5423 break;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5424 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5425 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5426 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5427 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5428
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5429 /* Add the final NUL. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5430 ENSURE_ALLOCATION (xsum (length, 1));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5431 result[length] = '\0';
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5432
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5433 if (result != resultbuf && length + 1 < allocated)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5434 {
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5435 /* Shrink the allocated memory if possible. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5436 DCHAR_T *memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5437
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5438 memory = (DCHAR_T *) realloc (result, (length + 1) * sizeof (DCHAR_T));
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5439 if (memory != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5440 result = memory;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5441 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5442
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5443 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5444 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5445 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5446 *lengthp = length;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5447 /* Note that we can produce a big string of a length > INT_MAX. POSIX
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5448 says that snprintf() fails with errno = EOVERFLOW in this case, but
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5449 that's only because snprintf() returns an 'int'. This function does
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5450 not have this limitation. */
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5451 return result;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5452
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5453 #if USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5454 overflow:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5455 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5456 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5457 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5458 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5459 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5460 errno = EOVERFLOW;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5461 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5462 #endif
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5463
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5464 out_of_memory:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5465 if (!(result == resultbuf || result == NULL))
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5466 free (result);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5467 if (buf_malloced != NULL)
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5468 free (buf_malloced);
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5469 out_of_memory_1:
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5470 CLEANUP ();
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5471 errno = ENOMEM;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5472 return NULL;
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5473 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5474 }
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5475
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5476 #undef TCHARS_PER_DCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5477 #undef SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5478 #undef USE_SNPRINTF
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5479 #undef DCHAR_SET
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5480 #undef DCHAR_CPY
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5481 #undef PRINTF_PARSE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5482 #undef DIRECTIVES
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5483 #undef DIRECTIVE
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5484 #undef DCHAR_IS_TCHAR
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5485 #undef TCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5486 #undef DCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5487 #undef FCHAR_T
b8bf63962a99 Added various generated files for release
lost@l-w.ca
parents:
diff changeset
5488 #undef VASNPRINTF