/* $Id: oslibkbd.cpp,v 1.1 2003-02-16 15:31:10 sandervl Exp $ */
/*
 * Keyboard helpers for OS/2
 *
 *
 * Copyright 2003 Sander van Leeuwen (sandervl@innotek.de)
 *
 *
 * Project Odin Software License can be found in LICENSE.TXT
 *
 */
#define  INCL_WIN
#define  INCL_PM
#define  INCL_WINSWITCHLIST
#define  INCL_WININPUT
#include <os2wrap.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

#include <dbglog.h>
#include <win32type.h>
#include <winconst.h>

#define DBG_LOCALLOG	DBG_oslibkbd
#include "dbglocal.h"

#ifdef __EMX__

USHORT _THUNK_FUNCTION (Win16GetScanState) ();
USHORT APIENTRY WinGetScanState (HWND hwnd, USHORT vk)
{
    return ((USHORT)
            (_THUNK_PASCAL_PROLOG (4+2);
             _THUNK_PASCAL_LONG ((ULONG) hwnd);
             _THUNK_PASCAL_SHORT (vk);
             _THUNK_PASCAL_CALL (Win16GetScanState)));
}

USHORT _THUNK_FUNCTION (Win16SetScanStateTable) ();
BOOL APIENTRY WinSetScanStateTable (HWND hwnd, PUCHAR pTable, BOOL bFlag)
{
    return ((BOOL)
            (_THUNK_PASCAL_PROLOG (4+4+4);
             _THUNK_PASCAL_LONG ((ULONG) hwnd);
             _THUNK_PASCAL_FLAT ((void *) pTable);
             _THUNK_PASCAL_LONG (bFlag);
             _THUNK_PASCAL_CALL (Win16SetScanStateTable)));
}

#else

SHORT APIENTRY16 WinGetScanState( HWND, USHORT );
BOOL  APIENTRY16 WinSetScanStateTable(HWND,unsigned char *,BOOL);

#endif

//******************************************************************************
//******************************************************************************
SHORT OSLibWinGetScanState(USHORT scan)
{
    SHORT state;
    SHORT sel;
    
    sel = RestoreOS2FS();
    state = WinGetScanState(HWND_DESKTOP, scan);
    SetFS(sel);

    return state;    
}
//******************************************************************************
//******************************************************************************
BOOL OSLibWinGetScanStateTable(unsigned char *PMScanState)
{
    SHORT ret;
    SHORT sel;
    
    sel = RestoreOS2FS();
    ret = WinSetScanStateTable(HWND_DESKTOP, PMScanState, FALSE);
    SetFS(sel);

    if(ret == FALSE) {
        dprintf(("WinSetScanStateTable failed with %x", WinGetLastError(0)));
    }
    return ret;    
}
//******************************************************************************
//******************************************************************************
LONG OSLibWinGetPhysKeyState(LONG scan)
{
    return WinGetPhysKeyState(HWND_DESKTOP,scan); 	
}
//******************************************************************************
//******************************************************************************
BOOL OSLibWinGetKeyboardStateTable(unsigned char *PMKeyState)
{
  return WinSetKeyboardStateTable(HWND_DESKTOP, (PBYTE)PMKeyState, FALSE );
}
//******************************************************************************
//******************************************************************************
BOOL OSLibWinSetKeyboardStateTable(unsigned char *PMKeyState)
{
  return WinSetKeyboardStateTable(HWND_DESKTOP, (PBYTE)PMKeyState, TRUE );
}
//******************************************************************************
//******************************************************************************
USHORT APIENTRY WinTranslateChar2( USHORT  /* Codepage (currently ignored) */
                                 , PUSHORT /* Ptr to char to translate     */
                                 , PULONG  /* Ptr to deadkey save info     */
                                 , USHORT  /* Translation option (TC_xxx)  */
                                 , PUSHORT /* Ptr to shift state (TCF_xxx) */
                                 );
//******************************************************************************
//******************************************************************************
USHORT OSLibWinTranslateChar(USHORT usScanCode, ULONG type, USHORT shiftstate)
{
  USHORT usResult;
  USHORT sel = GetFS();

  usResult = WinTranslateChar2(0, &usScanCode, NULL, type, &shiftstate);
  SetFS(sel);
  return usScanCode;
}
//******************************************************************************
//******************************************************************************