/*
 * Copyright (c) 2009 Jiri Svoboda
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/** @addtogroup kbd_ctl
 * @ingroup kbd
 * @{
 */
/**
 * @file
 * @brief	Serial TTY-like keyboard controller driver.
 */

#include <kbd.h>
#include <kbd/kbd.h>
#include <kbd/keycode.h>
#include <kbd_ctl.h>

static void parse_ds_start(int scancode);
static void parse_ds_e(int scancode);
static void parse_ds_e1(int scancode);
static void parse_ds_e2(int scancode);
static void parse_ds_e2a(int scancode);
static void parse_ds_e2b(int scancode);

static void parse_leaf(int scancode, int (*map)[2], size_t map_length);

enum dec_state {
	ds_start,
	ds_e,
	ds_e1,
	ds_e2,
	ds_e2a,
	ds_e2b
};

static int map_start[][2] = {

	[0x60] = { 0, KC_BACKTICK },

	[0x31] = { 0, KC_1 },
	[0x32] = { 0, KC_2 },
	[0x33] = { 0, KC_3 },
	[0x34] = { 0, KC_4 },
	[0x35] = { 0, KC_5 },
	[0x36] = { 0, KC_6 },
	[0x37] = { 0, KC_7 },
	[0x38] = { 0, KC_8 },
	[0x39] = { 0, KC_9 },
	[0x30] = { 0, KC_0 },

	[0x2d] = { 0, KC_MINUS },
	[0x3d] = { 0, KC_EQUALS },
	[0x08] = { 0, KC_BACKSPACE },

	[0x0f] = { 0, KC_TAB },

	[0x71] = { 0, KC_Q },
	[0x77] = { 0, KC_W },
	[0x65] = { 0, KC_E },
	[0x72] = { 0, KC_R },
	[0x74] = { 0, KC_T },
	[0x79] = { 0, KC_Y },
	[0x75] = { 0, KC_U },
	[0x69] = { 0, KC_I },
	[0x6f] = { 0, KC_O },
	[0x70] = { 0, KC_P },

	[0x5b] = { 0, KC_LBRACKET },
	[0x5d] = { 0, KC_RBRACKET },

	[0x61] = { 0, KC_A },
	[0x73] = { 0, KC_S },
	[0x64] = { 0, KC_D },
	[0x66] = { 0, KC_F },
	[0x67] = { 0, KC_G },
	[0x68] = { 0, KC_H },
	[0x6a] = { 0, KC_J },
	[0x6b] = { 0, KC_K },
	[0x6c] = { 0, KC_L },

	[0x3b] = { 0, KC_SEMICOLON },
	[0x27] = { 0, KC_QUOTE },
	[0x5c] = { 0, KC_BACKSLASH },

	[0x7a] = { 0, KC_Z },
	[0x78] = { 0, KC_X },
	[0x63] = { 0, KC_C },
	[0x76] = { 0, KC_V },
	[0x62] = { 0, KC_B },
	[0x6e] = { 0, KC_N },
	[0x6d] = { 0, KC_M },

	[0x2c] = { 0, KC_COMMA },
	[0x2e] = { 0, KC_PERIOD },
	[0x2f] = { 0, KC_SLASH },

	[0x20] = { 0, KC_SPACE },

	[0x1b] = { 0, KC_ESCAPE },

	[0x0a] = { 0, KC_ENTER },
	[0x0d] = { 0, KC_ENTER },

	/* with Shift pressed */

	[0x7e] = { KM_LSHIFT, KC_BACKTICK },

	[0x21] = { KM_LSHIFT, KC_1 },
	[0x40] = { KM_LSHIFT, KC_2 },
	[0x23] = { KM_LSHIFT, KC_3 },
	[0x24] = { KM_LSHIFT, KC_4 },
	[0x25] = { KM_LSHIFT, KC_5 },
	[0x5e] = { KM_LSHIFT, KC_6 },
	[0x26] = { KM_LSHIFT, KC_7 },
	[0x2a] = { KM_LSHIFT, KC_8 },
	[0x28] = { KM_LSHIFT, KC_9 },
	[0x29] = { KM_LSHIFT, KC_0 },

	[0x5f] = { KM_LSHIFT, KC_MINUS },
	[0x2b] = { KM_LSHIFT, KC_EQUALS },

	[0x51] = { KM_LSHIFT, KC_Q },
	[0x57] = { KM_LSHIFT, KC_W },
	[0x45] = { KM_LSHIFT, KC_E },
	[0x52] = { KM_LSHIFT, KC_R },
	[0x54] = { KM_LSHIFT, KC_T },
	[0x59] = { KM_LSHIFT, KC_Y },
	[0x55] = { KM_LSHIFT, KC_U },
	[0x49] = { KM_LSHIFT, KC_I },
	[0x4f] = { KM_LSHIFT, KC_O },
	[0x50] = { KM_LSHIFT, KC_P },

	[0x7b] = { KM_LSHIFT, KC_LBRACKET },
	[0x7d] = { KM_LSHIFT, KC_RBRACKET },

	[0x41] = { KM_LSHIFT, KC_A },
	[0x53] = { KM_LSHIFT, KC_S },
	[0x44] = { KM_LSHIFT, KC_D },
	[0x46] = { KM_LSHIFT, KC_F },
	[0x47] = { KM_LSHIFT, KC_G },
	[0x48] = { KM_LSHIFT, KC_H },
	[0x4a] = { KM_LSHIFT, KC_J },
	[0x4b] = { KM_LSHIFT, KC_K },
	[0x4c] = { KM_LSHIFT, KC_L },

	[0x3a] = { KM_LSHIFT, KC_SEMICOLON },
	[0x22] = { KM_LSHIFT, KC_QUOTE },
	[0x7c] = { KM_LSHIFT, KC_BACKSLASH },

	[0x5a] = { KM_LSHIFT, KC_Z },
	[0x58] = { KM_LSHIFT, KC_X },
	[0x43] = { KM_LSHIFT, KC_C },
	[0x56] = { KM_LSHIFT, KC_V },
	[0x42] = { KM_LSHIFT, KC_B },
	[0x4e] = { KM_LSHIFT, KC_N },
	[0x4d] = { KM_LSHIFT, KC_M },

	[0x3c] = { KM_LSHIFT, KC_COMMA },
	[0x3e] = { KM_LSHIFT, KC_PERIOD },
	[0x3f] = { KM_LSHIFT, KC_SLASH }
};

