strtod.c

著名操作系统Plan 9的第三版的部分核心源代码。现在很难找到了。Plan 9是bell实验室开发的Unix后继者。

#include <u.h>
#include <libc.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;
}