FreeCalypso > hg > freecalypso-sw

annotate rvinterf/ctracedec/doprnt.c @ 858:4c6e7ada647b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
compressed trace decoder almost fully implemented
author Space Falcon <falcon@ivan.Harhan.ORG>
date Sat, 02 May 2015 08:08:26 +0000
parents target-utils/libprintf/doprnt.c@84611183c8c3
children d32dff865575
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
1 /*
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
2 * We need our own implementation of an sprintf-like function in order
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
3 * to expand compressed traces with format strings from str2ind.tab
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
4 * and parameters decoded from the serial byte stream. This module is
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
5 * a hacked-up version of the guts of the printf family of functions
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
6 * from 4.3BSD-Tahoe.
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
7 */
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
8
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
9 #include <sys/types.h>
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
10 #include <ctype.h>
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
11
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
12 static void
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
13 safe_out_char(c, pp)
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
14 int c;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
15 char **pp;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
16 {
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
17 char *dp;
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
18
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
19 c &= 0xFF;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
20 dp = *pp;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
21 if (c & 0x80) {
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
22 *dp++ = 'M';
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
23 *dp++ = '-';
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
24 c &= 0x7F;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
25 }
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
26 if (c < 0x20) {
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
27 *dp++ = '^';
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
28 *dp++ = c + '@';
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
29 } else if (c == 0x7F) {
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
30 *dp++ = '^';
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
31 *dp++ = '?';
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
32 } else
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
33 *dp++ = c;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
34 *pp = dp;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
35 }
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
36
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
37 #define PUTC(ch) safe_out_char((ch), &outp)
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
38
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
39 #define ARG() \
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
40 _ulong = *argp++;
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
41
201
84611183c8c3 target-utils/libprintf: minor polish
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents: 11
diff changeset
42 #define BUF 12
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
43
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
44 #define todigit(c) ((c) - '0')
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
45 #define tochar(n) ((n) + '0')
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
46
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
47 #define LONGINT 0x01 /* long integer */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
48 #define LONGDBL 0x02 /* long double; unimplemented */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
49 #define SHORTINT 0x04 /* short integer */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
50 #define ALT 0x08 /* alternate form */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
51 #define LADJUST 0x10 /* left adjustment */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
52 #define ZEROPAD 0x20 /* zero (as opposed to blank) pad */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
53 #define HEXPREFIX 0x40 /* add 0x or 0X prefix */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
54
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
55 ind2str_doprnt(fmt0, argp, outp)
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
56 u_char *fmt0, *outp;
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
57 u_long *argp;
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
58 {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
59 register u_char *fmt; /* format string */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
60 register int ch; /* character from fmt */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
61 register int cnt; /* return value accumulator */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
62 register int n; /* random handy integer */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
63 register char *t; /* buffer pointer */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
64 u_long _ulong; /* integer arguments %[diouxX] */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
65 int base; /* base for [diouxX] conversion */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
66 int dprec; /* decimal precision in [diouxX] */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
67 int fieldsz; /* field size expanded by sign, etc */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
68 int flags; /* flags as above */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
69 int prec; /* precision from format (%.3d), or -1 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
70 int realsz; /* field size expanded by decimal precision */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
71 int size; /* size of converted field or string */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
72 int width; /* width from format (%8d), or 0 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
73 char sign; /* sign prefix (' ', '+', '-', or \0) */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
74 char softsign; /* temporary negative sign for floats */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
75 char *digs; /* digits for [diouxX] conversion */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
76 char buf[BUF]; /* space for %c, %[diouxX], %[eEfgG] */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
77
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
78 fmt = fmt0;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
79 digs = "0123456789abcdef";
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
80 for (cnt = 0;; ++fmt) {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
81 for (; (ch = *fmt) && ch != '%'; ++cnt, ++fmt)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
82 PUTC(ch);
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
83 if (!ch) {
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
84 *outp = '\0';
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
85 return (cnt);
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
86 }
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
87
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
88 flags = 0; dprec = 0; width = 0;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
89 prec = -1;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
90 sign = '\0';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
91
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
92 rflag: switch (*++fmt) {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
93 case ' ':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
94 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
95 * ``If the space and + flags both appear, the space
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
96 * flag will be ignored.''
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
97 * -- ANSI X3J11
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
98 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
99 if (!sign)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
100 sign = ' ';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
101 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
102 case '#':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
103 flags |= ALT;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
104 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
105 case '*':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
106 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
107 * ``A negative field width argument is taken as a
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
108 * - flag followed by a positive field width.''
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
109 * -- ANSI X3J11
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
110 * They don't exclude field widths read from args.
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
111 */
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
112 if ((width = *argp++) >= 0)
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
113 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
114 width = -width;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
115 /* FALLTHROUGH */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
116 case '-':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
117 flags |= LADJUST;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
118 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
119 case '+':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
120 sign = '+';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
121 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
122 case '.':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
123 if (*++fmt == '*')
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
124 n = *argp++;
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
125 else {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
126 n = 0;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
127 while (isascii(*fmt) && isdigit(*fmt))
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
128 n = 10 * n + todigit(*fmt++);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
129 --fmt;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
130 }
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
131 prec = n < 0 ? -1 : n;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
132 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
133 case '0':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
134 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
135 * ``Note that 0 is taken as a flag, not as the
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
136 * beginning of a field width.''
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
137 * -- ANSI X3J11
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
138 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
139 flags |= ZEROPAD;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
140 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
141 case '1': case '2': case '3': case '4':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
142 case '5': case '6': case '7': case '8': case '9':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
143 n = 0;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
144 do {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
145 n = 10 * n + todigit(*fmt);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
146 } while (isascii(*++fmt) && isdigit(*fmt));
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
147 width = n;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
148 --fmt;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
149 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
150 case 'L':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
151 flags |= LONGDBL;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
152 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
153 case 'h':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
154 flags |= SHORTINT;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
155 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
156 case 'l':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
157 flags |= LONGINT;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
158 goto rflag;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
159 case 'c':
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
160 *(t = buf) = *argp++;
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
161 size = 1;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
162 sign = '\0';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
163 goto pforw;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
164 case 'D':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
165 flags |= LONGINT;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
166 /*FALLTHROUGH*/
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
167 case 'd':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
168 case 'i':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
169 ARG();
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
170 if ((long)_ulong < 0) {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
171 _ulong = -_ulong;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
172 sign = '-';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
173 }
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
174 base = 10;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
175 goto number;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
176 case 'O':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
177 flags |= LONGINT;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
178 /*FALLTHROUGH*/
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
179 case 'o':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
180 ARG();
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
181 base = 8;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
182 goto nosign;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
183 case 'p':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
184 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
185 * ``The argument shall be a pointer to void. The
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
186 * value of the pointer is converted to a sequence
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
187 * of printable characters, in an implementation-
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
188 * defined manner.''
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
189 * -- ANSI X3J11
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
190 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
191 /* NOSTRICT */
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
192 _ulong = *argp++;
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
193 base = 16;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
194 goto nosign;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
195 case 's':
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
196 if (!(t = (char *)*argp++))
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
197 t = "(null)";
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
198 if (prec >= 0) {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
199 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
200 * can't use strlen; can only look for the
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
201 * NUL in the first `prec' characters, and
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
202 * strlen() will go further.
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
203 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
204 char *p;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
205
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
206 for (p = t, size = 0; size < prec; p++, size++)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
207 if (*p == '\0')
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
208 break;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
209 } else
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
210 size = strlen(t);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
211 sign = '\0';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
212 goto pforw;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
213 case 'U':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
214 flags |= LONGINT;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
215 /*FALLTHROUGH*/
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
216 case 'u':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
217 ARG();
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
218 base = 10;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
219 goto nosign;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
220 case 'X':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
221 digs = "0123456789ABCDEF";
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
222 /* FALLTHROUGH */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
223 case 'x':
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
224 ARG();
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
225 base = 16;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
226 /* leading 0x/X only if non-zero */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
227 if (flags & ALT && _ulong != 0)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
228 flags |= HEXPREFIX;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
229
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
230 /* unsigned conversions */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
231 nosign: sign = '\0';
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
232 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
233 * ``... diouXx conversions ... if a precision is
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
234 * specified, the 0 flag will be ignored.''
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
235 * -- ANSI X3J11
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
236 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
237 number: if ((dprec = prec) >= 0)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
238 flags &= ~ZEROPAD;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
239
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
240 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
241 * ``The result of converting a zero value with an
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
242 * explicit precision of zero is no characters.''
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
243 * -- ANSI X3J11
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
244 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
245 t = buf + BUF;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
246 if (_ulong != 0 || prec != 0) {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
247 do {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
248 *--t = digs[_ulong % base];
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
249 _ulong /= base;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
250 } while (_ulong);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
251 digs = "0123456789abcdef";
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
252 if (flags & ALT && base == 8 && *t != '0')
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
253 *--t = '0'; /* octal leading 0 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
254 }
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
255 size = buf + BUF - t;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
256
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
257 pforw:
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
258 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
259 * All reasonable formats wind up here. At this point,
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
260 * `t' points to a string which (if not flags&LADJUST)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
261 * should be padded out to `width' places. If
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
262 * flags&ZEROPAD, it should first be prefixed by any
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
263 * sign or other prefix; otherwise, it should be blank
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
264 * padded before the prefix is emitted. After any
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
265 * left-hand padding and prefixing, emit zeroes
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
266 * required by a decimal [diouxX] precision, then print
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
267 * the string proper, then emit zeroes required by any
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
268 * leftover floating precision; finally, if LADJUST,
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
269 * pad with blanks.
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
270 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
271
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
272 /*
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
273 * compute actual size, so we know how much to pad
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
274 * fieldsz excludes decimal prec; realsz includes it
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
275 */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
276 fieldsz = size;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
277 if (sign)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
278 fieldsz++;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
279 if (flags & HEXPREFIX)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
280 fieldsz += 2;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
281 realsz = dprec > fieldsz ? dprec : fieldsz;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
282
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
283 /* right-adjusting blank padding */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
284 if ((flags & (LADJUST|ZEROPAD)) == 0 && width)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
285 for (n = realsz; n < width; n++)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
286 PUTC(' ');
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
287 /* prefix */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
288 if (sign)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
289 PUTC(sign);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
290 if (flags & HEXPREFIX) {
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
291 PUTC('0');
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
292 PUTC((char)*fmt);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
293 }
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
294 /* right-adjusting zero padding */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
295 if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
296 for (n = realsz; n < width; n++)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
297 PUTC('0');
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
298 /* leading zeroes from decimal precision */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
299 for (n = fieldsz; n < dprec; n++)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
300 PUTC('0');
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
301
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
302 for (n = size; --n >= 0; )
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
303 PUTC(*t++);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
304 /* left-adjusting padding (always blank) */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
305 if (flags & LADJUST)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
306 for (n = realsz; n < width; n++)
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
307 PUTC(' ');
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
308 /* finally, adjust cnt */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
309 cnt += width > realsz ? width : realsz;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
310 break;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
311 case '\0': /* "%?" prints ?, unless ? is NULL */
858
4c6e7ada647b compressed trace decoder almost fully implemented
Space Falcon <falcon@ivan.Harhan.ORG>
parents: 201
diff changeset
312 *outp = '\0';
3
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
313 return (cnt);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
314 default:
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
315 PUTC((char)*fmt);
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
316 cnt++;
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
317 }
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
318 }
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
319 /* NOTREACHED */
45bf8af5f061 libprintf brought in from older PPC/m68k code, but fucking GCC
Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
parents:
diff changeset
320 }