da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "sfhdr.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define HIGHBITI (~((~((uint)0)) >> 1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define HIGHBITL (~((~((Sfulong_t)0)) >> 1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFFMT_PREFIX (SFFMT_MINUS|SFFMT_SIGN|SFFMT_BLANK)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define FPRECIS 6 /* default precision for floats */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ccode.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _chr_ebcdic

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CC_vt 013 /* vertical tab */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CC_esc 047 /* escape */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CC_bel 057 /* bell */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CC_vt 013 /* vertical tab */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CC_esc 033 /* escape */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define CC_bel 007 /* bell */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* _chr_ebcdic */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* _PACKAGE_ast */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int chr2str(char* buf, int v)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int chr2str(buf, v)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinchar* buf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isprint(v) && v != '\\')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *buf++ = v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *buf++ = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(v)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { case CC_bel: *buf++ = 'a'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case CC_vt: *buf++ = 'v'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case CC_esc: *buf++ = 'E'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\b': *buf++ = 'b'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\f': *buf++ = 'f'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\n': *buf++ = 'n'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\r': *buf++ = 'r'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\t': *buf++ = 't'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\\': *buf++ = '\\'; return 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default: *buf++ = '0' + ((v >> 6) & 03);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *buf++ = '0' + ((v >> 3) & 07);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *buf++ = '0' + ((v >> 0) & 07);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !defined(_sffmt_small) && defined(_UTS)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define _sffmt_small 1

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if __STD_C

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sfvprintf(Sfio_t* f, const char* form, va_list args)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sfvprintf(f,form,args)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinSfio_t* f; /* file to print to */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinchar* form; /* format to use */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinva_list args; /* arg list if !argf */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n, v, w, k, n_s, base, fmt, flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sflong_t lv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *sp, *ssp, *endsp, *ep, *endep;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int dot, width, precis, sign, decpt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int scale;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssize_t size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdouble_t dval;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Void_t* valp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *tls[2], **ls; /* for %..[separ]s */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* t_str; /* stuff between () */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssize_t n_str; /* its length */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Argv_t argv; /* for extf to return value */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sffmt_t *ft; /* format environment */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Fmt_t *fm, *fmstk; /* stack contexts */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* oform; /* original format string */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_list oargs; /* original arg list */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Fmtpos_t* fp; /* arg position list */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int argp, argn; /* arg position and number */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SLACK 1024

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char buf[SF_MAXDIGITS+SLACK], tmp[SF_MAXDIGITS+1], data[SF_GRAIN];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int decimal = 0, thousand = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin wchar_t* wsp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBDCL(fmbs) /* state of format string */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBDCL(mbs) /* state of some string */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef mbwidth

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* osp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int n_w, wc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* local io system */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int o, n_output;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SMputc(f,c) { if((o = SFFLSBUF(f,c)) >= 0 ) n_output += 1; \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else { SFBUF(f); goto done; } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SMnputc(f,c,n) { if((o = SFNPUTC(f,c,n)) > 0 ) n_output += 1; \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(o != n) { SFBUF(f); goto done; } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SMwrite(f,s,n) { if((o = SFWRITE(f,(Void_t*)s,n)) > 0 ) n_output += o; \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(o != n) { SFBUF(f); goto done; } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _sffmt_small /* these macros are made smaller at some performance cost */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFBUF(f)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFINIT(f) (n_output = 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFEND(f)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFputc(f,c) SMputc(f,c)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFnputc(f,c,n) SMnputc(f,c,n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFwrite(f,s,n) SMwrite(f,s,n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin uchar *d, *endd;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFBUF(f) (d = f->next, endd = f->endb)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFINIT(f) (SFBUF(f), n_output = 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFEND(f) ((n_output += d - f->next), (f->next = d))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFputc(f,c) { if(d < endd) { *d++ = (uchar)c; } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else { SFEND(f); SMputc(f,c); SFBUF(f); } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFnputc(f,c,n) { if(d+n <= endd) { while(n--) *d++ = (uchar)(c); } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else { SFEND(f); SMnputc(f,c,n); SFBUF(f); } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define SFwrite(f,s,n) { if(d+n <= endd) { while(n--) *d++ = (uchar)(*s++); } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else { SFEND(f); SMwrite(f,s,n); SFBUF(f); } \

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* _sffmt_small */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin SFMTXDECL(f);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFCVINIT(); /* initialize conversion tables */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin SFMTXENTER(f,-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!form)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, -1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* make sure stream is in write mode and buffer is not NULL */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(f->mode != SF_WRITE && _sfmode(f,SF_WRITE,0) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMTXRETURN(f, -1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFLOCK(f,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!f->data && !(f->flags&SF_STRING))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { f->data = f->next = (uchar*)data;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f->endb = f->data+sizeof(data);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFINIT(f);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin tls[1] = NIL(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmstk = NIL(Fmt_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ft = NIL(Sffmt_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin oform = (char*)form;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_copy(oargs,args);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argn = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp = NIL(Fmtpos_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinloop_fmt :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBCLR(&fmbs); /* clear multibyte states to parse the format string */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n = *form) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(n != '%') /* collect the non-pattern chars */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { sp = (char*)form;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((n = SFMBLEN(form, &fmbs)) <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { n = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBCLR(&fmbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(*(form += n) && *form != '%');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = form-sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFwrite(f,sp,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else form += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin scale = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = width = precis = base = n_s = argp = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssp = _Sfdigits;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endep = ep = NIL(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endsp = sp = buf+(sizeof(buf)-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t_str = NIL(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_str = dot = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin loop_flags: /* LOOP FOR \0, %, FLAGS, WIDTH, PRECISION, BASE, TYPE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch((fmt = *form++) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\0':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFputc(f,'%');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '%' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFputc(f,'%');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case LEFTP : /* get the type enclosed in balanced parens */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t_str = (char*)form;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(v = 1;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { switch(*form++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0 : /* not balancable, retract */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin form = t_str;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t_str = NIL(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_str = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case LEFTP : /* increasing nested level */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case RIGHTP : /* decreasing nested level */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((v -= 1) != 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*t_str != '*' )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_str = (form-1)-t_str;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { t_str = (*_Sffmtintf)(t_str+1,&n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*t_str == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!fp &&

3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = FP_SET(n,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = FP_SET(-1,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { t_str = fp[n].argv.s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_str = fp[n].ft.size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(ft && ft->extf )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { FMTSET(ft, form,args,

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin LEFTP, 0, 0, 0,0,0,

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NIL(char*),0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = (*ft->extf)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (f,(Void_t*)&argv,ft);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(ft->flags&SFFMT_VALUE) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto t_arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((t_str = argv.s) &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (n_str = (int)ft->size) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_str = strlen(t_str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { t_arg:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((t_str = va_arg(args,char*)) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_str = strlen(t_str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '-' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = (flags & ~(SFFMT_CENTER|SFFMT_ZERO)) | SFFMT_LEFT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '0' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&(SFFMT_LEFT|SFFMT_CENTER)) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SFFMT_ZERO;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ' ' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&SFFMT_SIGN) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SFFMT_BLANK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '+' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = (flags & ~SFFMT_BLANK) | SFFMT_SIGN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '=' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = (flags & ~(SFFMT_LEFT|SFFMT_ZERO)) | SFFMT_CENTER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '#' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SFFMT_ALTER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case QUOTE:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFSETLOCALE(&decimal,&thousand);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(thousand > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SFFMT_THOUSAND;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz case ',':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz SFSETLOCALE(&decimal,&thousand);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(thousand < 0)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz thousand = fmt;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz flags |= SFFMT_THOUSAND;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '.' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dot += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dot == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* so base can be defined without setting precis */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form != '.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin precis = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dot == 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { base = 0; /* for %s,%c */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = form[0] == 'l' ? form[1] : form[0];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v == 'c' || v == 'C' || v == 's' || v == 'S')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form && !isalnum(*form))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = form[1] == 'l' ? form[2] : form[1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v == 'c' || v == 'C' || v == 's' || v == 'S')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(*form == '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto do_star;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { base = *form++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isdigit(*form) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { fmt = *form++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto dot_size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(*form != '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do_star:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin form += 1; /* fall thru for '*' */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '*' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin form = (*_Sffmtintf)(form,&n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { form += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!fp && !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = FP_SET(n,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = FP_SET(-1,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = fp[n].argv.i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(ft && ft->extf)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { FMTSET(ft, form,args, '.',dot, 0, 0,0,0, NIL(char*), 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((*ft->extf)(f, (Void_t*)(&argv), ft) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmt = ft->fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = (flags&~SFFMT_TYPES) | (ft->flags&SFFMT_TYPES);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ft->flags&SFFMT_VALUE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = argv.i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else v = (dot <= 2) ? va_arg(args,int) : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else v = dot <= 2 ? va_arg(args,int) : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto dot_set;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '1' : case '2' : case '3' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '4' : case '5' : case '6' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '7' : case '8' : case '9' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dot_size :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(v = fmt - '0'; isdigit(*form); ++form)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = v*10 + (*form - '0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { form += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!fp && !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argp = v-1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dot_set :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dot == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((width = v) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { width = -width;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = (flags & ~(SFFMT_CENTER|SFFMT_ZERO)) | SFFMT_LEFT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dot == 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin precis = v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dot == 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin base = v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'I' : /* object length */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags = (flags & ~SFFMT_TYPES) | SFFMT_IFLAG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isdigit(*form) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { for(size = 0, n = *form; isdigit(n); n = *++form)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = size*10 + (n - '0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(*form == '*')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { form = (*_Sffmtintf)(form+1,&n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form == '$')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { form += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!fp &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = FP_SET(n,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = FP_SET(-1,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp) /* use position list */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = fp[n].argv.i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(ft && ft->extf)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { FMTSET(ft, form,args, 'I',sizeof(int), 0, 0,0,0,

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NIL(char*), 0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((*ft->extf)(f, (Void_t*)(&argv), ft) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ft->flags&SFFMT_VALUE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = argv.i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else size = va_arg(args,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else size = va_arg(args,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'l' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags &= ~SFFMT_TYPES;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form == 'l')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { form += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SFFMT_LLONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else flags |= SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'h' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags &= ~SFFMT_TYPES;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*form == 'h')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { form += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags |= SFFMT_SSHORT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else flags |= SFFMT_SHORT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'L' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags = (flags & ~SFFMT_TYPES) | SFFMT_LDOUBLE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'j' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags = (flags&~SFFMT_TYPES) | SFFMT_JFLAG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'z' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags = (flags&~SFFMT_TYPES) | SFFMT_ZFLAG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 't' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = -1; flags = (flags&~SFFMT_TYPES) | SFFMT_TFLAG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto loop_flags;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* set object size for scalars */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags & SFFMT_TYPES)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((_Sftype[fmt]&(SFFMT_INT|SFFMT_UINT)) || fmt == 'n')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(flags&SFFMT_LONG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(long);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&SFFMT_SHORT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(short);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&SFFMT_SSHORT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(char);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&SFFMT_TFLAG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(ptrdiff_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&SFFMT_ZFLAG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(size_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&(SFFMT_LLONG|SFFMT_JFLAG) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(Sflong_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&SFFMT_IFLAG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(size <= 0 ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size == sizeof(Sflong_t)*CHAR_BIT )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(Sflong_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(size < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(_Sftype[fmt]&SFFMT_FLOAT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(flags&SFFMT_LDOUBLE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(Sfdouble_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&(SFFMT_LONG|SFFMT_LLONG))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(double);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(flags&SFFMT_IFLAG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(size <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(Sfdouble_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(size < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(float);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(_Sftype[fmt]&SFFMT_CHAR)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((flags&SFFMT_LONG) || fmt == 'C')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { size = sizeof(wchar_t) > sizeof(int) ?

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sizeof(wchar_t) : sizeof(int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argp = FP_SET(argp,argn);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(ft && ft->extf && fp[argp].ft.fmt != fp[argp].fmt)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmt = fp[argp].ft.fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv = fp[argp].argv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = fp[argp].ft.size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(ft && ft->extf ) /* extended processing */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { FMTSET(ft, form,args, fmt, size,flags, width,precis,base,

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t_str,n_str);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFEND(f); SFOPEN(f,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (*ft->extf)(f, (Void_t*)(&argv), ft);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFLOCK(f,0); SFBUF(f);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v < 0) /* no further processing */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(v > 0) /* extf output v bytes */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { n_output += v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* extf did not output */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { FMTGET(ft, form,args, fmt, size,flags, width,precis,base);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(ft->flags&SFFMT_VALUE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto arg_list;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(_Sftype[fmt]&(SFFMT_INT|SFFMT_UINT) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(size == sizeof(short))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(_Sftype[fmt]&SFFMT_INT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.i = argv.h;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else argv.i = argv.uh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(size == sizeof(char))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(_Sftype[fmt]&SFFMT_INT)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.i = argv.c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else argv.i = argv.uc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(_Sftype[fmt]&SFFMT_FLOAT )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(size == sizeof(float) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.d = argv.f;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(_Sftype[fmt]&SFFMT_CHAR)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(base < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.i = (int)argv.c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { arg_list:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(_Sftype[fmt])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { case SFFMT_INT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SFFMT_UINT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_ast_intmax_long

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(Sflong_t))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.ll = va_arg(args, Sflong_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(long) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.l = va_arg(args, long);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else argv.i = va_arg(args, int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SFFMT_FLOAT:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_ast_fltmax_double

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(Sfdouble_t))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.ld = va_arg(args,Sfdouble_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.d = va_arg(args,double);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SFFMT_POINTER:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.vp = va_arg(args,Void_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case SFFMT_CHAR:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(base >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.s = va_arg(args,char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((flags & SFFMT_LONG) || fmt == 'C')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(sizeof(wchar_t) <= sizeof(uint) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv.wc = (wchar_t)va_arg(args,uint);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else argv.wc = va_arg(args,wchar_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else argv.i = va_arg(args,int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default: /* unknown pattern */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(fmt) /* PRINTF DIRECTIVES */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default : /* unknown directive */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin form -= 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argn -= 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '!' : /* stacking a new environment */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!fp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp = (*_Sffmtposf)(f,oform,oargs,ft,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!argv.ft)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto pop_fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!argv.ft->form && ft ) /* change extension functions */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(ft->eventf &&

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (*ft->eventf)(f,SF_DPOP,(Void_t*)form,ft) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmstk->ft = ft = argv.ft;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* stack a new environment */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!(fm = (Fmt_t*)malloc(sizeof(Fmt_t))) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ft = fm->ft = argv.ft;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBSET(ft->mbs, &fmbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(ft->form)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { fm->form = (char*)form; SFMBCPY(&fm->mbs,&fmbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_copy(fm->args,args);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fm->oform = oform;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_copy(fm->oargs,oargs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fm->argn = argn;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fm->fp = fp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin form = ft->form; SFMBCLR(ft->mbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_copy(args,ft->args);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argn = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp = NIL(Fmtpos_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin oform = (char*)form;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin va_copy(oargs,args);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else fm->form = NIL(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fm->eventf = ft->eventf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fm->next = fmstk;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmstk = fm;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'S':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flags = (flags & ~(SFFMT_TYPES|SFFMT_LDOUBLE)) | SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _has_multibyte && defined(mbwidth)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin wc = (flags & SFFMT_LDOUBLE) && mbwide();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(base >= 0) /* list of strings */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!(ls = argv.sp) || !ls[0])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!(sp = argv.s))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { sp = "(null)";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin str_cvt:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(scale)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { size = base = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ls = tls; tls[0] = sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(sp = *ls;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* v: number of bytes w: print width of those v bytes */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags & SFFMT_LONG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef mbwidth

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBCLR(&mbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(n = 0, wsp = (wchar_t*)sp;; ++wsp, ++n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((size >= 0 && n >= size) ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (size < 0 && *wsp == 0) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n_s = wcrtomb(buf, *wsp, &mbs)) <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef mbwidth

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(wc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { n_w = mbwidth(*wsp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis >= 0 && (w+n_w) > precis )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w += n_w;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis >= 0 && (v+n_s) > precis )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v += n_s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef mbwidth

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!wc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w = v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _has_multibyte && defined(mbwidth)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if (wc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { w = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFMBCLR(&mbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssp = sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((size >= 0 && w >= size) ||

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin (size < 0 && *ssp == 0) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin osp = ssp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = mbchar(osp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n_w = mbwidth(n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis >= 0 && (w+n_w) > precis )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w += n_w;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssp = osp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = ssp - sp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((v = size) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(v = 0; sp[v]; ++v)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v == precis)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis >= 0 && v > precis)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = precis;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin w = v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n = width - w) > 0 && !(flags&SFFMT_LEFT) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(flags&SFFMT_CENTER)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { n -= (k = n/2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFnputc(f, ' ', k);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFnputc(f, ' ', n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags & SFFMT_LONG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFMBCLR(&mbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(wsp = (wchar_t*)sp; w > 0; ++wsp, --w)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((n_s = wcrtomb(buf, *wsp, &mbs)) <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = buf; SFwrite(f, sp, n_s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFwrite(f,sp,v); }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFnputc(f,' ',n); }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(sp = *++ls))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(base > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFputc(f,base); }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'C':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin flags = (flags & ~(SFFMT_TYPES|SFFMT_LDOUBLE)) | SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'c':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _has_multibyte && defined(mbwidth)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin wc = (flags & SFFMT_LDOUBLE) && mbwide();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis <= 0) /* # of times to repeat a character */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin precis = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags & SFFMT_LONG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(base >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!(wsp = (wchar_t*)argv.s) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(size = 0; wsp[size]; ++size)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { wsp = &argv.wc;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(base >= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(!(sp = argv.s) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = strlen(sp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { argv.c = (char)(argv.i);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = &argv.c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(size > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&SFFMT_LONG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFMBCLR(&mbs);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n_s = wcrtomb(buf, *wsp++, &mbs)) <= 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#ifdef mbwidth

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(wc)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n_s = mbwidth(*(wsp - 1));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = width - precis*n_s; /* padding amount */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&SFFMT_ALTER)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { n_s = chr2str(buf, *sp++);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = width - precis*n_s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { fmt = *sp++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = width - precis;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n > 0 && !(flags&SFFMT_LEFT) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(flags&SFFMT_CENTER)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { n -= (k = n/2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFnputc(f, ' ', k);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFnputc(f, ' ', n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = precis; /* need this because SFnputc may clear it */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _has_multibyte

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&SFFMT_LONG)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { for(; v > 0; --v)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { ssp = buf; k = n_s; SFwrite(f,ssp,k); }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&SFFMT_ALTER)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { for(; v > 0; --v)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { ssp = buf; k = n_s; SFwrite(f,ssp,k); }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFnputc(f, fmt, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFnputc(f,' ',n); };

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((size -= 1) > 0 && base > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { SFputc(f,base); }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n': /* return current output length */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFEND(f);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_ast_intmax_long

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(Sflong_t) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *((Sflong_t*)argv.vp) = (Sflong_t)n_output;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(long))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *((long*)argv.vp) = (long)n_output;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(size == sizeof(short) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *((short*)argv.vp) = (short)n_output;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(size == sizeof(uchar) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *((uchar*)argv.vp) = (uchar)n_output;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else *((int*)argv.vp) = (int)n_output;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'p': /* pointer value */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmt = 'x';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin base = 16; n_s = 15; n = 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags = (flags&~(SFFMT_SIGN|SFFMT_BLANK|SFFMT_ZERO))|SFFMT_ALTER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _more_void_int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lv = (Sflong_t)((Sfulong_t)argv.vp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto long_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (int)((uint)argv.vp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto int_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'o':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin base = 8; n_s = 7; n = 3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~(SFFMT_SIGN|SFFMT_BLANK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto int_arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'X':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssp = "0123456789ABCDEF";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'x':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin base = 16; n_s = 15; n = 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~(SFFMT_SIGN|SFFMT_BLANK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto int_arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'i':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((flags&SFFMT_ALTER) && base < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { flags &= ~SFFMT_ALTER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin scale = 1024;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fmt = 'd';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto d_format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'u':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~(SFFMT_SIGN|SFFMT_BLANK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'd':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d_format:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((flags&SFFMT_ALTER) && base < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { flags &= ~SFFMT_ALTER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin scale = 1000;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(base < 2 || base > SF_RADIX)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin base = 10;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((base&(n_s = base-1)) == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(base < 8)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = base < 4 ? 1 : 2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(base < 32)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = base < 16 ? 3 : 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = base < 64 ? 5 : 6;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n_s = base == 10 ? -1 : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int_arg:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_ast_intmax_long || _more_long_int || _more_void_int

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(Sflong_t))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { lv = argv.ll;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto long_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(sizeof(long) < sizeof(Sflong_t) && size == sizeof(long))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(fmt == 'd')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lv = (Sflong_t)argv.l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else lv = (Sflong_t)argv.ul;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long_cvt:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(scale)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { sp = fmtscale(lv, scale);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _has_multibyte && defined(mbwidth)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin wc = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto str_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lv == 0 && precis == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lv < 0 && fmt == 'd' )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { flags |= SFFMT_MINUS;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lv == HIGHBITL) /* avoid overflow */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { lv = (Sflong_t)(HIGHBITL/base);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = _Sfdigits[HIGHBITL -

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ((Sfulong_t)lv)*base];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else lv = -lv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n_s < 0) /* base 10 */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { Sflong_t nv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfucvt(lv,sp,nv,ssp,Sflong_t,Sfulong_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n_s > 0) /* base power-of-2 */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *--sp = ssp[lv&n_s];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while((lv = ((Sfulong_t)lv) >> n) );

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* general base */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *--sp = ssp[((Sfulong_t)lv)%base];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while((lv = ((Sfulong_t)lv)/base) );

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sizeof(short) < sizeof(int) && size == sizeof(short) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(fmt == 'd')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (int)((short)argv.i);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else v = (int)((ushort)argv.i);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto int_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(size == sizeof(char))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(fmt != 'd')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (int)((uchar)argv.i);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _key_signed

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = (int)((signed char)argv.i);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argv.i < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v = -((int)((char)(-argv.i)));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else v = ((int)((char)( argv.i)));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto int_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = argv.i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int_cvt:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if _PACKAGE_ast

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(scale)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { sp = fmtscale(v, scale);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if _has_multibyte && defined(mbwidth)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin wc = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto str_cvt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v == 0 && precis == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v < 0 && fmt == 'd' )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { flags |= SFFMT_MINUS;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(v == HIGHBITI) /* avoid overflow */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = (int)(HIGHBITI/base);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = _Sfdigits[HIGHBITI -

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ((uint)v)*base];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else v = -v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n_s < 0) /* base 10 */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { sfucvt(v,sp,n,ssp,int,uint);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n_s > 0) /* base power-of-2 */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *--sp = ssp[v&n_s];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while((v = ((uint)v) >> n) );

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* n_s == 0, general base */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *--sp = ssp[((uint)v)%base];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while((v = ((uint)v)/base) );

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n_s < 0 && (flags&SFFMT_THOUSAND) && (n = endsp-sp) > 3)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((n %= 3) == 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(ep = buf+SLACK, endep = ep + n; ; )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { while(ep < endep)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *ep++ = *sp++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp == endsp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sp <= endsp-3)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *ep++ = thousand;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endep = ep+3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = buf+SLACK;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endsp = ep;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* zero padding for precision if have room in buffer */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis > 0 && (precis -= (endsp-sp)) < (sp-buf)-64)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(precis-- > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(flags&SFFMT_ALTER) /* prefix */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(fmt == 'o')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(*sp != '0')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(width > 0 && (flags&SFFMT_ZERO))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* do 0 padding first */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fmt == 'x' || fmt == 'X')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dot < 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = width;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = base < 10 ? 2 : 3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n += (flags&(SFFMT_MINUS|SFFMT_SIGN)) ?

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin 1 : 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = width - (n + (endsp-sp));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(n-- > 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fmt == 'x' || fmt == 'X')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *--sp = (char)fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(dot >= 2)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* base#value notation */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = '#';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(base < 10)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = (char)('0'+base);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { *--sp = _Sfdec[(base <<= 1)+1];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--sp = _Sfdec[base];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'g': case 'G': /* these ultimately become %e or %f */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'a': case 'A':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e': case 'E':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f': case 'F':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !_ast_fltmax_double

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(size == sizeof(Sfdouble_t) )

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = SFFMT_LDOUBLE;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin valp = &argv.ld;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dval = argv.ld;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin valp = &argv.d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin dval = argv.d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fmt == 'e' || fmt == 'E' && (v |= SFFMT_UPPER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v |= SFFMT_EFORMAT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = (precis = precis < 0 ? FPRECIS : precis)+1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(n,SF_FDIGITS),

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin &decpt, &sign, &n_s, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto e_format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(fmt == 'f' || fmt == 'F' && (v |= SFFMT_UPPER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { precis = precis < 0 ? FPRECIS : precis;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(precis,SF_FDIGITS),

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin &decpt, &sign, &n_s, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto f_format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(fmt == 'a' || fmt == 'A' && (v |= SFFMT_UPPER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v |= SFFMT_AFORMAT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if(v & SFFMT_LDOUBLE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin precis = 2*(sizeof(Sfdouble_t) - 2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else precis = 2*(sizeof(double) - 2);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = precis + 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(n,SF_FDIGITS),

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin &decpt, &sign, &n_s, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = endsp = buf+1; /* reserve space for sign */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *endsp++ = '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *endsp++ = fmt == 'a' ? 'x' : 'X';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!isxdigit(*ep))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto infinite;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto a_format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else /* 'g' or 'G' format */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { precis = precis < 0 ? FPRECIS : precis == 0 ? 1 : precis;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fmt == 'G')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v |= SFFMT_UPPER;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin v |= SFFMT_EFORMAT;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(precis,SF_FDIGITS),

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin &decpt, &sign, &n_s, v);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dval == 0.)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin decpt = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(*ep == 'I')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto infinite;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(flags&SFFMT_ALTER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* zap trailing 0s */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n = n_s) > precis)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = precis;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n -= 1) >= 1 && ep[n] == '0')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n += 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = precis;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(decpt < -3 || decpt > precis)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { precis = n-1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto e_format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { precis = n - decpt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto f_format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin e_format: /* build the x.yyyy string */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isalpha(*ep))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto infinite;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sp = endsp = buf+1; /* reserve space for sign */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin a_format:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *endsp++ = *ep ? *ep++ : '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFSETLOCALE(&decimal,&thousand);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(precis > 0 || (flags&SFFMT_ALTER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *endsp++ = decimal;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ssp = endsp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endep = ep+precis;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((*endsp++ = *ep++) && ep <= endep)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin precis -= (endsp -= 1) - ssp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* build the exponent */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ep = endep = buf+(sizeof(buf)-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(dval != 0.)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { if((n = decpt - 1) < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = -n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(n > 9)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { v = n; n /= 10;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--ep = (char)('0' + (v - n*10));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--ep = (char)('0' + n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(endep-ep <= 1) /* at least 2 digits */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--ep = '0';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* the e/Exponent separator and sign */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--ep = (decpt > 0 || dval == 0.) ? '+' : '-';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *--ep = fmt == 'a' ? 'p' : fmt == 'A' ? 'P' :

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin isupper(fmt) ? 'E' : 'e';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto end_aefg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin f_format: /* data before the decimal point */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(isalpha(*ep))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin infinite:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin flags &= ~SFFMT_ZERO;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin endsp = (sp = ep)+sfslen();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin ep = endep;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin precis = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto end_aefg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin SFSETLOCALE(&decimal,&thousand);