/*	$NetBSD: kbdmap.c,v 1.13 2014/08/08 21:13:05 joerg Exp $ */

/*
 * Copyright (c) 1993 Markus Wild
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. 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.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by Markus Wild.
 * 4. 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.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: kbdmap.c,v 1.13 2014/08/08 21:13:05 joerg Exp $");

#include <amiga/dev/kbdmap.h>

/* define a default keymap. This can be changed by keyboard ioctl's
   (later at least..) */

/* mode shortcuts: */
#define	S KBD_MODE_STRING
#define DG (KBD_MODE_DEAD | KBD_MODE_GRAVE)
#define DA (KBD_MODE_DEAD | KBD_MODE_ACUTE)
#define DC (KBD_MODE_DEAD | KBD_MODE_CIRC)
#define DT (KBD_MODE_DEAD | KBD_MODE_TILDE)
#define DD (KBD_MODE_DEAD | KBD_MODE_DIER)
#define C KBD_MODE_CAPS
#define K KBD_MODE_KPAD

struct kbdmap kbdmap;
struct kbdmap ascii_kbdmap = {
	/* normal map */
	{
	   {	0, '`'	},	/* 0x00 */
	   {	0, '1'	},
	   {	0, '2'	},
	   {	0, '3'	},
	   {	0, '4'	},
	   {	0, '5'	},
	   {	0, '6'	},
	   {	0, '7'	},
	   {	0, '8'	},	/* 0x08 */
	   {	0, '9'	},
	   {	0, '0'	},
	   {	0, '-'	},
	   {	0, '='	},
	   {	0, '\\'	},
	   {	0, 0	},
	   {	K, '0'	},
	   {	C, 'q'	},	/* 0x10 */
	   {	C, 'w'	},
	   {	C, 'e'	},
	   {	C, 'r'	},
	   {	C, 't'	},
	   {	C, 'y'	},
	   {	C, 'u'	},
	   {	C, 'i'	},
	   {	C, 'o'	},	/* 0x18 */
	   {	C, 'p'	},
	   {	0, '['	},
	   {	0, ']'	},
	   {	0, 0	},
	   {	K, '1'	},
	   {	K, '2'	},
	   {	K, '3'	},
	   {	C, 'a'	},	/* 0x20 */
	   {	C, 's'	},
	   {	C, 'd'	},
	   {	C, 'f'	},
	   {	C, 'g'	},
	   {	C, 'h'	},
	   {	C, 'j'	},
	   {	C, 'k'	},
	   {	C, 'l'	},	/* 0x28 */
	   {	0, ';'	},
	   {	0, '\''	},
	   {	0, 0	},
	   {	0, 0	},
	   {	K, '4'	},
	   {	K, '5'	},
	   {	K, '6'	},
	   {	0, 0	},	/* 0x30 */
	   {	C, 'z'	},
	   {	C, 'x'	},
	   {	C, 'c'	},
	   {	C, 'v'	},
	   {	C, 'b'	},
	   {	C, 'n'	},
	   {	C, 'm'	},
	   {	0, ','	},	/* 0x38 */
	   {	0, '.'	},
	   {	0, '/'	},
	   {	0, 0	},
	   {	K, '.'	},
	   {	K, '7'	},
	   {	K, '8'	},
	   {	K, '9'	},
	   {	0, ' '	},	/* 0x40 */
	   {	0, DEL	},	/* really BS, DEL & BS swapped */
	   {	0, '\t'	},
	   {	K, '\r'	},	/* enter */
	   {	0, '\r'	},	/* return */
	   {	0, ESC	},
	   {	0, '\b'	},	/* really DEL, BS & DEL swapped */
	   {	0, 0	},
	   {	0, 0	},	/* 0x48 */
	   {	0, 0	},
	   {	K, '-'	},
	   {	0, 0	},
	   {	S, 0x00	},	/* now it gets hairy.. CRSR UP */
	   {	S, 0x04	},	/* CRSR DOWN */
	   {	S, 0x08	},	/* CRSR RIGHT */
	   {	S, 0x0C	},	/* CRSR LEFT */
	   {	S, 0x10	},	/* 0x50 F1 */
	   {	S, 0x15	},	/* F2 */
	   {	S, 0x1A	},	/* F3 */
	   {	S, 0x1F	},	/* F4 */
	   {	S, 0x24	},	/* F5 */
	   {	S, 0x29	},	/* F6 */
	   {	S, 0x2E	},	/* F7 */
	   {	S, 0x33	},	/* F8 */
	   {	S, 0x38	},	/* 0x58 F9 */
	   {	S, 0x3D	},	/* F10 */
	   {	K, '('	},
	   {	K, ')'	},
	   {	K, '/'	},
	   {	K, '*'	},
	   {	K, '+'	},
	   {	S, 0x42	}	/* HELP */
	},

