/*****************************************************************************
#                                                                            #
#    KVMD - The main PiKVM daemon.                                           #
#                                                                            #
#    Copyright (C) 2018-2021  Maxim Devaev <mdevaev@gmail.com>               #
#                                                                            #
#    This program is free software: you can redistribute it and/or modify    #
#    it under the terms of the GNU General Public License as published by    #
#    the Free Software Foundation, either version 3 of the License, or       #
#    (at your option) any later version.                                     #
#                                                                            #
#    This program is distributed in the hope that it will be useful,         #
#    but WITHOUT ANY WARRANTY; without even the implied warranty of          #
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the           #
#    GNU General Public License for more details.                            #
#                                                                            #
#    You should have received a copy of the GNU General Public License       #
#    along with this program.  If not, see <https://www.gnu.org/licenses/>.  #
#                                                                            #
*****************************************************************************/


// #define CMD_SERIAL			Serial1
// #define CMD_SERIAL_SPEED		115200
// #define CMD_SERIAL_TIMEOUT	100000
// -- OR --
// #define CMD_SPI

#if !(defined(CMD_SERIAL) || defined(CMD_SPI))
#	error CMD phy is not defined
#endif


#include <Arduino.h>
#ifdef HID_DYNAMIC
#	include <avr/eeprom.h>
#endif

#include "tools.h"
#include "proto.h"
#ifdef CMD_SPI
#	include "spi.h"
#endif
#ifdef AUM
#	include "aum.h"
#endif
#include "usb/hid.h"
#include "ps2/hid.h"


// -----------------------------------------------------------------------------
static UsbKeyboard *_usb_kbd = NULL;
static UsbMouseAbsolute *_usb_mouse_abs = NULL;
static UsbMouseRelative *_usb_mouse_rel = NULL;

static Ps2Keyboard *_ps2_kbd = NULL;

#ifdef HID_DYNAMIC
static bool _reset_required = false;

static int _readOutputs(void) {
	uint8_t data[8];
	eeprom_read_block(data, 0, 8);
	if (data[0] != PROTO::MAGIC || PROTO::crc16(data, 6) != PROTO::merge8(data[6], data[7])) {
		return -1;
	}
	return data[1];
}

static void _writeOutputs(uint8_t mask, uint8_t outputs, bool force) {
	int old = 0;
	if (!force) {
		old = _readOutputs();
		if (old < 0) {
			old = 0;
		}
	}
	uint8_t data[8] = {0};
	data[0] = PROTO::MAGIC;
	data[1] = (old & ~mask) | outputs;
	PROTO::split16(PROTO::crc16(data, 6), &data[6], &data[7]);
	eeprom_update_block(data, 0, 8);
}
#endif

