URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


/* Provide a version of _doprnt in terms of fprintf.
   Copyright (C) 1998, 1999, 2000, 2001, 2002   Free Software Foundation, Inc.
   Contributed by Kaveh Ghazi  (ghazi@caip.rutgers.edu)  3/29/98
 
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
 
#include "config.h"
#include "ansidecl.h"
#include "safe-ctype.h"
 
#include <stdio.h>
#include <stdarg.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
 
#undef _doprnt
 
#ifdef HAVE__DOPRNT
#define TEST
#endif
 
#ifdef TEST /* Make sure to use the internal one.  */
#define _doprnt my_doprnt
#endif
 
#define COPY_VA_INT \
  do { \
         const int value = abs (va_arg (ap, int)); \
         char buf[32]; \
         ptr++; /* Go past the asterisk.  */ \
         *sptr = '\0'; /* NULL terminate sptr.  */ \
         sprintf(buf, "%d", value); \
         strcat(sptr, buf); \
         while (*sptr) sptr++; \
     } while (0)
 
#define PRINT_CHAR(CHAR) \
  do { \
         putc(CHAR, stream); \
         ptr++; \
         total_printed++; \
         continue; \
     } while (0)
 
#define PRINT_TYPE(TYPE) \
  do { \
        int result; \
        TYPE value = va_arg (ap, TYPE); \
        *sptr++ = *ptr++; /* Copy the type specifier.  */ \
        *sptr = '\0'; /* NULL terminate sptr.  */ \
        result = fprintf(stream, specifier, value); \
        if (result == -1) \
          return -1; \
        else \
          { \
            total_printed += result; \
            continue; \
          } \
      } while (0)
 
int
_doprnt (const char *format, va_list ap, FILE *stream)
{
  const char * ptr = format;
  char specifier[128];
  int total_printed = 0;
 
  while (*ptr != '\0')
    {
      if (*ptr != '%') /* While we have regular characters, print them.  */
        PRINT_CHAR(*ptr);
      else /* We got a format specifier! */
        {
          char * sptr = specifier;
          int wide_width = 0, short_width = 0;
 
          *sptr++ = *ptr++; /* Copy the % and move forward.  */
 
          while (strchr ("-+ #0", *ptr)) /* Move past flags.  */
            *sptr++ = *ptr++;
 
          if (*ptr == '*')
            COPY_VA_INT;
          else
            while (ISDIGIT(*ptr)) /* Handle explicit numeric value.  */
              *sptr++ = *ptr++;
 
          if (*ptr == '.')
            {
              *sptr++ = *ptr++; /* Copy and go past the period.  */
              if (*ptr == '*')
                COPY_VA_INT;
              else
                while (ISDIGIT(*ptr)) /* Handle explicit numeric value.  */
                  *sptr++ = *ptr++;
            }
          while (strchr ("hlL", *ptr))
            {
              switch (*ptr)
                {
                case 'h':
                  short_width = 1;
                  break;
                case 'l':
                  wide_width++;
                  break;
                case 'L':
                  wide_width = 2;
                  break;
                default:
                  abort();
                }
              *sptr++ = *ptr++;
            }
 
          switch (*ptr)
            {
            case 'd':
            case 'i':
            case 'o':
            case 'u':
            case 'x':
            case 'X':
            case 'c':
              {
                /* Short values are promoted to int, so just copy it
                   as an int and trust the C library printf to cast it
                   to the right width.  */
                if (short_width)
                  PRINT_TYPE(int);
                else
                  {
                    switch (wide_width)
                      {
                      case 0:
                        PRINT_TYPE(int);
                        break;
                      case 1:
                        PRINT_TYPE(long);
                        break;
                      case 2:
                      default:
#if defined(__GNUC__) || defined(HAVE_LONG_LONG)
                        PRINT_TYPE(long long);
#else
                        PRINT_TYPE(long); /* Fake it and hope for the best.  */
#endif
                        break;
                      } /* End of switch (wide_width) */
                  } /* End of else statement */
              } /* End of integer case */
              break;
            case 'f':
            case 'e':
            case 'E':
            case 'g':
            case 'G':
              {
                if (wide_width == 0)
                  PRINT_TYPE(double);
                else
                  {
#if defined(__GNUC__) || defined(HAVE_LONG_DOUBLE)
                    PRINT_TYPE(long double);
#else
                    PRINT_TYPE(double); /* Fake it and hope for the best.  */
#endif
                  }
              }
              break;
            case 's':
              PRINT_TYPE(char *);
              break;
            case 'p':
              PRINT_TYPE(void *);
              break;
            case '%':
              PRINT_CHAR('%');
              break;
            default:
              abort();
            } /* End of switch (*ptr) */
        } /* End of else statement */
    }
 
  return total_printed;
}
 
