arch/all-mingw32/hidd/wingdi/wingdi_kbdclass.c

   1 /*
   2     Copyright © 1995-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: GDI hidd handling keypresses.
   6     Lang: English.
   7 */
   8
   9 #define __OOP_NOATTRBASES__
  10
  11 #include <aros/debug.h>
  12 #include <aros/symbolsets.h>
  13 #include <devices/inputevent.h>
  14 #include <devices/rawkeycodes.h>
  15 #include <oop/oop.h>
  16 #include <hidd/hidd.h>
  17 #include <hidd/keyboard.h>
  18
  19 #include <proto/kernel.h>
  20 #include <proto/utility.h>
  21 #include <proto/oop.h>
  22
  23 #include LC_LIBDEFS_FILE
  24 #include "gdi.h"
  25
  26 #define NOKEY -1
  27
  28 #include "stdkeytable.h"
  29 #include "e0keytable.h"
  30
  31 /****************************************************************************************/
  32
  33 static OOP_AttrBase HiddKbdAB;
  34
  35 static struct OOP_ABDescr attrbases[] =
  36 {
  37     { IID_Hidd_Kbd  , &HiddKbdAB    },
  38     { NULL          , NULL          }
  39 };
  40
  41 /****************************************************************************************/
  42
  43 static VOID KbdIntHandler(struct gdikbd_data *data, volatile struct GDI_Control *KEYBOARDDATA)
  44 {
  45     const WORD *keytable;
  46     UBYTE numkeys;
  47     WORD keycode;
  48     UWORD eventcode = KEYBOARDDATA->KbdEvent;
  49     UWORD rawcode   = KEYBOARDDATA->KeyCode;
  50
  51     /*
  52      * Signal to event processing thread that we've read the event.
  53      * Omit Forbid()/Permit() pair here because we are inside interrupt.
  54      */
  55     native_func->GDI_KbdAck();
  56
  57     if (rawcode & 0x0100)
  58     {
  59         keytable = e0_keytable;
  60         numkeys = NUM_E0KEYS;
  61     }
  62     else
  63     {
  64         keytable = std_keytable;
  65         numkeys = NUM_STDKEYS;
  66     }
  67     rawcode &= 0x00FF;
  68
  69     if (rawcode < numkeys)
  70     {
  71         keycode = keytable[rawcode];
  72         if (keycode != NOKEY)
  73         {
  74             if (eventcode == WM_KEYUP)
  75                 keycode |= IECODE_UP_PREFIX;
  76
  77             data->kbd_callback(data->callbackdata, keycode);
  78         }
  79     }
  80 }
  81
  82 /****************************************************************************************/
  83
  84 OOP_Object * GDIKbd__Root__New(OOP_Class *cl, OOP_Object *o, struct pRoot_New *msg)
  85 {
  86     struct TagItem *tag, *tstate;
  87     APTR            callback = NULL;
  88     APTR            callbackdata = NULL;
  89
  90     EnterFunc(bug("GDIKbd::New()\n"));
  91
  92     if (XSD(cl)->kbdhidd)
  93     {
  94         /* It is illegal to create more than one object */
  95         ReturnPtr("GDIKbd::New", OOP_Object *, NULL);
  96     }
  97
  98     tstate = msg->attrList;
  99     D(bug("attrList: 0x%p\n", tstate));
 100
 101     while ((tag = NextTagItem(&tstate)))
 102     {
 103         ULONG idx;
 104
 105         D(bug("Got tag %d, data %x\n", tag->ti_Tag, tag->ti_Data));
 106
 107         if (IS_HIDDKBD_ATTR(tag->ti_Tag, idx))
 108         {
 109             D(bug("Kbd hidd tag\n"));
 110             switch (idx)
 111             {
 112                 case aoHidd_Kbd_IrqHandler:
 113                     callback = (APTR)tag->ti_Data;
 114                     D(bug("Got callback %p\n", (APTR)tag->ti_Data));
 115                     break;
 116
 117                 case aoHidd_Kbd_IrqHandlerData:
 118                     callbackdata = (APTR)tag->ti_Data;
 119                     D(bug("Got data %p\n", (APTR)tag->ti_Data));
 120                     break;
 121             }
 122         }
 123
 124     } /* while (tags to process) */
 125
 126     if (NULL == callback)
 127         ReturnPtr("GDIKbd::New", OOP_Object *, NULL); /* Should have some error code here */
 128
 129     o = (OOP_Object *)OOP_DoSuperMethod(cl, o, (OOP_Msg)msg);
 130     if (o)
 131     {
 132         struct gdikbd_data *data = OOP_INST_DATA(cl, o);
 133         struct GDI_Control *ctl = XSD(cl)->ctl;
 134
 135         data->interrupt = KrnAddIRQHandler(ctl->KbdIrq, KbdIntHandler, data, ctl);
 136         if (data->interrupt)
 137         {
 138             data->kbd_callback = (VOID (*)(APTR, UWORD))callback;
 139             data->callbackdata = callbackdata;
 140
 141             XSD(cl)->kbdhidd = o;
 142
 143             ReturnPtr("GDIKbd::New", OOP_Object *, o);
 144         }
 145         OOP_MethodID disp_mid = OOP_GetMethodID(IID_Root, moRoot_Dispose);
 146         OOP_CoerceMethod(cl, o, (OOP_Msg) &disp_mid);
 147     }
 148     return NULL;
 149 }
 150
 151 /****************************************************************************************/
 152
 153 VOID GDIKbd__Root__Dispose(OOP_Class *cl, OOP_Object *o, OOP_Msg msg)
 154 {
 155     struct gdikbd_data *data = OOP_INST_DATA(cl, o);
 156
 157     EnterFunc(bug("[GDIKbd] Dispose()\n"));
 158
 159     KrnRemIRQHandler(data->interrupt);
 160     ObtainSemaphore( &XSD(cl)->sema);
 161     XSD(cl)->kbdhidd = NULL;
 162     ReleaseSemaphore( &XSD(cl)->sema);
 163     OOP_DoSuperMethod(cl, o, msg);
 164 }
 165
 166 /****************************************************************************************/
 167
 168 static int kbd_init(LIBBASETYPEPTR LIBBASE)
 169 {
 170     return OOP_ObtainAttrBases(attrbases);
 171 }
 172
 173 /****************************************************************************************/
 174
 175 static int kbd_expunge(LIBBASETYPEPTR LIBBASE)
 176 {
 177     OOP_ReleaseAttrBases(attrbases);
 178     return TRUE;
 179 }
 180
 181 /****************************************************************************************/
 182
 183 ADD2INITLIB(kbd_init, 0);
 184 ADD2EXPUNGELIB(kbd_expunge, 0);