sbase/util/estrtol.c

27 lines
417 B
C

/* See LICENSE file for copyright and license details. */
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include "../util.h"
long
estrtol(const char *s, int base)
{
char *end;
long n;
errno = 0;
n = strtol(s, &end, base);
if(*end != '\0' || errno != 0) {
if(base == 0) {
eprintf("%s: not an integer\n", s);
} else {
eprintf("%s: not a base %d integer\n", s, base);
}
}
return n;
}