1 91c13e54 2004-02-29 devnull /*
  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 4645c5d7 2004-12-29 devnull  * WARRANTY.  IN PARTICULAR, NEITHER THE AUTHORS NOR LUCENT TECHNOLOGIES MAKE
 11 4645c5d7 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.
 13 91c13e54 2004-02-29 devnull  */
 14 91c13e54 2004-02-29 devnull #include <stdio.h>
 15 91c13e54 2004-02-29 devnull #include <math.h>
 16 91c13e54 2004-02-29 devnull #include <float.h>
 17 91c13e54 2004-02-29 devnull #include <string.h>
 18 91c13e54 2004-02-29 devnull #include <stdlib.h>
 19 91c13e54 2004-02-29 devnull #include <errno.h>
 20 91c13e54 2004-02-29 devnull #include <stdarg.h>
 21 cdccf023 2004-12-27 devnull #include <ctype.h>
 22 e5aa96ac 2004-12-26 devnull #include <fmt.h>
 23 e5aa96ac 2004-12-26 devnull #include "plan9.h"
 24 91c13e54 2004-02-29 devnull #include "fmt.h"
 25 91c13e54 2004-02-29 devnull #include "fmtdef.h"
 26 91c13e54 2004-02-29 devnull 
 27 91c13e54 2004-02-29 devnull enum
 28 91c13e54 2004-02-29 devnull {
 29 a76c0fd4 2004-12-26 devnull 	FDIGIT	= 30,
 30 91c13e54 2004-02-29 devnull 	FDEFLT	= 6,
 31 91c13e54 2004-02-29 devnull 	NSIGNIF	= 17
 32 91c13e54 2004-02-29 devnull };
 33 91c13e54 2004-02-29 devnull 
 34 91c13e54 2004-02-29 devnull /*
 35 91c13e54 2004-02-29 devnull  * first few powers of 10, enough for about 1/2 of the
 36 91c13e54 2004-02-29 devnull  * total space for doubles.
 37 91c13e54 2004-02-29 devnull  */
 38 91c13e54 2004-02-29 devnull static double pows10[] =
 39 91c13e54 2004-02-29 devnull {
 40 91c13e54 2004-02-29 devnull 	  1e0,   1e1,   1e2,   1e3,   1e4,   1e5,   1e6,   1e7,   1e8,   1e9,  
 41 91c13e54 2004-02-29 devnull 	 1e10,  1e11,  1e12,  1e13,  1e14,  1e15,  1e16,  1e17,  1e18,  1e19,  
 42 91c13e54 2004-02-29 devnull 	 1e20,  1e21,  1e22,  1e23,  1e24,  1e25,  1e26,  1e27,  1e28,  1e29,  
 43 91c13e54 2004-02-29 devnull 	 1e30,  1e31,  1e32,  1e33,  1e34,  1e35,  1e36,  1e37,  1e38,  1e39,  
 44 91c13e54 2004-02-29 devnull 	 1e40,  1e41,  1e42,  1e43,  1e44,  1e45,  1e46,  1e47,  1e48,  1e49,  
 45 91c13e54 2004-02-29 devnull 	 1e50,  1e51,  1e52,  1e53,  1e54,  1e55,  1e56,  1e57,  1e58,  1e59,  
 46 91c13e54 2004-02-29 devnull 	 1e60,  1e61,  1e62,  1e63,  1e64,  1e65,  1e66,  1e67,  1e68,  1e69,  
 47 91c13e54 2004-02-29 devnull 	 1e70,  1e71,  1e72,  1e73,  1e74,  1e75,  1e76,  1e77,  1e78,  1e79,  
 48 91c13e54 2004-02-29 devnull 	 1e80,  1e81,  1e82,  1e83,  1e84,  1e85,  1e86,  1e87,  1e88,  1e89,  
 49 91c13e54 2004-02-29 devnull 	 1e90,  1e91,  1e92,  1e93,  1e94,  1e95,  1e96,  1e97,  1e98,  1e99,  
 50 91c13e54 2004-02-29 devnull 	1e100, 1e101, 1e102, 1e103, 1e104, 1e105, 1e106, 1e107, 1e108, 1e109, 
 51 91c13e54 2004-02-29 devnull 	1e110, 1e111, 1e112, 1e113, 1e114, 1e115, 1e116, 1e117, 1e118, 1e119, 
 52 91c13e54 2004-02-29 devnull 	1e120, 1e121, 1e122, 1e123, 1e124, 1e125, 1e126, 1e127, 1e128, 1e129, 
 53 91c13e54 2004-02-29 devnull 	1e130, 1e131, 1e132, 1e133, 1e134, 1e135, 1e136, 1e137, 1e138, 1e139, 
 54 91c13e54 2004-02-29 devnull 	1e140, 1e141, 1e142, 1e143, 1e144, 1e145, 1e146, 1e147, 1e148, 1e149, 
 55 91c13e54 2004-02-29 devnull 	1e150, 1e151, 1e152, 1e153, 1e154, 1e155, 1e156, 1e157, 1e158, 1e159, 
 56 91c13e54 2004-02-29 devnull };
 57 4645c5d7 2004-12-29 devnull 
 58 4fe01a2b 2004-12-31 devnull #define  pow10(x)  fmtpow10(x)
 59 91c13e54 2004-02-29 devnull 
 60 91c13e54 2004-02-29 devnull static double
 61 91c13e54 2004-02-29 devnull pow10(int n)
 62 91c13e54 2004-02-29 devnull {
 63 91c13e54 2004-02-29 devnull 	double d;
 64 91c13e54 2004-02-29 devnull 	int neg;
 65 91c13e54 2004-02-29 devnull 
 66 91c13e54 2004-02-29 devnull 	neg = 0;
 67 91c13e54 2004-02-29 devnull 	if(n < 0){
 68 91c13e54 2004-02-29 devnull 		if(n < DBL_MIN_10_EXP){
 69 91c13e54 2004-02-29 devnull 			return 0.;
 70 91c13e54 2004-02-29 devnull 		}
 71 91c13e54 2004-02-29 devnull 		neg = 1;
 72 91c13e54 2004-02-29 devnull 		n = -n;
 73 91c13e54 2004-02-29 devnull 	}else if(n > DBL_MAX_10_EXP){
 74 91c13e54 2004-02-29 devnull 		return HUGE_VAL;
 75 91c13e54 2004-02-29 devnull 	}
 76 91c13e54 2004-02-29 devnull 	if(n < (int)(sizeof(pows10)/sizeof(pows10[0])))
 77 91c13e54 2004-02-29 devnull 		d = pows10[n];
 78 91c13e54 2004-02-29 devnull 	else{
 79 91c13e54 2004-02-29 devnull 		d = pows10[sizeof(pows10)/sizeof(pows10[0]) - 1];
 80 91c13e54 2004-02-29 devnull 		for(;;){
 81 91c13e54 2004-02-29 devnull 			n -= sizeof(pows10)/sizeof(pows10[0]) - 1;
 82 91c13e54 2004-02-29 devnull 			if(n < (int)(sizeof(pows10)/sizeof(pows10[0]))){
 83 91c13e54 2004-02-29 devnull 				d *= pows10[n];
 84 91c13e54 2004-02-29 devnull 				break;
 85 91c13e54 2004-02-29 devnull 			}
 86 91c13e54 2004-02-29 devnull 			d *= pows10[sizeof(pows10)/sizeof(pows10[0]) - 1];
 87 91c13e54 2004-02-29 devnull 		}
 88 91c13e54 2004-02-29 devnull 	}
 89 91c13e54 2004-02-29 devnull 	if(neg){
 90 91c13e54 2004-02-29 devnull 		return 1./d;
 91 91c13e54 2004-02-29 devnull 	}
 92 91c13e54 2004-02-29 devnull 	return d;
 93 91c13e54 2004-02-29 devnull }
 94 91c13e54 2004-02-29 devnull 
 95 91c13e54 2004-02-29 devnull static int
 96 91c13e54 2004-02-29 devnull xadd(char *a, int n, int v)
 97 91c13e54 2004-02-29 devnull {
 98 91c13e54 2004-02-29 devnull 	char *b;
 99 91c13e54 2004-02-29 devnull 	int c;
100 91c13e54 2004-02-29 devnull 
101 91c13e54 2004-02-29 devnull 	if(n < 0 || n >= NSIGNIF)
102 91c13e54 2004-02-29 devnull 		return 0;
103 91c13e54 2004-02-29 devnull 	for(b = a+n; b >= a; b--) {
104 91c13e54 2004-02-29 devnull 		c = *b + v;
105 91c13e54 2004-02-29 devnull 		if(c <= '9') {
106 91c13e54 2004-02-29 devnull 			*b = c;
107 91c13e54 2004-02-29 devnull 			return 0;
108 91c13e54 2004-02-29 devnull 		}
109 91c13e54 2004-02-29 devnull 		*b = '0';
110 91c13e54 2004-02-29 devnull 		v = 1;
111 91c13e54 2004-02-29 devnull 	}
112 91c13e54 2004-02-29 devnull 	*a = '1';	/* overflow adding */
113 91c13e54 2004-02-29 devnull 	return 1;
114 91c13e54 2004-02-29 devnull }
115 91c13e54 2004-02-29 devnull 
116 91c13e54 2004-02-29 devnull static int
117 91c13e54 2004-02-29 devnull xsub(char *a, int n, int v)
118 91c13e54 2004-02-29 devnull {
119 91c13e54 2004-02-29 devnull 	char *b;
120 91c13e54 2004-02-29 devnull 	int c;
121 91c13e54 2004-02-29 devnull 
122 91c13e54 2004-02-29 devnull 	for(b = a+n; b >= a; b--) {
123 91c13e54 2004-02-29 devnull 		c = *b - v;
124 91c13e54 2004-02-29 devnull 		if(c >= '0') {
125 91c13e54 2004-02-29 devnull 			*b = c;
126 91c13e54 2004-02-29 devnull 			return 0;
127 91c13e54 2004-02-29 devnull 		}
128 91c13e54 2004-02-29 devnull 		*b = '9';
129 91c13e54 2004-02-29 devnull 		v = 1;
130 91c13e54 2004-02-29 devnull 	}
131 91c13e54 2004-02-29 devnull 	*a = '9';	/* underflow subtracting */
132 91c13e54 2004-02-29 devnull 	return 1;
133 91c13e54 2004-02-29 devnull }
134 91c13e54 2004-02-29 devnull 
135 91c13e54 2004-02-29 devnull static void
136 a76c0fd4 2004-12-26 devnull xdtoa(Fmt *fmt, char *s2, double f)
137 91c13e54 2004-02-29 devnull {
138 a76c0fd4 2004-12-26 devnull 	char s1[NSIGNIF+10];
139 a76c0fd4 2004-12-26 devnull 	double g, h;
140 a76c0fd4 2004-12-26 devnull 	int e, d, i, n;
141 a76c0fd4 2004-12-26 devnull 	int c1, c2, c3, c4, ucase, sign, chr, prec;
142 91c13e54 2004-02-29 devnull 
143 a76c0fd4 2004-12-26 devnull 	prec = FDEFLT;
144 a76c0fd4 2004-12-26 devnull 	if(fmt->flags & FmtPrec)
145 a76c0fd4 2004-12-26 devnull 		prec = fmt->prec;
146 a76c0fd4 2004-12-26 devnull 	if(prec > FDIGIT)
147 a76c0fd4 2004-12-26 devnull 		prec = FDIGIT;
148 cdccf023 2004-12-27 devnull 	if(__isNaN(f)) {
149 a76c0fd4 2004-12-26 devnull 		strcpy(s2, "NaN");
150 a76c0fd4 2004-12-26 devnull 		return;
151 91c13e54 2004-02-29 devnull 	}
152 cdccf023 2004-12-27 devnull 	if(__isInf(f, 1)) {
153 a76c0fd4 2004-12-26 devnull 		strcpy(s2, "+Inf");
154 a76c0fd4 2004-12-26 devnull 		return;
155 91c13e54 2004-02-29 devnull 	}
156 cdccf023 2004-12-27 devnull 	if(__isInf(f, -1)) {
157 a76c0fd4 2004-12-26 devnull 		strcpy(s2, "-Inf");
158 a76c0fd4 2004-12-26 devnull 		return;
159 91c13e54 2004-02-29 devnull 	}
160 91c13e54 2004-02-29 devnull 	sign = 0;
161 91c13e54 2004-02-29 devnull 	if(f < 0) {
162 91c13e54 2004-02-29 devnull 		f = -f;
163 91c13e54 2004-02-29 devnull 		sign++;
164 91c13e54 2004-02-29 devnull 	}
165 a76c0fd4 2004-12-26 devnull 	ucase = 0;
166 a76c0fd4 2004-12-26 devnull 	chr = fmt->r;
167 a76c0fd4 2004-12-26 devnull 	if(isupper(chr)) {
168 a76c0fd4 2004-12-26 devnull 		ucase = 1;
169 a76c0fd4 2004-12-26 devnull 		chr = tolower(chr);
170 91c13e54 2004-02-29 devnull 	}
171 91c13e54 2004-02-29 devnull 
172 91c13e54 2004-02-29 devnull 	e = 0;
173 91c13e54 2004-02-29 devnull 	g = f;
174 91c13e54 2004-02-29 devnull 	if(g != 0) {
175 91c13e54 2004-02-29 devnull 		frexp(f, &e);
176 a76c0fd4 2004-12-26 devnull 		e = e * .301029995664;
177 91c13e54 2004-02-29 devnull 		if(e >= -150 && e <= +150) {
178 91c13e54 2004-02-29 devnull 			d = 0;
179 91c13e54 2004-02-29 devnull 			h = f;
180 91c13e54 2004-02-29 devnull 		} else {
181 91c13e54 2004-02-29 devnull 			d = e/2;
182 91c13e54 2004-02-29 devnull 			h = f * pow10(-d);
183 91c13e54 2004-02-29 devnull 		}
184 91c13e54 2004-02-29 devnull 		g = h * pow10(d-e);
185 91c13e54 2004-02-29 devnull 		while(g < 1) {
186 91c13e54 2004-02-29 devnull 			e--;
187 91c13e54 2004-02-29 devnull 			g = h * pow10(d-e);
188 91c13e54 2004-02-29 devnull 		}
189 91c13e54 2004-02-29 devnull 		while(g >= 10) {
190 91c13e54 2004-02-29 devnull 			e++;
191 91c13e54 2004-02-29 devnull 			g = h * pow10(d-e);
192 91c13e54 2004-02-29 devnull 		}
193 91c13e54 2004-02-29 devnull 	}
194 91c13e54 2004-02-29 devnull 
195 91c13e54 2004-02-29 devnull 	/*
196 91c13e54 2004-02-29 devnull 	 * convert NSIGNIF digits and convert
197 91c13e54 2004-02-29 devnull 	 * back to get accuracy.
198 91c13e54 2004-02-29 devnull 	 */
199 91c13e54 2004-02-29 devnull 	for(i=0; i<NSIGNIF; i++) {
200 a76c0fd4 2004-12-26 devnull 		d = g;
201 91c13e54 2004-02-29 devnull 		s1[i] = d + '0';
202 91c13e54 2004-02-29 devnull 		g = (g - d) * 10;
203 91c13e54 2004-02-29 devnull 	}
204 91c13e54 2004-02-29 devnull 	s1[i] = 0;
205 91c13e54 2004-02-29 devnull 
206 91c13e54 2004-02-29 devnull 	/*
207 91c13e54 2004-02-29 devnull 	 * try decimal rounding to eliminate 9s
208 91c13e54 2004-02-29 devnull 	 */
209 91c13e54 2004-02-29 devnull 	c2 = prec + 1;
210 91c13e54 2004-02-29 devnull 	if(chr == 'f')
211 91c13e54 2004-02-29 devnull 		c2 += e;
212 91c13e54 2004-02-29 devnull 	if(c2 >= NSIGNIF-2) {
213 91c13e54 2004-02-29 devnull 		strcpy(s2, s1);
214 91c13e54 2004-02-29 devnull 		d = e;
215 91c13e54 2004-02-29 devnull 		s1[NSIGNIF-2] = '0';
216 91c13e54 2004-02-29 devnull 		s1[NSIGNIF-1] = '0';
217 a76c0fd4 2004-12-26 devnull 		sprint(s1+NSIGNIF, "e%d", e-NSIGNIF+1);
218 a76c0fd4 2004-12-26 devnull 		g = strtod(s1, nil);
219 91c13e54 2004-02-29 devnull 		if(g == f)
220 91c13e54 2004-02-29 devnull 			goto found;
221 91c13e54 2004-02-29 devnull 		if(xadd(s1, NSIGNIF-3, 1)) {
222 91c13e54 2004-02-29 devnull 			e++;
223 a76c0fd4 2004-12-26 devnull 			sprint(s1+NSIGNIF, "e%d", e-NSIGNIF+1);
224 91c13e54 2004-02-29 devnull 		}
225 a76c0fd4 2004-12-26 devnull 		g = strtod(s1, nil);
226 91c13e54 2004-02-29 devnull 		if(g == f)
227 91c13e54 2004-02-29 devnull 			goto found;
228 91c13e54 2004-02-29 devnull 		strcpy(s1, s2);
229 91c13e54 2004-02-29 devnull 		e = d;
230 91c13e54 2004-02-29 devnull 	}
231 91c13e54 2004-02-29 devnull 
232 91c13e54 2004-02-29 devnull 	/*
233 91c13e54 2004-02-29 devnull 	 * convert back so s1 gets exact answer
234 91c13e54 2004-02-29 devnull 	 */
235 a76c0fd4 2004-12-26 devnull 	for(;;) {
236 a76c0fd4 2004-12-26 devnull 		sprint(s1+NSIGNIF, "e%d", e-NSIGNIF+1);
237 a76c0fd4 2004-12-26 devnull 		g = strtod(s1, nil);
238 91c13e54 2004-02-29 devnull 		if(f > g) {
239 91c13e54 2004-02-29 devnull 			if(xadd(s1, NSIGNIF-1, 1))
240 91c13e54 2004-02-29 devnull 				e--;
241 91c13e54 2004-02-29 devnull 			continue;
242 91c13e54 2004-02-29 devnull 		}
243 91c13e54 2004-02-29 devnull 		if(f < g) {
244 91c13e54 2004-02-29 devnull 			if(xsub(s1, NSIGNIF-1, 1))
245 91c13e54 2004-02-29 devnull 				e++;
246 91c13e54 2004-02-29 devnull 			continue;
247 91c13e54 2004-02-29 devnull 		}
248 91c13e54 2004-02-29 devnull 		break;
249 91c13e54 2004-02-29 devnull 	}
250 91c13e54 2004-02-29 devnull 
251 91c13e54 2004-02-29 devnull found:
252 91c13e54 2004-02-29 devnull 	/*
253 91c13e54 2004-02-29 devnull 	 * sign
254 91c13e54 2004-02-29 devnull 	 */
255 91c13e54 2004-02-29 devnull 	d = 0;
256 91c13e54 2004-02-29 devnull 	i = 0;
257 a76c0fd4 2004-12-26 devnull 	if(sign)
258 a76c0fd4 2004-12-26 devnull 		s2[d++] = '-';
259 a76c0fd4 2004-12-26 devnull 	else if(fmt->flags & FmtSign)
260 a76c0fd4 2004-12-26 devnull 		s2[d++] = '+';
261 a76c0fd4 2004-12-26 devnull 	else if(fmt->flags & FmtSpace)
262 a76c0fd4 2004-12-26 devnull 		s2[d++] = ' ';
263 91c13e54 2004-02-29 devnull 
264 91c13e54 2004-02-29 devnull 	/*
265 91c13e54 2004-02-29 devnull 	 * copy into final place
266 91c13e54 2004-02-29 devnull 	 * c1 digits of leading '0'
267 91c13e54 2004-02-29 devnull 	 * c2 digits from conversion
268 91c13e54 2004-02-29 devnull 	 * c3 digits of trailing '0'
269 91c13e54 2004-02-29 devnull 	 * c4 digits after '.'
270 91c13e54 2004-02-29 devnull 	 */
271 91c13e54 2004-02-29 devnull 	c1 = 0;
272 91c13e54 2004-02-29 devnull 	c2 = prec + 1;
273 91c13e54 2004-02-29 devnull 	c3 = 0;
274 91c13e54 2004-02-29 devnull 	c4 = prec;
275 91c13e54 2004-02-29 devnull 	switch(chr) {
276 91c13e54 2004-02-29 devnull 	default:
277 a76c0fd4 2004-12-26 devnull 		if(xadd(s1, c2, 5))
278 a76c0fd4 2004-12-26 devnull 			e++;
279 91c13e54 2004-02-29 devnull 		break;
280 91c13e54 2004-02-29 devnull 	case 'g':
281 91c13e54 2004-02-29 devnull 		/*
282 91c13e54 2004-02-29 devnull 		 * decide on 'e' of 'f' style convers
283 91c13e54 2004-02-29 devnull 		 */
284 a76c0fd4 2004-12-26 devnull 		if(xadd(s1, c2, 5))
285 a76c0fd4 2004-12-26 devnull 			e++;
286 a76c0fd4 2004-12-26 devnull 		if(e >= -5 && e <= prec) {
287 a76c0fd4 2004-12-26 devnull 			c1 = -e - 1;
288 91c13e54 2004-02-29 devnull 			c4 = prec - e;
289 a76c0fd4 2004-12-26 devnull 			chr = 'h';	// flag for 'f' style
290 91c13e54 2004-02-29 devnull 		}
291 91c13e54 2004-02-29 devnull 		break;
292 91c13e54 2004-02-29 devnull 	case 'f':
293 a76c0fd4 2004-12-26 devnull 		if(xadd(s1, c2+e, 5))
294 a76c0fd4 2004-12-26 devnull 			e++;
295 91c13e54 2004-02-29 devnull 		c1 = -e;
296 91c13e54 2004-02-29 devnull 		if(c1 > prec)
297 a76c0fd4 2004-12-26 devnull 			c1 = c2;
298 91c13e54 2004-02-29 devnull 		c2 += e;
299 91c13e54 2004-02-29 devnull 		break;
300 91c13e54 2004-02-29 devnull 	}
301 91c13e54 2004-02-29 devnull 
302 91c13e54 2004-02-29 devnull 	/*
303 91c13e54 2004-02-29 devnull 	 * clean up c1 c2 and c3
304 91c13e54 2004-02-29 devnull 	 */
305 91c13e54 2004-02-29 devnull 	if(c1 < 0)
306 91c13e54 2004-02-29 devnull 		c1 = 0;
307 91c13e54 2004-02-29 devnull 	if(c2 < 0)
308 91c13e54 2004-02-29 devnull 		c2 = 0;
309 91c13e54 2004-02-29 devnull 	if(c2 > NSIGNIF) {
310 91c13e54 2004-02-29 devnull 		c3 = c2-NSIGNIF;
311 91c13e54 2004-02-29 devnull 		c2 = NSIGNIF;
312 91c13e54 2004-02-29 devnull 	}
313 91c13e54 2004-02-29 devnull 
314 91c13e54 2004-02-29 devnull 	/*
315 91c13e54 2004-02-29 devnull 	 * copy digits
316 91c13e54 2004-02-29 devnull 	 */
317 a76c0fd4 2004-12-26 devnull 	while(c1 > 0) {
318 a76c0fd4 2004-12-26 devnull 		if(c1+c2+c3 == c4)
319 a76c0fd4 2004-12-26 devnull 			s2[d++] = '.';
320 a76c0fd4 2004-12-26 devnull 		s2[d++] = '0';
321 a76c0fd4 2004-12-26 devnull 		c1--;
322 91c13e54 2004-02-29 devnull 	}
323 a76c0fd4 2004-12-26 devnull 	while(c2 > 0) {
324 a76c0fd4 2004-12-26 devnull 		if(c2+c3 == c4)
325 a76c0fd4 2004-12-26 devnull 			s2[d++] = '.';
326 a76c0fd4 2004-12-26 devnull 		s2[d++] = s1[i++];
327 a76c0fd4 2004-12-26 devnull 		c2--;
328 91c13e54 2004-02-29 devnull 	}
329 a76c0fd4 2004-12-26 devnull 	while(c3 > 0) {
330 a76c0fd4 2004-12-26 devnull 		if(c3 == c4)
331 a76c0fd4 2004-12-26 devnull 			s2[d++] = '.';
332 a76c0fd4 2004-12-26 devnull 		s2[d++] = '0';
333 a76c0fd4 2004-12-26 devnull 		c3--;
334 91c13e54 2004-02-29 devnull 	}
335 91c13e54 2004-02-29 devnull 
336 91c13e54 2004-02-29 devnull 	/*
337 91c13e54 2004-02-29 devnull 	 * strip trailing '0' on g conv
338 91c13e54 2004-02-29 devnull 	 */
339 a76c0fd4 2004-12-26 devnull 	if(fmt->flags & FmtSharp) {
340 a76c0fd4 2004-12-26 devnull 		if(0 == c4)
341 a76c0fd4 2004-12-26 devnull 			s2[d++] = '.';
342 a76c0fd4 2004-12-26 devnull 	} else
343 a76c0fd4 2004-12-26 devnull 	if(chr == 'g' || chr == 'h') {
344 a76c0fd4 2004-12-26 devnull 		for(n=d-1; n>=0; n--)
345 a76c0fd4 2004-12-26 devnull 			if(s2[n] != '0')
346 a76c0fd4 2004-12-26 devnull 				break;
347 a76c0fd4 2004-12-26 devnull 		for(i=n; i>=0; i--)
348 a76c0fd4 2004-12-26 devnull 			if(s2[i] == '.') {
349 a76c0fd4 2004-12-26 devnull 				d = n;
350 a76c0fd4 2004-12-26 devnull 				if(i != n)
351 a76c0fd4 2004-12-26 devnull 					d++;
352 a76c0fd4 2004-12-26 devnull 				break;
353 a76c0fd4 2004-12-26 devnull 			}
354 91c13e54 2004-02-29 devnull 	}
355 91c13e54 2004-02-29 devnull 	if(chr == 'e' || chr == 'g') {
356 91c13e54 2004-02-29 devnull 		if(ucase)
357 a76c0fd4 2004-12-26 devnull 			s2[d++] = 'E';
358 91c13e54 2004-02-29 devnull 		else
359 a76c0fd4 2004-12-26 devnull 			s2[d++] = 'e';
360 91c13e54 2004-02-29 devnull 		c1 = e;
361 91c13e54 2004-02-29 devnull 		if(c1 < 0) {
362 a76c0fd4 2004-12-26 devnull 			s2[d++] = '-';
363 91c13e54 2004-02-29 devnull 			c1 = -c1;
364 91c13e54 2004-02-29 devnull 		} else
365 a76c0fd4 2004-12-26 devnull 			s2[d++] = '+';
366 91c13e54 2004-02-29 devnull 		if(c1 >= 100) {
367 a76c0fd4 2004-12-26 devnull 			s2[d++] = c1/100 + '0';
368 91c13e54 2004-02-29 devnull 			c1 = c1%100;
369 91c13e54 2004-02-29 devnull 		}
370 a76c0fd4 2004-12-26 devnull 		s2[d++] = c1/10 + '0';
371 a76c0fd4 2004-12-26 devnull 		s2[d++] = c1%10 + '0';
372 91c13e54 2004-02-29 devnull 	}
373 a76c0fd4 2004-12-26 devnull 	s2[d] = 0;
374 a76c0fd4 2004-12-26 devnull }
375 a76c0fd4 2004-12-26 devnull 
376 a76c0fd4 2004-12-26 devnull static int
377 a76c0fd4 2004-12-26 devnull floatfmt(Fmt *fmt, double f)
378 a76c0fd4 2004-12-26 devnull {
379 a76c0fd4 2004-12-26 devnull 	char s[FDIGIT+10];
380 a76c0fd4 2004-12-26 devnull 
381 a76c0fd4 2004-12-26 devnull 	xdtoa(fmt, s, f);
382 a76c0fd4 2004-12-26 devnull 	fmt->flags &= FmtWidth|FmtLeft;
383 a76c0fd4 2004-12-26 devnull 	__fmtcpy(fmt, s, strlen(s), strlen(s));
384 a76c0fd4 2004-12-26 devnull 	return 0;
385 a76c0fd4 2004-12-26 devnull }
386 a76c0fd4 2004-12-26 devnull 
387 a76c0fd4 2004-12-26 devnull int
388 a76c0fd4 2004-12-26 devnull __efgfmt(Fmt *f)
389 a76c0fd4 2004-12-26 devnull {
390 a76c0fd4 2004-12-26 devnull 	double d;
391 a76c0fd4 2004-12-26 devnull 
392 a76c0fd4 2004-12-26 devnull 	d = va_arg(f->args, double);
393 a76c0fd4 2004-12-26 devnull 	return floatfmt(f, d);
394 a76c0fd4 2004-12-26 devnull }