1*b30d1939SAndy Fiddaman /***********************************************************************
2*b30d1939SAndy Fiddaman * *
3*b30d1939SAndy Fiddaman * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2012 AT&T Intellectual Property *
5*b30d1939SAndy Fiddaman * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property *
8*b30d1939SAndy Fiddaman * *
9*b30d1939SAndy Fiddaman * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12*b30d1939SAndy Fiddaman * *
13*b30d1939SAndy Fiddaman * Information and Software Systems Research *
14*b30d1939SAndy Fiddaman * AT&T Research *
15*b30d1939SAndy Fiddaman * Florham Park NJ *
16*b30d1939SAndy Fiddaman * *
17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> *
18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> *
19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> *
20*b30d1939SAndy Fiddaman * *
21*b30d1939SAndy Fiddaman ***********************************************************************/
22*b30d1939SAndy Fiddaman #include "sfhdr.h"
23*b30d1939SAndy Fiddaman
24*b30d1939SAndy Fiddaman /* The engine for formatting data.
25*b30d1939SAndy Fiddaman ** 1. Argument positioning is done in sftable.c so any changes
26*b30d1939SAndy Fiddaman ** made here should be reflected in sftable.c as well.
27*b30d1939SAndy Fiddaman ** 2. For internationalization, Sfio only supports I/O of multibyte strings.
28*b30d1939SAndy Fiddaman ** However, this code does provide minimal support so that Stdio functions
29*b30d1939SAndy Fiddaman ** such as fwprintf/swprintf can be emulated (see stdvwprintf()).
30*b30d1939SAndy Fiddaman **
31*b30d1939SAndy Fiddaman ** Written by Kiem-Phong Vo.
32*b30d1939SAndy Fiddaman */
33*b30d1939SAndy Fiddaman #define HIGHBITI (~((~((uint)0)) >> 1))
34*b30d1939SAndy Fiddaman #define HIGHBITL (~((~((Sfulong_t)0)) >> 1))
35*b30d1939SAndy Fiddaman
36*b30d1939SAndy Fiddaman #define SFFMT_PREFIX (SFFMT_MINUS|SFFMT_SIGN|SFFMT_BLANK)
37*b30d1939SAndy Fiddaman
38*b30d1939SAndy Fiddaman #define FPRECIS 6 /* default precision for floats */
39*b30d1939SAndy Fiddaman
40*b30d1939SAndy Fiddaman #if _PACKAGE_ast
41*b30d1939SAndy Fiddaman #include <ccode.h>
42*b30d1939SAndy Fiddaman #else
43*b30d1939SAndy Fiddaman /* characters when using ebcdic or ascii */
44*b30d1939SAndy Fiddaman #if _chr_ebcdic
45*b30d1939SAndy Fiddaman #define CC_vt 013 /* vertical tab */
46*b30d1939SAndy Fiddaman #define CC_esc 047 /* escape */
47*b30d1939SAndy Fiddaman #define CC_bel 057 /* bell */
48*b30d1939SAndy Fiddaman #else
49*b30d1939SAndy Fiddaman #define CC_vt 013 /* vertical tab */
50*b30d1939SAndy Fiddaman #define CC_esc 033 /* escape */
51*b30d1939SAndy Fiddaman #define CC_bel 007 /* bell */
52*b30d1939SAndy Fiddaman #endif /* _chr_ebcdic */
53*b30d1939SAndy Fiddaman #endif /* _PACKAGE_ast */
54*b30d1939SAndy Fiddaman
55*b30d1939SAndy Fiddaman #if __STD_C
chr2str(char * buf,int v)56*b30d1939SAndy Fiddaman static int chr2str(char* buf, int v)
57*b30d1939SAndy Fiddaman #else
58*b30d1939SAndy Fiddaman static int chr2str(buf, v)
59*b30d1939SAndy Fiddaman char* buf;
60*b30d1939SAndy Fiddaman int v;
61*b30d1939SAndy Fiddaman #endif
62*b30d1939SAndy Fiddaman {
63*b30d1939SAndy Fiddaman if(isprint(v) && v != '\\')
64*b30d1939SAndy Fiddaman { *buf++ = v;
65*b30d1939SAndy Fiddaman return 1;
66*b30d1939SAndy Fiddaman }
67*b30d1939SAndy Fiddaman else
68*b30d1939SAndy Fiddaman { *buf++ = '\\';
69*b30d1939SAndy Fiddaman switch(v)
70*b30d1939SAndy Fiddaman { case CC_bel: *buf++ = 'a'; return 2;
71*b30d1939SAndy Fiddaman case CC_vt: *buf++ = 'v'; return 2;
72*b30d1939SAndy Fiddaman case CC_esc: *buf++ = 'E'; return 2;
73*b30d1939SAndy Fiddaman case '\b': *buf++ = 'b'; return 2;
74*b30d1939SAndy Fiddaman case '\f': *buf++ = 'f'; return 2;
75*b30d1939SAndy Fiddaman case '\n': *buf++ = 'n'; return 2;
76*b30d1939SAndy Fiddaman case '\r': *buf++ = 'r'; return 2;
77*b30d1939SAndy Fiddaman case '\t': *buf++ = 't'; return 2;
78*b30d1939SAndy Fiddaman case '\\': *buf++ = '\\'; return 2;
79*b30d1939SAndy Fiddaman default: *buf++ = '0' + ((v >> 6) & 03);
80*b30d1939SAndy Fiddaman *buf++ = '0' + ((v >> 3) & 07);
81*b30d1939SAndy Fiddaman *buf++ = '0' + ((v >> 0) & 07);
82*b30d1939SAndy Fiddaman return 4;
83*b30d1939SAndy Fiddaman }
84*b30d1939SAndy Fiddaman }
85*b30d1939SAndy Fiddaman }
86*b30d1939SAndy Fiddaman
87*b30d1939SAndy Fiddaman /* On some platform(s), large functions are not compilable.
88*b30d1939SAndy Fiddaman ** In such a case, the below macro should be defined non-zero so that
89*b30d1939SAndy Fiddaman ** some in-lined macros will be made smaller, trading time for space.
90*b30d1939SAndy Fiddaman */
91*b30d1939SAndy Fiddaman #if !defined(_sffmt_small) && defined(_UTS)
92*b30d1939SAndy Fiddaman #define _sffmt_small 1
93*b30d1939SAndy Fiddaman #endif
94*b30d1939SAndy Fiddaman
95*b30d1939SAndy Fiddaman #if __STD_C
sfvprintf(Sfio_t * f,const char * form,va_list args)96*b30d1939SAndy Fiddaman int sfvprintf(Sfio_t* f, const char* form, va_list args)
97*b30d1939SAndy Fiddaman #else
98*b30d1939SAndy Fiddaman int sfvprintf(f,form,args)
99*b30d1939SAndy Fiddaman Sfio_t* f; /* file to print to */
100*b30d1939SAndy Fiddaman char* form; /* format to use */
101*b30d1939SAndy Fiddaman va_list args; /* arg list if !argf */
102*b30d1939SAndy Fiddaman #endif
103*b30d1939SAndy Fiddaman {
104*b30d1939SAndy Fiddaman int n, v, w, k, n_s, base, fmt, flags;
105*b30d1939SAndy Fiddaman Sflong_t lv;
106*b30d1939SAndy Fiddaman char *sp, *ssp, *endsp, *ep, *endep;
107*b30d1939SAndy Fiddaman int dot, width, precis, sign, decpt;
108*b30d1939SAndy Fiddaman #if _PACKAGE_ast
109*b30d1939SAndy Fiddaman int scale;
110*b30d1939SAndy Fiddaman #endif
111*b30d1939SAndy Fiddaman ssize_t size;
112*b30d1939SAndy Fiddaman Sfdouble_t dval;
113*b30d1939SAndy Fiddaman Void_t* valp;
114*b30d1939SAndy Fiddaman char *tls[2], **ls; /* for %..[separ]s */
115*b30d1939SAndy Fiddaman char* t_str; /* stuff between () */
116*b30d1939SAndy Fiddaman ssize_t n_str; /* its length */
117*b30d1939SAndy Fiddaman
118*b30d1939SAndy Fiddaman Argv_t argv; /* for extf to return value */
119*b30d1939SAndy Fiddaman Sffmt_t *ft; /* format environment */
120*b30d1939SAndy Fiddaman Fmt_t *fm, *fmstk; /* stack contexts */
121*b30d1939SAndy Fiddaman
122*b30d1939SAndy Fiddaman char* oform; /* original format string */
123*b30d1939SAndy Fiddaman va_list oargs; /* original arg list */
124*b30d1939SAndy Fiddaman Fmtpos_t* fp; /* arg position list */
125*b30d1939SAndy Fiddaman int argp, argn; /* arg position and number */
126*b30d1939SAndy Fiddaman
127*b30d1939SAndy Fiddaman #define SLACK 1024
128*b30d1939SAndy Fiddaman char buf[SF_MAXDIGITS+SLACK], tmp[SF_MAXDIGITS+1], data[SF_GRAIN];
129*b30d1939SAndy Fiddaman int decimal = 0, thousand = 0;
130*b30d1939SAndy Fiddaman
131*b30d1939SAndy Fiddaman #if _has_multibyte
132*b30d1939SAndy Fiddaman wchar_t* wsp;
133*b30d1939SAndy Fiddaman SFMBDCL(fmbs) /* state of format string */
134*b30d1939SAndy Fiddaman SFMBDCL(mbs) /* state of some string */
135*b30d1939SAndy Fiddaman #ifdef mbwidth
136*b30d1939SAndy Fiddaman char* osp;
137*b30d1939SAndy Fiddaman int n_w, wc;
138*b30d1939SAndy Fiddaman #endif
139*b30d1939SAndy Fiddaman #endif
140*b30d1939SAndy Fiddaman
141*b30d1939SAndy Fiddaman /* local io system */
142*b30d1939SAndy Fiddaman int o, n_output;
143*b30d1939SAndy Fiddaman #define SMputc(f,c) { if((o = SFFLSBUF(f,c)) >= 0 ) n_output += 1; \
144*b30d1939SAndy Fiddaman else { SFBUF(f); goto done; } \
145*b30d1939SAndy Fiddaman }
146*b30d1939SAndy Fiddaman #define SMnputc(f,c,n) { if((o = SFNPUTC(f,c,n)) > 0 ) n_output += 1; \
147*b30d1939SAndy Fiddaman if(o != n) { SFBUF(f); goto done; } \
148*b30d1939SAndy Fiddaman }
149*b30d1939SAndy Fiddaman #define SMwrite(f,s,n) { if((o = SFWRITE(f,(Void_t*)s,n)) > 0 ) n_output += o; \
150*b30d1939SAndy Fiddaman if(o != n) { SFBUF(f); goto done; } \
151*b30d1939SAndy Fiddaman }
152*b30d1939SAndy Fiddaman #if _sffmt_small /* these macros are made smaller at some performance cost */
153*b30d1939SAndy Fiddaman #define SFBUF(f)
154*b30d1939SAndy Fiddaman #define SFINIT(f) (n_output = 0)
155*b30d1939SAndy Fiddaman #define SFEND(f)
156*b30d1939SAndy Fiddaman #define SFputc(f,c) SMputc(f,c)
157*b30d1939SAndy Fiddaman #define SFnputc(f,c,n) SMnputc(f,c,n)
158*b30d1939SAndy Fiddaman #define SFwrite(f,s,n) SMwrite(f,s,n)
159*b30d1939SAndy Fiddaman #else
160*b30d1939SAndy Fiddaman uchar *d, *endd;
161*b30d1939SAndy Fiddaman #define SFBUF(f) (d = f->next, endd = f->endb)
162*b30d1939SAndy Fiddaman #define SFINIT(f) (SFBUF(f), n_output = 0)
163*b30d1939SAndy Fiddaman #define SFEND(f) ((n_output += d - f->next), (f->next = d))
164*b30d1939SAndy Fiddaman #define SFputc(f,c) { if(d < endd) { *d++ = (uchar)c; } \
165*b30d1939SAndy Fiddaman else { SFEND(f); SMputc(f,c); SFBUF(f); } \
166*b30d1939SAndy Fiddaman }
167*b30d1939SAndy Fiddaman #define SFnputc(f,c,n) { if(d+n <= endd) { while(n--) *d++ = (uchar)(c); } \
168*b30d1939SAndy Fiddaman else { SFEND(f); SMnputc(f,c,n); SFBUF(f); } \
169*b30d1939SAndy Fiddaman }
170*b30d1939SAndy Fiddaman #define SFwrite(f,s,n) { if(d+n <= endd) { while(n--) *d++ = (uchar)(*s++); } \
171*b30d1939SAndy Fiddaman else { SFEND(f); SMwrite(f,s,n); SFBUF(f); } \
172*b30d1939SAndy Fiddaman }
173*b30d1939SAndy Fiddaman #endif /* _sffmt_small */
174*b30d1939SAndy Fiddaman
175*b30d1939SAndy Fiddaman SFMTXDECL(f);
176*b30d1939SAndy Fiddaman
177*b30d1939SAndy Fiddaman SFCVINIT(); /* initialize conversion tables */
178*b30d1939SAndy Fiddaman
179*b30d1939SAndy Fiddaman SFMTXENTER(f,-1);
180*b30d1939SAndy Fiddaman
181*b30d1939SAndy Fiddaman if(!form)
182*b30d1939SAndy Fiddaman SFMTXRETURN(f, -1);
183*b30d1939SAndy Fiddaman
184*b30d1939SAndy Fiddaman /* make sure stream is in write mode and buffer is not NULL */
185*b30d1939SAndy Fiddaman if(f->mode != SF_WRITE && _sfmode(f,SF_WRITE,0) < 0)
186*b30d1939SAndy Fiddaman SFMTXRETURN(f, -1);
187*b30d1939SAndy Fiddaman
188*b30d1939SAndy Fiddaman SFLOCK(f,0);
189*b30d1939SAndy Fiddaman
190*b30d1939SAndy Fiddaman if(!f->data && !(f->flags&SF_STRING))
191*b30d1939SAndy Fiddaman { f->data = f->next = (uchar*)data;
192*b30d1939SAndy Fiddaman f->endb = f->data+sizeof(data);
193*b30d1939SAndy Fiddaman }
194*b30d1939SAndy Fiddaman SFINIT(f);
195*b30d1939SAndy Fiddaman
196*b30d1939SAndy Fiddaman tls[1] = NIL(char*);
197*b30d1939SAndy Fiddaman
198*b30d1939SAndy Fiddaman fmstk = NIL(Fmt_t*);
199*b30d1939SAndy Fiddaman ft = NIL(Sffmt_t*);
200*b30d1939SAndy Fiddaman
201*b30d1939SAndy Fiddaman oform = (char*)form;
202*b30d1939SAndy Fiddaman va_copy(oargs,args);
203*b30d1939SAndy Fiddaman argn = -1;
204*b30d1939SAndy Fiddaman fp = NIL(Fmtpos_t*);
205*b30d1939SAndy Fiddaman
206*b30d1939SAndy Fiddaman loop_fmt :
207*b30d1939SAndy Fiddaman SFMBCLR(&fmbs); /* clear multibyte states to parse the format string */
208*b30d1939SAndy Fiddaman while((n = *form) )
209*b30d1939SAndy Fiddaman { if(n != '%') /* collect the non-pattern chars */
210*b30d1939SAndy Fiddaman { sp = (char*)form;
211*b30d1939SAndy Fiddaman do
212*b30d1939SAndy Fiddaman { if((n = SFMBLEN(form, &fmbs)) <= 0)
213*b30d1939SAndy Fiddaman { n = 1;
214*b30d1939SAndy Fiddaman SFMBCLR(&fmbs);
215*b30d1939SAndy Fiddaman }
216*b30d1939SAndy Fiddaman } while(*(form += n) && *form != '%');
217*b30d1939SAndy Fiddaman
218*b30d1939SAndy Fiddaman n = form-sp;
219*b30d1939SAndy Fiddaman SFwrite(f,sp,n);
220*b30d1939SAndy Fiddaman continue;
221*b30d1939SAndy Fiddaman }
222*b30d1939SAndy Fiddaman else form += 1;
223*b30d1939SAndy Fiddaman
224*b30d1939SAndy Fiddaman flags = 0;
225*b30d1939SAndy Fiddaman #if _PACKAGE_ast
226*b30d1939SAndy Fiddaman scale = 0;
227*b30d1939SAndy Fiddaman #endif
228*b30d1939SAndy Fiddaman size = width = precis = base = n_s = argp = -1;
229*b30d1939SAndy Fiddaman ssp = _Sfdigits;
230*b30d1939SAndy Fiddaman endep = ep = NIL(char*);
231*b30d1939SAndy Fiddaman endsp = sp = buf+(sizeof(buf)-1);
232*b30d1939SAndy Fiddaman t_str = NIL(char*);
233*b30d1939SAndy Fiddaman n_str = dot = 0;
234*b30d1939SAndy Fiddaman
235*b30d1939SAndy Fiddaman loop_flags: /* LOOP FOR \0, %, FLAGS, WIDTH, PRECISION, BASE, TYPE */
236*b30d1939SAndy Fiddaman switch((fmt = *form++) )
237*b30d1939SAndy Fiddaman {
238*b30d1939SAndy Fiddaman case '\0':
239*b30d1939SAndy Fiddaman SFputc(f,'%');
240*b30d1939SAndy Fiddaman goto pop_fmt;
241*b30d1939SAndy Fiddaman case '%' :
242*b30d1939SAndy Fiddaman SFputc(f,'%');
243*b30d1939SAndy Fiddaman continue;
244*b30d1939SAndy Fiddaman
245*b30d1939SAndy Fiddaman case LEFTP : /* get the type enclosed in balanced parens */
246*b30d1939SAndy Fiddaman t_str = (char*)form;
247*b30d1939SAndy Fiddaman for(v = 1;;)
248*b30d1939SAndy Fiddaman { switch(*form++)
249*b30d1939SAndy Fiddaman {
250*b30d1939SAndy Fiddaman case 0 : /* not balancable, retract */
251*b30d1939SAndy Fiddaman form = t_str;
252*b30d1939SAndy Fiddaman t_str = NIL(char*);
253*b30d1939SAndy Fiddaman n_str = 0;
254*b30d1939SAndy Fiddaman goto loop_flags;
255*b30d1939SAndy Fiddaman case LEFTP : /* increasing nested level */
256*b30d1939SAndy Fiddaman v += 1;
257*b30d1939SAndy Fiddaman continue;
258*b30d1939SAndy Fiddaman case RIGHTP : /* decreasing nested level */
259*b30d1939SAndy Fiddaman if((v -= 1) != 0)
260*b30d1939SAndy Fiddaman continue;
261*b30d1939SAndy Fiddaman if(*t_str != '*' )
262*b30d1939SAndy Fiddaman n_str = (form-1)-t_str;
263*b30d1939SAndy Fiddaman else
264*b30d1939SAndy Fiddaman { t_str = (*_Sffmtintf)(t_str+1,&n);
265*b30d1939SAndy Fiddaman if(*t_str == '$')
266*b30d1939SAndy Fiddaman { if(!fp &&
267*b30d1939SAndy Fiddaman !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)) )
268*b30d1939SAndy Fiddaman goto pop_fmt;
269*b30d1939SAndy Fiddaman n = FP_SET(n,argn);
270*b30d1939SAndy Fiddaman }
271*b30d1939SAndy Fiddaman else n = FP_SET(-1,argn);
272*b30d1939SAndy Fiddaman
273*b30d1939SAndy Fiddaman if(fp)
274*b30d1939SAndy Fiddaman { t_str = fp[n].argv.s;
275*b30d1939SAndy Fiddaman n_str = fp[n].ft.size;
276*b30d1939SAndy Fiddaman }
277*b30d1939SAndy Fiddaman else if(ft && ft->extf )
278*b30d1939SAndy Fiddaman { FMTSET(ft, form,args,
279*b30d1939SAndy Fiddaman LEFTP, 0, 0, 0,0,0,
280*b30d1939SAndy Fiddaman NIL(char*),0);
281*b30d1939SAndy Fiddaman n = (*ft->extf)
282*b30d1939SAndy Fiddaman (f,(Void_t*)&argv,ft);
283*b30d1939SAndy Fiddaman if(n < 0)
284*b30d1939SAndy Fiddaman goto pop_fmt;
285*b30d1939SAndy Fiddaman if(!(ft->flags&SFFMT_VALUE) )
286*b30d1939SAndy Fiddaman goto t_arg;
287*b30d1939SAndy Fiddaman if((t_str = argv.s) &&
288*b30d1939SAndy Fiddaman (n_str = (int)ft->size) < 0)
289*b30d1939SAndy Fiddaman n_str = strlen(t_str);
290*b30d1939SAndy Fiddaman }
291*b30d1939SAndy Fiddaman else
292*b30d1939SAndy Fiddaman { t_arg:
293*b30d1939SAndy Fiddaman if((t_str = va_arg(args,char*)) )
294*b30d1939SAndy Fiddaman n_str = strlen(t_str);
295*b30d1939SAndy Fiddaman }
296*b30d1939SAndy Fiddaman }
297*b30d1939SAndy Fiddaman goto loop_flags;
298*b30d1939SAndy Fiddaman }
299*b30d1939SAndy Fiddaman }
300*b30d1939SAndy Fiddaman
301*b30d1939SAndy Fiddaman case '-' :
302*b30d1939SAndy Fiddaman if(dot == 1)
303*b30d1939SAndy Fiddaman { dot = 0;
304*b30d1939SAndy Fiddaman precis = -1;
305*b30d1939SAndy Fiddaman flags |= SFFMT_CHOP;
306*b30d1939SAndy Fiddaman }
307*b30d1939SAndy Fiddaman else
308*b30d1939SAndy Fiddaman flags = (flags & ~(SFFMT_CENTER|SFFMT_ZERO)) | SFFMT_LEFT;
309*b30d1939SAndy Fiddaman goto loop_flags;
310*b30d1939SAndy Fiddaman case '0' :
311*b30d1939SAndy Fiddaman if(!(flags&(SFFMT_LEFT|SFFMT_CENTER)) )
312*b30d1939SAndy Fiddaman flags |= SFFMT_ZERO;
313*b30d1939SAndy Fiddaman goto loop_flags;
314*b30d1939SAndy Fiddaman case ' ' :
315*b30d1939SAndy Fiddaman if(!(flags&SFFMT_SIGN) )
316*b30d1939SAndy Fiddaman flags |= SFFMT_BLANK;
317*b30d1939SAndy Fiddaman goto loop_flags;
318*b30d1939SAndy Fiddaman case '+' :
319*b30d1939SAndy Fiddaman flags = (flags & ~SFFMT_BLANK) | SFFMT_SIGN;
320*b30d1939SAndy Fiddaman goto loop_flags;
321*b30d1939SAndy Fiddaman case '=' :
322*b30d1939SAndy Fiddaman flags = (flags & ~(SFFMT_LEFT|SFFMT_ZERO)) | SFFMT_CENTER;
323*b30d1939SAndy Fiddaman goto loop_flags;
324*b30d1939SAndy Fiddaman case '#' :
325*b30d1939SAndy Fiddaman flags |= SFFMT_ALTER;
326*b30d1939SAndy Fiddaman goto loop_flags;
327*b30d1939SAndy Fiddaman case QUOTE:
328*b30d1939SAndy Fiddaman SFSETLOCALE(&decimal,&thousand);
329*b30d1939SAndy Fiddaman if(thousand > 0)
330*b30d1939SAndy Fiddaman flags |= SFFMT_THOUSAND;
331*b30d1939SAndy Fiddaman goto loop_flags;
332*b30d1939SAndy Fiddaman case ',':
333*b30d1939SAndy Fiddaman SFSETLOCALE(&decimal,&thousand);
334*b30d1939SAndy Fiddaman if(thousand < 0)
335*b30d1939SAndy Fiddaman thousand = fmt;
336*b30d1939SAndy Fiddaman flags |= SFFMT_THOUSAND;
337*b30d1939SAndy Fiddaman goto loop_flags;
338*b30d1939SAndy Fiddaman
339*b30d1939SAndy Fiddaman case '.':
340*b30d1939SAndy Fiddaman dot += 1;
341*b30d1939SAndy Fiddaman if(dot == 1)
342*b30d1939SAndy Fiddaman { /* so base can be defined without setting precis */
343*b30d1939SAndy Fiddaman if(*form != '.' && !(flags & SFFMT_CHOP))
344*b30d1939SAndy Fiddaman precis = 0;
345*b30d1939SAndy Fiddaman }
346*b30d1939SAndy Fiddaman else if(dot == 2)
347*b30d1939SAndy Fiddaman { base = 0; /* for %s,%c */
348*b30d1939SAndy Fiddaman v = form[0] == 'l' ? form[1] : form[0];
349*b30d1939SAndy Fiddaman if(v == 'c' || v == 'C' || v == 's' || v == 'S')
350*b30d1939SAndy Fiddaman goto loop_flags;
351*b30d1939SAndy Fiddaman if(*form && !isalnum(*form))
352*b30d1939SAndy Fiddaman { v = form[1] == 'l' ? form[2] : form[1];
353*b30d1939SAndy Fiddaman if(v == 'c' || v == 'C' || v == 's' || v == 'S')
354*b30d1939SAndy Fiddaman { if(*form == '*')
355*b30d1939SAndy Fiddaman goto do_star;
356*b30d1939SAndy Fiddaman else
357*b30d1939SAndy Fiddaman { base = *form++;
358*b30d1939SAndy Fiddaman goto loop_flags;
359*b30d1939SAndy Fiddaman }
360*b30d1939SAndy Fiddaman }
361*b30d1939SAndy Fiddaman }
362*b30d1939SAndy Fiddaman }
363*b30d1939SAndy Fiddaman
364*b30d1939SAndy Fiddaman if(isdigit(*form) )
365*b30d1939SAndy Fiddaman { fmt = *form++;
366*b30d1939SAndy Fiddaman goto dot_size;
367*b30d1939SAndy Fiddaman }
368*b30d1939SAndy Fiddaman else if(*form != '*')
369*b30d1939SAndy Fiddaman goto loop_flags;
370*b30d1939SAndy Fiddaman do_star:
371*b30d1939SAndy Fiddaman form += 1; /* fall thru for '*' */
372*b30d1939SAndy Fiddaman /* FALLTHROUGH */
373*b30d1939SAndy Fiddaman case '*' :
374*b30d1939SAndy Fiddaman form = (*_Sffmtintf)(form,&n);
375*b30d1939SAndy Fiddaman if(*form == '$')
376*b30d1939SAndy Fiddaman { form += 1;
377*b30d1939SAndy Fiddaman if(!fp && !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)) )
378*b30d1939SAndy Fiddaman goto pop_fmt;
379*b30d1939SAndy Fiddaman n = FP_SET(n,argn);
380*b30d1939SAndy Fiddaman }
381*b30d1939SAndy Fiddaman else n = FP_SET(-1,argn);
382*b30d1939SAndy Fiddaman
383*b30d1939SAndy Fiddaman if(fp)
384*b30d1939SAndy Fiddaman v = fp[n].argv.i;
385*b30d1939SAndy Fiddaman else if(ft && ft->extf)
386*b30d1939SAndy Fiddaman { FMTSET(ft, form,args, '.',dot, 0, 0,0,0, NIL(char*), 0);
387*b30d1939SAndy Fiddaman if((*ft->extf)(f, (Void_t*)(&argv), ft) < 0)
388*b30d1939SAndy Fiddaman goto pop_fmt;
389*b30d1939SAndy Fiddaman fmt = ft->fmt;
390*b30d1939SAndy Fiddaman flags = (flags&~SFFMT_TYPES) | (ft->flags&SFFMT_TYPES);
391*b30d1939SAndy Fiddaman if(ft->flags&SFFMT_VALUE)
392*b30d1939SAndy Fiddaman v = argv.i;
393*b30d1939SAndy Fiddaman else v = (dot <= 2) ? va_arg(args,int) : 0;
394*b30d1939SAndy Fiddaman }
395*b30d1939SAndy Fiddaman else v = dot <= 2 ? va_arg(args,int) : 0;
396*b30d1939SAndy Fiddaman goto dot_set;
397*b30d1939SAndy Fiddaman
398*b30d1939SAndy Fiddaman case '1' : case '2' : case '3' :
399*b30d1939SAndy Fiddaman case '4' : case '5' : case '6' :
400*b30d1939SAndy Fiddaman case '7' : case '8' : case '9' :
401*b30d1939SAndy Fiddaman dot_size :
402*b30d1939SAndy Fiddaman for(v = fmt - '0'; isdigit(*form); ++form)
403*b30d1939SAndy Fiddaman v = v*10 + (*form - '0');
404*b30d1939SAndy Fiddaman if(*form == '$')
405*b30d1939SAndy Fiddaman { form += 1;
406*b30d1939SAndy Fiddaman if(!fp && !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)) )
407*b30d1939SAndy Fiddaman goto pop_fmt;
408*b30d1939SAndy Fiddaman argp = v-1;
409*b30d1939SAndy Fiddaman goto loop_flags;
410*b30d1939SAndy Fiddaman }
411*b30d1939SAndy Fiddaman dot_set :
412*b30d1939SAndy Fiddaman if(dot == 0)
413*b30d1939SAndy Fiddaman { if((width = v) < 0)
414*b30d1939SAndy Fiddaman { width = -width;
415*b30d1939SAndy Fiddaman flags = (flags & ~(SFFMT_CENTER|SFFMT_ZERO)) | SFFMT_LEFT;
416*b30d1939SAndy Fiddaman }
417*b30d1939SAndy Fiddaman }
418*b30d1939SAndy Fiddaman else if(dot == 1)
419*b30d1939SAndy Fiddaman precis = v;
420*b30d1939SAndy Fiddaman else if(dot == 2)
421*b30d1939SAndy Fiddaman base = v;
422*b30d1939SAndy Fiddaman goto loop_flags;
423*b30d1939SAndy Fiddaman
424*b30d1939SAndy Fiddaman /* 2012-06-27 I* will be deprecated and POSIX will probably settle on one of L* or z* */
425*b30d1939SAndy Fiddaman case 'L' : /* long double or L* sizeof object length */
426*b30d1939SAndy Fiddaman case 'z' : /* ssize_t or z* sizeof object length */
427*b30d1939SAndy Fiddaman case 'I' : /* object length */
428*b30d1939SAndy Fiddaman size = -1; flags = (flags & ~SFFMT_TYPES) | SFFMT_IFLAG;
429*b30d1939SAndy Fiddaman if(*form == '*')
430*b30d1939SAndy Fiddaman { form = (*_Sffmtintf)(form+1,&n);
431*b30d1939SAndy Fiddaman if(*form == '$')
432*b30d1939SAndy Fiddaman { form += 1;
433*b30d1939SAndy Fiddaman if(!fp &&
434*b30d1939SAndy Fiddaman !(fp = (*_Sffmtposf)(f,oform,oargs,ft,0)))
435*b30d1939SAndy Fiddaman goto pop_fmt;
436*b30d1939SAndy Fiddaman n = FP_SET(n,argn);
437*b30d1939SAndy Fiddaman }
438*b30d1939SAndy Fiddaman else n = FP_SET(-1,argn);
439*b30d1939SAndy Fiddaman
440*b30d1939SAndy Fiddaman if(fp) /* use position list */
441*b30d1939SAndy Fiddaman size = fp[n].argv.i;
442*b30d1939SAndy Fiddaman else if(ft && ft->extf)
443*b30d1939SAndy Fiddaman { FMTSET(ft, form,args, 'I',sizeof(int), 0, 0,0,0,
444*b30d1939SAndy Fiddaman NIL(char*), 0);
445*b30d1939SAndy Fiddaman if((*ft->extf)(f, (Void_t*)(&argv), ft) < 0)
446*b30d1939SAndy Fiddaman goto pop_fmt;
447*b30d1939SAndy Fiddaman if(ft->flags&SFFMT_VALUE)
448*b30d1939SAndy Fiddaman size = argv.i;
449*b30d1939SAndy Fiddaman else size = va_arg(args,int);
450*b30d1939SAndy Fiddaman }
451*b30d1939SAndy Fiddaman else size = va_arg(args,int);
452*b30d1939SAndy Fiddaman }
453*b30d1939SAndy Fiddaman else if (fmt == 'L')
454*b30d1939SAndy Fiddaman flags = (flags & ~SFFMT_TYPES) | SFFMT_LDOUBLE;
455*b30d1939SAndy Fiddaman else if (fmt == 'z')
456*b30d1939SAndy Fiddaman flags = (flags&~SFFMT_TYPES) | SFFMT_ZFLAG;
457*b30d1939SAndy Fiddaman else if(isdigit(*form) )
458*b30d1939SAndy Fiddaman { for(size = 0, n = *form; isdigit(n); n = *++form)
459*b30d1939SAndy Fiddaman size = size*10 + (n - '0');
460*b30d1939SAndy Fiddaman }
461*b30d1939SAndy Fiddaman goto loop_flags;
462*b30d1939SAndy Fiddaman
463*b30d1939SAndy Fiddaman case 'l' :
464*b30d1939SAndy Fiddaman size = -1; flags &= ~SFFMT_TYPES;
465*b30d1939SAndy Fiddaman if(*form == 'l')
466*b30d1939SAndy Fiddaman { form += 1;
467*b30d1939SAndy Fiddaman flags |= SFFMT_LLONG;
468*b30d1939SAndy Fiddaman }
469*b30d1939SAndy Fiddaman else flags |= SFFMT_LONG;
470*b30d1939SAndy Fiddaman goto loop_flags;
471*b30d1939SAndy Fiddaman case 'h' :
472*b30d1939SAndy Fiddaman size = -1; flags &= ~SFFMT_TYPES;
473*b30d1939SAndy Fiddaman if(*form == 'h')
474*b30d1939SAndy Fiddaman { form += 1;
475*b30d1939SAndy Fiddaman flags |= SFFMT_SSHORT;
476*b30d1939SAndy Fiddaman }
477*b30d1939SAndy Fiddaman else flags |= SFFMT_SHORT;
478*b30d1939SAndy Fiddaman goto loop_flags;
479*b30d1939SAndy Fiddaman case 'j' :
480*b30d1939SAndy Fiddaman size = -1; flags = (flags&~SFFMT_TYPES) | SFFMT_JFLAG;
481*b30d1939SAndy Fiddaman goto loop_flags;
482*b30d1939SAndy Fiddaman case 't' :
483*b30d1939SAndy Fiddaman size = -1; flags = (flags&~SFFMT_TYPES) | SFFMT_TFLAG;
484*b30d1939SAndy Fiddaman goto loop_flags;
485*b30d1939SAndy Fiddaman default:
486*b30d1939SAndy Fiddaman break;
487*b30d1939SAndy Fiddaman }
488*b30d1939SAndy Fiddaman
489*b30d1939SAndy Fiddaman /* set object size for scalars */
490*b30d1939SAndy Fiddaman if(flags & SFFMT_TYPES)
491*b30d1939SAndy Fiddaman { if((_Sftype[fmt]&(SFFMT_INT|SFFMT_UINT)) || fmt == 'n')
492*b30d1939SAndy Fiddaman { if(flags&SFFMT_LONG)
493*b30d1939SAndy Fiddaman size = sizeof(long);
494*b30d1939SAndy Fiddaman else if(flags&SFFMT_SHORT)
495*b30d1939SAndy Fiddaman size = sizeof(short);
496*b30d1939SAndy Fiddaman else if(flags&SFFMT_SSHORT)
497*b30d1939SAndy Fiddaman size = sizeof(char);
498*b30d1939SAndy Fiddaman else if(flags&SFFMT_TFLAG)
499*b30d1939SAndy Fiddaman size = sizeof(ptrdiff_t);
500*b30d1939SAndy Fiddaman else if(flags&SFFMT_ZFLAG)
501*b30d1939SAndy Fiddaman size = sizeof(size_t);
502*b30d1939SAndy Fiddaman else if(flags&(SFFMT_LLONG|SFFMT_JFLAG) )
503*b30d1939SAndy Fiddaman size = sizeof(Sflong_t);
504*b30d1939SAndy Fiddaman else if(flags&SFFMT_IFLAG)
505*b30d1939SAndy Fiddaman { if(size <= 0 ||
506*b30d1939SAndy Fiddaman size == sizeof(Sflong_t)*CHAR_BIT )
507*b30d1939SAndy Fiddaman size = sizeof(Sflong_t);
508*b30d1939SAndy Fiddaman }
509*b30d1939SAndy Fiddaman else if(size < 0)
510*b30d1939SAndy Fiddaman size = sizeof(int);
511*b30d1939SAndy Fiddaman }
512*b30d1939SAndy Fiddaman else if(_Sftype[fmt]&SFFMT_FLOAT)
513*b30d1939SAndy Fiddaman { if(flags&SFFMT_LDOUBLE)
514*b30d1939SAndy Fiddaman size = sizeof(Sfdouble_t);
515*b30d1939SAndy Fiddaman else if(flags&(SFFMT_LONG|SFFMT_LLONG))
516*b30d1939SAndy Fiddaman size = sizeof(double);
517*b30d1939SAndy Fiddaman else if(flags&SFFMT_IFLAG)
518*b30d1939SAndy Fiddaman { if(size <= 0)
519*b30d1939SAndy Fiddaman size = sizeof(Sfdouble_t);
520*b30d1939SAndy Fiddaman }
521*b30d1939SAndy Fiddaman else if(size < 0)
522*b30d1939SAndy Fiddaman size = sizeof(float);
523*b30d1939SAndy Fiddaman }
524*b30d1939SAndy Fiddaman else if(_Sftype[fmt]&SFFMT_CHAR)
525*b30d1939SAndy Fiddaman {
526*b30d1939SAndy Fiddaman #if _has_multibyte
527*b30d1939SAndy Fiddaman if((flags&SFFMT_LONG) || fmt == 'C')
528*b30d1939SAndy Fiddaman { size = sizeof(wchar_t) > sizeof(int) ?
529*b30d1939SAndy Fiddaman sizeof(wchar_t) : sizeof(int);
530*b30d1939SAndy Fiddaman } else
531*b30d1939SAndy Fiddaman #endif
532*b30d1939SAndy Fiddaman if(size < 0)
533*b30d1939SAndy Fiddaman size = sizeof(int);
534*b30d1939SAndy Fiddaman }
535*b30d1939SAndy Fiddaman }
536*b30d1939SAndy Fiddaman
537*b30d1939SAndy Fiddaman argp = FP_SET(argp,argn);
538*b30d1939SAndy Fiddaman if(fp)
539*b30d1939SAndy Fiddaman { if(ft && ft->extf && fp[argp].ft.fmt != fp[argp].fmt)
540*b30d1939SAndy Fiddaman fmt = fp[argp].ft.fmt;
541*b30d1939SAndy Fiddaman argv = fp[argp].argv;
542*b30d1939SAndy Fiddaman size = fp[argp].ft.size;
543*b30d1939SAndy Fiddaman }
544*b30d1939SAndy Fiddaman else if(ft && ft->extf ) /* extended processing */
545*b30d1939SAndy Fiddaman { FMTSET(ft, form,args, fmt, size,flags, width,precis,base,
546*b30d1939SAndy Fiddaman t_str,n_str);
547*b30d1939SAndy Fiddaman SFEND(f); SFOPEN(f,0);
548*b30d1939SAndy Fiddaman v = (*ft->extf)(f, (Void_t*)(&argv), ft);
549*b30d1939SAndy Fiddaman SFLOCK(f,0); SFBUF(f);
550*b30d1939SAndy Fiddaman
551*b30d1939SAndy Fiddaman if(v < 0) /* no further processing */
552*b30d1939SAndy Fiddaman goto pop_fmt;
553*b30d1939SAndy Fiddaman else if(v > 0) /* extf output v bytes */
554*b30d1939SAndy Fiddaman { n_output += v;
555*b30d1939SAndy Fiddaman continue;
556*b30d1939SAndy Fiddaman }
557*b30d1939SAndy Fiddaman else /* extf did not output */
558*b30d1939SAndy Fiddaman { FMTGET(ft, form,args, fmt, size,flags, width,precis,base);
559*b30d1939SAndy Fiddaman
560*b30d1939SAndy Fiddaman if(!(ft->flags&SFFMT_VALUE))
561*b30d1939SAndy Fiddaman goto arg_list;
562*b30d1939SAndy Fiddaman else if(_Sftype[fmt]&(SFFMT_INT|SFFMT_UINT) )
563*b30d1939SAndy Fiddaman { if(size == sizeof(short))
564*b30d1939SAndy Fiddaman { if(_Sftype[fmt]&SFFMT_INT)
565*b30d1939SAndy Fiddaman argv.i = argv.h;
566*b30d1939SAndy Fiddaman else argv.i = argv.uh;
567*b30d1939SAndy Fiddaman }
568*b30d1939SAndy Fiddaman else if(size == sizeof(char))
569*b30d1939SAndy Fiddaman { if(_Sftype[fmt]&SFFMT_INT)
570*b30d1939SAndy Fiddaman argv.i = argv.c;
571*b30d1939SAndy Fiddaman else argv.i = argv.uc;
572*b30d1939SAndy Fiddaman }
573*b30d1939SAndy Fiddaman }
574*b30d1939SAndy Fiddaman else if(_Sftype[fmt]&SFFMT_FLOAT )
575*b30d1939SAndy Fiddaman { if(size == sizeof(float) )
576*b30d1939SAndy Fiddaman argv.d = argv.f;
577*b30d1939SAndy Fiddaman }
578*b30d1939SAndy Fiddaman else if(_Sftype[fmt]&SFFMT_CHAR)
579*b30d1939SAndy Fiddaman { if(base < 0)
580*b30d1939SAndy Fiddaman argv.i = (int)argv.c;
581*b30d1939SAndy Fiddaman }
582*b30d1939SAndy Fiddaman }
583*b30d1939SAndy Fiddaman }
584*b30d1939SAndy Fiddaman else
585*b30d1939SAndy Fiddaman { arg_list:
586*b30d1939SAndy Fiddaman switch(_Sftype[fmt])
587*b30d1939SAndy Fiddaman { case SFFMT_INT:
588*b30d1939SAndy Fiddaman case SFFMT_UINT:
589*b30d1939SAndy Fiddaman #if !_ast_intmax_long
590*b30d1939SAndy Fiddaman if(size == sizeof(Sflong_t))
591*b30d1939SAndy Fiddaman argv.ll = va_arg(args, Sflong_t);
592*b30d1939SAndy Fiddaman else
593*b30d1939SAndy Fiddaman #endif
594*b30d1939SAndy Fiddaman if(size == sizeof(long) )
595*b30d1939SAndy Fiddaman argv.l = va_arg(args, long);
596*b30d1939SAndy Fiddaman else argv.i = va_arg(args, int);
597*b30d1939SAndy Fiddaman break;
598*b30d1939SAndy Fiddaman case SFFMT_FLOAT:
599*b30d1939SAndy Fiddaman #if !_ast_fltmax_double
600*b30d1939SAndy Fiddaman if(size == sizeof(Sfdouble_t))
601*b30d1939SAndy Fiddaman argv.ld = va_arg(args,Sfdouble_t);
602*b30d1939SAndy Fiddaman else
603*b30d1939SAndy Fiddaman #endif
604*b30d1939SAndy Fiddaman argv.d = va_arg(args,double);
605*b30d1939SAndy Fiddaman break;
606*b30d1939SAndy Fiddaman case SFFMT_POINTER:
607*b30d1939SAndy Fiddaman argv.vp = va_arg(args,Void_t*);
608*b30d1939SAndy Fiddaman break;
609*b30d1939SAndy Fiddaman case SFFMT_CHAR:
610*b30d1939SAndy Fiddaman if(base >= 0)
611*b30d1939SAndy Fiddaman argv.s = va_arg(args,char*);
612*b30d1939SAndy Fiddaman #if _has_multibyte
613*b30d1939SAndy Fiddaman else if((flags & SFFMT_LONG) || fmt == 'C')
614*b30d1939SAndy Fiddaman { if(sizeof(wchar_t) <= sizeof(uint) )
615*b30d1939SAndy Fiddaman argv.wc = (wchar_t)va_arg(args,uint);
616*b30d1939SAndy Fiddaman else argv.wc = va_arg(args,wchar_t);
617*b30d1939SAndy Fiddaman }
618*b30d1939SAndy Fiddaman #endif
619*b30d1939SAndy Fiddaman else argv.i = va_arg(args,int);
620*b30d1939SAndy Fiddaman break;
621*b30d1939SAndy Fiddaman default: /* unknown pattern */
622*b30d1939SAndy Fiddaman break;
623*b30d1939SAndy Fiddaman }
624*b30d1939SAndy Fiddaman }
625*b30d1939SAndy Fiddaman
626*b30d1939SAndy Fiddaman switch(fmt) /* PRINTF DIRECTIVES */
627*b30d1939SAndy Fiddaman {
628*b30d1939SAndy Fiddaman default : /* unknown directive */
629*b30d1939SAndy Fiddaman form -= 1;
630*b30d1939SAndy Fiddaman argn -= 1;
631*b30d1939SAndy Fiddaman continue;
632*b30d1939SAndy Fiddaman
633*b30d1939SAndy Fiddaman case '!' : /* stacking a new environment */
634*b30d1939SAndy Fiddaman if(!fp)
635*b30d1939SAndy Fiddaman fp = (*_Sffmtposf)(f,oform,oargs,ft,0);
636*b30d1939SAndy Fiddaman else goto pop_fmt;
637*b30d1939SAndy Fiddaman
638*b30d1939SAndy Fiddaman if(!argv.ft)
639*b30d1939SAndy Fiddaman goto pop_fmt;
640*b30d1939SAndy Fiddaman if(!argv.ft->form && ft ) /* change extension functions */
641*b30d1939SAndy Fiddaman { if(ft->eventf &&
642*b30d1939SAndy Fiddaman (*ft->eventf)(f,SF_DPOP,(Void_t*)form,ft) < 0)
643*b30d1939SAndy Fiddaman continue;
644*b30d1939SAndy Fiddaman fmstk->ft = ft = argv.ft;
645*b30d1939SAndy Fiddaman }
646*b30d1939SAndy Fiddaman else /* stack a new environment */
647*b30d1939SAndy Fiddaman { if(!(fm = (Fmt_t*)malloc(sizeof(Fmt_t))) )
648*b30d1939SAndy Fiddaman goto done;
649*b30d1939SAndy Fiddaman
650*b30d1939SAndy Fiddaman ft = fm->ft = argv.ft;
651*b30d1939SAndy Fiddaman SFMBSET(ft->mbs, &fmbs);
652*b30d1939SAndy Fiddaman if(ft->form)
653*b30d1939SAndy Fiddaman { fm->form = (char*)form; SFMBCPY(&fm->mbs,&fmbs);
654*b30d1939SAndy Fiddaman va_copy(fm->args,args);
655*b30d1939SAndy Fiddaman
656*b30d1939SAndy Fiddaman fm->oform = oform;
657*b30d1939SAndy Fiddaman va_copy(fm->oargs,oargs);
658*b30d1939SAndy Fiddaman fm->argn = argn;
659*b30d1939SAndy Fiddaman fm->fp = fp;
660*b30d1939SAndy Fiddaman
661*b30d1939SAndy Fiddaman form = ft->form; SFMBCLR(ft->mbs);
662*b30d1939SAndy Fiddaman va_copy(args,ft->args);
663*b30d1939SAndy Fiddaman argn = -1;
664*b30d1939SAndy Fiddaman fp = NIL(Fmtpos_t*);
665*b30d1939SAndy Fiddaman oform = (char*)form;
666*b30d1939SAndy Fiddaman va_copy(oargs,args);
667*b30d1939SAndy Fiddaman }
668*b30d1939SAndy Fiddaman else fm->form = NIL(char*);
669*b30d1939SAndy Fiddaman
670*b30d1939SAndy Fiddaman fm->eventf = ft->eventf;
671*b30d1939SAndy Fiddaman fm->next = fmstk;
672*b30d1939SAndy Fiddaman fmstk = fm;
673*b30d1939SAndy Fiddaman }
674*b30d1939SAndy Fiddaman continue;
675*b30d1939SAndy Fiddaman
676*b30d1939SAndy Fiddaman case 'S':
677*b30d1939SAndy Fiddaman flags = (flags & ~(SFFMT_TYPES|SFFMT_LDOUBLE)) | SFFMT_LONG;
678*b30d1939SAndy Fiddaman /* FALLTHROUGH */
679*b30d1939SAndy Fiddaman case 's':
680*b30d1939SAndy Fiddaman #if _has_multibyte && defined(mbwidth)
681*b30d1939SAndy Fiddaman wc = (flags & SFFMT_LDOUBLE) && mbwide();
682*b30d1939SAndy Fiddaman #endif
683*b30d1939SAndy Fiddaman if(base >= 0) /* list of strings */
684*b30d1939SAndy Fiddaman { if(!(ls = argv.sp) || !ls[0])
685*b30d1939SAndy Fiddaman continue;
686*b30d1939SAndy Fiddaman }
687*b30d1939SAndy Fiddaman else
688*b30d1939SAndy Fiddaman { if(!(sp = argv.s))
689*b30d1939SAndy Fiddaman { sp = "(null)";
690*b30d1939SAndy Fiddaman flags &= ~SFFMT_LONG;
691*b30d1939SAndy Fiddaman }
692*b30d1939SAndy Fiddaman #if _PACKAGE_ast
693*b30d1939SAndy Fiddaman str_cvt:
694*b30d1939SAndy Fiddaman if(scale)
695*b30d1939SAndy Fiddaman { size = base = -1;
696*b30d1939SAndy Fiddaman flags &= ~SFFMT_LONG;
697*b30d1939SAndy Fiddaman }
698*b30d1939SAndy Fiddaman #endif
699*b30d1939SAndy Fiddaman ls = tls; tls[0] = sp;
700*b30d1939SAndy Fiddaman }
701*b30d1939SAndy Fiddaman for(sp = *ls;;)
702*b30d1939SAndy Fiddaman { /* v: number of bytes w: print width of those v bytes */
703*b30d1939SAndy Fiddaman #if _has_multibyte
704*b30d1939SAndy Fiddaman if(flags & SFFMT_LONG)
705*b30d1939SAndy Fiddaman { v = 0;
706*b30d1939SAndy Fiddaman #ifdef mbwidth
707*b30d1939SAndy Fiddaman w = 0;
708*b30d1939SAndy Fiddaman #endif
709*b30d1939SAndy Fiddaman SFMBCLR(&mbs);
710*b30d1939SAndy Fiddaman for(n = 0, wsp = (wchar_t*)sp;; ++wsp, ++n)
711*b30d1939SAndy Fiddaman { if((size >= 0 && n >= size) ||
712*b30d1939SAndy Fiddaman (size < 0 && *wsp == 0) )
713*b30d1939SAndy Fiddaman break;
714*b30d1939SAndy Fiddaman if((n_s = wcrtomb(buf, *wsp, &mbs)) <= 0)
715*b30d1939SAndy Fiddaman break;
716*b30d1939SAndy Fiddaman #ifdef mbwidth
717*b30d1939SAndy Fiddaman if(wc)
718*b30d1939SAndy Fiddaman { n_w = mbwidth(*wsp);
719*b30d1939SAndy Fiddaman if(precis >= 0 && (w+n_w) > precis )
720*b30d1939SAndy Fiddaman break;
721*b30d1939SAndy Fiddaman w += n_w;
722*b30d1939SAndy Fiddaman }
723*b30d1939SAndy Fiddaman else
724*b30d1939SAndy Fiddaman #endif
725*b30d1939SAndy Fiddaman if(precis >= 0 && (v+n_s) > precis )
726*b30d1939SAndy Fiddaman break;
727*b30d1939SAndy Fiddaman v += n_s;
728*b30d1939SAndy Fiddaman }
729*b30d1939SAndy Fiddaman #ifdef mbwidth
730*b30d1939SAndy Fiddaman if(!wc)
731*b30d1939SAndy Fiddaman w = v;
732*b30d1939SAndy Fiddaman #endif
733*b30d1939SAndy Fiddaman }
734*b30d1939SAndy Fiddaman #ifdef mbwidth
735*b30d1939SAndy Fiddaman else if (wc)
736*b30d1939SAndy Fiddaman { w = 0;
737*b30d1939SAndy Fiddaman SFMBCLR(&mbs);
738*b30d1939SAndy Fiddaman ssp = sp;
739*b30d1939SAndy Fiddaman for(;;)
740*b30d1939SAndy Fiddaman { if((size >= 0 && w >= size) ||
741*b30d1939SAndy Fiddaman (size < 0 && *ssp == 0) )
742*b30d1939SAndy Fiddaman break;
743*b30d1939SAndy Fiddaman osp = ssp;
744*b30d1939SAndy Fiddaman n = mbchar(osp);
745*b30d1939SAndy Fiddaman n_w = mbwidth(n);
746*b30d1939SAndy Fiddaman if(precis >= 0 && (w+n_w) > precis )
747*b30d1939SAndy Fiddaman break;
748*b30d1939SAndy Fiddaman w += n_w;
749*b30d1939SAndy Fiddaman ssp = osp;
750*b30d1939SAndy Fiddaman }
751*b30d1939SAndy Fiddaman v = ssp - sp;
752*b30d1939SAndy Fiddaman }
753*b30d1939SAndy Fiddaman #endif
754*b30d1939SAndy Fiddaman else
755*b30d1939SAndy Fiddaman #endif
756*b30d1939SAndy Fiddaman { if((v = size) < 0)
757*b30d1939SAndy Fiddaman for(v = 0; v != precis && sp[v]; ++v);
758*b30d1939SAndy Fiddaman if(precis >= 0 && v > precis)
759*b30d1939SAndy Fiddaman v = precis;
760*b30d1939SAndy Fiddaman w = v;
761*b30d1939SAndy Fiddaman }
762*b30d1939SAndy Fiddaman
763*b30d1939SAndy Fiddaman if((n = width - w) > 0 && !(flags&SFFMT_LEFT) )
764*b30d1939SAndy Fiddaman { if(flags&SFFMT_CENTER)
765*b30d1939SAndy Fiddaman { n -= (k = n/2);
766*b30d1939SAndy Fiddaman SFnputc(f, ' ', k);
767*b30d1939SAndy Fiddaman }
768*b30d1939SAndy Fiddaman else
769*b30d1939SAndy Fiddaman { SFnputc(f, ' ', n);
770*b30d1939SAndy Fiddaman n = 0;
771*b30d1939SAndy Fiddaman }
772*b30d1939SAndy Fiddaman }
773*b30d1939SAndy Fiddaman if(n < 0 && (flags & SFFMT_CHOP) && width > 0 && precis < 0)
774*b30d1939SAndy Fiddaman {
775*b30d1939SAndy Fiddaman #if _has_multibyte
776*b30d1939SAndy Fiddaman if(flags & SFFMT_LONG)
777*b30d1939SAndy Fiddaman { SFMBCLR(&mbs);
778*b30d1939SAndy Fiddaman wsp = (wchar_t*)sp;
779*b30d1939SAndy Fiddaman while(n < 0)
780*b30d1939SAndy Fiddaman {
781*b30d1939SAndy Fiddaman #ifdef mbwidth
782*b30d1939SAndy Fiddaman n += mbwidth(*wsp);
783*b30d1939SAndy Fiddaman #else
784*b30d1939SAndy Fiddaman n++;
785*b30d1939SAndy Fiddaman #endif
786*b30d1939SAndy Fiddaman wsp++;
787*b30d1939SAndy Fiddaman w--;
788*b30d1939SAndy Fiddaman }
789*b30d1939SAndy Fiddaman sp = (char*)wsp;
790*b30d1939SAndy Fiddaman }
791*b30d1939SAndy Fiddaman else if (wc)
792*b30d1939SAndy Fiddaman { SFMBCLR(&mbs);
793*b30d1939SAndy Fiddaman osp = sp;
794*b30d1939SAndy Fiddaman while(n < 0)
795*b30d1939SAndy Fiddaman { ssp = sp;
796*b30d1939SAndy Fiddaman if ((k = mbchar(sp)) <= 0)
797*b30d1939SAndy Fiddaman { sp = ssp;
798*b30d1939SAndy Fiddaman break;
799*b30d1939SAndy Fiddaman }
800*b30d1939SAndy Fiddaman #ifdef mbwidth
801*b30d1939SAndy Fiddaman n += mbwidth(k);
802*b30d1939SAndy Fiddaman #else
803*b30d1939SAndy Fiddaman n++;
804*b30d1939SAndy Fiddaman #endif
805*b30d1939SAndy Fiddaman }
806*b30d1939SAndy Fiddaman v -= (sp - osp);
807*b30d1939SAndy Fiddaman }
808*b30d1939SAndy Fiddaman else
809*b30d1939SAndy Fiddaman #endif
810*b30d1939SAndy Fiddaman { sp += -n;
811*b30d1939SAndy Fiddaman v += n;
812*b30d1939SAndy Fiddaman }
813*b30d1939SAndy Fiddaman n = 0;
814*b30d1939SAndy Fiddaman }
815*b30d1939SAndy Fiddaman #if _has_multibyte
816*b30d1939SAndy Fiddaman if(flags & SFFMT_LONG)
817*b30d1939SAndy Fiddaman { SFMBCLR(&mbs);
818*b30d1939SAndy Fiddaman for(wsp = (wchar_t*)sp; w > 0; ++wsp, --w)
819*b30d1939SAndy Fiddaman { if((n_s = wcrtomb(buf, *wsp, &mbs)) <= 0)
820*b30d1939SAndy Fiddaman break;
821*b30d1939SAndy Fiddaman sp = buf; SFwrite(f, sp, n_s);
822*b30d1939SAndy Fiddaman }
823*b30d1939SAndy Fiddaman }
824*b30d1939SAndy Fiddaman else
825*b30d1939SAndy Fiddaman #endif
826*b30d1939SAndy Fiddaman { SFwrite(f,sp,v); }
827*b30d1939SAndy Fiddaman if(n > 0)
828*b30d1939SAndy Fiddaman { SFnputc(f,' ',n); }
829*b30d1939SAndy Fiddaman if(!(sp = *++ls))
830*b30d1939SAndy Fiddaman break;
831*b30d1939SAndy Fiddaman else if(base > 0)
832*b30d1939SAndy Fiddaman { SFputc(f,base); }
833*b30d1939SAndy Fiddaman }
834*b30d1939SAndy Fiddaman continue;
835*b30d1939SAndy Fiddaman
836*b30d1939SAndy Fiddaman case 'C':
837*b30d1939SAndy Fiddaman flags = (flags & ~(SFFMT_TYPES|SFFMT_LDOUBLE)) | SFFMT_LONG;
838*b30d1939SAndy Fiddaman /* FALLTHROUGH */
839*b30d1939SAndy Fiddaman case 'c':
840*b30d1939SAndy Fiddaman #if _has_multibyte && defined(mbwidth)
841*b30d1939SAndy Fiddaman wc = (flags & SFFMT_LDOUBLE) && mbwide();
842*b30d1939SAndy Fiddaman #endif
843*b30d1939SAndy Fiddaman if(precis <= 0) /* # of times to repeat a character */
844*b30d1939SAndy Fiddaman precis = 1;
845*b30d1939SAndy Fiddaman #if _has_multibyte
846*b30d1939SAndy Fiddaman if(flags & SFFMT_LONG)
847*b30d1939SAndy Fiddaman { if(base >= 0)
848*b30d1939SAndy Fiddaman { if(!(wsp = (wchar_t*)argv.s) )
849*b30d1939SAndy Fiddaman continue;
850*b30d1939SAndy Fiddaman for(size = 0; wsp[size]; ++size)
851*b30d1939SAndy Fiddaman ;
852*b30d1939SAndy Fiddaman }
853*b30d1939SAndy Fiddaman else
854*b30d1939SAndy Fiddaman { wsp = &argv.wc;
855*b30d1939SAndy Fiddaman size = 1;
856*b30d1939SAndy Fiddaman }
857*b30d1939SAndy Fiddaman }
858*b30d1939SAndy Fiddaman else
859*b30d1939SAndy Fiddaman #endif
860*b30d1939SAndy Fiddaman { if(base >= 0)
861*b30d1939SAndy Fiddaman { if(!(sp = argv.s) )
862*b30d1939SAndy Fiddaman continue;
863*b30d1939SAndy Fiddaman size = strlen(sp);
864*b30d1939SAndy Fiddaman }
865*b30d1939SAndy Fiddaman else
866*b30d1939SAndy Fiddaman { argv.c = (char)(argv.i);
867*b30d1939SAndy Fiddaman sp = &argv.c;
868*b30d1939SAndy Fiddaman size = 1;
869*b30d1939SAndy Fiddaman }
870*b30d1939SAndy Fiddaman }
871*b30d1939SAndy Fiddaman
872*b30d1939SAndy Fiddaman while(size > 0)
873*b30d1939SAndy Fiddaman {
874*b30d1939SAndy Fiddaman #if _has_multibyte
875*b30d1939SAndy Fiddaman if(flags&SFFMT_LONG)
876*b30d1939SAndy Fiddaman { SFMBCLR(&mbs);
877*b30d1939SAndy Fiddaman if((n_s = wcrtomb(buf, *wsp++, &mbs)) <= 0)
878*b30d1939SAndy Fiddaman break;
879*b30d1939SAndy Fiddaman #ifdef mbwidth
880*b30d1939SAndy Fiddaman if(wc)
881*b30d1939SAndy Fiddaman n_s = mbwidth(*(wsp - 1));
882*b30d1939SAndy Fiddaman #endif
883*b30d1939SAndy Fiddaman n = width - precis*n_s; /* padding amount */
884*b30d1939SAndy Fiddaman }
885*b30d1939SAndy Fiddaman else
886*b30d1939SAndy Fiddaman #endif
887*b30d1939SAndy Fiddaman if(flags&SFFMT_ALTER)
888*b30d1939SAndy Fiddaman { n_s = chr2str(buf, *sp++);
889*b30d1939SAndy Fiddaman n = width - precis*n_s;
890*b30d1939SAndy Fiddaman }
891*b30d1939SAndy Fiddaman else
892*b30d1939SAndy Fiddaman { fmt = *sp++;
893*b30d1939SAndy Fiddaman n = width - precis;
894*b30d1939SAndy Fiddaman }
895*b30d1939SAndy Fiddaman
896*b30d1939SAndy Fiddaman if(n > 0 && !(flags&SFFMT_LEFT) )
897*b30d1939SAndy Fiddaman { if(flags&SFFMT_CENTER)
898*b30d1939SAndy Fiddaman { n -= (k = n/2);
899*b30d1939SAndy Fiddaman SFnputc(f, ' ', k);
900*b30d1939SAndy Fiddaman }
901*b30d1939SAndy Fiddaman else
902*b30d1939SAndy Fiddaman { SFnputc(f, ' ', n);
903*b30d1939SAndy Fiddaman n = 0;
904*b30d1939SAndy Fiddaman }
905*b30d1939SAndy Fiddaman }
906*b30d1939SAndy Fiddaman
907*b30d1939SAndy Fiddaman v = precis; /* need this because SFnputc may clear it */
908*b30d1939SAndy Fiddaman #if _has_multibyte
909*b30d1939SAndy Fiddaman if(flags&SFFMT_LONG)
910*b30d1939SAndy Fiddaman { for(; v > 0; --v)
911*b30d1939SAndy Fiddaman { ssp = buf; k = n_s; SFwrite(f,ssp,k); }
912*b30d1939SAndy Fiddaman }
913*b30d1939SAndy Fiddaman else
914*b30d1939SAndy Fiddaman #endif
915*b30d1939SAndy Fiddaman if(flags&SFFMT_ALTER)
916*b30d1939SAndy Fiddaman { for(; v > 0; --v)
917*b30d1939SAndy Fiddaman { ssp = buf; k = n_s; SFwrite(f,ssp,k); }
918*b30d1939SAndy Fiddaman }
919*b30d1939SAndy Fiddaman else
920*b30d1939SAndy Fiddaman { SFnputc(f, fmt, v);
921*b30d1939SAndy Fiddaman }
922*b30d1939SAndy Fiddaman
923*b30d1939SAndy Fiddaman if(n > 0)
924*b30d1939SAndy Fiddaman { SFnputc(f,' ',n); };
925*b30d1939SAndy Fiddaman
926*b30d1939SAndy Fiddaman if((size -= 1) > 0 && base > 0)
927*b30d1939SAndy Fiddaman { SFputc(f,base); }
928*b30d1939SAndy Fiddaman }
929*b30d1939SAndy Fiddaman continue;
930*b30d1939SAndy Fiddaman
931*b30d1939SAndy Fiddaman case 'n': /* return current output length */
932*b30d1939SAndy Fiddaman SFEND(f);
933*b30d1939SAndy Fiddaman #if !_ast_intmax_long
934*b30d1939SAndy Fiddaman if(size == sizeof(Sflong_t) )
935*b30d1939SAndy Fiddaman *((Sflong_t*)argv.vp) = (Sflong_t)n_output;
936*b30d1939SAndy Fiddaman else
937*b30d1939SAndy Fiddaman #endif
938*b30d1939SAndy Fiddaman if(size == sizeof(long))
939*b30d1939SAndy Fiddaman *((long*)argv.vp) = (long)n_output;
940*b30d1939SAndy Fiddaman else if(size == sizeof(short) )
941*b30d1939SAndy Fiddaman *((short*)argv.vp) = (short)n_output;
942*b30d1939SAndy Fiddaman else if(size == sizeof(uchar) )
943*b30d1939SAndy Fiddaman *((uchar*)argv.vp) = (uchar)n_output;
944*b30d1939SAndy Fiddaman else *((int*)argv.vp) = (int)n_output;
945*b30d1939SAndy Fiddaman
946*b30d1939SAndy Fiddaman continue;
947*b30d1939SAndy Fiddaman
948*b30d1939SAndy Fiddaman case 'p': /* pointer value */
949*b30d1939SAndy Fiddaman fmt = 'x';
950*b30d1939SAndy Fiddaman base = 16; n_s = 15; n = 4;
951*b30d1939SAndy Fiddaman flags = (flags&~(SFFMT_SIGN|SFFMT_BLANK|SFFMT_ZERO))|SFFMT_ALTER;
952*b30d1939SAndy Fiddaman #if _more_void_int
953*b30d1939SAndy Fiddaman lv = (Sflong_t)((Sfulong_t)argv.vp);
954*b30d1939SAndy Fiddaman goto long_cvt;
955*b30d1939SAndy Fiddaman #else
956*b30d1939SAndy Fiddaman v = (int)((uint)argv.vp);
957*b30d1939SAndy Fiddaman goto int_cvt;
958*b30d1939SAndy Fiddaman #endif
959*b30d1939SAndy Fiddaman case 'o':
960*b30d1939SAndy Fiddaman base = 8; n_s = 7; n = 3;
961*b30d1939SAndy Fiddaman flags &= ~(SFFMT_SIGN|SFFMT_BLANK);
962*b30d1939SAndy Fiddaman goto int_arg;
963*b30d1939SAndy Fiddaman case 'X':
964*b30d1939SAndy Fiddaman ssp = "0123456789ABCDEF";
965*b30d1939SAndy Fiddaman /* FALLTHROUGH */
966*b30d1939SAndy Fiddaman case 'x':
967*b30d1939SAndy Fiddaman base = 16; n_s = 15; n = 4;
968*b30d1939SAndy Fiddaman flags &= ~(SFFMT_SIGN|SFFMT_BLANK);
969*b30d1939SAndy Fiddaman goto int_arg;
970*b30d1939SAndy Fiddaman case 'i':
971*b30d1939SAndy Fiddaman #if _PACKAGE_ast
972*b30d1939SAndy Fiddaman if((flags&SFFMT_ALTER) && base < 0)
973*b30d1939SAndy Fiddaman { flags &= ~SFFMT_ALTER;
974*b30d1939SAndy Fiddaman scale = 1024;
975*b30d1939SAndy Fiddaman }
976*b30d1939SAndy Fiddaman #endif
977*b30d1939SAndy Fiddaman fmt = 'd';
978*b30d1939SAndy Fiddaman goto d_format;
979*b30d1939SAndy Fiddaman case 'u':
980*b30d1939SAndy Fiddaman flags &= ~(SFFMT_SIGN|SFFMT_BLANK);
981*b30d1939SAndy Fiddaman /* FALLTHROUGH */
982*b30d1939SAndy Fiddaman case 'd':
983*b30d1939SAndy Fiddaman d_format:
984*b30d1939SAndy Fiddaman #if _PACKAGE_ast
985*b30d1939SAndy Fiddaman if((flags&SFFMT_ALTER) && base < 0)
986*b30d1939SAndy Fiddaman { flags &= ~SFFMT_ALTER;
987*b30d1939SAndy Fiddaman scale = 1000;
988*b30d1939SAndy Fiddaman }
989*b30d1939SAndy Fiddaman #endif
990*b30d1939SAndy Fiddaman if(base < 2 || base > SF_RADIX)
991*b30d1939SAndy Fiddaman base = 10;
992*b30d1939SAndy Fiddaman if((base&(n_s = base-1)) == 0)
993*b30d1939SAndy Fiddaman { if(base < 8)
994*b30d1939SAndy Fiddaman n = base < 4 ? 1 : 2;
995*b30d1939SAndy Fiddaman else if(base < 32)
996*b30d1939SAndy Fiddaman n = base < 16 ? 3 : 4;
997*b30d1939SAndy Fiddaman else n = base < 64 ? 5 : 6;
998*b30d1939SAndy Fiddaman }
999*b30d1939SAndy Fiddaman else n_s = base == 10 ? -1 : 0;
1000*b30d1939SAndy Fiddaman
1001*b30d1939SAndy Fiddaman int_arg:
1002*b30d1939SAndy Fiddaman #if !_ast_intmax_long || _more_long_int || _more_void_int
1003*b30d1939SAndy Fiddaman if(size == sizeof(Sflong_t))
1004*b30d1939SAndy Fiddaman { lv = argv.ll;
1005*b30d1939SAndy Fiddaman goto long_cvt;
1006*b30d1939SAndy Fiddaman }
1007*b30d1939SAndy Fiddaman else if(sizeof(long) < sizeof(Sflong_t) && size == sizeof(long))
1008*b30d1939SAndy Fiddaman { if(fmt == 'd')
1009*b30d1939SAndy Fiddaman lv = (Sflong_t)argv.l;
1010*b30d1939SAndy Fiddaman else lv = (Sflong_t)argv.ul;
1011*b30d1939SAndy Fiddaman long_cvt:
1012*b30d1939SAndy Fiddaman #if _PACKAGE_ast
1013*b30d1939SAndy Fiddaman if(scale)
1014*b30d1939SAndy Fiddaman { sp = fmtscale(lv, scale);
1015*b30d1939SAndy Fiddaman #if _has_multibyte && defined(mbwidth)
1016*b30d1939SAndy Fiddaman wc = 0;
1017*b30d1939SAndy Fiddaman #endif
1018*b30d1939SAndy Fiddaman goto str_cvt;
1019*b30d1939SAndy Fiddaman }
1020*b30d1939SAndy Fiddaman #endif
1021*b30d1939SAndy Fiddaman if(lv == 0 && precis == 0)
1022*b30d1939SAndy Fiddaman break;
1023*b30d1939SAndy Fiddaman if(lv < 0 && fmt == 'd' )
1024*b30d1939SAndy Fiddaman { flags |= SFFMT_MINUS;
1025*b30d1939SAndy Fiddaman if(lv == HIGHBITL) /* avoid overflow */
1026*b30d1939SAndy Fiddaman { lv = (Sflong_t)(HIGHBITL/base);
1027*b30d1939SAndy Fiddaman *--sp = _Sfdigits[HIGHBITL -
1028*b30d1939SAndy Fiddaman ((Sfulong_t)lv)*base];
1029*b30d1939SAndy Fiddaman }
1030*b30d1939SAndy Fiddaman else lv = -lv;
1031*b30d1939SAndy Fiddaman }
1032*b30d1939SAndy Fiddaman if(n_s < 0) /* base 10 */
1033*b30d1939SAndy Fiddaman { Sflong_t nv;
1034*b30d1939SAndy Fiddaman sfucvt(lv,sp,nv,ssp,Sflong_t,Sfulong_t);
1035*b30d1939SAndy Fiddaman }
1036*b30d1939SAndy Fiddaman else if(n_s > 0) /* base power-of-2 */
1037*b30d1939SAndy Fiddaman { do
1038*b30d1939SAndy Fiddaman { *--sp = ssp[lv&n_s];
1039*b30d1939SAndy Fiddaman } while((lv = ((Sfulong_t)lv) >> n) );
1040*b30d1939SAndy Fiddaman }
1041*b30d1939SAndy Fiddaman else /* general base */
1042*b30d1939SAndy Fiddaman { do
1043*b30d1939SAndy Fiddaman { *--sp = ssp[((Sfulong_t)lv)%base];
1044*b30d1939SAndy Fiddaman } while((lv = ((Sfulong_t)lv)/base) );
1045*b30d1939SAndy Fiddaman }
1046*b30d1939SAndy Fiddaman } else
1047*b30d1939SAndy Fiddaman #endif
1048*b30d1939SAndy Fiddaman if(sizeof(short) < sizeof(int) && size == sizeof(short) )
1049*b30d1939SAndy Fiddaman { if(fmt == 'd')
1050*b30d1939SAndy Fiddaman v = (int)((short)argv.i);
1051*b30d1939SAndy Fiddaman else v = (int)((ushort)argv.i);
1052*b30d1939SAndy Fiddaman goto int_cvt;
1053*b30d1939SAndy Fiddaman }
1054*b30d1939SAndy Fiddaman else if(size == sizeof(char))
1055*b30d1939SAndy Fiddaman { if(fmt != 'd')
1056*b30d1939SAndy Fiddaman v = (int)((uchar)argv.i);
1057*b30d1939SAndy Fiddaman else
1058*b30d1939SAndy Fiddaman {
1059*b30d1939SAndy Fiddaman #if _key_signed
1060*b30d1939SAndy Fiddaman v = (int)((signed char)argv.i);
1061*b30d1939SAndy Fiddaman #else
1062*b30d1939SAndy Fiddaman if(argv.i < 0)
1063*b30d1939SAndy Fiddaman v = -((int)((char)(-argv.i)));
1064*b30d1939SAndy Fiddaman else v = ((int)((char)( argv.i)));
1065*b30d1939SAndy Fiddaman #endif
1066*b30d1939SAndy Fiddaman }
1067*b30d1939SAndy Fiddaman goto int_cvt;
1068*b30d1939SAndy Fiddaman }
1069*b30d1939SAndy Fiddaman else
1070*b30d1939SAndy Fiddaman { v = argv.i;
1071*b30d1939SAndy Fiddaman int_cvt:
1072*b30d1939SAndy Fiddaman #if _PACKAGE_ast
1073*b30d1939SAndy Fiddaman if(scale)
1074*b30d1939SAndy Fiddaman { sp = fmtscale(v, scale);
1075*b30d1939SAndy Fiddaman #if _has_multibyte && defined(mbwidth)
1076*b30d1939SAndy Fiddaman wc = 0;
1077*b30d1939SAndy Fiddaman #endif
1078*b30d1939SAndy Fiddaman goto str_cvt;
1079*b30d1939SAndy Fiddaman }
1080*b30d1939SAndy Fiddaman #endif
1081*b30d1939SAndy Fiddaman if(v == 0 && precis == 0)
1082*b30d1939SAndy Fiddaman break;
1083*b30d1939SAndy Fiddaman if(v < 0 && fmt == 'd' )
1084*b30d1939SAndy Fiddaman { flags |= SFFMT_MINUS;
1085*b30d1939SAndy Fiddaman if(v == HIGHBITI) /* avoid overflow */
1086*b30d1939SAndy Fiddaman { v = (int)(HIGHBITI/base);
1087*b30d1939SAndy Fiddaman *--sp = _Sfdigits[HIGHBITI -
1088*b30d1939SAndy Fiddaman ((uint)v)*base];
1089*b30d1939SAndy Fiddaman }
1090*b30d1939SAndy Fiddaman else v = -v;
1091*b30d1939SAndy Fiddaman }
1092*b30d1939SAndy Fiddaman if(n_s < 0) /* base 10 */
1093*b30d1939SAndy Fiddaman { sfucvt(v,sp,n,ssp,int,uint);
1094*b30d1939SAndy Fiddaman }
1095*b30d1939SAndy Fiddaman else if(n_s > 0) /* base power-of-2 */
1096*b30d1939SAndy Fiddaman { do
1097*b30d1939SAndy Fiddaman { *--sp = ssp[v&n_s];
1098*b30d1939SAndy Fiddaman } while((v = ((uint)v) >> n) );
1099*b30d1939SAndy Fiddaman }
1100*b30d1939SAndy Fiddaman else /* n_s == 0, general base */
1101*b30d1939SAndy Fiddaman { do
1102*b30d1939SAndy Fiddaman { *--sp = ssp[((uint)v)%base];
1103*b30d1939SAndy Fiddaman } while((v = ((uint)v)/base) );
1104*b30d1939SAndy Fiddaman }
1105*b30d1939SAndy Fiddaman }
1106*b30d1939SAndy Fiddaman
1107*b30d1939SAndy Fiddaman if(n_s < 0 && (flags&SFFMT_THOUSAND) && (n = endsp-sp) > 3)
1108*b30d1939SAndy Fiddaman { if((n %= 3) == 0)
1109*b30d1939SAndy Fiddaman n = 3;
1110*b30d1939SAndy Fiddaman for(ep = buf+SLACK, endep = ep + n; ; )
1111*b30d1939SAndy Fiddaman { while(ep < endep)
1112*b30d1939SAndy Fiddaman *ep++ = *sp++;
1113*b30d1939SAndy Fiddaman if(sp == endsp)
1114*b30d1939SAndy Fiddaman break;
1115*b30d1939SAndy Fiddaman if(sp <= endsp-3)
1116*b30d1939SAndy Fiddaman *ep++ = thousand;
1117*b30d1939SAndy Fiddaman endep = ep+3;
1118*b30d1939SAndy Fiddaman }
1119*b30d1939SAndy Fiddaman sp = buf+SLACK;
1120*b30d1939SAndy Fiddaman endsp = ep;
1121*b30d1939SAndy Fiddaman }
1122*b30d1939SAndy Fiddaman
1123*b30d1939SAndy Fiddaman /* zero padding for precision if have room in buffer */
1124*b30d1939SAndy Fiddaman if(precis > 0 && (precis -= (endsp-sp)) < (sp-buf)-64)
1125*b30d1939SAndy Fiddaman while(precis-- > 0)
1126*b30d1939SAndy Fiddaman *--sp = '0';
1127*b30d1939SAndy Fiddaman
1128*b30d1939SAndy Fiddaman if(flags&SFFMT_ALTER) /* prefix */
1129*b30d1939SAndy Fiddaman { if(fmt == 'o')
1130*b30d1939SAndy Fiddaman { if(*sp != '0')
1131*b30d1939SAndy Fiddaman *--sp = '0';
1132*b30d1939SAndy Fiddaman }
1133*b30d1939SAndy Fiddaman else
1134*b30d1939SAndy Fiddaman { if(width > 0 && (flags&SFFMT_ZERO))
1135*b30d1939SAndy Fiddaman { /* do 0 padding first */
1136*b30d1939SAndy Fiddaman if(fmt == 'x' || fmt == 'X')
1137*b30d1939SAndy Fiddaman n = 0;
1138*b30d1939SAndy Fiddaman else if(dot < 2)
1139*b30d1939SAndy Fiddaman n = width;
1140*b30d1939SAndy Fiddaman else n = base < 10 ? 2 : 3;
1141*b30d1939SAndy Fiddaman n += (flags&(SFFMT_MINUS|SFFMT_SIGN)) ?
1142*b30d1939SAndy Fiddaman 1 : 0;
1143*b30d1939SAndy Fiddaman n = width - (n + (endsp-sp));
1144*b30d1939SAndy Fiddaman while(n-- > 0)
1145*b30d1939SAndy Fiddaman *--sp = '0';
1146*b30d1939SAndy Fiddaman }
1147*b30d1939SAndy Fiddaman if(fmt == 'x' || fmt == 'X')
1148*b30d1939SAndy Fiddaman { *--sp = (char)fmt;
1149*b30d1939SAndy Fiddaman *--sp = '0';
1150*b30d1939SAndy Fiddaman }
1151*b30d1939SAndy Fiddaman else if(dot >= 2)
1152*b30d1939SAndy Fiddaman { /* base#value notation */
1153*b30d1939SAndy Fiddaman *--sp = '#';
1154*b30d1939SAndy Fiddaman if(base < 10)
1155*b30d1939SAndy Fiddaman *--sp = (char)('0'+base);
1156*b30d1939SAndy Fiddaman else
1157*b30d1939SAndy Fiddaman { *--sp = _Sfdec[(base <<= 1)+1];
1158*b30d1939SAndy Fiddaman *--sp = _Sfdec[base];
1159*b30d1939SAndy Fiddaman }
1160*b30d1939SAndy Fiddaman }
1161*b30d1939SAndy Fiddaman }
1162*b30d1939SAndy Fiddaman }
1163*b30d1939SAndy Fiddaman
1164*b30d1939SAndy Fiddaman break;
1165*b30d1939SAndy Fiddaman
1166*b30d1939SAndy Fiddaman case 'g': case 'G': /* these ultimately become %e or %f */
1167*b30d1939SAndy Fiddaman case 'a': case 'A':
1168*b30d1939SAndy Fiddaman case 'e': case 'E':
1169*b30d1939SAndy Fiddaman case 'f': case 'F':
1170*b30d1939SAndy Fiddaman #if !_ast_fltmax_double
1171*b30d1939SAndy Fiddaman if(size == sizeof(Sfdouble_t) )
1172*b30d1939SAndy Fiddaman { v = SFFMT_LDOUBLE;
1173*b30d1939SAndy Fiddaman valp = &argv.ld;
1174*b30d1939SAndy Fiddaman dval = argv.ld;
1175*b30d1939SAndy Fiddaman }
1176*b30d1939SAndy Fiddaman else
1177*b30d1939SAndy Fiddaman #endif
1178*b30d1939SAndy Fiddaman { v = 0;
1179*b30d1939SAndy Fiddaman valp = &argv.d;
1180*b30d1939SAndy Fiddaman dval = argv.d;
1181*b30d1939SAndy Fiddaman }
1182*b30d1939SAndy Fiddaman
1183*b30d1939SAndy Fiddaman if(fmt == 'e' || fmt == 'E' && (v |= SFFMT_UPPER))
1184*b30d1939SAndy Fiddaman { v |= SFFMT_EFORMAT;
1185*b30d1939SAndy Fiddaman n = (precis = precis < 0 ? FPRECIS : precis)+1;
1186*b30d1939SAndy Fiddaman ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(n,SF_FDIGITS),
1187*b30d1939SAndy Fiddaman &decpt, &sign, &n_s, v);
1188*b30d1939SAndy Fiddaman goto e_format;
1189*b30d1939SAndy Fiddaman }
1190*b30d1939SAndy Fiddaman else if(fmt == 'f' || fmt == 'F' && (v |= SFFMT_UPPER))
1191*b30d1939SAndy Fiddaman { precis = precis < 0 ? FPRECIS : precis;
1192*b30d1939SAndy Fiddaman ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(precis,SF_FDIGITS),
1193*b30d1939SAndy Fiddaman &decpt, &sign, &n_s, v);
1194*b30d1939SAndy Fiddaman goto f_format;
1195*b30d1939SAndy Fiddaman }
1196*b30d1939SAndy Fiddaman else if(fmt == 'a' || fmt == 'A' && (v |= SFFMT_UPPER))
1197*b30d1939SAndy Fiddaman { v |= SFFMT_AFORMAT;
1198*b30d1939SAndy Fiddaman if(precis < 0)
1199*b30d1939SAndy Fiddaman { if(v & SFFMT_LDOUBLE)
1200*b30d1939SAndy Fiddaman precis = 2*(sizeof(Sfdouble_t) - 2);
1201*b30d1939SAndy Fiddaman else precis = 2*(sizeof(double) - 2);
1202*b30d1939SAndy Fiddaman }
1203*b30d1939SAndy Fiddaman n = precis + 1;
1204*b30d1939SAndy Fiddaman ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(n,SF_FDIGITS),
1205*b30d1939SAndy Fiddaman &decpt, &sign, &n_s, v);
1206*b30d1939SAndy Fiddaman
1207*b30d1939SAndy Fiddaman sp = endsp = buf+1; /* reserve space for sign */
1208*b30d1939SAndy Fiddaman *endsp++ = '0';
1209*b30d1939SAndy Fiddaman *endsp++ = fmt == 'a' ? 'x' : 'X';
1210*b30d1939SAndy Fiddaman if (!isxdigit(*ep))
1211*b30d1939SAndy Fiddaman goto infinite;
1212*b30d1939SAndy Fiddaman if (base < 0)
1213*b30d1939SAndy Fiddaman base = 0;
1214*b30d1939SAndy Fiddaman goto a_format;
1215*b30d1939SAndy Fiddaman }
1216*b30d1939SAndy Fiddaman else /* 'g' or 'G' format */
1217*b30d1939SAndy Fiddaman { precis = precis < 0 ? FPRECIS : precis == 0 ? 1 : precis;
1218*b30d1939SAndy Fiddaman if(fmt == 'G')
1219*b30d1939SAndy Fiddaman v |= SFFMT_UPPER;
1220*b30d1939SAndy Fiddaman v |= SFFMT_EFORMAT;
1221*b30d1939SAndy Fiddaman ep = _sfcvt(valp,tmp+1,sizeof(tmp)-1, min(precis,SF_FDIGITS),
1222*b30d1939SAndy Fiddaman &decpt, &sign, &n_s, v);
1223*b30d1939SAndy Fiddaman if(dval == 0.)
1224*b30d1939SAndy Fiddaman decpt = 1;
1225*b30d1939SAndy Fiddaman else if(*ep == 'I')
1226*b30d1939SAndy Fiddaman goto infinite;
1227*b30d1939SAndy Fiddaman
1228*b30d1939SAndy Fiddaman if(!(flags&SFFMT_ALTER))
1229*b30d1939SAndy Fiddaman { /* zap trailing 0s */
1230*b30d1939SAndy Fiddaman if((n = n_s) > precis)
1231*b30d1939SAndy Fiddaman n = precis;
1232*b30d1939SAndy Fiddaman while((n -= 1) >= 1 && ep[n] == '0')
1233*b30d1939SAndy Fiddaman ;
1234*b30d1939SAndy Fiddaman n += 1;
1235*b30d1939SAndy Fiddaman }
1236*b30d1939SAndy Fiddaman else n = precis;
1237*b30d1939SAndy Fiddaman
1238*b30d1939SAndy Fiddaman if(decpt < -3 || decpt > precis)
1239*b30d1939SAndy Fiddaman { precis = n-1;
1240*b30d1939SAndy Fiddaman goto e_format;
1241*b30d1939SAndy Fiddaman }
1242*b30d1939SAndy Fiddaman else
1243*b30d1939SAndy Fiddaman { precis = n - decpt;
1244*b30d1939SAndy Fiddaman goto f_format;
1245*b30d1939SAndy Fiddaman }
1246*b30d1939SAndy Fiddaman }
1247*b30d1939SAndy Fiddaman
1248*b30d1939SAndy Fiddaman e_format: /* build the x.yyyy string */
1249*b30d1939SAndy Fiddaman if(isalpha(*ep))
1250*b30d1939SAndy Fiddaman goto infinite;
1251*b30d1939SAndy Fiddaman sp = endsp = buf+1; /* reserve space for sign */
1252*b30d1939SAndy Fiddaman if (base <= 0)
1253*b30d1939SAndy Fiddaman base = 2;
1254*b30d1939SAndy Fiddaman a_format:
1255*b30d1939SAndy Fiddaman *endsp++ = *ep ? *ep++ : '0';
1256*b30d1939SAndy Fiddaman
1257*b30d1939SAndy Fiddaman SFSETLOCALE(&decimal,&thousand);
1258*b30d1939SAndy Fiddaman if(precis > 0 || (flags&SFFMT_ALTER))
1259*b30d1939SAndy Fiddaman *endsp++ = decimal;
1260*b30d1939SAndy Fiddaman ssp = endsp;
1261*b30d1939SAndy Fiddaman endep = ep+precis;
1262*b30d1939SAndy Fiddaman while((*endsp++ = *ep++) && ep <= endep)
1263*b30d1939SAndy Fiddaman ;
1264*b30d1939SAndy Fiddaman precis -= (endsp -= 1) - ssp;
1265*b30d1939SAndy Fiddaman
1266*b30d1939SAndy Fiddaman /* build the exponent */
1267*b30d1939SAndy Fiddaman ep = endep = buf+(sizeof(buf)-1);
1268*b30d1939SAndy Fiddaman if(dval != 0.)
1269*b30d1939SAndy Fiddaman { if((n = decpt - 1) < 0)
1270*b30d1939SAndy Fiddaman n = -n;
1271*b30d1939SAndy Fiddaman while(n > 9)
1272*b30d1939SAndy Fiddaman { v = n; n /= 10;
1273*b30d1939SAndy Fiddaman *--ep = (char)('0' + (v - n*10));
1274*b30d1939SAndy Fiddaman }
1275*b30d1939SAndy Fiddaman }
1276*b30d1939SAndy Fiddaman else n = 0;
1277*b30d1939SAndy Fiddaman *--ep = (char)('0' + n);
1278*b30d1939SAndy Fiddaman while((endep-ep) < base && ep > (buf+2)) /* at least base digits in exponent */
1279*b30d1939SAndy Fiddaman *--ep = '0';
1280*b30d1939SAndy Fiddaman
1281*b30d1939SAndy Fiddaman /* the e/Exponent separator and sign */
1282*b30d1939SAndy Fiddaman *--ep = (decpt > 0 || dval == 0.) ? '+' : '-';
1283*b30d1939SAndy Fiddaman *--ep = fmt == 'a' ? 'p' : fmt == 'A' ? 'P' :
1284*b30d1939SAndy Fiddaman isupper(fmt) ? 'E' : 'e';
1285*b30d1939SAndy Fiddaman
1286*b30d1939SAndy Fiddaman goto end_aefg;
1287*b30d1939SAndy Fiddaman
1288*b30d1939SAndy Fiddaman f_format: /* data before the decimal point */
1289*b30d1939SAndy Fiddaman if(isalpha(*ep))
1290*b30d1939SAndy Fiddaman {
1291*b30d1939SAndy Fiddaman infinite:
1292*b30d1939SAndy Fiddaman flags &= ~SFFMT_ZERO;
1293*b30d1939SAndy Fiddaman endsp = (sp = ep)+sfslen();
1294*b30d1939SAndy Fiddaman ep = endep;
1295*b30d1939SAndy Fiddaman precis = 0;
1296*b30d1939SAndy Fiddaman goto end_aefg;
1297*b30d1939SAndy Fiddaman }
1298*b30d1939SAndy Fiddaman
1299*b30d1939SAndy Fiddaman SFSETLOCALE(&decimal,&thousand);
1300*b30d1939SAndy Fiddaman endsp = sp = buf+1; /* save a space for sign */
1301*b30d1939SAndy Fiddaman endep = ep+decpt;
1302*b30d1939SAndy Fiddaman if(decpt > 3 && (flags&SFFMT_THOUSAND) )
1303*b30d1939SAndy Fiddaman { if((n = decpt%3) == 0)
1304*b30d1939SAndy Fiddaman n = 3;
1305*b30d1939SAndy Fiddaman while(ep < endep && (*endsp++ = *ep++) )
1306*b30d1939SAndy Fiddaman { if(--n == 0 && (ep <= endep-3) )
1307*b30d1939SAndy Fiddaman { *endsp++ = thousand;
1308*b30d1939SAndy Fiddaman n = 3;
1309*b30d1939SAndy Fiddaman }
1310*b30d1939SAndy Fiddaman }
1311*b30d1939SAndy Fiddaman }
1312*b30d1939SAndy Fiddaman else
1313*b30d1939SAndy Fiddaman { while(ep < endep && (*endsp++ = *ep++))
1314*b30d1939SAndy Fiddaman ;
1315*b30d1939SAndy Fiddaman }
1316*b30d1939SAndy Fiddaman if(endsp == sp)
1317*b30d1939SAndy Fiddaman *endsp++ = '0';
1318*b30d1939SAndy Fiddaman
1319*b30d1939SAndy Fiddaman if(precis > 0 || (flags&SFFMT_ALTER))
1320*b30d1939SAndy Fiddaman *endsp++ = decimal;
1321*b30d1939SAndy Fiddaman
1322*b30d1939SAndy Fiddaman if((n = -decpt) > 0)
1323*b30d1939SAndy Fiddaman { /* output zeros for negative exponent */
1324*b30d1939SAndy Fiddaman ssp = endsp + min(n,precis);
1325*b30d1939SAndy Fiddaman precis -= n;
1326*b30d1939SAndy Fiddaman while(endsp < ssp)
1327*b30d1939SAndy Fiddaman *endsp++ = '0';
1328*b30d1939SAndy Fiddaman }
1329*b30d1939SAndy Fiddaman
1330*b30d1939SAndy Fiddaman ssp = endsp;
1331*b30d1939SAndy Fiddaman endep = ep+precis;
1332*b30d1939SAndy Fiddaman while((*endsp++ = *ep++) && ep <= endep)
1333*b30d1939SAndy Fiddaman ;
1334*b30d1939SAndy Fiddaman precis -= (endsp -= 1) - ssp;
1335*b30d1939SAndy Fiddaman ep = endep;
1336*b30d1939SAndy Fiddaman end_aefg:
1337*b30d1939SAndy Fiddaman flags |= SFFMT_FLOAT;
1338*b30d1939SAndy Fiddaman if(sign)
1339*b30d1939SAndy Fiddaman flags |= SFFMT_MINUS;
1340*b30d1939SAndy Fiddaman break;
1341*b30d1939SAndy Fiddaman }
1342*b30d1939SAndy Fiddaman
1343*b30d1939SAndy Fiddaman if(flags == 0 && width <= 0)
1344*b30d1939SAndy Fiddaman goto do_output;
1345*b30d1939SAndy Fiddaman
1346*b30d1939SAndy Fiddaman if(flags&SFFMT_PREFIX)
1347*b30d1939SAndy Fiddaman fmt = (flags&SFFMT_MINUS) ? '-' : (flags&SFFMT_SIGN) ? '+' : ' ';
1348*b30d1939SAndy Fiddaman
1349*b30d1939SAndy Fiddaman n = (endsp-sp) + (endep-ep) + (precis <= 0 ? 0 : precis) +
1350*b30d1939SAndy Fiddaman ((flags&SFFMT_PREFIX) ? 1 : 0);
1351*b30d1939SAndy Fiddaman if((v = width-n) <= 0)
1352*b30d1939SAndy Fiddaman v = 0;
1353*b30d1939SAndy Fiddaman else if(!(flags&SFFMT_ZERO)) /* right padding */
1354*b30d1939SAndy Fiddaman { if(flags&SFFMT_LEFT)
1355*b30d1939SAndy Fiddaman v = -v;
1356*b30d1939SAndy Fiddaman else if(flags&SFFMT_PREFIX) /* blank padding, output prefix now */
1357*b30d1939SAndy Fiddaman { *--sp = fmt;
1358*b30d1939SAndy Fiddaman flags &= ~SFFMT_PREFIX;
1359*b30d1939SAndy Fiddaman }
1360*b30d1939SAndy Fiddaman }
1361*b30d1939SAndy Fiddaman
1362*b30d1939SAndy Fiddaman if(flags&SFFMT_PREFIX) /* put out the prefix */
1363*b30d1939SAndy Fiddaman { SFputc(f,fmt);
1364*b30d1939SAndy Fiddaman if(fmt != ' ')
1365*b30d1939SAndy Fiddaman flags |= SFFMT_ZERO;
1366*b30d1939SAndy Fiddaman }
1367*b30d1939SAndy Fiddaman
1368*b30d1939SAndy Fiddaman if((n = v) > 0) /* left padding */
1369*b30d1939SAndy Fiddaman { v = (flags&SFFMT_ZERO) ? '0' : ' ';
1370*b30d1939SAndy Fiddaman SFnputc(f,v,n);
1371*b30d1939SAndy Fiddaman }
1372*b30d1939SAndy Fiddaman
1373*b30d1939SAndy Fiddaman if((n = precis) > 0 && !(flags&SFFMT_FLOAT))
1374*b30d1939SAndy Fiddaman { /* padding for integer precision */
1375*b30d1939SAndy Fiddaman SFnputc(f,'0',n);
1376*b30d1939SAndy Fiddaman precis = 0;
1377*b30d1939SAndy Fiddaman }
1378*b30d1939SAndy Fiddaman
1379*b30d1939SAndy Fiddaman do_output:
1380*b30d1939SAndy Fiddaman if((n = endsp-sp) > 0)
1381*b30d1939SAndy Fiddaman SFwrite(f,sp,n);
1382*b30d1939SAndy Fiddaman
1383*b30d1939SAndy Fiddaman if(flags&(SFFMT_FLOAT|SFFMT_LEFT))
1384*b30d1939SAndy Fiddaman { /* SFFMT_FLOAT: right padding for float precision */
1385*b30d1939SAndy Fiddaman if((n = precis) > 0)
1386*b30d1939SAndy Fiddaman SFnputc(f,'0',n);
1387*b30d1939SAndy Fiddaman
1388*b30d1939SAndy Fiddaman /* SFFMT_FLOAT: the exponent of %eE */
1389*b30d1939SAndy Fiddaman if((n = endep - (sp = ep)) > 0)
1390*b30d1939SAndy Fiddaman SFwrite(f,sp,n);
1391*b30d1939SAndy Fiddaman
1392*b30d1939SAndy Fiddaman /* SFFMT_LEFT: right padding */
1393*b30d1939SAndy Fiddaman if((n = -v) > 0)
1394*b30d1939SAndy Fiddaman { SFnputc(f,' ',n); }
1395*b30d1939SAndy Fiddaman }
1396*b30d1939SAndy Fiddaman }
1397*b30d1939SAndy Fiddaman
1398*b30d1939SAndy Fiddaman pop_fmt:
1399*b30d1939SAndy Fiddaman if(fp)
1400*b30d1939SAndy Fiddaman { free(fp);
1401*b30d1939SAndy Fiddaman fp = NIL(Fmtpos_t*);
1402*b30d1939SAndy Fiddaman }
1403*b30d1939SAndy Fiddaman while((fm = fmstk) ) /* pop the format stack and continue */
1404*b30d1939SAndy Fiddaman { if(fm->eventf)
1405*b30d1939SAndy Fiddaman { if(!form || !form[0])
1406*b30d1939SAndy Fiddaman (*fm->eventf)(f,SF_FINAL,NIL(Void_t*),ft);
1407*b30d1939SAndy Fiddaman else if((*fm->eventf)(f,SF_DPOP,(Void_t*)form,ft) < 0)
1408*b30d1939SAndy Fiddaman goto loop_fmt;
1409*b30d1939SAndy Fiddaman }
1410*b30d1939SAndy Fiddaman
1411*b30d1939SAndy Fiddaman fmstk = fm->next;
1412*b30d1939SAndy Fiddaman if((form = fm->form) )
1413*b30d1939SAndy Fiddaman { SFMBCPY(&fmbs,&fm->mbs);
1414*b30d1939SAndy Fiddaman va_copy(args, fm->args);
1415*b30d1939SAndy Fiddaman oform = fm->oform;
1416*b30d1939SAndy Fiddaman va_copy(oargs,fm->oargs);
1417*b30d1939SAndy Fiddaman argn = fm->argn;
1418*b30d1939SAndy Fiddaman fp = fm->fp;
1419*b30d1939SAndy Fiddaman }
1420*b30d1939SAndy Fiddaman ft = fm->ft;
1421*b30d1939SAndy Fiddaman free(fm);
1422*b30d1939SAndy Fiddaman if(form && form[0])
1423*b30d1939SAndy Fiddaman goto loop_fmt;
1424*b30d1939SAndy Fiddaman }
1425*b30d1939SAndy Fiddaman
1426*b30d1939SAndy Fiddaman done:
1427*b30d1939SAndy Fiddaman if(fp)
1428*b30d1939SAndy Fiddaman free(fp);
1429*b30d1939SAndy Fiddaman while((fm = fmstk) )
1430*b30d1939SAndy Fiddaman { if(fm->eventf)
1431*b30d1939SAndy Fiddaman (*fm->eventf)(f,SF_FINAL,NIL(Void_t*),fm->ft);
1432*b30d1939SAndy Fiddaman fmstk = fm->next;
1433*b30d1939SAndy Fiddaman free(fm);
1434*b30d1939SAndy Fiddaman }
1435*b30d1939SAndy Fiddaman
1436*b30d1939SAndy Fiddaman SFEND(f);
1437*b30d1939SAndy Fiddaman
1438*b30d1939SAndy Fiddaman n = f->next - f->data;
1439*b30d1939SAndy Fiddaman if((sp = (char*)f->data) == data)
1440*b30d1939SAndy Fiddaman f->endw = f->endr = f->endb = f->data = NIL(uchar*);
1441*b30d1939SAndy Fiddaman f->next = f->data;
1442*b30d1939SAndy Fiddaman
1443*b30d1939SAndy Fiddaman if((((flags = f->flags)&SF_SHARE) && !(flags&SF_PUBLIC) ) ||
1444*b30d1939SAndy Fiddaman (n > 0 && (sp == data || (flags&SF_LINE) ) ) )
1445*b30d1939SAndy Fiddaman (void)SFWRITE(f,(Void_t*)sp,n);
1446*b30d1939SAndy Fiddaman else f->next += n;
1447*b30d1939SAndy Fiddaman
1448*b30d1939SAndy Fiddaman SFOPEN(f,0);
1449*b30d1939SAndy Fiddaman SFMTXRETURN(f, n_output);
1450*b30d1939SAndy Fiddaman }
1451