workbench/libs/commodities/invertkeymap.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <devices/inputevent.h>
   9 #include <devices/keymap.h>
  10 #include "cxintern.h"
  11 #include <proto/keymap.h>
  12 #define __NOLIBBASE__ 1
  13 #include <proto/timer.h>
  14 #undef __NOLIBBASE__
  15 #include <aros/debug.h>
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <proto/commodities.h>
  21
  22     AROS_LH3(BOOL, InvertKeyMap,
  23
  24 /*  SYNOPSIS */
  25
  26         AROS_LHA(ULONG              , ansiCode , D0),
  27         AROS_LHA(struct InputEvent *, event    , A0),
  28         AROS_LHA(struct KeyMap     *, km       , A1),
  29
  30 /*  LOCATION */
  31
  32         struct Library *, CxBase, 29, Commodities)
  33
  34 /*  FUNCTION
  35
  36     Translate a given ANSI character code to an InputEvent. The InputEvent
  37     pointed to by 'event' is initialized to match the 'ansiCode'. The
  38     translation is done using the keymap 'km'. If 'km' is NULL, the default
  39     system keymap is used.
  40
  41     INPUTS
  42
  43     ansiCode  -  the ANSI character code to be translated
  44     event     -  the inputevent that will contain the translation
  45     km        -  keymap used for the translation (if 'km' is NULL the system
  46                  default keymap is used).
  47
  48     RESULT
  49
  50     TRUE if the translation was successful, otherwise FALSE.
  51
  52     NOTES
  53
  54     EXAMPLE
  55
  56     BUGS
  57
  58     Only one-deep dead keys are handled, for instance <alt f>e. It doesn't
  59     look up the high key map (keycodes with scan codes greater than 0x40).
  60
  61     SEE ALSO
  62
  63     cx_lib/InvertString()
  64
  65     INTERNALS
  66
  67     HISTORY
  68
  69 ******************************************************************************/
  70
  71 {
  72     AROS_LIBFUNC_INIT
  73
  74     char buf[4];
  75     char str[2] = { 0, 0 };
  76     LONG k;
  77
  78     event->ie_SubClass = 0;
  79
  80     GetSysTime(&event->ie_TimeStamp);
  81
  82     event->ie_EventAddress = NULL;
  83     event->ie_Class = IECLASS_RAWKEY;
  84     str[0] = ansiCode;
  85     k = MapANSI((STRPTR) &str, 1, (STRPTR) &buf, 3, km);
  86
  87     switch(k)
  88     {
  89     case 1 :   /* One code / qualifier */
  90         event->ie_Prev1DownCode = 0;
  91         event->ie_Prev1DownQual = 0;
  92         D(bug("Buf 0: %i\n", buf[0]));
  93         event->ie_Code = (WORD)(buf[0]);
  94         event->ie_Qualifier = (WORD) buf[1];
  95
  96         return TRUE;
  97
  98     case 2 :   /* Two codes / qualifiers */
  99         event->ie_Prev1DownCode = buf[0];
 100         event->ie_Prev1DownQual = buf[1];
 101         event->ie_Code = (WORD) buf[2];
 102         event->ie_Qualifier = (WORD) buf[3];
 103
 104         return TRUE;
 105
 106     default :
 107         return FALSE; /* Error mapping ANSI */
 108     }
 109
 110     AROS_LIBFUNC_EXIT
 111 } /* InvertKeyMap */