2 91c13e54 2004-02-29 devnull * The authors of this software are Rob Pike and Ken Thompson.
3 91c13e54 2004-02-29 devnull * Copyright (c) 2002 by Lucent Technologies.
4 91c13e54 2004-02-29 devnull * Permission to use, copy, modify, and distribute this software for any
5 91c13e54 2004-02-29 devnull * purpose without fee is hereby granted, provided that this entire notice
6 91c13e54 2004-02-29 devnull * is included in all copies of any software which is or includes a copy
7 91c13e54 2004-02-29 devnull * or modification of this software and in all copies of the supporting
8 91c13e54 2004-02-29 devnull * documentation for such software.
9 91c13e54 2004-02-29 devnull * THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED
10 c90dd38f 2004-12-29 devnull * WARRANTY. IN PARTICULAR, NEITHER THE AUTHORS NOR LUCENT TECHNOLOGIES MAKE
11 c90dd38f 2004-12-29 devnull * ANY REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE MERCHANTABILITY
12 91c13e54 2004-02-29 devnull * OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR PURPOSE.
14 91c13e54 2004-02-29 devnull #include <stdarg.h>
15 91c13e54 2004-02-29 devnull #include <string.h>
16 e5aa96ac 2004-12-26 devnull #include "plan9.h"
17 91c13e54 2004-02-29 devnull #include "fmt.h"
18 91c13e54 2004-02-29 devnull #include "fmtdef.h"
20 91c13e54 2004-02-29 devnull /* format the output into f->to and return the number of characters fmted */
22 91c13e54 2004-02-29 devnull dofmt(Fmt *f, char *fmt)
24 91c13e54 2004-02-29 devnull Rune rune, *rt, *rs;
26 91c13e54 2004-02-29 devnull char *t, *s;
27 91c13e54 2004-02-29 devnull int n, nfmt;
29 91c13e54 2004-02-29 devnull nfmt = f->nfmt;
31 91c13e54 2004-02-29 devnull if(f->runes){
32 91c13e54 2004-02-29 devnull rt = (Rune*)f->to;
33 91c13e54 2004-02-29 devnull rs = (Rune*)f->stop;
34 91c13e54 2004-02-29 devnull while((r = *(uchar*)fmt) && r != '%'){
35 91c13e54 2004-02-29 devnull if(r < Runeself)
38 91c13e54 2004-02-29 devnull fmt += chartorune(&rune, fmt);
39 91c13e54 2004-02-29 devnull r = rune;
41 91c13e54 2004-02-29 devnull FMTRCHAR(f, rt, rs, r);
44 91c13e54 2004-02-29 devnull f->nfmt += rt - (Rune *)f->to;
45 91c13e54 2004-02-29 devnull f->to = rt;
47 91c13e54 2004-02-29 devnull return f->nfmt - nfmt;
48 91c13e54 2004-02-29 devnull f->stop = rs;
50 91c13e54 2004-02-29 devnull t = (char*)f->to;
51 91c13e54 2004-02-29 devnull s = (char*)f->stop;
52 91c13e54 2004-02-29 devnull while((r = *(uchar*)fmt) && r != '%'){
53 91c13e54 2004-02-29 devnull if(r < Runeself){
54 91c13e54 2004-02-29 devnull FMTCHAR(f, t, s, r);
57 91c13e54 2004-02-29 devnull n = chartorune(&rune, fmt);
58 91c13e54 2004-02-29 devnull if(t + n > s){
59 91c13e54 2004-02-29 devnull t = (char*)__fmtflush(f, t, n);
60 91c13e54 2004-02-29 devnull if(t != nil)
61 91c13e54 2004-02-29 devnull s = (char*)f->stop;
63 91c13e54 2004-02-29 devnull return -1;
65 91c13e54 2004-02-29 devnull while(n--)
66 91c13e54 2004-02-29 devnull *t++ = *fmt++;
70 91c13e54 2004-02-29 devnull f->nfmt += t - (char *)f->to;
71 91c13e54 2004-02-29 devnull f->to = t;
73 91c13e54 2004-02-29 devnull return f->nfmt - nfmt;
74 91c13e54 2004-02-29 devnull f->stop = s;
77 91c13e54 2004-02-29 devnull fmt = (char*)__fmtdispatch(f, fmt, 0);
78 91c13e54 2004-02-29 devnull if(fmt == nil)
79 91c13e54 2004-02-29 devnull return -1;
81 91c13e54 2004-02-29 devnull return 0; /* not reached */
85 91c13e54 2004-02-29 devnull __fmtflush(Fmt *f, void *t, int len)
87 91c13e54 2004-02-29 devnull if(f->runes)
88 91c13e54 2004-02-29 devnull f->nfmt += (Rune*)t - (Rune*)f->to;
90 91c13e54 2004-02-29 devnull f->nfmt += (char*)t - (char *)f->to;
91 91c13e54 2004-02-29 devnull f->to = t;
92 91c13e54 2004-02-29 devnull if(f->flush == 0 || (*f->flush)(f) == 0 || (char*)f->to + len > (char*)f->stop){
93 91c13e54 2004-02-29 devnull f->stop = f->to;
94 91c13e54 2004-02-29 devnull return nil;
96 91c13e54 2004-02-29 devnull return f->to;
100 91c13e54 2004-02-29 devnull * put a formatted block of memory sz bytes long of n runes into the output buffer,
101 91c13e54 2004-02-29 devnull * left/right justified in a field of at least f->width charactes
104 91c13e54 2004-02-29 devnull __fmtpad(Fmt *f, int n)
106 91c13e54 2004-02-29 devnull char *t, *s;
109 91c13e54 2004-02-29 devnull t = (char*)f->to;
110 91c13e54 2004-02-29 devnull s = (char*)f->stop;
111 91c13e54 2004-02-29 devnull for(i = 0; i < n; i++)
112 91c13e54 2004-02-29 devnull FMTCHAR(f, t, s, ' ');
113 91c13e54 2004-02-29 devnull f->nfmt += t - (char *)f->to;
114 91c13e54 2004-02-29 devnull f->to = t;
115 91c13e54 2004-02-29 devnull return 0;
119 91c13e54 2004-02-29 devnull __rfmtpad(Fmt *f, int n)
121 91c13e54 2004-02-29 devnull Rune *t, *s;
124 91c13e54 2004-02-29 devnull t = (Rune*)f->to;
125 91c13e54 2004-02-29 devnull s = (Rune*)f->stop;
126 91c13e54 2004-02-29 devnull for(i = 0; i < n; i++)
127 91c13e54 2004-02-29 devnull FMTRCHAR(f, t, s, ' ');
128 91c13e54 2004-02-29 devnull f->nfmt += t - (Rune *)f->to;
129 91c13e54 2004-02-29 devnull f->to = t;
130 91c13e54 2004-02-29 devnull return 0;
134 91c13e54 2004-02-29 devnull __fmtcpy(Fmt *f, const void *vm, int n, int sz)
136 91c13e54 2004-02-29 devnull Rune *rt, *rs, r;
137 91c13e54 2004-02-29 devnull char *t, *s, *m, *me;
138 91c13e54 2004-02-29 devnull ulong fl;
139 91c13e54 2004-02-29 devnull int nc, w;
141 91c13e54 2004-02-29 devnull m = (char*)vm;
142 91c13e54 2004-02-29 devnull me = m + sz;
143 91c13e54 2004-02-29 devnull w = f->width;
144 91c13e54 2004-02-29 devnull fl = f->flags;
145 91c13e54 2004-02-29 devnull if((fl & FmtPrec) && n > f->prec)
146 91c13e54 2004-02-29 devnull n = f->prec;
147 91c13e54 2004-02-29 devnull if(f->runes){
148 91c13e54 2004-02-29 devnull if(!(fl & FmtLeft) && __rfmtpad(f, w - n) < 0)
149 91c13e54 2004-02-29 devnull return -1;
150 91c13e54 2004-02-29 devnull rt = (Rune*)f->to;
151 91c13e54 2004-02-29 devnull rs = (Rune*)f->stop;
152 91c13e54 2004-02-29 devnull for(nc = n; nc > 0; nc--){
153 91c13e54 2004-02-29 devnull r = *(uchar*)m;
154 91c13e54 2004-02-29 devnull if(r < Runeself)
156 91c13e54 2004-02-29 devnull else if((me - m) >= UTFmax || fullrune(m, me-m))
157 91c13e54 2004-02-29 devnull m += chartorune(&r, m);
160 91c13e54 2004-02-29 devnull FMTRCHAR(f, rt, rs, r);
162 91c13e54 2004-02-29 devnull f->nfmt += rt - (Rune *)f->to;
163 91c13e54 2004-02-29 devnull f->to = rt;
164 91c13e54 2004-02-29 devnull if(fl & FmtLeft && __rfmtpad(f, w - n) < 0)
165 91c13e54 2004-02-29 devnull return -1;
167 91c13e54 2004-02-29 devnull if(!(fl & FmtLeft) && __fmtpad(f, w - n) < 0)
168 91c13e54 2004-02-29 devnull return -1;
169 91c13e54 2004-02-29 devnull t = (char*)f->to;
170 91c13e54 2004-02-29 devnull s = (char*)f->stop;
171 91c13e54 2004-02-29 devnull for(nc = n; nc > 0; nc--){
172 91c13e54 2004-02-29 devnull r = *(uchar*)m;
173 91c13e54 2004-02-29 devnull if(r < Runeself)
175 91c13e54 2004-02-29 devnull else if((me - m) >= UTFmax || fullrune(m, me-m))
176 91c13e54 2004-02-29 devnull m += chartorune(&r, m);
179 91c13e54 2004-02-29 devnull FMTRUNE(f, t, s, r);
181 91c13e54 2004-02-29 devnull f->nfmt += t - (char *)f->to;
182 91c13e54 2004-02-29 devnull f->to = t;
183 91c13e54 2004-02-29 devnull if(fl & FmtLeft && __fmtpad(f, w - n) < 0)
184 91c13e54 2004-02-29 devnull return -1;
186 91c13e54 2004-02-29 devnull return 0;
190 91c13e54 2004-02-29 devnull __fmtrcpy(Fmt *f, const void *vm, int n)
192 91c13e54 2004-02-29 devnull Rune r, *m, *me, *rt, *rs;
193 91c13e54 2004-02-29 devnull char *t, *s;
194 91c13e54 2004-02-29 devnull ulong fl;
197 91c13e54 2004-02-29 devnull m = (Rune*)vm;
198 91c13e54 2004-02-29 devnull w = f->width;
199 91c13e54 2004-02-29 devnull fl = f->flags;
200 91c13e54 2004-02-29 devnull if((fl & FmtPrec) && n > f->prec)
201 91c13e54 2004-02-29 devnull n = f->prec;
202 91c13e54 2004-02-29 devnull if(f->runes){
203 91c13e54 2004-02-29 devnull if(!(fl & FmtLeft) && __rfmtpad(f, w - n) < 0)
204 91c13e54 2004-02-29 devnull return -1;
205 91c13e54 2004-02-29 devnull rt = (Rune*)f->to;
206 91c13e54 2004-02-29 devnull rs = (Rune*)f->stop;
207 91c13e54 2004-02-29 devnull for(me = m + n; m < me; m++)
208 91c13e54 2004-02-29 devnull FMTRCHAR(f, rt, rs, *m);
209 91c13e54 2004-02-29 devnull f->nfmt += rt - (Rune *)f->to;
210 91c13e54 2004-02-29 devnull f->to = rt;
211 91c13e54 2004-02-29 devnull if(fl & FmtLeft && __rfmtpad(f, w - n) < 0)
212 91c13e54 2004-02-29 devnull return -1;
214 91c13e54 2004-02-29 devnull if(!(fl & FmtLeft) && __fmtpad(f, w - n) < 0)
215 91c13e54 2004-02-29 devnull return -1;
216 91c13e54 2004-02-29 devnull t = (char*)f->to;
217 91c13e54 2004-02-29 devnull s = (char*)f->stop;
218 91c13e54 2004-02-29 devnull for(me = m + n; m < me; m++){
220 91c13e54 2004-02-29 devnull FMTRUNE(f, t, s, r);
222 91c13e54 2004-02-29 devnull f->nfmt += t - (char *)f->to;
223 91c13e54 2004-02-29 devnull f->to = t;
224 91c13e54 2004-02-29 devnull if(fl & FmtLeft && __fmtpad(f, w - n) < 0)
225 91c13e54 2004-02-29 devnull return -1;
227 91c13e54 2004-02-29 devnull return 0;
230 91c13e54 2004-02-29 devnull /* fmt out one character */
232 91c13e54 2004-02-29 devnull __charfmt(Fmt *f)
234 91c13e54 2004-02-29 devnull char x[1];
236 91c13e54 2004-02-29 devnull x[0] = va_arg(f->args, int);
237 91c13e54 2004-02-29 devnull f->prec = 1;
238 91c13e54 2004-02-29 devnull return __fmtcpy(f, (const char*)x, 1, 1);
241 91c13e54 2004-02-29 devnull /* fmt out one rune */
243 91c13e54 2004-02-29 devnull __runefmt(Fmt *f)
245 91c13e54 2004-02-29 devnull Rune x[1];
247 91c13e54 2004-02-29 devnull x[0] = va_arg(f->args, int);
248 91c13e54 2004-02-29 devnull return __fmtrcpy(f, (const void*)x, 1);
251 91c13e54 2004-02-29 devnull /* public helper routine: fmt out a null terminated string already in hand */
253 91c13e54 2004-02-29 devnull fmtstrcpy(Fmt *f, char *s)
255 3f1a2197 2004-12-26 devnull int i, j;
259 91c13e54 2004-02-29 devnull return __fmtcpy(f, "<nil>", 5, 5);
260 91c13e54 2004-02-29 devnull /* if precision is specified, make sure we don't wander off the end */
261 91c13e54 2004-02-29 devnull if(f->flags & FmtPrec){
263 3f1a2197 2004-12-26 devnull for(j=0; j<f->prec && s[i]; j++)
264 3f1a2197 2004-12-26 devnull i += chartorune(&r, s+i);
265 3f1a2197 2004-12-26 devnull return __fmtcpy(f, s, j, i);
267 91c13e54 2004-02-29 devnull return __fmtcpy(f, s, utflen(s), strlen(s));
270 91c13e54 2004-02-29 devnull /* fmt out a null terminated utf string */
272 91c13e54 2004-02-29 devnull __strfmt(Fmt *f)
274 91c13e54 2004-02-29 devnull char *s;
276 91c13e54 2004-02-29 devnull s = va_arg(f->args, char *);
277 91c13e54 2004-02-29 devnull return fmtstrcpy(f, s);
280 91c13e54 2004-02-29 devnull /* public helper routine: fmt out a null terminated rune string already in hand */
282 91c13e54 2004-02-29 devnull fmtrunestrcpy(Fmt *f, Rune *s)
284 91c13e54 2004-02-29 devnull Rune *e;
285 91c13e54 2004-02-29 devnull int n, p;
288 91c13e54 2004-02-29 devnull return __fmtcpy(f, "<nil>", 5, 5);
289 91c13e54 2004-02-29 devnull /* if precision is specified, make sure we don't wander off the end */
290 91c13e54 2004-02-29 devnull if(f->flags & FmtPrec){
291 91c13e54 2004-02-29 devnull p = f->prec;
292 91c13e54 2004-02-29 devnull for(n = 0; n < p; n++)
293 91c13e54 2004-02-29 devnull if(s[n] == 0)
296 91c13e54 2004-02-29 devnull for(e = s; *e; e++)
298 91c13e54 2004-02-29 devnull n = e - s;
300 91c13e54 2004-02-29 devnull return __fmtrcpy(f, s, n);
303 91c13e54 2004-02-29 devnull /* fmt out a null terminated rune string */
305 91c13e54 2004-02-29 devnull __runesfmt(Fmt *f)
307 91c13e54 2004-02-29 devnull Rune *s;
309 91c13e54 2004-02-29 devnull s = va_arg(f->args, Rune *);
310 91c13e54 2004-02-29 devnull return fmtrunestrcpy(f, s);
313 91c13e54 2004-02-29 devnull /* fmt a % */
315 91c13e54 2004-02-29 devnull __percentfmt(Fmt *f)
317 91c13e54 2004-02-29 devnull Rune x[1];
319 91c13e54 2004-02-29 devnull x[0] = f->r;
320 91c13e54 2004-02-29 devnull f->prec = 1;
321 91c13e54 2004-02-29 devnull return __fmtrcpy(f, (const void*)x, 1);
324 91c13e54 2004-02-29 devnull /* fmt an integer */
326 91c13e54 2004-02-29 devnull __ifmt(Fmt *f)
328 91c13e54 2004-02-29 devnull char buf[70], *p, *conv;
329 91c13e54 2004-02-29 devnull uvlong vu;
330 91c13e54 2004-02-29 devnull ulong u;
331 91c13e54 2004-02-29 devnull int neg, base, i, n, fl, w, isv;
333 91c13e54 2004-02-29 devnull neg = 0;
334 91c13e54 2004-02-29 devnull fl = f->flags;
335 91c13e54 2004-02-29 devnull isv = 0;
338 3f1a2197 2004-12-26 devnull #ifndef PLAN9PORT
340 3f1a2197 2004-12-26 devnull * Unsigned verbs for ANSI C
342 91c13e54 2004-02-29 devnull switch(f->r){
343 91c13e54 2004-02-29 devnull case 'x':
344 91c13e54 2004-02-29 devnull case 'X':
345 e5aa96ac 2004-12-26 devnull case 'o':
346 e5aa96ac 2004-12-26 devnull case 'u':
347 3f1a2197 2004-12-26 devnull case 'p':
348 91c13e54 2004-02-29 devnull fl |= FmtUnsigned;
349 3f1a2197 2004-12-26 devnull fl &= ~(FmtSign|FmtSpace);
353 91c13e54 2004-02-29 devnull if(f->r == 'p'){
354 91c13e54 2004-02-29 devnull u = (ulong)va_arg(f->args, void*);
355 91c13e54 2004-02-29 devnull f->r = 'x';
356 91c13e54 2004-02-29 devnull fl |= FmtUnsigned;
357 91c13e54 2004-02-29 devnull }else if(fl & FmtVLong){
358 91c13e54 2004-02-29 devnull isv = 1;
359 91c13e54 2004-02-29 devnull if(fl & FmtUnsigned)
360 91c13e54 2004-02-29 devnull vu = va_arg(f->args, uvlong);
362 91c13e54 2004-02-29 devnull vu = va_arg(f->args, vlong);
363 91c13e54 2004-02-29 devnull }else if(fl & FmtLong){
364 91c13e54 2004-02-29 devnull if(fl & FmtUnsigned)
365 91c13e54 2004-02-29 devnull u = va_arg(f->args, ulong);
367 91c13e54 2004-02-29 devnull u = va_arg(f->args, long);
368 91c13e54 2004-02-29 devnull }else if(fl & FmtByte){
369 91c13e54 2004-02-29 devnull if(fl & FmtUnsigned)
370 91c13e54 2004-02-29 devnull u = (uchar)va_arg(f->args, int);
372 91c13e54 2004-02-29 devnull u = (char)va_arg(f->args, int);
373 91c13e54 2004-02-29 devnull }else if(fl & FmtShort){
374 91c13e54 2004-02-29 devnull if(fl & FmtUnsigned)
375 91c13e54 2004-02-29 devnull u = (ushort)va_arg(f->args, int);
377 91c13e54 2004-02-29 devnull u = (short)va_arg(f->args, int);
379 91c13e54 2004-02-29 devnull if(fl & FmtUnsigned)
380 91c13e54 2004-02-29 devnull u = va_arg(f->args, uint);
382 91c13e54 2004-02-29 devnull u = va_arg(f->args, int);
384 91c13e54 2004-02-29 devnull conv = "0123456789abcdef";
385 91c13e54 2004-02-29 devnull switch(f->r){
386 91c13e54 2004-02-29 devnull case 'd':
387 91c13e54 2004-02-29 devnull case 'i':
388 91c13e54 2004-02-29 devnull case 'u':
389 91c13e54 2004-02-29 devnull base = 10;
391 91c13e54 2004-02-29 devnull case 'x':
392 91c13e54 2004-02-29 devnull base = 16;
394 91c13e54 2004-02-29 devnull case 'X':
395 91c13e54 2004-02-29 devnull base = 16;
396 91c13e54 2004-02-29 devnull conv = "0123456789ABCDEF";
398 91c13e54 2004-02-29 devnull case 'b':
399 91c13e54 2004-02-29 devnull base = 2;
401 91c13e54 2004-02-29 devnull case 'o':
402 91c13e54 2004-02-29 devnull base = 8;
404 91c13e54 2004-02-29 devnull default:
405 91c13e54 2004-02-29 devnull return -1;
407 3f1a2197 2004-12-26 devnull if(!(fl & FmtUnsigned)){
408 91c13e54 2004-02-29 devnull if(isv && (vlong)vu < 0){
409 91c13e54 2004-02-29 devnull vu = -(vlong)vu;
410 91c13e54 2004-02-29 devnull neg = 1;
411 91c13e54 2004-02-29 devnull }else if(!isv && (long)u < 0){
412 91c13e54 2004-02-29 devnull u = -(long)u;
413 91c13e54 2004-02-29 devnull neg = 1;
416 91c13e54 2004-02-29 devnull p = buf + sizeof buf - 1;
418 91c13e54 2004-02-29 devnull if(isv){
419 91c13e54 2004-02-29 devnull while(vu){
420 91c13e54 2004-02-29 devnull i = vu % base;
421 91c13e54 2004-02-29 devnull vu /= base;
422 91c13e54 2004-02-29 devnull if((fl & FmtComma) && n % 4 == 3){
423 91c13e54 2004-02-29 devnull *p-- = ',';
426 91c13e54 2004-02-29 devnull *p-- = conv[i];
430 91c13e54 2004-02-29 devnull while(u){
431 91c13e54 2004-02-29 devnull i = u % base;
432 91c13e54 2004-02-29 devnull u /= base;
433 91c13e54 2004-02-29 devnull if((fl & FmtComma) && n % 4 == 3){
434 91c13e54 2004-02-29 devnull *p-- = ',';
437 91c13e54 2004-02-29 devnull *p-- = conv[i];
441 91c13e54 2004-02-29 devnull if(n == 0){
442 3f1a2197 2004-12-26 devnull *p-- = '0';
445 91c13e54 2004-02-29 devnull for(w = f->prec; n < w && p > buf+3; n++)
446 91c13e54 2004-02-29 devnull *p-- = '0';
447 91c13e54 2004-02-29 devnull if(neg || (fl & (FmtSign|FmtSpace)))
449 91c13e54 2004-02-29 devnull if(fl & FmtSharp){
450 91c13e54 2004-02-29 devnull if(base == 16)
452 91c13e54 2004-02-29 devnull else if(base == 8){
453 91c13e54 2004-02-29 devnull if(p[1] == '0')
454 91c13e54 2004-02-29 devnull fl &= ~FmtSharp;
459 91c13e54 2004-02-29 devnull if((fl & FmtZero) && !(fl & (FmtLeft|FmtPrec))){
460 91c13e54 2004-02-29 devnull for(w = f->width; n < w && p > buf+3; n++)
461 91c13e54 2004-02-29 devnull *p-- = '0';
462 91c13e54 2004-02-29 devnull f->width = 0;
464 91c13e54 2004-02-29 devnull if(fl & FmtSharp){
465 91c13e54 2004-02-29 devnull if(base == 16)
466 91c13e54 2004-02-29 devnull *p-- = f->r;
467 91c13e54 2004-02-29 devnull if(base == 16 || base == 8)
468 91c13e54 2004-02-29 devnull *p-- = '0';
471 91c13e54 2004-02-29 devnull *p-- = '-';
472 91c13e54 2004-02-29 devnull else if(fl & FmtSign)
473 91c13e54 2004-02-29 devnull *p-- = '+';
474 91c13e54 2004-02-29 devnull else if(fl & FmtSpace)
475 91c13e54 2004-02-29 devnull *p-- = ' ';
476 91c13e54 2004-02-29 devnull f->flags &= ~FmtPrec;
477 91c13e54 2004-02-29 devnull return __fmtcpy(f, p + 1, n, n);
481 91c13e54 2004-02-29 devnull __countfmt(Fmt *f)
483 91c13e54 2004-02-29 devnull void *p;
484 91c13e54 2004-02-29 devnull ulong fl;
486 91c13e54 2004-02-29 devnull fl = f->flags;
487 91c13e54 2004-02-29 devnull p = va_arg(f->args, void*);
488 91c13e54 2004-02-29 devnull if(fl & FmtVLong){
489 91c13e54 2004-02-29 devnull *(vlong*)p = f->nfmt;
490 91c13e54 2004-02-29 devnull }else if(fl & FmtLong){
491 91c13e54 2004-02-29 devnull *(long*)p = f->nfmt;
492 91c13e54 2004-02-29 devnull }else if(fl & FmtByte){
493 91c13e54 2004-02-29 devnull *(char*)p = f->nfmt;
494 91c13e54 2004-02-29 devnull }else if(fl & FmtShort){
495 91c13e54 2004-02-29 devnull *(short*)p = f->nfmt;
497 91c13e54 2004-02-29 devnull *(int*)p = f->nfmt;
499 91c13e54 2004-02-29 devnull return 0;
503 91c13e54 2004-02-29 devnull __flagfmt(Fmt *f)
505 91c13e54 2004-02-29 devnull switch(f->r){
506 91c13e54 2004-02-29 devnull case ',':
507 91c13e54 2004-02-29 devnull f->flags |= FmtComma;
509 91c13e54 2004-02-29 devnull case '-':
510 91c13e54 2004-02-29 devnull f->flags |= FmtLeft;
512 91c13e54 2004-02-29 devnull case '+':
513 91c13e54 2004-02-29 devnull f->flags |= FmtSign;
515 91c13e54 2004-02-29 devnull case '#':
516 91c13e54 2004-02-29 devnull f->flags |= FmtSharp;
518 91c13e54 2004-02-29 devnull case ' ':
519 91c13e54 2004-02-29 devnull f->flags |= FmtSpace;
521 91c13e54 2004-02-29 devnull case 'u':
522 91c13e54 2004-02-29 devnull f->flags |= FmtUnsigned;
524 91c13e54 2004-02-29 devnull case 'h':
525 91c13e54 2004-02-29 devnull if(f->flags & FmtShort)
526 91c13e54 2004-02-29 devnull f->flags |= FmtByte;
527 91c13e54 2004-02-29 devnull f->flags |= FmtShort;
529 91c13e54 2004-02-29 devnull case 'L':
530 91c13e54 2004-02-29 devnull f->flags |= FmtLDouble;
532 91c13e54 2004-02-29 devnull case 'l':
533 91c13e54 2004-02-29 devnull if(f->flags & FmtLong)
534 91c13e54 2004-02-29 devnull f->flags |= FmtVLong;
535 91c13e54 2004-02-29 devnull f->flags |= FmtLong;
538 91c13e54 2004-02-29 devnull return 1;
541 91c13e54 2004-02-29 devnull /* default error format */
543 91c13e54 2004-02-29 devnull __badfmt(Fmt *f)
545 91c13e54 2004-02-29 devnull char x[3];
547 91c13e54 2004-02-29 devnull x[0] = '%';
548 91c13e54 2004-02-29 devnull x[1] = f->r;
549 91c13e54 2004-02-29 devnull x[2] = '%';
550 91c13e54 2004-02-29 devnull f->prec = 3;
551 91c13e54 2004-02-29 devnull __fmtcpy(f, (const void*)x, 3, 3);
552 91c13e54 2004-02-29 devnull return 0;