static void _initOutputs() {
	int outputs;
#	ifdef HID_DYNAMIC
	outputs = _readOutputs();
	if (outputs < 0) {
#	endif
		outputs = 0;

#	if defined(HID_WITH_USB) && defined(HID_SET_USB_KBD)
		outputs |= PROTO::OUTPUTS1::KEYBOARD::USB;
#	elif defined(HID_WITH_PS2) && defined(HID_SET_PS2_KBD)
		outputs |= PROTO::OUTPUTS1::KEYBOARD::PS2;
#	endif
#	if defined(HID_WITH_USB) && defined(HID_SET_USB_MOUSE_ABS)
		outputs |= PROTO::OUTPUTS1::MOUSE::USB_ABS;
#	elif defined(HID_WITH_USB) && defined(HID_SET_USB_MOUSE_REL)
		outputs |= PROTO::OUTPUTS1::MOUSE::USB_REL;
#	elif defined(HID_WITH_PS2) && defined(HID_SET_PS2_MOUSE)
		outputs |= PROTO::OUTPUTS1::MOUSE::PS2;
#	elif defined(HID_WITH_USB) && defined(HID_WITH_USB_WIN98) && defined(HID_SET_USB_MOUSE_WIN98)
		outputs |= PROTO::OUTPUTS1::MOUSE::USB_WIN98;
#	endif

#	ifdef HID_DYNAMIC
		_writeOutputs(0xFF, outputs, true);
	}
#	endif

	uint8_t kbd = outputs & PROTO::OUTPUTS1::KEYBOARD::MASK;
	switch (kbd) {
#	ifdef HID_WITH_USB
		case PROTO::OUTPUTS1::KEYBOARD::USB: _usb_kbd = new UsbKeyboard(); break;
#	endif
#	ifdef HID_WITH_PS2
		case PROTO::OUTPUTS1::KEYBOARD::PS2: _ps2_kbd = new Ps2Keyboard(); break;
#	endif
	}

	uint8_t mouse = outputs & PROTO::OUTPUTS1::MOUSE::MASK;
	switch (mouse) {
#	ifdef HID_WITH_USB
		case PROTO::OUTPUTS1::MOUSE::USB_ABS:
		case PROTO::OUTPUTS1::MOUSE::USB_WIN98: _usb_mouse_abs = new UsbMouseAbsolute(); break;
		case PROTO::OUTPUTS1::MOUSE::USB_REL: _usb_mouse_rel = new UsbMouseRelative(); break;
#	endif
	}

	USBDevice.attach();

	switch (kbd) {
#	ifdef HID_WITH_USB
		case PROTO::OUTPUTS1::KEYBOARD::USB: _usb_kbd->begin(); break;
#	endif
#	ifdef HID_WITH_PS2
		case PROTO::OUTPUTS1::KEYBOARD::PS2: _ps2_kbd->begin(); break;
#	endif
	}

	switch (mouse) {
#	ifdef HID_WITH_USB
		case PROTO::OUTPUTS1::MOUSE::USB_ABS:
#		ifdef HID_WITH_USB_WIN98
		case PROTO::OUTPUTS1::MOUSE::USB_WIN98:
#		endif
			_usb_mouse_abs->begin(mouse == PROTO::OUTPUTS1::MOUSE::USB_WIN98);
			break;
		case PROTO::OUTPUTS1::MOUSE::USB_REL: _usb_mouse_rel->begin(); break;
#	endif
	}
}


// -----------------------------------------------------------------------------
static void _cmdSetKeyboard(const uint8_t *data) { // 1 bytes
#	ifdef HID_DYNAMIC
	_writeOutputs(PROTO::OUTPUTS1::KEYBOARD::MASK, data[0], false);
	_reset_required = true;
#	endif
}

static void _cmdSetMouse(const uint8_t *data) { // 1 bytes
#	ifdef HID_DYNAMIC
	_writeOutputs(PROTO::OUTPUTS1::MOUSE::MASK, data[0], false);
	_reset_required = true;
#	endif
}

static void _cmdSetConnected(const uint8_t *data) { // 1 byte
#	ifdef AUM
	aumSetUsbConnected(data[0]);
#	endif
}

static void _cmdClearHid(const uint8_t *_) { // 0 bytes
	if (_usb_kbd) {
		_usb_kbd->clear();
	}
	if (_usb_mouse_abs) {
		_usb_mouse_abs->clear();
	} else if (_usb_mouse_rel) {
		_usb_mouse_rel->clear();
	}
}

static void _cmdKeyEvent(const uint8_t *data) { // 2 bytes
	if (_usb_kbd) {
		_usb_kbd->sendKey(data[0], data[1]);
	} else if (_ps2_kbd) {
		_ps2_kbd->sendKey(data[0], data[1]);
	}
}

