shithub: scc

ref: 634508e69362fc2404b0134f237019f71cb00101
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;
}