59 lines
1.2 KiB
C
59 lines
1.2 KiB
C
/*
|
|
* This file was copied from util-linux at fall 2011.
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include "c.h"
|
|
#include "strutils.h"
|
|
|
|
/*
|
|
* same as strtol(3) but exit on failure instead of returning crap
|
|
*/
|
|
long strtol_or_err(const char *str, const char *errmesg)
|
|
{
|
|
long num;
|
|
char *end = NULL;
|
|
|
|
if (str != NULL && *str != '\0') {
|
|
errno = 0;
|
|
num = strtol(str, &end, 10);
|
|
if (errno == 0 && str != end && end != NULL && *end == '\0')
|
|
return num;
|
|
}
|
|
error(EXIT_FAILURE, errno, "%s: '%s'", errmesg, str);
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
* same as strtod(3) but exit on failure instead of returning crap
|
|
*/
|
|
double strtod_or_err(const char *str, const char *errmesg)
|
|
{
|
|
double num;
|
|
char *end = NULL;
|
|
|
|
if (str != NULL && *str != '\0') {
|
|
errno = 0;
|
|
num = strtod(str, &end);
|
|
if (errno == 0 && str != end && end != NULL && *end == '\0')
|
|
return num;
|
|
}
|
|
error(EXIT_FAILURE, errno, "%s: '%s'", errmesg, str);
|
|
return 0;
|
|
}
|
|
|
|
#ifdef TEST_PROGRAM
|
|
int main(int argc, char *argv[])
|
|
{
|
|
if (argc < 2) {
|
|
error(EXIT_FAILURE, 0, "no arguments");
|
|
} else if (argc < 3) {
|
|
printf("%ld\n", strtol_or_err(argv[1], "strtol_or_err"));
|
|
} else {
|
|
printf("%lf\n", strtod_or_err(argv[2], "strtod_or_err"));
|
|
}
|
|
return EXIT_SUCCESS;
|
|
}
|
|
#endif /* TEST_PROGRAM */
|