17  *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
25  *	atof1 -- ascii to floating point test
46 #define FAILED 0
69 /*--------------------------------------------------------------*/
79 /*--------------------------------------------------------------*/  in main()
82 	for (i = 0; i < 30; i++)  in main()
83 		for (j = 0; j < 30; j++) {  in main()
95 			x = fabs(r1 - r2);  in main()
107 /*--------------------------------------------------------------*/  in main()
110 	x = 1.0 - exp(-100.0);	/* 1.0 - very small number */  in main()
120 /*--------------------------------------------------------------*/  in main()
138 			x = r1 - r2 - 1e-10;  in main()
140 			x = r2 - r1 - 1e-10;  in main()
148 			x = r1 - r2;  in main()
161 /*--------------------------------------------------------------*/  in main()
164 	for (i = -1; i > -200; i--) {  in main()
176 			x = r1 - r2 - 1e-10;  in main()
178 			x = r2 - r1 - 1e-10;  in main()
183 			x = r1 - r2;  in main()
196 /*--------------------------------------------------------------*/  in main()
206 	double val, v1, v2, k;  in numin()  local
207 	int neg_flag = 0;  in numin()
209 	val = v1 = v2 = 0.0;  in numin()
210 	v3 = 0;  in numin()
216 	if (*str == '-') {	/* negitive value test */  in numin()
226 		v1 += (double)(c - '0');  in numin()
242 			v2 += k * (double)(c - '0');  in numin()
246 		val += v2;  in numin()
258 		case '-':  in numin()
259 			e_flag = -1;  in numin()
264 			return (-1);  in numin()
270 			return (-1);  in numin()
272 		v3 = 10 * (int)(*str - '0');  in numin()
277 			return (-1);  in numin()
279 		v3 += (int)(*str - '0');  in numin()
281 		for (i = 0; i < v3; i++) {  in numin()
282 			if (e_flag > 0)  in numin()
290 		val *= -1.0;  in numin()
294 	printf("v1 = %f, v2 = %f, v3 = %d\n", v1, v2, v3);  in numin()
298 	case '\0':  in numin()
305 		return (-1);  in numin()
309 	return (0);  in numin()
315 	register int ad;	/* after decimal point */  in checkbuf()  local
320 	bd = ad = dp = 0;  in checkbuf()
332 				ad++;  in checkbuf()
338 	tw = bd + dp + ad;  in checkbuf()
344 		return (-1);  in checkbuf()
347 	if (ad != n2) {  in checkbuf()
350 		return (-1);  in checkbuf()
356 		return (-1);  in checkbuf()
359 	return (0);  in checkbuf()