git.oblomov.eu Git - wine/blob - windows/keyboard.c

   1 /*
   2  * KEYBOARD driver
   3  *
   4  * Copyright 1993 Bob Amstadt
   5  * Copyright 1996 Albrecht Kleine
   6  * Copyright 1997 David Faure
   7  * Copyright 1998 Morten Welinder
   8  * Copyright 1998 Ulrich Weigand
   9  *
  10  */
  11
  12 #include <stdlib.h>
  13 #include <string.h>
  14 #include <ctype.h>
  15 #include <X11/keysym.h>
  16 #include "ts_xlib.h"
  17 #include "ts_xresource.h"
  18 #include "ts_xutil.h"
  19 #include <X11/Xatom.h>
  20
  21 #include "windows.h"
  22 #include "win.h"
  23 #include "gdi.h"
  24 #include "heap.h"
  25 #include "keyboard.h"
  26 #include "message.h"
  27 #include "debug.h"
  28 #include "debugtools.h"
  29 #include "struct32.h"
  30 #include "winerror.h"
  31
  32 static LPKEYBD_EVENT_PROC DefKeybEventProc = NULL;
  33 static LPBYTE pKeyStateTable = NULL;
  34
  35 int min_keycode, max_keycode, keysyms_per_keycode;
  36 WORD keyc2vkey[256];
  37
  38 static int NumLockMask, AltGrMask; /* mask in the XKeyEvent state */
  39 static int kcControl, kcAlt, kcShift, kcNumLock, kcCapsLock; /* keycodes */
  40
  41 /* Keyboard translation tables */
  42 static const int special_key[] =
  43 {
  44     VK_BACK, VK_TAB, 0, VK_CLEAR, 0, VK_RETURN, 0, 0,           /* FF08 */
  45     0, 0, 0, VK_PAUSE, VK_SCROLL, 0, 0, 0,                      /* FF10 */
  46     0, 0, 0, VK_ESCAPE                                          /* FF18 */
  47 };
  48
  49 static const int cursor_key[] =
  50 {
  51     VK_HOME, VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN, VK_PRIOR,
  52                                        VK_NEXT, VK_END          /* FF50 */
  53 };
  54
  55 static const int misc_key[] =
  56 {
  57     VK_SELECT, VK_SNAPSHOT, VK_EXECUTE, VK_INSERT, 0, 0, 0, 0,  /* FF60 */
  58     VK_CANCEL, VK_HELP, VK_CANCEL, VK_MENU                      /* FF68 */
  59 };
  60
  61 static const int keypad_key[] =
  62 {
  63     0, VK_NUMLOCK,                                              /* FF7E */
  64     0, 0, 0, 0, 0, 0, 0, 0,                                     /* FF80 */
  65     0, 0, 0, 0, 0, VK_RETURN, 0, 0,                             /* FF88 */
  66     0, 0, 0, 0, 0, VK_HOME, VK_LEFT, VK_UP,                     /* FF90 */
  67     VK_RIGHT, VK_DOWN, VK_PRIOR, VK_NEXT, VK_END, 0,
  68                                  VK_INSERT, VK_DELETE,          /* FF98 */
  69     0, 0, 0, 0, 0, 0, 0, 0,                                     /* FFA0 */
  70     0, 0, VK_MULTIPLY, VK_ADD, VK_SEPARATOR, VK_SUBTRACT,
  71                                VK_DECIMAL, VK_DIVIDE,           /* FFA8 */
  72     VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4,
  73                             VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, /* FFB0 */
  74     VK_NUMPAD8, VK_NUMPAD9                                      /* FFB8 */
  75 };
  76
  77 static const int function_key[] =
  78 {
  79     VK_F1, VK_F2,                                               /* FFBE */
  80     VK_F3, VK_F4, VK_F5, VK_F6, VK_F7, VK_F8, VK_F9, VK_F10,    /* FFC0 */
  81     VK_F11, VK_F12, VK_F13, VK_F14, VK_F15, VK_F16              /* FFC8 */
  82 };
  83
  84 static const int modifier_key[] =
  85 {
  86     VK_SHIFT, VK_SHIFT, VK_CONTROL, VK_CONTROL, VK_CAPITAL, 0, /* FFE1 */
  87     VK_MENU, VK_MENU, VK_MENU, VK_MENU                         /* FFE7 */
  88 };
  89
  90 /* Returns the Windows virtual key code associated with the X event <e> */
  91 static WORD EVENT_event_to_vkey( XKeyEvent *e)
  92 {
  93     KeySym keysym;
  94
  95     TSXLookupString(e, NULL, 0, &keysym, NULL);
  96
  97     if ((keysym >= 0xFFAE) && (keysym <= 0xFFB9) && (e->state & NumLockMask))
  98         /* Only the Keypad keys 0-9 and . send different keysyms
  99          * depending on the NumLock state */
 100         return keypad_key[(keysym & 0xFF) - 0x7E];
 101
 102     return keyc2vkey[e->keycode];
 103 }
 104
 105 /**********************************************************************
 106  *              KEYBOARD_Init
 107  */
 108 static void KEYBOARD_Init(void)
 109 {
 110     int i;
 111     KeySym *ksp;
 112     XModifierKeymap *mmp;
 113     KeySym keysym;
 114     KeyCode *kcp;
 115     XKeyEvent e2;
 116     WORD vkey, OEMvkey;
 117     int keyc;
 118
 119     TSXDisplayKeycodes(display, &min_keycode, &max_keycode);
 120     ksp = TSXGetKeyboardMapping(display, min_keycode,
 121                               max_keycode + 1 - min_keycode, &keysyms_per_keycode);
 122     /* We are only interested in keysyms_per_keycode.
 123        There is no need to hold a local copy of the keysyms table */
 124     TSXFree(ksp);
 125     mmp = TSXGetModifierMapping(display);
 126     kcp = mmp->modifiermap;
 127     for (i = 0; i < 8; i += 1) /* There are 8 modifier keys */
 128     {
 129         int j;
 130
 131         for (j = 0; j < mmp->max_keypermod; j += 1, kcp += 1)
 132             if (*kcp)
 133             {
 134                 int k;
 135
 136                 for (k = 0; k < keysyms_per_keycode; k += 1)
 137                     if (TSXKeycodeToKeysym(display, *kcp, k) == XK_Mode_switch)
 138                     {
 139                         AltGrMask = 1 << i;
 140                         TRACE(key, "AltGrMask is %x\n", AltGrMask);
 141                     }
 142                     else if (TSXKeycodeToKeysym(display, *kcp, k) == XK_Num_Lock)
 143                     {
 144                         NumLockMask = 1 << i;
 145                         TRACE(key, "NumLockMask is %x\n", NumLockMask);
 146                     }
 147             }
 148     }
 149     TSXFreeModifiermap(mmp);
 150
 151     /* Now build two conversion arrays :
 152      * keycode -> vkey + extended
 153      * vkey + extended -> keycode */
 154
 155     e2.display = display;
 156     e2.state = 0;
 157
 158     OEMvkey = VK_OEM_7; /* next is available.  */
 159     for (keyc = min_keycode; keyc <= max_keycode; keyc++)
 160     {
 161         e2.keycode = (KeyCode)keyc;
 162         TSXLookupString(&e2, NULL, 0, &keysym, NULL);
 163         vkey = 0;
 164         if (keysym)  /* otherwise, keycode not used */
 165         {
 166             if ((keysym >> 8) == 0xFF)         /* non-character key */
 167             {
 168                 int key = keysym & 0xff;
 169
 170                 if (key >= 0x08 && key <= 0x1B)         /* special key */
 171                     vkey = special_key[key - 0x08];
 172                 else if (key >= 0x50 && key <= 0x57)    /* cursor key */
 173                     vkey = cursor_key[key - 0x50];
 174                 else if (key >= 0x60 && key <= 0x6B)    /* miscellaneous key */
 175                     vkey = misc_key[key - 0x60];
 176                 else if (key >= 0x7E && key <= 0xB9)    /* keypad key */
 177                     vkey = keypad_key[key - 0x7E];
 178                 else if (key >= 0xBE && key <= 0xCD)    /* function key */
 179                 {
 180                     vkey = function_key[key - 0xBE];
 181                     vkey |= 0x100; /* set extended bit */
 182                 }
 183                 else if (key >= 0xE1 && key <= 0xEA)    /* modifier key */
 184                     vkey = modifier_key[key - 0xE1];
 185                 else if (key == 0xFF)                   /* DEL key */
 186                     vkey = VK_DELETE;
 187                 /* extended must also be set for ALT_R, CTRL_R,
 188                    INS, DEL, HOME, END, PAGE_UP, PAGE_DOWN, ARROW keys,
 189                    keypad / and keypad ENTER (SDK 3.1 Vol.3 p 138) */
 190                 /* FIXME should we set extended bit for NumLock ? My
 191                  * Windows does ... DF */
 192                 switch (keysym)
 193                 {
 194                 case XK_Control_R :
 195                 case XK_Alt_R :
 196                 case XK_Insert :
 197                 case XK_Delete :
 198                 case XK_Home :
 199                 case XK_End :
 200                 case XK_Prior :
 201                 case XK_Next :
 202                 case XK_Left :
 203                 case XK_Up :
 204                 case XK_Right :
 205                 case XK_Down :
 206                 case XK_KP_Divide :
 207                 case XK_KP_Enter :
 208                     vkey |= 0x100;
 209                 }
 210             }
 211             for (i = 0; (i < keysyms_per_keycode) && (!vkey); i++)
 212             {
 213                 keysym = TSXLookupKeysym(&e2, i);
 214                 if ((keysym >= VK_0 && keysym <= VK_9)
 215                     || (keysym >= VK_A && keysym <= VK_Z)
 216                     || keysym == VK_SPACE)
 217                     vkey = keysym;
 218             }
 219
 220             for (i = 0; (i < keysyms_per_keycode) && (!vkey); i++)
 221             {
 222                 keysym = TSXLookupKeysym(&e2, i);
 223                 switch (keysym)
 224                 {
 225                 case ';':             vkey = VK_OEM_1; break;
 226                 case '/':             vkey = VK_OEM_2; break;
 227                 case '`':             vkey = VK_OEM_3; break;
 228                 case '[':             vkey = VK_OEM_4; break;
 229                 case '\\':            vkey = VK_OEM_5; break;
 230                 case ']':             vkey = VK_OEM_6; break;
 231                 case '\'':            vkey = VK_OEM_7; break;
 232                 case ',':             vkey = VK_OEM_COMMA; break;
 233                 case '.':             vkey = VK_OEM_PERIOD; break;
 234                 case '-':             vkey = VK_OEM_MINUS; break;
 235                 case '+':             vkey = VK_OEM_PLUS; break;
 236                 }
 237             }
 238
 239             if (!vkey)
 240             {
 241                 /* Others keys: let's assign OEM virtual key codes in the allowed range,
 242                  * that is ([0xba,0xc0], [0xdb,0xe4], 0xe6 (given up) et [0xe9,0xf5]) */
 243                 switch (++OEMvkey)
 244                 {
 245                 case 0xc1 : OEMvkey=0xdb; break;
 246                 case 0xe5 : OEMvkey=0xe9; break;
 247                 case 0xf6 : OEMvkey=0xf5; WARN(keyboard,"No more OEM vkey available!\n");
 248                 }
 249
 250                 vkey = OEMvkey;
 251
 252                 if (TRACE_ON(keyboard))
 253                 {
 254                     dbg_decl_str(keyboard, 1024);
 255
 256                     TRACE(keyboard, "OEM specific virtual key %X assigned "
 257                                  "to keycode %X:\n", OEMvkey, e2.keycode);
 258                     for (i = 0; i < keysyms_per_keycode; i += 1)
 259                     {
 260                         char    *ksname;
 261
 262                         keysym = TSXLookupKeysym(&e2, i);
 263                         ksname = TSXKeysymToString(keysym);
 264                         if (!ksname)
 265                             ksname = "NoSymbol";
 266                         dsprintf(keyboard, "%lX (%s) ", keysym, ksname);
 267                     }
 268                     TRACE(keyboard, "(%s)\n", dbg_str(keyboard));
 269                 }
 270             }
 271         }
 272         keyc2vkey[e2.keycode] = vkey;
 273     } /* for */
 274     /* Now store one keycode for each modifier. Used to simulate keypresses. */
 275     kcControl = TSXKeysymToKeycode(display, XK_Control_L);
 276     kcAlt = TSXKeysymToKeycode(display, XK_Alt_L);
 277     kcShift = TSXKeysymToKeycode(display, XK_Shift_L);
 278     kcNumLock = TSXKeysymToKeycode(display, XK_Num_Lock);
 279     kcCapsLock = TSXKeysymToKeycode(display, XK_Caps_Lock);
 280 }
 281
 282 /***********************************************************************
 283  *           KEYBOARD_Inquire                   (KEYBOARD.1)
 284  */
 285 WORD WINAPI KEYBOARD_Inquire(LPKBINFO kbInfo)
 286 {
 287     kbInfo->Begin_First_Range = 0;
 288     kbInfo->End_First_Range = 0;
 289     kbInfo->Begin_Second_Range = 0;
 290     kbInfo->End_Second_Range = 0;
 291     kbInfo->StateSize = 16;
 292
 293     return sizeof(KBINFO);
 294 }
 295
 296 /***********************************************************************
 297  *           KEYBOARD_Enable                    (KEYBOARD.2)
 298  */
 299 VOID WINAPI KEYBOARD_Enable( LPKEYBD_EVENT_PROC lpKeybEventProc,
 300                              LPBYTE lpKeyState )
 301 {
 302     static BOOL32 initDone = FALSE;
 303
 304     DefKeybEventProc = lpKeybEventProc;
 305     pKeyStateTable = lpKeyState;
 306
 307     /* all states to false */
 308     memset( lpKeyState, 0, sizeof(lpKeyState) );
 309
 310     if (!initDone) KEYBOARD_Init();
 311     initDone = TRUE;
 312 }
 313
 314 /***********************************************************************
 315  *           KEYBOARD_Disable                   (KEYBOARD.3)
 316  */
 317 VOID WINAPI KEYBOARD_Disable(VOID)
 318 {
 319     DefKeybEventProc = NULL;
 320     pKeyStateTable = NULL;
 321 }
 322
 323 /***********************************************************************
 324  *           KEYBOARD_SendEvent
 325  */
 326 void KEYBOARD_SendEvent( BYTE bVk, BYTE bScan, DWORD dwFlags,
 327                          DWORD posX, DWORD posY, DWORD time )
 328 {
 329     WINE_KEYBDEVENT wke;
 330
 331     if ( !DefKeybEventProc ) return;
 332
 333     TRACE( event, "(%d,%d,%04lX)\n", bVk, bScan, dwFlags );
 334
 335     wke.magic = WINE_KEYBDEVENT_MAGIC;
 336     wke.posX  = posX;
 337     wke.posY  = posY;
 338     wke.time  = time;
 339
 340     DefKeybEventProc( bVk, bScan, dwFlags, (DWORD)&wke );
 341 }
 342
 343
 344 static BOOL32 NumState=FALSE, CapsState=FALSE;
 345
 346 /**********************************************************************
 347  *              KEYBOARD_GenerateMsg
 348  *
 349  * Generate Down+Up messages when NumLock or CapsLock is pressed.
 350  *
 351  * Convention : called with vkey only VK_NUMLOCK or VK_CAPITAL
 352  *
 353  */
 354 void KEYBOARD_GenerateMsg( WORD vkey, int Evtype, INT32 event_x, INT32 event_y,
 355                            DWORD event_time )
 356 {
 357   BOOL32 * State = (vkey==VK_NUMLOCK? &NumState : &CapsState);
 358
 359   if (*State) {
 360     /* The INTERMEDIARY state means : just after a 'press' event, if a 'release' event comes,
 361        don't treat it. It's from the same key press. Then the state goes to ON.
 362        And from there, a 'release' event will switch off the toggle key. */
 363     *State=FALSE;
 364     TRACE(keyboard,"INTERM : don\'t treat release of toggle key. InputKeyStateTable[%#x] = %#x\n",vkey,pKeyStateTable[vkey]);
 365   } else
 366     {
 367         if ( pKeyStateTable[vkey] & 0x1 ) /* it was ON */
 368           {
 369             if (Evtype!=KeyPress)
 370               {
 371                 TRACE(keyboard,"ON + KeyRelease => generating DOWN and UP messages.\n");
 372                 KEYBOARD_SendEvent( vkey, 0, 0,
 373                                     event_x, event_y, event_time );
 374                 KEYBOARD_SendEvent( vkey, 0, KEYEVENTF_KEYUP,
 375                                     event_x, event_y, event_time );
 376                 *State=FALSE;
 377                 pKeyStateTable[vkey] &= ~0x01; /* Toggle state to off. */
 378               }
 379           }
 380         else /* it was OFF */
 381           if (Evtype==KeyPress)
 382             {
 383               TRACE(keyboard,"OFF + Keypress => generating DOWN and UP messages.\n");
 384               KEYBOARD_SendEvent( vkey, 0, 0,
 385                                   event_x, event_y, event_time );
 386               KEYBOARD_SendEvent( vkey, 0, KEYEVENTF_KEYUP,
 387                                   event_x, event_y, event_time );
 388               *State=TRUE; /* Goes to intermediary state before going to ON */
 389               pKeyStateTable[vkey] |= 0x01; /* Toggle state to on. */
 390             }
 391     }
 392 }
 393
 394 /***********************************************************************
 395  *           KEYBOARD_UpdateOneState
 396  *
 397  * Updates internal state for <vkey>, depending on key <state> under X
 398  *
 399  */
 400 void KEYBOARD_UpdateOneState ( int vkey, int state )
 401 {
 402     /* Do something if internal table state != X state for keycode */
 403     if (((pKeyStateTable[vkey] & 0x80)!=0) != state)
 404     {
 405         TRACE(keyboard,"Adjusting state for vkey %#.2x. State before %#.2x \n",
 406               vkey, pKeyStateTable[vkey]);
 407
 408         /* Fake key being pressed inside wine */
 409         KEYBOARD_SendEvent( vkey, 0, state? 0 : KEYEVENTF_KEYUP,
 410                             0, 0, GetTickCount() );
 411
 412         TRACE(keyboard,"State after %#.2x \n",pKeyStateTable[vkey]);
 413     }
 414 }
 415
 416 /***********************************************************************
 417  *           KEYBOARD_UpdateState
 418  *
 419  * Update modifiers state (Ctrl, Alt, Shift)
 420  * when window is activated (called by EVENT_FocusIn in event.c)
 421  *
 422  * This handles the case where one uses Ctrl+... Alt+... or Shift+.. to switch
 423  * from wine to another application and back.
 424  * Toggle keys are handled in HandleEvent. (because XQueryKeymap says nothing
 425  *  about them)
 426  */
 427 void KEYBOARD_UpdateState ( void )
 428 {
 429 /* extract a bit from the char[32] bit suite */
 430 #define KeyState(keycode) ((keys_return[keycode/8] & (1<<(keycode%8)))!=0)
 431
 432     char keys_return[32];
 433
 434     TRACE(keyboard,"called\n");
 435     if (!TSXQueryKeymap(display, keys_return)) {
 436         ERR(keyboard,"Error getting keymap !");
 437         return;
 438     }
 439
 440     /* Adjust the ALT and CONTROL state if any has been changed outside wine */
 441     KEYBOARD_UpdateOneState(VK_MENU, KeyState(kcAlt));
 442     KEYBOARD_UpdateOneState(VK_CONTROL, KeyState(kcControl));
 443     KEYBOARD_UpdateOneState(VK_SHIFT, KeyState(kcShift));
 444 #undef KeyState
 445 }
 446
 447 /***********************************************************************
 448  *           KEYBOARD_HandleEvent
 449  *
 450  * Handle a X key event
 451  */
 452 void KEYBOARD_HandleEvent( WND *pWnd, XKeyEvent *event )
 453 {
 454     char Str[24];
 455     XComposeStatus cs;
 456     KeySym keysym;
 457     WORD vkey = 0, bScan;
 458     DWORD dwFlags;
 459     static BOOL32 force_extended = FALSE; /* hack for AltGr translation */
 460
 461     int ascii_chars;
 462
 463     INT32 event_x = (pWnd? pWnd->rectWindow.left : 0) + event->x;
 464     INT32 event_y = (pWnd? pWnd->rectWindow.top  : 0) + event->y;
 465     DWORD event_time = event->time - MSG_WineStartTicks;
 466
 467     /* this allows support for dead keys */
 468     if ((event->keycode >> 8) == 0x10)
 469         event->keycode=(event->keycode & 0xff);
 470
 471     ascii_chars = TSXLookupString(event, Str, 1, &keysym, &cs);
 472
 473     TRACE(key, "EVENT_key : state = %X\n", event->state);
 474     if (keysym == XK_Mode_switch)
 475         {
 476         TRACE(key, "Alt Gr key event received\n");
 477         event->keycode = kcControl; /* Simulate Control */
 478         KEYBOARD_HandleEvent( pWnd, event );
 479
 480         event->keycode = kcAlt; /* Simulate Alt */
 481         force_extended = TRUE;
 482         KEYBOARD_HandleEvent( pWnd, event );
 483         force_extended = FALSE;
 484         return;
 485         }
 486
 487     Str[ascii_chars] = '\0';
 488     if (TRACE_ON(key)){
 489         char    *ksname;
 490
 491         ksname = TSXKeysymToString(keysym);
 492         if (!ksname)
 493           ksname = "No Name";
 494         TRACE(key, "%s : keysym=%lX (%s), ascii chars=%u / %X / '%s'\n",
 495                      (event->type == KeyPress) ? "KeyPress" : "KeyRelease",
 496                      keysym, ksname, ascii_chars, Str[0] & 0xff, Str);
 497     }
 498
 499     vkey = EVENT_event_to_vkey(event);
 500     if (force_extended) vkey |= 0x100;
 501
 502     TRACE(key, "keycode 0x%x converted to vkey 0x%x\n",
 503                     event->keycode, vkey);
 504
 505    if (vkey)
 506    {
 507     switch (vkey & 0xff)
 508     {
 509     case VK_NUMLOCK:
 510       KEYBOARD_GenerateMsg( VK_NUMLOCK, event->type, event_x, event_y,
 511                             event_time );
 512       break;
 513     case VK_CAPITAL:
 514       TRACE(keyboard,"Caps Lock event. (type %d). State before : %#.2x\n",event->type,pKeyStateTable[vkey]);
 515       KEYBOARD_GenerateMsg( VK_CAPITAL, event->type, event_x, event_y,
 516                             event_time );
 517       TRACE(keyboard,"State after : %#.2x\n",pKeyStateTable[vkey]);
 518       break;
 519     default:
 520         /* Adjust the NUMLOCK state if it has been changed outside wine */
 521         if (!(pKeyStateTable[VK_NUMLOCK] & 0x01) != !(event->state & NumLockMask))
 522           {
 523             TRACE(keyboard,"Adjusting NumLock state. \n");
 524             KEYBOARD_GenerateMsg( VK_NUMLOCK, KeyPress, event_x, event_y,
 525                                   event_time );
 526             KEYBOARD_GenerateMsg( VK_NUMLOCK, KeyRelease, event_x, event_y,
 527                                   event_time );
 528           }
 529         /* Adjust the CAPSLOCK state if it has been changed outside wine */
 530         if (!(pKeyStateTable[VK_CAPITAL] & 0x01) != !(event->state & LockMask))
 531           {
 532               TRACE(keyboard,"Adjusting Caps Lock state.\n");
 533             KEYBOARD_GenerateMsg( VK_CAPITAL, KeyPress, event_x, event_y,
 534                                   event_time );
 535             KEYBOARD_GenerateMsg( VK_CAPITAL, KeyRelease, event_x, event_y,
 536                                   event_time );
 537           }
 538         /* Not Num nor Caps : end of intermediary states for both. */
 539         NumState = FALSE;
 540         CapsState = FALSE;
 541
 542         bScan = event->keycode - min_keycode; /* Windows starts from 0, X from
 543                                                  min_keycode (8 usually) */
 544         dwFlags = 0;
 545         if ( event->type == KeyRelease ) dwFlags |= KEYEVENTF_KEYUP;
 546         if ( vkey & 0x100 )              dwFlags |= KEYEVENTF_EXTENDEDKEY;
 547         if ( force_extended )            dwFlags |= KEYEVENTF_WINE_FORCEEXTENDED;
 548
 549         KEYBOARD_SendEvent( vkey & 0xff, bScan, dwFlags,
 550                             event_x, event_y, event_time );
 551     }
 552    }
 553 }
 554
 555
 556 /**********************************************************************
 557  *           ScreenSwitchEnable      (KEYBOARD.100)
 558  */
 559 VOID WINAPI ScreenSwitchEnable(WORD unused)
 560 {
 561     FIXME(keyboard,"(%04x): stub\n",unused);
 562 }
 563
 564 /**********************************************************************
 565  *           OemKeyScan      (KEYBOARD.128)(USER32.401)
 566  */
 567 DWORD WINAPI OemKeyScan(WORD wOemChar)
 568 {
 569     TRACE(keyboard,"*OemKeyScan (%d)\n",wOemChar);
 570
 571     return wOemChar;
 572 }
 573
 574 /**********************************************************************
 575  *      VkKeyScan                       [KEYBOARD.129]
 576  */
 577 /* VkKeyScan translates an ANSI character to a virtual-key and shift code
 578  * for the current keyboard.
 579  * high-order byte yields :
 580  *      0       Unshifted
 581  *      1       Shift
 582  *      2       Ctrl
 583  *      3-5     Shift-key combinations that are not used for characters
 584  *      6       Ctrl-Alt
 585  *      7       Ctrl-Alt-Shift
 586  *      I.e. :  Shift = 1, Ctrl = 2, Alt = 4.
 587  * FIXME : works ok except for dead chars :
 588  * VkKeyScan '^'(0x5e, 94) ... got keycode 00 ... returning 00
 589  * VkKeyScan '`'(0x60, 96) ... got keycode 00 ... returning 00
 590  */
 591
 592 WORD WINAPI VkKeyScan16(CHAR cChar)
 593 {
 594         KeyCode keycode;
 595         KeySym keysym;
 596         int i,index;
 597         int highbyte=0;
 598
 599         /* char->keysym (same for ANSI chars) */
 600         keysym=(unsigned char) cChar;/* (!) cChar is signed */
 601         if (keysym<=27) keysym+=0xFF00;/*special chars : return, backspace...*/
 602
 603         keycode = TSXKeysymToKeycode(display, keysym);  /* keysym -> keycode */
 604         if (!keycode)
 605         { /* It didn't work ... let's try with deadchar code. */
 606           keycode = TSXKeysymToKeycode(display, keysym | 0xFE00);
 607         }
 608
 609         TRACE(keyboard,"VkKeyScan '%c'(%#lx, %lu): got keycode %#.2x\n",
 610                          cChar,keysym,keysym,keycode);
 611
 612         if (keycode)
 613           {
 614             for (index=-1, i=0; (i<8) && (index<0); i++) /* find shift state */
 615               if (TSXKeycodeToKeysym(display,keycode,i)==keysym) index=i;
 616             switch (index) {
 617             case -1 :
 618               WARN(keyboard,"Keysym %lx not found while parsing the keycode table\n",keysym); break;
 619             case 0 : break;
 620             case 1 : highbyte = 0x0100; break;
 621             case 2 : highbyte = 0X0600; break;
 622             default : ERR(keyboard,"index %d found by XKeycodeToKeysym. please report! \n",index);
 623             }
 624             /*
 625               index : 0     adds 0x0000
 626               index : 1     adds 0x0100 (shift)
 627               index : ?     adds 0x0200 (ctrl)
 628               index : 2     adds 0x0600 (ctrl+alt)
 629               index : ?     adds 0x0700 (ctrl+alt+shift (used?))
 630              */
 631           }
 632         TRACE(keyboard," ... returning %#.2x\n", keyc2vkey[keycode]+highbyte);
 633         return keyc2vkey[keycode]+highbyte;   /* keycode -> (keyc2vkey) vkey */
 634 }
 635
 636 /******************************************************************************
 637  *      GetKeyboardType16      (KEYBOARD.130)
 638  */
 639 INT16 WINAPI GetKeyboardType16(INT16 nTypeFlag)
 640 {
 641   TRACE(keyboard,"(%d)\n",nTypeFlag);
 642   switch(nTypeFlag)
 643     {
 644     case 0:      /* Keyboard type */
 645       return 4;    /* AT-101 */
 646       break;
 647     case 1:      /* Keyboard Subtype */
 648       return 0;    /* There are no defined subtypes */
 649       break;
 650     case 2:      /* Number of F-keys */
 651       return 12;   /* We're doing an 101 for now, so return 12 F-keys */
 652       break;
 653     default:
 654       WARN(keyboard, "Unknown type\n");
 655       return 0;    /* The book says 0 here, so 0 */
 656     }
 657 }
 658
 659 /******************************************************************************
 660  *      MapVirtualKey16      (KEYBOARD.131)
 661  *
 662  * MapVirtualKey translates keycodes from one format to another
 663  */
 664 UINT16 WINAPI MapVirtualKey16(UINT16 wCode, UINT16 wMapType)
 665 {
 666 #define returnMVK(value) { TRACE(keyboard,"returning 0x%x.\n",value); return value; }
 667
 668         TRACE(keyboard,"MapVirtualKey wCode=0x%x wMapType=%d ... \n",
 669                          wCode,wMapType);
 670         switch(wMapType) {
 671                 case 0: { /* vkey-code to scan-code */
 672                         /* let's do vkey -> keycode -> scan */
 673                         int keyc;
 674                         for (keyc=min_keycode; keyc<=max_keycode; keyc++)
 675                                 if ((keyc2vkey[keyc] & 0xFF) == wCode)
 676                                         returnMVK (keyc - min_keycode);
 677                         return 0; }
 678
 679                 case 1: /* scan-code to vkey-code */
 680                         /* let's do scan -> keycode -> vkey */
 681
 682                         returnMVK (keyc2vkey[(wCode & 0xFF) + min_keycode]);
 683
 684                 case 2: { /* vkey-code to unshifted ANSI code */
 685                         /* (was FIXME) : what does unshifted mean ? 'a' or 'A' ? */
 686                         /* My Windows returns 'A'. */
 687                         /* let's do vkey -> keycode -> (XLookupString) ansi char */
 688                         XKeyEvent e;
 689                         KeySym keysym;
 690                         char s[2];
 691                         e.display = display;
 692                         e.state = 0; /* unshifted */
 693                         e.keycode = MapVirtualKey16( wCode, 0);
 694                         if (!TSXLookupString(&e, s , 2 , &keysym, NULL))
 695                           returnMVK (*s);
 696
 697                         return 0;
 698                         }
 699                 default: /* reserved */
 700                         WARN(keyboard, "Unknown wMapType %d !\n",
 701                                 wMapType);
 702                         return 0;
 703         }
 704         return 0;
 705 }
 706
 707
 708 /****************************************************************************
 709  *      GetKBCodePage16   (KEYBOARD.132)
 710  */
 711 INT16 WINAPI GetKBCodePage16(void)
 712 {
 713     TRACE(keyboard,"(void)\n");
 714     return 850;
 715 }
 716
 717 /****************************************************************************
 718  *      GetKeyboardLayoutName16   (USER.477)
 719  */
 720 INT16 WINAPI GetKeyboardLayoutName16(LPSTR pwszKLID)
 721 {
 722         FIXME(keyboard,"always returns primary U.S. English layout\n");
 723         strcpy(pwszKLID,"00000409");
 724         return 1;
 725 }
 726
 727 /****************************************************************************
 728  *      GetKeyNameText16   (KEYBOARD.133)
 729  */
 730 INT16 WINAPI GetKeyNameText16(LONG lParam, LPSTR lpBuffer, INT16 nSize)
 731 {
 732   /*    int i; */
 733
 734         FIXME(keyboard,"(%ld,<ptr>,%d): stub\n",lParam,nSize);
 735
 736         /*
 737         lParam >>= 16;
 738         lParam &= 0xff;
 739
 740                 for (i = 0 ; i != KeyTableSize ; i++)
 741                 if (KeyTable[i].scancode == lParam)  {
 742                         lstrcpyn32A( lpBuffer, KeyTable[i].name, nSize );
 743                         return strlen(lpBuffer);
 744                 }
 745                 */
 746
 747         *lpBuffer = 0;
 748         return 0;
 749 }
 750
 751 /****************************************************************************
 752  *      ToAscii   (KEYBOARD.4)
 753
 754 The ToAscii function translates the specified virtual-key code and keyboard
 755 state to the corresponding Windows character or characters.
 756
 757 If the specified key is a dead key, the return value is negative. Otherwise,
 758 it is one of the following values:
 759 Value   Meaning
 760 0       The specified virtual key has no translation for the current state of the keyboard.
 761 1       One Windows character was copied to the buffer.
 762 2       Two characters were copied to the buffer. This usually happens when a
 763         dead-key character (accent or diacritic) stored in the keyboard layout cannot
 764         be composed with the specified virtual key to form a single character.
 765
 766 FIXME : should do the above (return 2 for non matching deadchar+char combinations)
 767
 768  */
 769 INT16 WINAPI ToAscii16(UINT16 virtKey,UINT16 scanCode, LPBYTE lpKeyState,
 770                        LPVOID lpChar, UINT16 flags)
 771 {
 772     XKeyEvent e;
 773     KeySym keysym;
 774     static XComposeStatus cs;
 775     INT32 ret;
 776     int keyc;
 777
 778     if (scanCode==0) {
 779         /* This happens when doing Alt+letter : a fake 'down arrow' key press
 780            event is generated by windows. Just ignore it. */
 781         TRACE(keyboard,"scanCode=0, doing nothing\n");
 782         return 0;
 783     }
 784     e.display = display;
 785     e.keycode = 0;
 786     e.state = 0;
 787     if (lpKeyState[VK_SHIFT] & 0x80)
 788         e.state |= ShiftMask;
 789     if (lpKeyState[VK_CAPITAL] & 0x01)
 790         e.state |= LockMask;
 791     if (lpKeyState[VK_CONTROL] & 0x80)
 792     {
 793         if (lpKeyState[VK_MENU] & 0x80)
 794             e.state |= AltGrMask;
 795         else
 796             e.state |= ControlMask;
 797     }
 798     if (lpKeyState[VK_NUMLOCK] & 0x01)
 799         e.state |= NumLockMask;
 800     TRACE(key, "(%04X, %04X) : faked state = %X\n",
 801                 virtKey, scanCode, e.state);
 802     /* We exit on the first keycode found, to speed up the thing. */
 803     for (keyc=min_keycode; (keyc<=max_keycode) && (!e.keycode) ; keyc++)
 804       { /* Find a keycode that could have generated this virtual key */
 805           if  ((keyc2vkey[keyc] & 0xFF) == virtKey)
 806           { /* We filter the extended bit, we don't know it */
 807               e.keycode = keyc; /* Store it temporarily */
 808               if ((EVENT_event_to_vkey(&e) & 0xFF) != virtKey) {
 809                   e.keycode = 0; /* Wrong one (ex: because of the NumLock
 810                          state), so set it to 0, we'll find another one */
 811               }
 812           }
 813       }
 814
 815     if ((virtKey>=VK_NUMPAD0) && (virtKey<=VK_NUMPAD9))
 816         e.keycode = TSXKeysymToKeycode(e.display, virtKey-VK_NUMPAD0+XK_KP_0);
 817
 818     if (virtKey==VK_DECIMAL)
 819         e.keycode = TSXKeysymToKeycode(e.display, XK_KP_Decimal);
 820
 821     if (!e.keycode)
 822       {
 823         WARN(keyboard,"Unknown virtual key %X !!! \n",virtKey);
 824         return virtKey; /* whatever */
 825       }
 826     else TRACE(keyboard,"Found keycode %d (0x%2X)\n",e.keycode,e.keycode);
 827
 828     ret = TSXLookupString(&e, (LPVOID)lpChar, 2, &keysym, &cs);
 829     if (ret == 0)
 830         {
 831         BYTE dead_char = 0;
 832
 833         ((char*)lpChar)[1] = '\0';
 834         switch (keysym)
 835             {
 836         /* symbolic ASCII is the same as defined in rfc1345 */
 837 #ifdef XK_dead_tilde
 838             case XK_dead_tilde :
 839 #endif
 840             case 0x1000FE7E : /* Xfree's XK_Dtilde */
 841                 dead_char = '~';        /* '? */
 842                 break;
 843 #ifdef XK_dead_acute
 844             case XK_dead_acute :
 845 #endif
 846             case 0x1000FE27 : /* Xfree's XK_Dacute_accent */
 847                 dead_char = 0xb4;       /* '' */
 848                 break;
 849 #ifdef XK_dead_circumflex
 850             case XK_dead_circumflex :
 851 #endif
 852             case 0x1000FE5E : /* Xfree's XK_Dcircumflex_accent */
 853                 dead_char = '^';        /* '> */
 854                 break;
 855 #ifdef XK_dead_grave
 856             case XK_dead_grave :
 857 #endif
 858             case 0x1000FE60 : /* Xfree's XK_Dgrave_accent */
 859                 dead_char = '`';        /* '! */
 860                 break;
 861 #ifdef XK_dead_diaeresis
 862             case XK_dead_diaeresis :
 863 #endif
 864             case 0x1000FE22 : /* Xfree's XK_Ddiaeresis */
 865                 dead_char = 0xa8;       /* ': */
 866                 break;
 867 #ifdef XK_dead_cedilla
 868             case XK_dead_cedilla :
 869                 dead_char = 0xb8;       /* ', */
 870                 break;
 871 #endif
 872 #ifdef XK_dead_macron
 873             case XK_dead_macron :
 874                 dead_char = '-';        /* 'm isn't defined on iso-8859-x */
 875                 break;
 876 #endif
 877 #ifdef XK_dead_breve
 878             case XK_dead_breve :
 879                 dead_char = 0xa2;       /* '( */
 880                 break;
 881 #endif
 882 #ifdef XK_dead_abovedot
 883             case XK_dead_abovedot :
 884                 dead_char = 0xff;       /* '. */
 885                 break;
 886 #endif
 887 #ifdef XK_dead_abovering
 888             case XK_dead_abovering :
 889                 dead_char = '0';        /* '0 isn't defined on iso-8859-x */
 890                 break;
 891 #endif
 892 #ifdef XK_dead_doubleacute
 893             case XK_dead_doubleacute :
 894                 dead_char = 0xbd;       /* '" */
 895                 break;
 896 #endif
 897 #ifdef XK_dead_caron
 898             case XK_dead_caron :
 899                 dead_char = 0xb7;       /* '< */
 900                 break;
 901 #endif
 902 #ifdef XK_dead_ogonek
 903             case XK_dead_ogonek :
 904                 dead_char = 0xb2;       /* '; */
 905                 break;
 906 #endif
 907 /* FIXME: I don't know this three.
 908             case XK_dead_iota :
 909                 dead_char = 'i';
 910                 break;
 911             case XK_dead_voiced_sound :
 912                 dead_char = 'v';
 913                 break;
 914             case XK_dead_semivoiced_sound :
 915                 dead_char = 's';
 916                 break;
 917 */
 918             }
 919         if (dead_char)
 920             {
 921             *(char*)lpChar = dead_char;
 922             ret = -1;
 923             }
 924         else
 925             {
 926             char        *ksname;
 927
 928             ksname = TSXKeysymToString(keysym);
 929             if (!ksname)
 930                 ksname = "No Name";
 931             if ((keysym >> 8) != 0xff)
 932                 {
 933                 ERR(keyboard, "Please report: no char for keysym %04lX (%s) :\n",
 934                         keysym, ksname);
 935                 ERR(keyboard, "(virtKey=%X,scanCode=%X,keycode=%X,state=%X)\n",
 936                         virtKey, scanCode, e.keycode, e.state);
 937                 }
 938             }
 939         }
 940     else {  /* ret = 1 */
 941         /* We have a special case to handle : Shift + arrow, shift + home, ...
 942            X returns a char for it, but Windows doesn't. Let's eat it. */
 943         if (!(lpKeyState[VK_NUMLOCK] & 0x01)  /* NumLock is off */
 944             && (lpKeyState[VK_SHIFT] & 0x80) /* Shift is pressed */
 945             && (keysym>=XK_KP_0) && (keysym<=XK_KP_9))
 946         {
 947             *(char*)lpChar = 0;
 948             ret = 0;
 949         }
 950     }
 951
 952     TRACE(key, "ToAscii about to return %d with char %x\n",
 953                 ret, *(char*)lpChar);
 954     return ret;
 955 }