busybox/libbb/bb_strtod.c

/* vi: set sw=4 ts=4: */
/*
 * Utility routines.
 *
 * Copyright (C) 1999-2004 by Erik Andersen <andersen@codepoet.org>
 *
 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
 */

#include "libbb.h"
#include <math.h>  /* just for HUGE_VAL */

#define NOT_DIGIT(a) (((unsigned char)(a-'0')) > 9)

double FAST_FUNC bb_strtod(const char *arg, char **endp)
{
	double v;
	char *endptr;

	/* Allow .NN form. People want to use "sleep .15" etc */
	if (arg[0] != '-' && arg[0] != '.' && NOT_DIGIT(arg[0]))
		goto err;
	errno = 0;
	v = strtod(arg, &endptr);
	if (endp)
		*endp = endptr;
	if (endptr[0]) {
		/* "1234abcg" or out-of-range? */
		if (isalnum(endptr[0]) || errno) {
 err:
			errno = ERANGE;
			return HUGE_VAL;
		}
		/* good number, just suspicious terminator */
		errno = EINVAL;
	}
	return v;
}

#if 0
/* String to timespec: "NNNN[.NNNNN]" -> struct timespec.
 * Can be used for other fixed-point needs.
 * Returns pointer past last converted char,
 * and returns errno similar to bb_strtoXX functions.
 */
char* FAST_FUNC bb_str_to_ts(struct timespec *ts, const char *arg)
{
	if (sizeof(ts->tv_sec) <= sizeof(int))
		ts->tv_sec = bb_strtou(arg, &arg, 10);
	else if (sizeof(ts->tv_sec) <= sizeof(long))
		ts->tv_sec = bb_strtoul(arg, &arg, 10);
	else
		ts->tv_sec = bb_strtoull(arg, &arg, 10);
	ts->tv_nsec = 0;

	if (*arg != '.')
		return arg;

	/* !EINVAL: number is not ok (alphanumeric ending, overflow etc) */
	if (errno != EINVAL)
		return arg;

	if (!*++arg) /* "NNN." */
		return arg;

	{ /* "NNN.xxx" - parse xxx */
		int ndigits;
		char *p;
		char buf[10]; /* we never use more than 9 digits */

		/* Need to make a copy to avoid false overflow */
		safe_strncpy(buf, arg, 10);
		ts->tv_nsec = bb_strtou(buf, &p, 10);
		ndigits = p - buf;
		arg += ndigits;
		/* normalize to nsec */
		while (ndigits < 9) {
			ndigits++;
			ts->tv_nsec *= 10;
		}
		while (isdigit(*arg)) /* skip possible 10th plus digits */
			arg++;
	}
	return arg;
}
#endif
1	/* vi: set sw=4 ts=4: */
2	/*
3	* Utility routines.
4	*
5	* Copyright (C) 1999-2004 by Erik Andersen <andersen@codepoet.org>
6	*
7	* Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
8	*/
9
10	#include "libbb.h"
11	#include <math.h> /* just for HUGE_VAL */
12
13	#define NOT_DIGIT(a) (((unsigned char)(a-'0')) > 9)
14
15	double FAST_FUNC bb_strtod(const char arg, char *endp)
16	{
17	double v;
18	char *endptr;
19
20	/* Allow .NN form. People want to use "sleep .15" etc */
21	if (arg[0] != '-' && arg[0] != '.' && NOT_DIGIT(arg[0]))
22	goto err;
23	errno = 0;
24	v = strtod(arg, &endptr);
25	if (endp)
26	*endp = endptr;
27	if (endptr[0]) {
28	/* "1234abcg" or out-of-range? */
29	if (isalnum(endptr[0]) \|\| errno) {
30	err:
31	errno = ERANGE;
32	return HUGE_VAL;
33	}
34	/* good number, just suspicious terminator */
35	errno = EINVAL;
36	}
37	return v;
38	}
39
40	#if 0
41	/* String to timespec: "NNNN[.NNNNN]" -> struct timespec.
42	* Can be used for other fixed-point needs.
43	* Returns pointer past last converted char,
44	* and returns errno similar to bb_strtoXX functions.
45	*/
46	char* FAST_FUNC bb_str_to_ts(struct timespec ts, const char arg)
47	{
48	if (sizeof(ts->tv_sec) <= sizeof(int))
49	ts->tv_sec = bb_strtou(arg, &arg, 10);
50	else if (sizeof(ts->tv_sec) <= sizeof(long))
51	ts->tv_sec = bb_strtoul(arg, &arg, 10);
52	else
53	ts->tv_sec = bb_strtoull(arg, &arg, 10);
54	ts->tv_nsec = 0;
55
56	if (*arg != '.')
57	return arg;
58
59	/* !EINVAL: number is not ok (alphanumeric ending, overflow etc) */
60	if (errno != EINVAL)
61	return arg;
62
63	if (!++arg) / "NNN." */
64	return arg;
65
66	{ /* "NNN.xxx" - parse xxx */
67	int ndigits;
68	char *p;
69	char buf[10]; /* we never use more than 9 digits */
70
71	/* Need to make a copy to avoid false overflow */
72	safe_strncpy(buf, arg, 10);
73	ts->tv_nsec = bb_strtou(buf, &p, 10);
74	ndigits = p - buf;
75	arg += ndigits;
76	/* normalize to nsec */
77	while (ndigits < 9) {
78	ndigits++;
79	ts->tv_nsec *= 10;
80	}
81	while (isdigit(arg)) / skip possible 10th plus digits */
82	arg++;
83	}
84	return arg;
85	}
86	#endif