#include "font.h"
#include <stdint.h>
#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <wchar.h>

/* CAUTION: REQUIRES INPUT TO BE \0-TERMINATED */
int console_render(char *s, glyph_t **glyph_table, unsigned int glyph_table_size){
	unsigned int len = strlen(s);

	uint8_t *gbuf = NULL;
	unsigned int gbufwidth = 0;
	unsigned int gbufheight = 0;
	char *p = s;

	printf("Input: ");
	for(int i=0; i<=len; i++){
		printf("%02x ", (unsigned char)s[i]);
	}
	printf(" (%s)\n", s);

	wchar_t c;
	for(;;){
		size_t inc = mbrtowc(&c, p, (s+len+1)-p, NULL);
		printf("Converted %lx (%x) remaining length %d to %lc rv %d\n", p, (unsigned char)*p, (s+len+1)-p, c, inc);
		if(inc == -1 || inc == -2){
			fprintf(stderr, "Error rendering string: No valid UTF-8 input.\n");
			goto error;
		}
		if(inc == 0) // Reached end of string
			break;
		p += inc;

		if(c > glyph_table_size){
			fprintf(stderr, "Error rendering string: Codepoint 0x%lx out of valid range (0-%d).\n", (long int)c, glyph_table_size);
			goto error;
		}

		glyph_t *g = glyph_table[c];
		if(!g){
			fprintf(stderr, "Error rendering string: Codepoint 0x%lx not in font.\n", (long int)c);
			goto error;
		}

		if(g->height > gbufheight)
			gbufheight = g->height;

		gbufwidth += g->width;
	}
	// For easier rendering on the terminal, round up to multiples of two
	gbufheight += gbufheight&1;

	unsigned int gbufsize = gbufwidth*gbufheight;
	gbuf = malloc(gbufsize);
	if(gbuf == 0){
		fprintf(stderr, "Cannot malloc() %d bytes.\n", gbufsize);
		goto error;
	}
	memset(gbuf, 0, gbufsize);

	unsigned int x = 0;
	p = s;
	for(;;){
		size_t inc = mbrtowc(&c, p, (s+len+1)-p, NULL);
		// If p contained
		if(inc == 0) // Reached end of string
			break;
		p += inc;

		glyph_t *g = glyph_table[c];
		render_glyph(g, gbuf, gbufwidth, x, 0);
		x += g->width;
	}

	for(unsigned int y=0; y < gbufheight; y++){
		for(unsigned int x=0; x < gbufwidth; x++){
			//Da magicks: ▀█▄
			char c1 = gbuf[y*gbufwidth + x];
			char c2 = gbuf[(y+1)*gbufwidth + x];
			if(c1 && c2)
				printf("█");
			else if(c1 && !c2)
				printf("▀");
			else if(!c1 && c2)
				printf("▄");
			else
				printf(" ");
		}
		printf("\n");
	}
	return 0;
error:
	free(gbuf);
	return 1;
}

int main(int argc, char **argv){
	FILE *f = fopen("unifont.bdf", "r");
	if(!f){
		fprintf(stderr, "Error opening font file: %s\n", strerror(errno));
		return 1;
	}
	glyph_t* glyph_table[BLP_SIZE];
	if(read_bdf(f, glyph_table, BLP_SIZE)){
		fprintf(stderr, "Error reading font file.\n");
		return 1;
	}
	for(unsigned int i=1; i<argc; i++){
		if(console_render(argv[i], glyph_table, BLP_SIZE)){
			fprintf(stderr, "Error rendering text.\n");
			return 1;
		}
		printf("\n");
	}
	return 0;
}