blob: b5f9e044555f0e3406cc33b87ae14d42c9a93abc (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
/* See LICENSE file for copyright and license details. */
#include "internals.h"
#include <ctype.h>
#ifdef __GNUC__
# pragma GCC diagnostic ignored "-Wswitch-default"
#endif
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 (check(!*str)) {
errno = EINVAL;
return -1;
}
for (str_end = str; *str_end; str_end++) {
if (check(!isdigit(*str_end))) {
errno = EINVAL;
return -1;
}
}
SET_SIGNUM(a, 0);
zset(libzahl_tmp_str_num, libzahl_const_1e19);
switch ((str_end - str) % 19) {
while (*str) {
zmul(a, a, libzahl_const_1e19);
temp = 0;
#define X(n)\
case n:\
temp *= 10, temp += *str++ & 15;
X(0) 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)
#undef X
if (!temp)
continue;
libzahl_tmp_str_num->chars[0] = (zahl_char_t)temp;
zadd(a, a, libzahl_tmp_str_num);
}
}
if (unlikely(neg))
SET_SIGNUM(a, -zsignum(a));
return 0;
}
|
