blob: 82864179d5b2eb9a68ba30b304e21f6409d679c2 (
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
|
/* See LICENSE file for copyright and license details. */
#include "lib-common.h"
enum libcharconv_result
libcharconv_yijing_tetragrams(const char *s, size_t slen, size_t *n, uint_least32_t *cp, size_t *ncp)
{
uint_least32_t c;
*n = 0;
for (; slen--; s++) {
if ('1' <= s[0] && s[0] <= '3') {
if (slen == 0u)
return LIBCHARCONV_INDETERMINATE;
if ('1' > s[1] || s[1] > '3')
goto no_match;
if (slen == 1u)
return LIBCHARCONV_INDETERMINATE;
if ('1' > s[2] || s[2] > '3')
goto no_match;
if (slen == 2u)
return LIBCHARCONV_INDETERMINATE;
if ('1' > s[3] || s[3] > '3')
goto no_match;
c = UINT32_C(0x1D306);
c += (uint_least32_t)(s[3] - '1') * 1u;
c += (uint_least32_t)(s[2] - '1') * 3u;
c += (uint_least32_t)(s[1] - '1') * 9u;
c += (uint_least32_t)(s[0] - '1') * 27u;
goto conv;
} else {
no_match:
*n += 1u;
}
}
no_conv:
return LIBCHARCONV_NO_CONVERT;
conv:
if (*n)
goto no_conv;
if (*ncp)
*cp = c;
*n += 4u;
*ncp = 1u;
return LIBCHARCONV_CONVERTED;
}
|
