From a7c404e03a4b814160ec4c97797a56ee4581a0f7 Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Sun, 25 Jan 2026 12:04:20 +0100 Subject: Add yijing n-grams MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- libcharconv_yijing_trigrams.c | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 libcharconv_yijing_trigrams.c (limited to 'libcharconv_yijing_trigrams.c') diff --git a/libcharconv_yijing_trigrams.c b/libcharconv_yijing_trigrams.c new file mode 100644 index 0000000..7292283 --- /dev/null +++ b/libcharconv_yijing_trigrams.c @@ -0,0 +1,41 @@ +/* See LICENSE file for copyright and license details. */ +#include "lib-common.h" + + +enum libcharconv_result +libcharconv_yijing_trigrams(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] <= '2') { + if (slen == 0u) + return LIBCHARCONV_INDETERMINATE; + if ('1' > s[1] || s[1] > '2') + goto no_match; + if (slen == 1u) + return LIBCHARCONV_INDETERMINATE; + if ('1' > s[2] || s[2] > '2') + goto no_match; + c = UINT32_C(0x2630); + c += (uint_least32_t)(s[0] == '2' ? 1u : 0u); + c += (uint_least32_t)(s[1] == '2' ? 2u : 0u); + c += (uint_least32_t)(s[2] == '2' ? 4u : 0u); + goto conv; + } else { + no_match: + *n += 1u; + } + } +no_conv: + return LIBCHARCONV_NO_CONVERT; + +conv: + if (*n) + goto no_conv; + if (*ncp) + *cp = c; + *n += 3u; + *ncp = 1u; + return LIBCHARCONV_CONVERTED; +} -- cgit v1.2.3-70-g09d2