/* 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;
}