/*

* OS/2 support routines for PhysicsFS.

*

* Please see the file LICENSE.txt in the source's root directory.

*

* This file written by Ryan C. Gordon.

*/

#define __PHYSICSFS_INTERNAL__

#include "physfs_platforms.h"

#ifdef PHYSFS_PLATFORM_OS2

#define INCL_DOSSEMAPHORES

#define INCL_DOSDATETIME

#define INCL_DOSFILEMGR

#define INCL_DOSMODULEMGR

#define INCL_DOSERRORS

#define INCL_DOSPROCESS

#define INCL_DOSDEVICES

#define INCL_DOSDEVIOCTL

#define INCL_DOSMISC

#include <os2.h>

#include <errno.h>

#include <time.h>

#include <ctype.h>

#include "physfs_internal.h"

static HMODULE uconvdll = 0;

static UconvObject uconv = 0;

static int (_System *pUniCreateUconvObject)(UniChar *, UconvObject *) = NULL;

static int (_System *pUniFreeUconvObject)(UconvObject *) = NULL;

static int (_System *pUniUconvToUcs)(UconvObject,void **,size_t *, UniChar**, size_t *, size_t *) = NULL;

static int (_System *pUniUconvFromUcs)(UconvObject,UniChar **,size_t *,void **,size_t *,size_t *) = NULL;

static PHYSFS_ErrorCode errcodeFromAPIRET(const APIRET rc)

{

switch (rc)

{

case NO_ERROR: return PHYSFS_ERR_OK; /* not an error. */

case ERROR_INTERRUPT: return PHYSFS_ERR_OK; /* not an error. */

case ERROR_TIMEOUT: return PHYSFS_ERR_OK; /* not an error. */

case ERROR_FILE_NOT_FOUND: return PHYSFS_ERR_NOT_FOUND;

case ERROR_PATH_NOT_FOUND: return PHYSFS_ERR_NOT_FOUND;

case ERROR_ACCESS_DENIED: return PHYSFS_ERR_PERMISSION;

case ERROR_NOT_DOS_DISK: return PHYSFS_ERR_NOT_FOUND;

case ERROR_SHARING_VIOLATION: return PHYSFS_ERR_PERMISSION;

case ERROR_CANNOT_MAKE: return PHYSFS_ERR_IO; /* maybe this is wrong? */

case ERROR_DEVICE_IN_USE: return PHYSFS_ERR_BUSY;

case ERROR_OPEN_FAILED: return PHYSFS_ERR_IO; /* maybe this is wrong? */

case ERROR_DISK_FULL: return PHYSFS_ERR_NO_SPACE;

case ERROR_PIPE_BUSY: return PHYSFS_ERR_BUSY;

case ERROR_SHARING_BUFFER_EXCEEDED: return PHYSFS_ERR_IO;

case ERROR_FILENAME_EXCED_RANGE: return PHYSFS_ERR_BAD_FILENAME;

case ERROR_META_EXPANSION_TOO_LONG: return PHYSFS_ERR_BAD_FILENAME;

case ERROR_TOO_MANY_HANDLES: return PHYSFS_ERR_IO;

case ERROR_TOO_MANY_OPEN_FILES: return PHYSFS_ERR_IO;

case ERROR_NO_MORE_SEARCH_HANDLES: return PHYSFS_ERR_IO;

case ERROR_SEEK_ON_DEVICE: return PHYSFS_ERR_IO;

case ERROR_NEGATIVE_SEEK: return PHYSFS_ERR_INVALID_ARGUMENT;

case ERROR_WRITE_PROTECT: return PHYSFS_ERR_PERMISSION;

case ERROR_WRITE_FAULT: return PHYSFS_ERR_IO;

case ERROR_UNCERTAIN_MEDIA: return PHYSFS_ERR_IO;

case ERROR_PROTECTION_VIOLATION: return PHYSFS_ERR_IO;

case ERROR_BROKEN_PIPE: return PHYSFS_ERR_IO;

/* !!! FIXME: some of these might be PHYSFS_ERR_BAD_FILENAME, etc */

case ERROR_LOCK_VIOLATION:

case ERROR_GEN_FAILURE:

case ERROR_INVALID_PARAMETER:

case ERROR_INVALID_NAME:

case ERROR_INVALID_DRIVE:

case ERROR_INVALID_HANDLE:

case ERROR_INVALID_FUNCTION:

case ERROR_INVALID_LEVEL:

case ERROR_INVALID_CATEGORY:

case ERROR_DUPLICATE_NAME:

case ERROR_BUFFER_OVERFLOW:

case ERROR_BAD_LENGTH:

case ERROR_BAD_DRIVER_LEVEL:

case ERROR_DIRECT_ACCESS_HANDLE:

case ERROR_NOT_OWNER:

return PHYSFS_ERR_OS_ERROR;

default: break;

} /* switch */

return PHYSFS_ERR_OTHER_ERROR;

} /* errcodeFromAPIRET */

