code: 9ferno

ref: ab24e5e186af64aa39cdfa03a87e7ce2eec6ad4b
dir: /libkern/strtod.c/

View raw version 
#include <lib9.h>

static int
strtodf(void *vp)
{
	return *(*((char**)vp))++;
}

double
strtod(char *s, char **end)
{
	double d;
	char *ss;
	int c;

	ss = s;
	d = charstod(strtodf, &s);
	/*
	 * Fix cases like 2.3e+ , which charstod will consume
	 */
	if(end){
		*end = --s;
		while(s > ss){
			c = *--s;
			if(c!='-' && c!='+' && c!='e' && c!='E')
				break;
			(*end)--;
		}
	}
	return d;
}