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