ubase/libutil/estrtol.c

28 lines
433 B
C
Raw Normal View History

/* 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);
2014-07-09 15:39:32 +00:00
if (*end != '\0') {
if (base == 0)
eprintf("%s: not an integer\n", s);
else
eprintf("%s: not a base %d integer\n", s, base);
}
2014-07-09 15:39:32 +00:00
if (errno != 0)
eprintf("%s:", s);
return n;
}