#include "sdlterm.h"

#include <stdexcept>


GlyphRenderer::GlyphRenderer()
 : _font_regular(NULL), _font_bold(NULL)
{
	if (TTF_Init() == -1)
	{
	    printf("TTF_Init: %s\n", TTF_GetError());
	    throw std::exception();
	}
}


GlyphRenderer::~GlyphRenderer()
{
	close_font();
	TTF_Quit();
}


void GlyphRenderer::open_font(const char *fname_regular, const char *fname_bold, int ptsize)
{
	close_font();

	// open regular font
	_font_regular = TTF_OpenFont(fname_regular, ptsize);
	if (!_font_regular)
	{
		printf("TTF_OpenFont: %s\n", TTF_GetError());
		throw std::exception();
	}

	// open bold font
	_font_bold = TTF_OpenFont(fname_bold, ptsize);
	if (!_font_bold)
	{
		printf("TTF_OpenFont: %s\n", TTF_GetError());
		throw std::exception();
	}

	// update metrics for regular font
	int advance;
	if (TTF_GlyphMetrics(_font_regular, 'M', NULL, NULL, NULL, NULL, &advance) == -1)
	{
	    printf("TTF_GlyphMetrics: %s\n", TTF_GetError());
	}
	_cell_width = advance;
	_cell_height = TTF_FontHeight(_font_regular);

	// read metrics for bold font
	if (TTF_GlyphMetrics(_font_bold, 'M', NULL, NULL, NULL, NULL, &advance) == -1)
	{
		printf("TTF_GlyphMetrics: %s\n", TTF_GetError());
	}
	if (advance > _cell_width)
	{
		_cell_width = advance;
	}
	int height = TTF_FontHeight(_font_bold);
	if (height > _cell_height)
	{
		_cell_height = height;
	}
}


void GlyphRenderer::close_font()
{
	if (_font_regular)
	{
		TTF_CloseFont(_font_regular);
		_font_regular = NULL;
	}
	if (_font_bold)
	{
		TTF_CloseFont(_font_bold);
		_font_bold = NULL;
	}
}


SDL_Surface *GlyphRenderer::render_glyph(Uint16 ch)
{
	TTF_Font *font = _font_regular;
	SDL_Color color={0xff,0xff,0xff}, bgcolor={0,100,100};
	if (ch != 'W')
	{
		bgcolor.g = 0;
		bgcolor.b = 0;
	}

	// create surface for whole cell and fill it with bg color
	SDL_Surface *cell_surface = SDL_CreateRGBSurface(SDL_SWSURFACE,
			_cell_width, _cell_height, 32, 0, 0, 0, 0);
	SDL_Rect dst_rect;
	dst_rect.x = 0;
	dst_rect.y = 0;
	dst_rect.w = _cell_width;
	dst_rect.h = _cell_height;
	Uint32 bgcolor_mapped = SDL_MapRGB(cell_surface->format, bgcolor.r, bgcolor.g, bgcolor.b);
	SDL_FillRect(cell_surface, &dst_rect, bgcolor_mapped);

	// render glyph, blit it onto cell surface
	SDL_Surface *glyph_surface = TTF_RenderGlyph_Shaded(font, ch, color, bgcolor);
	int minx, maxy;
	TTF_GlyphMetrics(font, ch, &minx, NULL, NULL, &maxy, NULL);
	dst_rect.x = minx;
	dst_rect.y = TTF_FontAscent(font) - maxy;
	SDL_BlitSurface(glyph_surface, NULL, cell_surface, &dst_rect);
	SDL_FreeSurface(glyph_surface);

	return cell_surface;
}


TerminalScreen::~TerminalScreen()
{
	if (_cells)
	{
		delete[] _cells;
	}
}


void TerminalScreen::select_font(const char *fname_regular, const char *fname_bold, int ptsize)
{
	_render.open_font(fname_regular, fname_bold, ptsize);
	_reset_cells();
}

void TerminalScreen::resize(int pxwidth, int pxheight)
{
    _screen_surface = SDL_SetVideoMode(pxwidth, pxheight, 8, SDL_SWSURFACE|SDL_ANYFORMAT|SDL_RESIZABLE);

    if (_screen_surface == NULL)
    {
		fprintf(stderr, "Unable to set video: %s\n", SDL_GetError());
		throw std::exception();
    }

    SDL_WM_SetCaption("terminal", NULL);

    _pixel_width = pxwidth;
    _pixel_height = pxheight;

    _reset_cells();
}


void TerminalScreen::erase()
{
	TerminalCell * cell = _cells;
	for (int i = 0; i < _width * _height; i++)
	{
		cell->ch = ' ';
		cell->attr = 0;
		cell++;
	}
}


void TerminalScreen::putch(int x, int y, Uint16 ch, Uint16 attr)
{
	TerminalCell &cell = _cells[y * _width + x];
	cell.ch = ch;
	cell.attr = attr;
}


void TerminalScreen::commit()
{
	TerminalCell * cell = _cells;
	SDL_Surface *glyph_surface;
	SDL_Rect dst_rect;
	for (int y = 0; y < _height; y++)
	{
		for (int x = 0; x < _width; x++)
		{
			dst_rect.x = x * _cell_width;
			dst_rect.y = y * _cell_height;
			glyph_surface = _render.render_glyph(cell->ch);
			SDL_BlitSurface(glyph_surface, NULL, _screen_surface, &dst_rect);
			SDL_FreeSurface(glyph_surface);
			cell++;
		}
	}

	SDL_UpdateRect(_screen_surface, 0, 0, 0, 0);
}


void TerminalScreen::_reset_cells()
{
	if (_cells)
	{
		delete[] _cells;
		_cells = NULL;
	}

	_cell_width = _render.get_cell_width();
	_cell_height = _render.get_cell_height();
	_width = _pixel_width / _cell_width;
	_height = _pixel_height / _cell_height;

	int num_cells = _width * _height;
	_cells = new TerminalCell[num_cells];
}


Terminal::Terminal()
 : _screen()
{
    if (SDL_Init(SDL_INIT_VIDEO) == -1)
    {
		fprintf(stderr, "Unable to initialize SDL: %s\n", SDL_GetError());
		throw std::exception();
    }
}


Terminal::~Terminal()
{
	SDL_Quit();
}


void Terminal::get_next_event(Event &event)
{
	SDL_Event sdl_event;

	while (SDL_WaitEvent(&sdl_event))
	{
		switch (sdl_event.type)
		{
			case SDL_QUIT:
				event.type = EventType::quit;
				return;

			case SDL_KEYDOWN:
				//switch(event.key.keysym.sym)
				event.type = EventType::keypress;
				return;

			default:
				break; // continue loop
		}
	}
}