const size_t len = strlen(utf8str) + 1;

const size_t uc2buflen = len * sizeof (UniChar);

UniChar *uc2ptr = (UniChar *) __PHYSFS_smallAlloc(uc2buflen);

UniChar *uc2str = uc2ptr;

char *cpptr = NULL;

char *cpstr = NULL;

size_t subs = 0;

size_t unilen;

BAIL_IF(!uc2str, PHYSFS_ERR_OUT_OF_MEMORY, NULL);

PHYSFS_utf8ToUcs2(utf8str, (PHYSFS_uint16 *) uc2str, uc2buflen);

for (unilen = 0; uc2str[unilen]; unilen++) { /* spin */ }

unilen++; /* null terminator. */

if (!uconvdll)

{

/* There's really not much we can do on older OS/2s except pray this

is latin1-compatible. */

size_t i;

cpptr = (char *) allocator.Malloc(unilen);

cpstr = cpptr;

GOTO_IF(!cpptr, PHYSFS_ERR_OUT_OF_MEMORY, failed);

for (i = 0; i < unilen; i++)

{

const UniChar ch = uc2str[i];

GOTO_IF(ch > 0xFF, PHYSFS_ERR_BAD_FILENAME, failed);

cpptr[i] = (char) ((unsigned char) ch);

} /* for */

__PHYSFS_smallFree(uc2ptr);

return cpstr;

} /* if */

else

{

int rc;

cpptr = (char *) allocator.Malloc(cplen);

GOTO_IF(!cpptr, PHYSFS_ERR_OUT_OF_MEMORY, failed);

cpstr = cpptr;

GOTO_IF(rc != ULS_SUCCESS, PHYSFS_ERR_BAD_FILENAME, failed);

GOTO_IF(subs > 0, PHYSFS_ERR_BAD_FILENAME, failed);

assert(unilen == 0);

failed:

__PHYSFS_smallFree(uc2ptr);

allocator.Free(cpptr);

return NULL;

} /* cvtUtf8ToCodepage */

static char *cvtCodepageToUtf8(const char *cpstr)

{

const size_t len = strlen(cpstr) + 1;

char *retvalbuf = (char *) allocator.Malloc(len * 4);

BAIL_IF(!retvalbuf, PHYSFS_ERR_OUT_OF_MEMORY, NULL);

if (!uconvdll)

{

/* There's really not much we can do on older OS/2s except pray this

is latin1-compatible. */

retval = retvalbuf;

PHYSFS_utf8FromLatin1(cpstr, retval, len * 4);

} /* if */

else

{

int rc;

size_t cplen = len;

size_t unilen = len;

size_t subs = 0;

UniChar *uc2ptr = __PHYSFS_smallAlloc(len * sizeof (UniChar));

UniChar *uc2str = uc2ptr;

BAIL_IF(!uc2ptr, PHYSFS_ERR_OUT_OF_MEMORY, NULL);

rc = pUniUconvToUcs(uconv, (void **) &cpstr, &cplen, &uc2str, &unilen, &subs);

GOTO_IF(rc != ULS_SUCCESS, PHYSFS_ERR_BAD_FILENAME, done);

GOTO_IF(subs > 0, PHYSFS_ERR_BAD_FILENAME, done);

return retval;

} /* cvtCodepageToUtf8 */

/* (be gentle, this function isn't very robust.) */

char *fname = buf + 3; /* point to first element. */

char *ptr = strchr(fname, '\\'); /* find end of first element. */

buf[0] = toupper(buf[0]); /* capitalize drive letter. */

/*

* Go through each path element, and enumerate its parent dir until

* a case-insensitive match is found. If one is (and it SHOULD be)

* then overwrite the original element with the correct case.

* If there's an error, or the path has vanished for some reason, it

* won't hurt to have the original case, so we just keep going.

*/

{

char spec[CCHMAXPATH];

FILEFINDBUF3 fb;

HDIR hdir = HDIR_CREATE;

ULONG count = 1;

APIRET rc;

*(fname - 1) = '\0'; /* isolate parent dir string. */

strcpy(spec, buf); /* copy isolated parent dir... */

strcat(spec, "\\*.*"); /* ...and add wildcard search spec. */

if (ptr != NULL) /* isolate element to find (fname is the start). */

*ptr = '\0';

rc = DosFindFirst((unsigned char *) spec, &hdir, FILE_DIRECTORY,

&fb, sizeof (fb), &count, FIL_STANDARD);

if (rc == NO_ERROR)

{

while (count == 1) /* while still entries to enumerate... */

{

int cmp;

char *utf8 = cvtCodepageToUtf8(fb.achName);

else

{

allocator.Free(utf8);

} /* else */

if (cmp == 0)

{

strcpy(fname, fb.achName);

break; /* there it is. Overwrite and stop searching. */

} /* if */

DosFindNext(hdir, &fb, sizeof (fb), &count);

} /* while */

DosFindClose(hdir);

} /* if */

*(fname - 1) = '\\'; /* unisolate parent dir. */

fname = ptr; /* point to next element. */

if (ptr != NULL)

{

*ptr = '\\'; /* unisolate element. */

ptr = strchr(++fname, '\\'); /* find next element. */

} /* if */

} /* while */

return retval;

} /* cvtPathToCorrectCase */

