#define _CRT_SECURE_NO_WARNINGS
#include "Font.h"
string readfile(string filename);
using namespace std;

string Font::font_dir = "../containers/test/fonts/"; // ctest is run from litehtml/build
Font::size_name Font::installed_fonts[] =
{
	{ 12, "terminus-ascii-bold-12px.yaff" },
	{ 14, "terminus-ascii-bold-14px.yaff" },
	{ 16, "terminus-ascii-bold-16px.yaff" },
	{ 18, "terminus-ascii-bold-18px.yaff" },
	{ 20, "terminus-ascii-bold-20px.yaff" },
	{ 22, "terminus-ascii-bold-22px.yaff" },
	{ 24, "terminus-ascii-bold-24px.yaff" },
	{ 28, "terminus-ascii-bold-28px.yaff" },
	{ 32, "terminus-ascii-bold-32px.yaff" },
	{ 0 }
};

Font::Font(int size)
{
	// find most suitable font
	int min_diff = 1000;
	int n = 0;
	for (int i = 0; installed_fonts[i].size; i++)
	{
		int diff = abs(installed_fonts[i].size - size);
		if (diff < min_diff)
		{
			min_diff = diff;
			n = i;
		}
	}
	
	load(font_dir + installed_fonts[n].name);
}

Bitmap Font::get_glyph(int ch, web_color color)
{
	if (ch < 0 || ch >= 128 || glyphs[ch].width == 0)
	{
		Bitmap bmp(width, height, web_color::transparent);
		bmp.draw_rect(1, 1, width - 2, height - 2, color);
		return bmp;
	}
	else if (color != web_color::black)
	{
		Bitmap bmp = glyphs[ch];
		bmp.replace_color(web_color::black, color);
		return bmp;
	}
	else
	{
		return glyphs[ch];
	}
}

// load .yaff font file in an ad hoc manner (can't parse arbitrary yaff files)
void Font::load(string filename)
{
	string text = readfile(filename);
	
	string_vector lines;
	split_string(text, lines, "\n");

	int i;
	// parse header
	for (i = 0; i < lines.size(); i++)
	{
		string line = lines[i];
		trim(line);
		if (line == "" || line[0] == '#') continue; // skip empty lines and comments

		auto sep = line.find(':');
		if (sep == -1) return; // line without ':' - error

		auto key = line.substr(0, sep);   trim(key);
		auto val = line.substr(sep + 1);  trim(val);
		if (val == "") break; // end of header

		if (key == "cell-size")    sscanf(val.c_str(), "%d %d", &width, &height);
		else if (key == "ascent")  ascent = atoi(val.c_str());
		else if (key == "descent") descent = atoi(val.c_str());
	}

	// parse glyphs
	
	// only u+NNNN: label is recognized, all others are skipped
	auto parse_key = [&]() {
		int ch = -1;
		for (; i < lines.size(); i++)
		{
			string line = lines[i];
			trim(line);
			if (line == "") continue;
			if (line.find(':') == -1) break; // start of glyph data
			if (line.substr(0, 2) == "u+")
				sscanf(line.c_str(), "u+%X:", &ch);
		}
		return ch;
	};
	
	auto parse_glyph = [&](int ch) {
		Bitmap& glyph = glyphs[ch] = Bitmap(width, height, web_color::transparent);
		for (int y = 0; i < lines.size() && y < height; i++, y++)
		{
			string line = lines[i];
			trim(line);
			for (int x = 0; x < min((int)line.size(), width); x++)
			{
				if (line[x] == '@')
					glyph.set_pixel(x, y, web_color::black);
			}
		}
	};

	while (i < lines.size())
	{
		int ch = parse_key();
		if (ch < 0 || ch >= 128) break;
		parse_glyph(ch);
	}

	x_height = glyphs['x'].find_picture(web_color::transparent).height;
}