redquark-amiberry-rb/src/main.cpp
2017-02-02 23:19:09 +01:00

794 lines
19 KiB
C++

/*
* UAE - The Un*x Amiga Emulator
*
* Main program
*
* Copyright 1995 Ed Hanway
* Copyright 1995, 1996, 1997 Bernd Schmidt
*/
#include "sysconfig.h"
#include "sysdeps.h"
#include <assert.h>
#include "options.h"
#include "threaddep/thread.h"
#include "uae.h"
#include "gensound.h"
#include "audio.h"
#include "include/memory.h"
#include "custom.h"
#include "newcpu.h"
#include "disk.h"
#include "xwin.h"
#include "inputdevice.h"
#include "keybuf.h"
#include "gui.h"
#include "zfile.h"
#include "autoconf.h"
#include "traps.h"
#include "osemu.h"
#include "picasso96.h"
#include "bsdsocket.h"
#include "native2amiga.h"
#include "akiko.h"
#include "savestate.h"
#include "blkdev.h"
#include "uaeresource.h"
#include "gfxboard.h"
#ifdef JIT
#include "jit/compemu.h"
#endif
#ifdef USE_SDL
#include "SDL.h"
#include <iostream>
#include "pandora_gfx.h"
SDL_Window* sdlWindow;
SDL_Renderer* renderer;
SDL_Texture *texture;
#endif
#ifdef CAPSLOCK_DEBIAN_WORKAROUND
#include <linux/kd.h>
#include <sys/ioctl.h>
#include "keyboard.h"
#endif
long int version = 256 * 65536L*UAEMAJOR + 65536L*UAEMINOR + UAESUBREV;
struct uae_prefs currprefs, changed_prefs;
bool no_gui = false;
bool cloanto_rom = false;
bool kickstart_rom = true;
struct gui_info gui_data;
TCHAR optionsfile[256];
void my_trim(TCHAR *s)
{
int len;
while (_tcslen(s) > 0 && _tcscspn(s, _T("\t \r\n")) == 0)
memmove(s, s + 1, (_tcslen(s + 1) + 1) * sizeof(TCHAR));
len = _tcslen(s);
while (len > 0 && _tcscspn(s + len - 1, _T("\t \r\n")) == 0)
s[--len] = '\0';
}
TCHAR *my_strdup_trim(const TCHAR *s)
{
TCHAR *out;
int len;
while (_tcscspn(s, _T("\t \r\n")) == 0)
s++;
len = _tcslen(s);
while (len > 0 && _tcscspn(s + len - 1, _T("\t \r\n")) == 0)
len--;
out = xmalloc(TCHAR, len + 1);
memcpy(out, s, len * sizeof(TCHAR));
out[len] = 0;
return out;
}
void discard_prefs(struct uae_prefs *p, int type)
{
struct strlist **ps = &p->all_lines;
while (*ps) {
struct strlist *s = *ps;
*ps = s->next;
xfree(s->value);
xfree(s->option);
xfree(s);
}
#ifdef FILESYS
filesys_cleanup();
p->mountitems = 0;
#endif
}
static void fixup_prefs_dim2(struct wh *wh)
{
if (wh->width < 320) {
error_log(_T("Width (%d) must be at least 320."), wh->width);
wh->width = 320;
}
if (wh->height < 200) {
error_log(_T("Height (%d) must be at least 200."), wh->height);
wh->height = 200;
}
if (wh->width > max_uae_width) {
error_log(_T("Width (%d) max is %d."), wh->width, max_uae_width);
wh->width = max_uae_width;
}
if (wh->height > max_uae_height) {
error_log(_T("Height (%d) max is %d."), wh->height, max_uae_height);
wh->height = max_uae_height;
}
}
void fixup_prefs_dimensions(struct uae_prefs *prefs)
{
fixup_prefs_dim2(&prefs->gfx_size_fs);
fixup_prefs_dim2(&prefs->gfx_size_win);
}
void fixup_cpu(struct uae_prefs *p)
{
if (p->cpu_model >= 68030 && p->address_space_24) {
error_log(_T("24-bit address space is not supported in 68030/040/060 configurations."));
p->address_space_24 = false;
}
if (p->cpu_model < 68020 && p->fpu_model && (p->cpu_compatible)) {
error_log(_T("FPU is not supported in 68000/010 configurations."));
p->fpu_model = 0;
}
switch (p->cpu_model)
{
case 68000:
p->address_space_24 = true;
break;
case 68010:
p->address_space_24 = true;
break;
case 68020:
break;
case 68030:
break;
case 68040:
if (p->fpu_model)
p->fpu_model = 68040;
break;
}
if (p->cpu_model >= 68040 && p->cachesize && p->cpu_compatible)
p->cpu_compatible = false;
if (p->immediate_blits && p->waiting_blits) {
error_log(_T("Immediate blitter and waiting blits can't be enabled simultaneously.\n"));
p->waiting_blits = 0;
}
}
void fixup_prefs(struct uae_prefs *p)
{
int err = 0;
fixup_cpu(p);
if (((p->chipmem_size & (p->chipmem_size - 1)) != 0 && p->chipmem_size != 0x180000)
|| p->chipmem_size < 0x20000
|| p->chipmem_size > 0x800000)
{
error_log(_T("Unsupported chipmem size %d (0x%x)."), p->chipmem_size, p->chipmem_size);
p->chipmem_size = 0x200000;
err = 1;
}
if ((p->fastmem_size & (p->fastmem_size - 1)) != 0
|| (p->fastmem_size != 0 && (p->fastmem_size < 0x100000 || p->fastmem_size > 0x800000)))
{
error_log(_T("Unsupported fastmem size %d (0x%x)."), p->fastmem_size, p->fastmem_size);
p->fastmem_size = 0;
err = 1;
}
if (p->rtgmem_size > 0x1000000 && p->rtgmem_type == GFXBOARD_UAE_Z3) {
error_log(_T("Graphics card memory size %d (0x%x) larger than maximum reserved %d (0x%x)."), p->rtgmem_size, p->rtgmem_size, 0x1000000, 0x1000000);
p->rtgmem_size = 0x1000000;
err = 1;
}
if ((p->rtgmem_size & (p->rtgmem_size - 1)) != 0 || (p->rtgmem_size != 0 && (p->rtgmem_size < 0x100000))) {
error_log(_T("Unsupported graphics card memory size %d (0x%x)."), p->rtgmem_size, p->rtgmem_size);
if (p->rtgmem_size > 0x1000000)
p->rtgmem_size = 0x1000000;
else
p->rtgmem_size = 0;
err = 1;
}
if (p->z3fastmem_size > max_z3fastmem) {
error_log(_T("Zorro III fastmem size %d (0x%x) larger than max reserved %d (0x%x)."), p->z3fastmem_size, p->z3fastmem_size, max_z3fastmem, max_z3fastmem);
p->z3fastmem_size = max_z3fastmem;
err = 1;
}
if ((p->z3fastmem_size & (p->z3fastmem_size - 1)) != 0 || (p->z3fastmem_size != 0 && p->z3fastmem_size < 0x100000))
{
error_log(_T("Unsupported Zorro III fastmem size %d (0x%x)."), p->z3fastmem_size, p->z3fastmem_size);
p->z3fastmem_size = 0;
err = 1;
}
p->z3fastmem_start &= ~0xffff;
if (p->z3fastmem_start < 0x1000000)
p->z3fastmem_start = 0x1000000;
if (p->address_space_24 && (p->z3fastmem_size != 0)) {
p->z3fastmem_size = 0;
error_log(_T("Can't use a Z3 graphics card or 32-bit memory when using a 24 bit address space."));
}
if (p->bogomem_size != 0 && p->bogomem_size != 0x80000 && p->bogomem_size != 0x100000 && p->bogomem_size != 0x180000 && p->bogomem_size != 0x1c0000) {
error_log(_T("Unsupported bogomem size %d (0x%x)"), p->bogomem_size, p->bogomem_size);
p->bogomem_size = 0;
err = 1;
}
if (p->bogomem_size > 0x180000 && ((p->chipset_mask & CSMASK_AGA) || p->cpu_model >= 68020)) {
p->bogomem_size = 0x180000;
error_log(_T("Possible Gayle bogomem conflict fixed."));
}
if (p->chipmem_size > 0x200000 && p->fastmem_size != 0) {
error_log(_T("You can't use fastmem and more than 2MB chip at the same time."));
p->fastmem_size = 0;
err = 1;
}
if (p->address_space_24 && p->rtgmem_size && p->rtgmem_type == GFXBOARD_UAE_Z3) {
error_log(_T("Z3 RTG and 24bit address space are not compatible."));
p->rtgmem_type = GFXBOARD_UAE_Z2;
}
if (p->rtgmem_type == GFXBOARD_UAE_Z2 && (p->chipmem_size > 2 * 1024 * 1024 || getz2size(p) > 8 * 1024 * 1024 || getz2size(p) < 0)) {
p->rtgmem_size = 0;
error_log(_T("Too large Z2 RTG memory size."));
}
if (p->produce_sound < 0 || p->produce_sound > 3) {
error_log(_T("Bad value for -S parameter: enable value must be within 0..3."));
p->produce_sound = 0;
err = 1;
}
if (p->cachesize < 0 || p->cachesize > 16384) {
error_log(_T("Bad value for cachesize parameter: value must be within 0..16384."));
p->cachesize = 0;
err = 1;
}
if (p->z3fastmem_size && (p->address_space_24 || p->cpu_model < 68020)) {
error_log(_T("Z3 fast memory can't be used with a 68000/68010 emulation. Turning off Z3 fast memory."));
p->z3fastmem_size = 0;
err = 1;
}
if (p->rtgmem_size > 0 && p->rtgmem_type == GFXBOARD_UAE_Z3 && (p->cpu_model < 68020 || p->address_space_24)) {
error_log(_T("UAEGFX RTG can't be used with a 68000/68010 or 68EC020 emulation. Turning off RTG."));
p->rtgmem_size = 0;
err = 1;
}
#if !defined (BSDSOCKET)
if (p->socket_emu) {
write_log(_T("Compile-time option of BSDSOCKET_SUPPORTED was not enabled. You can't use bsd-socket emulation.\n"));
p->socket_emu = 0;
err = 1;
}
#endif
if (p->nr_floppies < 0 || p->nr_floppies > 4) {
error_log(_T("Invalid number of floppies. Using 2."));
p->nr_floppies = 2;
p->floppyslots[0].dfxtype = 0;
p->floppyslots[1].dfxtype = 0;
p->floppyslots[2].dfxtype = -1;
p->floppyslots[3].dfxtype = -1;
err = 1;
}
if (p->floppy_speed > 0 && p->floppy_speed < 10) {
error_log(_T("Invalid floppy speed."));
p->floppy_speed = 100;
}
if (p->collision_level < 0 || p->collision_level > 3) {
error_log(_T("Invalid collision support level. Using 1."));
p->collision_level = 1;
err = 1;
}
fixup_prefs_dimensions(p);
#if !defined (JIT)
p->cachesize = 0;
#endif
#ifdef CPU_68000_ONLY
p->cpu_model = 68000;
p->fpu_model = 0;
#endif
#ifndef AGA
p->chipset_mask &= ~CSMASK_AGA;
#endif
#ifndef AUTOCONFIG
p->z3fastmem_size = 0;
p->fastmem_size = 0;
p->rtgmem_size = 0;
#endif
#if !defined (BSDSOCKET)
p->socket_emu = 0;
#endif
blkdev_fix_prefs(p);
target_fixup_options(p);
}
int quit_program = 0;
static int restart_program;
static TCHAR restart_config[MAX_DPATH];
static int default_config;
void uae_reset(int hardreset, int keyboardreset)
{
if (quit_program == 0) {
quit_program = -UAE_RESET;
if (keyboardreset)
quit_program = -UAE_RESET_KEYBOARD;
if (hardreset)
quit_program = -UAE_RESET_HARD;
}
}
void uae_quit()
{
if (quit_program != -UAE_QUIT) {
quit_program = -UAE_QUIT;
regs.spcflags |= SPCFLAG_MODE_CHANGE;
}
target_quit();
}
void host_shutdown()
{
system("sudo poweroff");
}
/* 0 = normal, 1 = nogui, -1 = disable nogui */
void uae_restart(int opengui, const TCHAR *cfgfile)
{
uae_quit();
restart_program = opengui > 0 ? 1 : (opengui == 0 ? 2 : 3);
restart_config[0] = 0;
default_config = 0;
if (cfgfile)
_tcscpy(restart_config, cfgfile);
target_restart();
}
static void parse_cmdline_2(int argc, TCHAR **argv)
{
int i;
cfgfile_addcfgparam(nullptr);
for (i = 1; i < argc; i++) {
if (_tcsncmp(argv[i], _T("-cfgparam="), 10) == 0) {
cfgfile_addcfgparam(argv[i] + 10);
}
else if (_tcscmp(argv[i], _T("-cfgparam")) == 0) {
if (i + 1 == argc)
write_log(_T("Missing argument for '-cfgparam' option.\n"));
else
cfgfile_addcfgparam(argv[++i]);
}
}
}
static TCHAR *parsetext(const TCHAR *s)
{
if (*s == '"' || *s == '\'') {
TCHAR *d;
TCHAR c = *s++;
int i;
d = my_strdup(s);
for (i = 0; i < _tcslen(d); i++) {
if (d[i] == c) {
d[i] = 0;
break;
}
}
return d;
}
else {
return my_strdup(s);
}
}
static TCHAR *parsetextpath(const TCHAR *s)
{
TCHAR *s2 = parsetext(s);
TCHAR *s3 = target_expand_environment(s2);
xfree(s2);
return s3;
}
void print_usage()
{
printf("\nUsage:\n");
printf(" -f <file> Load a configuration file.\n");
printf(" -config=<file> Load a configuration file.\n");
printf(" -statefile=<file> Load a save state file.\n");
printf(" -s <config param>=<value> Set the configuration parameter with value.\n");
printf(" Edit a configuration file in order to know valid parameters and settings.\n");
printf("\nAdditional options:\n");
printf(" -0 <filename> Set adf for drive 0.\n");
printf(" -1 <filename> Set adf for drive 1.\n");
printf(" -2 <filename> Set adf for drive 2.\n");
printf(" -3 <filename> Set adf for drive 3.\n");
printf(" -r <filename> Set kickstart rom file.\n");
printf(" -G Start directly into emulation.\n");
printf(" -c <value> Size of chip memory (in number of 512 KBytes chunks).\n");
printf(" -F <value> Size of fast memory (in number of 1024 KBytes chunks).\n");
printf("\nNote:\n");
printf("Parameters are parsed from the beginning of command line, so in case of ambiguity for parameters, last one will be used.\n");
printf("File names should be with absolute path.\n");
printf("\nExample:\n");
printf("uae4arm -config=conf/A500.uae -statefile=savestates/game.uss -s use_gui=no\n");
printf("It will load A500.uae configuration with the save state named game.\n");
printf("It will override use_gui to 'no' so that it enters emulation directly.\n");
exit(1);
}
static void parse_cmdline(int argc, TCHAR **argv)
{
int i;
for (i = 1; i < argc; i++) {
if (_tcscmp(argv[i], _T("-cfgparam")) == 0) {
if (i + 1 < argc)
i++;
}
else if (_tcsncmp(argv[i], _T("-config="), 8) == 0) {
TCHAR *txt = parsetextpath(argv[i] + 8);
currprefs.mountitems = 0;
target_cfgfile_load(&currprefs, txt, -1, 0);
xfree(txt);
}
else if (_tcsncmp(argv[i], _T("-statefile="), 11) == 0) {
TCHAR *txt = parsetextpath(argv[i] + 11);
savestate_state = STATE_DORESTORE;
_tcscpy(savestate_fname, txt);
xfree(txt);
}
else if (_tcscmp(argv[i], _T("-f")) == 0) {
/* Check for new-style "-f xxx" argument, where xxx is config-file */
if (i + 1 == argc) {
write_log(_T("Missing argument for '-f' option.\n"));
}
else {
TCHAR *txt = parsetextpath(argv[++i]);
currprefs.mountitems = 0;
target_cfgfile_load(&currprefs, txt, -1, 0);
xfree(txt);
}
}
else if (_tcscmp(argv[i], _T("-s")) == 0) {
if (i + 1 == argc)
write_log(_T("Missing argument for '-s' option.\n"));
else
cfgfile_parse_line(&currprefs, argv[++i], 0);
}
else {
if (argv[i][0] == '-' && argv[i][1] != '\0' && argv[i][2] == '\0') {
int ret;
const TCHAR *arg = argv[i] + 2;
int extra_arg = *arg == '\0';
if (extra_arg)
arg = i + 1 < argc ? argv[i + 1] : 0;
ret = parse_cmdline_option(&currprefs, argv[i][1], arg);
if (ret == -1)
print_usage();
if (ret && extra_arg)
i++;
}
else
{
printf("Unknown option %s\n", argv[i]);
print_usage();
}
}
}
}
static void parse_cmdline_and_init_file(int argc, TCHAR **argv)
{
_tcscpy(optionsfile, _T(""));
parse_cmdline_2(argc, argv);
_tcscat(optionsfile, restart_config);
if (!target_cfgfile_load(&currprefs, optionsfile, 0, default_config)) {
write_log(_T("failed to load config '%s'\n"), optionsfile);
}
fixup_prefs(&currprefs);
parse_cmdline(argc, argv);
}
void reset_all_systems()
{
init_eventtab();
#ifdef PICASSO96
picasso_reset();
#endif
#ifdef FILESYS
filesys_prepare_reset();
filesys_reset();
#endif
memory_reset();
#if defined (BSDSOCKET)
bsdlib_reset();
#endif
#ifdef FILESYS
filesys_start_threads();
hardfile_reset();
#endif
native2amiga_reset();
}
/* Okay, this stuff looks strange, but it is here to encourage people who
* port UAE to re-use as much of this code as possible. Functions that you
* should be using are do_start_program() and do_leave_program(), as well
* as real_main(). Some OSes don't call main() (which is braindamaged IMHO,
* but unfortunately very common), so you need to call real_main() from
* whatever entry point you have. You may want to write your own versions
* of start_program() and leave_program() if you need to do anything special.
* Add #ifdefs around these as appropriate.
*/
void do_start_program()
{
if (quit_program == -UAE_QUIT)
return;
/* Do a reset on startup. Whether this is elegant is debatable. */
inputdevice_updateconfig(&changed_prefs, &currprefs);
if (quit_program >= 0)
quit_program = UAE_RESET;
m68k_go(1);
}
void do_leave_program()
{
#ifdef JIT
compiler_exit();
#endif
graphics_leave();
inputdevice_close();
DISK_free();
close_sound();
dump_counts();
#ifdef CD32
akiko_free();
#endif
gui_exit();
#ifdef USE_SDL
SDL_Quit();
#endif
hardfile_reset();
#ifdef AUTOCONFIG
expansion_cleanup();
#endif
#ifdef FILESYS
filesys_cleanup();
#endif
#ifdef BSDSOCKET
bsdlib_reset();
#endif
device_func_reset();
memory_cleanup();
cfgfile_addcfgparam(nullptr);
machdep_free();
}
void start_program()
{
#ifdef CAPSLOCK_DEBIAN_WORKAROUND
char kbd_flags;
// set capslock state based upon current "real" state
ioctl(0, KDGKBLED, &kbd_flags);
if ((kbd_flags & 07) & LED_CAP)
{
// record capslock pressed
inputdevice_do_keyboard(AK_CAPSLOCK, 1);
}
#endif
do_start_program();
}
void leave_program()
{
do_leave_program();
}
void virtualdevice_init()
{
#ifdef AUTOCONFIG
rtarea_setup();
#endif
#ifdef FILESYS
rtarea_init();
uaeres_install();
hardfile_install();
#endif
#ifdef AUTOCONFIG
expansion_init();
emulib_install();
#endif
#ifdef FILESYS
filesys_install();
#endif
#if defined (BSDSOCKET)
bsdlib_install();
#endif
}
// In case of error, print the error code and close the application
void check_error_sdl(bool check, const char* message) {
if (check) {
cout << message << " " << SDL_GetError() << endl;
SDL_Quit();
exit(-1);
}
}
static int real_main2 (int argc, TCHAR **argv)
{
printf("Amiberry-SDL2 by Dimitris (MiDWaN) Panokostas\n");
if (SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_JOYSTICK) < 0)
{
printf("SDL could not initialize! SDL_Error: %s\n", SDL_GetError());
abort();
}
sdlWindow = SDL_CreateWindow("Amiberry v2",
SDL_WINDOWPOS_UNDEFINED,
SDL_WINDOWPOS_UNDEFINED,
0,
0,
SDL_WINDOW_FULLSCREEN_DESKTOP);
check_error_sdl(sdlWindow == nullptr, "Unable to create window");
renderer = SDL_CreateRenderer(sdlWindow, -1, SDL_RENDERER_ACCELERATED | SDL_RENDERER_PRESENTVSYNC);
check_error_sdl(renderer == nullptr, "Unable to create a renderer");
keyboard_settrans();
if (restart_config[0]) {
default_prefs(&currprefs, 0);
fixup_prefs(&currprefs);
}
if (!graphics_setup()) {
abort();
}
if (restart_config[0])
parse_cmdline_and_init_file(argc, argv);
else
currprefs = changed_prefs;
if (!machdep_init()) {
restart_program = 0;
return -1;
}
if (!setup_sound()) {
write_log(_T("Sound driver unavailable: Sound output disabled\n"));
currprefs.produce_sound = 0;
}
inputdevice_init();
changed_prefs = currprefs;
no_gui = !currprefs.start_gui;
if (restart_program == 2)
no_gui = true;
else if (restart_program == 3)
no_gui = false;
restart_program = 0;
if (!no_gui) {
int err = gui_init();
currprefs = changed_prefs;
if (err == -1) {
write_log(_T("Failed to initialize the GUI\n"));
return -1;
}
else if (err == -2) {
return 1;
}
}
else
{
update_display(&currprefs);
}
memset(&gui_data, 0, sizeof gui_data);
gui_data.cd = -1;
gui_data.hd = -1;
#ifdef PICASSO96
picasso_reset();
#endif
fixup_prefs(&currprefs);
changed_prefs = currprefs;
target_run();
/* force sound settings change */
currprefs.produce_sound = 0;
keybuf_init(); /* Must come after init_joystick */
memory_hardreset(2);
memory_reset();
#ifdef AUTOCONFIG
native2amiga_install();
#endif
custom_init(); /* Must come after memory_init */
DISK_init();
reset_frame_rate_hack();
init_m68k(); /* must come after reset_frame_rate_hack (); */
gui_update();
if (graphics_init(true)) {
if (!init_audio()) {
if (sound_available && currprefs.produce_sound > 1) {
write_log(_T("Sound driver unavailable: Sound output disabled\n"));
}
currprefs.produce_sound = 0;
}
gui_flicker_led(LED_POWER, 1);
start_program();
}
return 0;
}
void real_main(int argc, TCHAR **argv)
{
restart_program = 1;
fetch_configurationpath(restart_config, sizeof(restart_config) / sizeof(TCHAR));
_tcscat(restart_config, OPTIONSFILENAME);
_tcscat(restart_config, ".uae");
default_config = 1;
while (restart_program) {
changed_prefs = currprefs;
real_main2(argc, argv);
leave_program();
quit_program = 0;
}
zfile_exit();
}
#ifndef NO_MAIN_IN_MAIN_C
int main(int argc, TCHAR **argv)
{
real_main(argc, argv);
return 0;
}
#endif
#ifdef SINGLEFILE
uae_u8 singlefile_config[50000] = { "_CONFIG_STARTS_HERE" };
uae_u8 singlefile_data[1500000] = { "_DATA_STARTS_HERE" };
#endif