static void _cmdMouseButtonEvent(const uint8_t *data) { // 2 bytes
#	define MOUSE_PAIR(_state, _button) \
		_state & PROTO::CMD::MOUSE::_button::SELECT, \
		_state & PROTO::CMD::MOUSE::_button::STATE
#	define SEND_BUTTONS(_hid) \
		_hid->sendButtons( \
			MOUSE_PAIR(data[0], LEFT), \
			MOUSE_PAIR(data[0], RIGHT), \
			MOUSE_PAIR(data[0], MIDDLE), \
			MOUSE_PAIR(data[1], EXTRA_UP), \
			MOUSE_PAIR(data[1], EXTRA_DOWN) \
		);
	if (_usb_mouse_abs) {
		SEND_BUTTONS(_usb_mouse_abs);
	} else if (_usb_mouse_rel) {
		SEND_BUTTONS(_usb_mouse_rel);
	}
#	undef SEND_BUTTONS
#	undef MOUSE_PAIR
}

static void _cmdMouseMoveEvent(const uint8_t *data) { // 4 bytes
	// See /kvmd/apps/otg/hid/keyboard.py for details
	if (_usb_mouse_abs) {
		_usb_mouse_abs->sendMove(
			PROTO::merge8_int(data[0], data[1]),
			PROTO::merge8_int(data[2], data[3])
		);
	}
}

static void _cmdMouseRelativeEvent(const uint8_t *data) { // 2 bytes
	if (_usb_mouse_rel) {
		_usb_mouse_rel->sendRelative(data[0], data[1]);
	}
}

static void _cmdMouseWheelEvent(const uint8_t *data) { // 2 bytes
	// Y only, X is not supported
	if (_usb_mouse_abs) {
		_usb_mouse_abs->sendWheel(data[1]);
	} else if (_usb_mouse_rel) {
		_usb_mouse_rel->sendWheel(data[1]);
	}
}

static uint8_t _handleRequest(const uint8_t *data) { // 8 bytes
	if (PROTO::crc16(data, 6) == PROTO::merge8(data[6], data[7])) {
#		define HANDLE(_handler) { _handler(data + 2); return PROTO::PONG::OK; }
		switch (data[1]) {
			case PROTO::CMD::PING:				return PROTO::PONG::OK;
			case PROTO::CMD::SET_KEYBOARD:		HANDLE(_cmdSetKeyboard);
			case PROTO::CMD::SET_MOUSE:			HANDLE(_cmdSetMouse);
			case PROTO::CMD::SET_CONNECTED:		HANDLE(_cmdSetConnected);
			case PROTO::CMD::CLEAR_HID:			HANDLE(_cmdClearHid);
			case PROTO::CMD::KEYBOARD::KEY:		HANDLE(_cmdKeyEvent);
			case PROTO::CMD::MOUSE::BUTTON:		HANDLE(_cmdMouseButtonEvent);
			case PROTO::CMD::MOUSE::MOVE:		HANDLE(_cmdMouseMoveEvent);
			case PROTO::CMD::MOUSE::RELATIVE:	HANDLE(_cmdMouseRelativeEvent);
			case PROTO::CMD::MOUSE::WHEEL:		HANDLE(_cmdMouseWheelEvent);
			case PROTO::CMD::REPEAT:	return 0;
			default:					return PROTO::RESP::INVALID_ERROR;
		}
#		undef HANDLE
	}
	return PROTO::RESP::CRC_ERROR;
}