#ifdef TEST
 
#include <math.h>
#ifndef M_PI
#define M_PI (3.1415926535897932385)
#endif
 
#define RESULT(x) do \
{ \
    int i = (x); \
    printf ("printed %d characters\n", i); \
    fflush(stdin); \
} while (0)
 
static int checkit (const char * format, ...) ATTRIBUTE_PRINTF_1;
 
static int
checkit (const char* format, ...)
{
  int result;
  VA_OPEN (args, format);
  VA_FIXEDARG (args, char *, format);
 
  result = _doprnt (format, args, stdout);
  VA_CLOSE (args);
 
  return result;
}
 
int
main (void)
{
  RESULT(checkit ("<%d>\n", 0x12345678));
  RESULT(printf ("<%d>\n", 0x12345678));
 
  RESULT(checkit ("<%200d>\n", 5));
  RESULT(printf ("<%200d>\n", 5));
 
  RESULT(checkit ("<%.300d>\n", 6));
  RESULT(printf ("<%.300d>\n", 6));
 
  RESULT(checkit ("<%100.150d>\n", 7));
  RESULT(printf ("<%100.150d>\n", 7));
 
  RESULT(checkit ("<%s>\n",
                  "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\
777777777777777777333333333333366666666666622222222222777777777777733333"));
  RESULT(printf ("<%s>\n",
                 "jjjjjjjjjiiiiiiiiiiiiiiioooooooooooooooooppppppppppppaa\n\
777777777777777777333333333333366666666666622222222222777777777777733333"));
 
  RESULT(checkit ("<%f><%0+#f>%s%d%s>\n",
                  1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"));
  RESULT(printf ("<%f><%0+#f>%s%d%s>\n",
                 1.0, 1.0, "foo", 77, "asdjffffffffffffffiiiiiiiiiiixxxxx"));
 
  RESULT(checkit ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI));
  RESULT(printf ("<%4f><%.4f><%%><%4.4f>\n", M_PI, M_PI, M_PI));
 
  RESULT(checkit ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI));
  RESULT(printf ("<%*f><%.*f><%%><%*.*f>\n", 3, M_PI, 3, M_PI, 3, 3, M_PI));
 
  RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n",
                  75, 75, 75, 75, 75, 75, 75));
  RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n",
                 75, 75, 75, 75, 75, 75, 75));
 
  RESULT(checkit ("<%d><%i><%o><%u><%x><%X><%c>\n",
                  75, 75, 75, 75, 75, 75, 75));
  RESULT(printf ("<%d><%i><%o><%u><%x><%X><%c>\n",
                 75, 75, 75, 75, 75, 75, 75));
 
  RESULT(checkit ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456));
  RESULT(printf ("Testing (hd) short: <%d><%ld><%hd><%hd><%d>\n", 123, (long)234, 345, 123456789, 456));
 
#if defined(__GNUC__) || defined (HAVE_LONG_LONG)
  RESULT(checkit ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345));
  RESULT(printf ("Testing (lld) long long: <%d><%lld><%d>\n", 123, 234234234234234234LL, 345));
  RESULT(checkit ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345));
  RESULT(printf ("Testing (Ld) long long: <%d><%Ld><%d>\n", 123, 234234234234234234LL, 345));
#endif
 
#if defined(__GNUC__) || defined (HAVE_LONG_DOUBLE)
  RESULT(checkit ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n",
                  1.23456, 1.234567890123456789L, 1.23456));
  RESULT(printf ("Testing (Lf) long double: <%.20f><%.20Lf><%0+#.20f>\n",
                 1.23456, 1.234567890123456789L, 1.23456));
#endif
 
  return 0;
}
#endif /* TEST */

Browse

Tools

Subversion Repositories openrisc

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

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 */`