	/* shifted map */
	{
	   {	0, '~'	},	/* 0x00 */
	   {	0, '!'	},
	   {	0, '@'	},
	   {	0, '#'	},
	   {	0, '$'	},
	   {	0, '%'	},
	   {	0, '^'	},
	   {	0, '&'	},
	   {	0, '*'	},	/* 0x08 */
	   {	0, '('	},
	   {	0, ')'	},
	   {	0, '_'	},
	   {	0, '+'	},
	   {	0, '|'	},
	   {	0, 0	},
	   {	K, '0'	},
	   {	C, 'Q'	},	/* 0x10 */
	   {	C, 'W'	},
	   {	C, 'E'	},
	   {	C, 'R'	},
	   {	C, 'T'	},
	   {	C, 'Y'	},
	   {	C, 'U'	},
	   {	C, 'I'	},
	   {	C, 'O'	},	/* 0x18 */
	   {	C, 'P'	},
	   {	0, '{'	},
	   {	0, '}'	},
	   {	0, 0	},
	   {	K, '1'	},
	   {	K, '2'	},
	   {	K, '3'	},
	   {	C, 'A'	},	/* 0x20 */
	   {	C, 'S'	},
	   {	C, 'D'	},
	   {	C, 'F'	},
	   {	C, 'G'	},
	   {	C, 'H'	},
	   {	C, 'J'	},
	   {	C, 'K'	},
	   {	C, 'L'	},	/* 0x28 */
	   {	0, ':'	},
	   {	0, '\"'	},
	   {	0, 0	},
	   {	0, 0	},
	   {	K, '4'	},
	   {	K, '5'	},
	   {	K, '6'	},
	   {	0, 0	},	/* 0x30 */
	   {	C, 'Z'	},
	   {	C, 'X'	},
	   {	C, 'C'	},
	   {	C, 'V'	},
	   {	C, 'B'	},
	   {	C, 'N'	},
	   {	C, 'M'	},
	   {	0, '<'	},	/* 0x38 */
	   {	0, '>'	},
	   {	0, '?'	},
	   {	0, 0	},
	   {	K, '.'	},
	   {	K, '7'	},
	   {	K, '8'	},
	   {	K, '9'	},
	   {	0, ' '	},	/* 0x40 */
	   {	0, DEL	},	/* really BS, DEL & BS swapped */
	   {	S, 0x99	},	/* shift TAB */
	   {	K, '\r'	},	/* enter */
	   {	0, '\r'	},	/* return */
	   {	0, ESC	},
	   {	0, '\b'	},	/* really DEL, BS & DEL swapped */
	   {	0, 0	},
	   {	0, 0	},	/* 0x48 */
	   {	0, 0	},
	   {	K, '-'	},
	   {	0, 0	},
	   {	S, 0x47	},	/* shift CRSR UP */
	   {	S, 0x4C	},	/* shift CRSR DOWN */
	   {	S, 0x51	},	/* shift CRSR RIGHT */
	   {	S, 0x57	},	/* shift CRSR LEFT */
	   {	S, 0x5D	},	/* 0x50 shift F1 */
	   {	S, 0x63	},	/* shift F2 */
	   {	S, 0x69	},	/* shift F3 */
	   {	S, 0x6F	},	/* shift F4 */
	   {	S, 0x75	},	/* shift F5 */
	   {	S, 0x7B	},	/* shift F6 */
	   {	S, 0x81	},	/* shift F7 */
	   {	S, 0x87	},	/* shift F8 */
	   {	S, 0x8D	},	/* 0x58 shift F9 */
	   {	S, 0x93	},	/* shift F10 */
	   {	K, '('	},
	   {	K, ')'	},
	   {	K, '/'	},
	   {	K, '*'	},
	   {	K, '+'	},
	   {	S, 0x42	}	/* HELP (no special shift code) */
	},


