encounter
/
SDL
mirror of https://github.com/encounter/SDL.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

SDL_GetBasePath() fixes for OS/2

This commit is contained in:
Ozkan Sezer 2022-03-17 03:50:02 +03:00
parent b2db570ce9
commit dfbe1f7248
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/filesystem/os2/SDL_sysfilesystem.c
View File

@ -31,6 +31,7 @@
#define INCL_DOSFILEMGR #define INCL_DOSFILEMGR
#define INCL_DOSPROCESS #define INCL_DOSPROCESS
#define INCL_DOSMODULEMGR
#define INCL_DOSERRORS #define INCL_DOSERRORS
#include <os2.h> #include <os2.h>
@ -42,30 +43,31 @@ SDL_GetBasePath(void)
PPIB pib; PPIB pib;
ULONG ulRC = DosGetInfoBlocks(&tib, &pib); ULONG ulRC = DosGetInfoBlocks(&tib, &pib);
PCHAR pcEnd; PCHAR pcEnd;
ULONG cbResult;
CHAR acBuf[CCHMAXPATH]; CHAR acBuf[CCHMAXPATH];
if (ulRC != NO_ERROR) { if (ulRC != NO_ERROR) {
debug_os2("DosGetInfoBlocks() failed, rc = %u", ulRC); SDL_SetError("Can't get process information block (E%lu)", ulRC);
return NULL; return NULL;
} }
pcEnd = SDL_strrchr(pib->pib_pchcmd, '\\'); ulRC = DosQueryModuleName(pib->pib_hmte, sizeof(acBuf), acBuf);
if (ulRC != NO_ERROR) {
SDL_SetError("Can't query the module name (E%lu)", ulRC);
return NULL;
}
pcEnd = SDL_strrchr(acBuf, '\\');
if (pcEnd != NULL) if (pcEnd != NULL)
pcEnd++; pcEnd[1] = '\0';
else { else {
if (pib->pib_pchcmd[1] == ':') if (acBuf[1] == ':') /* e.g. "C:FOO" */
pcEnd = &pib->pib_pchcmd[2]; acBuf[2] = '\0';
else { else {
SDL_SetError("No path in pib->pib_pchcmd"); SDL_SetError("No path in module name");
return NULL; return NULL;
} }
} }
cbResult = pcEnd - pib->pib_pchcmd;
SDL_memcpy(acBuf, pib->pib_pchcmd, cbResult);
acBuf[cbResult] = '\0';
return OS2_SysToUTF8(acBuf); return OS2_SysToUTF8(acBuf);
} }