OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [libiberty/] [_doprnt.c] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
/* 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_OPEN (args, format);
226
  VA_FIXEDARG (args, char *, format);
227
 
228
  result = _doprnt (format, args, stdout);
229
  VA_CLOSE (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 */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.