sbase/util/estrtol.c

28 lines
430 B
C
Raw Normal View History

2011-06-10 04:46:20 +00:00
/* See LICENSE file for copyright and license details. */
#include <errno.h>
2011-06-10 04:46:20 +00:00
#include <stdio.h>
#include <stdlib.h>
2011-06-10 04:46:20 +00:00
#include "../util.h"
long
2011-06-10 13:55:01 +00:00
estrtol(const char *s, int base)
2011-06-10 04:46:20 +00:00
{
char *end;
long n;
errno = 0;
2011-06-10 04:46:20 +00:00
n = strtol(s, &end, base);
if(*end != '\0') {
if(base == 0)
2012-05-10 18:20:16 +00:00
eprintf("%s: not an integer\n", s);
else
2012-05-10 18:20:16 +00:00
eprintf("%s: not a base %d integer\n", s, base);
2011-06-10 04:46:20 +00:00
}
if(errno != 0)
eprintf("%s:", s);
2011-06-10 04:46:20 +00:00
return n;
}