-static unsigned char id_header[0x100];\r
-\r
-/* checks if fname points to valid MegaCD image */\r
-static int emu_cd_check(int *pregion, const char *fname_in)\r
-{\r
- const char *fname = fname_in;\r
- unsigned char buf[32];\r
- pm_file *cd_f;\r
- int region = 4; // 1: Japan, 4: US, 8: Europe\r
- char ext[5];\r
- cue_track_type type = CT_UNKNOWN;\r
- cue_data_t *cue_data = NULL;\r
-\r
- get_ext(fname_in, ext);\r
- if (strcasecmp(ext, ".cue") == 0) {\r
- cue_data = cue_parse(fname_in);\r
- if (cue_data != NULL) {\r
- fname = cue_data->tracks[1].fname;\r
- type = cue_data->tracks[1].type;\r
- }\r
- else\r
- return -1;\r
- }\r
-\r
- cd_f = pm_open(fname);\r
- if (cue_data != NULL)\r
- cue_destroy(cue_data);\r
-\r
- if (cd_f == NULL) return 0; // let the upper level handle this\r
-\r
- if (pm_read(buf, 32, cd_f) != 32) {\r
- pm_close(cd_f);\r
- return -1;\r
- }\r
-\r
- if (!strncasecmp("SEGADISCSYSTEM", (char *)buf+0x00, 14)) {\r
- if (type && type != CT_ISO)\r
- elprintf(EL_STATUS, ".cue has wrong type: %i", type);\r
- type = CT_ISO; // Sega CD (ISO)\r
- }\r
- if (!strncasecmp("SEGADISCSYSTEM", (char *)buf+0x10, 14)) {\r
- if (type && type != CT_BIN)\r
- elprintf(EL_STATUS, ".cue has wrong type: %i", type);\r
- type = CT_BIN; // Sega CD (BIN)\r
- }\r
-\r
- if (type == CT_UNKNOWN) {\r
- pm_close(cd_f);\r
- return 0;\r
- }\r
-\r
- pm_seek(cd_f, (type == CT_ISO) ? 0x100 : 0x110, SEEK_SET);\r
- pm_read(id_header, sizeof(id_header), cd_f);\r
-\r
- /* it seems we have a CD image here. Try to detect region now.. */\r
- pm_seek(cd_f, (type == CT_ISO) ? 0x100+0x10B : 0x110+0x10B, SEEK_SET);\r
- pm_read(buf, 1, cd_f);\r
- pm_close(cd_f);\r
-\r
- if (buf[0] == 0x64) region = 8; // EU\r
- if (buf[0] == 0xa1) region = 1; // JAP\r
-\r
- lprintf("detected %s Sega/Mega CD image with %s region\n",\r
- type == CT_BIN ? "BIN" : "ISO", region != 4 ? (region == 8 ? "EU" : "JAP") : "USA");\r
-\r
- if (pregion != NULL) *pregion = region;\r
-\r
- return type;\r
-}\r
-\r
-static int detect_media(const char *fname)\r
-{\r
- static const short sms_offsets[] = { 0x7ff0, 0x3ff0, 0x1ff0 };\r
- static const char *sms_exts[] = { "sms", "gg", "sg" };\r
- static const char *md_exts[] = { "gen", "bin", "smd" };\r
- char buff0[32], buff[32];\r
- unsigned short *d16;\r
- pm_file *pmf;\r
- char ext[5];\r
- int i;\r
-\r
- get_ext(fname, ext);\r
-\r
- // detect wrong extensions\r
- if (!strcmp(ext, ".srm") || !strcmp(ext, "s.gz") || !strcmp(ext, ".mds")) // s.gz ~ .mds.gz\r
- return PM_BAD;\r
-\r
- /* don't believe in extensions, except .cue */\r
- if (strcasecmp(ext, ".cue") == 0)\r
- return PM_CD;\r
-\r
- pmf = pm_open(fname);\r
- if (pmf == NULL)\r
- return PM_BAD;\r
-\r
- if (pm_read(buff0, 32, pmf) != 32) {\r
- pm_close(pmf);\r
- return PM_BAD;\r
- }\r
-\r
- if (strncasecmp("SEGADISCSYSTEM", buff0 + 0x00, 14) == 0 ||\r
- strncasecmp("SEGADISCSYSTEM", buff0 + 0x10, 14) == 0) {\r
- pm_close(pmf);\r
- return PM_CD;\r
- }\r
-\r
- /* check for SMD evil */\r
- if (pmf->size >= 0x4200 && (pmf->size & 0x3fff) == 0x200) {\r
- if (pm_seek(pmf, sms_offsets[0] + 0x200, SEEK_SET) == sms_offsets[0] + 0x200 &&\r
- pm_read(buff, 16, pmf) == 16 &&\r
- strncmp("TMR SEGA", buff, 8) == 0)\r
- goto looks_like_sms;\r
-\r
- /* could parse further but don't bother */\r
- goto extension_check;\r
- }\r
-\r
- /* MD header? Act as TMSS BIOS here */\r
- if (pm_seek(pmf, 0x100, SEEK_SET) == 0x100 && pm_read(buff, 16, pmf) == 16) {\r
- if (strncmp(buff, "SEGA", 4) == 0 || strncmp(buff, " SEG", 4) == 0)\r
- goto looks_like_md;\r
- }\r
-\r
- for (i = 0; i < array_size(sms_offsets); i++) {\r
- if (pm_seek(pmf, sms_offsets[i], SEEK_SET) != sms_offsets[i])\r
- continue;\r
-\r
- if (pm_read(buff, 16, pmf) != 16)\r
- continue;\r
-\r
- if (strncmp("TMR SEGA", buff, 8) == 0)\r
- goto looks_like_sms;\r
- }\r
-\r
-extension_check:\r
- /* probably some headerless thing. Maybe check the extension after all. */\r
- for (i = 0; i < array_size(md_exts); i++)\r
- if (strcasecmp(pmf->ext, md_exts[i]) == 0)\r
- goto looks_like_md;\r
-\r
- for (i = 0; i < array_size(sms_exts); i++)\r
- if (strcasecmp(pmf->ext, sms_exts[i]) == 0)\r
- goto looks_like_sms;\r
-\r
- /* If everything else fails, make a guess on the reset vector */\r
- d16 = (unsigned short *)(buff0 + 4);\r
- if ((((d16[0] << 16) | d16[1]) & 0xffffff) >= pmf->size) {\r
- lprintf("bad MD reset vector, assuming SMS\n");\r
- goto looks_like_sms;\r
- }\r
-\r
-looks_like_md:\r
- pm_close(pmf);\r
- return PM_MD_CART;\r
-\r
-looks_like_sms:\r
- pm_close(pmf);\r
- return PM_MARK3;\r
-}\r
-\r