	/* alt map */
	{
	   {	0, '`'	},	/* 0x00 */
	   {	0, '\xb9'	},
	   {	0, '\xb2'	},
	   {	0, '\xb3'	},
	   {	0, '\xa2'	},
	   {	0, '\xbc'	},
	   {	0, '\xbd'	},
	   {	0, '\xbe'	},
	   {	0, '\xb7'	},	/* 0x08 */
	   {	0, '\xab'	},
	   {	0, '\xbb'	},
	   {	0, '-'	},
	   {	0, '='	},
	   {	0, '\\'	},
	   {	0, 0	},
	   {	K, '0'	},
	   {	C, '\xe5'	},	/* 0x10 */
	   {	0, '\xb0'	},
	   {	0, '\xa9'	},
	   {	0, '\xae'	},
	   {	C, '\xfe'	},
	   {	0, '\xa4'	},
	   {	0, '\xb5'	},
	   {	0, '\xa1'	},
	   {	C, '\xf8'	},	/* 0x18 */
	   {	0, '\xb6'	},
	   {	0, '['	},
	   {	0, ']'	},
	   {	0, 0	},
	   {	K, '1'	},
	   {	K, '2'	},
	   {	K, '3'	},
	   {	C, '\xe6'	},	/* 0x20 */
	   {	0, '\xdf'	},
	   {	C, '\xf0'	},
	   {	DA, '\xb4'	},
	   {	DG, '`'	},
	   {	DC, '^'	},
	   {	DT, '~'	},
	   {	DD, '\xa8'	},
	   {	0, '\xa3'	},	/* 0x28 */
	   {	0, ';'	},
	   {	0, '\''	},
	   {	0, 0	},
	   {	0, 0	},
	   {	K, '4'	},
	   {	K, '5'	},
	   {	K, '6'	},
	   {	0, 0	},	/* 0x30 */
	   {	0, '\xb1'	},
	   {	0, '\xd7'	},
	   {	C, '\xe7'	},
	   {	0, '\xaa'	},
	   {	0, '\xba'	},
	   {	0, '\xad'	},
	   {	0, '\xb8'	},
	   {	0, ','	},	/* 0x38 */
	   {	0, '.'	},
	   {	0, '/'	},
	   {	0, 0	},
	   {	K, '.'	},
	   {	K, '7'	},
	   {	K, '8'	},
	   {	K, '9'	},
	   {	0, ' '	},	/* 0x40 */
	   {	0, DEL	},	/* really BS, DEL & BS swapped */
	   {	0, '\t'	},
	   {	K, '\r'	},	/* enter */
	   {	0, '\r'	},	/* return */
	   {	S, 0x9d	},	/* CSI */
	   {	0, '\b'	},	/* really DEL, BS & DEL swapped */
	   {	0, 0	},
	   {	0, 0	},	/* 0x48 */
	   {	0, 0	},
	   {	K, '-'	},
	   {	0, 0	},
	   {	S, 0x00	},	/* now it gets hairy.. CRSR UP */
	   {	S, 0x04	},	/* CRSR DOWN */
	   {	S, 0x08	},	/* CRSR RIGHT */
	   {	S, 0x0C	},	/* CRSR LEFT */
	   {	S, 0x10	},	/* 0x50 F1 */
	   {	S, 0x15	},	/* F2 */
	   {	S, 0x1A	},	/* F3 */
	   {	S, 0x1F	},	/* F4 */
	   {	S, 0x24	},	/* F5 */
	   {	S, 0x29	},	/* F6 */
	   {	S, 0x2E	},	/* F7 */
	   {	S, 0x33	},	/* F8 */
	   {	S, 0x38	},	/* 0x58 F9 */
	   {	S, 0x3D	},	/* F10 */
	   {	K, '('	},
	   {	K, ')'	},
	   {	K, '/'	},
	   {	K, '*'	},
	   {	K, '+'	},
	   {	S, 0x42	}	/* HELP */
	},

