63 #include <sys/types.h> 64 #define u_long unsigned long 65 #define u_short unsigned short 66 #define u_int unsigned int 68 #if !defined(HAVE_STDARG_PROTOTYPES) 70 #define HAVE_STDARG_PROTOTYPES 1 75 #if defined(HAVE_STDARG_PROTOTYPES) 88 #define _BSD_VA_LIST_ va_list 99 # define LONG_MAX 2147483647 104 #if defined(__hpux) && !defined(__GNUC__) && !defined(__STDC__) 114 #if defined(__hpux) && !defined(__GNUC__) || defined(__DECC) 118 #if !defined(__CYGWIN32__) && defined(__hpux) && !defined(__GNUC__) 126 #if SIZEOF_LONG > SIZEOF_INT 180 const char *(*vextra)();
184 #define __SLBF 0x0001 185 #define __SNBF 0x0002 190 #define __SEOF 0x0020 191 #define __SERR 0x0040 192 #define __SMBF 0x0080 193 #define __SAPP 0x0100 194 #define __SSTR 0x0200 195 #define __SOPT 0x0400 196 #define __SNPT 0x0800 197 #define __SOFF 0x1000 198 #define __SMOD 0x2000 204 #define BSD__sfeof(p) (((p)->_flags & __SEOF) != 0) 205 #define BSD__sferror(p) (((p)->_flags & __SERR) != 0) 206 #define BSD__sclearerr(p) ((void)((p)->_flags &= ~(__SERR|__SEOF))) 207 #define BSD__sfileno(p) ((p)->_file) 212 #define feof(p) BSD__sfeof(p) 213 #define ferror(p) BSD__sferror(p) 214 #define clearerr(p) BSD__sclearerr(p) 217 #define fileno(p) BSD__sfileno(p) 244 register const char *p;
245 register struct __siov *iov;
251 #define MIN(a, b) ((a) < (b) ? (a) : (b)) 253 #define COPY(n) (void)memcpy((void *)fp->_p, (void *)p, (size_t)(n)) 259 #define GETIOV(extra_work) \ 263 len = iov->iov_len; \ 327 err = (*fp->
vwrite)(fp, uio);
350 #define to_digit(c) ((c) - '0') 351 #define is_digit(c) ((unsigned)to_digit(c) <= 9) 352 #define to_char(n) (char)((n) + '0') 354 #ifdef _HAVE_SANE_QUAD_ 362 BSD__uqtoa(
register u_quad_t
val,
char *endp,
int base,
int octzero,
const char *xdigs)
364 register char *cp = endp;
365 register quad_t sval;
383 if (val > LLONG_MAX) {
399 if (octzero && *cp !=
'0')
405 *--cp = xdigs[val & 15];
429 register char *cp = endp;
464 if (octzero && *cp !=
'0')
470 *--cp = xdigs[val & 15];
484 #ifdef FLOATING_POINT 490 # if DBL_MAX_10_EXP > -DBL_MIN_10_EXP 491 # define MAXEXP (DBL_MAX_10_EXP) 493 # define MAXEXP (-DBL_MIN_10_EXP) 498 # define MAXFRACT (MAXEXP*10/3) 501 #define BUF (MAXEXP+MAXFRACT+1) 504 static char *cvt(
double,
int,
int,
char *,
int *,
int,
int *,
char *);
505 static int exponent(
char *,
int,
int);
513 #ifndef lower_hexdigits 514 # define lower_hexdigits "0123456789abcdef" 516 #ifndef upper_hexdigits 517 # define upper_hexdigits "0123456789ABCDEF" 524 #define HEXPREFIX 0x002 525 #define LADJUST 0x004 526 #define LONGDBL 0x008 527 #define LONGINT 0x010 529 #ifdef _HAVE_SANE_QUAD_ 530 #define QUADINT 0x020 533 #define SHORTINT 0x040 534 #define ZEROPAD 0x080 539 #ifdef PRI_EXTRA_MARK 542 register const char *fmt;
545 register const char *cp;
546 register struct __siov *iovp;
552 #ifdef FLOATING_POINT 562 #ifdef _HAVE_SANE_QUAD_ 570 const char *xdigs = 0;
576 char *
const ebuf = buf +
sizeof(
buf);
577 #if SIZEOF_LONG > SIZEOF_INT 587 static const char blanks[
PADSIZE] =
588 {
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' ',
' '};
589 static const char zeroes[
PADSIZE] =
590 {
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0',
'0'};
595 #define PRINT(ptr, len) { \ 596 iovp->iov_base = (ptr); \ 597 iovp->iov_len = (len); \ 598 uio.uio_resid += (len); \ 600 if (++uio.uio_iovcnt >= NIOV) { \ 601 if (BSD__sprint(fp, &uio)) \ 606 #define PAD(howmany, with) { \ 607 if ((n = (howmany)) > 0) { \ 608 while (n > PADSIZE) { \ 609 PRINT((with), PADSIZE); \ 615 #if SIZEOF_LONG > SIZEOF_INT 617 #define PAD_L(howmany, with) { \ 619 if ((long)((int)ln) != ln) { \ 623 if (ln > 0) PAD((int)ln, (with)); \ 626 #define PAD_L(howmany, with) PAD((howmany), (with)) 629 if (uio.uio_resid && BSD__sprint(fp, &uio)) \ 631 uio.uio_iovcnt = 0; \ 640 (flags&LONGINT ? va_arg(ap, long) : \ 641 flags&SHORTINT ? (long)(short)va_arg(ap, int) : \ 642 (long)va_arg(ap, int)) 644 (flags&LONGINT ? va_arg(ap, u_long) : \ 645 flags&SHORTINT ? (u_long)(u_short)va_arg(ap, int) : \ 646 (u_long)va_arg(ap, u_int)) 665 for (cp = fmt; (ch = *fmt) !=
'\0' && ch !=
'%'; fmt++)
667 if ((nc = fmt - cp) != 0) {
682 reswitch:
switch (ch) {
702 if ((width = va_arg(ap,
int)) >= 0)
713 if ((ch = *fmt++) ==
'*') {
715 prec = n < 0 ? -1 : n;
723 prec = n < 0 ? -1 : n;
733 case '1':
case '2':
case '3':
case '4':
734 case '5':
case '6':
case '7':
case '8':
case '9':
742 #ifdef FLOATING_POINT 750 #if SIZEOF_PTRDIFF_T == SIZEOF_LONG 753 #if SIZEOF_SIZE_T == SIZEOF_LONG 757 #ifdef _HAVE_SANE_QUAD_ 768 #ifdef _HAVE_SANE_QUAD_ 769 #if SIZEOF_PTRDIFF_T == SIZEOF_LONG_LONG 772 #if SIZEOF_SIZE_T == SIZEOF_LONG_LONG 781 if (*fmt ==
'3' && *(fmt + 1) ==
'2') {
785 #ifdef _HAVE_SANE_QUAD_ 786 else if (*fmt ==
'6' && *(fmt + 1) ==
'4') {
792 #if defined(_HAVE_SANE_QUAD_) && SIZEOF_SIZE_T == SIZEOF_LONG_LONG 801 *buf = (char)va_arg(ap,
int);
806 #ifdef _HAVE_SANE_QUAD_ 807 # define INTPTR_MASK (QUADINT|LONGINT|SHORTINT) 809 # define INTPTR_MASK (LONGINT|SHORTINT) 811 #if defined _HAVE_SANE_QUAD_ && SIZEOF_VOIDP == SIZEOF_LONG_LONG 812 # define INTPTR_FLAG QUADINT 813 #elif SIZEOF_VOIDP == SIZEOF_LONG 814 # define INTPTR_FLAG LONGINT 816 # define INTPTR_FLAG 0 818 #ifdef PRI_EXTRA_MARK 819 # define IS_PRI_EXTRA_MARK(s) \ 820 (PRI_EXTRA_MARK_LEN < 1 || \ 821 (*(s) == PRI_EXTRA_MARK[0] && \ 822 (PRI_EXTRA_MARK_LEN == 1 || \ 823 strncmp((s)+1, PRI_EXTRA_MARK+1, \ 824 PRI_EXTRA_MARK_LEN-1) == 0))) 826 # define PRI_EXTRA_MARK_LEN 0 827 # define IS_PRI_EXTRA_MARK(s) 1 833 #if defined _HAVE_SANE_QUAD_ && SIZEOF_VOIDP == SIZEOF_LONG_LONG 834 uqval = va_arg(ap, u_quad_t);
835 cp = (*fp->
vextra)(fp,
sizeof(uqval), &uqval, &fieldsz, sign);
837 ulval = va_arg(ap,
u_long);
838 cp = (*fp->
vextra)(fp,
sizeof(ulval), &ulval, &fieldsz, sign);
842 if (prec < 0)
goto long_len;
843 size = fieldsz < prec ? (int)fieldsz : prec;
852 #ifdef _HAVE_SANE_QUAD_ 853 if (flags & QUADINT) {
854 uqval = va_arg(ap, quad_t);
855 if ((quad_t)uqval < 0) {
856 uqval = -(quad_t)uqval;
863 if ((
long)ulval < 0) {
864 ulval = (
u_long)(-(
long)ulval);
870 #ifdef FLOATING_POINT 883 prec = (prec == -1) ?
884 DEFPREC + 1 : (fprec = prec + 1);
896 fp_begin: _double = va_arg(ap,
double);
898 if (
isinf(_double)) {
905 if (
isnan(_double)) {
911 cp = cvt(_double, (prec < MAXFRACT ? prec : MAXFRACT), flags, &softsign,
912 &expt, ch, &ndig, buf);
913 if (ch ==
'g' || ch ==
'G') {
914 if (expt <= -4 || (expt > prec && expt > 1))
915 ch = (ch ==
'g') ?
'e' :
'E';
919 if (ch ==
'a' || ch ==
'A') {
922 expsize = exponent(expstr, expt, ch +
'p' -
'a');
924 size = expsize + ndig;
925 if (ndig > 1 || flags &
ALT)
928 else if (ch <=
'e') {
930 expsize = exponent(expstr, expt, ch);
931 size = expsize + ndig;
932 if (ndig > 1 || flags &
ALT)
934 }
else if (ch ==
'f') {
937 if (prec || flags &
ALT)
945 }
else if (expt >= ndig) {
950 size = ndig + (expt > 0 ?
958 #ifdef _HAVE_SANE_QUAD_ 960 *va_arg(ap, quad_t *) = ret;
965 *va_arg(ap,
long *) = ret;
967 *va_arg(ap,
short *) = (short)ret;
969 *va_arg(ap,
int *) = (int)ret;
975 #ifdef _HAVE_SANE_QUAD_ 977 uqval = va_arg(ap, u_quad_t);
991 prec = (int)(
sizeof(
void*)*
CHAR_BIT/4);
993 uqval = (u_quad_t)va_arg(ap,
void *);
996 ulval = (
u_long)va_arg(ap,
void *);
997 #ifdef _HAVE_SANE_QUAD_ 1008 if ((cp = va_arg(ap,
char *)) ==
NULL)
1016 const char *p = (
char *)memchr(cp, 0, prec);
1018 if (p !=
NULL && (p - cp) < prec)
1019 size = (
int)(p - cp);
1033 #ifdef _HAVE_SANE_QUAD_ 1034 if (flags & QUADINT)
1035 uqval = va_arg(ap, u_quad_t);
1047 #ifdef _HAVE_SANE_QUAD_ 1048 if (flags & QUADINT)
1049 uqval = va_arg(ap, u_quad_t);
1056 #ifdef _HAVE_SANE_QUAD_
1057 (flags & QUADINT ? uqval != 0 : ulval != 0)
1065 nosign: sign =
'\0';
1071 number:
if ((dprec = prec) >= 0)
1080 #ifdef _HAVE_SANE_QUAD_ 1081 if (flags & QUADINT) {
1082 if (uqval != 0 || prec != 0)
1083 cp = BSD__uqtoa(uqval, ebuf, base,
1084 flags &
ALT, xdigs);
1089 if (ulval != 0 || prec != 0)
1091 flags &
ALT, xdigs);
1093 size = (int)(ebuf - cp);
1122 realsz = dprec > fieldsz ? dprec : fieldsz;
1130 PAD_L(width - realsz, blanks);
1136 if (flags & HEXPREFIX) {
1144 PAD_L(width - realsz, zeroes);
1147 PAD_L(dprec - fieldsz, zeroes);
1150 #ifdef FLOATING_POINT 1151 if ((flags &
FPT) == 0) {
1154 if (flags & HEXPREFIX) {
1155 if (ndig > 1 || flags &
ALT) {
1159 if (ndig > 0)
PRINT(cp, ndig-1);
1162 PAD(fprec-ndig, zeroes);
1163 PRINT(expstr, expsize);
1165 else if (ch >=
'f') {
1169 (flags &
ALT) == 0) {
1173 PAD((ndig >= fprec ? ndig - 1 : fprec - (ch !=
'f')),
1176 }
else if (expt == 0 && ndig == 0 && (flags &
ALT) == 0) {
1178 }
else if (expt <= 0) {
1183 PAD(fprec - ndig + (ch ==
'f' ? expt : 0), zeroes);
1184 }
else if (expt >= ndig) {
1186 PAD(expt - ndig, zeroes);
1193 PRINT(cp, ndig-expt);
1195 PAD(fprec - ndig + (ch ==
'f' ? expt : 0), zeroes);
1198 if (ndig > 1 || flags &
ALT) {
1206 PAD(ndig - 1, zeroes);
1207 if (flags & ALT)
PAD(fprec - ndig - 1, zeroes);
1210 PRINT(expstr, expsize);
1218 PAD_L(width - realsz, blanks);
1221 ret += width > realsz ? width : realsz;
1232 #ifdef FLOATING_POINT 1234 extern char *
BSD__dtoa(
double,
int,
int,
int *,
int *,
char **);
1235 extern char *
BSD__hdtoa(
double,
const char *,
int,
int *,
int *,
char **);
1238 cvt(
double value,
int ndigits,
int flags,
char *sign,
int *decpt,
int ch,
int *length,
char *
buf)
1241 char *digits, *
bp, *rve;
1251 }
else if (value == 0.0 && 1.0/value < 0) {
1256 if (ch ==
'a' || ch ==
'A') {
1259 ndigits, decpt, &dsgn, &rve);
1262 digits =
BSD__dtoa(value, mode, ndigits, decpt, &dsgn, &rve);
1265 memcpy(buf, digits, rve - digits);
1267 rve = buf + (rve - digits);
1270 bp = digits + ndigits;
1272 if (*digits ==
'0' && value)
1273 *decpt = -ndigits + 1;
1279 *length = (int)(rve - digits);
1284 exponent(
char *p0,
int exp,
int fmtch)
1286 register char *p, *t;
1287 char expbuf[2 + (MAXEXP < 1000 ? 3 : MAXEXP < 10000 ? 4 : 5)];
1297 t = expbuf +
sizeof(expbuf);
1301 }
while ((exp /= 10) > 9);
1303 for (; t < expbuf +
sizeof(expbuf); *p++ = *t++);
1306 if (fmtch & 15) *p++ =
'0';
1309 return (
int)(p - p0);
size_t strlen(const char *)
#define IS_PRI_EXTRA_MARK(s)
static int BSD__sfvwrite(register FILE *fp, register struct __suio *uio)
#define PAD(howmany, with)
RUBY_EXTERN int isinf(double)
#define PAD_L(howmany, with)
#define rb_strlen_lit(str)
unsigned char buf[MIME_BUF_SIZE]
#define GETIOV(extra_work)
register unsigned int len
static int BSD__sbprintf(register FILE *fp, const char *fmt, va_list ap)
static ssize_t BSD_vfprintf(FILE *fp, const char *fmt0, va_list ap)
#define PRI_EXTRA_MARK_LEN
static char * BSD__ultoa(register u_long val, char *endp, int base, int octzero, const char *xdigs)
static int BSD__sprint(FILE *fp, register struct __suio *uio)