1 /* Provide a version of _doprnt in terms of fprintf.
2 Copyright (C) 1998-2024 Free Software Foundation, Inc.
3 Contributed by Kaveh Ghazi (ghazi@caip.rutgers.edu) 3/29/98
4
5 This program is free software; you can redistribute it and/or modify it
6 under the terms of the GNU General Public License as published by the
7 Free Software Foundation; either version 2, or (at your option) any
8 later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
18
19 #include "config.h"
20 #include "ansidecl.h"
21 #include "safe-ctype.h"
22
23 #include <stdio.h>
24 #include <stdarg.h>
25 #ifdef HAVE_STRING_H
26 #include <string.h>
27 #endif
28 #ifdef HAVE_STDLIB_H
29 #include <stdlib.h>
30 #endif
31
32 #undef _doprnt
33
34 #ifdef HAVE__DOPRNT
35 #define TEST
36 #endif
37
38 #ifdef TEST /* Make sure to use the internal one. */
39 #define _doprnt my_doprnt
40 #endif
41
42 #define COPY_VA_INT \
43 do { \
44 const int value = abs (va_arg (ap, int)); \
45 char buf[32]; \
46 ptr++; /* Go past the asterisk. */ \
47 *sptr = '\0'; /* NULL terminate sptr. */ \
48 sprintf(buf, "%d", value); \
49 strcat(sptr, buf); \
50 while (*sptr) sptr++; \
51 } while (0)
52
53 #define PRINT_CHAR(CHAR) \
54 do { \
55 putc(CHAR, stream); \
56 ptr++; \
57 total_printed++; \
58 } while (0)
59
60 #define PRINT_TYPE(TYPE) \
61 do { \
62 int result; \
63 TYPE value = va_arg (ap, TYPE); \
64 *sptr++ = *ptr++; /* Copy the type specifier. */ \
65 *sptr = '\0'; /* NULL terminate sptr. */ \
66 result = fprintf(stream, specifier, value); \
67 if (result == -1) \
68 return -1; \
69 else \
70 { \
71 total_printed += result; \
72 continue; \
73 } \
74 } while (0)
75
76 int
_doprnt(const char * format,va_list ap,FILE * stream)77 _doprnt (const char *format, va_list ap, FILE *stream)
78 {
79 const char * ptr = format;
80 char specifier[128];
81 int total_printed = 0;
82
83 while (*ptr != '\0')
84 {
85 if (*ptr != '%') /* While we have regular characters, print them. */
86 PRINT_CHAR(*ptr);
87 else /* We got a format specifier! */
88 {
89 char * sptr = specifier;
90 int wide_width = 0, short_width = 0;
91
92 *sptr++ = *ptr++; /* Copy the % and move forward. */
93
94 while (strchr ("-+ #0", *ptr)) /* Move past flags. */
95 *sptr++ = *ptr++;
96
97 if (*ptr == '*')
98 COPY_VA_INT;
99 else
100 while (ISDIGIT(*ptr)) /* Handle explicit numeric value. */
101 *sptr++ = *ptr++;
102
103 if (*ptr == '.')
104 {
105 *sptr++ = *ptr++; /* Copy and go past the period. */
106 if (*ptr == '*')
107 COPY_VA_INT;
108 else
109 while (ISDIGIT(*ptr)) /* Handle explicit numeric value. */
110 *sptr++ = *ptr++;
111 }
112 while (strchr ("hlL", *ptr))
113 {
114 switch (*ptr)
115 {
116 case 'h':
117 short_width = 1;
118 break;
119 case 'l':
120 wide_width++;
121 break;
122 case 'L':
123 wide_width = 2;
124 break;
125 default:
126 abort();
127 }
128 *sptr++ = *ptr++;
129 }
130
131 switch (*ptr)
132 {
133 case 'd':
134 case 'i':
135 case 'o':
136 case 'u':
137 case 'x':
138 case 'X':
139 case 'c':
140 {
141 /* Short values are promoted to int, so just copy it
142 as an int and trust the C library printf to cast it
143 to the right width. */
144 if (short_width)
145 PRINT_TYPE(int);
146 else
147 {
148 switch (wide_width)
149 {
150 case 0:
151 PRINT_TYPE(int);
152 break;
153 case 1:
154 PRINT_TYPE(long);
155 break;
156 case 2:
157 default:
158 #if defined(__GNUC__) || defined(HAVE_LONG_LONG)
159 PRINT_TYPE(long long);
160 #else
161 PRINT_TYPE(long); /* Fake it and hope for the best. */
162 #endif
163 break;
164 } /* End of switch (wide_width) */
165 } /* End of else statement */
166 } /* End of integer case */
167 break;
168 case 'f':
169 case 'e':
170 case 'E':
171 case 'g':
172 case 'G':
173 {
174 if (wide_width == 0)
175 PRINT_TYPE(double);
176 else
177 {
178 #if defined(__GNUC__) || defined(HAVE_LONG_DOUBLE)
179 PRINT_TYPE(long double);
180 #else
181 PRINT_TYPE(double); /* Fake it and hope for the best. */
182 #endif
183 }
184 }
185 break;
186 case 's':
187 PRINT_TYPE(char *);
188 break;
189 case 'p':
190 PRINT_TYPE(void *);
191 break;
192 case '%':
193 PRINT_CHAR('%');
194 break;
195 default:
196 abort();
197 } /* End of switch (*ptr) */
198 } /* End of else statement */
199 }
200
201 return total_printed;
202 }
203
204 #ifdef TEST
205
206 #include <math.h>
207 #ifndef M_PI
208 #define M_PI (3.1415926535897932385)
209 #endif
210
211 #define RESULT(x) do \
212 { \
213 int i = (x); \
214 printf ("printed %d characters\n", i); \
215 fflush(stdin); \
216 } while (0)
217
218 static int checkit (const char * format, ...) ATTRIBUTE_PRINTF_1;
219
220 static int
checkit(const char * format,...)221 checkit (const char* format, ...)
222 {
223 int result;
224 va_list args;
225 va_start (args, format);
226
227 result = _doprnt (format, args, stdout);
228 va_end (args);
229
230 return result;
231 }
232
233 int
main(void)234 main (void)
235 {
236 RESULT(checkit ("<%d>\n", 0x12345678));
237 RESULT(printf ("<%d>\n", 0x12345678));
238
239 RESULT(checkit ("<%200d>\n", 5));
240 RESULT(printf ("<%200d>\n", 5));
241
242 RESULT(checkit ("<%.300d>\n", 6));
243 RESULT(printf ("<%.300d>\n", 6));
244
245 RESULT(checkit ("<%100.150d>\n", 7));
246 RESULT(printf ("<%100.150d>\n", 7));
247
248 RESULT(checkit ("<%s>\n",
249 "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\
250 777777777777777777333333333333366666666666622222222222777777777777733333"));
251 RESULT(printf ("<%s>\n",
252 "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\
253 777777777777777777333333333333366666666666622222222222777777777777733333"));
254
255 RESULT(checkit ("<%f><%0+#f>%s%d%s>\n",
256 1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"));
257 RESULT(printf ("<%f><%0+#f>%s%d%s>\n",
258 1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"));
259
260 RESULT(checkit ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI));
261 RESULT(printf ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI));
262
263 RESULT(checkit ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI));
264 RESULT(printf ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI));
265
266 RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n",
267 75, 75, 75, 75, 75, 75, 75));
268 RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n",
269 75, 75, 75, 75, 75, 75, 75));
270
271 RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n",
272 75, 75, 75, 75, 75, 75, 75));
273 RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n",
274 75, 75, 75, 75, 75, 75, 75));
275
276 RESULT(checkit ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456));
277 RESULT(printf ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456));
278
279 #if defined(__GNUC__) || defined (HAVE_LONG_LONG)
280 RESULT(checkit ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345));
281 RESULT(printf ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345));
282 RESULT(checkit ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345));
283 RESULT(printf ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345));
284 #endif
285
286 #if defined(__GNUC__) || defined (HAVE_LONG_DOUBLE)
287 RESULT(checkit ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n",
288 1.23456, 1.234567890123456789L, 1.23456));
289 RESULT(printf ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n",
290 1.23456, 1.234567890123456789L, 1.23456));
291 #endif
292
293 return 0;
294 }
295 #endif /* TEST */
296