static void prepUnicodeSupport(void)

{

/* really old OS/2 might not have Unicode support _at all_, so load

the system library and do without if it doesn't exist. */

char buf[CCHMAXPATH];

UniChar defstr[] = { 0 };

if (DosLoadModule(buf, sizeof (buf) - 1, "uconv", &uconvdll) == NO_ERROR)

{

#define LOAD(x) (DosQueryProcAddr(uconvdll,0,#x,(PFN*)&p##x)==NO_ERROR)

ok = LOAD(UniCreateUconvObject) &&

LOAD(UniFreeUconvObject) &&

LOAD(UniUconvToUcs) &&

LOAD(UniUconvFromUcs);

#undef LOAD

} /* else */

if (!ok || (pUniCreateUconvObject(defstr, &uconv) != ULS_SUCCESS))

{

/* oh well, live without it. */

if (uconvdll)

{

if (uconv)

pUniFreeUconvObject(uconv);

DosFreeModule(uconvdll);

uconvdll = 0;

} /* if */

} /* if */

} /* prepUnicodeSupport */

int __PHYSFS_platformInit(void)

{

prepUnicodeSupport();

return 1; /* ready to go! */

} /* __PHYSFS_platformInit */

if (uconvdll)

{

pUniFreeUconvObject(uconv);

uconv = 0;

DosFreeModule(uconvdll);

uconvdll = 0;

} /* if */

} /* __PHYSFS_platformDeinit */

{

int rc;

char buf[20];

DosError(FERR_DISABLEHARDERR | FERR_DISABLEEXCEPTION);

rc = DosQueryFSInfo(drive + 1, FSIL_VOLSER, buf, sizeof (buf));

DosError(FERR_ENABLEHARDERR | FERR_ENABLEEXCEPTION);

return (rc == NO_ERROR);

} /* is_cdrom_inserted */

/* looks like "CD01" in ASCII (littleendian)...used for an ioctl. */

#define CD01 0x31304443

