Files
2ine-tms34010/native/kbdcalls.c
T
Ryan C. Gordon c2e43984c2 Fixed calling of KbdCharIn.
It was just seven kinds of wrong before. Now it's gone from a stub to
barely-usable.  :)
2018-01-04 00:27:59 -05:00

43 lines
1.2 KiB
C

#include "os2native16.h"
#include "kbdcalls.h"
APIRET16 KbdCharIn(PKBDKEYINFO pkbci, USHORT fWait, HKBD hkbd)
{
TRACE_NATIVE("KbdCharIn(%p, %u, %u)", pkbci, fWait, hkbd);
FIXME("this is just enough to survive 'press any key'");
memset(pkbci, '\0', sizeof (*pkbci));
pkbci->chChar = getchar();
return NO_ERROR;
} // kbdCharIn
static APIRET16 bridge16to32_KbdCharIn(uint8 *args)
{
LX_NATIVE_MODULE_16BIT_BRIDGE_ARG(HKBD, hkbd);
LX_NATIVE_MODULE_16BIT_BRIDGE_ARG(USHORT, fWait);
LX_NATIVE_MODULE_16BIT_BRIDGE_PTRARG(PKBDKEYINFO, pkbci);
return KbdCharIn(pkbci, fWait, hkbd);
} // bridge16to32_KbdCharIn
LX_NATIVE_MODULE_16BIT_SUPPORT()
LX_NATIVE_MODULE_16BIT_API(KbdCharIn)
LX_NATIVE_MODULE_16BIT_SUPPORT_END()
LX_NATIVE_MODULE_DEINIT({
LX_NATIVE_MODULE_DEINIT_16BIT_SUPPORT();
})
static int initKbdcalls(void)
{
LX_NATIVE_MODULE_INIT_16BIT_SUPPORT()
LX_NATIVE_INIT_16BIT_BRIDGE(KbdCharIn, 6)
LX_NATIVE_MODULE_INIT_16BIT_SUPPORT_END()
return 1;
} // initViocalls
LX_NATIVE_MODULE_INIT({ if (!initKbdcalls()) return NULL; })
LX_NATIVE_EXPORT16(KbdCharIn, 4)
LX_NATIVE_MODULE_INIT_END()
// end of kbdcalls.c ...