os2: add port files for SDL2-2.0.4 from Andrey Vasilkin

only geniconv/iconv.h (was from LGPL libiconv) is replaced with a generic minimal iconv.h based on public knowledge.
2025-05-28 07:29:09 +00:00 · 2020-10-14 23:01:00 +03:00 · 2020-10-14 23:01:00 +03:00 · 74cfb81dbb
commit 74cfb81dbb
parent 93e1449764
34 changed files with 6564 additions and 0 deletions
--- a/src/timer/os2/SDL_systimer.c
+++ b/src/timer/os2/SDL_systimer.c
@ -0,0 +1,189 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2016 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( "DosTmrQueryFreq() failed, rc = %u", ulRC );
+  }
+  else
+  {
+    ulRC = DosTmrQueryTime( (PQWORD)&ullTmrStart );
+    if ( ulRC == NO_ERROR )
+      return;
+
+    debug( "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( "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( "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: */