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
55
56
57
58
59
60
61
62
63
64
|
/* See LICENSE file for copyright and license details. */
#include "internals"
#include <stdlib.h>
#include <stdio.h>
#define num libzahl_tmp_str_num
#define rem libzahl_tmp_str_rem
/* All 9 you see here is derived from that 10⁹ is the largest
* power of than < 2³², and 32 is the number of bits in
* zahl_char_t. If zahl_char_t is chanced, the value 9, and
* the cast to unsigned long must be changed accordingly. */
char *
zstr(z_t a, char *b)
{
size_t n;
char overridden;
int neg;
if (zzero(a)) {
if (!b) {
b = malloc(2);
if (!b)
FAILURE_JUMP();
}
b[0] = '0';
b[1] = 0;
return b;
}
n = zstr_length(a, 10);
if (!b) {
b = malloc(n + 1);
if (!b)
FAILURE_JUMP();
}
neg = zsignum(a) < 0;
zabs(num, a);
n -= neg;
n = n > 9 ? (n - 9) : 0;
b[0] = '-';
b += neg;
overridden = 0;
for (;;) {
zdivmod(num, rem, num, libzahl_const_1e9);
if (!zzero(num)) {
sprintf(b + n, "%09lu", (unsigned long)(rem->chars[0]));
b[n + 9] = overridden;
overridden = b[n + (9 - 1)];
n = n > 9 ? (n - 9) : 0;
} else {
n += sprintf(b + n, "%lu", (unsigned long)(rem->chars[0]));
b[n] = overridden;
break;
}
}
return b - neg;
}
|
