[PATCH] include * ansidecl.h (ANSI_PROTOTYPES, PTRCONST, LONG_DOUBLE, PARAMS) ...
[external/binutils.git] / libiberty / _doprnt.c
1 /* Provide a version of _doprnt in terms of fprintf.
2    Copyright (C) 1998, 1999, 2000, 2001, 2002   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          continue; \
59      } while (0)
60
61 #define PRINT_TYPE(TYPE) \
62   do { \
63         int result; \
64         TYPE value = va_arg (ap, TYPE); \
65         *sptr++ = *ptr++; /* Copy the type specifier.  */ \
66         *sptr = '\0'; /* NULL terminate sptr.  */ \
67         result = fprintf(stream, specifier, value); \
68         if (result == -1) \
69           return -1; \
70         else \
71           { \
72             total_printed += result; \
73             continue; \
74           } \
75       } while (0)
76
77 int
78 _doprnt (const char *format, va_list ap, FILE *stream)
79 {
80   const char * ptr = format;
81   char specifier[128];
82   int total_printed = 0;
83   
84   while (*ptr != '\0')
85     {
86       if (*ptr != '%') /* While we have regular characters, print them.  */
87         PRINT_CHAR(*ptr);
88       else /* We got a format specifier! */
89         {
90           char * sptr = specifier;
91           int wide_width = 0, short_width = 0;
92           
93           *sptr++ = *ptr++; /* Copy the % and move forward.  */
94
95           while (strchr ("-+ #0", *ptr)) /* Move past flags.  */
96             *sptr++ = *ptr++;
97
98           if (*ptr == '*')
99             COPY_VA_INT;
100           else
101             while (ISDIGIT(*ptr)) /* Handle explicit numeric value.  */
102               *sptr++ = *ptr++;
103           
104           if (*ptr == '.')
105             {
106               *sptr++ = *ptr++; /* Copy and go past the period.  */
107               if (*ptr == '*')
108                 COPY_VA_INT;
109               else
110                 while (ISDIGIT(*ptr)) /* Handle explicit numeric value.  */
111                   *sptr++ = *ptr++;
112             }
113           while (strchr ("hlL", *ptr))
114             {
115               switch (*ptr)
116                 {
117                 case 'h':
118                   short_width = 1;
119                   break;
120                 case 'l':
121                   wide_width++;
122                   break;
123                 case 'L':
124                   wide_width = 2;
125                   break;
126                 default:
127                   abort();
128                 }
129               *sptr++ = *ptr++;
130             }
131
132           switch (*ptr)
133             {
134             case 'd':
135             case 'i':
136             case 'o':
137             case 'u':
138             case 'x':
139             case 'X':
140             case 'c':
141               {
142                 /* Short values are promoted to int, so just copy it
143                    as an int and trust the C library printf to cast it
144                    to the right width.  */
145                 if (short_width)
146                   PRINT_TYPE(int);
147                 else
148                   {
149                     switch (wide_width)
150                       {
151                       case 0:
152                         PRINT_TYPE(int);
153                         break;
154                       case 1:
155                         PRINT_TYPE(long);
156                         break;
157                       case 2:
158                       default:
159 #if defined(__GNUC__) || defined(HAVE_LONG_LONG)
160                         PRINT_TYPE(long long);
161 #else
162                         PRINT_TYPE(long); /* Fake it and hope for the best.  */
163 #endif
164                         break;
165                       } /* End of switch (wide_width) */
166                   } /* End of else statement */
167               } /* End of integer case */
168               break;
169             case 'f':
170             case 'e':
171             case 'E':
172             case 'g':
173             case 'G':
174               {
175                 if (wide_width == 0)
176                   PRINT_TYPE(double);
177                 else
178                   {
179 #if defined(__GNUC__) || defined(HAVE_LONG_DOUBLE)
180                     PRINT_TYPE(long double);
181 #else
182                     PRINT_TYPE(double); /* Fake it and hope for the best.  */
183 #endif
184                   }
185               }
186               break;
187             case 's':
188               PRINT_TYPE(char *);
189               break;
190             case 'p':
191               PRINT_TYPE(void *);
192               break;
193             case '%':
194               PRINT_CHAR('%');
195               break;
196             default:
197               abort();
198             } /* End of switch (*ptr) */
199         } /* End of else statement */
200     }
201
202   return total_printed;
203 }
204
205 #ifdef TEST
206
207 #include <math.h>
208 #ifndef M_PI
209 #define M_PI (3.1415926535897932385)
210 #endif
211
212 #define RESULT(x) do \
213 { \
214     int i = (x); \
215     printf ("printed %d characters\n", i); \
216     fflush(stdin); \
217 } while (0)
218
219 static int checkit (const char * format, ...) ATTRIBUTE_PRINTF_1;
220
221 static int
222 checkit (const char* format, ...)
223 {
224   int result;
225   va_list args;
226   va_start (args, format);
227
228   result = _doprnt (format, args, stdout);
229   va_end (args);
230
231   return result;
232 }
233
234 int
235 main (void)
236 {
237   RESULT(checkit ("<%d>\n", 0x12345678));
238   RESULT(printf ("<%d>\n", 0x12345678));
239
240   RESULT(checkit ("<%200d>\n", 5));
241   RESULT(printf ("<%200d>\n", 5));
242
243   RESULT(checkit ("<%.300d>\n", 6));
244   RESULT(printf ("<%.300d>\n", 6));
245
246   RESULT(checkit ("<%100.150d>\n", 7));
247   RESULT(printf ("<%100.150d>\n", 7));
248
249   RESULT(checkit ("<%s>\n",
250                   "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\
251 777777777777777777333333333333366666666666622222222222777777777777733333"));
252   RESULT(printf ("<%s>\n",
253                  "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\
254 777777777777777777333333333333366666666666622222222222777777777777733333"));
255
256   RESULT(checkit ("<%f><%0+#f>%s%d%s>\n",
257                   1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"));
258   RESULT(printf ("<%f><%0+#f>%s%d%s>\n",
259                  1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"));
260
261   RESULT(checkit ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI));
262   RESULT(printf ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI));
263
264   RESULT(checkit ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI));
265   RESULT(printf ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI));
266
267   RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n",
268                   75, 75, 75, 75, 75, 75, 75));
269   RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n",
270                  75, 75, 75, 75, 75, 75, 75));
271
272   RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n",
273                   75, 75, 75, 75, 75, 75, 75));
274   RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n",
275                  75, 75, 75, 75, 75, 75, 75));
276
277   RESULT(checkit ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456));
278   RESULT(printf ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456));
279
280 #if defined(__GNUC__) || defined (HAVE_LONG_LONG)
281   RESULT(checkit ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345));
282   RESULT(printf ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345));
283   RESULT(checkit ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345));
284   RESULT(printf ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345));
285 #endif
286
287 #if defined(__GNUC__) || defined (HAVE_LONG_DOUBLE)
288   RESULT(checkit ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n",
289                   1.23456, 1.234567890123456789L, 1.23456));
290   RESULT(printf ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n",
291                  1.23456, 1.234567890123456789L, 1.23456));
292 #endif
293
294   return 0;
295 }
296 #endif /* TEST */