From a626bacf8e45af60727882250f9d3abeb15ff3cd Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Wed, 2 Mar 2016 09:59:52 +0100 Subject: Add zsets and zstr MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- src/zsets.c | 47 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 src/zsets.c (limited to 'src/zsets.c') diff --git a/src/zsets.c b/src/zsets.c new file mode 100644 index 0000000..12669b9 --- /dev/null +++ b/src/zsets.c @@ -0,0 +1,47 @@ +/* See LICENSE file for copyright and license details. */ +#include "internals" + +#include + + +int +zsets(z_t a, const char *str) +{ + unsigned long long int temp = 0; + int neg = (*str == '-'); + const char *str_end; + + str += neg || (*str == '+'); + + if (!*str) { + errno = EINVAL; + return -1; + } + for (str_end = str; *str_end; str_end++) { + if (!isdigit(*str_end)) { + errno = EINVAL; + return -1; + } + } + + SET_SIGNUM(a, 0); + + switch ((str_end - str) % 19) { + while (*str) { +#define X(n)\ + temp *= 10, temp += *str++ & 15;\ + case n: + X(18) X(17) X(16) X(15) X(14) X(13) X(12) X(11) X(10) + X(9) X(8) X(7) X(6) X(5) X(4) X(3) X(2) X(1) X(0) +#undef X + zmul(a, a, libzahl_const_1e19); + zsetu(libzahl_tmp_str_num, temp); + zadd(a, a, libzahl_tmp_str_num); + temp = 0; + } + } + + if (neg) + SET_SIGNUM(a, -zsignum(a)); + return 0; +} -- cgit v1.2.3-70-g09d2