doprnt.c revision 762f6727ac618cdd12d0d2ebfd0bbe150d666e01
1389N/A/*
1389N/A * CDDL HEADER START
1389N/A *
1389N/A * The contents of this file are subject to the terms of the
1389N/A * Common Development and Distribution License (the "License").
1389N/A * You may not use this file except in compliance with the License.
1389N/A *
1389N/A * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
6982N/A * or http://www.opensolaris.org/os/licensing.
6982N/A * See the License for the specific language governing permissions
1389N/A * and limitations under the License.
1389N/A *
1389N/A * When distributing Covered Code, include this CDDL HEADER in each
1389N/A * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
6982N/A * If applicable, add the following below this CDDL HEADER, with the
6982N/A * fields enclosed by brackets "[]" replaced with your own identifying
6982N/A * information: Portions Copyright [yyyy] [name of copyright owner]
6982N/A *
1389N/A * CDDL HEADER END
1389N/A */
1389N/A
1389N/A/*
1389N/A * Copyright 2009 Sun Microsystems, Inc. All rights reserved.
3232N/A * Use is subject to license terms.
1389N/A */
1389N/A
1389N/A/* Copyright (c) 1988 AT&T */
1389N/A/* All Rights Reserved */
1389N/A
1389N/A/*
1389N/A * _doprnt: common code for printf, fprintf, sprintf
1389N/A */
1389N/A
1389N/A#include "lint.h"
1389N/A#include "mtlib.h"
1389N/A#include "print.h" /* parameters & macros for doprnt */
1389N/A#include <wchar.h>
1389N/A#include "libc.h"
1389N/A#include <stdlib.h>
1389N/A#include <limits.h>
1389N/A#include <ctype.h>
1389N/A#include <stdarg.h>
1389N/A#include <values.h>
1389N/A#include <memory.h>
1389N/A#include <string.h>
1389N/A#include <locale.h>
1389N/A#include <widec.h>
1389N/A#include "../i18n/_locale.h"
1389N/A#include <errno.h>
1389N/A#include <sys/types.h>
1389N/A#include <libw.h>
1389N/A#include "mse.h"
1389N/A#include "xpg6.h"
1389N/A
1389N/Astatic const char nullstr[] = "(null)";
1389N/Astatic const wchar_t widenullstr[] = L"(null)";
1389N/A
1389N/A#if defined(__i386) || defined(__amd64) || defined(__sparcv9)
1389N/A#define GETQVAL(arg) (va_arg(arg, long double))
1389N/A#else /* !defined(__i386) && !defined(__sparcv9) */
1389N/A#define GETQVAL(arg) *(va_arg(arg, long double *))
1389N/A#endif /* !defined(__i386) && !defined(__sparcv9) */
1389N/A
1389N/A#ifdef _WIDE
1389N/A#define STRCHR wcschr
1389N/A#define STRSPN wcsspn
1389N/A#define ATOI(x) _watoi((wchar_t *)x)
1389N/A#define _P_HYPHEN L"-"
1389N/A#define _P_PLUS L"+"
1389N/A#define _P_BLANK L" "
1389N/A#define _P_ZEROx L"0x"
1389N/A#define _P_ZEROX L"0X"
1389N/A#define _M_ISDIGIT(c) (((c) >= 0) && ((c) < 256) && isdigit((c)))
1389N/A#define _M_ISUPPER(c) (((c) >= 0) && ((c) < 256) && isupper((c)))
1389N/A#else /* _WIDE */
1389N/A#define STRCHR strchr
1389N/A#define STRSPN strspn
1389N/A#define ATOI(x) atoi(x)
1389N/A#define _P_HYPHEN "-"
1389N/A#define _P_PLUS "+"
1389N/A#define _P_BLANK " "
1389N/A#define _P_ZEROx "0x"
1389N/A#define _P_ZEROX "0X"
1389N/A#define _M_ISDIGIT(c) isdigit((c))
1389N/A#define _M_ISUPPER(c) isupper((c))
1389N/A#endif /* _WIDE */
1389N/A
1389N/A#ifdef _WIDE
1389N/A#define PUT(p, n) \
1389N/A { \
1389N/A int retp; \
1389N/A retp = put_wide(iop, &bufptr, bufferend, p, n, sflag); \
1389N/A if (retp == EOF) { \
1389N/A return ((ssize_t)EOF); \
1389N/A } \
1389N/A }
1389N/A
1389N/A#define PAD(s, n) \
1389N/A { \
1389N/A int retp; \
1389N/A retp = pad_wide(iop, &bufptr, bufferend, s, n, sflag); \
1389N/A if (retp == EOF) { \
1389N/A return ((ssize_t)EOF); \
1389N/A } \
1389N/A }
1389N/A
1389N/A#define FPCONV(func, val, prec, decpt, sign, cvtbuf) \
1389N/A { \
1389N/A char cb[DECIMAL_STRING_LENGTH]; \
1389N/A wchar_t *wp; \
1389N/A char *cp; \
1389N/A (void) func(val, prec, decpt, sign, cb); \
1389N/A wp = cvtbuf; \
1389N/A cp = cb; \
1389N/A while (*cp) { \
1389N/A *wp++ = (wchar_t)*cp++; \
1389N/A } \
1389N/A *wp = L'\0'; \
1389N/A }
1389N/A
1389N/A#else /* _WIDE */
1389N/A#define PUT(p, n) \
1389N/A {\
1389N/A /*\
1389N/A * When _doprnt() is called by [v]snprintf, we need to \
1389N/A * always call _dowrite(). We also need to call _dowrite() \
1389N/A * if the bufptr lies beyond the end of the buffer. This \
1389N/A * is possible due to known off-by-one errors in __flsbuf() \
1389N/A * and _fwrite_unlocked(). See 1235867 and 1231720 for the \
1389N/A * sordid details. \
1389N/A */\
1389N/A if (snflag || bufptr > bufferend ||\
1389N/A (unsigned long)(bufferend - bufptr) < (n)) {\
1389N/A if (!_dowrite(p, n, iop, &bufptr)) {\
1389N/A return (EOF);\
1389N/A }\
1389N/A } else {\
1389N/A unsigned char *fbp = bufptr;\
1389N/A switch (n) {\
1389N/A case 4:\
1389N/A *fbp = *p;\
1389N/A *(fbp + 1) = *(p + 1);\
1389N/A *(fbp + 2) = *(p + 2);\
1389N/A *(fbp + 3) = *(p + 3);\
1389N/A bufptr += 4;\
1389N/A break;\
1389N/A case 3:\
1389N/A *fbp = *p;\
1389N/A *(fbp + 1) = *(p + 1);\
1389N/A *(fbp + 2) = *(p + 2);\
1389N/A bufptr += 3;\
1389N/A break;\
1389N/A case 2:\
1389N/A *fbp = *p;\
1389N/A *(fbp + 1) = *(p + 1);\
1389N/A bufptr += 2;\
1389N/A break;\
1389N/A case 1:\
1389N/A *bufptr++ = *p;\
1389N/A break;\
1389N/A default:\
1389N/A bufptr = (unsigned char *)memcpy(fbp, p, n)\
1389N/A + (n);\
1389N/A }\
1389N/A }\
1389N/A }
1389N/A
1389N/A#define PAD(s, n) { ssize_t nn; \
1389N/A for (nn = n; nn > PAD_LEN; nn -= PAD_LEN) \
1389N/A if (!_dowrite(s, PAD_LEN, iop, &bufptr)) \
1389N/A return (EOF); \
1389N/A PUT(s, nn); \
1389N/A }
1389N/A
1389N/A#define FPCONV(func, val, prec, decpt, sign, cvtbuf) \
1389N/A (void) func(val, prec, decpt, sign, cvtbuf);
1389N/A
1389N/A#endif /* _WIDE */
1389N/A
1389N/A/* bit positions for flags used in doprnt */
1389N/A
1389N/A#define LENGTH 0x1 /* l */
1389N/A#define FPLUS 0x2 /* + */
1389N/A#define FMINUS 0x4 /* - */
1389N/A#define FBLANK 0x8 /* blank */
1389N/A#define FSHARP 0x10 /* # */
1389N/A#define PADZERO 0x20 /* padding zeroes requested via '0' */
1389N/A#define DOTSEEN 0x40 /* dot appeared in format specification */
1389N/A#define SUFFIX 0x80 /* a suffix is to appear in the output */
1389N/A#define RZERO 0x100 /* there will be trailing zeros in output */
1389N/A#define LZERO 0x200 /* there will be leading zeroes in output */
1389N/A#define SHORT 0x400 /* h */
1389N/A#define QUAD 0x800 /* Q for long double */
1389N/A#define XLONG 0x1000 /* ll for long long */
1389N/A#define CHAR 0x2000 /* hh for char */
1389N/A
1389N/A#ifdef _WIDE
1389N/Astatic wchar_t *
1389N/Ainsert_thousands_sep(wchar_t *bp, wchar_t *ep);
1389N/A#else /* _WIDE */
1389N/Astatic char *
1389N/Ainsert_thousands_sep(char *bp, char *ep);
1389N/A#endif /* _WIDE */
1389N/A
1389N/Astatic int _rec_scrswidth(wchar_t *, ssize_t);
1389N/A
1389N/A/*
1389N/A * Positional Parameter information
1389N/A */
1389N/A#define MAXARGS 30 /* max. number of args for fast positional paramters */
1929N/A
1389N/Astatic ssize_t
1389N/A_dowrite(const char *p, ssize_t n, FILE *iop, unsigned char **ptrptr);
1389N/A
1389N/A/*
1389N/A * stva_list is used to subvert C's restriction that a variable with an
1389N/A * array type can not appear on the left hand side of an assignment operator.
1389N/A * By putting the array inside a structure, the functionality of assigning to
1389N/A * the whole array through a simple assignment is achieved..
1389N/A */
1389N/Atypedef struct stva_list {
1389N/A va_list ap;
1389N/A} stva_list;
1389N/A
1389N/A#ifdef _WIDE
1389N/Astatic void _wmkarglst(wchar_t *, stva_list, stva_list [], int);
1389N/Astatic void _wgetarg(wchar_t *, stva_list *, long, int);
1389N/A#else /* _WIDE */
1389N/Astatic void _mkarglst(char *, stva_list, stva_list [], int);
1389N/Avoid _getarg(char *, stva_list *, long, int);
1389N/A#endif /* _WIDE */
1389N/A
1389N/A
1389N/A
1389N/A
1389N/Astatic int
1389N/A_lowdigit(ssize_t *valptr)
1389N/A{
1389N/A /* This function computes the decimal low-order digit of the number */
1389N/A /* pointed to by valptr, and returns this digit after dividing */
1389N/A /* *valptr by ten. This function is called ONLY to compute the */
1389N/A /* low-order digit of a long whose high-order bit is set. */
1389N/A
1389N/A ssize_t lowbit = *valptr & 1;
1389N/A long value = (*valptr >> 1) & ~HIBITL;
1389N/A
1389N/A *valptr = value / 5;
1389N/A value = value % 5 * 2 + lowbit + '0';
1389N/A return ((int)value);
1389N/A}
1389N/A
1389N/Astatic int
1389N/A_lowlldigit(long long *valptr)
1389N/A{
1389N/A ssize_t lowbit = *valptr & 1;
1389N/A long long value = (*valptr >> 1) & ~HIBITLL;
1389N/A *valptr = value / 5;
1389N/A value = value % 5 * 2 + lowbit + '0';
1389N/A return ((int)value);
1389N/A}
1389N/A
1389N/A/* The function _dowrite carries out buffer pointer bookkeeping surrounding */
1389N/A/* a call to fwrite. It is called only when the end of the file output */
1389N/A/* buffer is approached or in other unusual situations. */
1389N/A
1389N/Astatic ssize_t
1389N/A_dowrite(const char *p, ssize_t n, FILE *iop, unsigned char **ptrptr)
1389N/A{
1389N/A if (!(iop->_flag & _IOREAD)) {
1389N/A iop->_cnt -= (*ptrptr - iop->_ptr);
1389N/A iop->_ptr = *ptrptr;
1389N/A _bufsync(iop, _bufend(iop));
1389N/A if (_FWRITE(p, 1, n, iop) != n) {
1389N/A return (0);
1389N/A }
1389N/A *ptrptr = iop->_ptr;
1389N/A } else {
1389N/A if (n > iop->_cnt)
1389N/A n = iop->_cnt;
1389N/A iop->_cnt -= n;
1389N/A *ptrptr = (unsigned char *)memcpy((char *)*ptrptr, p, n) + n;
1389N/A iop->_ptr = *ptrptr;
1389N/A }
1389N/A return (1);
1389N/A}
1389N/A
1389N/A#define PAD_LEN 20
1389N/A static const char _blanks[] = " ";
1389N/A static const char _zeroes[] = "00000000000000000000";
1389N/A#ifdef _WIDE
1389N/A static const wchar_t uc_digs[] = L"0123456789ABCDEF";
1389N/A static const wchar_t lc_digs[] = L"0123456789abcdef";
1389N/A#else /* _WIDE */
1389N/A static const char uc_digs[] = "0123456789ABCDEF";
1389N/A static const char lc_digs[] = "0123456789abcdef";
1389N/A#endif /* _WIDE */
1389N/A
1389N/A#ifdef _WIDE
1389N/Astatic int
1389N/Aput_wide(FILE *iop, unsigned char **bufptr,
1389N/A unsigned char *bufferend, wchar_t *p, size_t n,
1389N/A int sflag)
1389N/A{
1389N/A unsigned char *newbufptr;
1389N/A wchar_t *q;
1389N/A int r;
1389N/A size_t len, i;
1389N/A
1389N/A if (sflag) {
1389N/A len = (wchar_t *)bufferend - (wchar_t *)*bufptr;
1389N/A if (n > len) {
1389N/A (void) wmemcpy((wchar_t *)*bufptr, p, len);
1389N/A iop->_ptr = bufferend;
1389N/A return (EOF);
1389N/A } else {
1389N/A (void) wmemcpy((wchar_t *)*bufptr, p, n);
1389N/A *bufptr = (unsigned char *)((wchar_t *)*bufptr + n);
3853N/A return (0);
4134N/A }
1389N/A } else {
1389N/A char *tmpp, *tmpq;
1389N/A size_t tsize;
1389N/A
1389N/A tsize = (n + 1) * MB_LEN_MAX;
1389N/A tmpp = lmalloc(tsize);
1389N/A if (tmpp == NULL) {
1389N/A errno = ENOMEM;
1389N/A return (EOF);
1389N/A }
1389N/A q = p;
1389N/A tmpq = tmpp;
1389N/A for (len = 0, i = 0; i < n; i++) {
1389N/A r = wctomb(tmpq, *q++);
1389N/A if (r == -1) {
1389N/A lfree(tmpp, tsize);
1389N/A errno = EILSEQ;
1389N/A return (EOF);
1389N/A }
1389N/A len += r;
1389N/A tmpq += r;
1389N/A }
1389N/A tmpq = tmpp;
1389N/A newbufptr = *bufptr + len;
1389N/A if (newbufptr > bufferend) {
1389N/A if (!_dowrite(tmpp, len, iop, bufptr)) {
1389N/A lfree(tmpp, tsize);
1389N/A return (EOF);
1389N/A }
1389N/A } else {
1389N/A (void) memcpy(*bufptr, tmpp, len);
1389N/A *bufptr = newbufptr;
1389N/A }
1389N/A lfree(tmpp, tsize);
1389N/A return (0);
1389N/A }
1389N/A}
3041N/A
3041N/Astatic int
3041N/Apad_wide(FILE *iop, unsigned char **bufptr,
3041N/A unsigned char *bufferend, const char *s, size_t n,
3041N/A int sflag)
2895N/A{
2895N/A unsigned char *newbufptr;
2895N/A ssize_t nn;
2895N/A size_t len;
2895N/A wchar_t ps;
1389N/A
if (sflag) {
/* for swprintf */
ps = (wchar_t)s[0];
len = (wchar_t *)bufferend - (wchar_t *)*bufptr;
if (n > len) {
(void) wmemset((wchar_t *)*bufptr, ps, len);
iop->_ptr = bufferend;
return (EOF);
} else {
(void) wmemset((wchar_t *)*bufptr, ps, n);
*bufptr = (unsigned char *)((wchar_t *)*bufptr + n);
return (0);
}
} else {
for (nn = n; nn > PAD_LEN; nn -= PAD_LEN) {
if (!_dowrite(s, PAD_LEN, iop, bufptr))
return (EOF);
}
newbufptr = *bufptr + nn;
if (newbufptr > bufferend) {
if (!_dowrite(s, nn, iop, bufptr))
return (EOF);
} else {
(void) memcpy(*bufptr, s, nn);
*bufptr = newbufptr;
}
return (0);
}
}
#endif /* _WIDE */
#ifdef _WIDE
ssize_t
_wdoprnt(const wchar_t *format, va_list in_args, FILE *iop)
{
return (_wndoprnt(format, in_args, iop, 0));
}
#else /* _WIDE */
ssize_t
_doprnt(const char *format, va_list in_args, FILE *iop)
{
return (_ndoprnt(format, in_args, iop, 0));
}
#endif /* _WIDE */
#ifdef _WIDE
ssize_t
_wndoprnt(const wchar_t *format, va_list in_args, FILE *iop, int prflag)
#else /* _WIDE */
ssize_t
_ndoprnt(const char *format, va_list in_args, FILE *iop, int prflag)
#endif /* _WIDE */
{
#ifdef _WIDE
int sflag = 0;
size_t maxcount;
#else
int snflag = 0;
#endif /* _WIDE */
/* bufptr is used inside of doprnt instead of iop->_ptr; */
/* bufferend is a copy of _bufend(iop), if it exists. For */
/* dummy file descriptors (iop->_flag & _IOREAD), bufferend */
/* may be meaningless. Dummy file descriptors are used so that */
/* sprintf and vsprintf may share the _doprnt routine with the */
/* rest of the printf family. */
unsigned char *bufptr;
unsigned char *bufferend;
#ifdef _WIDE
/* This variable counts output characters. */
size_t count = 0;
#else /* _WIDE */
/* This variable counts output characters. */
int count = 0;
#endif /* _WIDE */
#ifdef _WIDE
wchar_t *bp;
size_t bpsize;
wchar_t *p;
char *cbp;
char *cp;
#else /* _WIDE */
/* Starting and ending points for value to be printed */
char *bp;
char *p;
#endif /* _WIDE */
/* Field width and precision */
int prec = 0;
ssize_t width;
ssize_t num;
ssize_t sec_display;
wchar_t *wp;
ssize_t preco;
ssize_t wcount = 0;
char tmpbuf[10];
char wflag;
char lflag;
int quote; /* ' */
int retcode;
#ifdef _WIDE
/* Format code */
wchar_t fcode;
#else /* _WIDE */
/* Format code */
char fcode;
#endif /* _WIDE */
/* Number of padding zeroes required on the left and right */
ssize_t lzero, rzero, rz, leadzeroes;
/* Flags - bit positions defined by LENGTH, FPLUS, FMINUS, FBLANK, */
/* and FSHARP are set if corresponding character is in format */
/* Bit position defined by PADZERO means extra space in the field */
/* should be padded with leading zeroes rather than with blanks */
ssize_t flagword;
#ifdef _WIDE
/* Values are developed in this buffer */
wchar_t buf[max(MAXLLDIGS, 1034)];
wchar_t cvtbuf[512 + DECIMAL_STRING_LENGTH];
/* Pointer to sign, "0x", "0X", or empty */
wchar_t *prefix;
wchar_t prefixbuf[4];
/* Exponent or empty */
wchar_t *suffix;
/* Buffer to create exponent */
wchar_t expbuf[MAXESIZ + 1];
#else /* _WIDE */
/* Values are developed in this buffer */
char buf[max(MAXLLDIGS, 1034)];
char cvtbuf[512 + DECIMAL_STRING_LENGTH];
/* Pointer to sign, "0x", "0X", or empty */
char *prefix;
char prefixbuf[4];
/* Exponent or empty */
char *suffix;
/* Buffer to create exponent */
char expbuf[MAXESIZ + 1];
#endif /* _WIDE */
/* Length of prefix and of suffix */
ssize_t prefixlength, suffixlength;
/* Combined length of leading zeroes, trailing zeroes, and suffix */
ssize_t otherlength;
/* The value being converted, if integer */
ssize_t val;
/* The value being converted, if long long */
long long ll = 0LL;
/* Output value from aconvert */
int exp;
/* Output values from fcvt and ecvt */
int decpt, sign;
#ifdef _WIDE
/* Pointer to a translate table for digits of whatever radix */
const wchar_t *tab;
#else /* _WIDE */
/* Pointer to a translate table for digits of whatever radix */
const char *tab;
#endif /* _WIDE */
/* Work variables */
ssize_t k, lradix, mradix;
int inf_nan = 0;
int inf_nan_mixed_case = 0;
#ifdef _WIDE
/* variables for positional parameters */
/* save the beginning of the format */
wchar_t *sformat = (wchar_t *)format;
#else /* _WIDE */
/* variables for positional parameters */
char *sformat = (char *)format; /* save the beginning of the format */
#endif
int fpos = 1; /* 1 if first positional parameter */
stva_list args, /* used to step through the argument list */
sargs; /* used to save the start of the arg list */
stva_list bargs; /* used to restore args if positional width */
/* or precision */
stva_list arglst[MAXARGS]; /* array giving appropriate values */
/* for va_arg() to retrieve the */
/* corresponding argument: */
/* arglst[0] is the first arg */
/* arglst[1] is the second arg, etc */
int starflg = 0; /* set to 1 if * format specifier seen */
struct lconv *locptr = localeconv();
char decimal_point = *locptr->decimal_point;
/*
* Initialize args and sargs to the start of the argument list.
* We don't know any portable way to copy an arbitrary C object
* so we use a system-specific routine (probably a macro) from
* stdarg.h. (Remember that if va_list is an array, in_args will
* be a pointer and &in_args won't be what we would want for
* memcpy.)
*/
va_copy(args.ap, in_args);
sargs = args;
#ifdef _WIDE
if (iop->_flag == _IOREAD)
sflag = 1;
if (!sflag) {
#endif /* _WIDE */
/* if first I/O to the stream get a buffer */
/* Note that iop->_base should not equal 0 for sprintf and vsprintf */
if (iop->_base == 0) {
if (_findbuf(iop) == 0)
return (EOF);
/* _findbuf leaves _cnt set to 0 which is the wrong thing to do */
/* for fully buffered files */
if (!(iop->_flag & (_IOLBF|_IONBF)))
iop->_cnt = _bufend(iop) - iop->_base;
}
#ifdef _WIDE
}
#endif /* _WIDE */
#ifdef _WIDE
bufptr = iop->_ptr;
if (sflag) {
maxcount = (size_t)iop->_cnt;
bufferend = (unsigned char *)(((wchar_t *)iop->_ptr) +
maxcount);
} else {
bufferend = _bufend(iop);
}
#else /* _WIDE */
/* initialize buffer pointer and buffer end pointer */
bufptr = iop->_ptr;
if (iop->_flag & _IOREAD) {
/*
* [v]sprintf or [v]snprintf
*/
if (iop->_cnt == MAXINT) {
/*
* [v]sprintf (no boundschecking)
*/
bufferend =
(unsigned char *)((long)bufptr | (-1L & ~HIBITL));
} else {
/*
* [v]snprintf (with boundschecking) or
* iop with _IORW has been read.
*/
bufferend = _bufend(iop);
if (bufferend == NULL) {
/*
* [v]snprintf
*
* [v]snprint() needs to be always handled by
* _dowrite().
*/
snflag = 1;
}
}
} else {
/*
* [v]printf or [v]fprintf
*/
bufferend = _bufend(iop);
}
#endif /* _WIDE */
/*
* The main loop -- this loop goes through one iteration
* for each string of ordinary characters or format specification.
*/
for (; ; ) {
ssize_t n;
if ((fcode = *format) != '\0' && fcode != '%') {
#ifdef _WIDE
bp = (wchar_t *)format;
#else /* _WIDE */
bp = (char *)format;
#endif /* _WIDE */
do {
format++;
} while ((fcode = *format) != '\0' && fcode != '%');
count += (n = format - bp); /* n = no. of non-% chars */
PUT(bp, n);
}
if (fcode == '\0') { /* end of format; return */
ssize_t nn = bufptr - iop->_ptr;
#ifdef _WIDE
if (sflag) {
iop->_ptr = bufptr;
return ((ssize_t)count);
}
#endif /* _WIDE */
iop->_cnt -= nn;
iop->_ptr = bufptr;
/* in case of interrupt during last several lines */
if ((bufptr + iop->_cnt) > bufferend && !(iop->_flag \
& _IOREAD))
_bufsync(iop, bufferend);
if (iop->_flag & (_IONBF | _IOLBF) && \
(iop->_flag & _IONBF || \
memchr((char *)(bufptr+iop->_cnt), \
'\n', -iop->_cnt) != NULL))
(void) _xflsbuf(iop);
#ifdef _WIDE
return (FERROR(iop) ? EOF : (ssize_t)count);
#else /* _WIDE */
return (FERROR(iop) ? EOF : (int)count);
#endif /* _WIDE */
}
/*
* % has been found.
* The following switch is used to parse the format
* specification and to perform the operation specified
* by the format letter. The program repeatedly goes
* back to this switch until the format letter is
* encountered.
*/
width = prefixlength = otherlength = 0;
flagword = suffixlength = 0;
format++;
wflag = 0;
lflag = 0;
sec_display = 0;
quote = 0;
charswitch:
switch (fcode = *format++) {
case '+':
flagword |= FPLUS;
goto charswitch;
case '-':
flagword |= FMINUS;
flagword &= ~PADZERO; /* ignore 0 flag */
goto charswitch;
case ' ':
flagword |= FBLANK;
goto charswitch;
case '\'': /* XSH4 */
quote++;
goto charswitch;
case '#':
flagword |= FSHARP;
goto charswitch;
/* Scan the field width and precision */
case '.':
flagword |= DOTSEEN;
prec = 0;
goto charswitch;
case '*':
if (_M_ISDIGIT(*format)) {
starflg = 1;
bargs = args;
goto charswitch;
}
if (!(flagword & DOTSEEN)) {
width = va_arg(args.ap, int);
if (width < 0) {
width = -width;
flagword |= FMINUS;
}
} else {
prec = va_arg(args.ap, int);
if (prec < 0) {
prec = 0;
flagword ^= DOTSEEN; /* ANSI sez so */
}
}
goto charswitch;
case '$':
{
ssize_t position;
stva_list targs;
if (fpos) {
#ifdef _WIDE
_wmkarglst(sformat, sargs, arglst, prflag);
#else /* _WIDE */
_mkarglst(sformat, sargs, arglst, prflag);
#endif /* _WIDE */
fpos = 0;
}
if (flagword & DOTSEEN) {
position = prec;
prec = 0;
} else {
position = width;
width = 0;
}
if (position <= 0) {
/* illegal position */
format--;
continue;
}
if (position <= MAXARGS) {
targs = arglst[position - 1];
} else {
targs = arglst[MAXARGS - 1];
#ifdef _WIDE
_wgetarg(sformat, &targs, position, prflag);
#else /* _WIDE */
_getarg(sformat, &targs, position, prflag);
#endif /* _WIDE */
}
if (!starflg)
args = targs;
else {
starflg = 0;
args = bargs;
if (flagword & DOTSEEN) {
prec = va_arg(targs.ap, int);
if (prec < 0) {
prec = 0;
flagword ^= DOTSEEN; /* XSH */
}
} else {
width = va_arg(targs.ap, int);
if (width < 0) {
width = -width;
flagword |= FMINUS;
}
}
}
goto charswitch;
}
case '0': /* obsolescent spec: leading zero in width */
/* means pad with leading zeros */
if (!(flagword & (DOTSEEN | FMINUS)))
flagword |= PADZERO;
/* FALLTHROUGH */
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
{ num = fcode - '0';
while (_M_ISDIGIT(fcode = *format)) {
num = num * 10 + fcode - '0';
format++;
}
if (flagword & DOTSEEN)
prec = num;
else
width = num;
goto charswitch;
}
/* Scan the length modifier */
case 'l':
if (!(flagword & XLONG)) {
if (lflag) {
/* long long */
flagword &= ~LENGTH;
flagword |= XLONG;
} else {
/* long */
flagword |= LENGTH;
}
}
lflag++;
goto charswitch;
case 'L': /* long double */
flagword |= QUAD;
goto charswitch;
case 'h':
if (!(flagword & CHAR)) {
if (flagword & SHORT) {
/* char - hh */
flagword &= ~SHORT;
flagword |= CHAR;
} else {
/* short */
flagword |= SHORT;
}
}
goto charswitch;
case 'j':
#ifndef _LP64
/*
* *printf_c89() in 32-bit libc uses
* 32-bit intmax_t; otherwise intmax_t
* is 64-bits.
*/
if (!(prflag & _F_INTMAX32)) {
#endif
flagword |= XLONG; /* [u]intmax_t (64) */
#ifndef _LP64
}
#endif
goto charswitch;
case 't':
/*
* LENGTH is shared by l, t, z specifiers; protect
* against (destructive) undefined behavior (eg:
* avoid %llt setting XLONG and LENGTH) with invalid
* combinations of specifiers
*/
if (!(flagword & XLONG)) {
flagword |= LENGTH; /* ptrdiff_t */
}
goto charswitch;
case 'z':
if (!(flagword & XLONG)) {
flagword |= LENGTH; /* [s]size_t */
}
goto charswitch;
/*
* The character addressed by format must be
* the format letter -- there is nothing
* left for it to be.
*
* The status of the +, -, #, and blank
* flags are reflected in the variable
* "flagword". "width" and "prec" contain
* numbers corresponding to the digit
* strings before and after the decimal
* point, respectively. If there was no
* decimal point, then flagword & DOTSEEN
* is false and the value of prec is meaningless.
*
* The following switch cases set things up
* for printing. What ultimately gets
* printed will be padding blanks, a
* prefix, left padding zeroes, a value,
* right padding zeroes, a suffix, and
* more padding blanks. Padding blanks
* will not appear simultaneously on both
* the left and the right. Each case in
* this switch will compute the value, and
* leave in several variables the informa-
* tion necessary to construct what is to
* be printed.
*
* The prefix is a sign, a blank, "0x",
* "0X", a sign or a blank followed by "0x"
* or "0X", or nothing, and is addressed by
* "prefix".
*
* The suffix is either null or an
* exponent, and is addressed by "suffix".
* If there is a suffix, the flagword bit
* SUFFIX will be set.
*
* The value to be printed starts at "bp"
* and continues up to and not including
* "p".
*
* "lzero" and "rzero" will contain the
* number of padding zeroes required on
* the left and right, respectively.
* The flagword bits LZERO and RZERO tell
* whether padding zeros are required.
*
* The number of padding blanks, and
* whether they go on the left or the
* right, will be computed on exit from
* the switch.
*/
/*
* decimal fixed point representations
*
* HIBITL is 100...000
* binary, and is equal to the maximum
* negative number.
* We assume a 2's complement machine
*/
case 'i':
case 'd':
if ((flagword & PADZERO) && (flagword & DOTSEEN))
flagword &= ~PADZERO; /* ignore 0 flag */
/* Set buffer pointer to last digit */
p = bp = buf + MAXLLDIGS;
/* Fetch the argument to be printed */
if (flagword & XLONG) { /* long long */
ll = va_arg(args.ap, long long);
/* If signed conversion, make sign */
if (ll < 0) {
prefix = _P_HYPHEN;
prefixlength = 1;
/*
* Negate, checking in advance for
* possible overflow.
*/
if (ll != HIBITLL)
ll = -ll;
else
/* number is -HIBITLL; convert last */
/* digit now and get positive number */
*--bp = _lowlldigit(&ll);
} else if (flagword & FPLUS) {
prefix = _P_PLUS;
prefixlength = 1;
} else if (flagword & FBLANK) {
prefix = _P_BLANK;
prefixlength = 1;
}
} else { /* not long long */
if (flagword & LENGTH)
val = va_arg(args.ap, long);
else
val = va_arg(args.ap, int);
if (flagword & SHORT)
val = (short)val;
else if (flagword & CHAR)
val = (char)val;
/* If signed conversion, make sign */
if (val < 0) {
prefix = _P_HYPHEN;
prefixlength = 1;
/*
* Negate, checking in advance
* for possible overflow.
*/
if (val != HIBITL)
val = -val;
/*
* number is -HIBITL; convert
* last digit now and get
* positive number
*/
else
*--bp = _lowdigit(&val);
} else if (flagword & FPLUS) {
prefix = _P_PLUS;
prefixlength = 1;
} else if (flagword & FBLANK) {
prefix = _P_BLANK;
prefixlength = 1;
}
}
decimal:
{
long qval = val;
long long lll = ll;
long long tll;
if (flagword & XLONG) {
if (lll < 10LL) {
#ifdef _WIDE
if (lll != 0LL || !(flagword & DOTSEEN))
*--bp = (wchar_t)lll + L'0';
#else /* _WIDE */
if (lll != 0LL || !(flagword & DOTSEEN))
*--bp = (char)lll + '0';
#endif /* _WIDE */
} else {
do {
tll = lll;
lll /= 10;
#ifdef _WIDE
*--bp = (wchar_t)
(tll - lll * 10 + '0');
#else /* _WIDE */
*--bp = (char) \
(tll - lll * 10 + '0');
#endif /* _WIDE */
} while (lll >= 10);
#ifdef _WIDE
*--bp = (wchar_t)lll + '0';
#else /* _WIDE */
*--bp = (char)lll + '0';
#endif /* _WIDE */
}
} else {
if (qval <= 9) {
#ifdef _WIDE
if (qval != 0 || !(flagword & DOTSEEN))
*--bp = (wchar_t)qval + '0';
#else /* _WIDE */
if (qval != 0 || !(flagword & DOTSEEN))
*--bp = (char)qval + '0';
#endif /* _WIDE */
} else {
do {
n = qval;
qval /= 10;
#ifdef _WIDE
*--bp = (wchar_t) \
(n - qval * 10 + '0');
#else /* _WIDE */
*--bp = (char) \
(n - qval * 10 + '0');
#endif /* _WIDE */
} while (qval > 9);
#ifdef _WIDE
*--bp = (wchar_t)qval + '0';
#else /* _WIDE */
*--bp = (char)qval + '0';
#endif /* _WIDE */
}
}
}
/* Handle the ' flag */
if (quote) {
p = insert_thousands_sep(bp, p);
}
/* Calculate minimum padding zero requirement */
if (flagword & DOTSEEN) {
leadzeroes = prec - (p - bp);
if (leadzeroes > 0) {
otherlength = lzero = leadzeroes;
flagword |= LZERO;
}
}
break;
case 'u':
if ((flagword & PADZERO) && (flagword & DOTSEEN))
flagword &= ~PADZERO; /* ignore 0 flag */
p = bp = buf + MAXLLDIGS;
/* Fetch the argument to be printed */
if (flagword & XLONG) {
ll = va_arg(args.ap, long long);
if (ll & HIBITLL)
*--bp = _lowlldigit(&ll);
} else {
if (flagword & LENGTH)
val = va_arg(args.ap, long);
else
val = va_arg(args.ap, unsigned);
if (flagword & SHORT)
val = (unsigned short)val;
else if (flagword & CHAR)
val = (unsigned char)val;
if (val & HIBITL)
*--bp = _lowdigit(&val);
}
goto decimal;
/*
* non-decimal fixed point representations
* for radix equal to a power of two
*
* "mradix" is one less than the radix for the conversion.
* "lradix" is one less than the base 2 log
* of the radix for the conversion. Conversion is unsigned.
* HIBITL is 100...000
* binary, and is equal to the maximum
* negative number.
* We assume a 2's complement machine
*/
case 'o':
mradix = 7;
lradix = 2;
/*
* DR151 and clarification in C90
* presence of '#' increases precision to first
* digit of the result to be zero
*/
if ((flagword & DOTSEEN) && (flagword & FSHARP) &&
prec == 0)
prec = 1;
goto fixed;
case 'p':
flagword &= ~(XLONG | SHORT);
flagword |= LENGTH;
/* FALLTHRU */
case 'X':
case 'x':
mradix = 15;
lradix = 3;
fixed:
if ((flagword & PADZERO) && (flagword & DOTSEEN))
flagword &= ~PADZERO; /* ignore 0 flag */
#ifdef _WIDE
/* Set translate table for digits */
tab = (wchar_t *)((fcode == 'X') ? uc_digs : lc_digs);
#else /* _WIDE */
/* Set translate table for digits */
tab = (fcode == 'X') ? uc_digs : lc_digs;
#endif /* _WIDE */
/* Fetch the argument to be printed */
if (flagword & XLONG) {
ll = va_arg(args.ap, long long);
} else {
if (flagword & LENGTH)
val = va_arg(args.ap, long);
else
val = va_arg(args.ap, unsigned);
if (flagword & SHORT)
val = (unsigned short) val;
else if (flagword & CHAR)
val = (unsigned char) val;
}
p = bp = buf + MAXLLDIGS;
/* Develop the digits of the value */
if (flagword & XLONG) {
long long lll = ll;
if (lll == 0LL) {
if (!(flagword & DOTSEEN)) {
otherlength = lzero = 1;
flagword |= LZERO;
}
} else do {
*--bp = tab[(ssize_t)(lll & mradix)];
lll = ((lll >> 1) & ~HIBITLL) \
>> lradix;
} while (lll != 0LL);
} else {
long qval = val;
if (qval == 0) {
if (!(flagword & DOTSEEN)) {
otherlength = lzero = 1;
flagword |= LZERO;
}
} else do {
*--bp = tab[qval & mradix];
qval = ((qval >> 1) & ~HIBITL) \
>> lradix;
} while (qval != 0);
}
/* Calculate minimum padding zero requirement */
if (flagword & DOTSEEN) {
leadzeroes = prec - (p - bp);
if (leadzeroes > 0) {
otherlength = lzero = leadzeroes;
flagword |= LZERO;
}
}
/* Handle the # flag, (val != 0) for int and long */
/* (ll!= 0) handles long long case */
if ((flagword & FSHARP) &&
(((flagword & XLONG) == 0 && val != 0) ||
((flagword & XLONG) == XLONG && ll != 0)))
switch (fcode) {
case 'o':
if (!(flagword & LZERO)) {
otherlength = lzero = 1;
flagword |= LZERO;
}
break;
case 'x':
prefix = _P_ZEROx;
prefixlength = 2;
break;
case 'X':
prefix = _P_ZEROX;
prefixlength = 2;
break;
}
break;
case 'A':
case 'a':
/* A format */
if (flagword & QUAD) {
long double qval = GETQVAL(args.ap);
/* establish default precision */
if (!(flagword & DOTSEEN))
#if defined(__sparc)
prec = HEXFP_QUAD_DIG - 1;
#elif defined(__i386) || defined(__amd64)
prec = HEXFP_EXTENDED_DIG - 1;
#else
#error Unknown architecture
#endif
FPCONV(__qaconvert, &qval,
min(prec + 1, MAXECVT), &exp, &sign,
cvtbuf);
} else {
double dval = va_arg(args.ap, double);
/* establish default precision */
if (!(flagword & DOTSEEN))
prec = HEXFP_DOUBLE_DIG - 1;
FPCONV(__aconvert, dval,
min(prec + 1, MAXECVT), &exp, &sign,
cvtbuf);
}
bp = cvtbuf;
/*
* The following is wide-character safe because
* __aconvert and __qaconvert only produce ASCII
* characters.
*/
if (!isxdigit((unsigned char)*bp)) {
inf_nan = 1;
break;
}
/*
* Create the prefix. We ought to use the strings
* defined above (_P_HYPHEN, etc.), but that would
* be awkward: we'd either have to define six more
* of them or we'd have to use strcpy/strcat to
* assemble the ones already defined. So instead,
* we just build the prefix character by character.
*/
p = prefix = prefixbuf;
if (sign) {
*p++ = '-';
prefixlength = 1;
} else if (flagword & FPLUS) {
*p++ = '+';
prefixlength = 1;
} else if (flagword & FBLANK) {
*p++ = ' ';
prefixlength = 1;
}
*p++ = '0';
*p++ = (fcode == 'A') ? 'X' : 'x';
*p = '\0';
prefixlength += 2;
/* put the first digit in the buffer */
p = &buf[0];
*p++ = (*bp != '\0') ? *bp++ : '0';
/* put in a decimal point if needed */
if (prec != 0 || (flagword & FSHARP))
*p++ = decimal_point;
/* create the rest of the mantissa */
rz = prec;
if (fcode == 'A') {
for (; rz > 0 && *bp != '\0'; --rz) {
*p++ = ('a' <= *bp && *bp <= 'f')?
*bp - 32 : *bp;
bp++;
}
} else {
for (; rz > 0 && *bp != '\0'; --rz)
*p++ = *bp++;
}
if (rz > 0) {
otherlength = rzero = rz;
flagword |= RZERO;
}
bp = &buf[0];
/*
* Create the exponent in right-to-left order.
* buf[0] == '0' if and only if the value being
* converted is exactly zero, in which case the
* exponent should be +0 regardless of exp.
*/
suffix = &expbuf[MAXESIZ];
*suffix = '\0';
if (buf[0] != '0') {
int nn;
nn = exp;
if (nn < 0)
nn = -nn;
for (; nn > 9; nn /= 10)
*--suffix = todigit(nn % 10);
*--suffix = todigit(nn);
*--suffix = (exp >= 0) ? '+' : '-';
} else {
*--suffix = '0';
*--suffix = '+';
}
/* put in the p */
*--suffix = (fcode == 'A') ? 'P' : 'p';
/* compute size of suffix */
suffixlength = &expbuf[MAXESIZ] - suffix;
otherlength += suffixlength;
flagword |= SUFFIX;
break;
case 'E':
case 'e':
/*
* E-format. The general strategy
* here is fairly easy: we take what
* econvert gives us and re-format it.
* (qeconvert for long double)
*/
/* Establish default precision */
if (!(flagword & DOTSEEN))
prec = 6;
if (flagword & QUAD) { /* long double */
long double qval = GETQVAL(args.ap);
FPCONV(qeconvert, &qval,
min(prec + 1, MAXECVT), &decpt, &sign,
cvtbuf);
} else { /* double */
double dval = va_arg(args.ap, double);
FPCONV(econvert, dval,
min(prec + 1, MAXECVT), &decpt, &sign,
cvtbuf);
}
bp = cvtbuf;
if (*bp > '9') {
inf_nan = 1;
inf_nan_mixed_case = (__xpg6 &
_C99SUSv3_mixed_case_Inf_and_NaN);
break;
}
/* Determine the prefix */
e_merge:
if (sign) {
prefix = _P_HYPHEN;
prefixlength = 1;
} else if (flagword & FPLUS) {
prefix = _P_PLUS;
prefixlength = 1;
} else if (flagword & FBLANK) {
prefix = _P_BLANK;
prefixlength = 1;
}
/* Place the first digit in the buffer */
p = &buf[0];
*p++ = (*bp != '\0') ? *bp++ : '0';
/* Put in a decimal point if needed */
if (prec != 0 || (flagword & FSHARP))
*p++ = decimal_point;
/* Create the rest of the mantissa */
rz = prec;
for (; rz > 0 && *bp != '\0'; --rz)
*p++ = *bp++;
if (rz > 0) {
otherlength = rzero = rz;
flagword |= RZERO;
}
bp = &buf[0];
/*
* Create the exponent. buf[0] == '0' if and
* only if the value being converted is exactly
* zero, in which case the exponent should be
* +0 regardless of decpt.
*/
*(suffix = &expbuf[MAXESIZ]) = '\0';
if (buf[0] != '0') {
int nn = decpt - 1;
if (nn < 0)
nn = -nn;
for (; nn > 9; nn /= 10)
*--suffix = todigit(nn % 10);
*--suffix = todigit(nn);
}
/* Prepend leading zeroes to the exponent */
while (suffix > &expbuf[MAXESIZ - 2])
*--suffix = '0';
/* Put in the exponent sign */
*--suffix = (decpt > 0 || buf[0] == '0') ? '+' : '-';
/* Put in the e */
*--suffix = _M_ISUPPER(fcode) ? 'E' : 'e';
/* compute size of suffix */
otherlength += (suffixlength = &expbuf[MAXESIZ] \
- suffix);
flagword |= SUFFIX;
break;
case 'F':
case 'f':
/*
* F-format floating point. This is a
* good deal less simple than E-format.
* The overall strategy will be to call
* fconvert, reformat its result into buf,
* and calculate how many trailing
* zeroes will be required. There will
* never be any leading zeroes needed.
* (qfconvert for long double)
*/
/* Establish default precision */
if (!(flagword & DOTSEEN))
prec = 6;
if (flagword & QUAD) { /* long double */
long double qval = GETQVAL(args.ap);
FPCONV(qfconvert, &qval, min(prec, MAXFCVT),
&decpt, &sign, cvtbuf);
bp = cvtbuf;
if (*bp == 0) {
/*
* qfconvert would have required
* too many characters; use qeconvert
* instead
*/
FPCONV(qeconvert, &qval,
min(prec + 1, MAXECVT), &decpt,
&sign, cvtbuf);
goto e_merge;
}
} else { /* double */
double dval = va_arg(args.ap, double);
FPCONV(fconvert, dval, min(prec, MAXFCVT),
&decpt, &sign, cvtbuf);
}
bp = cvtbuf;
if (*bp > '9') {
inf_nan = 1;
if (fcode == 'f')
inf_nan_mixed_case = (__xpg6 &
_C99SUSv3_mixed_case_Inf_and_NaN);
break;
}
/* Determine the prefix */
f_merge:
if (sign) {
prefix = _P_HYPHEN;
prefixlength = 1;
} else if (flagword & FPLUS) {
prefix = _P_PLUS;
prefixlength = 1;
} else if (flagword & FBLANK) {
prefix = _P_BLANK;
prefixlength = 1;
}
/* Initialize buffer pointer */
p = &buf[0];
{
ssize_t nn = decpt;
/* Emit the digits before the decimal point */
k = 0;
do {
*p++ = (nn <= 0 || *bp == '\0' || \
k >= MAXFSIG) ? '0' : (k++, *bp++);
} while (--nn > 0);
if (quote)
p = insert_thousands_sep(buf, p);
/* Decide whether we need a decimal point */
if ((flagword & FSHARP) || prec > 0)
*p++ = decimal_point;
/* Digits (if any) after the decimal point */
nn = min(prec, MAXFCVT);
if (prec > nn) {
flagword |= RZERO;
otherlength = rzero = prec - nn;
}
while (--nn >= 0)
*p++ = (++decpt <= 0 || *bp == '\0' || \
k >= MAXFSIG) ? '0' : (k++, *bp++);
}
bp = &buf[0];
break;
case 'G':
case 'g':
/*
* g-format. We play around a bit
* and then jump into e or f, as needed.
*/
/* Establish default precision */
if (!(flagword & DOTSEEN))
prec = 6;
else if (prec == 0)
prec = 1;
if (flagword & QUAD) { /* long double */
long double qval = GETQVAL(args.ap);
FPCONV(qeconvert, &qval, min(prec, MAXECVT),
&decpt, &sign, cvtbuf);
} else { /* double */
double dval = va_arg(args.ap, double);
FPCONV(econvert, dval, min(prec, MAXECVT),
&decpt, &sign, cvtbuf);
}
bp = cvtbuf;
if (*bp > '9') {
inf_nan = 1;
inf_nan_mixed_case = (__xpg6 &
_C99SUSv3_mixed_case_Inf_and_NaN);
break;
}
if (*bp == '0') /* the value converted is zero */
decpt = 1;
{
int kk = prec;
if (!(flagword & FSHARP)) {
#ifdef _WIDE
n = wcslen(bp);
#else /* _WIDE */
n = strlen(bp);
#endif /* _WIDE */
if (n < kk)
kk = (int)n;
while (kk >= 1 && bp[kk-1] == '0')
--kk;
}
if (decpt < -3 || decpt > prec) {
prec = kk - 1;
goto e_merge;
}
prec = kk - decpt;
goto f_merge;
}
case '%':
buf[0] = fcode;
goto c_merge;
#ifndef _WIDE
case 'w':
wflag = 1;
goto charswitch;
#endif /* _WIDE */
case 'C': /* XPG XSH4 extention */
wide_C:
{
wchar_t temp;
temp = va_arg(args.ap, wchar_t);
#ifdef _WIDE
if (temp) {
buf[0] = temp;
p = (bp = buf) + 1;
} else {
buf[0] = 0;
p = (bp = buf) + 1;
}
wcount = 1;
wflag = 1;
#else /* _WIDE */
if (temp) {
if ((retcode = wctomb(buf, temp))
== -1) {
errno = EILSEQ;
return (EOF);
} else {
p = (bp = buf) + retcode;
}
} else { /* NULL character */
buf[0] = 0;
p = (bp = buf) + 1;
}
wcount = p - bp;
#endif /* _WIDE */
}
break;
case 'c':
if (lflag) {
goto wide_C;
}
#ifndef _WIDE
if (wflag) {
wchar_t temp;
temp = va_arg(args.ap, wchar_t);
if (temp) {
if ((retcode = wctomb(buf, temp))
== -1) {
p = (bp = buf) + 1;
} else {
p = (bp = buf) + retcode;
}
} else { /* NULL character */
buf[0] = 0;
p = (bp = buf) + 1;
}
wcount = p - bp;
} else {
#endif /* _WIDE */
if (flagword & XLONG) {
long long temp;
temp = va_arg(args.ap, long long);
#ifdef _WIDE
buf[0] = (wchar_t)temp;
#else /* _WIDE */
buf[0] = (char)temp;
#endif /* _WIDE */
} else
buf[0] = va_arg(args.ap, int);
c_merge:
p = (bp = &buf[0]) + 1;
#ifdef _WIDE
wcount = 1;
wflag = 1;
#endif /* _WIDE */
#ifndef _WIDE
}
#endif /* _WIDE */
break;
case 'S': /* XPG XSH4 extention */
wide_S:
#ifdef _WIDE
if (!lflag) {
lflag++;
}
bp = va_arg(args.ap, wchar_t *);
if (bp == NULL)
bp = (wchar_t *)widenullstr;
if (!(flagword & DOTSEEN)) {
/* wide character handling */
prec = MAXINT;
}
wp = bp;
wcount = 0;
while (*wp) {
if ((prec - wcount - 1) >= 0) {
wcount++;
wp++;
} else {
break;
}
}
p = wp;
wflag = 1;
break;
#else /* _WIDE */
if (!wflag)
wflag++;
bp = va_arg(args.ap, char *);
if (bp == NULL)
bp = (char *)widenullstr;
if (!(flagword & DOTSEEN)) {
/* wide character handling */
prec = MAXINT;
}
wp = (wchar_t *)(uintptr_t)bp;
wcount = 0;
while (*wp) {
int nbytes;
nbytes = wctomb(tmpbuf, *wp);
if (nbytes < 0) {
errno = EILSEQ;
return (EOF);
}
if ((prec - (wcount + nbytes)) >= 0) {
wcount += nbytes;
wp++;
} else {
break;
}
}
sec_display = wcount;
p = (char *)wp;
break;
#endif /* _WIDE */
case 's':
if (lflag) {
goto wide_S;
}
#ifdef _WIDE
cbp = va_arg(args.ap, char *);
if (cbp == NULL)
cbp = (char *)nullstr;
if (!(flagword & DOTSEEN)) {
size_t nwc;
wchar_t *wstr;
nwc = mbstowcs(NULL, cbp, 0);
if (nwc == (size_t)-1) {
errno = EILSEQ;
return (EOF);
}
bpsize = sizeof (wchar_t) * (nwc + 1);
wstr = (wchar_t *)lmalloc(bpsize);
if (wstr == NULL) {
errno = EILSEQ;
return (EOF);
}
nwc = mbstowcs(wstr, cbp, MAXINT);
wcount = nwc;
bp = wstr;
p = wstr + nwc;
} else {
size_t nwc;
wchar_t *wstr;
nwc = mbstowcs(NULL, cbp, 0);
if (nwc == (size_t)-1) {
errno = EILSEQ;
return (EOF);
}
if (prec > nwc) {
bpsize = sizeof (wchar_t) * nwc;
wstr = (wchar_t *)lmalloc(bpsize);
if (wstr == NULL) {
errno = ENOMEM;
return (EOF);
}
nwc = mbstowcs(wstr, cbp, nwc);
cp = cbp + strlen(cbp);
wcount = nwc;
bp = wstr;
p = wstr + nwc;
} else {
size_t nnwc;
int len;
char *s;
wchar_t *wstr;
bpsize = sizeof (wchar_t) * prec;
wstr = (wchar_t *)lmalloc(bpsize);
if (wstr == NULL) {
errno = ENOMEM;
return (EOF);
}
nwc = mbstowcs(wstr, cbp, prec);
wcount = prec;
bp = wstr;
p = wstr + nwc;
}
}
wflag = 1;
#else /* _WIDE */
bp = va_arg(args.ap, char *);
if (bp == NULL)
bp = (char *)nullstr;
if (!(flagword & DOTSEEN)) {
if (wflag) {
/* wide character handling */
prec = MAXINT;
goto wide_hand;
}
p = bp + strlen(bp);
/*
* sec_display only needed if width
* is specified (ie, "%<width>s")
* Solaris behavior counts <width> in
* screen column width. (If XPG4 behavior,
* <width> is counted in bytes.)
*/
if (width > 0 && __xpg4 == 0 &&
MB_CUR_MAX > 1) {
#define NW 256
wchar_t wbuff[NW];
wchar_t *wp, *wptr;
size_t wpsize;
size_t nwc;
wp = NULL;
if ((nwc = mbstowcs(wbuff, bp,
NW)) == (size_t)-1) {
/* Estimate width */
sec_display = strlen(bp);
goto mbs_err;
}
if (nwc < NW) {
wptr = wbuff;
} else {
/*
* If widechar does not fit into
* wbuff, allocate larger buffer
*/
if ((nwc =
mbstowcs(NULL, bp, NULL)) ==
(size_t)-1) {
sec_display =
strlen(bp);
goto mbs_err;
}
wpsize = (nwc + 1) *
sizeof (wchar_t);
if ((wp = lmalloc(wpsize))
== NULL) {
errno = ENOMEM;
return (EOF);
}
if ((nwc = mbstowcs(wp,
bp, nwc)) == (size_t)-1) {
sec_display = \
strlen(bp);
goto mbs_err;
}
wptr = wp;
}
if ((sec_display = wcswidth(wptr, nwc))
== -1) {
sec_display =
_rec_scrswidth
(wptr, nwc);
}
mbs_err:
if (wp)
lfree(wp, wpsize);
}
} else { /* a strnlen function would be useful here! */
/*
* If we've seen a dot, and count has been set
* to 0, then we don't output in any cases
* below. prec should be always >= 0. So we only
* check to see if it's zero.
*/
if (prec == 0) {
p = bp;
break;
}
if (wflag) {
/* wide character handling */
wide_hand:
wp = (wchar_t *)(uintptr_t)bp;
preco = prec;
wcount = 0;
while (*wp &&
(prec -= _scrwidth(*wp)) >= 0) {
if ((retcode =
wctomb(tmpbuf, *wp)) < 0)
wcount++;
else
wcount += retcode;
wp++;
}
if (*wp)
prec += _scrwidth(*wp);
p = (char *)wp;
sec_display = preco - prec;
} else if (__xpg4 == 0 && MB_CUR_MAX > 1) {
/*
* Solaris behavior - count
* precision as screen column width
*/
char *qp = bp;
int ncol, nbytes;
wchar_t wc;
ncol = 0;
preco = prec;
while (*qp) {
if (isascii(*qp)) {
qp++;
if (--prec == 0)
break;
continue;
}
if ((nbytes = mbtowc(&wc, qp,
MB_LEN_MAX)) == -1) {
/* print illegal char */
nbytes = 1;
ncol = 1;
} else {
if ((ncol =
_scrwidth(wc))
== 0) {
ncol = 1;
}
}
if ((prec -= ncol) >= 0) {
qp += nbytes;
if (prec == 0)
break;
} else {
break;
}
}
if (prec < 0)
prec += ncol;
p = qp;
sec_display = preco - prec;
} else {
/*
* XPG4 behavior - count
* precision as bytes.
* We don't use strlen() because
* the given char string may not
* be null-terminated.
*/
char *qp;
qp = memchr(bp, '\0', prec);
if (qp == NULL) {
p = bp + prec;
} else {
p = qp;
}
}
}
#endif /* _WIDE */
break;
case 'n':
{
if (flagword & XLONG) {
long long *svcount;
svcount = va_arg(args.ap, long long *);
*svcount = (long long)count;
} else if (flagword & LENGTH) {
long *svcount;
svcount = va_arg(args.ap, long *);
*svcount = (long)count;
} else if (flagword & SHORT) {
short *svcount;
svcount = va_arg(args.ap, short *);
*svcount = (short)count;
} else if (flagword & CHAR) {
char *svcount;
svcount = va_arg(args.ap, char *);
*svcount = (char)count;
} else {
int *svcount;
svcount = va_arg(args.ap, int *);
*svcount = count;
}
continue;
}
default: /* this is technically an error; what we do is to */
/* back up the format pointer to the offending char */
/* and continue with the format scan */
format--;
continue;
}
if (inf_nan) {
if (inf_nan_mixed_case) {
/* advance p */
for (p = bp + 1; *p != '\0'; p++)
;
} else {
int upper;
/* advance p and make output all one case */
upper = _M_ISUPPER(fcode);
for (p = bp; *p != '\0'; p++)
*p = upper? toupper(*p) : tolower(*p);
}
if (sign) {
prefix = _P_HYPHEN;
prefixlength = 1;
} else if (flagword & FPLUS) {
prefix = _P_PLUS;
prefixlength = 1;
} else if (flagword & FBLANK) {
prefix = _P_BLANK;
prefixlength = 1;
}
inf_nan = 0;
inf_nan_mixed_case = 0;
flagword &= ~PADZERO; /* ignore 0 flag */
}
/* Calculate number of padding blanks */
n = p - bp; /* n == size of the converted value (in bytes) */
#ifdef _WIDE
k = n;
#else /* _WIDE */
if (sec_display) /* when format is %s or %ws or %S */
k = sec_display;
else
k = n;
#endif /* _WIDE */
/*
* k is the (screen) width or # of bytes of the converted value
*/
k += prefixlength + otherlength;
#ifdef _WIDE
if (wflag) {
count += wcount;
} else {
count += n;
}
#else /* _WIDE */
/*
* update count which is the overall size of the output data
* and passed to memchr()
*/
if (wflag)
/*
* when wflag != 0 (i.e. %ws or %wc), the size of the
* converted value is wcount bytes
*/
count += wcount;
else
/*
* when wflag == 0, the size of the converted
* value is n (= p-bp) bytes
*/
count += n;
#endif /* _WIDE */
count += prefixlength + otherlength;
if (width > k) {
count += (width - k);
/*
* Set up for padding zeroes if requested
* Otherwise emit padding blanks unless output is
* to be left-justified.
*/
if (flagword & PADZERO) {
if (!(flagword & LZERO)) {
flagword |= LZERO;
lzero = width - k;
} else
lzero += width - k;
k = width; /* cancel padding blanks */
} else
/* Blanks on left if required */
if (!(flagword & FMINUS))
PAD(_blanks, width - k);
}
/* Prefix, if any */
if (prefixlength != 0)
PUT(prefix, prefixlength);
/* Zeroes on the left */
if ((flagword & LZERO)) /* && */
/* (!(flagword & SHORT) || !(flagword & FMINUS)) */
PAD(_zeroes, lzero);
#ifdef _WIDE
if (n > 0)
PUT(bp, n);
if ((fcode == 's') && !lflag) {
if (bp)
lfree(bp, bpsize);
}
#else /* _WIDE */
/* The value itself */
if ((fcode == 's' || fcode == 'S') && wflag) {
/* wide character handling */
wchar_t *wp = (wchar_t *)(uintptr_t)bp;
int cnt;
char *bufp;
long printn;
printn = (wchar_t *)(uintptr_t)p -
(wchar_t *)(uintptr_t)bp;
bufp = buf;
while (printn > 0) {
if ((cnt = wctomb(buf, *wp)) < 0)
cnt = 1;
PUT(bufp, cnt);
wp++;
printn--;
}
} else { /* non wide character value */
if (n > 0)
PUT(bp, n);
}
#endif /* _WIDE */
if (flagword & (RZERO | SUFFIX | FMINUS)) {
/* Zeroes on the right */
if (flagword & RZERO)
PAD(_zeroes, rzero);
/* The suffix */
if (flagword & SUFFIX)
PUT(suffix, suffixlength);
/* Blanks on the right if required */
if (flagword & FMINUS && width > k)
PAD(_blanks, width - k);
}
}
}
#ifdef _WIDE
static int
_watoi(wchar_t *fmt)
{
int n = 0;
wchar_t ch;
ch = *fmt;
if (_M_ISDIGIT(ch)) {
n = ch - '0';
ch = *++fmt;
while (_M_ISDIGIT(ch)) {
n *= 10;
n += ch - '0';
ch = *++fmt;
}
}
return (n);
}
#endif /* _WIDE */
/*
* This function initializes arglst, to contain the appropriate va_list values
* for the first MAXARGS arguments.
*/
/*
* Type modifier flags:
* 0x01 for long
* 0x02 for int
* 0x04 for long long
* 0x08 for long double
*/
#define FLAG_LONG 0x01
#define FLAG_INT 0x02
#define FLAG_LONG_LONG 0x04
#define FLAG_LONG_DBL 0x08
/* ARGSUSED3 */
#ifdef _WIDE
static void
_wmkarglst(wchar_t *fmt, stva_list args, stva_list arglst[], int prflag)
#else /* _WIDE */
static void
_mkarglst(char *fmt, stva_list args, stva_list arglst[], int prflag)
#endif /* _WIDE */
{
#ifdef _WIDE
static const wchar_t digits[] = L"01234567890";
static const wchar_t skips[] = L"# +-.'0123456789h$";
#else /* _WIDE */
static const char digits[] = "01234567890";
static const char skips[] = "# +-.'0123456789h$";
#endif /* _WIDE */
enum types {INT = 1, LONG, CHAR_PTR, DOUBLE, LONG_DOUBLE, VOID_PTR,
LONG_PTR, INT_PTR, LONG_LONG, LONG_LONG_PTR};
enum types typelst[MAXARGS], curtype;
ssize_t n;
int maxnum, curargno, flags;
/*
* Algorithm 1. set all argument types to zero.
* 2. walk through fmt putting arg types in typelst[].
* 3. walk through args using va_arg(args.ap, typelst[n])
* and set arglst[] to the appropriate values.
* Assumptions: Cannot use %*$... to specify variable position.
*/
(void) memset((void *) typelst, 0, sizeof (typelst));
maxnum = -1;
curargno = 0;
while ((fmt = STRCHR(fmt, '%')) != 0) {
fmt++; /* skip % */
if (fmt[n = STRSPN(fmt, digits)] == '$') {
/* convert to zero base */
curargno = ATOI(fmt) - 1;
if (curargno < 0)
continue;
fmt += n + 1;
}
flags = 0;
again:;
fmt += STRSPN(fmt, skips);
switch (*fmt++) {
case '%': /* there is no argument! */
continue;
case 'l':
if (flags & (FLAG_LONG | FLAG_LONG_LONG)) {
flags |= FLAG_LONG_LONG;
flags &= ~FLAG_LONG;
} else {
flags |= FLAG_LONG;
}
goto again;
case 'j':
#ifndef _LP64
/*
* *printf_c89() in 32-bit libc uses
* 32-bit intmax_t; otherwise intmax_t
* is 64-bits.
*/
if (!(prflag & _F_INTMAX32)) {
#endif
flags |= FLAG_LONG_LONG; /* 64-bit */
#ifndef _LP64
}
#endif
goto again;
case 't':
flags |= FLAG_LONG;
goto again;
case 'z':
flags |= FLAG_LONG;
goto again;
case 'L':
flags |= FLAG_LONG_DBL;
goto again;
case '*': /* int argument used for value */
/* check if there is a positional parameter */
#ifdef _WIDE
if ((*fmt >= 0) && (*fmt < 256) &&
isdigit(*fmt))
#else /* _WIDE */
if (isdigit(*fmt))
#endif /* _WIDE */
{
int targno;
targno = ATOI(fmt) - 1;
fmt += STRSPN(fmt, digits);
if (*fmt == '$')
fmt++; /* skip '$' */
if (targno >= 0 && targno < MAXARGS) {
typelst[targno] = INT;
if (maxnum < targno)
maxnum = targno;
}
goto again;
}
flags |= FLAG_INT;
curtype = INT;
break;
case 'a':
case 'A':
case 'e':
case 'E':
case 'f':
case 'F':
case 'g':
case 'G':
if (flags & FLAG_LONG_DBL)
curtype = LONG_DOUBLE;
else
curtype = DOUBLE;
break;
case 's':
curtype = CHAR_PTR;
break;
case 'p':
curtype = VOID_PTR;
break;
case 'n':
if (flags & FLAG_LONG_LONG)
curtype = LONG_LONG_PTR;
else if (flags & FLAG_LONG)
curtype = LONG_PTR;
else
curtype = INT_PTR;
break;
default:
if (flags & FLAG_LONG_LONG)
curtype = LONG_LONG;
else if (flags & FLAG_LONG)
curtype = LONG;
else
curtype = INT;
break;
}
if (curargno >= 0 && curargno < MAXARGS) {
typelst[curargno] = curtype;
if (maxnum < curargno)
maxnum = curargno;
}
curargno++; /* default to next in list */
if (flags & FLAG_INT) /* took care of *, keep going */
{
flags ^= FLAG_INT;
goto again;
}
}
for (n = 0; n <= maxnum; n++) {
arglst[n] = args;
if (typelst[n] == 0)
typelst[n] = INT;
switch (typelst[n]) {
case INT:
(void) va_arg(args.ap, int);
break;
case LONG:
(void) va_arg(args.ap, long);
break;
case CHAR_PTR:
(void) va_arg(args.ap, char *);
break;
case DOUBLE:
(void) va_arg(args.ap, double);
break;
case LONG_DOUBLE:
(void) GETQVAL(args.ap);
break;
case VOID_PTR:
(void) va_arg(args.ap, void *);
break;
case LONG_PTR:
(void) va_arg(args.ap, long *);
break;
case INT_PTR:
(void) va_arg(args.ap, int *);
break;
case LONG_LONG:
(void) va_arg(args.ap, long long);
break;
case LONG_LONG_PTR:
(void) va_arg(args.ap, long long *);
break;
}
}
}
/*
* This function is used to find the va_list value for arguments whose
* position is greater than MAXARGS. This function is slow, so hopefully
* MAXARGS will be big enough so that this function need only be called in
* unusual circumstances.
* pargs is assumed to contain the value of arglst[MAXARGS - 1].
*/
/* ARGSUSED3 */
#ifdef _WIDE
static void
_wgetarg(wchar_t *fmt, stva_list *pargs, long argno, int prflag)
#else /* _WIDE */
void
_getarg(char *fmt, stva_list *pargs, long argno, int prflag)
#endif /* _WIDE */
{
#ifdef _WIDE
static const wchar_t digits[] = L"01234567890";
static const wchar_t skips[] = L"# +-.'0123456789h$";
wchar_t *sfmt = fmt;
#else /* _WIDE */
static const char digits[] = "01234567890";
static const char skips[] = "# +-.'0123456789h$";
char *sfmt = fmt;
#endif /* _WIDE */
ssize_t n;
int i, curargno, flags;
int found = 1;
i = MAXARGS;
curargno = 1;
while (found) {
fmt = sfmt;
found = 0;
while ((i != argno) && (fmt = STRCHR(fmt, '%')) != 0) {
fmt++; /* skip % */
if (fmt[n = STRSPN(fmt, digits)] == '$') {
curargno = ATOI(fmt);
if (curargno <= 0)
continue;
fmt += n + 1;
}
/* find conversion specifier for next argument */
if (i != curargno) {
curargno++;
continue;
} else
found = 1;
flags = 0;
again:;
fmt += STRSPN(fmt, skips);
switch (*fmt++) {
case '%': /* there is no argument! */
continue;
case 'l':
if (flags & (FLAG_LONG | FLAG_LONG_LONG)) {
flags |= FLAG_LONG_LONG;
flags &= ~FLAG_LONG;
} else {
flags |= FLAG_LONG;
}
goto again;
case 'j':
#ifndef _LP64
/*
* *printf_c89() in 32-bit libc uses
* 32-bit intmax_t; otherwise intmax_t
* is 64-bits.
*/
if (!(prflag & _F_INTMAX32)) {
#endif
flags |= FLAG_LONG_LONG; /* 64-bit */
#ifndef _LP64
}
#endif
goto again;
case 't':
flags |= FLAG_LONG;
goto again;
case 'z':
flags |= FLAG_LONG;
goto again;
case 'L':
flags |= FLAG_LONG_DBL;
goto again;
case '*': /* int argument used for value */
/*
* check if there is a positional parameter;
* if so, just skip it; its size will be
* correctly determined by default
*/
if (_M_ISDIGIT(*fmt)) {
fmt += STRSPN(fmt, digits);
if (*fmt == '$')
fmt++; /* skip '$' */
goto again;
}
flags |= FLAG_INT;
(void) va_arg((*pargs).ap, int);
break;
case 'a':
case 'A':
case 'e':
case 'E':
case 'f':
case 'F':
case 'g':
case 'G':
if (flags & FLAG_LONG_DBL)
(void) GETQVAL((*pargs).ap);
else
(void) va_arg((*pargs).ap, double);
break;
case 's':
(void) va_arg((*pargs).ap, char *);
break;
case 'p':
(void) va_arg((*pargs).ap, void *);
break;
case 'n':
if (flags & FLAG_LONG_LONG)
(void) va_arg((*pargs).ap, long long *);
else if (flags & FLAG_LONG)
(void) va_arg((*pargs).ap, long *);
else
(void) va_arg((*pargs).ap, int *);
break;
default:
if (flags & FLAG_LONG_LONG)
(void) va_arg((*pargs).ap, long long);
else if (flags & FLAG_LONG)
(void) va_arg((*pargs).ap, long int);
else
(void) va_arg((*pargs).ap, int);
break;
}
i++;
curargno++; /* default to next in list */
if (flags & FLAG_INT) /* took care of *, keep going */
{
flags ^= FLAG_INT;
goto again;
}
}
/* missing specifier for parameter, assume param is an int */
if (!found && i != argno) {
(void) va_arg((*pargs).ap, int);
i++;
curargno = i;
found = 1;
}
}
}
#ifdef _WIDE
static wchar_t *
insert_thousands_sep(wchar_t *bp, wchar_t *ep)
#else /* _WIDE */
static char *
insert_thousands_sep(char *bp, char *ep)
#endif /* _WIDE */
{
char thousep;
struct lconv *locptr;
ssize_t buf_index;
int i;
#ifdef _WIDE
wchar_t *obp = bp;
wchar_t buf[371];
wchar_t *bufptr = buf;
#else /* _WIDE */
char *obp = bp;
char buf[371];
char *bufptr = buf;
#endif /* _WIDE */
char *grp_ptr;
/* get the thousands sep. from the current locale */
locptr = localeconv();
thousep = *locptr->thousands_sep;
grp_ptr = locptr->grouping;
/* thousands sep. not use in this locale or no grouping required */
if (!thousep || (*grp_ptr == '\0'))
return (ep);
buf_index = ep - bp;
for (;;) {
if (*grp_ptr == CHAR_MAX) {
for (i = 0; i < buf_index--; i++)
*bufptr++ = *(bp + buf_index);
break;
}
for (i = 0; i < *grp_ptr && buf_index-- > 0; i++)
*bufptr++ = *(bp + buf_index);
if (buf_index > 0) {
#ifdef _WIDE
*bufptr++ = (wchar_t)thousep;
#else /* _WIDE */
*bufptr++ = thousep;
#endif /* _WIDE */
ep++;
}
else
break;
if (*(grp_ptr + 1) != '\0')
++grp_ptr;
}
/* put the string in the caller's buffer in reverse order */
--bufptr;
while (buf <= bufptr)
*obp++ = *bufptr--;
return (ep);
}
/*
* Recovery scrswidth function -
* this variant of wcswidth() accepts non-printable or illegal
* widechar characters.
*/
static int
_rec_scrswidth(wchar_t *wp, ssize_t n)
{
int col;
int i;
col = 0;
while (*wp && (n-- > 0)) {
if ((i = _scrwidth(*wp++)) == 0)
i = 1;
col += i;
}
return (col);
}