// -----------------------------------------------------------------------------
static void _sendResponse(uint8_t code) {
	static uint8_t prev_code = PROTO::RESP::NONE;
	if (code == 0) {
		code = prev_code; // Repeat the last code
	} else {
		prev_code = code;
	}

	uint8_t response[8] = {0};
	response[0] = PROTO::MAGIC_RESP;
	if (code & PROTO::PONG::OK) {
		response[1] = PROTO::PONG::OK;
#		ifdef HID_DYNAMIC
		if (_reset_required) {
			response[1] |= PROTO::PONG::RESET_REQUIRED;
		}
		response[2] = PROTO::OUTPUTS1::DYNAMIC;
#		endif
		if (_usb_kbd) {
			response[1] |= _usb_kbd->getOfflineAs(PROTO::PONG::KEYBOARD_OFFLINE);
			response[1] |= _usb_kbd->getLedsAs(PROTO::PONG::CAPS, PROTO::PONG::SCROLL, PROTO::PONG::NUM);
			response[2] |= PROTO::OUTPUTS1::KEYBOARD::USB;
		} else if (_ps2_kbd) {
			response[1] |= _ps2_kbd->getOfflineAs(PROTO::PONG::KEYBOARD_OFFLINE);
			response[1] |= _ps2_kbd->getLedsAs(PROTO::PONG::CAPS, PROTO::PONG::SCROLL, PROTO::PONG::NUM);
			response[2] |= PROTO::OUTPUTS1::KEYBOARD::PS2;
		}
		if (_usb_mouse_abs) {
			response[1] |= _usb_mouse_abs->getOfflineAs(PROTO::PONG::MOUSE_OFFLINE);
			if (_usb_mouse_abs->isWin98FixEnabled()) {
				response[2] |= PROTO::OUTPUTS1::MOUSE::USB_WIN98;
			} else {
				response[2] |= PROTO::OUTPUTS1::MOUSE::USB_ABS;
			}
		} else if (_usb_mouse_rel) {
			response[1] |= _usb_mouse_rel->getOfflineAs(PROTO::PONG::MOUSE_OFFLINE);
			response[2] |= PROTO::OUTPUTS1::MOUSE::USB_REL;
		} // TODO: ps2
#		ifdef AUM
		response[3] |= PROTO::OUTPUTS2::CONNECTABLE;
		if (aumIsUsbConnected()) {
			response[3] |= PROTO::OUTPUTS2::CONNECTED;
		}
#		endif
#		ifdef HID_WITH_USB
		response[3] |= PROTO::OUTPUTS2::HAS_USB;
#		ifdef HID_WITH_USB_WIN98
		response[3] |= PROTO::OUTPUTS2::HAS_USB_WIN98;
#		endif
#		endif
#		ifdef HID_WITH_PS2
		response[3] |= PROTO::OUTPUTS2::HAS_PS2;
#		endif
	} else {
		response[1] = code;
	}
	PROTO::split16(PROTO::crc16(response, 6), &response[6], &response[7]);

#	ifdef CMD_SERIAL
	CMD_SERIAL.write(response, 8);
#	elif defined(CMD_SPI)
	spiWrite(response);
#	endif
}

int main() {
	init(); // Embedded
	initVariant(); // Arduino
	_initOutputs();

#	ifdef AUM
	aumInit();
#	endif

#	ifdef CMD_SERIAL
	CMD_SERIAL.begin(CMD_SERIAL_SPEED);
	unsigned long last = micros();
	uint8_t buffer[8];
	uint8_t index = 0;
#	elif defined(CMD_SPI)
	spiBegin();
#	endif

	while (true) {
#		ifdef AUM
		aumProxyUsbVbus();
#		endif

#		ifdef HID_WITH_USB
		if (_usb_kbd) {
			_usb_kbd->periodic();
		}
#		endif
#		ifdef HID_WITH_PS2
		if (_ps2_kbd) {
			_ps2_kbd->periodic();
		}
#		endif

#		ifdef CMD_SERIAL
		if (CMD_SERIAL.available() > 0) {
			buffer[index] = (uint8_t)CMD_SERIAL.read();
			if (index == 7) {
				_sendResponse(_handleRequest(buffer));
				index = 0;
			} else {
				last = micros();
				++index;
			}
		} else if (index > 0) {
			if (is_micros_timed_out(last, CMD_SERIAL_TIMEOUT)) {
				_sendResponse(PROTO::RESP::TIMEOUT_ERROR);
				index = 0;
			}
		}
#		elif defined(CMD_SPI)
		if (spiReady()) {
			_sendResponse(_handleRequest(spiGet()));
		}
#		endif
	}
	return 0;
}