28 lines
430 B
C
28 lines
430 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') {
|
|
if(base == 0)
|
|
eprintf("%s: not an integer\n", s);
|
|
else
|
|
eprintf("%s: not a base %d integer\n", s, base);
|
|
}
|
|
if(errno != 0)
|
|
eprintf("%s:", s);
|
|
|
|
return n;
|
|
}
|
|
|