atol.c

iccavr编译器下的源代码

#include <ctype.h>
#include <stdlib.h>
#include <errno.h>

long atol(CONST char *s)
	{
	int uminus;
	long v;
	
	while (isspace(*s))
		s++;
	uminus = 0;
	if (*s == '-')
		{
		uminus = 1;
		s++;
		}
	else if (*s == '+')
		s++;
	for (v = 0; isdigit(*s); )
		v = v * 10 + *s++ - '0';
	if (uminus)
		return -v;
	return v;
	}