SameBoy/libretro/libretro.c

540 lines
14 KiB
C
Raw Normal View History

2017-04-20 19:03:52 +00:00
#include <stdio.h>
#include <stdbool.h>
#include <unistd.h>
#include <time.h>
#include <assert.h>
#include <signal.h>
#include <stdarg.h>
#define AUDIO_FREQUENCY 44100
#ifdef _WIN32
#include <direct.h>
#include <windows.h>
#define snprintf _snprintf
#endif
2017-12-22 05:10:41 +00:00
#define SAMEBOY_CORE_VERSION "0.9"
2017-10-12 21:02:02 +00:00
#include <Core/gb.h>
2017-04-20 19:03:52 +00:00
#include "libretro.h"
#ifdef _WIN32
char slash = '\\';
#else
char slash = '/';
#endif
#define VIDEO_WIDTH 160
#define VIDEO_HEIGHT 144
#define VIDEO_PIXELS VIDEO_WIDTH * VIDEO_HEIGHT
char battery_save_path[512];
char symbols_path[512];
static uint32_t *frame_buf;
static struct retro_log_callback logging;
static retro_log_printf_t log_cb;
static retro_video_refresh_t video_cb;
static retro_audio_sample_batch_t audio_batch_cb;
static retro_input_poll_t input_poll_cb;
static retro_input_state_t input_state_cb;
signed short soundbuf[1024*2];
char retro_system_directory[4096];
char retro_save_directory[4096];
2017-04-20 19:03:52 +00:00
char retro_game_path[4096];
int RLOOP=1;
GB_gameboy_t gb;
extern const unsigned char dmg_boot[], cgb_boot[];
extern const unsigned dmg_boot_length, cgb_boot_length;
2017-04-20 19:03:52 +00:00
static void fallback_log(enum retro_log_level level, const char *fmt, ...)
{
(void)level;
va_list va;
va_start(va, fmt);
vfprintf(stderr, fmt, va);
va_end(va);
}
2017-04-21 15:56:59 +00:00
static void replace_extension(const char *src, size_t length, char *dest, const char *ext)
{
memcpy(dest, src, length);
dest[length] = 0;
/* Remove extension */
for (size_t i = length; i--;) {
if (dest[i] == '/') break;
if (dest[i] == '.') {
dest[i] = 0;
break;
}
}
/* Add new extension */
strcat(dest, ext);
}
2017-04-20 19:03:52 +00:00
2017-10-15 23:46:37 +00:00
static struct retro_rumble_interface rumble;
2017-04-20 19:03:52 +00:00
static void GB_update_keys_status(GB_gameboy_t *gb)
{
2017-04-21 15:56:59 +00:00
input_poll_cb();
GB_set_key_state(gb, GB_KEY_RIGHT,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT));
GB_set_key_state(gb, GB_KEY_LEFT, input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT));
GB_set_key_state(gb, GB_KEY_UP,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP) );
GB_set_key_state(gb, GB_KEY_DOWN,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN));
GB_set_key_state(gb, GB_KEY_A,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A) );
GB_set_key_state(gb, GB_KEY_B,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B) );
GB_set_key_state(gb, GB_KEY_SELECT,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT));
2017-10-15 23:46:37 +00:00
GB_set_key_state(gb, GB_KEY_START,input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START) );
if (gb->rumble_state)
rumble.set_rumble_state(0, RETRO_RUMBLE_STRONG, 65535);
else
rumble.set_rumble_state(0, RETRO_RUMBLE_STRONG, 0);
2017-04-20 19:03:52 +00:00
}
static void audio_callback(void *gb)
{
GB_apu_copy_buffer(gb, (GB_sample_t *) soundbuf, (float)AUDIO_FREQUENCY / 59.72);
audio_batch_cb(soundbuf, (float)AUDIO_FREQUENCY / 59.72);
2017-04-20 19:03:52 +00:00
}
static void vblank(GB_gameboy_t *gb)
{
2017-04-25 02:02:04 +00:00
GB_update_keys_status(gb);
GB_set_pixels_output(gb, frame_buf);
audio_callback(gb);
2017-04-20 19:03:52 +00:00
}
static uint32_t rgb_encode(GB_gameboy_t *gb, uint8_t r, uint8_t g, uint8_t b)
{
return r<<16|g<<8|b;
}
#ifndef DISABLE_DEBUGGER
2017-04-20 19:03:52 +00:00
static void debugger_interrupt(int ignore)
{
/* ^C twice to exit */
if (GB_debugger_is_stopped(&gb))
2017-04-20 19:03:52 +00:00
exit(0);
GB_debugger_break(&gb);
}
#endif
2017-04-20 19:03:52 +00:00
static retro_environment_t environ_cb;
void retro_init(void)
{
frame_buf = (uint32_t*)malloc(VIDEO_PIXELS * sizeof(uint32_t));
const char *dir = NULL;
if (environ_cb(RETRO_ENVIRONMENT_GET_SYSTEM_DIRECTORY, &dir) && dir)
snprintf(retro_system_directory, sizeof(retro_system_directory), "%s", dir);
else
snprintf(retro_system_directory, sizeof(retro_system_directory), "%s", ".");
2017-04-25 02:26:05 +00:00
if (environ_cb(RETRO_ENVIRONMENT_GET_SAVE_DIRECTORY, &dir) && dir)
snprintf(retro_save_directory, sizeof(retro_save_directory), "%s", dir);
else
2017-04-25 02:26:05 +00:00
snprintf(retro_save_directory, sizeof(retro_save_directory), "%s", ".");
2017-04-20 19:03:52 +00:00
}
void retro_deinit(void)
{
free(frame_buf);
frame_buf = NULL;
}
unsigned retro_api_version(void)
{
return RETRO_API_VERSION;
}
void retro_set_controller_port_device(unsigned port, unsigned device)
{
log_cb(RETRO_LOG_INFO, "Plugging device %u into port %u.\n", device, port);
}
void retro_get_system_info(struct retro_system_info *info)
{
memset(info, 0, sizeof(*info));
2017-04-25 01:50:35 +00:00
info->library_name = "SameBoy";
2017-12-22 05:10:41 +00:00
#ifdef GIT_VERSION
info->library_version = SAMEBOY_CORE_VERSION GIT_VERSION;
#else
info->library_version = SAMEBOY_CORE_VERSION;
#endif
2017-04-20 19:03:52 +00:00
info->need_fullpath = true;
info->valid_extensions = "gb|gbc";
}
void retro_get_system_av_info(struct retro_system_av_info *info)
{
struct retro_game_geometry geom = { VIDEO_WIDTH, VIDEO_HEIGHT,VIDEO_WIDTH, VIDEO_HEIGHT ,160.0 / 144.0 };
2017-04-25 01:50:35 +00:00
struct retro_system_timing timing = { 59.72, 44100.0 };
2017-04-20 19:03:52 +00:00
info->geometry = geom;
info->timing = timing;
}
void retro_set_environment(retro_environment_t cb)
{
environ_cb = cb;
if (cb(RETRO_ENVIRONMENT_GET_LOG_INTERFACE, &logging))
log_cb = logging.log;
else
log_cb = fallback_log;
static const struct retro_controller_description controllers[] = {
{ "Nintendo Gameboy", RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_JOYPAD, 0) },
2017-04-20 19:03:52 +00:00
};
static const struct retro_controller_info ports[] = {
{ controllers, 1 },
{ NULL, 0 },
};
cb(RETRO_ENVIRONMENT_SET_CONTROLLER_INFO, (void*)ports);
}
void retro_set_audio_sample(retro_audio_sample_t cb)
{
}
void retro_set_audio_sample_batch(retro_audio_sample_batch_t cb)
{
audio_batch_cb = cb;
}
void retro_set_input_poll(retro_input_poll_t cb)
{
input_poll_cb = cb;
}
void retro_set_input_state(retro_input_state_t cb)
{
input_state_cb = cb;
}
void retro_set_video_refresh(retro_video_refresh_t cb)
{
video_cb = cb;
}
void retro_reset(void)
{
2017-10-15 23:08:31 +00:00
GB_reset(&gb);
2017-04-20 19:03:52 +00:00
}
static void check_variables(void)
{
2017-10-15 04:07:57 +00:00
struct retro_variable var = {0};
2017-04-20 19:03:52 +00:00
2017-10-15 04:07:57 +00:00
var.key = "sameboy_color_correction_mode";
var.value = NULL;
2017-10-16 02:54:44 +00:00
if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value && GB_is_cgb(&gb))
2017-10-15 04:07:57 +00:00
{
if (strcmp(var.value, "off") == 0)
GB_set_color_correction_mode(&gb, GB_COLOR_CORRECTION_DISABLED);
else if (strcmp(var.value, "correct curves") == 0)
GB_set_color_correction_mode(&gb, GB_COLOR_CORRECTION_CORRECT_CURVES);
else if (strcmp(var.value, "emulate hardware") == 0)
GB_set_color_correction_mode(&gb, GB_COLOR_CORRECTION_EMULATE_HARDWARE);
else if (strcmp(var.value, "preserve brightness") == 0)
GB_set_color_correction_mode(&gb, GB_COLOR_CORRECTION_PRESERVE_BRIGHTNESS);
}
var.key = "sameboy_high_pass_filter_mode";
var.value = NULL;
if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value)
{
if (strcmp(var.value, "off") == 0)
GB_set_highpass_filter_mode(&gb, GB_HIGHPASS_OFF);
else if (strcmp(var.value, "accurate") == 0)
GB_set_highpass_filter_mode(&gb, GB_HIGHPASS_ACCURATE);
else if (strcmp(var.value, "remove dc offset") == 0)
GB_set_highpass_filter_mode(&gb, GB_HIGHPASS_REMOVE_DC_OFFSET);
}
2017-04-20 19:03:52 +00:00
}
void retro_run(void)
{
static int frames;
size_t samples;
2017-04-20 19:03:52 +00:00
bool updated = false;
if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE_UPDATE, &updated) && updated)
check_variables();
samples = GB_apu_get_current_buffer_length(&gb);
if (!(frames < (samples / 35112)))
{
GB_run_frame(&gb);
frames ++;
}
else
frames = 0;
2017-04-20 19:03:52 +00:00
video_cb(frame_buf, VIDEO_WIDTH, VIDEO_HEIGHT, 0);
}
bool retro_load_game(const struct retro_game_info *info)
{
struct retro_input_descriptor desc[] = {
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT, "Left" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP, "Up" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN, "Down" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "Right" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B, "B" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A, "A" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT, "Select" },
{ 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START, "Start" },
2017-04-20 19:03:52 +00:00
{ 0 },
};
environ_cb(RETRO_ENVIRONMENT_SET_INPUT_DESCRIPTORS, desc);
enum retro_pixel_format fmt = RETRO_PIXEL_FORMAT_XRGB8888;
if (!environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &fmt))
{
log_cb(RETRO_LOG_INFO, "XRGB8888 is not supported.\n");
return false;
}
snprintf(retro_game_path, sizeof(retro_game_path), "%s", info->path);
char buf[256];
int err = 0;
2017-04-25 02:02:04 +00:00
if (!strstr(info->path, "gbc"))
2017-04-20 19:03:52 +00:00
{
GB_init(&gb);
snprintf(buf, sizeof(buf), "%s%cdmg_boot.bin", retro_system_directory, slash);
log_cb(RETRO_LOG_INFO, "Loading boot image: %s\n", buf);
2017-04-20 19:03:52 +00:00
err = GB_load_boot_rom(&gb, buf);
2017-04-23 08:50:07 +00:00
if (err) {
GB_load_boot_rom_from_buffer(&gb, dmg_boot, dmg_boot_length);
err = 0;
}
2017-04-20 19:03:52 +00:00
}
else
{
GB_init_cgb(&gb);
snprintf(buf, sizeof(buf), "%s%ccgb_boot.bin", retro_system_directory, slash);
log_cb(RETRO_LOG_INFO, "Loading boot image: %s\n", buf);
2017-04-20 19:03:52 +00:00
err = GB_load_boot_rom(&gb, buf);
2017-04-23 08:50:07 +00:00
if (err) {
GB_load_boot_rom_from_buffer(&gb, cgb_boot, cgb_boot_length);
err = 0;
}
2017-04-20 19:03:52 +00:00
}
if (err)
log_cb(RETRO_LOG_INFO, "Failed to load boot ROM %s %d\n", buf, err);
(void)info;
if (GB_load_rom(&gb,info->path)) {
perror("Failed to load ROM");
exit(1);
}
2017-04-25 02:02:04 +00:00
GB_set_vblank_callback(&gb, (GB_vblank_callback_t) vblank);
GB_set_user_data(&gb, (void*)NULL);
2017-05-04 01:40:01 +00:00
GB_set_pixels_output(&gb,(unsigned int*)frame_buf);
2017-04-25 02:02:04 +00:00
GB_set_rgb_encode_callback(&gb, rgb_encode);
2017-04-20 19:03:52 +00:00
2017-04-25 02:02:04 +00:00
size_t path_length = strlen(retro_game_path);
2017-04-20 19:03:52 +00:00
#ifndef DISABLE_DEBUGGER
{
char TMPC[512];
sprintf(TMPC,"%s/registers.sym",retro_system_directory);
GB_debugger_load_symbol_file(&gb, TMPC);
}
#endif
2017-04-25 02:02:04 +00:00
replace_extension(retro_game_path, path_length, symbols_path, ".sym");
#ifndef DISABLE_DEBUGGER
2017-04-25 02:02:04 +00:00
GB_debugger_load_symbol_file(&gb, symbols_path);
#endif
2017-04-20 19:03:52 +00:00
2017-04-25 02:02:04 +00:00
GB_set_sample_rate(&gb, AUDIO_FREQUENCY);
2017-10-15 17:24:29 +00:00
struct retro_memory_descriptor descs[7];
size_t size;
uint16_t bank;
memset(descs, 0, sizeof(descs));
descs[0].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_IE, &size, &bank);
descs[0].start = 0xFFFF;
descs[0].len = 1;
descs[1].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_HRAM, &size, &bank);
descs[1].start = 0xFF80;
descs[1].len = 0x0080;
descs[2].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_RAM, &size, &bank);
descs[2].start = 0xC000;
descs[2].len = 0x2000;
descs[3].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_CART_RAM, &size, &bank);
descs[3].start = 0xA000;
descs[3].len = 0x2000;
descs[4].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_VRAM, &size, &bank);
descs[4].start = 0x8000;
descs[4].len = 0x2000;
descs[5].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_ROM, &size, &bank);
descs[5].start = 0x0000;
descs[5].len = 0x4000;
descs[5].flags = RETRO_MEMDESC_CONST;
descs[6].ptr = GB_get_direct_access(&gb, GB_DIRECT_ACCESS_OAM, &size, &bank);
descs[6].start = 0xFE00;
descs[6].len = 0x00A0;
struct retro_memory_map mmaps;
mmaps.descriptors = descs;
mmaps.num_descriptors = sizeof(descs) / sizeof(descs[0]);
environ_cb(RETRO_ENVIRONMENT_SET_MEMORY_MAPS, &mmaps);
bool yes = true;
environ_cb(RETRO_ENVIRONMENT_SET_SUPPORT_ACHIEVEMENTS, &yes);
2017-10-15 23:46:37 +00:00
if (environ_cb(RETRO_ENVIRONMENT_GET_RUMBLE_INTERFACE, &rumble))
log_cb(RETRO_LOG_INFO, "Rumble environment supported.\n");
else
log_cb(RETRO_LOG_INFO, "Rumble environment not supported.\n");
2017-10-16 02:54:44 +00:00
static struct retro_variable vars_cgb[] = {
{ "sameboy_color_correction_mode", "Color Correction; off|correct curves|emulate hardware|preserve brightness" },
{ "sameboy_high_pass_filter_mode", "High Pass Filter; off|accurate|remove dc offset" },
{ NULL }
};
static struct retro_variable vars_dmg[] = {
{ "sameboy_high_pass_filter_mode", "High Pass Filter; off|accurate|remove dc offset" },
{ NULL }
};
if (GB_is_cgb(&gb))
environ_cb(RETRO_ENVIRONMENT_SET_VARIABLES, vars_cgb);
else
environ_cb(RETRO_ENVIRONMENT_SET_VARIABLES, vars_dmg);
2017-10-15 20:48:56 +00:00
check_variables();
2017-04-20 19:03:52 +00:00
return true;
}
void retro_unload_game(void)
{
2017-10-15 23:08:31 +00:00
GB_free(&gb);
2017-04-20 19:03:52 +00:00
}
unsigned retro_get_region(void)
{
return RETRO_REGION_NTSC;
}
bool retro_load_game_special(unsigned type, const struct retro_game_info *info, size_t num)
{
return false;
}
size_t retro_serialize_size(void)
{
return GB_get_save_state_size(&gb);
2017-04-20 19:03:52 +00:00
}
bool retro_serialize(void *data, size_t size)
2017-04-20 19:03:52 +00:00
{
GB_save_state_to_buffer(&gb, (uint8_t*) data);
if (data)
return true;
else
return false;
2017-04-20 19:03:52 +00:00
}
bool retro_unserialize(const void *data, size_t size)
2017-04-20 19:03:52 +00:00
{
if (GB_load_state_from_buffer(&gb, (uint8_t*) data, size) == 0)
return true;
else
return false;
2017-04-20 19:03:52 +00:00
}
void *retro_get_memory_data(unsigned type)
2017-04-20 19:03:52 +00:00
{
void* data;
switch(type)
{
case RETRO_MEMORY_SAVE_RAM:
if (gb.cartridge_type->has_battery && gb.mbc_ram_size != 0)
data = gb.mbc_ram;
else
data = NULL;
break;
case RETRO_MEMORY_RTC:
if(gb.cartridge_type->has_battery)
data = &gb.rtc_real;
else
data = NULL;
break;
default:
data = NULL;
break;
}
return data;
2017-04-20 19:03:52 +00:00
}
size_t retro_get_memory_size(unsigned type)
2017-04-20 19:03:52 +00:00
{
size_t size;
switch(type)
{
case RETRO_MEMORY_SAVE_RAM:
if (gb.cartridge_type->has_battery && gb.mbc_ram_size != 0)
size = gb.mbc_ram_size;
else
size = 0;
break;
case RETRO_MEMORY_RTC:
if(gb.cartridge_type->has_battery)
size = sizeof (gb.rtc_real);
else
size = 0;
break;
default:
size = 0;
break;
}
return size;
2017-04-20 19:03:52 +00:00
}
void retro_cheat_reset(void)
{}
void retro_cheat_set(unsigned index, bool enabled, const char *code)
{
(void)index;
(void)enabled;
(void)code;
}