{

PHYSFS_uint32 param, data;

ULONG ul1, ul2;

APIRET rc;

HFILE hfile = NULLHANDLE;

drivename[0] = 'A' + drive;

rc = DosOpen(drivename, &hfile, &ul1, 0, 0,

OPEN_ACTION_OPEN_IF_EXISTS | OPEN_ACTION_FAIL_IF_NEW,

OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR |

OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYNONE, NULL);

if (rc != NO_ERROR)

return 0;

data = 0;

param = PHYSFS_swapULE32(CD01);

ul1 = ul2 = sizeof (PHYSFS_uint32);

rc = DosDevIOCtl(hfile, IOCTL_CDROMDISK, CDROMDISK_GETDRIVER,

&param, sizeof (param), &ul1, &data, sizeof (data), &ul2);

DosClose(hfile);

return ((rc == NO_ERROR) && (PHYSFS_swapULE32(data) == CD01));

void __PHYSFS_platformDetectAvailableCDs(PHYSFS_StringCallback cb, void *data)

{

ULONG dummy = 0;

ULONG drivemap = 0;

ULONG i, bit;

const APIRET rc = DosQueryCurrentDisk(&dummy, &drivemap);

for (i = 0, bit = 1; i < 26; i++, bit <<= 1)

{

if (drivemap & bit) /* this logical drive exists. */

{

{

char drive[4] = "x:\\";

drive[0] = ('A' + i);

cb(data, drive);

} /* if */

} /* if */

} /* for */

} /* __PHYSFS_platformDetectAvailableCDs */

char *__PHYSFS_platformCalcBaseDir(const char *argv0)

{

char *retval = NULL;

char buf[CCHMAXPATH];

APIRET rc;

PTIB ptib;

PPIB ppib;

PHYSFS_sint32 len;

retval = cvtCodepageToUtf8(buf);

BAIL_IF_ERRPASS(!retval, NULL);

break;

} /* if */

} /* for */

} /* __PHYSFS_platformCalcBaseDir */

char *__PHYSFS_platformCalcPrefDir(const char *org, const char *app)

{

PHYSFS_EnumerateCallback callback,

const char *origdir, void *callbackdata)

char *utf8 = (char *) __PHYSFS_smallAlloc(utf8len + 5);

char *cpspec = NULL;

FILEFINDBUF3 fb;

HDIR hdir = HDIR_CREATE;

ULONG count = 1;

APIRET rc;

strcpy(utf8, dirname);

if (utf8[utf8len - 1] != '\\')

strcpy(utf8 + utf8len, "\\*.*");

else

strcpy(utf8 + utf8len, "*.*");

cpspec = cvtUtf8ToCodepage(utf8);

__PHYSFS_smallFree(utf8);

FILE_DIRECTORY | FILE_ARCHIVED |

FILE_READONLY | FILE_HIDDEN | FILE_SYSTEM,

&fb, sizeof (fb), &count, FIL_STANDARD);

while (count == 1)

{

if ((strcmp(fb.achName, ".") != 0) && (strcmp(fb.achName, "..") != 0))

{

utf8 = cvtCodepageToUtf8(fb.achName);

break;

DosFindNext(hdir, &fb, sizeof (fb), &count);

} /* while */

DosFindClose(hdir);

return retval;

} /* __PHYSFS_platformEnumerate */

char *__PHYSFS_platformCurrentDir(void)

{

char *retval;

char *cpstr;

char *utf8;

ULONG currentDisk;

ULONG dummy;

ULONG pathSize = 0;

APIRET rc;

BYTE byte;

rc = DosQueryCurrentDisk(&currentDisk, &dummy);

/* The first call just tells us how much space we need for the string. */

rc = DosQueryCurrentDir(currentDisk, &byte, &pathSize);

pathSize++; /* Add space for null terminator. */

cpstr = (char *) __PHYSFS_smallAlloc(pathSize);

BAIL_IF(cpstr == NULL, PHYSFS_ERR_OUT_OF_MEMORY, NULL);

/* Actually get the string this time. */

if (rc != NO_ERROR)

{

} /* if */

utf8 = cvtCodepageToUtf8(cpstr);

__PHYSFS_smallFree(cpstr);

BAIL_IF_ERRPASS(utf8 == NULL, NULL);

/* +4 for "x:\\" drive selector and null terminator. */

retval = (char *) allocator.Malloc(strlen(utf8) + 4);

if (retval == NULL)

{

allocator.Free(utf8);

BAIL(PHYSFS_ERR_OUT_OF_MEMORY, NULL);

} /* if */

retval[0] = ('A' + (currentDisk - 1));

retval[1] = ':';

retval[2] = '\\';

return retval;

APIRET rc;

char *cpstr = cvtUtf8ToCodepage(filename);

BAIL_IF_ERRPASS(!cpstr, 0);

rc = DosCreateDir((unsigned char *) cpstr, NULL);

allocator.Free(cpstr);

return 1;

} /* __PHYSFS_platformMkDir */

char *cpfname = cvtUtf8ToCodepage(filename);

ULONG action = 0;

