lang-bootstrap/05/musl-final/src/stdlib/atol.c
2025-04-05 10:55:40 +01:00

16 lines
238 B
C

#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;
}