shithub: scc

ref: b7e9430d7f6df2b479baba4470474d130039e8c6
dir: /src/libc/stdlib/atol.c/

View raw version 
#include <ctype.h>
#include <stdlib.h>
#undef atol

long
atol(const char *s)
{
	int sign = -1;
	long n;

	while (isspace(*s))
		++s;

	switch (*s) {
	case '-':
		sign = 1;
	case '+':
		++s;
	}

	/* Compute n as a negative number to avoid overflow on LONG_MIN */
	for (n = 0; isdigit(*s); ++s)
		n = 10*n - (*s - '0');

	return sign * n;
}