287 lines
6.7 KiB
C
287 lines
6.7 KiB
C
/* Provide a version _doprnt in terms of fprintf.
|
|
By Kaveh Ghazi (ghazi@caip.rutgers.edu) 3/29/98
|
|
Copyright (C) 1998 Free Software Foundation, Inc.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#ifdef __STDC__
|
|
#include <stdarg.h>
|
|
#else
|
|
#include <varargs.h>
|
|
#endif
|
|
#include "system.h"
|
|
#include "gansidecl.h"
|
|
#undef _doprnt
|
|
|
|
#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 (format, ap, stream)
|
|
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 PVPROTO ((const char * format, ...)) ATTRIBUTE_PRINTF_1;
|
|
|
|
static int
|
|
checkit VPROTO ((const char* format, ...))
|
|
{
|
|
va_list args;
|
|
int result;
|
|
|
|
#ifndef __STDC__
|
|
char *format;
|
|
#endif
|
|
|
|
VA_START (args, format);
|
|
|
|
#ifndef __STDC__
|
|
format = va_arg (args, char *);
|
|
#endif
|
|
|
|
result = _doprnt (format, args, stdout);
|
|
va_end(args);
|
|
|
|
return result;
|
|
}
|
|
|
|
int
|
|
main ()
|
|
{
|
|
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 */
|