fxlibc/src/stdlib/strtol.c

#include "stdlib_p.h"
#include <errno.h>

long int strtol(char const * restrict ptr, char ** restrict endptr, int base)
{
	long n = 0;
	if(endptr)
		*endptr = (char *)ptr;

	struct __scanf_input in = { .str = ptr, .fp = NULL };
	__scanf_start(&in);
	int err = __strto_int(&in, base, &n, NULL, false);
	__scanf_end(&in);

	if(err != 0)
		errno = err;
	if(err != EINVAL && endptr)
		*endptr = (char *)in.str;
	return n;
}