# include <inttypes.h>
# include <stdarg.h>
# include <stdint.h>
# include <stdio.h>
# include <stdlib.h>
# include <u8c/SIZE_C.h>
# include <u8c/err.h>
# include <u8c/fmt.h>
# include <u8c/is.h>
# include <u8c/main.h>
# include <u8c/u32.h>
# include <u8c/u8.h>
static void errhandl(enum u8c_errtyp errtyp);
static void test(    int n);
static void testmsg( char const * fmt,...);
static void testmsgdone( void);
static void errhandl(enum u8c_errtyp errtyp) {
	printf(":: Error handler called with type %d.\n",(int)errtyp);
}
static void test(int n) {
	switch(n) {
	case 0x0:
		testmsg("(0) Error messages");
		{
			char32_t const * err = NULL;
			u8c_geterr(NULL,&err);
			printf("default error message: ");
			u8c_println(stdout,err);
			u8c_seterr(U"Gluchwein!",u8c_errtyp_deferr);
			u8c_geterr(NULL,&err);
			printf("set error message:     ");
			u8c_println(stdout,err);
			u8c_u32free(&err);
		}
		testmsgdone();
		break;
	case 0x1:
		testmsg("(1) UTF-8 encoding/decoding");
		{
			char32_t const * msg0 = U"¢,ह,𐍈,€,↊,👋";
			unsigned char const *  msg1 = NULL;
			u8c_u8enc(NULL,&msg1,msg0);
			msg0 = NULL;
			printf("Encoded:                       %s\n",msg1);
			u8c_u8dec(NULL,&msg0,msg1);
			u8c_u8enc(NULL,&msg1,msg0);
			printf("Encoded -> Decoded -> Encoded: %s\n",msg1);
			u8c_u32free(&msg0);
			u8c_u8free(&msg1);
		}
		testmsgdone();
		break;
	case 0x2:
		testmsg("Printing (u8c_print)");
		{
			u8c_print(stdout,U"Hello");
			u8c_print(stdout,U" ðere!");
		}
		testmsgdone();
		break;
	case 0x3:
		testmsg("(3) Printing (u8c_println)");
		{
			u8c_println(stdout,U"Hello");
			u8c_println(stdout,U" ðere!");
		}
		testmsgdone();
		break;
	case 0x4:
		testmsg("(4) Text formatting");
		{
			u8c_println(stdout,U"The \uFFFCnumber\uFFFC is \uFFFC.",u8c_fmttyp_fgcol,u8c_col_mint,u8c_fmttyp_fgcol0,u8c_fmttyp_int,(int_least64_t){-0x10});
		}
		testmsgdone();
		break;
	case 0x5:
		testmsg("(5) Colour text");
		{
			u8c_println(stdout,U"\uFFFCred\uFFFCorange\uFFFCyellow\uFFFCchartreuse\uFFFCgreen\uFFFCmint\uFFFCcyan\uFFFCazure\uFFFCblue\uFFFCviolet\uFFFCmagenta\uFFFCrose\uFFFC",u8c_fmttyp_fgcol,u8c_col_red,u8c_fmttyp_fgcol,u8c_col_orange,u8c_fmttyp_fgcol,u8c_col_yellow,u8c_fmttyp_fgcol,u8c_col_chartreuse,u8c_fmttyp_fgcol,u8c_col_green,u8c_fmttyp_fgcol,u8c_col_mint,u8c_fmttyp_fgcol,u8c_col_cyan,u8c_fmttyp_fgcol,u8c_col_azure,u8c_fmttyp_fgcol,u8c_col_blue,u8c_fmttyp_fgcol,u8c_col_violet,u8c_fmttyp_fgcol,u8c_col_magenta,u8c_fmttyp_fgcol,u8c_col_rose,u8c_fmttyp_fgcol0);
		}
		testmsgdone();
		break;
	case 0x6:
		testmsg("(6) Combining characters");
		{
			for(register uint_least32_t n = UINT32_C(0x300);n <= UINT32_C(0x36F);n += UINT32_C(0x1)) {
				u8c_print(stdout,(uint_least32_t[]){UINT32_C(0x61),n,UINT32_C(0x20),UINT32_C(0x0),});
				fflush(stdout);
			}
			u8c_print(stdout,U"\n");
		}
		testmsgdone();
		break;
	case 0x7:
		testmsg("(7) String comparison");
		{
			char32_t const * str0 = U"Hello";
			char32_t const * str1 = U"Hello";
			char32_t const * str2 = U"Goodbye";
			printf("str0: ");
			u8c_println(stdout,str0);
			printf("str1: ");
			u8c_println(stdout,str1);
			printf("str2: ");
			u8c_println(stdout,str2);
			uint_least8_t res = UINT8_C(0x0);
			u8c_u32cmp(&res,str0,str1);
			printf("str0,str1: %" PRIXLEAST8 ".\n",res);
			u8c_u32cmp(&res,str1,str2);
			printf("str0,str2: %" PRIXLEAST8 ".\n",res);
			u8c_u32cmp(&res,str2,str1);
			printf("str2,str1: %" PRIXLEAST8 ".\n",res);
		}
		testmsgdone();
		break;
	case 0x8:
		testmsg("(8) u8c_isalnum");
		{
			for(register uint_least32_t n = UINT32_C(0x1);n <= UINT32_C(0x10FFFF);n += UINT32_C(0x1)) {
				uint_least8_t res = UINT8_C(0x0);
				u8c_isalnum(&res,n);
				if(res) {
					u8c_print(stdout,(uint_least32_t[]){n,UINT32_C(0x20),UINT32_C(0x0),});
				}
			}
			u8c_println(stdout,U"");
		}
		testmsgdone();
		break;
	case 0x9:
		testmsg("(9) u8c_isalpha");
		{
			for(register uint_least32_t n = UINT32_C(0x1);n <= UINT32_C(0x10FFFF);n += UINT32_C(0x1)) {
				uint_least8_t res = UINT8_C(0x0);
				u8c_isalpha(&res,n);
				if(res) {
					u8c_print(stdout,(uint_least32_t[]){n,UINT32_C(0x20),UINT32_C(0x0),});
				}
			}
			u8c_println(stdout,U"");
		}
		testmsgdone();
		break;
	case 0xA:
		testmsg("(10) u8c_isdigit");
		{
			for(register uint_least32_t n = UINT32_C(0x1);n <= UINT32_C(0x10FFFF);n += UINT32_C(0x1)) {
				uint_least8_t res = UINT8_C(0x0);
				u8c_isdigit(&res,n);
				if(res) {
					u8c_print(stdout,(uint_least32_t[]){n,UINT32_C(0x20),UINT32_C(0x0),});
				}
			}
			u8c_println(stdout,U"");
		}
		testmsgdone();
		break;
	case 0xB:
		testmsg("(11) u8c_ispunct"); /* This test appears broken on some incomplete fonts, altough it is not. */
		{
			for(register uint_least32_t n = UINT32_C(0x1);n <= UINT32_C(0x10FFFF);n += UINT32_C(0x1)) {
				uint_least8_t res = UINT8_C(0x0);
				u8c_ispunct(&res,n);
				if(res) {
					u8c_print(stdout,(uint_least32_t[]){n,UINT32_C(0x20),UINT32_C(0x0),});
				}
			}
			u8c_println(stdout,U"");
		}
		testmsgdone();
		break;
	case 0xC:
		testmsg("(12) UTF-32 string literals");
		{
			u8c_println(stdout,U"Can you see ðis?");
		}
		testmsgdone();
		break;
	case 0xD:
		testmsg("(13) string concatenation");
		{
			char32_t const * str0 = U"Free_as_in";
			char32_t const * str1 = U"_freedom!";
			char32_t const * str2 = NULL;
			u8c_u32cat(NULL,&str2,str0,str1);
			printf("string #0: ");
			u8c_println(stdout,str0);
			printf("string #1: ");
			u8c_println(stdout,str1);
			printf("string #2: ");
			u8c_println(stdout,str2);
			u8c_u32free(&str2);

		}
		testmsgdone();
		break;
	case 0xE:
		testmsg("(14) sub-strings");
		{
			char32_t const * str0 = U"I_wish_to_suck_big_duck.";
			char32_t const * str1 = NULL;
			u8c_u32substr(&str1,SIZE_C(0x0),SIZE_C(0xE),str0);
			char32_t const * str2 = NULL;
			u8c_u32substr(&str2,SIZE_C(0xF),SIZE_C(0x0),str0);
			printf("string #0: ");
			u8c_println(stdout,str0);
			printf("string #1: ");
			u8c_println(stdout,str1);
			printf("string #2: ");
			u8c_println(stdout,str2);
			u8c_u32free(&str1);
			u8c_u32free(&str2);
		}
		testmsgdone();
		break;
	case 0xF:
		testmsg("(15) u8c_isxdigit");
		{
			for(register uint_least32_t n = UINT32_C(0x1);n <= UINT32_C(0x10FFFF);n += UINT32_C(0x1)) {
				uint_least8_t res = UINT8_C(0x0);
				u8c_isxdigit(&res,n);
				if(res) {
					u8c_print(stdout,(uint_least32_t[]){n,UINT32_C(0x20),UINT32_C(0x0),});
				}
			}
			u8c_println(stdout,(uint_least32_t[]){UINT32_C(0x0),});
		}
		testmsgdone();
		break;
	case 0x10:
		testmsg("(16) Printing (u8c_dbgprint)");
		{
			u8c_dbgprint(U"Hello");
			u8c_dbgprint(U" ðere!");
		}
		testmsgdone();
		break;
	case 0x11:
		testmsg("(17) u8c_u32fndchr");
		{
			char32_t const * str  = U"Proprietary as in Micro$oft.";
			size_t                 pos0 = SIZE_C(0x0);
			size_t                 pos1 = SIZE_C(0x0);
			u8c_u32fndchr(&pos0,str,U'M');
			u8c_u32fndchr(&pos1,str,U'ŋ');
			printf("string: ");
			u8c_println(stdout,str);
			printf("Position of 'M': %zu\n",pos0);
			printf("Position of 'ŋ': %zu\n",pos1);
		}
		testmsgdone();
		break;
	case 0x12:
		testmsg("(18) u8c_u32fndpat");
		{
			char32_t const * str  = U"Proprietary as in Micro$oft.";
			size_t                 pos0 = SIZE_C(0x0);
			size_t                 pos1 = SIZE_C(0x0);
			u8c_u32fndpat(&pos0,str,U"as in");
			u8c_u32fndpat(&pos1,str,U"forever");
			printf("string: ");
			u8c_println(stdout,str);
			printf("Position of \"as in\": %zu\n",pos0);
			printf("Position of \"forever\": %zu\n",pos1);
		}
		testmsgdone();
		break;
	case 0x13:
		testmsg("(19) string insertion");
		{
			char32_t const * str0 = U"There_is_I_love.";
			char32_t const * str1 = U"just_somebody_that_";
			char32_t const * str2 = NULL;
			u8c_u32ins(NULL,&str2,SIZE_C(0x9),str0,str1);
			printf("String #0: ");
			u8c_println(stdout,str0);
			printf("String #1: ");
			u8c_println(stdout,str1);
			printf("String #2: ");
			u8c_println(stdout,str2);
			u8c_u32free(&str2);
		}
		testmsgdone();
		break;
	}
}
static void testmsg(char const * fmt,...) {
	va_list args;
	va_start(args,fmt);
	/* printf("\n+->\n| \x1b[38:2:169:225:61mTesting\x1b[0m \""); */  /* This command works in all of the terminals I tested, except Konsole (whic is funny, because it's xterm-based, and xterm supports it). */
	printf("\n+->\n| \x1b[38;2;169;225;61mTesting\x1b[0m \"");
	vprintf(fmt,args);
	printf("\"...\n+->\n\n");
	va_end(args);
}
static void testmsgdone() {
	/* printf("\n+->\n| \x1b[38:2::61:225:169mDone\x1b[0m!\n+->\n"); */
	printf("\n+->\n| \x1b[38;2;61;225;169mDone\x1b[0m!\n+->\n");
}
int main(int const argc,char const * * argv) {
	if(u8c_init()) {
		printf("Unable to initialise u8c!\n");
		exit(EXIT_FAILURE);
	}
	u8c_regerrhandl(u8c_errtyp_all,errhandl);
	u8c_setfmt(UINT8_C(0xC),UINT8_C(0x1));
	printf("u8c version: %" PRIXLEAST64 ".\n",u8c_ver);
	printf("Debug build: %" PRIXLEAST8 ".\n",u8c_dbg);
	printf("Thread safe: %" PRIXLEAST8 ".\n",u8c_thrdsafe);
	if(argc == 0x2) {
		test(atoi(argv[SIZE_C(0x1)]));
	}
	else {
		for(int n = 0x0;n <= 0x13;n += 0x1) {
			test(n);
		}
	}
	u8c_end();
	exit(EXIT_SUCCESS);
}