#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "%W% (Berkeley) %G%";
#endif
#include <sys/types.h>
#include "libioP.h"
#include <string.h>
#ifdef __STDC__
#include <stdarg.h>
#else
#include <varargs.h>
#endif
#ifndef _IO_USE_DTOA
int __cvt_double __P((double number, register int prec, int flags, int *signp, int fmtch, char *startp, char *endp));
#endif
#ifndef NO_FLOATING_POINT
#define FLOATING_POINT
#endif
struct helper_file
{
struct _IO_FILE_plus _f;
_IO_FILE *_put_stream;
};
static int
_IO_helper_overflow (fp, c)
_IO_FILE *fp;
int c;
{
_IO_FILE *target = ((struct helper_file*)fp)->_put_stream;
int used = fp->_IO_write_ptr - fp->_IO_write_base;
if (used)
{
_IO_sputn(target, fp->_IO_write_base, used);
fp->_IO_write_ptr -= used;
}
return _IO_putc (c, fp);
}
static struct _IO_jump_t _IO_helper_jumps = {
JUMP_INIT_DUMMY,
JUMP_INIT(finish, _IO_default_finish),
JUMP_INIT(overflow, _IO_helper_overflow),
JUMP_INIT(underflow, _IO_default_underflow),
JUMP_INIT(uflow, _IO_default_uflow),
JUMP_INIT(pbackfail, _IO_default_pbackfail),
JUMP_INIT(xsputn, _IO_default_xsputn),
JUMP_INIT(xsgetn, _IO_default_xsgetn),
JUMP_INIT(seekoff, _IO_default_seekoff),
JUMP_INIT(seekpos, _IO_default_seekpos),
JUMP_INIT(setbuf, _IO_default_setbuf),
JUMP_INIT(sync, _IO_default_sync),
JUMP_INIT(doallocate, _IO_default_doallocate),
JUMP_INIT(read, _IO_default_read),
JUMP_INIT(write, _IO_default_write),
JUMP_INIT(seek, _IO_default_seek),
JUMP_INIT(close, _IO_default_close),
JUMP_INIT(stat, _IO_default_stat)
};
static int
helper_vfprintf (fp, fmt0, ap)
_IO_FILE *fp;
char const *fmt0;
_IO_va_list ap;
{
char buf[_IO_BUFSIZ];
struct helper_file helper;
register _IO_FILE *hp = (_IO_FILE*)&helper;
int result, to_flush;
helper._put_stream = fp;
hp->_IO_write_base = buf;
hp->_IO_write_ptr = buf;
hp->_IO_write_end = buf+_IO_BUFSIZ;
hp->_IO_file_flags = _IO_MAGIC|_IO_NO_READS;
_IO_JUMPS(hp) = &_IO_helper_jumps;
result = _IO_vfprintf(hp, fmt0, ap);
if ((to_flush = hp->_IO_write_ptr - hp->_IO_write_base) > 0)
{
if (_IO_sputn(fp, hp->_IO_write_base, to_flush) != to_flush)
return EOF;
}
return result;
}
#ifdef FLOATING_POINT
#include "floatio.h"
#define BUF (MAXEXP+MAXFRACT+1)
#define DEFPREC 6
extern double modf __P((double, double*));
#else
#define BUF 40
#endif
#define to_digit(c) ((c) - '0')
#define is_digit(c) ((unsigned)to_digit(c) <= 9)
#define to_char(n) ((n) + '0')
#define LONGINT 0x01
#define LONGDBL 0x02
#define SHORTINT 0x04
#define ALT 0x08
#define LADJUST 0x10
#define ZEROPAD 0x20
#define HEXPREFIX 0x40
int
_IO_vfprintf (fp, fmt0, ap)
_IO_FILE *fp;
char const *fmt0;
_IO_va_list ap;
{
register const char *fmt;
register int ch;
register int n;
register char *cp;
const char *fmark;
register int flags;
int ret;
int width;
int prec;
char sign;
#ifdef FLOATING_POINT
int softsign;
double _double;
#ifndef _IO_USE_DTOA
int fpprec;
#endif
#endif
unsigned long _ulong;
enum { OCT, DEC, HEX } base;
int dprec;
int dpad;
int fieldsz;
int size = 0;
char buf[BUF];
char ox[2];
#define PRINT(ptr, len) \
do { if (_IO_sputn(fp,ptr, len) != len) goto error; } while (0)
#define PAD_SP(howmany) if (_IO_padn(fp, ' ', howmany) < (howmany)) goto error;
#define PAD_0(howmany) if (_IO_padn(fp, '0', howmany) < (howmany)) goto error;
#define SARG() \
(flags&LONGINT ? va_arg(ap, long) : \
flags&SHORTINT ? (long)(short)va_arg(ap, int) : \
(long)va_arg(ap, int))
#define UARG() \
(flags&LONGINT ? va_arg(ap, unsigned long) : \
flags&SHORTINT ? (unsigned long)(unsigned short)va_arg(ap, int) : \
(unsigned long)va_arg(ap, unsigned int))
if (fp->_IO_file_flags & _IO_UNBUFFERED)
return helper_vfprintf(fp, fmt0, ap);
fmt = fmt0;
ret = 0;
for (;;) {
for (fmark = fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++)
;
if ((n = fmt - fmark) != 0) {
PRINT(fmark, n);
ret += n;
}
if (ch == '\0')
goto done;
fmt++;
flags = 0;
dprec = 0;
#if defined(FLOATING_POINT) && !defined (_IO_USE_DTOA)
fpprec = 0;
#endif
width = 0;
prec = -1;
sign = '\0';
rflag: ch = *fmt++;
reswitch: switch (ch) {
case ' ':
if (!sign)
sign = ' ';
goto rflag;
case '#':
flags |= ALT;
goto rflag;
case '*':
if ((width = va_arg(ap, int)) >= 0)
goto rflag;
width = -width;
case '-':
flags |= LADJUST;
flags &= ~ZEROPAD;
goto rflag;
case '+':
sign = '+';
goto rflag;
case '.':
if ((ch = *fmt++) == '*') {
n = va_arg(ap, int);
prec = n < 0 ? -1 : n;
goto rflag;
}
n = 0;
while (is_digit(ch)) {
n = 10 * n + to_digit(ch);
ch = *fmt++;
}
prec = n < 0 ? -1 : n;
goto reswitch;
case '0':
if (!(flags & LADJUST))
flags |= ZEROPAD;
goto rflag;
case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
n = 0;
do {
n = 10 * n + to_digit(ch);
ch = *fmt++;
} while (is_digit(ch));
width = n;
goto reswitch;
#ifdef FLOATING_POINT
case 'L':
flags |= LONGDBL;
goto rflag;
#endif
case 'h':
flags |= SHORTINT;
goto rflag;
case 'l':
flags |= LONGINT;
goto rflag;
case 'c':
*(cp = buf) = va_arg(ap, int);
size = 1;
sign = '\0';
break;
case 'D':
flags |= LONGINT;
case 'd':
case 'i':
_ulong = SARG();
if ((long)_ulong < 0) {
_ulong = -_ulong;
sign = '-';
}
base = DEC;
goto number;
#ifdef FLOATING_POINT
case 'e':
case 'E':
case 'f':
case 'F':
case 'g':
case 'G':
_double = va_arg(ap, double);
#ifdef _IO_USE_DTOA
{
int fmt_flags = 0;
int fill = ' ';
if (flags & ALT)
fmt_flags |= _IO_SHOWPOINT;
if (flags & LADJUST)
fmt_flags |= _IO_LEFT;
else if (flags & ZEROPAD)
fmt_flags |= _IO_INTERNAL, fill = '0';
n = _IO_outfloat(_double, fp, ch, width,
prec < 0 ? DEFPREC : prec,
fmt_flags, sign, fill);
if (n < 0)
goto error;
ret += n;
}
continue;
#else
if (prec > MAXFRACT) {
if ((ch != 'g' && ch != 'G') || (flags&ALT))
fpprec = prec - MAXFRACT;
prec = MAXFRACT;
} else if (prec == -1)
prec = DEFPREC;
cp = buf;
*cp = '\0';
size = __cvt_double(_double, prec, flags, &softsign,
ch, cp, buf + sizeof(buf));
if (softsign)
sign = '-';
if (*cp == '\0')
cp++;
break;
#endif
#endif
case 'n':
if (flags & LONGINT)
*va_arg(ap, long *) = ret;
else if (flags & SHORTINT)
*va_arg(ap, short *) = ret;
else
*va_arg(ap, int *) = ret;
continue;
case 'O':
flags |= LONGINT;
case 'o':
_ulong = UARG();
base = OCT;
goto nosign;
case 'p':
_ulong = (unsigned long)va_arg(ap, void *);
base = HEX;
flags |= HEXPREFIX;
ch = 'x';
goto nosign;
case 's':
if ((cp = va_arg(ap, char *)) == NULL)
cp = "(null)";
if (prec >= 0) {
char *p = (char*)memchr(cp, 0, prec);
if (p != NULL) {
size = p - cp;
if (size > prec)
size = prec;
} else
size = prec;
} else
size = strlen(cp);
sign = '\0';
break;
case 'U':
flags |= LONGINT;
case 'u':
_ulong = UARG();
base = DEC;
goto nosign;
case 'X':
case 'x':
_ulong = UARG();
base = HEX;
if (flags & ALT && _ulong != 0)
flags |= HEXPREFIX;
nosign: sign = '\0';
number: if ((dprec = prec) >= 0)
flags &= ~ZEROPAD;
cp = buf + BUF;
if (_ulong != 0 || prec != 0) {
char *xdigs;
switch (base) {
case OCT:
do {
*--cp = to_char(_ulong & 7);
_ulong >>= 3;
} while (_ulong);
if (flags & ALT && *cp != '0')
*--cp = '0';
break;
case DEC:
while (_ulong >= 10) {
*--cp = to_char(_ulong % 10);
_ulong /= 10;
}
*--cp = to_char(_ulong);
break;
case HEX:
if (ch == 'X')
xdigs = "0123456789ABCDEF";
else
xdigs = "0123456789abcdef";
do {
*--cp = xdigs[_ulong & 15];
_ulong >>= 4;
} while (_ulong);
break;
default:
cp = "bug in vform: bad base";
goto skipsize;
}
}
size = buf + BUF - cp;
skipsize:
break;
default:
if (ch == '\0')
goto done;
cp = buf;
*cp = ch;
size = 1;
sign = '\0';
break;
}
#if defined(FLOATING_POINT) && !defined (_IO_USE_DTOA)
fieldsz = size + fpprec;
#else
fieldsz = size;
#endif
dpad = dprec - size;
if (dpad < 0)
dpad = 0;
if (sign)
fieldsz++;
else if (flags & HEXPREFIX)
fieldsz += 2;
fieldsz += dpad;
if ((flags & (LADJUST|ZEROPAD)) == 0)
PAD_SP(width - fieldsz);
if (sign) {
PRINT(&sign, 1);
} else if (flags & HEXPREFIX) {
ox[0] = '0';
ox[1] = ch;
PRINT(ox, 2);
}
if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD)
PAD_0(width - fieldsz);
PAD_0(dpad);
PRINT(cp, size);
#if defined(FLOATING_POINT) && !defined (_IO_USE_DTOA)
PAD_0(fpprec);
#endif
if (flags & LADJUST)
PAD_SP(width - fieldsz);
ret += width > fieldsz ? width : fieldsz;
}
done:
return ret;
error:
return EOF;
}
#if defined(FLOATING_POINT) && !defined(_IO_USE_DTOA)
static char *exponent(register char *p, register int exp, int fmtch)
{
register char *t;
char expbuf[MAXEXP];
*p++ = fmtch;
if (exp < 0) {
exp = -exp;
*p++ = '-';
}
else
*p++ = '+';
t = expbuf + MAXEXP;
if (exp > 9) {
do {
*--t = to_char(exp % 10);
} while ((exp /= 10) > 9);
*--t = to_char(exp);
for (; t < expbuf + MAXEXP; *p++ = *t++);
}
else {
*p++ = '0';
*p++ = to_char(exp);
}
return (p);
}
static char * round(double fract, int *exp,
register char *start, register char *end,
char ch, int *signp)
{
double tmp;
if (fract)
(void)modf(fract * 10, &tmp);
else
tmp = to_digit(ch);
if (tmp > 4)
for (;; --end) {
if (*end == '.')
--end;
if (++*end <= '9')
break;
*end = '0';
if (end == start) {
if (exp) {
*end = '1';
++*exp;
}
else {
*--end = '1';
--start;
}
break;
}
}
else if (*signp == '-')
for (;; --end) {
if (*end == '.')
--end;
if (*end != '0')
break;
if (end == start)
*signp = 0;
}
return (start);
}
int __cvt_double(double number, register int prec, int flags, int *signp,
int fmtch, char *startp, char *endp)
{
register char *p, *t;
register double fract;
int dotrim = 0, expcnt, gformat = 0;
double integer, tmp;
expcnt = 0;
if (number < 0) {
number = -number;
*signp = '-';
} else
*signp = 0;
fract = modf(number, &integer);
t = ++startp;
for (p = endp - 1; p >= startp && integer; ++expcnt) {
tmp = modf(integer / 10, &integer);
*p-- = to_char((int)((tmp + .01) * 10));
}
switch (fmtch) {
case 'f':
case 'F':
if (expcnt)
for (; ++p < endp; *t++ = *p);
else
*t++ = '0';
if (prec || flags&ALT)
*t++ = '.';
if (fract) {
if (prec)
do {
fract = modf(fract * 10, &tmp);
*t++ = to_char((int)tmp);
} while (--prec && fract);
if (fract)
startp = round(fract, (int *)NULL, startp,
t - 1, (char)0, signp);
}
for (; prec--; *t++ = '0');
break;
case 'e':
case 'E':
eformat: if (expcnt) {
*t++ = *++p;
if (prec || flags&ALT)
*t++ = '.';
for (; prec && ++p < endp; --prec)
*t++ = *p;
if (!prec && ++p < endp) {
fract = 0;
startp = round((double)0, &expcnt, startp,
t - 1, *p, signp);
}
--expcnt;
}
else if (fract) {
for (expcnt = -1;; --expcnt) {
fract = modf(fract * 10, &tmp);
if (tmp)
break;
}
*t++ = to_char((int)tmp);
if (prec || flags&ALT)
*t++ = '.';
}
else {
*t++ = '0';
if (prec || flags&ALT)
*t++ = '.';
}
if (fract) {
if (prec)
do {
fract = modf(fract * 10, &tmp);
*t++ = to_char((int)tmp);
} while (--prec && fract);
if (fract)
startp = round(fract, &expcnt, startp,
t - 1, (char)0, signp);
}
for (; prec--; *t++ = '0');
if (gformat && !(flags&ALT)) {
while (t > startp && *--t == '0');
if (*t == '.')
--t;
++t;
}
t = exponent(t, expcnt, fmtch);
break;
case 'g':
case 'G':
if (!prec)
++prec;
if (expcnt > prec || (!expcnt && fract && fract < .0001)) {
--prec;
fmtch -= 2;
gformat = 1;
goto eformat;
}
if (expcnt)
for (; ++p < endp; *t++ = *p, --prec);
else
*t++ = '0';
if (prec || flags&ALT) {
dotrim = 1;
*t++ = '.';
}
else
dotrim = 0;
if (fract) {
if (prec) {
do {
fract = modf(fract * 10, &tmp);
*t++ = to_char((int)tmp);
} while(!tmp && !expcnt);
while (--prec && fract) {
fract = modf(fract * 10, &tmp);
*t++ = to_char((int)tmp);
}
}
if (fract)
startp = round(fract, (int *)NULL, startp,
t - 1, (char)0, signp);
}
if (flags&ALT)
for (; prec--; *t++ = '0');
else if (dotrim) {
while (t > startp && *--t == '0');
if (*t != '.')
++t;
}
}
return (t - startp);
}
#endif