+#include "../zlib/zlib.h"\r
+#include "../unzip/unzip.h"\r
+#include "../unzip/unzip_stream.h"\r
+\r
+\r
+static char *rom_exts[] = { "bin", "gen", "smd", "iso" };\r
+\r
+void (*PicoCartLoadProgressCB)(int percent) = NULL;\r
+void (*PicoCDLoadProgressCB)(int percent) = NULL; // handled in Pico/cd/cd_file.c\r
+\r
+\r
+pm_file *pm_open(const char *path)\r
+{\r
+ pm_file *file = NULL;\r
+ const char *ext;\r
+ FILE *f;\r
+\r
+ if (path == NULL) return NULL;\r
+\r
+ if (strlen(path) < 5) ext = NULL; // no ext\r
+ else ext = path + strlen(path) - 3;\r
+\r
+ if (ext && strcasecmp(ext, "zip") == 0)\r
+ {\r
+ struct zipent *zipentry;\r
+ gzFile gzf = NULL;\r
+ ZIP *zipfile;\r
+ int i;\r
+\r
+ zipfile = openzip(path);\r
+\r
+ if (zipfile != NULL)\r
+ {\r
+ /* search for suitable file (right extension or large enough file) */\r
+ while ((zipentry = readzip(zipfile)) != NULL)\r
+ {\r
+ if (zipentry->uncompressed_size >= 128*1024) goto found_rom_zip;\r
+ if (strlen(zipentry->name) < 5) continue;\r
+\r
+ ext = zipentry->name+strlen(zipentry->name)-3;\r
+ for (i = 0; i < sizeof(rom_exts)/sizeof(rom_exts[0]); i++)\r
+ if (strcasecmp(ext, rom_exts[i]) == 0) goto found_rom_zip;\r
+ }\r
+\r
+ /* zipfile given, but nothing found suitable for us inside */\r
+ goto zip_failed;\r
+\r
+found_rom_zip:\r
+ /* try to convert to gzip stream, so we could use standard gzio functions from zlib */\r
+ gzf = zip2gz(zipfile, zipentry);\r
+ if (gzf == NULL) goto zip_failed;\r
+\r
+ file = malloc(sizeof(*file));\r
+ if (file == NULL) goto zip_failed;\r
+ file->file = zipfile;\r
+ file->param = gzf;\r
+ file->size = zipentry->uncompressed_size;\r
+ file->type = PMT_ZIP;\r
+ return file;\r
+\r
+zip_failed:\r
+ if (gzf) {\r
+ gzclose(gzf);\r
+ zipfile->fp = NULL; // gzclose() closed it\r
+ }\r
+ closezip(zipfile);\r
+ return NULL;\r
+ }\r
+ }\r
+\r
+ /* not a zip, treat as uncompressed file */\r
+ f = fopen(path, "rb");\r
+ if (f == NULL) return NULL;\r
+\r
+ /* we use our own buffering */\r
+ setvbuf(f, NULL, _IONBF, 0);\r
+\r
+ file = malloc(sizeof(*file));\r
+ if (file == NULL) {\r
+ fclose(f);\r
+ return NULL;\r
+ }\r
+ fseek(f, 0, SEEK_END);\r
+ file->file = f;\r
+ file->param = NULL;\r
+ file->size = ftell(f);\r
+ file->type = PMT_UNCOMPRESSED;\r
+ fseek(f, 0, SEEK_SET);\r
+ return file;\r
+}\r
+\r
+size_t pm_read(void *ptr, size_t bytes, pm_file *stream)\r
+{\r
+ int ret;\r
+\r
+ if (stream->type == PMT_UNCOMPRESSED)\r
+ {\r
+ ret = fread(ptr, 1, bytes, stream->file);\r
+ }\r
+ else if (stream->type == PMT_ZIP)\r
+ {\r
+ gzFile gf = stream->param;\r
+ int err;\r
+ ret = gzread(gf, ptr, bytes);\r
+ err = gzerror2(gf);\r
+ if (ret > 0 && (err == Z_DATA_ERROR || err == Z_STREAM_END))\r
+ /* we must reset stream pointer or else next seek/read fails */\r
+ gzrewind(gf);\r
+ }\r
+ else\r
+ ret = 0;\r
+\r
+ return ret;\r
+}\r
+\r
+int pm_seek(pm_file *stream, long offset, int whence)\r
+{\r
+ if (stream->type == PMT_UNCOMPRESSED)\r
+ {\r
+ fseek(stream->file, offset, whence);\r
+ return ftell(stream->file);\r
+ }\r
+ else if (stream->type == PMT_ZIP)\r
+ {\r
+ if (PicoMessage != NULL && offset > 6*1024*1024) {\r
+ long pos = gztell((gzFile) stream->param);\r
+ if (offset < pos || offset - pos > 6*1024*1024)\r
+ PicoMessage("Decompressing data...");\r
+ }\r
+ return gzseek((gzFile) stream->param, offset, whence);\r
+ }\r
+ else\r
+ return -1;\r
+}\r
+\r
+int pm_close(pm_file *fp)\r
+{\r
+ int ret = 0;\r
+\r
+ if (fp == NULL) return EOF;\r
+\r
+ if (fp->type == PMT_UNCOMPRESSED)\r
+ {\r
+ fclose(fp->file);\r
+ }\r
+ else if (fp->type == PMT_ZIP)\r
+ {\r
+ ZIP *zipfile = fp->file;\r
+ gzclose((gzFile) fp->param);\r
+ zipfile->fp = NULL; // gzclose() closed it\r
+ closezip(zipfile);\r
+ }\r
+ else\r
+ ret = EOF;\r
+\r
+ free(fp);\r
+ return ret;\r
+}\r
+\r