VitaShell/minizip/ioapi.c

383 lines
13 KiB
C

/* ioapi.h -- IO base function header for compress/uncompress .zip
part of the MiniZip project
Copyright (C) 1998-2010 Gilles Vollant
http://www.winimage.com/zLibDll/minizip.html
Modifications for Zip64 support
Copyright (C) 2009-2010 Mathias Svensson
http://result42.com
This program is distributed under the terms of the same license as zlib.
See the accompanying LICENSE file for the full text of the license.
*/
#include <psp2/io/fcntl.h>
#include <stdlib.h>
#include <string.h>
#include "ioapi.h"
#define SCE_ERROR_ERRNO_ENODEV 0x80010013
voidpf call_zopen64 (const zlib_filefunc64_32_def* pfilefunc,const void*filename,int mode)
{
if (pfilefunc->zfile_func64.zopen64_file != NULL)
return (*(pfilefunc->zfile_func64.zopen64_file)) (pfilefunc->zfile_func64.opaque,filename,mode);
return (*(pfilefunc->zopen32_file))(pfilefunc->zfile_func64.opaque,(const char*)filename,mode);
}
voidpf call_zopendisk64 OF((const zlib_filefunc64_32_def* pfilefunc, voidpf filestream, int number_disk, int mode))
{
if (pfilefunc->zfile_func64.zopendisk64_file != NULL)
return (*(pfilefunc->zfile_func64.zopendisk64_file)) (pfilefunc->zfile_func64.opaque,filestream,number_disk,mode);
return (*(pfilefunc->zopendisk32_file))(pfilefunc->zfile_func64.opaque,filestream,number_disk,mode);
}
long call_zseek64 (const zlib_filefunc64_32_def* pfilefunc,voidpf filestream, ZPOS64_T offset, int origin)
{
uLong offsetTruncated;
if (pfilefunc->zfile_func64.zseek64_file != NULL)
return (*(pfilefunc->zfile_func64.zseek64_file)) (pfilefunc->zfile_func64.opaque,filestream,offset,origin);
offsetTruncated = (uLong)offset;
if (offsetTruncated != offset)
return -1;
return (*(pfilefunc->zseek32_file))(pfilefunc->zfile_func64.opaque,filestream,offsetTruncated,origin);
}
ZPOS64_T call_ztell64 (const zlib_filefunc64_32_def* pfilefunc,voidpf filestream)
{
uLong tell_uLong;
if (pfilefunc->zfile_func64.zseek64_file != NULL)
return (*(pfilefunc->zfile_func64.ztell64_file)) (pfilefunc->zfile_func64.opaque,filestream);
tell_uLong = (*(pfilefunc->ztell32_file))(pfilefunc->zfile_func64.opaque,filestream);
if ((tell_uLong) == 0xffffffff)
return (ZPOS64_T)-1;
return tell_uLong;
}
void fill_zlib_filefunc64_32_def_from_filefunc32(zlib_filefunc64_32_def* p_filefunc64_32,const zlib_filefunc_def* p_filefunc32)
{
p_filefunc64_32->zfile_func64.zopen64_file = NULL;
p_filefunc64_32->zfile_func64.zopendisk64_file = NULL;
p_filefunc64_32->zopen32_file = p_filefunc32->zopen_file;
p_filefunc64_32->zopendisk32_file = p_filefunc32->zopendisk_file;
p_filefunc64_32->zfile_func64.zerror_file = p_filefunc32->zerror_file;
p_filefunc64_32->zfile_func64.zread_file = p_filefunc32->zread_file;
p_filefunc64_32->zfile_func64.zwrite_file = p_filefunc32->zwrite_file;
p_filefunc64_32->zfile_func64.ztell64_file = NULL;
p_filefunc64_32->zfile_func64.zseek64_file = NULL;
p_filefunc64_32->zfile_func64.zclose_file = p_filefunc32->zclose_file;
p_filefunc64_32->zfile_func64.zerror_file = p_filefunc32->zerror_file;
p_filefunc64_32->zfile_func64.opaque = p_filefunc32->opaque;
p_filefunc64_32->zseek32_file = p_filefunc32->zseek_file;
p_filefunc64_32->ztell32_file = p_filefunc32->ztell_file;
}
static voidpf ZCALLBACK fopen_file_func OF((voidpf opaque, const char* filename, int mode));
static uLong ZCALLBACK fread_file_func OF((voidpf opaque, voidpf stream, void* buf, uLong size));
static uLong ZCALLBACK fwrite_file_func OF((voidpf opaque, voidpf stream, const void* buf,uLong size));
static ZPOS64_T ZCALLBACK ftell64_file_func OF((voidpf opaque, voidpf stream));
static long ZCALLBACK fseek64_file_func OF((voidpf opaque, voidpf stream, ZPOS64_T offset, int origin));
static int ZCALLBACK fclose_file_func OF((voidpf opaque, voidpf stream));
static int ZCALLBACK ferror_file_func OF((voidpf opaque, voidpf stream));
typedef struct
{
SceUID fd;
int mode_fopen;
SceOff offset;
int error;
int filenameLength;
void *filename;
} FILE_IOPOSIX;
static voidpf file_build_ioposix(SceUID fd, const char *filename, int mode_fopen)
{
FILE_IOPOSIX *ioposix = NULL;
if (fd < 0)
return NULL;
ioposix = (FILE_IOPOSIX*)malloc(sizeof(FILE_IOPOSIX));
ioposix->fd = fd;
ioposix->mode_fopen = mode_fopen;
ioposix->offset = 0;
ioposix->error = 0;
ioposix->filenameLength = strlen(filename) + 1;
ioposix->filename = (char*)malloc(ioposix->filenameLength * sizeof(char));
strncpy(ioposix->filename, filename, ioposix->filenameLength);
return (voidpf)ioposix;
}
static voidpf ZCALLBACK fopen_file_func (voidpf opaque, const char* filename, int mode)
{
SceUID fd = -1;
int mode_fopen = 0;
if ((mode & ZLIB_FILEFUNC_MODE_READWRITEFILTER)==ZLIB_FILEFUNC_MODE_READ)
mode_fopen = SCE_O_RDONLY;
else
if (mode & ZLIB_FILEFUNC_MODE_EXISTING)
mode_fopen = SCE_O_RDWR;
else
if (mode & ZLIB_FILEFUNC_MODE_CREATE)
mode_fopen = SCE_O_WRONLY | SCE_O_CREAT;
if ((filename != NULL) && (mode_fopen != 0))
{
fd = sceIoOpen(filename, mode_fopen, 0777);
return file_build_ioposix(fd, filename, mode_fopen);
}
return NULL;
}
static voidpf ZCALLBACK fopendisk_file_func (voidpf opaque, voidpf stream, int number_disk, int mode)
{
FILE_IOPOSIX *ioposix = NULL;
char *diskFilename = NULL;
voidpf ret = NULL;
int i = 0;
if (stream == NULL)
return NULL;
ioposix = (FILE_IOPOSIX*)stream;
diskFilename = (char*)malloc(ioposix->filenameLength * sizeof(char));
strncpy(diskFilename, ioposix->filename, ioposix->filenameLength);
for (i = ioposix->filenameLength - 1; i >= 0; i -= 1)
{
if (diskFilename[i] != '.')
continue;
snprintf(&diskFilename[i], ioposix->filenameLength - i, ".z%02d", number_disk + 1);
break;
}
if (i >= 0)
ret = fopen_file_func(opaque, diskFilename, mode);
free(diskFilename);
return ret;
}
static uLong ZCALLBACK fread_file_func (voidpf opaque, voidpf stream, void* buf, uLong size)
{
FILE_IOPOSIX *ioposix = NULL;
uLong ret;
if (stream == NULL)
return -1;
ioposix = (FILE_IOPOSIX*)stream;
ret = (uLong)sceIoRead(ioposix->fd, buf, (size_t)size);
ioposix->error = (int)ret;
if (ioposix->error == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
ret = (uLong)sceIoRead(ioposix->fd, buf, (size_t)size);
ioposix->error = (int)ret;
}
}
if (ioposix->error == 0)
ioposix->offset += ret;
return ret;
}
static uLong ZCALLBACK fwrite_file_func (voidpf opaque, voidpf stream, const void* buf, uLong size)
{
FILE_IOPOSIX *ioposix = NULL;
uLong ret;
if (stream == NULL)
return -1;
ioposix = (FILE_IOPOSIX*)stream;
ret = (uLong)sceIoWrite(ioposix->fd, buf, (size_t)size);
ioposix->error = (int)ret;
if (ioposix->error == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
ret = (uLong)sceIoWrite(ioposix->fd, buf, (size_t)size);
ioposix->error = (int)ret;
}
}
if (ioposix->error == 0)
ioposix->offset += ret;
return ret;
}
static long ZCALLBACK ftell_file_func (voidpf opaque, voidpf stream)
{
FILE_IOPOSIX *ioposix = NULL;
long ret = -1;
if (stream == NULL)
return ret;
ioposix = (FILE_IOPOSIX*)stream;
ret = (long)sceIoLseek32(ioposix->fd, 0, SCE_SEEK_CUR);
ioposix->error = (int)ret;
if (ioposix->error == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek32(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
ret = (long)sceIoLseek32(ioposix->fd, 0, SCE_SEEK_CUR);
ioposix->error = (int)ret;
}
}
return ret;
}
static ZPOS64_T ZCALLBACK ftell64_file_func (voidpf opaque, voidpf stream)
{
FILE_IOPOSIX *ioposix = NULL;
ZPOS64_T ret = -1;
if (stream == NULL)
return ret;
ioposix = (FILE_IOPOSIX*)stream;
ret = (ZPOS64_T)sceIoLseek(ioposix->fd, 0, SCE_SEEK_CUR);
ioposix->error = (int)ret;
if (ioposix->error == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
ret = (long)sceIoLseek(ioposix->fd, 0, SCE_SEEK_CUR);
ioposix->error = (int)ret;
}
}
return ret;
}
static long ZCALLBACK fseek_file_func (voidpf opaque, voidpf stream, uLong offset, int origin)
{
FILE_IOPOSIX *ioposix = NULL;
int fseek_origin = 0;
long ret = 0;
if (stream == NULL)
return -1;
ioposix = (FILE_IOPOSIX*)stream;
switch (origin)
{
case ZLIB_FILEFUNC_SEEK_CUR:
fseek_origin = SCE_SEEK_CUR;
break;
case ZLIB_FILEFUNC_SEEK_END:
fseek_origin = SCE_SEEK_END;
break;
case ZLIB_FILEFUNC_SEEK_SET:
fseek_origin = SCE_SEEK_SET;
break;
default:
return -1;
}
int res = sceIoLseek32(ioposix->fd, offset, fseek_origin);
if (res == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
res = sceIoLseek32(ioposix->fd, offset, fseek_origin);
}
}
if (res < 0) {
ret = -1;
} else {
ioposix->offset = (SceOff)res;
}
return ret;
}
static long ZCALLBACK fseek64_file_func (voidpf opaque, voidpf stream, ZPOS64_T offset, int origin)
{
FILE_IOPOSIX *ioposix = NULL;
int fseek_origin = 0;
long ret = 0;
if (stream == NULL)
return -1;
ioposix = (FILE_IOPOSIX*)stream;
switch (origin)
{
case ZLIB_FILEFUNC_SEEK_CUR:
fseek_origin = SCE_SEEK_CUR;
break;
case ZLIB_FILEFUNC_SEEK_END:
fseek_origin = SCE_SEEK_END;
break;
case ZLIB_FILEFUNC_SEEK_SET:
fseek_origin = SCE_SEEK_SET;
break;
default:
return -1;
}
SceOff res = sceIoLseek(ioposix->fd, offset, fseek_origin);
if ((int)res == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
res = sceIoLseek(ioposix->fd, offset, fseek_origin);
}
}
if (res < 0) {
ret = -1;
} else {
ioposix->offset = res;
}
return ret;
}
static int ZCALLBACK fclose_file_func (voidpf opaque, voidpf stream)
{
FILE_IOPOSIX *ioposix = NULL;
int ret = -1;
if (stream == NULL)
return ret;
ioposix = (FILE_IOPOSIX*)stream;
if (ioposix->filename != NULL)
free(ioposix->filename);
ret = sceIoClose(ioposix->fd);
ioposix->error = ret;
if (ioposix->error == SCE_ERROR_ERRNO_ENODEV) {
ioposix->fd = sceIoOpen(ioposix->filename, ioposix->mode_fopen, 0777);
if (ioposix->fd >= 0) {
sceIoLseek(ioposix->fd, ioposix->offset, SCE_SEEK_SET);
ret = sceIoClose(ioposix->fd);
ioposix->error = ret;
}
}
free(ioposix);
return ret;
}
static int ZCALLBACK ferror_file_func (voidpf opaque, voidpf stream)
{
FILE_IOPOSIX *ioposix = NULL;
int ret = -1;
if (stream == NULL)
return ret;
ioposix = (FILE_IOPOSIX*)stream;
ret = 0;
if (ioposix->error < 0)
ret = ioposix->error & 0xFF;
return ret;
}
void fill_fopen_filefunc (zlib_filefunc_def* pzlib_filefunc_def)
{
pzlib_filefunc_def->zopen_file = fopen_file_func;
pzlib_filefunc_def->zopendisk_file = fopendisk_file_func;
pzlib_filefunc_def->zread_file = fread_file_func;
pzlib_filefunc_def->zwrite_file = fwrite_file_func;
pzlib_filefunc_def->ztell_file = ftell_file_func;
pzlib_filefunc_def->zseek_file = fseek_file_func;
pzlib_filefunc_def->zclose_file = fclose_file_func;
pzlib_filefunc_def->zerror_file = ferror_file_func;
pzlib_filefunc_def->opaque = NULL;
}
void fill_fopen64_filefunc (zlib_filefunc64_def* pzlib_filefunc_def)
{
pzlib_filefunc_def->zopen64_file = (void (*))fopen_file_func;
pzlib_filefunc_def->zopendisk64_file = fopendisk_file_func;
pzlib_filefunc_def->zread_file = fread_file_func;
pzlib_filefunc_def->zwrite_file = fwrite_file_func;
pzlib_filefunc_def->ztell64_file = ftell64_file_func;
pzlib_filefunc_def->zseek64_file = fseek64_file_func;
pzlib_filefunc_def->zclose_file = fclose_file_func;
pzlib_filefunc_def->zerror_file = ferror_file_func;
pzlib_filefunc_def->opaque = NULL;
}