607 	extern char ebuf[], *ep;  in eprint()
611 	p = ep - 1;  in eprint()
619 	for (q=ep-1; q>=p && *q!=' ' && *q!='\t' && *q!='\n'; q--)  in eprint()
625 	for ( ; p < ep; p++)  in eprint()
629 	if (*ep)  in eprint()
635 	ep = ebuf;  in eprint()
685 	char *ep;  in is_number()  local
687 	r = strtod(s, &ep);  in is_number()
688 	if (ep == s || r == HUGE_VAL || errno == ERANGE)  in is_number()
690 	while (*ep == ' ' || *ep == '\t' || *ep == '\n')  in is_number()
691 		ep++;  in is_number()
692 	if (*ep == '\0')  in is_number()