summaryrefslogblamecommitdiff
path: root/src/stdlib/atol.c
blob: 9c91bba9d915dbe1760918f7af76ab548b324717 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16















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

long atol(const char *s)
{
	long n=0;
	int neg=0;
	while (isspace(*s)) s++;
	switch (*s) {
	case '-': neg=1;
	case '+': s++;
	}
	while (isdigit(*s))
		n = 10*n + *s++ - '0';
	return neg ? -n : n;
}