#if 0
${CC:-gcc} -s -O2 -std=c99 -Wall -o ${SPREED_INSTALL_DIR:-.}/spreed src/spreed.c
exit
#endif

#include <locale.h>
#include <stdint.h>
#include <stdio.h>
#include <string.h>
#include <wchar.h>
#include <wctype.h>

#define CLR_FG     L"\033[31m"
#define CLR_RESET  L"\033[0m"

const uint8_t orps[9] = {0,0,0,1,1,2,2,2,2};

inline uint8_t get_optimal_recognition_point(size_t len) {
	if (len >= 10) return 3;
	return orps[len-1];
}

int main(int argc, char *argv[])
{
	wchar_t word[37];
	wchar_t wc;
	int c;
	char chararr[4];
	uint8_t u, uu, ichar, iword, b_word_break;

	ichar = 0;
	iword = 0;
	b_word_break = 0;
	memset(word, 0, 37 * sizeof(wchar_t));
	memset(chararr, 0, sizeof(chararr));

	setlocale(LC_ALL, "");
	fwide(stdout, 1);

	fwprintf(stdout, L"          V\n");
	do {
		b_word_break = 0;
		c = getchar();
		if (c == EOF) {
			b_word_break = iword > 0;
			goto END_OF_WORD;
		}
		chararr[ichar++] = (char)c;

		switch(mbrtowc(&wc, chararr, 4, NULL)) {
			case 0:
				// null char
				if (iword == 0 && ichar == 1) {
					ichar = 0;
					memset(chararr, 0, 4 * sizeof(char));
					continue;
				} else {
					b_word_break = 1;
					goto END_OF_WORD;
				}
			case (size_t)-2:
				// incomplete wchar_t, keep reading bytes
				continue;
			case (size_t)-1:
				if (ichar == 4) {
					// emojis return (size_t)-1 until we have all the bytes
					fwprintf(stderr, L"\nmbrtowc encoding error\n");
					return 1;
				}
				continue;
		}

		// not a printable character, swallow
		if (!iswprint(wc) && iword == 0) {
			ichar = 0;
			memset(chararr, 0, 4 * sizeof(char));
			continue;
		}

		if (iswspace(wc)) {
			if (iword == 0) {
				ichar = 0;
				memset(chararr, 0, 4 * sizeof(char));
				continue;
			}
			b_word_break = 1;
		}

END_OF_WORD:
		ichar = 0;
		memset(chararr, 0, 4 * sizeof(char));

		if (b_word_break != 0 || iword >= 37) {
			if (iword == 0) {
				fwprintf(stderr, L"\n0 length word\n");
				return 2;
			}
			ichar = get_optimal_recognition_point(iword);
			uu = 0;
			putwchar('\r');
			for (u = 0; u < 48; ++u) {
				if (u < 10-ichar) {
					putwchar(L' ');
					continue;
				}
				if (uu < iword) {
					if (u == 10) {
						fwprintf(stdout, L"%ls", CLR_FG);
					}
					putwchar(word[uu++]);
					if (u == 10) {
						fwprintf(stdout, L"%ls", CLR_RESET);
					}
					continue;
				}
				putwchar(L' ');
			}
			putwchar('\n');

			iword = 0;
			memset(word, 0, 37 * sizeof(wchar_t));
		}

		ichar = 0;
		if (!iswspace(wc)) {
			word[iword++] = wc;
		}

	} while (c != EOF);

	putwchar('\n');

	return 0;
}