RetroArch/ssnes.c
2010-05-29 16:59:57 +02:00

366 lines
8.9 KiB
C

/* SSNES - A Super Ninteno Entertainment System (SNES) Emulator frontend for libsnes.
* Copyright (C) 2010 - Hans-Kristian Arntzen
*
* Some code herein may be based on code found in BSNES.
*
* SSNES is free software: you can redistribute it and/or modify it under the terms
* of the GNU General Public License as published by the Free Software Found-
* ation, either version 3 of the License, or (at your option) any later version.
*
* SSNES is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
* without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License along with SSNES.
* If not, see <http://www.gnu.org/licenses/>.
*/
#include <stdbool.h>
#include <GL/glfw.h>
#include <samplerate.h>
#include <libsnes.hpp>
#include <stdio.h>
#include <stdlib.h>
#include <rsound.h>
#include <string.h>
#include "config.h"
#include "driver.h"
#include "hqflt/pastlib.h"
static bool video_active = true;
static bool audio_active = true;
static SRC_STATE* source = NULL;
//////////////////////////////////////////////// Backends
extern const audio_driver_t audio_rsound;
extern const audio_driver_t audio_oss;
extern const audio_driver_t audio_alsa;
extern const video_driver_t video_gl;
////////////////////////////////////////////////
static driver_t driver = {
#if VIDEO_DRIVER == VIDEO_GL
.video = &video_gl,
#else
#error "Define a video driver in config.h"
#endif
#if AUDIO_DRIVER == AUDIO_RSOUND
.audio = &audio_rsound,
#elif AUDIO_DRIVER == AUDIO_OSS
.audio = &audio_oss,
#elif AUDIO_DRIVER == AUDIO_ALSA
.audio = &audio_alsa,
#else
#error "Define an audio driver in config.h"
#endif
};
static void init_drivers(void);
static void uninit_drivers(void);
static void init_video_input(void);
static void uninit_video_input(void);
static void init_audio(void);
static void uninit_audio(void);
static void load_state(const char* path, uint8_t* data, size_t size);
static void write_state(const char* path, uint8_t* data, size_t size);
static void init_drivers(void)
{
init_video_input();
init_audio();
}
static void uninit_drivers(void)
{
uninit_video_input();
uninit_audio();
}
static void init_audio(void)
{
driver.audio_data = driver.audio->init(audio_device, out_rate, out_latency);
if ( driver.audio_data == NULL )
audio_active = false;
int err;
source = src_new(SAMPLERATE_QUALITY, 2, &err);
}
static void uninit_audio(void)
{
if ( driver.audio_data && driver.audio )
driver.audio->free(driver.audio_data);
if ( source )
src_delete(source);
}
static void init_video_input(void)
{
int scale;
#if VIDEO_FILTER == FILTER_NONE
scale = 1;
#elif VIDEO_FILTER == FILTER_HQ2X
scale = 2;
#elif VIDEO_FILTER == FILTER_HQ4X
scale = 4;
#else
scale = 1;
#endif
video_info_t video = {
.width = (fullscreen) ? fullscreen_x : (256 * xscale),
.height = (fullscreen) ? fullscreen_y : (224 * yscale),
.fullscreen = fullscreen,
.vsync = vsync,
.force_aspect = force_aspect,
.smooth = video_smooth,
.input_scale = scale,
};
driver.video_data = driver.video->init(&video, (input_driver_t**)&(driver.input));
if ( driver.video_data == NULL )
{
exit(1);
}
if ( driver.input != NULL )
{
driver.input_data = driver.video_data;
}
else
{
driver.input_data = driver.input->init();
if ( driver.input_data == NULL )
exit(1);
}
}
static void uninit_video_input(void)
{
if ( driver.video_data && driver.video )
driver.video->free(driver.video_data);
if ( driver.input_data != driver.video_data && driver.input )
driver.input->free(driver.input_data);
}
static void video_frame(const uint16_t *data, unsigned width, unsigned height)
{
if ( !video_active )
return;
uint16_t output[width * height];
#if VIDEO_FILTER == FILTER_HQ2X
uint16_t outputHQ2x[width * height * 2 * 2];
#endif
#if VIDEO_FILTER == FILTER_HQ4X
uint16_t outputHQ4x[width * height * 4 * 4];
#endif
int y;
for ( y = 0; y < height; y++ )
{
const uint16_t *src = data + y * 1024;
uint16_t *dst = output + y * width;
memcpy(dst, src, width * sizeof(uint16_t));
}
#if VIDEO_FILTER == FILTER_NONE
if ( !driver.video->frame(driver.video_data, output, width, height) )
video_active = false;
#elif VIDEO_FILTER == FILTER_HQ2X
ProcessHQ2x(output, outputHQ2x);
if ( !driver.video->frame(driver.video_data, outputHQ2x, width * 2, height * 2) )
video_active = false;
#elif VIDEO_FILTER == FILTER_HQ4X
ProcessHQ4x(output, outputHQ4x);
if ( !driver.video->frame(driver.video_data, outputHQ4x, width * 4, height * 4) )
video_active = false;
#else
if ( !driver.video->frame(driver.video_data, output, width, height) )
video_active = false;
#endif
}
static void audio_sample(uint16_t left, uint16_t right)
{
if ( !audio_active )
return;
static float data[256];
static int data_ptr = 0;
data[data_ptr++] = (float)(*(int16_t*)&left)/0x7FFF;
data[data_ptr++] = (float)(*(int16_t*)&right)/0x7FFF;
if ( data_ptr == 256 )
{
float outsamples[2048];
int16_t temp_outsamples[4096];
SRC_DATA src_data;
src_data.data_in = data;
src_data.data_out = outsamples;
src_data.input_frames = 128;
src_data.output_frames = 1024;
src_data.end_of_input = 0;
src_data.src_ratio = (double)out_rate / (double)in_rate;
src_process(source, &src_data);
src_float_to_short_array(outsamples, temp_outsamples, src_data.output_frames_gen * 4);
if ( driver.audio->write(driver.audio_data, temp_outsamples, src_data.output_frames_gen * 4) < 0 )
audio_active = false;
data_ptr = 0;
}
}
static void input_poll(void)
{
driver.input->poll(driver.input_data);
}
static int16_t input_state(bool port, unsigned device, unsigned index, unsigned id)
{
return driver.input->input_state(driver.input_data, snes_keybinds, port, device, index, id);
}
int main(int argc, char *argv[])
{
if ( argc != 2 )
{
fprintf(stderr, "Usage: %s file\n", argv[0]);
exit(1);
}
FILE *file = fopen(argv[1], "rb");
if ( file == NULL )
{
fprintf(stderr, "Could not open file: \"%s\"\n", argv[1]);
exit(1);
}
char savefile_name[strlen(argv[1]+5)];
strcpy(savefile_name, argv[1]);
strcat(savefile_name, ".sav");
init_drivers();
snes_init();
snes_set_video_refresh(video_frame);
snes_set_audio_sample(audio_sample);
snes_set_input_poll(input_poll);
snes_set_input_state(input_state);
fseek(file, 0, SEEK_END);
long length = ftell(file);
rewind(file);
if ((length & 0x7fff) == 512)
{
length -= 512;
fseek(file, 512, SEEK_SET);
}
void *rom_buf = malloc(length);
if ( rom_buf == NULL )
{
fprintf(stderr, "SSNES [ERROR] :: Couldn't allocate memory!\n");
exit(1);
}
if ( fread(rom_buf, 1, length, file) < length )
{
fprintf(stderr, "SSNES [ERROR] :: Didn't read whole file.\n");
exit(1);
}
fclose(file);
snes_load_cartridge_normal(NULL, rom_buf, length);
free(rom_buf);
unsigned serial_size = snes_serialize_size();
uint8_t *serial_data = malloc(serial_size);
snes_serialize(serial_data, serial_size);
load_state(savefile_name, serial_data, serial_size);
snes_reset();
///// TODO: Modular friendly!!!
for(;;)
{
int quitting = glfwGetKey(GLFW_KEY_ESC) || !glfwGetWindowParam(GLFW_OPENED);
if ( quitting )
break;
if ( glfwGetKey( SAVE_STATE_KEY ))
{
write_state(savefile_name, serial_data, serial_size);
}
else if ( glfwGetKey( LOAD_STATE_KEY ) )
load_state(savefile_name, serial_data, serial_size);
else if ( glfwGetKey( TOGGLE_FULLSCREEN ) )
{
fullscreen = !fullscreen;
uninit_drivers();
init_drivers();
}
snes_run();
}
write_state(savefile_name, serial_data, serial_size);
snes_unload();
snes_term();
uninit_drivers();
return 0;
}
static void write_state(const char* path, uint8_t* data, size_t size)
{
FILE *file = fopen(path, "wb");
if ( file != NULL )
{
//fprintf(stderr, "SSNES: Saving state. Size: %d bytes.\n", (int)size);
snes_serialize(data, size);
if ( fwrite(data, 1, size, file) != size )
fprintf(stderr, "SSNES [WARN]: Did not save state properly.");
fclose(file);
}
}
static void load_state(const char* path, uint8_t* data, size_t size)
{
FILE *file = fopen(path, "rb");
if ( file != NULL )
{
//fprintf(stderr, "SSNES: Loading state. Size: %d bytes.\n", (int)size);
if ( fread(data, 1, size, file) != size )
fprintf(stderr, "SSNES [WARN]: Did not load state properly.");
fclose(file);
snes_unserialize(data, size);
}
}