Mercurial > repos > blastem
view blastem.c @ 2329:06d5e9b08bdb
Add NTSC composite shader by Sik
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 23 Aug 2023 21:38:39 -0700 |
parents | 59fd8aa352e2 |
children | 34b4ff091891 |
line wrap: on
line source
/* Copyright 2013-2016 Michael Pavone This file is part of BlastEm. BlastEm is free software distributed under the terms of the GNU General Public License version 3 or greater. See COPYING for full license text. */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include <ctype.h> #include "system.h" #include "68kinst.h" #include "m68k_core.h" #ifdef NEW_CORE #include "z80.h" #else #include "z80_to_x86.h" #endif #include "mem.h" #include "vdp.h" #include "render.h" #include "genesis.h" #include "gdb_remote.h" #include "gst.h" #include "util.h" #include "paths.h" #include "romdb.h" #include "terminal.h" #include "arena.h" #include "config.h" #include "bindings.h" #include "menu.h" #include "zip.h" #include "cdimage.h" #include "event_log.h" #ifndef DISABLE_NUKLEAR #include "nuklear_ui/blastem_nuklear.h" #endif #define BLASTEM_VERSION "0.6.3-pre" #ifdef __ANDROID__ #define FULLSCREEN_DEFAULT 1 #else #define FULLSCREEN_DEFAULT 0 #endif int headless = 0; int exit_after = 0; int z80_enabled = 1; int frame_limit = 0; uint8_t use_native_states = 1; tern_node * config; #define SMD_HEADER_SIZE 512 #define SMD_MAGIC1 0x03 #define SMD_MAGIC2 0xAA #define SMD_MAGIC3 0xBB #define SMD_BLOCK_SIZE 0x4000 #ifdef DISABLE_ZLIB #define ROMFILE FILE* #define romopen fopen #define romread fread #define romseek fseek #define romgetc fgetc #define romclose fclose #else #include "zlib/zlib.h" #define ROMFILE gzFile #define romopen gzopen #define romread gzfread #define romseek gzseek #define romgetc gzgetc #define romclose gzclose #endif uint16_t *process_smd_block(uint16_t *dst, uint8_t *src, size_t bytes) { for (uint8_t *low = src, *high = (src+bytes/2), *end = src+bytes; high < end; high++, low++) { *(dst++) = *low << 8 | *high; } return dst; } int load_smd_rom(ROMFILE f, void **buffer) { uint8_t block[SMD_BLOCK_SIZE]; romseek(f, SMD_HEADER_SIZE, SEEK_SET); size_t filesize = 512 * 1024; size_t readsize = 0; uint16_t *dst, *buf; dst = buf = malloc(filesize); size_t read; do { if ((readsize + SMD_BLOCK_SIZE > filesize)) { filesize *= 2; buf = realloc(buf, filesize); dst = buf + readsize/sizeof(uint16_t); } read = romread(block, 1, SMD_BLOCK_SIZE, f); if (read > 0) { dst = process_smd_block(dst, block, read); readsize += read; } } while(read > 0); romclose(f); *buffer = buf; return readsize; } uint8_t is_smd_format(const char *filename, uint8_t *header) { if (header[1] == SMD_MAGIC1 && header[8] == SMD_MAGIC2 && header[9] == SMD_MAGIC3) { int i; for (i = 3; i < 8; i++) { if (header[i] != 0) { return 0; } } if (i == 8) { if (header[2]) { fatal_error("%s is a split SMD ROM which is not currently supported", filename); } return 1; } } return 0; } uint32_t load_media_zip(const char *filename, system_media *dst) { static const char *valid_exts[] = {"bin", "md", "gen", "sms", "gg", "rom", "smd", "sg"}; const uint32_t num_exts = sizeof(valid_exts)/sizeof(*valid_exts); zip_file *z = zip_open(filename); if (!z) { return 0; } for (uint32_t i = 0; i < z->num_entries; i++) { char *ext = path_extension(z->entries[i].name); if (!ext) { continue; } for (uint32_t j = 0; j < num_exts; j++) { if (!strcasecmp(ext, valid_exts[j])) { size_t out_size = nearest_pow2(z->entries[i].size); dst->buffer = zip_read(z, i, &out_size); if (dst->buffer) { if (is_smd_format(z->entries[i].name, dst->buffer)) { size_t offset; for (offset = 0; offset + SMD_BLOCK_SIZE + SMD_HEADER_SIZE <= out_size; offset += SMD_BLOCK_SIZE) { uint8_t tmp[SMD_BLOCK_SIZE]; uint8_t *u8dst = dst->buffer; memcpy(tmp, u8dst + offset + SMD_HEADER_SIZE, SMD_BLOCK_SIZE); process_smd_block((void *)(u8dst + offset), tmp, SMD_BLOCK_SIZE); } out_size = offset; } dst->extension = ext; dst->dir = path_dirname(filename); if (!dst->dir) { dst->dir = path_current_dir(); } dst->name = basename_no_extension(filename); dst->size = out_size; zip_close(z); return out_size; } } } free(ext); } zip_close(z); return 0; } uint32_t load_media(const char * filename, system_media *dst, system_type *stype) { uint8_t header[10]; char *ext = path_extension(filename); if (ext && !strcasecmp(ext, "zip")) { free(ext); return load_media_zip(filename, dst); } if (ext && !strcasecmp(ext, "iso")) { if (stype) { *stype = SYSTEM_SEGACD; } return make_iso_media(dst, filename); } ROMFILE f = romopen(filename, "rb"); if (!f) { free(ext); return 0; } #ifndef DISABLE_ZLIB char *to_free = NULL; if (!gzdirect(f) && ext && !strcasecmp(ext, "gz")) { size_t without_gz = strlen(filename) - 2; to_free = calloc(1, without_gz); memcpy(to_free, filename, without_gz - 1); to_free[without_gz - 1] = 0; free(ext); filename = to_free; ext = path_extension(filename); } #endif //DISABLE_ZLIB if (sizeof(header) != romread(header, 1, sizeof(header), f)) { fatal_error("Error reading from %s\n", filename); } uint32_t ret = 0; if (is_smd_format(filename, header)) { if (stype) { *stype = SYSTEM_GENESIS; } ret = load_smd_rom(f, &dst->buffer); } if (!ret) { size_t filesize = 512 * 1024; size_t readsize = sizeof(header); char *buf = malloc(filesize); memcpy(buf, header, readsize); size_t read; do { read = romread(buf + readsize, 1, filesize - readsize, f); if (read > 0) { readsize += read; if (readsize == filesize) { int one_more = romgetc(f); if (one_more >= 0) { filesize *= 2; buf = realloc(buf, filesize); buf[readsize++] = one_more; } else { read = 0; } } } } while (read > 0); dst->buffer = buf; ret = (uint32_t)readsize; } dst->dir = path_dirname(filename); if (!dst->dir) { dst->dir = path_current_dir(); } dst->name = basename_no_extension(filename); dst->extension = ext; dst->size = ret; romclose(f); if (!strcasecmp(dst->extension, "cue")) { if (parse_cue(dst)) { if (stype) { *stype = SYSTEM_SEGACD; } } } else if (!strcasecmp(dst->extension, "toc")) { if (parse_toc(dst)) { if (stype) { *stype = SYSTEM_SEGACD; } } } #ifndef DISABLE_ZLIB if (to_free) { free(to_free); } #endif return ret; } int break_on_sync = 0; char *save_state_path; char * save_filename; system_header *current_system; system_header *menu_system; system_header *game_system; void persist_save() { if (!game_system || !game_system->persist_save) { return; } game_system->persist_save(game_system); } char *title; void update_title(char *rom_name) { if (title) { free(title); title = NULL; } title = alloc_concat(rom_name, " - BlastEm"); render_update_caption(title); } static char *get_save_dir(system_media *media) { char *savedir_template = tern_find_path(config, "ui\0save_path\0", TVAL_PTR).ptrval; if (!savedir_template) { savedir_template = "$USERDATA/blastem/$ROMNAME"; } tern_node *vars = tern_insert_ptr(NULL, "ROMNAME", media->name); vars = tern_insert_ptr(vars, "ROMDIR", media->dir); vars = tern_insert_ptr(vars, "HOME", get_home_dir()); vars = tern_insert_ptr(vars, "EXEDIR", get_exe_dir()); vars = tern_insert_ptr(vars, "USERDATA", (char *)get_userdata_dir()); char *save_dir = replace_vars(savedir_template, vars, 1); tern_free(vars); if (!ensure_dir_exists(save_dir)) { warning("Failed to create save directory %s\n", save_dir); } return save_dir; } const char *get_save_fname(uint8_t save_type) { switch(save_type) { case SAVE_I2C: return "save.eeprom"; case SAVE_NOR: return "save.nor"; case SAVE_HBPT: return "save.hbpt"; default: return "save.sram"; } } void setup_saves(system_media *media, system_header *context) { if (!context->load_save) { // system doesn't support saves return; } static uint8_t persist_save_registered; rom_info *info = &context->info; char *save_dir = get_save_dir(info->is_save_lock_on ? media->chain : media); char const *parts[] = {save_dir, PATH_SEP, get_save_fname(info->save_type)}; free(save_filename); save_filename = alloc_concat_m(3, parts); if (info->is_save_lock_on) { //initial save dir was calculated based on lock-on cartridge because that's where the save device is //save directory used for save states should still be located in the normal place free(save_dir); parts[0] = save_dir = get_save_dir(media); } if (use_native_states || context->type != SYSTEM_GENESIS) { parts[2] = "quicksave.state"; } else { parts[2] = "quicksave.gst"; } free(save_state_path); save_state_path = alloc_concat_m(3, parts); context->save_dir = save_dir; if (info->save_type != SAVE_NONE || context->type == SYSTEM_SEGACD || (context->type == SYSTEM_GENESIS && info->wants_cd) ) { context->load_save(context); if (!persist_save_registered) { atexit(persist_save); persist_save_registered = 1; } } } void apply_updated_config(void) { render_config_updated(); set_bindings(); update_pad_bindings(); if (current_system && current_system->config_updated) { current_system->config_updated(current_system); } } static void on_drag_drop(const char *filename) { if (current_system) { if (current_system->next_rom) { free(current_system->next_rom); } current_system->next_rom = strdup(filename); system_request_exit(current_system, 1); if (menu_system && menu_system->type == SYSTEM_GENESIS) { genesis_context *gen = (genesis_context *)menu_system; if (gen->extra) { menu_context *menu = gen->extra; menu->external_game_load = 1; } } } else { init_system_with_media(filename, SYSTEM_UNKNOWN); } #ifndef DISABLE_NUKLEAR if (is_nuklear_active()) { show_play_view(); } #endif } static system_media cart, lock_on; const system_media *current_media(void) { return &cart; } void reload_media(void) { if (!current_system) { return; } if (current_system->next_rom) { free(current_system->next_rom); } char const *parts[] = { cart.dir, PATH_SEP, cart.name, ".", cart.extension }; char const **start = parts[0] ? parts : parts + 2; int num_parts = parts[0] ? 5 : 3; if (!parts[4]) { num_parts -= 2; } current_system->next_rom = alloc_concat_m(num_parts, start); system_request_exit(current_system, 1); } void lockon_media(char *lock_on_path) { reload_media(); cart.chain = &lock_on; free(lock_on.dir); free(lock_on.name); free(lock_on.extension); load_media(lock_on_path, &lock_on, NULL); } static uint32_t opts = 0; static uint8_t force_region = 0; void init_system_with_media(const char *path, system_type force_stype) { if (game_system) { if (game_system->persist_save) { game_system->persist_save(game_system); } //swap to game context arena and mark all allocated pages in it free if (current_system == menu_system) { current_system->arena = set_current_arena(game_system->arena); } mark_all_free(); game_system->free_context(game_system); } else if(current_system) { //start a new arena and save old one in suspended system context current_system->arena = start_new_arena(); } free(cart.dir); free(cart.name); free(cart.extension); system_type stype = SYSTEM_UNKNOWN; if (!(cart.size = load_media(path, &cart, &stype))) { fatal_error("Failed to open %s for reading\n", path); } if (force_stype != SYSTEM_UNKNOWN) { stype = force_stype; } if (stype == SYSTEM_UNKNOWN) { stype = detect_system_type(&cart); } if (stype == SYSTEM_UNKNOWN) { fatal_error("Failed to detect system type for %s\n", path); } //allocate new system context game_system = alloc_config_system(stype, &cart, opts, force_region); if (!game_system) { fatal_error("Failed to configure emulated machine for %s\n", path); } if (menu_system) { menu_system->next_context = game_system; } game_system->next_context = menu_system; setup_saves(&cart, game_system); update_title(game_system->info.name); } char *parse_addr_port(char *arg) { while (*arg && *arg != ':') { ++arg; } if (!*arg) { return NULL; } char *end; int port = strtol(arg + 1, &end, 10); if (port && !*end) { *arg = 0; return arg + 1; } return NULL; } int main(int argc, char ** argv) { set_exe_str(argv[0]); config = load_config(); int width = -1; int height = -1; int debug = 0; int loaded = 0; system_type stype = SYSTEM_UNKNOWN, force_stype = SYSTEM_UNKNOWN; char * romfname = NULL; char * statefile = NULL; char *reader_addr = NULL, *reader_port = NULL; event_reader reader = {0}; debugger_type dtype = DEBUGGER_NATIVE; uint8_t start_in_debugger = 0; uint8_t fullscreen = FULLSCREEN_DEFAULT, use_gl = 1; uint8_t debug_target = 0; char *port; for (int i = 1; i < argc; i++) { if (argv[i][0] == '-') { switch(argv[i][1]) { case 'b': i++; if (i >= argc) { fatal_error("-b must be followed by a frame count\n"); } headless = 1; exit_after = atoi(argv[i]); break; case 'd': start_in_debugger = 1; //allow debugging the menu if (argv[i][2] == 'm') { debug_target = 1; } break; case 'D': gdb_remote_init(); dtype = DEBUGGER_GDB; start_in_debugger = 1; break; case 'e': i++; if (i >= argc) { fatal_error("-e must be followed by a file name\n"); } port = parse_addr_port(argv[i]); if (port) { event_log_tcp(argv[i], port); } else { event_log_file(argv[i]); } break; case 'f': fullscreen = !fullscreen; break; case 'g': use_gl = 0; break; case 'l': opts |= OPT_ADDRESS_LOG; break; case 'v': info_message("blastem %s\n", BLASTEM_VERSION); return 0; break; case 'n': z80_enabled = 0; break; case 'r': i++; if (i >= argc) { fatal_error("-r must be followed by region (J, U or E)\n"); } force_region = translate_region_char(toupper(argv[i][0])); if (!force_region) { fatal_error("'%c' is not a valid region character for the -r option\n", argv[i][0]); } break; case 'm': i++; if (i >= argc) { fatal_error("-r must be followed by a machine type (sms, gen or jag)\n"); } if (!strcmp("sms", argv[i])) { stype = force_stype = SYSTEM_SMS; } else if (!strcmp("gen", argv[i])) { stype = force_stype = SYSTEM_GENESIS; } else if (!strcmp("jag", argv[i])) { stype = force_stype = SYSTEM_JAGUAR; } else if (!strcmp("media", argv[i])) { stype = force_stype = SYSTEM_MEDIA_PLAYER; } else { fatal_error("Unrecognized machine type %s\n", argv[i]); } break; case 's': i++; if (i >= argc) { fatal_error("-s must be followed by a savestate filename\n"); } statefile = argv[i]; break; case 't': force_no_terminal(); break; case 'y': opts |= YM_OPT_WAVE_LOG; break; case 'o': { i++; if (i >= argc) { fatal_error("-o must be followed by a lock on cartridge filename\n"); } if (!load_media(argv[i], &lock_on, NULL)) { fatal_error("Failed to load lock on cartridge %s\n", argv[i]); } cart.chain = &lock_on; break; } case 'h': info_message( "Usage: blastem [OPTIONS] ROMFILE [WIDTH] [HEIGHT]\n" "Options:\n" " -h Print this help text\n" " -r (J|U|E) Force region to Japan, US or Europe respectively\n" " -m MACHINE Force emulated machine type to MACHINE. Valid values are:\n" " sms - Sega Master System/Mark III\n" " gen - Sega Genesis/Megadrive\n" " media - Media Player\n" " -f Toggles fullscreen mode\n" " -g Disable OpenGL rendering\n" " -s FILE Load a GST format savestate from FILE\n" " -o FILE Load FILE as a lock-on cartridge\n" " -d Enter debugger on startup\n" " -n Disable Z80\n" " -v Display version number and exit\n" " -l Log 68K code addresses (useful for assemblers)\n" " -y Log individual YM-2612 channels to WAVE files\n" " -e FILE Write hardware event log to FILE\n" ); return 0; default: fatal_error("Unrecognized switch %s\n", argv[i]); } } else if (!loaded) { reader_port = parse_addr_port(argv[i]); if (reader_port) { reader_addr = argv[i]; } else { if (!load_media(argv[i], &cart, stype == SYSTEM_UNKNOWN ? &stype : NULL)) { fatal_error("Failed to open %s for reading\n", argv[i]); } } romfname = argv[i]; loaded = 1; } else if (width < 0) { width = atoi(argv[i]); } else if (height < 0) { height = atoi(argv[i]); } } int def_width = 0, def_height = 0; char *config_width = tern_find_path(config, "video\0width\0", TVAL_PTR).ptrval; if (config_width) { def_width = atoi(config_width); } if (!def_width) { def_width = 640; } char *config_height = tern_find_path(config, "video\0height\0", TVAL_PTR).ptrval; if (config_height) { def_height = atoi(config_height); } if (!def_height) { def_height = -1; } width = width < 1 ? def_width : width; height = height < 1 ? def_height : height; char *config_fullscreen = tern_find_path(config, "video\0fullscreen\0", TVAL_PTR).ptrval; if (config_fullscreen && !strcmp("on", config_fullscreen)) { fullscreen = !fullscreen; } if (!headless) { if (reader_addr) { render_set_external_sync(1); } render_init(width, height, "BlastEm", fullscreen); render_set_drag_drop_handler(on_drag_drop); } set_bindings(); uint8_t menu = !loaded; uint8_t use_nuklear = 0; #ifndef DISABLE_NUKLEAR use_nuklear = !headless && is_nuklear_available(); #endif if (!loaded && !use_nuklear) { //load menu romfname = tern_find_path(config, "ui\0rom\0", TVAL_PTR).ptrval; if (!romfname) { romfname = "menu.bin"; } if (is_absolute_path(romfname)) { if (!(cart.size = load_media(romfname, &cart, &stype))) { fatal_error("Failed to open UI ROM %s for reading", romfname); } } else { cart.buffer = (uint16_t *)read_bundled_file(romfname, &cart.size); if (!cart.buffer) { fatal_error("Failed to open UI ROM %s for reading", romfname); } uint32_t rom_size = nearest_pow2(cart.size); if (rom_size > cart.size) { cart.buffer = realloc(cart.buffer, rom_size); cart.size = rom_size; } cart.dir = path_dirname(romfname); cart.name = basename_no_extension(romfname); cart.extension = path_extension(romfname); } //force system detection, value on command line is only for games not the menu stype = detect_system_type(&cart); loaded = 1; } char *state_format = tern_find_path(config, "ui\0state_format\0", TVAL_PTR).ptrval; if (state_format && !strcmp(state_format, "gst")) { use_native_states = 0; } else if (state_format && strcmp(state_format, "native")) { warning("%s is not a valid value for the ui.state_format setting. Valid values are gst and native\n", state_format); } if (loaded && !reader_addr) { if (stype == SYSTEM_UNKNOWN) { stype = detect_system_type(&cart); } if (stype == SYSTEM_UNKNOWN) { fatal_error("Failed to detect system type for %s\n", romfname); } current_system = alloc_config_system(stype, &cart, menu ? 0 : opts, force_region); if (!current_system) { fatal_error("Failed to configure emulated machine for %s\n", romfname); } setup_saves(&cart, current_system); update_title(current_system->info.name); if (menu) { menu_system = current_system; } else { game_system = current_system; } } #ifndef DISABLE_NUKLEAR if (use_nuklear) { blastem_nuklear_init(!menu); current_system = game_system; menu = 0; } #endif if (reader_addr) { init_event_reader_tcp(&reader, reader_addr, reader_port); stype = reader_system_type(&reader); if (stype == SYSTEM_UNKNOWN) { fatal_error("Failed to detect system type for %s\n", romfname); } game_system = current_system = alloc_config_player(stype, &reader); //free inflate stream as it was inflateCopied to an internal event reader in the player inflateEnd(&reader.input_stream); setup_saves(&cart, current_system); update_title(current_system->info.name); } current_system->debugger_type = dtype; current_system->enter_debugger = start_in_debugger && menu == debug_target; current_system->start_context(current_system, menu ? NULL : statefile); render_video_loop(); for(;;) { if (current_system->should_exit) { break; } if (current_system->next_rom) { char *next_rom = current_system->next_rom; current_system->next_rom = NULL; init_system_with_media(next_rom, force_stype); free(next_rom); menu = 0; current_system = game_system; current_system->debugger_type = dtype; current_system->enter_debugger = start_in_debugger && menu == debug_target; current_system->start_context(current_system, statefile); render_video_loop(); } else if (menu && game_system) { current_system->arena = set_current_arena(game_system->arena); current_system = game_system; menu = 0; current_system->resume_context(current_system); } else if (!menu && (menu_system || use_nuklear)) { if (use_nuklear) { #ifndef DISABLE_NUKLEAR ui_idle_loop(); #endif } else { current_system->arena = set_current_arena(menu_system->arena); current_system = menu_system; menu = 1; } if (!current_system->next_rom) { current_system->resume_context(current_system); render_video_loop(); } } else { break; } } return 0; }