rom/keymap/support.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 /****************************************************************************************/
  10
  11 #include <devices/inputevent.h>
  12 #include <string.h>
  13
  14 #include <aros/debug.h>
  15
  16 #include "keymap_intern.h"
  17
  18 /****************************************************************************************/
  19
  20 #if DEBUG
  21     extern struct KeymapBase *DebugKeymapBase;
  22 #   undef SysBase
  23 #   define SysBase DebugKeymapBase->SysBase
  24
  25 #endif
  26
  27 /****************************************************************************************/
  28
  29 BOOL WriteToBuffer(struct BufInfo *bufinfo, UBYTE *string, LONG numchars)
  30 {
  31     if (bufinfo->CharsWritten + numchars > bufinfo->BufLength)
  32         return (FALSE);
  33
  34     strncpy(bufinfo->Buffer, string, numchars);
  35     bufinfo->CharsWritten += numchars;
  36
  37     return (TRUE);
  38 }
  39
  40 /****************************************************************************************/
  41
  42 BOOL GetKeyInfo(struct KeyInfo *ki, UWORD code, UWORD qual, struct KeyMap *km)
  43 {
  44     BOOL valid = TRUE; /* valid code is default */
  45
  46     if (code & IECODE_UP_PREFIX) /* Key pressed ? */
  47     {
  48         valid = FALSE;
  49     }
  50     else if (code >= 128) /* Keymaps at the moment support only 128 keys */
  51     {
  52         valid = FALSE;
  53     }
  54     else
  55     {
  56         BYTE capsable;
  57         BYTE repeatable;
  58
  59         ki->KCFQual = KC_NOQUAL; /* == 0 */
  60
  61         code &= ~IECODE_UP_PREFIX;
  62
  63         /* Convert from IEQUAL_xxx into KCF_xx */
  64         if (qual & (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT))
  65             ki->KCFQual |= KCF_SHIFT;
  66
  67         if (qual & (IEQUALIFIER_LALT|IEQUALIFIER_RALT))
  68             ki->KCFQual |= KCF_ALT;
  69
  70         if (qual & IEQUALIFIER_CONTROL)
  71             ki->KCFQual |= KCF_CONTROL;
  72
  73         D(bug("mrk: KCF qual: %d\n", ki->KCFQual));
  74
  75         /* Get the type of the key */
  76         if (code <= 0x3F)
  77         {
  78             /* Get key info from low keymap */
  79             ki->Key_MapType = km->km_LoKeyMapTypes[code];
  80             ki->Key_Mapping = km->km_LoKeyMap[code];
  81
  82             capsable    = GetBitProperty(km->km_LoCapsable,   code);
  83             repeatable  = GetBitProperty(km->km_LoRepeatable, code);
  84         }
  85         else
  86         {
  87             code -= 0x40; /* hex 40 is first indexed */
  88
  89             /* Get key info from high keymap */
  90             ki->Key_MapType = km->km_HiKeyMapTypes[code];
  91             ki->Key_Mapping = km->km_HiKeyMap[code];
  92             capsable    = GetBitProperty(km->km_HiCapsable,   code);
  93             repeatable  = GetBitProperty(km->km_HiRepeatable, code);
  94         }
  95
  96         D(bug("mrk: capsable=%d\n", capsable));
  97
  98         if ((qual & IEQUALIFIER_CAPSLOCK) && capsable)
  99             ki->KCFQual |= KCF_SHIFT;
 100
 101         if ((qual & IEQUALIFIER_REPEAT) && (!repeatable))
 102         {
 103             valid = FALSE; /* Repeating not supported for key, skip keypress */
 104         }
 105
 106         D(bug("mrk:repeat test passed\n"));
 107
 108         D(bug("mrk: key mapping: %04x\n", ki->Key_Mapping));
 109     }
 110
 111     return (valid);
 112 }
 113
 114 /****************************************************************************************/
 115
 116 WORD GetDeadKeyIndex(UWORD code, UWORD qual, struct KeyMap *km)
 117 {
 118     struct KeyInfo  ki;
 119     WORD            retval = -1;
 120
 121     /* Get the key info for the key */
 122
 123     if (GetKeyInfo(&ki, code, qual, km))
 124     {
 125         if (ki.Key_MapType & KCF_DEAD)
 126         {
 127             BYTE idx;
 128
 129             /* Use keymap_str table to get idx to right key descriptor */
 130             idx = keymapstr_table[ki.Key_MapType & KC_VANILLA][ki.KCFQual];
 131             if (idx != -1)
 132             {
 133                 UBYTE *dead_descr = (UBYTE *)ki.Key_Mapping;
 134
 135                 if (dead_descr[idx * 2] == DPF_DEAD)
 136                 {
 137                     /* Clear first */
 138
 139                     retval = dead_descr[idx * 2 + 1];
 140
 141                     retval &= 0x00FF; /* Clear upper byte */
 142                 }
 143             }
 144         }
 145     }
 146
 147     return (retval);
 148 }
 149
 150 /****************************************************************************************/
 151