static int map_e1[][2] =
{
	[0x50] = { 0, KC_F1 },
	[0x51] = { 0, KC_F2 },
	[0x52] = { 0, KC_F3 },
	[0x53] = { 0, KC_F4 },
};

static int map_e2[][2] =
{
	[0x41] = { 0, KC_UP },
	[0x42] = { 0, KC_DOWN },
	[0x44] = { 0, KC_LEFT },
	[0x43] = { 0, KC_RIGHT },
};

static int map_e2a[][2] =
{
	[0x35] = { 0, KC_F5 },
	[0x37] = { 0, KC_F6 },
	[0x38] = { 0, KC_F7 },
	[0x39] = { 0, KC_F8 },
};

static int map_e2b[][2] =
{
	[0x30] = { 0, KC_F9 },
	[0x31] = { 0, KC_F10 },
	[0x32] = { 0, KC_F11 },
	[0x33] = { 0, KC_F12 },
};

static unsigned int mods_keys[][2] = {
	{ KM_LSHIFT, KC_LSHIFT },
	{ 0, 0 }
};

static enum dec_state ds;

void kbd_ctl_parse_scancode(int scancode)
{
	switch (ds) {
	case ds_start:	parse_ds_start(scancode); break;
	case ds_e: 	parse_ds_e(scancode); break;
	case ds_e1:	parse_ds_e1(scancode); break;
	case ds_e2:	parse_ds_e2(scancode); break;
	case ds_e2a:	parse_ds_e2a(scancode); break;
	case ds_e2b:	parse_ds_e2b(scancode); break;
	}
}

static void parse_ds_start(int scancode)
{
	if (scancode == 0x1b) {
		ds = ds_e;
		return;
	}

	parse_leaf(scancode, map_start, sizeof(map_start) / (2 * sizeof(int)));
}

static void parse_ds_e(int scancode)
{
	if (scancode < 0 || scancode >= 0x80) return;

	switch (scancode) {
	case 0x4f: ds = ds_e1; return;
	case 0x5b: ds = ds_e2; return;
	case 0x1b: ds = ds_start; break;
	default: ds = ds_start; return;
	}

	kbd_push_ev(KE_PRESS, KC_ESCAPE);
}

static void parse_ds_e1(int scancode)
{
	parse_leaf(scancode, map_e1, sizeof(map_e1) / (2 * sizeof(int)));
}

static void parse_ds_e2(int scancode)
{
	switch (scancode) {
	case 0x31: ds = ds_e2a; break;
	case 0x32: ds = ds_e2b; break;
	default: ds = ds_start; break;
	}

	parse_leaf(scancode, map_e2, sizeof(map_e2) / (2 * sizeof(int)));
}

static void parse_ds_e2a(int scancode)
{
	parse_leaf(scancode, map_e2a, sizeof(map_e2a) / (2 * sizeof(int)));
}

static void parse_ds_e2b(int scancode)
{
	parse_leaf(scancode, map_e2b, sizeof(map_e2b) / (2 * sizeof(int)));
}

static void parse_leaf(int scancode, int (*map)[2], size_t map_length)
{
	unsigned int key, mod;
	int i;

	ds = ds_start;

	if (scancode < 0 || scancode >= map_length)
		return;

	mod = map[scancode][0];
	key = map[scancode][1];

	/* Simulate modifier pressing. */
	i = 0;
	while (mods_keys[i][0] != 0) {
		if (mod & mods_keys[i][0]) {
			kbd_push_ev(KE_PRESS, mods_keys[i][1]);
		}
		++i;
	}

	if (key != 0) {
		kbd_push_ev(KE_PRESS, key);
		kbd_push_ev(KE_RELEASE, key);
	}

	/* Simulate modifier releasing. */
	i = 0;
	while (mods_keys[i][0] != 0) {
		if (mod & mods_keys[i][0]) {
			kbd_push_ev(KE_RELEASE, mods_keys[i][1]);
		}
		++i;
	}
}


/**
 * @}
 */