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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
/* See LICENSE file for copyright and license details. */
#include "lib-common.h"
static unsigned char yijing_hexagrams[] = {
0xC0, 0xEB, 0xCC, 0xE0, 0xC9, 0xC5, 0xD8, 0xCB,
0xC8, 0xF8, 0xE4, 0xF4, 0xFC, 0xFA, 0xE9, 0xD3,
0xCD, 0xF1, 0xDD, 0xF7, 0xE5, 0xFF, 0xD4, 0xE2,
0xD9, 0xD1, 0xD5, 0xF3, 0xE8, 0xC3, 0xDA, 0xD6,
0xEA, 0xDB, 0xF0, 0xDE, 0xF9, 0xEE, 0xD0, 0xEC,
0xC4, 0xEF, 0xFE, 0xE6, 0xFB, 0xDC, 0xC2, 0xC7,
0xE1, 0xDF, 0xF6, 0xFD, 0xF5, 0xE7, 0xF2, 0xCF,
0xCA, 0xED, 0xE3, 0xCE, 0xD2, 0xC6, 0xD7, 0xC1
};
static struct {
uint_least32_t a;
uint_least32_t b;
} pairs[] = {
{UINT32_C(0x00A1), UINT32_C(0x0021)},
{UINT32_C(0xA4EF), (uint_least32_t)'A'},
{UINT32_C(0xA4D5), (uint_least32_t)'Y'}, /* the one in letterlike is sans-serif */
{UINT32_C(0xA4F5), (uint_least32_t)'U'},
{UINT32_C(0xA4E5), (uint_least32_t)'V'},
{UINT32_C(0x1D5B8), UINT32_C(0x2144)},
{UINT32_C(0x230D), UINT32_C(0x230F)},
{UINT32_C(0x230C), UINT32_C(0x230E)},
{UINT32_C(0x268E), UINT32_C(0x268D)},
{UINT32_C(0x1D301), UINT32_C(0x1D303)},
{UINT32_C(0x1D302), UINT32_C(0x1D304)}
};
enum libcharconv_result
libcharconv_flipped(const char *s, size_t slen, size_t *n, uint_least32_t *cp, size_t *ncp)
{
uint_least32_t c, x1, x2, x3, x4;
size_t i, clen;
*n = 0;
while (slen) {
clen = libcharconv_decode_utf8_(s, slen, &c);
if (clen > slen) {
if (*n)
goto no_conv;
return LIBCHARCONV_INDETERMINATE;
}
if (!clen) {
*n += 1u;
slen -= 1u;
s = &s[1];
continue;
}
if (UINT32_C(0x1F063) <= c && c <= UINT32_C(0x1F093)) {
c -= UINT32_C(0x1F063);
c = c % 7u * 7u + c / 7u;
c += UINT32_C(0x1F063);
goto conv;
} else if (UINT32_C(0x2630) <= c && c <= UINT32_C(0x2637)) {
c = ((c & 1u) << 2) | ((c & 4u) >> 2) | (c & ~5u);
goto conv;
} else if (UINT32_C(0x1D306) <= c && c <= UINT32_C(0x1D356)) {
c -= UINT32_C(0x1D306);
x1 = c / 1u % 3u;
x2 = c / 3u % 3u;
x3 = c / 9u % 3u;
x4 = c / 27u % 3u;
c = UINT32_C(0x1D306);
c += x4 * 1u;
c += x3 * 3u;
c += x2 * 9u;
c += x1 * 27u;
goto conv;
} else if (UINT32_C(0x4DC0) <= c && c <= UINT32_C(0x4DFF)) {
for (i = 0u;; i++)
if ((c & 0xFFu) == yijing_hexagrams[i])
break;
c = (i & 32u) ? 1u : 0u;
c |= (i & 16u) ? 2u : 0u;
c |= (i & 8u) ? 4u : 0u;
c |= (i & 4u) ? 8u : 0u;
c |= (i & 2u) ? 16u : 0u;
c |= (i & 1u) ? 32u : 0u;
c = UINT32_C(0x4D00) | yijing_hexagrams[c];
goto conv;
} else {
for (i = 0u; i < sizeof(pairs) / sizeof(*pairs); i++) {
if (c == pairs[i].a) {
c = pairs[i].b;
goto conv;
}
if (c == pairs[i].b) {
c = pairs[i].a;
goto conv;
}
}
}
*n += clen;
s = &s[clen];
slen -= clen;
}
no_conv:
return LIBCHARCONV_NO_CONVERT;
conv:
if (*n)
goto no_conv;
if (*ncp)
*cp = c;
*n += clen;
*ncp = 1u;
return LIBCHARCONV_CONVERTED;
}
|
