/* * OS/2 support routines for PhysicsFS. * * Please see the file LICENSE in the source's root directory. * * This file written by Ryan C. Gordon. */ #if HAVE_CONFIG_H # include #endif #if (defined 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 #include #include #include #include #include #include #define __PHYSICSFS_INTERNAL__ #include "physfs_internal.h" const char *__PHYSFS_platformDirSeparator = "\\"; static APIRET os2err(APIRET retval) { const char *err = NULL; /* * The ones that say "OS/2 reported" are more for PhysicsFS developer * debugging. We give more generic messages for ones that are likely to * fall through to an application. */ switch (retval) { case NO_ERROR: /* Don't set the PhysicsFS error message for these... */ case ERROR_INTERRUPT: case ERROR_TIMEOUT: break; case ERROR_NOT_ENOUGH_MEMORY: err = ERR_OUT_OF_MEMORY; break; case ERROR_FILE_NOT_FOUND: err = "File not found"; break; case ERROR_PATH_NOT_FOUND: err = "Path not found"; break; case ERROR_ACCESS_DENIED: err = "Access denied"; break; case ERROR_NOT_DOS_DISK: err = "Not a DOS disk"; break; case ERROR_SHARING_VIOLATION: err = "Sharing violation"; break; case ERROR_CANNOT_MAKE: err = "Cannot make"; break; case ERROR_DEVICE_IN_USE: err = "Device already in use"; break; case ERROR_OPEN_FAILED: err = "Open failed"; break; case ERROR_DISK_FULL: err = "Disk is full"; break; case ERROR_PIPE_BUSY: err = "Pipe busy"; break; case ERROR_SHARING_BUFFER_EXCEEDED: err = "Sharing buffer exceeded"; break; case ERROR_FILENAME_EXCED_RANGE: case ERROR_META_EXPANSION_TOO_LONG: err = "Filename too big"; break; case ERROR_TOO_MANY_HANDLES: case ERROR_TOO_MANY_OPEN_FILES: case ERROR_NO_MORE_SEARCH_HANDLES: err = "Too many open handles"; break; case ERROR_SEEK_ON_DEVICE: err = "Seek error"; /* Is that what this error means? */ break; case ERROR_NEGATIVE_SEEK: err = "Seek past start of file"; break; case ERROR_CURRENT_DIRECTORY: err = "Trying to delete current working directory"; break; case ERROR_WRITE_PROTECT: err = "Write protect error"; break; case ERROR_WRITE_FAULT: err = "Write fault"; break; case ERROR_LOCK_VIOLATION: err = "Lock violation"; break; case ERROR_GEN_FAILURE: err = "General failure"; break; case ERROR_UNCERTAIN_MEDIA: err = "Uncertain media"; break; case ERROR_PROTECTION_VIOLATION: err = "Protection violation"; break; 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: err = "OS/2 reported an invalid parameter to an API function"; break; case ERROR_NO_VOLUME_LABEL: err = "OS/2 reported no volume label"; break; case ERROR_NO_MORE_FILES: err = "OS/2 reported no more files"; break; case ERROR_MONITORS_NOT_SUPPORTED: err = "OS/2 reported monitors not supported"; break; case ERROR_BROKEN_PIPE: err = "OS/2 reported a broken pipe"; break; case ERROR_MORE_DATA: err = "OS/2 reported \"more data\" (?)"; break; case ERROR_EAS_DIDNT_FIT: err = "OS/2 reported Extended Attributes didn't fit"; break; case ERROR_INVALID_EA_NAME: err = "OS/2 reported an invalid Extended Attribute name"; break; case ERROR_EA_LIST_INCONSISTENT: err = "OS/2 reported an inconsistent Extended Attribute list"; break; case ERROR_SEM_OWNER_DIED: err = "OS/2 reported that semaphore owner died"; break; case ERROR_TOO_MANY_SEM_REQUESTS: err = "OS/2 reported too many semaphore requests"; break; case ERROR_SEM_BUSY: err = "OS/2 reported a blocked semaphore"; break; case ERROR_NOT_OWNER: err = "OS/2 reported that we used a resource we don't own."; break; default: err = "OS/2 reported back with unrecognized error code"; break; } /* switch */ if (err != NULL) __PHYSFS_setError(err); return(retval); } /* os2err */ static char *baseDir = NULL; int __PHYSFS_platformInit(void) { char buf[CCHMAXPATH]; APIRET rc; PTIB ptib; PPIB ppib; PHYSFS_sint32 len; assert(baseDir == NULL); BAIL_IF_MACRO(os2err(DosGetInfoBlocks(&ptib, &ppib)) != NO_ERROR, NULL, 0); rc = DosQueryModuleName(ppib->pib_hmte, sizeof (buf), (PCHAR) buf); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, 0); /* chop off filename, leave path. */ for (len = strlen(buf) - 1; len >= 0; len--) { if (buf[len] == '\\') { buf[len] = '\0'; break; } /* if */ } /* for */ assert(len > 0); /* should have been a "x:\\" on the front on string. */ baseDir = (char *) malloc(len + 1); BAIL_IF_MACRO(baseDir == NULL, ERR_OUT_OF_MEMORY, 0); strcpy(baseDir, buf); return(1); /* success. */ } /* __PHYSFS_platformInit */ int __PHYSFS_platformDeinit(void) { assert(baseDir != NULL); free(baseDir); baseDir = NULL; return(1); /* success. */ } /* __PHYSFS_platformDeinit */ static int disc_is_inserted(ULONG drive) { 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 static int is_cdrom_drive(ULONG drive) { PHYSFS_uint32 param, data; ULONG ul1, ul2; APIRET rc; HFILE hfile = NULLHANDLE; char drivename[3] = { 'A' + drive, ':', '\0' }; 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); BAIL_IF_MACRO(rc != NO_ERROR, NULL, 0); data = 0; param = PHYSFS_swapULE32(CD01); ul1 = ul2 = sizeof (PHYSFS_uint32); rc = DosDevIOCtl(hfile, IOCTL_CDROMDISK, CDROMDISK_GETDRIVER, ¶m, sizeof (param), &ul1, &data, sizeof (data), &ul2); DosClose(hfile); return((rc == NO_ERROR) && (PHYSFS_swapULE32(data) == CD01)); } /* is_cdrom_drive */ char **__PHYSFS_platformDetectAvailableCDs(void) { ULONG dummy; ULONG drivemap; ULONG i, bit; APIRET rc; char **retval; PHYSFS_uint32 cd_count = 1; /* we count the NULL entry. */ retval = (char **) malloc(sizeof (char *)); BAIL_IF_MACRO(retval == NULL, ERR_OUT_OF_MEMORY, NULL); *retval = NULL; rc = DosQueryCurrentDisk(&dummy, &drivemap); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, retval); /* !!! FIXME: the a, b, and c drives are almost certainly NOT cdroms... */ for (i = 0, bit = 1; i < 26; i++, bit <<= 1) { if (drivemap & bit) /* this logical drive exists. */ { if ((is_cdrom_drive(i)) && (disc_is_inserted(i))) { char **tmp = realloc(retval, sizeof (char *) * (cd_count + 1)); if (tmp) { char *str = (char *) malloc(4); retval = tmp; retval[cd_count - 1] = str; if (str) { str[0] = ('A' + i); str[1] = ':'; str[2] = '\\'; str[3] = '\0'; cd_count++; } /* if */ } /* if */ } /* if */ } /* if */ } /* for */ retval[cd_count - 1] = NULL; return(retval); } /* __PHYSFS_platformDetectAvailableCDs */ char *__PHYSFS_platformCalcBaseDir(const char *argv0) { char *retval = (char *) malloc(strlen(baseDir) + 1); BAIL_IF_MACRO(retval == NULL, ERR_OUT_OF_MEMORY, NULL); strcpy(retval, baseDir); /* calculated at init time. */ return(retval); } /* __PHYSFS_platformCalcBaseDir */ char *__PHYSFS_platformGetUserName(void) { return(NULL); /* (*shrug*) */ } /* __PHYSFS_platformGetUserName */ char *__PHYSFS_platformGetUserDir(void) { return(__PHYSFS_platformCalcBaseDir(NULL)); } /* __PHYSFS_platformGetUserDir */ int __PHYSFS_platformStricmp(const char *x, const char *y) { int ux, uy; do { ux = toupper((int) *x); uy = toupper((int) *y); if (ux > uy) return(1); else if (ux < uy) return(-1); x++; y++; } while ((ux) && (uy)); return(0); } /* __PHYSFS_platformStricmp */ int __PHYSFS_platformExists(const char *fname) { FILESTATUS3 fs; APIRET rc = DosQueryPathInfo(fname, FIL_STANDARD, &fs, sizeof (fs)); return(os2err(rc) == NO_ERROR); } /* __PHYSFS_platformExists */ int __PHYSFS_platformIsSymLink(const char *fname) { return(0); /* no symlinks in OS/2. */ } /* __PHYSFS_platformIsSymlink */ int __PHYSFS_platformIsDirectory(const char *fname) { FILESTATUS3 fs; APIRET rc = DosQueryPathInfo(fname, FIL_STANDARD, &fs, sizeof (fs)); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, 0) return((fs.attrFile & FILE_DIRECTORY) != 0); } /* __PHYSFS_platformIsDirectory */ char *__PHYSFS_platformCvtToDependent(const char *prepend, const char *dirName, const char *append) { int len = ((prepend) ? strlen(prepend) : 0) + ((append) ? strlen(append) : 0) + strlen(dirName) + 1; char *retval = malloc(len); char *p; BAIL_IF_MACRO(retval == NULL, ERR_OUT_OF_MEMORY, NULL); if (prepend) strcpy(retval, prepend); else retval[0] = '\0'; strcat(retval, dirName); if (append) strcat(retval, append); for (p = strchr(retval, '/'); p != NULL; p = strchr(p + 1, '/')) *p = '\\'; return(retval); } /* __PHYSFS_platformCvtToDependent */ LinkedStringList *__PHYSFS_platformEnumerateFiles(const char *dirname, int omitSymLinks) { char spec[CCHMAXPATH]; LinkedStringList *ret = NULL, *p = NULL; FILEFINDBUF3 fb; HDIR hdir = HDIR_CREATE; ULONG count = 1; APIRET rc; BAIL_IF_MACRO(strlen(dirname) > sizeof (spec) - 5, ERR_OS_ERROR, NULL); strcpy(spec, dirname); strcat(spec, (spec[strlen(spec) - 1] != '\\') ? "\\*.*" : "*.*"); rc = DosFindFirst(spec, &hdir, FILE_DIRECTORY | FILE_ARCHIVED | FILE_READONLY | FILE_HIDDEN | FILE_SYSTEM, &fb, sizeof (fb), &count, FIL_STANDARD); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, 0); while (count == 1) { if ((strcmp(fb.achName, ".") != 0) && (strcmp(fb.achName, "..") != 0)) ret = __PHYSFS_addToLinkedStringList(ret, &p, fb.achName, -1); DosFindNext(hdir, &fb, sizeof (fb), &count); } /* while */ DosFindClose(hdir); return(ret); } /* __PHYSFS_platformEnumerateFiles */ char *__PHYSFS_platformCurrentDir(void) { char *retval; ULONG currentDisk; ULONG dummy; ULONG pathSize = 0; APIRET rc; BYTE byte; rc = DosQueryCurrentDisk(¤tDisk, &dummy); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, NULL); /* 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. */ retval = (char *) malloc(pathSize + 3); /* plus "x:\\" */ BAIL_IF_MACRO(retval == NULL, ERR_OUT_OF_MEMORY, NULL); /* Actually get the string this time. */ rc = DosQueryCurrentDir(currentDisk, (PBYTE) (retval + 3), &pathSize); if (os2err(rc) != NO_ERROR) { free(retval); return(NULL); } /* if */ retval[0] = ('A' + (currentDisk - 1)); retval[1] = ':'; retval[2] = '\\'; return(retval); } /* __PHYSFS_platformCurrentDir */ char *__PHYSFS_platformRealPath(const char *path) { char buf[CCHMAXPATH]; char *retval; APIRET rc = DosQueryPathInfo(path, FIL_QUERYFULLNAME, buf, sizeof (buf)); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, NULL); retval = (char *) malloc(strlen(buf) + 1); BAIL_IF_MACRO(retval == NULL, ERR_OUT_OF_MEMORY, NULL); strcpy(retval, buf); return(retval); } /* __PHYSFS_platformRealPath */ int __PHYSFS_platformMkDir(const char *path) { return(os2err(DosCreateDir(path, NULL)) == NO_ERROR); } /* __PHYSFS_platformMkDir */ void *__PHYSFS_platformOpenRead(const char *filename) { ULONG actionTaken = 0; HFILE hfile = NULLHANDLE; /* * File must be opened SHARE_DENYWRITE and ACCESS_READONLY, otherwise * DosQueryFileInfo() will fail if we try to get a file length, etc. */ os2err(DosOpen(filename, &hfile, &actionTaken, 0, FILE_NORMAL, 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, NULL)); return((void *) hfile); } /* __PHYSFS_platformOpenRead */ void *__PHYSFS_platformOpenWrite(const char *filename) { ULONG actionTaken = 0; HFILE hfile = NULLHANDLE; /* * File must be opened SHARE_DENYWRITE and ACCESS_READWRITE, otherwise * DosQueryFileInfo() will fail if we try to get a file length, etc. */ os2err(DosOpen(filename, &hfile, &actionTaken, 0, FILE_NORMAL, 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 | OPEN_ACCESS_READWRITE, NULL)); return((void *) hfile); } /* __PHYSFS_platformOpenWrite */ void *__PHYSFS_platformOpenAppend(const char *filename) { ULONG dummy = 0; HFILE hfile = NULLHANDLE; APIRET rc; /* * File must be opened SHARE_DENYWRITE and ACCESS_READWRITE, otherwise * DosQueryFileInfo() will fail if we try to get a file length, etc. */ rc = os2err(DosOpen(filename, &hfile, &dummy, 0, FILE_NORMAL, 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, NULL)); if (rc == NO_ERROR) { if (os2err(DosSetFilePtr(hfile, 0, FILE_END, &dummy)) != NO_ERROR) { DosClose(hfile); hfile = NULLHANDLE; } /* if */ } /* if */ return((void *) hfile); } /* __PHYSFS_platformOpenAppend */ PHYSFS_sint64 __PHYSFS_platformRead(void *opaque, void *buffer, PHYSFS_uint32 size, PHYSFS_uint32 count) { HFILE hfile = (HFILE) opaque; PHYSFS_sint64 retval; ULONG br; for (retval = 0; retval < count; retval++) { os2err(DosRead(hfile, buffer, size, &br)); if (br < size) { DosSetFilePtr(hfile, -br, FILE_CURRENT, &br); /* try to cleanup. */ return(retval); } /* if */ buffer = (void *) ( ((char *) buffer) + size ); } /* for */ return(retval); } /* __PHYSFS_platformRead */ PHYSFS_sint64 __PHYSFS_platformWrite(void *opaque, const void *buffer, PHYSFS_uint32 size, PHYSFS_uint32 count) { HFILE hfile = (HFILE) opaque; PHYSFS_sint64 retval; ULONG bw; for (retval = 0; retval < count; retval++) { os2err(DosWrite(hfile, buffer, size, &bw)); if (bw < size) { DosSetFilePtr(hfile, -bw, FILE_CURRENT, &bw); /* try to cleanup. */ return(retval); } /* if */ buffer = (void *) ( ((char *) buffer) + size ); } /* for */ return(retval); } /* __PHYSFS_platformWrite */ int __PHYSFS_platformSeek(void *opaque, PHYSFS_uint64 pos) { ULONG dummy; HFILE hfile = (HFILE) opaque; LONG dist = (LONG) pos; /* hooray for 32-bit filesystem limits! :) */ BAIL_IF_MACRO((PHYSFS_uint64) dist != pos, ERR_SEEK_OUT_OF_RANGE, 0); return(os2err(DosSetFilePtr(hfile, dist, FILE_BEGIN, &dummy)) == NO_ERROR); } /* __PHYSFS_platformSeek */ PHYSFS_sint64 __PHYSFS_platformTell(void *opaque) { ULONG pos; HFILE hfile = (HFILE) opaque; APIRET rc = os2err(DosSetFilePtr(hfile, 0, FILE_CURRENT, &pos)); BAIL_IF_MACRO(rc != NO_ERROR, NULL, -1); return((PHYSFS_sint64) pos); } /* __PHYSFS_platformTell */ PHYSFS_sint64 __PHYSFS_platformFileLength(void *opaque) { FILESTATUS3 fs; HFILE hfile = (HFILE) opaque; APIRET rc = DosQueryFileInfo(hfile, FIL_STANDARD, &fs, sizeof (fs)); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, -1); return((PHYSFS_sint64) fs.cbFile); } /* __PHYSFS_platformFileLength */ int __PHYSFS_platformEOF(void *opaque) { PHYSFS_sint64 len, pos; len = __PHYSFS_platformFileLength(opaque); BAIL_IF_MACRO(len == -1, NULL, 1); /* (*shrug*) */ pos = __PHYSFS_platformTell(opaque); BAIL_IF_MACRO(pos == -1, NULL, 1); /* (*shrug*) */ return(pos >= len); } /* __PHYSFS_platformEOF */ int __PHYSFS_platformFlush(void *opaque) { return(os2err(DosResetBuffer((HFILE) opaque) == NO_ERROR)); } /* __PHYSFS_platformFlush */ int __PHYSFS_platformClose(void *opaque) { return(os2err(DosClose((HFILE) opaque) == NO_ERROR)); } /* __PHYSFS_platformClose */ int __PHYSFS_platformDelete(const char *path) { if (__PHYSFS_platformIsDirectory(path)) return(os2err(DosDeleteDir(path)) == NO_ERROR); return(os2err(DosDelete(path) == NO_ERROR)); } /* __PHYSFS_platformDelete */ PHYSFS_sint64 __PHYSFS_platformGetLastModTime(const char *fname) { PHYSFS_sint64 retval; struct tm tm; FILESTATUS3 fs; APIRET rc = DosQueryPathInfo(fname, FIL_STANDARD, &fs, sizeof (fs)); BAIL_IF_MACRO(os2err(rc) != NO_ERROR, NULL, -1); /* Convert to a format that mktime() can grok... */ tm.tm_sec = ((PHYSFS_uint32) fs.ftimeLastWrite.twosecs) * 2; tm.tm_min = fs.ftimeLastWrite.minutes; tm.tm_hour = fs.ftimeLastWrite.hours; tm.tm_mday = fs.fdateLastWrite.day; tm.tm_mon = fs.fdateLastWrite.month; tm.tm_year = ((PHYSFS_uint32) fs.fdateLastWrite.year) + 80; tm.tm_wday = -1 /*st_localtz.wDayOfWeek*/; tm.tm_yday = -1; tm.tm_isdst = -1; /* Convert to a format PhysicsFS can grok... */ retval = (PHYSFS_sint64) mktime(&tm); BAIL_IF_MACRO(retval == -1, strerror(errno), -1); return(retval); } /* __PHYSFS_platformGetLastModTime */ /* Much like my college days, try to sleep for 10 milliseconds at a time... */ void __PHYSFS_platformTimeslice(void) { DosSleep(10); } /* __PHYSFS_platformTimeslice(void) */ PHYSFS_uint64 __PHYSFS_platformGetThreadID(void) { PTIB ptib; PPIB ppib; /* * Allegedly, this API never fails, but we'll punt and return a * default value (zero might as well do) if it does. */ BAIL_IF_MACRO(os2err(DosGetInfoBlocks(&ptib, &ppib)) != NO_ERROR, 0, 0); return((PHYSFS_uint64) ptib->tib_ordinal); } /* __PHYSFS_platformGetThreadID */ void *__PHYSFS_platformCreateMutex(void) { HMTX hmtx = NULLHANDLE; os2err(DosCreateMutexSem(NULL, &hmtx, 0, 0)); return((void *) hmtx); } /* __PHYSFS_platformCreateMutex */ void __PHYSFS_platformDestroyMutex(void *mutex) { DosCloseMutexSem((HMTX) mutex); } /* __PHYSFS_platformDestroyMutex */ int __PHYSFS_platformGrabMutex(void *mutex) { /* Do _NOT_ call os2err() (which sets the physfs error msg) in here! */ return(DosRequestMutexSem((HMTX) mutex, SEM_INDEFINITE_WAIT) == NO_ERROR); } /* __PHYSFS_platformGrabMutex */ void __PHYSFS_platformReleaseMutex(void *mutex) { DosReleaseMutexSem((HMTX) mutex); } /* __PHYSFS_platformReleaseMutex */ #endif /* defined OS2 */ /* end of os2.c ... */