	/* shift alt map */
	{
	   {	0, '~'	},	/* 0x00 */
	   {	0, '!'	},
	   {	0, '@'	},
	   {	0, '#'	},
	   {	0, '$'	},
	   {	0, '%'	},
	   {	0, '^'	},
	   {	0, '&'	},
	   {	0, '*'	},	/* 0x08 */
	   {	0, '('	},
	   {	0, ')'	},
	   {	0, '_'	},
	   {	0, '+'	},
	   {	0, '|'	},
	   {	0, 0	},
	   {	K, '0'	},
	   {	C, '\xc5'	},	/* 0x10 */
	   {	0, '\xb0'	},
	   {	0, '\xa9'	},
	   {	0, '\xae'	},
	   {	C, '\xde'	},
	   {	0, '\xa5'	},
	   {	0, '\xb5'	},
	   {	0, '\xa6'	},
	   {	C, '\xd8'	},	/* 0x18 */
	   {	0, '\xb6'	},
	   {	0, '['	},
	   {	0, ']'	},
	   {	0, 0	},
	   {	K, '1'	},
	   {	K, '2'	},
	   {	K, '3'	},
	   {	C, '\xc6'	},	/* 0x20 */
	   {	0, '\xa7'	},
	   {	C, '\xd0'	},
	   {	DA, '\xb4'	},
	   {	DG, '`'	},
	   {	DC, '^'	},
	   {	DT, '~'	},
	   {	DD, '\xa8'	},
	   {	0, '\xa3'	},	/* 0x28 */
	   {	0, ';'	},
	   {	0, '\''	},
	   {	0, 0	},
	   {	0, 0	},
	   {	K, '4'	},
	   {	K, '5'	},
	   {	K, '6'	},
	   {	0, 0	},	/* 0x30 */
	   {	0, '\xb1'	},
	   {	0, '\xd7'	},
	   {	C, '\xe7'	},
	   {	0, '\xaa'	},
	   {	0, '\xba'	},
	   {	0, '\xad'	},
	   {	0, '\xb8'	},
	   {	0, ','	},	/* 0x38 */
	   {	0, '.'	},
	   {	0, '/'	},
	   {	0, 0	},
	   {	K, '.'	},
	   {	K, '7'	},
	   {	K, '8'	},
	   {	K, '9'	},
	   {	0, ' '	},	/* 0x40 */
	   {	0, DEL	},	/* really BS, DEL & BS swapped */
	   {	0, '\t'	},
	   {	K, '\r'	},	/* enter */
	   {	0, '\r'	},	/* return */
	   {	S, 0x9d	},	/* CSI */
	   {	0, '\b'	},	/* really DEL, BS & DEL swapped */
	   {	0, 0	},
	   {	0, 0	},	/* 0x48 */
	   {	0, 0	},
	   {	K, '-'	},
	   {	0, 0	},
	   {	S, 0x00	},	/* now it gets hairy.. CRSR UP */
	   {	S, 0x04	},	/* CRSR DOWN */
	   {	S, 0x08	},	/* CRSR RIGHT */
	   {	S, 0x0C	},	/* CRSR LEFT */
	   {	S, 0x10	},	/* 0x50 F1 */
	   {	S, 0x15	},	/* F2 */
	   {	S, 0x1A	},	/* F3 */
	   {	S, 0x1F	},	/* F4 */
	   {	S, 0x24	},	/* F5 */
	   {	S, 0x29	},	/* F6 */
	   {	S, 0x2E	},	/* F7 */
	   {	S, 0x33	},	/* F8 */
	   {	S, 0x38	},	/* 0x58 F9 */
	   {	S, 0x3D	},	/* F10 */
	   {	K, '('	},
	   {	K, ')'	},
	   {	K, '/'	},
	   {	K, '*'	},
	   {	K, '+'	},
	   {	S, 0x42	}	/* HELP */
	},

