shithub: scc

ref: 68111eb68c383a0a0166b452ba5b4e7c50afb5a0
dir: /src/libc/stdlib/atol.c/

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

#include "../libc.h"

#undef atol

long
atol(const char *s)
{
	int d, 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; (d = _dtoi(*s)) < 10; ++s)
		n = n*10 - d;

	return sign * n;
}