rc = DosOpen(cpfname, &hfile, &action, 0, FILE_NORMAL, flags, mode, NULL);

allocator.Free(cpfname);

BAIL_IF(rc != NO_ERROR, errcodeFromAPIRET(rc), 0);

return hfile;

} /* openFile */

{

/*

* DosQueryFileInfo() will fail if we try to get a file length, etc.

*/

return (void *) openFile(filename,

OPEN_ACTION_OPEN_IF_EXISTS | OPEN_ACTION_FAIL_IF_NEW,

OPEN_FLAGS_FAIL_ON_ERROR | OPEN_FLAGS_NO_LOCALITY |

OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYWRITE |

OPEN_ACCESS_READONLY);

} /* __PHYSFS_platformOpenRead */

void *__PHYSFS_platformOpenWrite(const char *filename)

{

return (void *) openFile(filename,

OPEN_ACTION_REPLACE_IF_EXISTS |

OPEN_ACTION_CREATE_IF_NEW,

OPEN_FLAGS_FAIL_ON_ERROR | OPEN_FLAGS_NO_LOCALITY |

OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYWRITE);

} /* __PHYSFS_platformOpenWrite */

{

APIRET rc;

ULONG dummy = 0;

HFILE hfile;

/*

* File must be opened SHARE_DENYWRITE and ACCESS_READWRITE, otherwise

* DosQueryFileInfo() will fail if we try to get a file length, etc.

*/

hfile = openFile(filename,

OPEN_ACTION_OPEN_IF_EXISTS | OPEN_ACTION_CREATE_IF_NEW,

OPEN_FLAGS_FAIL_ON_ERROR | OPEN_FLAGS_NO_LOCALITY |

OPEN_FLAGS_NOINHERIT | OPEN_SHARE_DENYWRITE |

OPEN_ACCESS_READWRITE);

BAIL_IF_ERRPASS(!hfile, NULL);

rc = DosSetFilePtr(hfile, 0, FILE_END, &dummy);

if (rc != NO_ERROR)

{

DosClose(hfile);

} /* if */

return ((void *) hfile);

} /* __PHYSFS_platformOpenAppend */

PHYSFS_sint64 __PHYSFS_platformRead(void *opaque, void *buf, PHYSFS_uint64 len)

{

ULONG br = 0;

APIRET rc;

return (PHYSFS_sint64) br;

} /* __PHYSFS_platformRead */

PHYSFS_sint64 __PHYSFS_platformWrite(void *opaque, const void *buf,

PHYSFS_uint64 len)

{

ULONG bw = 0;

APIRET rc;

return (PHYSFS_sint64) bw;

} /* __PHYSFS_platformWrite */

int __PHYSFS_platformSeek(void *opaque, PHYSFS_uint64 pos)

{

ULONG dummy;

HFILE hfile = (HFILE) opaque;

LONG dist = (LONG) pos;

APIRET rc;

/* hooray for 32-bit filesystem limits! :) */

return 1;

} /* __PHYSFS_platformSeek */

PHYSFS_sint64 __PHYSFS_platformTell(void *opaque)

{

ULONG pos;

HFILE hfile = (HFILE) opaque;

const APIRET rc = DosSetFilePtr(hfile, 0, FILE_CURRENT, &pos);

return ((PHYSFS_sint64) pos);

} /* __PHYSFS_platformTell */

PHYSFS_sint64 __PHYSFS_platformFileLength(void *opaque)

{

FILESTATUS3 fs;

HFILE hfile = (HFILE) opaque;

const APIRET rc = DosQueryFileInfo(hfile, FIL_STANDARD, &fs, sizeof (fs));

return ((PHYSFS_sint64) fs.cbFile);

} /* __PHYSFS_platformFileLength */

int __PHYSFS_platformFlush(void *opaque)

{

const APIRET rc = DosResetBuffer((HFILE) opaque);

return 1;

} /* __PHYSFS_platformFlush */

void __PHYSFS_platformClose(void *opaque)

{

DosClose((HFILE) opaque); /* ignore errors. You should have flushed! */

} /* __PHYSFS_platformClose */

APIRET rc;

int retval = 0;

BAIL_IF_ERRPASS(!cppath, 0);

rc = DosQueryPathInfo(cppath, FIL_STANDARD, &fs, sizeof (fs));

GOTO_IF(rc != NO_ERROR, errcodeFromAPIRET(rc), done);