dlls/winedos/int09.c

   1 /*
   2  * DOS interrupt 09h handler (IRQ1 - KEYBOARD)
   3  */
   4
   5 #include <stdlib.h>
   6 #include <string.h>
   7
   8 #include "windef.h"
   9 #include "winbase.h"
  10 #include "wingdi.h"
  11 #include "winuser.h"
  12 #include "miscemu.h"
  13 #include "debugtools.h"
  14 #include "callback.h"
  15 #include "dosexe.h"
  16
  17 DEFAULT_DEBUG_CHANNEL(int);
  18
  19 #define QUEUELEN 31
  20
  21 static struct
  22 {
  23   BYTE queuelen,queue[QUEUELEN],ascii[QUEUELEN];
  24 } kbdinfo;
  25
  26
  27 /**********************************************************************
  28  *          INT_Int09Handler
  29  *
  30  * Handler for int 09h.
  31  */
  32 void WINAPI INT_Int09Handler( CONTEXT86 *context )
  33 {
  34   BYTE ascii, scan = INT_Int09ReadScan(&ascii);
  35   BYTE ch[2];
  36   int cnt, c2;
  37
  38   TRACE("scan=%02x\n",scan);
  39   if (!(scan & 0x80)) {
  40     if (ascii) {
  41       /* we already have an ASCII code, no translation necessary */
  42       ch[0] = ascii;
  43       cnt = 1;
  44     } else {
  45       UINT vkey = MapVirtualKeyA(scan&0x7f, 1);
  46       BYTE keystate[256];
  47       GetKeyboardState(keystate);
  48       cnt = ToAscii(vkey, scan, keystate, (LPWORD)ch, 0);
  49     }
  50     if (cnt>0) {
  51       for (c2=0; c2<cnt; c2++)
  52         INT_Int16AddChar(ch[c2], scan);
  53     } else
  54     if (cnt==0) {
  55       /* FIXME: need to handle things like shift-F-keys,
  56        * 0xE0 extended keys, etc */
  57       INT_Int16AddChar(0, scan);
  58     }
  59   }
  60   Dosvm.OutPIC(0x20, 0x20); /* send EOI */
  61 }
  62
  63 static void KbdRelay( CONTEXT86 *context, void *data )
  64 {
  65   if (kbdinfo.queuelen) {
  66     /* cleanup operation, called from Dosvm.OutPIC:
  67      * we'll remove current scancode from keyboard buffer here,
  68      * rather than in ReadScan, because some DOS apps depend on
  69      * the scancode being available for reading multiple times... */
  70     if (--kbdinfo.queuelen) {
  71       memmove(kbdinfo.queue,kbdinfo.queue+1,kbdinfo.queuelen);
  72       memmove(kbdinfo.ascii,kbdinfo.ascii+1,kbdinfo.queuelen);
  73     }
  74   }
  75 }
  76
  77 void WINAPI INT_Int09SendScan( BYTE scan, BYTE ascii )
  78 {
  79   if (kbdinfo.queuelen == QUEUELEN) {
  80     ERR("keyboard queue overflow\n");
  81     return;
  82   }
  83   /* add scancode to queue */
  84   kbdinfo.queue[kbdinfo.queuelen] = scan;
  85   kbdinfo.ascii[kbdinfo.queuelen++] = ascii;
  86   /* tell app to read it by triggering IRQ 1 (int 09) */
  87   Dosvm.QueueEvent(1,DOS_PRIORITY_KEYBOARD,KbdRelay,NULL);
  88 }
  89
  90 /**********************************************************************
  91  *          KbdReadScan (WINEDOS.@)
  92  */
  93 BYTE WINAPI INT_Int09ReadScan( BYTE*ascii )
  94 {
  95     if (ascii) *ascii = kbdinfo.ascii[0];
  96     return kbdinfo.queue[0];
  97 }