123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287 |
- // This is part of Pico Library
- // (c) Copyright 2004 Dave, All rights reserved.
- // (c) Copyright 2006 notaz, All rights reserved.
- // Free for non-commercial use.
- // For commercial use, separate licencing terms must be obtained.
- #include "PicoInt.h"
- #include "../zlib/zlib.h"
- #include "../unzip/unzip.h"
- #include "../unzip/unzip_stream.h"
- static char *rom_exts[] = { "bin", "gen", "smd", "iso" };
- pm_file *pm_open(const char *path)
- {
- pm_file *file = NULL;
- const char *ext;
- FILE *f;
- if (path == NULL) return NULL;
- if (strlen(path) < 5) ext = NULL; // no ext
- else ext = path + strlen(path) - 3;
- if (ext && strcasecmp(ext, "zip") == 0)
- {
- struct zipent *zipentry;
- gzFile gzf = NULL;
- ZIP *zipfile;
- int i;
- zipfile = openzip(path);
- if (zipfile != NULL)
- {
- /* search for suitable file (right extension or large enough file) */
- while ((zipentry = readzip(zipfile)) != NULL)
- {
- if (zipentry->uncompressed_size >= 128*1024) goto found_rom_zip;
- if (strlen(zipentry->name) < 5) continue;
- ext = zipentry->name+strlen(zipentry->name)-3;
- for (i = 0; i < sizeof(rom_exts)/sizeof(rom_exts[0]); i++)
- if (!strcasecmp(ext, rom_exts[i]) == 0) goto found_rom_zip;
- }
- /* zipfile given, but nothing found suitable for us inside */
- goto zip_failed;
- found_rom_zip:
- /* try to convert to gzip stream, so we could use standard gzio functions from zlib */
- gzf = zip2gz(zipfile, zipentry);
- if (gzf == NULL) goto zip_failed;
- file = malloc(sizeof(*file));
- if (file == NULL) goto zip_failed;
- file->file = zipfile;
- file->param = gzf;
- file->size = zipentry->uncompressed_size;
- file->type = PMT_ZIP;
- return file;
- zip_failed:
- if (gzf) {
- gzclose(gzf);
- zipfile->fp = NULL; // gzclose() closed it
- }
- closezip(zipfile);
- return NULL;
- }
- }
- /* not a zip, treat as uncompressed file */
- f = fopen(path, "rb");
- if (f == NULL) return NULL;
- file = malloc(sizeof(*file));
- if (file == NULL) {
- fclose(f);
- return NULL;
- }
- fseek(f, 0, SEEK_END);
- file->file = f;
- file->param = NULL;
- file->size = ftell(f);
- file->type = PMT_UNCOMPRESSED;
- fseek(f, 0, SEEK_SET);
- return file;
- }
- size_t pm_read(void *ptr, size_t bytes, pm_file *stream)
- {
- int ret;
- if (stream->type == PMT_UNCOMPRESSED)
- {
- ret = fread(ptr, 1, bytes, stream->file);
- }
- else if (stream->type == PMT_ZIP)
- {
- gzFile gf = stream->param;
- int err;
- ret = gzread(gf, ptr, bytes);
- err = gzerror2(gf);
- if (ret > 0 && (err == Z_DATA_ERROR || err == Z_STREAM_END))
- /* we must reset stream pointer or else next seek/read fails */
- gzrewind(gf);
- }
- else
- ret = 0;
- return ret;
- }
- int pm_seek(pm_file *stream, long offset, int whence)
- {
- if (stream->type == PMT_UNCOMPRESSED)
- {
- return fseek(stream->file, offset, whence);
- }
- else if (stream->type == PMT_ZIP)
- {
- return gzseek((gzFile) stream->param, offset, whence);
- }
- else
- return -1;
- }
- int pm_close(pm_file *fp)
- {
- int ret = 0;
- if (fp == NULL) return EOF;
- if (fp->type == PMT_UNCOMPRESSED)
- {
- fclose(fp->file);
- }
- else if (fp->type == PMT_ZIP)
- {
- ZIP *zipfile = fp->file;
- gzclose((gzFile) fp->param);
- zipfile->fp = NULL; // gzclose() closed it
- closezip(zipfile);
- }
- else
- ret = EOF;
- free(fp);
- return ret;
- }
- void Byteswap(unsigned char *data,int len)
- {
- int i=0;
- if (len<2) return; // Too short
- do
- {
- unsigned short *pd=(unsigned short *)(data+i);
- int value=*pd; // Get 2 bytes
- value=(value<<8)|(value>>8); // Byteswap it
- *pd=(unsigned short)value; // Put 2b ytes
- i+=2;
- }
- while (i+2<=len);
- }
- // Interleve a 16k block and byteswap
- static int InterleveBlock(unsigned char *dest,unsigned char *src)
- {
- int i=0;
- for (i=0;i<0x2000;i++) dest[(i<<1) ]=src[ i]; // Odd
- for (i=0;i<0x2000;i++) dest[(i<<1)+1]=src[0x2000+i]; // Even
- return 0;
- }
- // Decode a SMD file
- static int DecodeSmd(unsigned char *data,int len)
- {
- unsigned char *temp=NULL;
- int i=0;
- temp=(unsigned char *)malloc(0x4000);
- if (temp==NULL) return 1;
- memset(temp,0,0x4000);
- // Interleve each 16k block and shift down by 0x200:
- for (i=0; i+0x4200<=len; i+=0x4000)
- {
- InterleveBlock(temp,data+0x200+i); // Interleve 16k to temporary buffer
- memcpy(data+i,temp,0x4000); // Copy back in
- }
- free(temp);
- return 0;
- }
- static unsigned char *cd_realloc(void *old, int filesize)
- {
- unsigned char *rom;
- dprintf("sizeof(mcd_state): %i", sizeof(mcd_state));
- rom=realloc(old, sizeof(mcd_state));
- if (rom) memset(rom+0x20000, 0, sizeof(mcd_state)-0x20000);
- return rom;
- }
- static unsigned char *PicoCartAlloc(int filesize)
- {
- int alloc_size;
- unsigned char *rom;
- if (PicoMCD & 1) return cd_realloc(NULL, filesize);
- alloc_size=filesize+0x7ffff;
- if((filesize&0x3fff)==0x200) alloc_size-=0x200;
- alloc_size&=~0x7ffff; // use alloc size of multiples of 512K, so that memhandlers could be set up more efficiently
- if((filesize&0x3fff)==0x200) alloc_size+=0x200;
- else if(alloc_size-filesize < 4) alloc_size+=4; // padding for out-of-bound exec protection
- //dprintf("alloc_size: %x\n", alloc_size);
- // Allocate space for the rom plus padding
- rom=(unsigned char *)malloc(alloc_size);
- if(rom) memset(rom+alloc_size-0x80000,0,0x80000);
- return rom;
- }
- int PicoCartLoad(pm_file *f,unsigned char **prom,unsigned int *psize)
- {
- unsigned char *rom=NULL; int size;
- if (f==NULL) return 1;
- size=f->size;
- if (size <= 0) return 1;
- size=(size+3)&~3; // Round up to a multiple of 4
- // Allocate space for the rom plus padding
- rom=PicoCartAlloc(size);
- if (rom==NULL) return 1; // { fclose(f); return 1; }
- pm_read(rom,size,f); // Load up the rom
- // maybe we are loading MegaCD BIOS?
- if (!(PicoMCD&1) && size == 0x20000 && (!strncmp((char *)rom+0x124, "BOOT", 4) || !strncmp((char *)rom+0x128, "BOOT", 4))) {
- PicoMCD |= 1;
- rom = cd_realloc(rom, size);
- }
- // Check for SMD:
- if ((size&0x3fff)==0x200) { DecodeSmd(rom,size); size-=0x200; } // Decode and byteswap SMD
- else Byteswap(rom,size); // Just byteswap
- if (prom) *prom=rom;
- if (psize) *psize=size;
- return 0;
- }
- // Insert/remove a cartridge:
- int PicoCartInsert(unsigned char *rom,unsigned int romsize)
- {
- // notaz: add a 68k "jump one op back" opcode to the end of ROM.
- // This will hang the emu, but will prevent nasty crashes.
- // note: 4 bytes are padded to every ROM
- if(rom != NULL)
- *(unsigned long *)(rom+romsize) = 0xFFFE4EFA; // 4EFA FFFE byteswapped
- SRam.resize=1;
- Pico.rom=rom;
- Pico.romsize=romsize;
- return PicoReset(1);
- }
- int PicoUnloadCart(unsigned char* romdata)
- {
- free(romdata);
- return 0;
- }
|