iframe-proxy | Sunbelt Computer Software

50 lines (46 loc) · 815 Bytes

/* Just in case you haven't got an atof() around...
   This one doesn't check for bad syntax or overflow,
   and is slow and inaccurate.
   But it's good enough for the occasional string literal... */
#include "pyconfig.h"
#include <ctype.h>
double atof(char *s)
	double a = 0.0;
	int e = 0;
	while ((c = *s++) != '\0' && isdigit(c)) {
		a = a*10.0 + (c - '0');
	if (c == '.') {
		while ((c = *s++) != '\0' && isdigit(c)) {
			a = a*10.0 + (c - '0');
			e = e-1;
	if (c == 'e' || c == 'E') {
		int sign = 1;
		int i = 0;
		c = *s++;
		if (c == '+')
			c = *s++;
		else if (c == '-') {
			c = *s++;
			sign = -1;
		while (isdigit(c)) {
			i = i*10 + (c - '0');
			c = *s++;
		e += i*sign;
	while (e > 0) {
		a *= 10.0;
	while (e < 0) {
		a *= 0.1;

Sunbelt Computer Software

PL/B Language Development and Support

Navigation Menu

Sunbelt Computer Software

PL/B Language Development and Support

FilesExpand file tree

atof.c

Latest commit

History

atof.c

File metadata and controls