1 files changed, 47 insertions, 0 deletions
diff --git a/libcharconv_fraktur.c b/libcharconv_fraktur.c
new file mode 100644
index 0000000..4e9932f
--- /dev/null
+++ b/libcharconv_fraktur.c
@@ -0,0 +1,47 @@
+/* See LICENSE file for copyright and license details. */
+#include "libcharconv.h"
+
+
+enum libcharconv_result
+libcharconv_fraktur(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 (*s == 'C') {
+			c = (uint_least32_t)UINT32_C(0x212D);
+			goto conv;
+		} else if (*s == 'H') {
+			c = (uint_least32_t)UINT32_C(0x210C);
+			goto conv;
+		} else if (*s == 'I') {
+			c = (uint_least32_t)UINT32_C(0x2111);
+			goto conv;
+		} else if (*s == 'R') {
+			c = (uint_least32_t)UINT32_C(0x211C);
+			goto conv;
+		} else if (*s == 'Z') {
+			c = (uint_least32_t)UINT32_C(0x2128);
+			goto conv;
+		} else if ('A' <= *s && *s <= 'Z') {
+			c = (uint_least32_t)(UINT32_C(0x1D504) + (unsigned)(*s - 'A'));
+			goto conv;
+		} else if ('a' <= *s && *s <= 'z') {
+			c = (uint_least32_t)(UINT32_C(0x1D51E) + (unsigned)(*s - 'a'));
+			goto conv;
+		} else {
+			*n += 1u;
+		}
+	}
+no_conv:
+	return LIBCHARCONV_NO_CONVERT;
+
+conv:
+	if (*n)
+		goto no_conv;
+	if (*ncp)
+		*cp = c;
+	*n += 1u;
+	*ncp = 1u;
+	return LIBCHARCONV_CONVERTED;
+}