/*      $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 */
};