	{
	  /* string table. If there's a better way to get the offsets into the
	     above table, please tell me..

	     NOTE: save yourself and others a lot of grief by *not* using
	           CSI == 0x9b, using the two-character sequence gives
	           much less trouble, especially in GNU-Emacs.. */

	  3, ESC, '[', 'A',		/* 0x00: CRSR UP */
	  3, ESC, '[', 'B',		/* 0x04: CRSR DOWN */
	  3, ESC, '[', 'C',		/* 0x08: CRSR RIGHT */
	  3, ESC, '[', 'D',		/* 0x0C: CRSR LEFT */
	  4, ESC, '[', '0', '~',	/* 0x10: F1 */
	  4, ESC, '[', '1', '~',	/* 0x15: F2 */
	  4, ESC, '[', '2', '~',	/* 0x1A: F3 */
	  4, ESC, '[', '3', '~',	/* 0x1F: F4 */
	  4, ESC, '[', '4', '~',	/* 0x24: F5 */
	  4, ESC, '[', '5', '~',	/* 0x29: F6 */
	  4, ESC, '[', '6', '~',	/* 0x2E: F7 */
	  4, ESC, '[', '7', '~',	/* 0x33: F8 */
	  4, ESC, '[', '8', '~',	/* 0x38: F9 */
	  4, ESC, '[', '9', '~',	/* 0x3D: F10 */
	  4, ESC, '[', '?', '~',	/* 0x42: HELP */

	  4, ESC, '[', 'T', '~',	/* 0x47: shift CRSR UP */
	  4, ESC, '[', 'S', '~',	/* 0x4C: shift CRSR DOWN */
	  5, ESC, '[', ' ', '@', '~',	/* 0x51: shift CRSR RIGHT */
	  5, ESC, '[', ' ', 'A', '~',	/* 0x57: shift CRSR LEFT */
	  5, ESC, '[', '1', '0', '~',	/* 0x5D: shift F1 */
	  5, ESC, '[', '1', '1', '~',	/* 0x63: shift F2 */
	  5, ESC, '[', '1', '2', '~',	/* 0x69: shift F3 */
	  5, ESC, '[', '1', '3', '~',	/* 0x6F: shift F4 */
	  5, ESC, '[', '1', '4', '~',	/* 0x75: shift F5 */
	  5, ESC, '[', '1', '5', '~',	/* 0x7B: shift F6 */
	  5, ESC, '[', '1', '6', '~',	/* 0x81: shift F7 */
	  5, ESC, '[', '1', '7', '~',	/* 0x87: shift F8 */
	  5, ESC, '[', '1', '8', '~',	/* 0x8D: shift F9 */
	  5, ESC, '[', '1', '9', '~',	/* 0x93: shift F10 */
	  3, ESC, '[', 'Z',		/* 0x99: shift TAB */
	  2, ESC, '[',			/* 0x9d: alt ESC == CSI */
	},
};

unsigned char acctable[KBD_NUM_ACC][64] = {
  {	"@\xc0""BCD\xc8""FGH\xccJKLMN\xd2PQRST\xd9VWXYZ[\\]^_"
	"`\xe0""bcd\xe8""fgh\xecjklmn\xf2pqrst\xf9vwxyz{|}~\177"},	/* KBD_ACC_GRAVE */

  {	"@\xc1""BCD\xc9""FGH\xcdJKLMN\xd3PQRST\xdaVWXYZ[\\]^_"
	"`\xe1""bcd\xe9""fgh\xedjklmn\xf3pqrst\xfavwxyz{|}~\177"},	/* KBD_ACC_ACUTE */

  {	"@\xc2""BCD\xca""FGH\xceJKLMN\xd4PQRST\xdbVWXYZ[\\]^_"
	"`\xe2""bcd\xea""fgh\xeejklmn\xf4pqrst\xfbvwxyz{|}~\177"},	/* KBD_ACC_CIRC */

  {	"@\xc3""BCDEFGHIJKLM\xd1\xd5PQRSTUVWXYZ[\\]^_"
	"`\xe3""bcdefghijklm\xf1\xd5pqrstuvwxyz{|}~\177"},	/* KBD_ACC_TILDE */

  {	"@\xc4""BCD\xcb""FGH\xcfJKLMN\xd6PQRST\xdcVWXYZ[\\]^_"
	"`\xe4""bcd\xeb""fgh\xefjklmn\xf6pqrst\xfcvwxyz{|}~\177"},	/* KBD_ACC_DIER */
};