/*
|
Simple DirectMedia Layer
|
Copyright (C) 1997-2020 Sam Lantinga <slouken@libsdl.org>
|
|
This software is provided 'as-is', without any express or implied
|
warranty. In no event will the authors be held liable for any damages
|
arising from the use of this software.
|
|
Permission is granted to anyone to use this software for any purpose,
|
including commercial applications, and to alter it and redistribute it
|
freely, subject to the following restrictions:
|
|
1. The origin of this software must not be misrepresented; you must not
|
claim that you wrote the original software. If you use this software
|
in a product, an acknowledgment in the product documentation would be
|
appreciated but is not required.
|
2. Altered source versions must be plainly marked as such, and must not be
|
misrepresented as being the original software.
|
3. This notice may not be removed or altered from any source distribution.
|
*/
|
#include "../../SDL_internal.h"
|
|
#if SDL_TIMER_OS2
|
|
#include "SDL_timer.h"
|
#include "../../core/os2/SDL_os2.h"
|
|
#define INCL_DOSERRORS
|
#define INCL_DOSMISC
|
#define INCL_DOSPROFILE
|
#define INCL_DOSSEMAPHORES
|
#define INCL_DOSDATETIME
|
#define INCL_DOSPROCESS
|
#define INCL_DOSEXCEPTIONS
|
#include <os2.h>
|
|
/* No need to switch priorities in SDL_Delay() for OS/2 versions > Warp3 fp 42, */
|
/*#define _SWITCH_PRIORITY*/
|
|
typedef unsigned long long ULLONG;
|
|
static ULONG ulTmrFreq = 0;
|
static ULLONG ullTmrStart;
|
|
void
|
SDL_TicksInit(void)
|
{
|
ULONG ulRC;
|
|
ulRC = DosTmrQueryFreq(&ulTmrFreq);
|
if (ulRC != NO_ERROR) {
|
debug_os2("DosTmrQueryFreq() failed, rc = %u", ulRC);
|
} else {
|
ulRC = DosTmrQueryTime((PQWORD)&ullTmrStart);
|
if (ulRC == NO_ERROR)
|
return;
|
debug_os2("DosTmrQueryTime() failed, rc = %u", ulRC);
|
}
|
|
ulTmrFreq = 0; /* Error - use DosQuerySysInfo() for timer. */
|
DosQuerySysInfo(QSV_MS_COUNT, QSV_MS_COUNT, (PULONG)&ullTmrStart, sizeof(ULONG));
|
}
|
|
void
|
SDL_TicksQuit(void)
|
{
|
}
|
|
Uint32
|
SDL_GetTicks(void)
|
{
|
ULONG ulResult;
|
ULLONG ullTmrNow;
|
|
if (ulTmrFreq == 0) /* Was not initialized. */
|
SDL_TicksInit();
|
|
if (ulTmrFreq != 0) {
|
DosTmrQueryTime((PQWORD)&ullTmrNow);
|
ulResult = (ullTmrNow - ullTmrStart) * 1000 / ulTmrFreq;
|
} else {
|
DosQuerySysInfo(QSV_MS_COUNT, QSV_MS_COUNT, (PULONG)&ullTmrNow, sizeof(ULONG));
|
ulResult = (ULONG)ullTmrNow - (ULONG)ullTmrStart;
|
}
|
|
return ulResult;
|
}
|
|
Uint64
|
SDL_GetPerformanceCounter(void)
|
{
|
QWORD qwTmrNow;
|
|
if (ulTmrFreq == 0 || (DosTmrQueryTime(&qwTmrNow) != NO_ERROR))
|
return SDL_GetTicks();
|
|
return *((Uint64 *)&qwTmrNow);
|
}
|
|
Uint64
|
SDL_GetPerformanceFrequency(void)
|
{
|
return (ulTmrFreq == 0)? 1000 : (Uint64)ulTmrFreq;
|
}
|
|
void
|
SDL_Delay(Uint32 ms)
|
{
|
HTIMER hTimer = NULLHANDLE;
|
ULONG ulRC;
|
#ifdef _SWITCH_PRIORITY
|
PPIB pib;
|
PTIB tib;
|
BOOL fSetPriority = ms < 50;
|
ULONG ulSavePriority;
|
ULONG ulNesting;
|
#endif
|
HEV hevTimer;
|
|
if (ms == 0) {
|
DosSleep(0);
|
return;
|
}
|
|
ulRC = DosCreateEventSem(NULL, &hevTimer, DC_SEM_SHARED, FALSE);
|
if (ulRC != NO_ERROR) {
|
debug_os2("DosAsyncTimer() failed, rc = %u", ulRC);
|
DosSleep(ms);
|
return;
|
}
|
|
#ifdef _SWITCH_PRIORITY
|
if (fSetPriority) {
|
if (DosGetInfoBlocks(&tib, &pib) != NO_ERROR)
|
fSetPriority = FALSE;
|
else {
|
ulSavePriority = tib->tib_ptib2->tib2_ulpri;
|
if (((ulSavePriority & 0xFF00) == 0x0300) || /* already have high pr. */
|
(DosEnterMustComplete( &ulNesting) != NO_ERROR))
|
fSetPriority = FALSE;
|
else {
|
DosSetPriority(PRTYS_THREAD, PRTYC_TIMECRITICAL, 0, 0);
|
}
|
}
|
}
|
#endif
|
|
DosResetEventSem(hevTimer, &ulRC);
|
ulRC = DosAsyncTimer(ms, (HSEM)hevTimer, &hTimer);
|
|
#ifdef _SWITCH_PRIORITY
|
if (fSetPriority) {
|
if (DosSetPriority(PRTYS_THREAD, (ulSavePriority >> 8) & 0xFF, 0, 0) == NO_ERROR)
|
DosSetPriority(PRTYS_THREAD, 0, ulSavePriority & 0xFF, 0);
|
DosExitMustComplete(&ulNesting);
|
}
|
#endif
|
|
if (ulRC != NO_ERROR) {
|
debug_os2("DosAsyncTimer() failed, rc = %u", ulRC);
|
} else {
|
DosWaitEventSem(hevTimer, SEM_INDEFINITE_WAIT);
|
}
|
|
if (ulRC != NO_ERROR)
|
DosSleep(ms);
|
|
DosCloseEventSem(hevTimer);
|
}
|
|
#endif /* SDL_TIMER_OS2 */
|
|
/* vi: set ts=4 sw=4 expandtab: */
|
