/*
 * Copyright (c) 2023 : Ognjen 'xolatile' Milan Robovic
 *
 * Xurses is free software! You will redistribute it or modify it under the terms of the GNU General Public License by Free Software Foundation.
 * And when you do redistribute it or modify it, it will use either version 3 of the License, or (at yours truly opinion) any later version.
 * It is distributed in the hope that it will be useful or harmful, it really depends... But no warranty what so ever, seriously. See GNU/GPLv3.
 */

#ifndef XURSES_SOURCE
#define XURSES_SOURCE

#include <xolatile/xurses.h>

#include <termios.h>
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/stat.h>

#define CURSES_LENGTH ((int) sizeof ("\033[-;3-m-\033[0m") - 1)
#define CURSES_OFFSET ((int) sizeof ("\033[H")             - 1)
#define CURSES_RETURN ((int) sizeof ("\r\n")               - 1)

static int    curses_stop          = SIGNAL_Q;
static int    curses_signal        = SIGNAL_NONE;
static int    curses_screen_width  = 0;
static int    curses_screen_height = 0;
static int    curses_screen_size   = 0;
static char * curses_screen        = NULL;

static char curses_format [CURSES_LENGTH + 1] = "\033[-;3-m-\033[0m";

static void (* curses_action [SIGNAL_COUNT]) (void) = { 0 };

static struct termios curses_old_terminal;
static struct termios curses_new_terminal;

int curses_active = 0;

static void curses_free (void) {
	curses_screen = deallocate (curses_screen);

	terminal_clear ();

	fatal_failure (tcsetattr (STDIN_FILENO, TCSAFLUSH, & curses_old_terminal) == -1, "tcsetattr: Failed to set default terminal attributes.");
}

static void curses_screen_offset (void) {
	string_copy (& curses_screen [0], "\033[H");
	curses_screen_size = CURSES_OFFSET;
}

static char * curses_screen_position (int x, int y) {
	fatal_failure (x <= -1,                   "curses_screen_position: X position is below the lower bound.");
	fatal_failure (y <= -1,                   "curses_screen_position: Y position is below the lower bound.");
	fatal_failure (x >= curses_screen_width,  "curses_screen_position: X position is above the upper bound.");
	fatal_failure (y >= curses_screen_height, "curses_screen_position: Y position is above the upper bound.");

	return (& curses_screen [CURSES_LENGTH * (y * curses_screen_width + x) + y * CURSES_RETURN + CURSES_OFFSET]);
}

static char * curses_format_character (char character, int colour, int effect) {
	log_in (LOG_WARNING, character_is_invisible (character), "curses_format_character: Can not format invisible characters.");
	log_in (LOG_FAILURE, colour >= COLOUR_COUNT,             "curses_format_character: Colour is invalid enumeration value.");
	log_in (LOG_FAILURE, effect >= EFFECT_COUNT,             "curses_format_character: Effect is invalid enumeration value.");

	curses_format [2] = (char) (effect % EFFECT_COUNT) + '0';
	curses_format [5] = (char) (colour % COLOUR_COUNT) + '0';
	curses_format [7] = character;

	log_out ("curses.log");

	return (curses_format);
}

static void curses_idle (void) {
	return;
}

void curses_configure (void) {
	struct winsize screen_dimension;

	char signal = 0;
	char offset = 0;

	atexit (curses_free);

	fatal_failure (ioctl (STDOUT_FILENO, TIOCGWINSZ, & screen_dimension) == -1, "ioctl: Failed to get terminal dimensions.");

	curses_screen_width  = (int) screen_dimension.ws_col;
	curses_screen_height = (int) screen_dimension.ws_row;

	fatal_failure (tcgetattr (STDIN_FILENO, & curses_old_terminal) == -1, "tcgetattr: Failed to get default terminal attributes.");

	curses_new_terminal = curses_old_terminal;

	curses_new_terminal.c_cc [VMIN]  = (unsigned char) 0;
	curses_new_terminal.c_cc [VTIME] = (unsigned char) 1;

	curses_new_terminal.c_iflag &= (unsigned int) ~(BRKINT | ICRNL | INPCK | ISTRIP | IXON);
	curses_new_terminal.c_oflag &= (unsigned int) ~(OPOST);
	curses_new_terminal.c_cflag |= (unsigned int)  (CS8);
	curses_new_terminal.c_lflag &= (unsigned int) ~(ECHO | ICANON | IEXTEN | ISIG);

	fatal_failure (tcsetattr (STDIN_FILENO, TCSAFLUSH, & curses_new_terminal) == -1, "tcsetattr: Failed to set reverse terminal attributes.");

	curses_screen = allocate (CURSES_OFFSET + CURSES_LENGTH * curses_screen_width * curses_screen_height + (curses_screen_height - 1) * CURSES_RETURN + 1);

	for (signal = SIGNAL_NONE; signal != SIGNAL_COUNT; ++signal) {
		curses_unbind ((char) signal);
	}

	terminal_clear ();

	curses_screen_offset ();

	for (offset = 0; offset != curses_screen_height - 1; ++offset) {
		string_copy (& curses_screen [CURSES_LENGTH * curses_screen_width * offset + CURSES_OFFSET], "\r\n");
	}

	curses_active = 1;
}

void curses_synchronize (void) {
	curses_signal = '\0';

	out (curses_screen, CURSES_OFFSET + CURSES_LENGTH * curses_screen_width * curses_screen_height/* + curses_screen_height * CURSES_RETURN*/);

	in (& curses_signal, 1);

	switch (curses_signal) {
		case '0': curses_signal = SIGNAL_0;                break;
		case 'Q': curses_signal = SIGNAL_Q | SIGNAL_SHIFT; break;
		case 'q': curses_signal = SIGNAL_Q;                break;
		default:  curses_signal = SIGNAL_NONE;             break;
	}

	if (curses_signal == curses_stop) {
		curses_active = 0;
		return;
	}

	if ((curses_signal > SIGNAL_ANY) && (curses_signal < SIGNAL_COUNT)) {
		curses_action [curses_signal] ();
	}

	curses_screen_offset ();
}

void curses_render_character (char character, int colour, int effect, int x, int y) {
	string_copy (curses_screen_position (x, y), curses_format_character (character, colour, effect));

	curses_screen_size += CURSES_LENGTH;
}

void curses_render_background (char character, int colour, int effect) {
	int x, y;

	for (y = 0; y != curses_screen_height; ++y) {
		for (x = 0; x != curses_screen_width; ++x) {
			curses_render_character (character, colour, effect, x, y);
		}
	}
}

void curses_bind (int signal, void (* action) (void)) {
	curses_action [signal] = action;
}

void curses_unbind (int signal) {
	curses_action [signal] = curses_idle;
}

void curses_exit (int signal) {
	curses_stop = signal;
}

#endif