From 69e30b219a2f3a7bb48f80d00f59a1a9116cf503 Mon Sep 17 00:00:00 2001 From: R-type Date: Tue, 15 Dec 2015 01:01:43 +0100 Subject: [PATCH] add basic libretro file wip --- Makefile | 334 +++++++ Makefile.common | 69 ++ atari800/src/atari.c | 11 + jni/Android.mk | 29 + jni/Application.mk | 1 + libretro/cmdline.c | 121 +++ libretro/config.h | 572 +++++++++++ libretro/core-log.h | 7 + libretro/core-mapper.c | 805 ++++++++++++++++ libretro/font2.i | 270 ++++++ libretro/graph.c | 368 +++++++ libretro/graph.h | 29 + libretro/libco/amd64.c | 197 ++++ libretro/libco/armeabi.c | 95 ++ libretro/libco/fiber.c | 58 ++ libretro/libco/libco.c | 21 + libretro/libco/libco.h | 34 + libretro/libco/ppc.c | 407 ++++++++ libretro/libco/sjlj.c | 115 +++ libretro/libco/ucontext.c | 81 ++ libretro/libco/x86.c | 117 +++ libretro/libretro-core.c | 465 +++++++++ libretro/libretro-core.h | 74 ++ libretro/libretro.h | 1926 +++++++++++++++++++++++++++++++++++++ libretro/platform.c | 389 ++++++++ libretro/retroscreen.h | 10 + libretro/vkbd.c | 54 ++ libretro/vkbd.h | 7 + libretro/vkbd_def.h | 147 +++ link.T | 5 + 30 files changed, 6818 insertions(+) create mode 100644 Makefile create mode 100644 Makefile.common create mode 100644 jni/Android.mk create mode 100644 jni/Application.mk create mode 100644 libretro/cmdline.c create mode 100644 libretro/config.h create mode 100644 libretro/core-log.h create mode 100644 libretro/core-mapper.c create mode 100644 libretro/font2.i create mode 100755 libretro/graph.c create mode 100755 libretro/graph.h create mode 100644 libretro/libco/amd64.c create mode 100644 libretro/libco/armeabi.c create mode 100644 libretro/libco/fiber.c create mode 100644 libretro/libco/libco.c create mode 100644 libretro/libco/libco.h create mode 100644 libretro/libco/ppc.c create mode 100644 libretro/libco/sjlj.c create mode 100644 libretro/libco/ucontext.c create mode 100644 libretro/libco/x86.c create mode 100644 libretro/libretro-core.c create mode 100644 libretro/libretro-core.h create mode 100644 libretro/libretro.h create mode 100644 libretro/platform.c create mode 100644 libretro/retroscreen.h create mode 100644 libretro/vkbd.c create mode 100644 libretro/vkbd.h create mode 100644 libretro/vkbd_def.h create mode 100755 link.T diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..6085890 --- /dev/null +++ b/Makefile @@ -0,0 +1,334 @@ +TARGET_NAME := atari800 + +DEBUG = 0 +LOG_PERFORMANCE = 1 +HAVE_COMPAT = 0 + +SOURCES_C := +SOURCES_CXX := +LIBS := + +ifneq ($(EMSCRIPTEN),) + platform = emscripten +endif + +ifeq ($(platform),) + platform = unix + ifeq ($(shell uname -a),) + platform = win + else ifneq ($(findstring MINGW,$(shell uname -a)),) + platform = win + else ifneq ($(findstring Darwin,$(shell uname -a)),) + platform = osx + else ifneq ($(findstring win,$(shell uname -a)),) + platform = win + endif +endif + +# system platform +system_platform = unix +ifeq ($(shell uname -a),) + EXE_EXT = .exe + system_platform = win +else ifneq ($(findstring Darwin,$(shell uname -a)),) + system_platform = osx +else ifneq ($(findstring MINGW,$(shell uname -a)),) + system_platform = win +endif + +CC_AS ?= $(CC) +LIBM := -lm +LIBZ := -lz +# Unix +ifneq (,$(findstring unix,$(platform))) + TARGET := $(TARGET_NAME)_libretro.so + fpic := -fPIC + SHARED := -shared -Wl,-version-script=link.T -Wl,-no-undefined + +else ifneq (,$(findstring linux-portable,$(platform))) + TARGET := $(TARGET_NAME)_libretro.so + fpic := -fPIC -nostdlib + LIBM := + LIBZ := + SHARED := -shared -Wl,-version-script=link.T +# android arm +else ifneq (,$(findstring android,$(platform))) + TARGET := $(TARGET_NAME)_libretro.so + fpic = -fPIC + SHARED := -lstdc++ -llog -lz -shared -Wl,--version-script=link.T -Wl,--no-undefined + + CC = arm-linux-androideabi-gcc + CXX = arm-linux-androideabi-g++ +# Raspberry Pi +else ifneq (,$(findstring rpi,$(platform))) + TARGET := $(TARGET_NAME)_libretro.so + LDFLAGS += -shared -Wl,--version-script=link.T + fpic = -fPIC + SHARED := -shared -Wl,-version-script=link.T -Wl,-no-undefined + +# OS X +else ifeq ($(platform), osx) + TARGET := $(TARGET_NAME)_libretro.dylib + fpic := -fPIC + SHARED := -dynamiclib + OSXVER = `sw_vers -productVersion | cut -d. -f 2` + OSX_LT_MAVERICKS = `(( $(OSXVER) <= 9)) && echo "YES"` + ifeq ($(OSX_LT_MAVERICKS),"YES") + fpic += -mmacosx-version-min=10.5 + endif + +# iOS +else ifneq (,$(findstring ios,$(platform))) + + TARGET := $(TARGET_NAME)_libretro_ios.dylib + fpic := -fPIC + SHARED := -dynamiclib + + ifeq ($(IOSSDK),) + IOSSDK := $(shell xcodebuild -version -sdk iphoneos Path) + endif + + CC = cc -arch armv7 -isysroot $(IOSSDK) + CC_AS = perl ./tools/gas-preprocessor.pl $(CC) + CXX = c++ -arch armv7 -isysroot $(IOSSDK) +ifeq ($(platform),ios9) + CC += -miphoneos-version-min=8.0 + CXX += -miphoneos-version-min=8.0 + CC_AS += -miphoneos-version-min=8.0 + PLATFORM_DEFINES := -miphoneos-version-min=8.0 +else + CC += -miphoneos-version-min=5.0 + CXX += -miphoneos-version-min=5.0 + CC_AS += -miphoneos-version-min=5.0 + PLATFORM_DEFINES := -miphoneos-version-min=5.0 +endif + +# Theos +else ifeq ($(platform), theos_ios) + DEPLOYMENT_IOSVERSION = 5.0 + TARGET = iphone:latest:$(DEPLOYMENT_IOSVERSION) + ARCHS = armv7 armv7s + TARGET_IPHONEOS_DEPLOYMENT_VERSION=$(DEPLOYMENT_IOSVERSION) + THEOS_BUILD_DIR := objs + include $(THEOS)/makefiles/common.mk + + LIBRARY_NAME = $(TARGET_NAME)_libretro_ios + +# QNX +else ifeq ($(platform), qnx) + TARGET := $(TARGET_NAME)_libretro_qnx.so + fpic := -fPIC + SHARED := -lcpp -shared -Wl,-version-script=link.T + CC = qcc -Vgcc_ntoarmv7le + CC_AS = qcc -Vgcc_ntoarmv7le + CXX = QCC -Vgcc_ntoarmv7le_cpp + AR = QCC -Vgcc_ntoarmv7le + PLATFORM_DEFINES := -D__BLACKBERRY_QNX__ -fexceptions -marm -mcpu=cortex-a9 -mfpu=neon -mfloat-abi=softfp + +# PS3 +else ifeq ($(platform), ps3) + TARGET := $(TARGET_NAME)_libretro_ps3.a + CC = $(CELL_SDK)/host-win32/ppu/bin/ppu-lv2-gcc.exe + CC_AS = $(CELL_SDK)/host-win32/ppu/bin/ppu-lv2-gcc.exe + CXX = $(CELL_SDK)/host-win32/ppu/bin/ppu-lv2-g++.exe + AR = $(CELL_SDK)/host-win32/ppu/bin/ppu-lv2-ar.exe + PLATFORM_DEFINES := -D__CELLOS_LV2__ + STATIC_LINKING = 1 + HAVE_COMPAT = 1 + +# sncps3 +else ifeq ($(platform), sncps3) + TARGET := $(TARGET_NAME)_libretro_ps3.a + CC = $(CELL_SDK)/host-win32/sn/bin/ps3ppusnc.exe + CC_AS = $(CELL_SDK)/host-win32/sn/bin/ps3ppusnc.exe + CXX = $(CELL_SDK)/host-win32/sn/bin/ps3ppusnc.exe + AR = $(CELL_SDK)/host-win32/sn/bin/ps3snarl.exe + PLATFORM_DEFINES := -D__CELLOS_LV2__ + STATIC_LINKING = 1 + HAVE_COMPAT = 1 + +# Lightweight PS3 Homebrew SDK +else ifeq ($(platform), psl1ght) + TARGET := $(TARGET_NAME)_libretro_psl1ght.a + CC = $(PS3DEV)/ppu/bin/ppu-gcc$(EXE_EXT) + CC_AS = $(PS3DEV)/ppu/bin/ppu-gcc$(EXE_EXT) + CXX = $(PS3DEV)/ppu/bin/ppu-g++$(EXE_EXT) + AR = $(PS3DEV)/ppu/bin/ppu-ar$(EXE_EXT) + PLATFORM_DEFINES := -D__CELLOS_LV2__ + STATIC_LINKING = 1 + HAVE_COMPAT = 1 + +# PSP +else ifeq ($(platform), psp1) + TARGET := $(TARGET_NAME)_libretro_psp1.a + CC = psp-gcc$(EXE_EXT) + CC_AS = psp-gcc$(EXE_EXT) + CXX = psp-g++$(EXE_EXT) + AR = psp-ar$(EXE_EXT) + PLATFORM_DEFINES := -DPSP + CFLAGS += -G0 + CXXFLAGS += -G0 + STATIC_LINKING = 1 + HAVE_COMPAT = 1 + EXTRA_INCLUDES := -I$(shell psp-config --pspsdk-path)/include + +# Xbox 360 +else ifeq ($(platform), xenon) + TARGET := $(TARGET_NAME)_libretro_xenon360.a + CC = xenon-gcc$(EXE_EXT) + CC_AS = xenon-gcc$(EXE_EXT) + CXX = xenon-g++$(EXE_EXT) + AR = xenon-ar$(EXE_EXT) + PLATFORM_DEFINES := -D__LIBXENON__ + STATIC_LINKING = 1 + +# Nintendo Game Cube +else ifeq ($(platform), ngc) + TARGET := $(TARGET_NAME)_libretro_ngc.a + CC = $(DEVKITPPC)/bin/powerpc-eabi-gcc$(EXE_EXT) + CC_AS = $(DEVKITPPC)/bin/powerpc-eabi-gcc$(EXE_EXT) + CXX = $(DEVKITPPC)/bin/powerpc-eabi-g++$(EXE_EXT) + AR = $(DEVKITPPC)/bin/powerpc-eabi-ar$(EXE_EXT) + PLATFORM_DEFINES += -DGEKKO -DHW_DOL -mrvl -mcpu=750 -meabi -mhard-float + STATIC_LINKING = 1 + HAVE_COMPAT = 1 + +# Nintendo Wii +else ifeq ($(platform), wii) + TARGET := $(TARGET_NAME)_libretro_wii.a + CC = $(DEVKITPPC)/bin/powerpc-eabi-gcc$(EXE_EXT) + CC_AS = $(DEVKITPPC)/bin/powerpc-eabi-gcc$(EXE_EXT) + CXX = $(DEVKITPPC)/bin/powerpc-eabi-g++$(EXE_EXT) + AR = $(DEVKITPPC)/bin/powerpc-eabi-ar$(EXE_EXT) + PLATFORM_DEFINES += -DGEKKO -DHW_RVL -mrvl -mcpu=750 -meabi -mhard-float + STATIC_LINKING = 1 + HAVE_COMPAT = 1 + +# ARM +else ifneq (,$(findstring armv,$(platform))) + TARGET := $(TARGET_NAME)_libretro.so + fpic := -fPIC + SHARED := -shared -Wl,-version-script=link.T + CC = gcc + CC_AS = gcc + CXX = g++ + ifneq (,$(findstring cortexa8,$(platform))) + PLATFORM_DEFINES += -marm -mcpu=cortex-a8 + else ifneq (,$(findstring cortexa9,$(platform))) + PLATFORM_DEFINES += -marm -mcpu=cortex-a9 + endif + PLATFORM_DEFINES += -marm + ifneq (,$(findstring neon,$(platform))) + PLATFORM_DEFINES += -mfpu=neon + HAVE_NEON = 1 + endif + ifneq (,$(findstring softfloat,$(platform))) + PLATFORM_DEFINES += -mfloat-abi=softfp + else ifneq (,$(findstring hardfloat,$(platform))) + PLATFORM_DEFINES += -mfloat-abi=hard + endif + PLATFORM_DEFINES += -DARM + +# emscripten +else ifeq ($(platform), emscripten) + TARGET := $(TARGET_NAME)_libretro_emscripten.bc + +# Windows +else + TARGET := $(TARGET_NAME)_libretro.dll + CC = gcc + CC_AS = gcc + CXX = g++ + SHARED := -shared -static-libgcc -static-libstdc++ -Wl,-no-undefined -Wl,-version-script=link.T + LIBS += -lshlwapi + HAVE_WIN32_MSX_MANAGER = 1 + +endif + +CORE_DIR := . +CAP32_DIR := $(CORE_DIR)/cap32 + +ifeq ($(HAVE_COMPAT), 1) + PLATFORM_DEFINES += -DHAVE_COMPAT +endif + +ifeq ($(DEBUG), 1) + CFLAGS += -O0 -g + CXXFLAGS += -O0 -g +else ifeq ($(platform), emscripten) + CFLAGS += -O2 + CXXFLAGS += -O2 -fno-exceptions -fno-rtti -DHAVE_STDINT_H +else + CFLAGS += -O3 + CXXFLAGS += -O3 -fno-exceptions -fno-rtti -DHAVE_STDINT_H +endif + +ifeq ($(LOG_PERFORMANCE), 1) + CFLAGS += -DLOG_PERFORMANCE + CXXFLAGS += -DLOG_PERFORMANCE +endif + + +DEFINES := -D__LIBRETRO__ $(PLATFORM_DEFINES) -DINLINE="inline" +DEFINES += -DHAVE_CONFIG_H + +CFLAGS += $(fpic) $(DEFINES) +CFLAGS += -Wall + +CXXFLAGS += $(fpic) $(DEFINES) +CXXFLAGS += -Wall + +LDFLAGS += $(LIBM) $(LIBZ) + +ROMS = +SNAPS = + +include Makefile.common + +HEADERS += $(ROMS:.rom=.h) $(SNAPS:.szx=.h) +OBJS += $(SOURCES_C:.c=.o) $(SOURCES_CXX:.cpp=.o) + +INCDIRS := $(EXTRA_INCLUDES) $(INCFLAGS) + +%.o: %.cpp + $(CXX) -c -o $@ $< $(CXXFLAGS) $(INCDIRS) + +%.o: %.c + $(CC) -c -o $@ $< $(CFLAGS) $(INCDIRS) + +%.o: %.S + $(CC_AS) -c -o $@ $< $(CFLAGS) $(INCDIRS) + +%.h: %.rom + xxd -i $< | sed "s/unsigned/const unsigned/g" > $@ + +%.h: %.szx + xxd -i $< | sed "s/unsigned/const unsigned/g" > $@ + +ifeq ($(platform), theos_ios) +COMMON_FLAGS := -DIOS $(COMMON_DEFINES) $(INCFLAGS) -I$(THEOS_INCLUDE_PATH) -Wno-error +$(LIBRARY_NAME)_CFLAGS += $(CFLAGS) $(COMMON_FLAGS) +$(LIBRARY_NAME)_CXXFLAGS += $(CXXFLAGS) $(COMMON_FLAGS) +${LIBRARY_NAME}_FILES = $(SOURCES_CXX) $(SOURCES_C) +${LIBRARY_NAME}_LIBRARIES = z +include $(THEOS_MAKE_PATH)/library.mk +else +all: $(TARGET) + +$(TARGET): $(HEADERS) $(OBJS) +ifeq ($(STATIC_LINKING), 1) + $(AR) rcs $@ $(OBJS) +else + $(CC) -o $@ $(SHARED) $(OBJS) $(LDFLAGS) $(LIBS) +endif + +clean-objs: + rm -f $(OBJS) + +clean: + rm -f $(OBJS) + rm -f $(HEADERS) + rm -f $(TARGET) + +.PHONY: $(TARGET) clean clean-objs +endif diff --git a/Makefile.common b/Makefile.common new file mode 100644 index 0000000..9e4eb0a --- /dev/null +++ b/Makefile.common @@ -0,0 +1,69 @@ +INCFLAGS := -I$(CORE_DIR) \ + -I$(CORE_DIR)/atari800/src \ + -I$(CORE_DIR)/libretro + +SOURCES_C := \ + $(CORE_DIR)/libretro/libco/libco.c + +SOURCES_C += \ + $(CORE_DIR)/libretro/libretro-core.c \ + $(CORE_DIR)/libretro/core-mapper.c \ + $(CORE_DIR)/libretro/graph.c \ + $(CORE_DIR)/libretro/vkbd.c + +SOURCES_C += \ + $(CORE_DIR)/atari800/src/afile.c \ + $(CORE_DIR)/atari800/src/antic.c \ + $(CORE_DIR)/atari800/src/atari.c \ + $(CORE_DIR)/atari800/src/binload.c \ + $(CORE_DIR)/atari800/src/cartridge.c \ + $(CORE_DIR)/atari800/src/cassette.c \ + $(CORE_DIR)/atari800/src/compfile.c \ + $(CORE_DIR)/atari800/src/cfg.c \ + $(CORE_DIR)/atari800/src/cpu.c \ + $(CORE_DIR)/atari800/src/crc32.c \ + $(CORE_DIR)/atari800/src/devices.c \ + $(CORE_DIR)/atari800/src/emuos.c \ + $(CORE_DIR)/atari800/src/esc.c \ + $(CORE_DIR)/atari800/src/gtia.c \ + $(CORE_DIR)/atari800/src/img_tape.c \ + $(CORE_DIR)/atari800/src/log.c \ + $(CORE_DIR)/atari800/src/memory.c \ + $(CORE_DIR)/atari800/src/monitor.c \ + $(CORE_DIR)/atari800/src/pbi.c \ + $(CORE_DIR)/atari800/src/pia.c \ + $(CORE_DIR)/atari800/src/pokey.c \ + $(CORE_DIR)/atari800/src/pokeysnd.c \ + $(CORE_DIR)/atari800/src/mzpokeysnd.c \ + $(CORE_DIR)/atari800/src/remez.c \ + $(CORE_DIR)/atari800/src/sndsave.c \ + $(CORE_DIR)/atari800/src/rtime.c \ + $(CORE_DIR)/atari800/src/sio.c \ + $(CORE_DIR)/atari800/src/sysrom.c \ + $(CORE_DIR)/atari800/src/util.c \ + $(CORE_DIR)/atari800/src/sound.c \ + $(CORE_DIR)/atari800/src/pbi_proto80.c \ + $(CORE_DIR)/atari800/src/af80.c \ + $(CORE_DIR)/atari800/src/input.c \ + $(CORE_DIR)/atari800/src/statesav.c\ + $(CORE_DIR)/atari800/src/ui_basic.c \ + $(CORE_DIR)/atari800/src/ui.c \ + $(CORE_DIR)/atari800/src/artifact.c \ + $(CORE_DIR)/atari800/src/colours.c \ + $(CORE_DIR)/atari800/src/colours_ntsc.c \ + $(CORE_DIR)/atari800/src/colours_pal.c \ + $(CORE_DIR)/atari800/src/colours_external.c \ + $(CORE_DIR)/atari800/src/screen.c \ + $(CORE_DIR)/atari800/src/cycle_map.c \ + $(CORE_DIR)/atari800/src/pbi_mio.c \ + $(CORE_DIR)/atari800/src/pbi_bb.c \ + $(CORE_DIR)/atari800/src/pbi_scsi.c \ + $(CORE_DIR)/atari800/src/ide.c \ + $(CORE_DIR)/atari800/src/xep80.c \ + $(CORE_DIR)/atari800/src/xep80_fonts.c \ + $(CORE_DIR)/atari800/src/filter_ntsc.c \ + $(CORE_DIR)/atari800/src/atari_ntsc/atari_ntsc.c \ + $(CORE_DIR)/libretro/platform.c +# $(CORE_DIR)/atari800/src/videomode.c\ +# $(CORE_DIR)/atari800/src/pal_blending.c \ + diff --git a/atari800/src/atari.c b/atari800/src/atari.c index 040de2c..06b05e9 100644 --- a/atari800/src/atari.c +++ b/atari800/src/atari.c @@ -1039,6 +1039,11 @@ static void autoframeskip(double curtime, double lasttime) } } +//LIBRETRO HACK +#ifdef __LIBRETRO__ +#include "libretro-core.h" +#endif + void Atari800_Sync(void) { static double lasttime = 0; @@ -1061,6 +1066,12 @@ void Atari800_Sync(void) if ((lasttime + deltatime) < curtime) lasttime = curtime; + +//LIBRETRO HACK +#ifdef __LIBRETRO__ +co_switch(mainThread); +#endif + } #if defined(BASIC) || defined(VERY_SLOW) || defined(CURSES_BASIC) diff --git a/jni/Android.mk b/jni/Android.mk new file mode 100644 index 0000000..e162219 --- /dev/null +++ b/jni/Android.mk @@ -0,0 +1,29 @@ +LOCAL_PATH := $(call my-dir) + +include $(CLEAR_VARS) + +LOCAL_MODULE := retro + +ifeq ($(TARGET_ARCH),arm) +LOCAL_CFLAGS += -DANDROID_ARM +LOCAL_ARM_MODE := arm +endif + +ifeq ($(TARGET_ARCH),x86) +LOCAL_CFLAGS += -DANDROID_X86 +endif + +ifeq ($(TARGET_ARCH),mips) +LOCAL_CFLAGS += -DANDROID_MIPS -D__mips__ -D__MIPSEL__ +endif + +CORE_DIR = .. + +include $(CORE_DIR)/Makefile.common + +LOCAL_SRC_FILES += $(SOURCES_C) +LOCAL_CFLAGS += -O2 -D__LIBRETRO__ -DFRONTEND_SUPPORTS_RGB565 -DNDEBUG=1 $(INCFLAGS) + +LOCAL_LDLIBS += -lz + +include $(BUILD_SHARED_LIBRARY) diff --git a/jni/Application.mk b/jni/Application.mk new file mode 100644 index 0000000..a252a72 --- /dev/null +++ b/jni/Application.mk @@ -0,0 +1 @@ +APP_ABI := all diff --git a/libretro/cmdline.c b/libretro/cmdline.c new file mode 100644 index 0000000..e8003b4 --- /dev/null +++ b/libretro/cmdline.c @@ -0,0 +1,121 @@ +#include + +//Args for experimental_cmdline +static char ARGUV[64][1024]; +static unsigned char ARGUC=0; + +// Args for Core +static char XARGV[64][1024]; +static const char* xargv_cmd[64]; +int PARAMCOUNT=0; + +extern int skel_main(int argc, char *argv[]); +void parse_cmdline( const char *argv ); + +void Add_Option(const char* option) +{ + static int first=0; + + if(first==0) + { + PARAMCOUNT=0; + first++; + } + + sprintf(XARGV[PARAMCOUNT++],"%s\0",option); +} + +int pre_main(const char *argv) +{ + int i; + bool Only1Arg; + + parse_cmdline(argv); + + Only1Arg = (strcmp(ARGUV[0],"prg") == 0) ? 0 : 1; + + for (i = 0; i<64; i++) + xargv_cmd[i] = NULL; + + + if(Only1Arg) + { + Add_Option("prg"); + + Add_Option(RPATH/*ARGUV[0]*/); + } + else + { // Pass all cmdline args + for(i = 0; i < ARGUC; i++) + Add_Option(ARGUV[i]); + } + + for (i = 0; i < PARAMCOUNT; i++) + { + xargv_cmd[i] = (char*)(XARGV[i]); + LOGI("%2d %s\n",i,XARGV[i]); + } + + skel_main(PARAMCOUNT,( char **)xargv_cmd); + + xargv_cmd[PARAMCOUNT - 2] = NULL; +} + +void parse_cmdline(const char *argv) +{ + char *p,*p2,*start_of_word; + int c,c2; + static char buffer[512*4]; + enum states { DULL, IN_WORD, IN_STRING } state = DULL; + + strcpy(buffer,argv); + strcat(buffer," \0"); + + for (p = buffer; *p != '\0'; p++) + { + c = (unsigned char) *p; /* convert to unsigned char for is* functions */ + switch (state) + { + case DULL: /* not in a word, not in a double quoted string */ + if (isspace(c)) /* still not in a word, so ignore this char */ + continue; + /* not a space -- if it's a double quote we go to IN_STRING, else to IN_WORD */ + if (c == '"') + { + state = IN_STRING; + start_of_word = p + 1; /* word starts at *next* char, not this one */ + continue; + } + state = IN_WORD; + start_of_word = p; /* word starts here */ + continue; + case IN_STRING: + /* we're in a double quoted string, so keep going until we hit a close " */ + if (c == '"') + { + /* word goes from start_of_word to p-1 */ + //... do something with the word ... + for (c2 = 0,p2 = start_of_word; p2 < p; p2++, c2++) + ARGUV[ARGUC][c2] = (unsigned char) *p2; + ARGUC++; + + state = DULL; /* back to "not in word, not in string" state */ + } + continue; /* either still IN_STRING or we handled the end above */ + case IN_WORD: + /* we're in a word, so keep going until we get to a space */ + if (isspace(c)) + { + /* word goes from start_of_word to p-1 */ + //... do something with the word ... + for (c2 = 0,p2 = start_of_word; p2 header file. */ +#define HAVE_ARPA_INET_H 1 + +/* Define to 1 if you have the `atexit' function. */ +#define HAVE_ATEXIT 1 + +/* Define to 1 if you have the `chmod' function. */ +#define HAVE_CHMOD 1 + +/* Define to 1 if you have the `clock' function. */ +#define HAVE_CLOCK 1 + +/* Define to 1 if you have the header file. */ +/* #undef HAVE_DIRECT_H */ + +/* Define to 1 if you have the header file, and it defines `DIR'. + */ +#define HAVE_DIRENT_H 1 + +/* Define to 1 if you don't have `vprintf' but do have `_doprnt.' */ +/* #undef HAVE_DOPRNT */ + +/* Define to 1 if you have the header file. */ +#define HAVE_ERRNO_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_FCNTL_H 1 + +/* Define to 1 if you have the `fdopen' function. */ +#define HAVE_FDOPEN 1 + +/* Define to 1 if you have the `fflush' function. */ +#define HAVE_FFLUSH 1 + +/* Define to 1 if you have the header file. */ +/* #undef HAVE_FILE_H */ + +/* Define to 1 if you have the `floor' function. */ +#define HAVE_FLOOR 1 + +/* Define to 1 if fseeko (and presumably ftello) exists and is declared. */ +#define HAVE_FSEEKO 1 + +/* Define to 1 if you have the `fstat' function. */ +#define HAVE_FSTAT 1 + +/* Define to 1 if you have the `getcwd' function. */ +#define HAVE_GETCWD 1 + +/* Define to 1 if you have the `gethostbyaddr' function. */ +#define HAVE_GETHOSTBYADDR 1 + +/* Define to 1 if you have the `gethostbyname' function. */ +#define HAVE_GETHOSTBYNAME 1 + +/* Define to 1 if you have the `gettimeofday' function. */ +#define HAVE_GETTIMEOFDAY 1 + +/* Define to 1 if you have the `inet_ntoa' function. */ +#define HAVE_INET_NTOA 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_INTTYPES_H 1 + +/* Define to 1 if you have the `gem' library (-lgem). */ +/* #undef HAVE_LIBGEM */ + +/* Define to 1 if you have the `png' library (-lpng). */ +//#define HAVE_LIBPNG 1 + +/* Define to 1 if you have the `z' library (-lz). */ +#define HAVE_LIBZ 1 + +/* Define to 1 if you have the `localtime' function. */ +#define HAVE_LOCALTIME 1 + +/* Define to 1 if you have the `memmove' function. */ +#define HAVE_MEMMOVE 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_MEMORY_H 1 + +/* Define to 1 if you have the `memset' function. */ +#define HAVE_MEMSET 1 + +/* Define to 1 if you have the `mkdir' function. */ +#define HAVE_MKDIR 1 + +/* Define to 1 if you have the `mkstemp' function. */ +#define HAVE_MKSTEMP 1 + +/* Define to 1 if you have the `mktemp' function. */ +#define HAVE_MKTEMP 1 + +/* Define to 1 if you have the `modf' function. */ +#define HAVE_MODF 1 + +/* Define to 1 if you have the `nanosleep' function. */ +#define HAVE_NANOSLEEP 1 + +/* Define to 1 if you have the header file, and it defines `DIR'. */ +/* #undef HAVE_NDIR_H */ + +/* Define to 1 if you have the header file. */ +#define HAVE_NETDB_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_NETINET_IN_H 1 + +/* Define to 1 if you have the `opendir' function. */ +#define HAVE_OPENDIR 1 + +/* Support for OpenGL graphics acceleration. */ +/* #undef HAVE_OPENGL */ + +/* Define to 1 if you have the `rename' function. */ +#define HAVE_RENAME 1 + +/* Define to 1 if you have the `rewind' function. */ +#define HAVE_REWIND 1 + +/* Define to 1 if you have the `rmdir' function. */ +#define HAVE_RMDIR 1 + +/* Define to 1 if you have the `select' function. */ +#define HAVE_SELECT 1 + +/* Define to 1 if you have the `signal' function. */ +#define HAVE_SIGNAL 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_SIGNAL_H 1 + +/* Define to 1 if you have the `snprintf' function. */ +#define HAVE_SNPRINTF 1 + +/* Define to 1 if you have the `socket' function. */ +#define HAVE_SOCKET 1 + +/* Define to 1 if you have the `stat' function. */ +#define HAVE_STAT 1 + +/* Define to 1 if `stat' has the bug that it succeeds when given the + zero-length file name argument. */ +/* #undef HAVE_STAT_EMPTY_STRING_BUG */ + +/* Define to 1 if you have the header file. */ +#define HAVE_STDINT_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_STDLIB_H 1 + +/* Define to 1 if you have the `strcasecmp' function. */ +#define HAVE_STRCASECMP 1 + +/* Define to 1 if you have the `strchr' function. */ +#define HAVE_STRCHR 1 + +/* Define to 1 if you have the `strdup' function. */ +#define HAVE_STRDUP 1 + +/* Define to 1 if you have the `strerror' function. */ +#define HAVE_STRERROR 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_STRINGS_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_STRING_H 1 + +/* Define to 1 if you have the `strncpy' function. */ +#define HAVE_STRNCPY 1 + +/* Define to 1 if you have the `strrchr' function. */ +#define HAVE_STRRCHR 1 + +/* Define to 1 if you have the `strstr' function. */ +#define HAVE_STRSTR 1 + +/* Define to 1 if you have the `strtol' function. */ +#define HAVE_STRTOL 1 + +/* Define to 1 if you have the `system' function. */ +#define HAVE_SYSTEM 1 + +/* Define to 1 if you have the header file, and it defines `DIR'. + */ +/* #undef HAVE_SYS_DIR_H */ + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_IOCTL_H 1 + +/* Define to 1 if you have the header file, and it defines `DIR'. + */ +/* #undef HAVE_SYS_NDIR_H */ + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_SELECT_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_SOCKET_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_SOUNDCARD_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_STAT_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_TIME_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_SYS_TYPES_H 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_TERMIOS_H 1 + +/* Define to 1 if you have the `time' function. */ +#define HAVE_TIME 1 + +/* Define to 1 if you have the header file. */ +#define HAVE_TIME_H 1 + +/* Define to 1 if you have the `tmpfile' function. */ +#define HAVE_TMPFILE 1 + +/* Define to 1 if you have the `tmpnam' function. */ +#define HAVE_TMPNAM 1 + +/* Define to 1 if you have the `uclock' function. */ +/* #undef HAVE_UCLOCK */ + +/* Define to 1 if you have the header file. */ +#define HAVE_UNISTD_H 1 + +/* Define to 1 if you have the header file. */ +/* #undef HAVE_UNIXIO_H */ + +/* Define to 1 if you have the `unlink' function. */ +#define HAVE_UNLINK 1 + +/* Define to 1 if you have the `usleep' function. */ +#define HAVE_USLEEP 1 + +/* Define to 1 if you have the `vprintf' function. */ +#define HAVE_VPRINTF 1 + +/* Define to 1 if you have the `vsnprintf' function. */ +#define HAVE_VSNPRINTF 1 + +/* Define to 1 if you have the header file. */ +/* #undef HAVE_WINDOWS_H */ + +/* Define to 1 if you have the header file. */ +/* #undef HAVE_WINSOCK2_H */ + +/* Define to 1 if you have the `_mkdir' function. */ +/* #undef HAVE__MKDIR */ + +/* Define to add IDE harddisk emulation. */ +#define IDE 1 + +/* Define to allow sound interpolation. */ +/* #undef INTERPOLATE_SOUND */ + +/* Define to use LINUX joystick. */ +/* #undef LINUX_JOYSTICK */ + +/* Define to 1 if `lstat' dereferences a symlink specified with a trailing + slash. */ +#define LSTAT_FOLLOWS_SLASHED_SYMLINK 1 + +/* Define if mkdir takes only one argument. */ +/* #undef MKDIR_TAKES_ONE_ARG */ + +/* Define to activate assembler in monitor. */ +#define MONITOR_ASSEMBLER 1 + +/* Define to activate code breakpoints and execution history. */ +#define MONITOR_BREAK 1 + +/* Define to activate user-defined breakpoints. */ +/* #undef MONITOR_BREAKPOINTS */ + +/* Define to activate hints in disassembler. */ +#define MONITOR_HINTS 1 + +/* Define to activate 6502 opcode profiling. */ +/* #undef MONITOR_PROFILE */ + +/* Define to activate readline support in monitor. */ +//#define MONITOR_READLINE 1 + +/* Define to activate TRACE command in monitor. */ +/* #undef MONITOR_TRACE */ + +/* Target: X11 with Motif. */ +/* #undef MOTIF */ + +/* Define to allow color changes inside a scanline. */ +#define NEW_CYCLE_EXACT 1 + +/* Define to use nonlinear POKEY mixing. */ +/* #undef NONLINEAR_MIXING */ + +/* Use NTSC video filter. */ +#define NTSC_FILTER 1 + +/* Define to the address where bug reports for this package should be sent. */ +#define PACKAGE_BUGREPORT "pstehlik@sophics.cz" + +/* Define to the full name of this package. */ +#define PACKAGE_NAME "Atari800" + +/* Define to the full name and version of this package. */ +#define PACKAGE_STRING "Atari800 3.1.0" + +/* Define to the one symbol short name of this package. */ +#define PACKAGE_TARNAME "atari800" + +/* Define to the home page for this package. */ +#define PACKAGE_URL "" + +/* Define to the version of this package. */ +#define PACKAGE_VERSION "3.1.0" + +/* Define to use page-based attribute array. */ +/* #undef PAGED_ATTRIB */ + +/* Use accurate PAL color blending. */ +//#define PAL_BLENDING 1 + +/* Define to emulate the Black Box. */ +#define PBI_BB 1 + +/* Define to emulate the MIO board. */ +#define PBI_MIO 1 + +/* A prototype 80 column card for the 1090 expansion box. */ +#define PBI_PROTO80 1 + +/* Define to emulate the 1400XL/1450XLD. */ +/* #undef PBI_XLD */ + +/* Platform-specific mapping of RGB palette to display surface. */ +#define PLATFORM_MAP_PALETTE 1 + +/* Target: Sony PlayStation 2. */ +/* #undef PS2 */ + +/* Define as the return type of signal handlers (`int' or `void'). */ +#define RETSIGTYPE void + +/* Target: Raspberry Pi. */ +/* #undef RPI */ + +/* Define to use R: device. */ +/* #undef R_IO_DEVICE */ + +/* Define to use IP network connection with the R: device. */ +/* #undef R_NETWORK */ + +/* Define to use the host serial port with the R: device. */ +/* #undef R_SERIAL */ + +/* Target: SDL library. */ +//#define SDL 1 + +/* Define to the type of arg 1 for `select'. */ +#define SELECT_TYPE_ARG1 int + +/* Define to the type of args 2, 3 and 4 for `select'. */ +#define SELECT_TYPE_ARG234 (fd_set *) + +/* Define to the type of arg 5 for `select'. */ +#define SELECT_TYPE_ARG5 (struct timeval *) + +/* Define to allow serial in/out sound. */ +/* #undef SERIO_SOUND */ + +/* Target: X11 with shared memory extensions. */ +/* #undef SHM */ + +/* Define to activate sound support. */ +/* #undef SOUND */ +#define SOUND 1 +/* Platform updates sound buffer by callback function. */ +/* #undef SOUND_CALLBACK */ +#define SOUND_CALLBACK 1 + +/* Use new sound API. */ +/* #undef SOUND_THIN_API */ +#define SOUND_THIN_API 1 +/* Define to 1 if you have the ANSI C header files. */ +#define STDC_HEADERS 1 + +/* Define to allow stereo sound. */ +/* #undef STEREO_SOUND */ +#define STEREO_SOUND 1 + +/* Can change video modes on the fly. */ +//#define SUPPORTS_CHANGE_VIDEOMODE 1 + +/* Save additional config file options. */ +//#define SUPPORTS_PLATFORM_CONFIGSAVE 1 + +/* Additional config file options. */ +//#define SUPPORTS_PLATFORM_CONFIGURE 1 + +/* Update the Palette if it changed. */ +#define SUPPORTS_PLATFORM_PALETTEUPDATE 1 + +/* Platform-specific sleep function. */ +/* #undef SUPPORTS_PLATFORM_SLEEP */ + +/* Platform-specific time function. */ +#define SUPPORTS_PLATFORM_TIME 1 + +/* Can display the screen rotated sideways. */ +//#define SUPPORTS_ROTATE_VIDEOMODE 1 + +/* Reinitialise the sound system. */ +/* #undef SUPPORTS_SOUND_REINIT */ + +/* Define to use synchronized sound. */ +/* #undef SYNCHRONIZED_SOUND */ + +/* Alternate system-wide config file for non-Unix OS. */ +/* #undef SYSTEM_WIDE_CFG_FILE */ + +/* Define to 1 if you can safely include both and . */ +#define TIME_WITH_SYS_TIME 1 + +/* Define to 1 if your declares `struct tm'. */ +/* #undef TM_IN_SYS_TIME */ + +/* Target: Curses-compatible library. */ +/* #undef USE_CURSES */ + +/* Define for using cursor/ctrl keys for keyboard joystick. */ +/* #undef USE_CURSORBLOCK */ + +/* Target: Ncurses library. */ +/* #undef USE_NCURSES */ + +/* Define to enable on-screen keyboard. */ +/* #undef USE_UI_BASIC_ONSCREEN_KEYBOARD */ + +/* Define to use very slow computer support (faster -refresh). */ +/* #undef VERY_SLOW */ + +/* Define to emulate the Alien Group Voice Box. */ +/* #undef VOICEBOX */ + +/* Define to allow volume only sound. */ +/* #undef VOL_ONLY_SOUND */ + +/* Define WORDS_BIGENDIAN to 1 if your processor stores words with the most + significant byte first (like Motorola and SPARC, unlike Intel). */ +#if defined AC_APPLE_UNIVERSAL_BUILD +# if defined __BIG_ENDIAN__ +# define WORDS_BIGENDIAN 1 +# endif +#else +# ifndef WORDS_BIGENDIAN +/* # undef WORDS_BIGENDIAN */ +# endif +#endif + +/* Define if unaligned word access is ok. */ +#define WORDS_UNALIGNED_OK 1 + +/* Target: Standard X11. */ +/* #undef X11 */ + +/* Emulate the XEP80. */ +#define XEP80_EMULATION 1 + +/* Target: X11 with XView. */ +/* #undef XVIEW */ + +/* Number of bits in a file offset, on hosts where this is settable. */ +/* #undef _FILE_OFFSET_BITS */ + +/* Define to 1 to make fseeko visible on some hosts (e.g. glibc 2.2). */ +/* #undef _LARGEFILE_SOURCE */ + +/* Define for large files, on AIX-style hosts. */ +/* #undef _LARGE_FILES */ + +/* Define to empty if `const' does not conform to ANSI C. */ +/* #undef const */ + +/* Define to `__inline__' or `__inline' if that's what the C compiler + calls it, or to nothing if 'inline' is not supported under any name. */ +#ifndef __cplusplus +#define inline __inline__ +#endif + +/* Define to `unsigned int' if does not define. */ +/* #undef size_t */ + +/* Define to empty if the keyword `volatile' does not work. Warning: valid + code using `volatile' can become incorrect without. Disable with care. */ +/* #undef volatile */ diff --git a/libretro/core-log.h b/libretro/core-log.h new file mode 100644 index 0000000..cb57d8b --- /dev/null +++ b/libretro/core-log.h @@ -0,0 +1,7 @@ +#if defined(__ANDROID__) || defined(ANDROID) +#include +#define LOG_TAG "RetroArch.atari800" +#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,LOG_TAG,__VA_ARGS__) +#else +#define LOGI printf +#endif diff --git a/libretro/core-mapper.c b/libretro/core-mapper.c new file mode 100644 index 0000000..a483d68 --- /dev/null +++ b/libretro/core-mapper.c @@ -0,0 +1,805 @@ +#include "libretro.h" +#include "libretro-core.h" +#include "retroscreen.h" +//CORE VAR +#ifdef _WIN32 +char slash = '\\'; +#else +char slash = '/'; +#endif +extern const char *retro_save_directory; +extern const char *retro_system_directory; +extern const char *retro_content_directory; +char RETRO_DIR[512]; + +char DISKA_NAME[512]="\0"; +char DISKB_NAME[512]="\0"; +char TAPE_NAME[512]="\0"; + +//TIME +#ifdef __CELLOS_LV2__ +#include "sys/sys_time.h" +#include "sys/timer.h" +#define usleep sys_timer_usleep +#else +#include +#include +#include +#endif + +extern void Screen_SetFullUpdate(int scr); + +long frame=0; +unsigned long Ktime=0 , LastFPSTime=0; + +//VIDEO +#ifdef RENDER16B + uint16_t Retro_Screen[400*300]; +#else + unsigned int Retro_Screen[400*300]; +#endif + +//SOUND +short signed int SNDBUF[1024*2]; +int snd_sampler_pal = 44100 / 50; +int snd_sampler_ntsc = 44100 / 60; + +//PATH +char RPATH[512]; + +//EMU FLAGS +int NPAGE=-1, KCOL=1, BKGCOLOR=0; +int SHOWKEY=-1; + +#if defined(ANDROID) || defined(__ANDROID__) +int MOUSE_EMULATED=1; +#else +int MOUSE_EMULATED=-1; +#endif +int MAXPAS=6,SHIFTON=-1,MOUSEMODE=-1,PAS=4; +int SND=1; //SOUND ON/OFF +static int firstps=0; +int pauseg=0; //enter_gui +int touch=-1; // gui mouse btn +//JOY +int al[2][2];//left analog1 +int ar[2][2];//right analog1 +unsigned char MXjoy[2]; // joy +int NUMjoy=1; +int NUMDRV=1; + +//MOUSE +extern int pushi; // gui mouse btn +int gmx,gmy; //gui mouse +int c64mouse_enable=0; +int mouse_wu=0,mouse_wd=0; +//KEYBOARD +char Key_Sate[512]; +char Key_Sate2[512]; +static char old_Key_Sate[512]; + +static int mbt[16]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; + +//STATS GUI +int BOXDEC= 32+2; +int STAT_BASEY; + +/*static*/ retro_input_state_t input_state_cb; +static retro_input_poll_t input_poll_cb; + + +void retro_set_input_state(retro_input_state_t cb) +{ + input_state_cb = cb; +} + +void retro_set_input_poll(retro_input_poll_t cb) +{ + input_poll_cb = cb; +} + +long GetTicks(void) +{ // in MSec +#ifndef _ANDROID_ + +#ifdef __CELLOS_LV2__ + + //#warning "GetTick PS3\n" + + unsigned long ticks_micro; + uint64_t secs; + uint64_t nsecs; + + sys_time_get_current_time(&secs, &nsecs); + ticks_micro = secs * 1000000UL + (nsecs / 1000); + + return ticks_micro;///1000; +#else + struct timeval tv; + gettimeofday (&tv, NULL); + return (tv.tv_sec*1000000 + tv.tv_usec);///1000; +#endif + +#else + + struct timespec now; + clock_gettime(CLOCK_MONOTONIC, &now); + return (now.tv_sec*1000000 + now.tv_nsec/1000);///1000; +#endif + +} + +int slowdown=0; + +void gui_poll_events(void) +{ + Ktime = GetTicks(); + + if(Ktime - LastFPSTime >= 1000/50) + { + slowdown=0; + frame++; + LastFPSTime = Ktime; + + co_switch(mainThread); + + } +} + +void retro_mouse(int a,int b) {} +void retro_mouse_but0(int a) {} +void retro_mouse_but1(int a) {} +void enter_options(void) {} + +#if defined(ANDROID) || defined(__ANDROID__) +#define DEFAULT_PATH "/mnt/sdcard/" +#else + +#ifdef PS3PORT +#define DEFAULT_PATH "/dev_hdd0/HOMEBREW/" +#else +#define DEFAULT_PATH "/" +#endif + +#endif + +int STATUTON=-1; +#define RETRO_DEVICE_ATARI_KEYBOARD RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_KEYBOARD, 0) +#define RETRO_DEVICE_ATARI_JOYSTICK RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_JOYPAD, 1) + +void texture_uninit(void) +{ + +} + +void texture_init(void) +{ + memset(Retro_Screen, 0, sizeof(Retro_Screen)); + memset(old_Key_Sate ,0, sizeof(old_Key_Sate)); + + gmx=(retrow/2)-1; + gmy=(retroh/2)-1; +} + +int bitstart=0; +int pushi=0; //mouse button +int keydown=0,keyup=0; +int KBMOD=-1; +int RSTOPON=-1; +int CTRLON=-1; + +extern unsigned short int bmp[400*300]; +extern unsigned atari_devices[ 2 ]; + +#include "pokeysnd.h" + +void retro_sound_update() +{ + int x,silent=POKEYSND_enable_new_pokey?24449:32768; + + POKEYSND_Process(SNDBUF,snd_sampler_pal*2); + for(x=0;x> 4] &= ~bit_values2[0x25 & 7]; // key needs to be SHIFTed + + //keyboard_matrix[(unsigned char)key >> 4] &= ~bit_values2[(unsigned char)key & 7]; // key is being held down + + } + else { + if(SHIFTON==1) + ;//keyboard_matrix[0x25 >> 4] |= bit_values2[0x25 & 7]; // make sure key is unSHIFTed + + //keyboard_matrix[(unsigned char)key >> 4] |= bit_values2[(unsigned char)key & 7]; + + } + +} + +void retro_key_down(int key) +{ + int code; +/* + if(key<512) + code=KeySymToCPCKey[key]; + else code = CPC_KEY_NULL; + CPC_SetKey(code); +*/ +} + +void retro_key_up(int key) +{ + int code; +/* + if(key<512) + code=KeySymToCPCKey[key]; + else code = CPC_KEY_NULL; + CPC_ClearKey(code); +*/ +} + +static int joy0_flag[6]={0,0,0,0,0,0}; + //0x01,0x02,0x04,0x08,0x80 0x40 + // UP DWN LEFT RGT BTN0 BTN1 + // 0 1 2 3 4 5 +void retro_joy0_test(unsigned char joy0) +{ + + if(joy0&0x01 && joy0_flag[0]==0 ){ + //keyboard_matrix[(unsigned char)0x90 >> 4] &= ~bit_values2[(unsigned char)0x90 & 7]; + joy0_flag[0]=1; + } + else if(joy0_flag[0]){ + //keyboard_matrix[(unsigned char)0x90 >> 4] |= bit_values2[(unsigned char)0x90 & 7]; + joy0_flag[0]=0; + } + + if(joy0&0x02 && joy0_flag[1]==0 ){ + //keyboard_matrix[(unsigned char)0x91 >> 4] &= ~bit_values2[(unsigned char)0x91 & 7]; + joy0_flag[1]=1; + } + else if(joy0_flag[1]){ + //keyboard_matrix[(unsigned char)0x91 >> 4] |= bit_values2[(unsigned char)0x91 & 7]; + joy0_flag[1]=0; + } + + if(joy0&0x04 && joy0_flag[2]==0 ){ + //keyboard_matrix[(unsigned char)0x92 >> 4] &= ~bit_values2[(unsigned char)0x92 & 7]; + joy0_flag[2]=1; + } + else if(joy0_flag[2]){ + //keyboard_matrix[(unsigned char)0x92 >> 4] |= bit_values2[(unsigned char)0x92 & 7]; + joy0_flag[2]=0; + } + + if(joy0&0x08 && joy0_flag[3]==0 ){ + //keyboard_matrix[(unsigned char)0x93 >> 4] &= ~bit_values2[(unsigned char)0x93 & 7]; + joy0_flag[3]=1; + } + else if(joy0_flag[3]){ + //keyboard_matrix[(unsigned char)0x93 >> 4] |= bit_values2[(unsigned char)0x93 & 7]; + joy0_flag[3]=0; + } + + if(joy0&0x40 && joy0_flag[5]==0 ){ + //keyboard_matrix[(unsigned char)0x95 >> 4] &= ~bit_values2[(unsigned char)0x95 & 7]; + joy0_flag[5]=1; + } + else if(joy0_flag[5]){ + //keyboard_matrix[(unsigned char)0x95 >> 4] |= bit_values2[(unsigned char)0x95 & 7]; + joy0_flag[5]=0; + } + + if(joy0&0x80 && joy0_flag[4]==0 ){ + //keyboard_matrix[(unsigned char)0x94 >> 4] &= ~bit_values2[(unsigned char)0x94 & 7]; + joy0_flag[4]=1; + } + else if(joy0_flag[4]){ + //keyboard_matrix[(unsigned char)0x94 >> 4] |= bit_values2[(unsigned char)0x94 & 7]; + joy0_flag[4]=0; + } + +} + + +void retro_virtualkb(void) +{ + // VKBD + int i; + // RETRO B Y SLT STA UP DWN LEFT RGT A X L R L2 R2 L3 R3 + // INDEX 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + static int oldi=-1; + static int vkx=0,vky=0; + + if(oldi!=-1) + { + //retro_key_up(oldi); + vkbd_key(oldi,0); + oldi=-1; + } + + if(SHOWKEY==1) + { + static int vkflag[5]={0,0,0,0,0}; + + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP) && vkflag[0]==0 ) + vkflag[0]=1; + else if (vkflag[0]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP) ) + { + vkflag[0]=0; + vky -= 1; + } + + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN) && vkflag[1]==0 ) + vkflag[1]=1; + else if (vkflag[1]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN) ) + { + vkflag[1]=0; + vky += 1; + } + + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT) && vkflag[2]==0 ) + vkflag[2]=1; + else if (vkflag[2]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT) ) + { + vkflag[2]=0; + vkx -= 1; + } + + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT) && vkflag[3]==0 ) + vkflag[3]=1; + else if (vkflag[3]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT) ) + { + vkflag[3]=0; + vkx += 1; + } + + if(vkx<0)vkx=NPLGN-1; + if(vkx>NPLGN-1)vkx=0; + if(vky<0)vky=NLIGN-1; + if(vky>NLIGN-1)vky=0; + + virtual_kdb(( char *)Retro_Screen,vkx,vky); + + i=8; + if(input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && vkflag[4]==0) + vkflag[4]=1; + else if( !input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && vkflag[4]==1) + { + vkflag[4]=0; + i=check_vkey2(vkx,vky); + + if(i==-1){ + oldi=-1; + } + if(i==-2) + { + NPAGE=-NPAGE;oldi=-1; + } + else if(i==-3) + { + //KDB bgcolor + KCOL=-KCOL; + oldi=-1; + } + else if(i==-4) + { + //VKbd show/hide + oldi=-1; + Screen_SetFullUpdate(0); + SHOWKEY=-SHOWKEY; + } + else if(i==-5) + { + //FLIP DSK PORT 1-2 + NUMDRV=-NUMDRV; + oldi=-1; + } + else if(i==-6) + { + //Exit + retro_deinit(); + oldi=-1; + exit(0); + } + else if(i==-7) + { + //SNA SAVE + // snapshot_save (RPATH); + oldi=-1; + } + else if(i==-8) + { + //PLAY TAPE + // play_tape(); + oldi=-1; + } + + else + { + + if(i==0x25 /*i==-10*/) //SHIFT + { +// if(SHIFTON == 1)retro_key_up(RETROK_RSHIFT); +// else retro_key_down(RETROK_LSHIFT); + SHIFTON=-SHIFTON; + + oldi=-1; + } + else if(i==0x27/*i==-11*/) //CTRL + { +// if(CTRLON == 1)retro_key_up(RETROK_LCTRL); +/// else retro_key_down(RETROK_LCTRL); + CTRLON=-CTRLON; + + oldi=-1; + } + else if(i==-12) //RSTOP + { +// if(RSTOPON == 1)retro_key_up(RETROK_ESCAPE); +// else retro_key_down(RETROK_ESCAPE); + RSTOPON=-RSTOPON; + + oldi=-1; + } + else if(i==-13) //GUI + { + // pauseg=1; + + SHOWKEY=-SHOWKEY; + Screen_SetFullUpdate(0); + oldi=-1; + } + else if(i==-14) //JOY PORT TOGGLE + { + //cur joy toggle + //cur_port++;if(cur_port>2)cur_port=1; + SHOWKEY=-SHOWKEY; + oldi=-1; + } + else + { + oldi=i; + //retro_key_down(oldi); + vkbd_key(oldi,1); + } + + } + } + + } + + +} + +void Screen_SetFullUpdate(int scr) +{ + if(scr==0 ||scr>1)memset(Retro_Screen, 0, sizeof(Retro_Screen)); + // if(scr>0)memset(bmp,0,sizeof(bmp)); +} + +void Process_key() +{ + int i; + + for(i=0;i<320;i++) + Key_Sate[i]=input_state_cb(0, RETRO_DEVICE_KEYBOARD, 0,i) ? 0x80: 0; + + if(memcmp( Key_Sate,old_Key_Sate , sizeof(Key_Sate) ) ) + for(i=0;i<320;i++) + if(Key_Sate[i] && Key_Sate[i]!=old_Key_Sate[i] ) + { + if(i==RETROK_F12){ + //play_tape(); + continue; + } +/* + if(i==RETROK_RCTRL){ + //CTRLON=-CTRLON; + printf("Modifier crtl pressed %d \n",CTRLON); + continue; + } + if(i==RETROK_RSHIFT){ + //SHITFON=-SHITFON; + printf("Modifier shift pressed %d \n",SHIFTON); + continue; + } +*/ + if(i==RETROK_LALT){ + //KBMOD=-KBMOD; + printf("Modifier alt pressed %d \n",KBMOD); + continue; + } +//printf("press: %d \n",i); + retro_key_down(i); + + } + else if ( !Key_Sate[i] && Key_Sate[i]!=old_Key_Sate[i] ) + { + if(i==RETROK_F12){ + //kbd_buf_feed("|tape\nrun\"\n^"); + continue; + } +/* + if(i==RETROK_RCTRL){ + CTRLON=-CTRLON; + printf("Modifier crtl released %d \n",CTRLON); + continue; + } + if(i==RETROK_RSHIFT){ + SHIFTON=-SHIFTON; + printf("Modifier shift released %d \n",SHIFTON); + continue; + } +*/ + if(i==RETROK_LALT){ + KBMOD=-KBMOD; + printf("Modifier alt released %d \n",KBMOD); + continue; + } +//printf("release: %d \n",i); + retro_key_up(i); + + } + + memcpy(old_Key_Sate,Key_Sate , sizeof(Key_Sate) ); + +} +/* +void Print_Statut(void) +{ + DrawFBoxBmp(bmp,0,CROP_HEIGHT,CROP_WIDTH,STAT_YSZ,RGB565(0,0,0)); + + Draw_text(bmp,STAT_DECX+40 ,STAT_BASEY,0xffff,0x8080,1,2,40,(SND>0?"SND":"")); + Draw_text(bmp,STAT_DECX+80 ,STAT_BASEY,0xffff,0x8080,1,2,40,"F:%d",dwFPS); + Draw_text(bmp,STAT_DECX+120,STAT_BASEY,0xffff,0x8080,1,2,40,"DSK%c",NUMDRV>0?'A':'B'); + if(ZOOM>-1) + Draw_text(bmp,(384-Mres[ZOOM].x)/2,(272-Mres[ZOOM].y)/2,0xffff,0x8080,1,2,40,"x:%3d y:%3d",Mres[ZOOM].x,Mres[ZOOM].y); +} +*/ + + +/* +In joy mode +L3 GUI LOAD +R3 GUI SNAP +L2 STATUS ON/OFF +R2 AUTOLOAD TAPE +L CAT +R RESET +SEL MOUSE/JOY IN GUI +STR ENTER/RETURN +A FIRE1/VKBD KEY +B RUN +X FIRE2 +Y VKBD ON/OFF +In Keayboard mode +F8 LOAD DSK/TAPE +F9 MEM SNAPSHOT LOAD/SAVE +F10 MAIN GUI +F12 PLAY TAPE +*/ + +int Retro_PollEvent() +{ + // RETRO B Y SLT STA UP DWN LEFT RGT A X L R L2 R2 L3 R3 + // INDEX 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + + int SAVPAS=PAS; + int i; + static int vbt[16]={0x0,0x0,0x0,0x0,0x01,0x02,0x04,0x08,0x80,0x40,0x0,0x0,0x0,0x0,0x0,0x0}; + //MXjoy[0]=0; + + input_poll_cb(); + + int mouse_l; + int mouse_r; + int16_t mouse_x,mouse_y; + mouse_x=mouse_y=0; + + if(SHOWKEY==-1 && pauseg==0)Process_key(); + + +if(pauseg==0){ // if emulation running + + //Joy mode + + for(i=4;i<10;i++) + { + if( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i)) + MXjoy[0] |= vbt[i]; // Joy press + else if( MXjoy[0]&vbt[i])MXjoy[0] &= ~vbt[i]; // Joy press + } + + if(SHOWKEY==-1)retro_joy0_test(MXjoy[0]); + + +if(atari_devices[0]==RETRO_DEVICE_ATARI_JOYSTICK){ + //shortcut for joy mode only + + i=1;//show vkbd toggle + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ) + { + mbt[i]=0; + SHOWKEY=-SHOWKEY; + } + + i=3;//type ENTER + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ) + { + mbt[i]=0; + // kbd_buf_feed("\n"); + } + +/* + i=10;//type DEL / ZOOM + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + ZOOM++;if(ZOOM>4)ZOOM=-1; + + } +*/ + + i=0;//type RUN" + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + // kbd_buf_feed("RUN\""); + } + + i=10;//Type CAT\n + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + // kbd_buf_feed("CAT\n"); + //Screen_SetFullUpdate(); + } + + i=12;//show/hide statut + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + STATUTON=-STATUTON; + // Screen_SetFullUpdate(); + } + + i=13;//auto load tape + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + // kbd_buf_feed("|tape\nrun\"\n^"); + } + + i=11;//reset + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + //emu_reset(); + } + + i=2;//mouse/joy toggle + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + MOUSE_EMULATED=-MOUSE_EMULATED; + } + + // L3 -> gui load + if (input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, 14)){ + + } + // R3 -> gui snapshot + if (input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, 15)){ + + } + +}//if atari_devices=joy + + +}// if pauseg=0 +else{ + // if in gui + + i=2;//mouse/joy toggle + if ( input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) && mbt[i]==0 ) + mbt[i]=1; + else if ( mbt[i]==1 && ! input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, i) ){ + mbt[i]=0; + MOUSE_EMULATED=-MOUSE_EMULATED; + } + +} + + if(MOUSE_EMULATED==1){ + + if(slowdown>0)return 1; + + if (input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT))mouse_x += PAS; + if (input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_LEFT))mouse_x -= PAS; + if (input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_DOWN))mouse_y += PAS; + if (input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_UP))mouse_y -= PAS; + mouse_l=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A); + mouse_r=input_state_cb(0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B); + + PAS=SAVPAS; + + slowdown=1; + } + else { +//printf("-----------------%d \n",pauseg); + mouse_wu = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_WHEELUP); + mouse_wd = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_WHEELDOWN); +if(mouse_wu || mouse_wd)printf("-----------------MOUSE UP:%d DOWN:%d\n",mouse_wu, mouse_wd); + mouse_x = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_X); + mouse_y = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_Y); + mouse_l = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_LEFT); + mouse_r = input_state_cb(0, RETRO_DEVICE_MOUSE, 0, RETRO_DEVICE_ID_MOUSE_RIGHT); + } + + static int mmbL=0,mmbR=0; + + if(mmbL==0 && mouse_l){ + + mmbL=1; + pushi=1; + touch=1; + + } + else if(mmbL==1 && !mouse_l) { + + mmbL=0; + pushi=0; + touch=-1; + } + + if(mmbR==0 && mouse_r){ + mmbR=1; + } + else if(mmbR==1 && !mouse_r) { + mmbR=0; + } + +if(pauseg==0 && c64mouse_enable){ +/* + mouse_move((int)mouse_x, (int)mouse_y); + mouse_button(0,mmbL); + mouse_button(1,mmbR); +*/ +} + + gmx+=mouse_x; + gmy+=mouse_y; + if(gmx<0)gmx=0; + if(gmx>retrow-1)gmx=retrow-1; + if(gmy<0)gmy=0; + if(gmy>retroh-1)gmy=retroh-1; + + + if(SHOWKEY && pauseg==0)retro_virtualkb(); + +return 1; + +} + diff --git a/libretro/font2.i b/libretro/font2.i new file mode 100644 index 0000000..d1868a7 --- /dev/null +++ b/libretro/font2.i @@ -0,0 +1,270 @@ +/****************************************************************/ +/* Apple IIgs emulator */ +/* */ +/* Apple 2GS Original fonts. */ +/* All the characters are coded in their original set. */ +/* Only the USA keyboard is recognized with ROM 01. */ +/* */ +/****************************************************************/ + +unsigned char font_array[256*8] += { +0xc7, 0xbb, 0xab, 0xa3, 0xa7, 0xbf, 0xc3, 0xff, +0xef, 0xd7, 0xbb, 0xbb, 0x83, 0xbb, 0xbb, 0xff, +0x87, 0xbb, 0xbb, 0x87, 0xbb, 0xbb, 0x87, 0xff, +0xc7, 0xbb, 0xbf, 0xbf, 0xbf, 0xbb, 0xc7, 0xff, +0x87, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0x87, 0xff, +0x83, 0xbf, 0xbf, 0x87, 0xbf, 0xbf, 0x83, 0xff, +0x83, 0xbf, 0xbf, 0x87, 0xbf, 0xbf, 0xbf, 0xff, +0xc3, 0xbf, 0xbf, 0xbf, 0xb3, 0xbb, 0xc3, 0xff, +0xbb, 0xbb, 0xbb, 0x83, 0xbb, 0xbb, 0xbb, 0xff, +0xc7, 0xef, 0xef, 0xef, 0xef, 0xef, 0xc7, 0xff, +0xfb, 0xfb, 0xfb, 0xfb, 0xfb, 0xbb, 0xc7, 0xff, +0xbb, 0xb7, 0xaf, 0x9f, 0xaf, 0xb7, 0xbb, 0xff, +0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0x83, 0xff, +0xbb, 0x93, 0xab, 0xab, 0xbb, 0xbb, 0xbb, 0xff, +0xbb, 0xbb, 0x9b, 0xab, 0xb3, 0xbb, 0xbb, 0xff, +0xc7, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xc7, 0xff, +0x87, 0xbb, 0xbb, 0x87, 0xbf, 0xbf, 0xbf, 0xff, +0xc7, 0xbb, 0xbb, 0xbb, 0xab, 0xb7, 0xcb, 0xff, +0x87, 0xbb, 0xbb, 0x87, 0xaf, 0xb7, 0xbb, 0xff, +0xc7, 0xbb, 0xbf, 0xc7, 0xfb, 0xbb, 0xc7, 0xff, +0x83, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xff, +0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xc7, 0xff, +0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xd7, 0xef, 0xff, +0xbb, 0xbb, 0xbb, 0xab, 0xab, 0x93, 0xbb, 0xff, +0xbb, 0xbb, 0xd7, 0xef, 0xd7, 0xbb, 0xbb, 0xff, +0xbb, 0xbb, 0xd7, 0xef, 0xef, 0xef, 0xef, 0xff, +0x83, 0xfb, 0xf7, 0xef, 0xdf, 0xbf, 0x83, 0xff, +0x83, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x83, 0xff, +0xff, 0xbf, 0xdf, 0xef, 0xf7, 0xfb, 0xff, 0xff, +0x83, 0xf3, 0xf3, 0xf3, 0xf3, 0xf3, 0x83, 0xff, +0xff, 0xff, 0xef, 0xd7, 0xbb, 0xff, 0xff, 0xff, +0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01, +0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, +0xef, 0xef, 0xef, 0xef, 0xef, 0xff, 0xef, 0xff, +0xd7, 0xd7, 0xd7, 0xff, 0xff, 0xff, 0xff, 0xff, +0xd7, 0xd7, 0x83, 0xd7, 0x83, 0xd7, 0xd7, 0xff, +0xef, 0xc3, 0xaf, 0xc7, 0xeb, 0x87, 0xef, 0xff, +0x9f, 0x9b, 0xf7, 0xef, 0xdf, 0xb3, 0xf3, 0xff, +0xdf, 0xaf, 0xaf, 0xdf, 0xab, 0xb7, 0xcb, 0xff, +0xef, 0xef, 0xef, 0xff, 0xff, 0xff, 0xff, 0xff, +0xef, 0xdf, 0xbf, 0xbf, 0xbf, 0xdf, 0xef, 0xff, +0xef, 0xf7, 0xfb, 0xfb, 0xfb, 0xf7, 0xef, 0xff, +0xef, 0xab, 0xc7, 0xef, 0xc7, 0xab, 0xef, 0xff, +0xff, 0xef, 0xef, 0x83, 0xef, 0xef, 0xff, 0xff, +0xff, 0xff, 0xff, 0xff, 0xef, 0xef, 0xdf, 0xff, +0xff, 0xff, 0xff, 0x83, 0xff, 0xff, 0xff, 0xff, +0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xef, 0xff, +0xff, 0xfb, 0xf7, 0xef, 0xdf, 0xbf, 0xff, 0xff, +0xc7, 0xbb, 0xb3, 0xab, 0x9b, 0xbb, 0xc7, 0xff, +0xef, 0xcf, 0xef, 0xef, 0xef, 0xef, 0xc7, 0xff, +0xc7, 0xbb, 0xfb, 0xe7, 0xdf, 0xbf, 0x83, 0xff, +0x83, 0xfb, 0xf7, 0xe7, 0xfb, 0xbb, 0xc7, 0xff, +0xf7, 0xe7, 0xd7, 0xb7, 0x83, 0xf7, 0xf7, 0xff, +0x83, 0xbf, 0x87, 0xfb, 0xfb, 0xbb, 0xc7, 0xff, +0xe3, 0xdf, 0xbf, 0x87, 0xbb, 0xbb, 0xc7, 0xff, +0x83, 0xfb, 0xf7, 0xef, 0xdf, 0xdf, 0xdf, 0xff, +0xc7, 0xbb, 0xbb, 0xc7, 0xbb, 0xbb, 0xc7, 0xff, +0xc7, 0xbb, 0xbb, 0xc3, 0xfb, 0xf7, 0x8f, 0xff, +0xff, 0xff, 0xef, 0xff, 0xef, 0xff, 0xff, 0xff, +0xff, 0xff, 0xef, 0xff, 0xef, 0xef, 0xdf, 0xff, +0xf7, 0xef, 0xdf, 0xbf, 0xdf, 0xef, 0xf7, 0xff, +0xff, 0xff, 0x83, 0xff, 0x83, 0xff, 0xff, 0xff, +0xdf, 0xef, 0xf7, 0xfb, 0xf7, 0xef, 0xdf, 0xff, +0xc7, 0xbb, 0xf7, 0xef, 0xef, 0xff, 0xef, 0xff, +0x08, 0x10, 0x6c, 0xfe, 0xfc, 0xfc, 0x7e, 0x6c, +0x08, 0x10, 0x6c, 0x82, 0x84, 0x84, 0x52, 0x6c, +0x00, 0x00, 0x40, 0x60, 0x70, 0x78, 0x6c, 0x42, +0xfe, 0x44, 0x28, 0x10, 0x10, 0x28, 0x54, 0xfe, +0x00, 0x02, 0x04, 0x88, 0x50, 0x20, 0x20, 0x00, +0xfe, 0xfc, 0xfa, 0x36, 0xae, 0xde, 0xde, 0xfe, +0xfc, 0xfc, 0xfc, 0xdc, 0x9c, 0x00, 0x9e, 0xde, +0xfe, 0x00, 0xfe, 0x00, 0xfe, 0x00, 0x00, 0xfe, +0x10, 0x20, 0x40, 0xfe, 0x40, 0x20, 0x10, 0x00, +0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x54, +0x10, 0x10, 0x10, 0x10, 0x92, 0x54, 0x38, 0x10, +0x10, 0x38, 0x54, 0x92, 0x10, 0x10, 0x10, 0x10, +0xfe, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, +0x02, 0x02, 0x02, 0x22, 0x62, 0xfe, 0x60, 0x20, +0xfc, 0xfc, 0xfc, 0xfc, 0xfc, 0xfc, 0xfc, 0xfc, +0xc8, 0x18, 0x38, 0x7e, 0x38, 0x18, 0x08, 0xf6, +0x26, 0x30, 0x38, 0xfc, 0x38, 0x30, 0x20, 0xde, +0x02, 0x12, 0x10, 0xfe, 0x7c, 0x38, 0x12, 0x02, +0x02, 0x12, 0x38, 0x7c, 0xfe, 0x10, 0x12, 0x02, +0x00, 0x00, 0x00, 0xfe, 0x00, 0x00, 0x00, 0x00, +0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0xfe, +0x10, 0x08, 0x04, 0xfe, 0x04, 0x08, 0x10, 0x00, +0x54, 0xaa, 0x54, 0xaa, 0x54, 0xaa, 0x54, 0xaa, +0xaa, 0x54, 0xaa, 0x54, 0xaa, 0x54, 0xaa, 0x54, +0x00, 0x7c, 0x82, 0x80, 0x80, 0x80, 0xfe, 0x00, +0x00, 0x00, 0xfc, 0x02, 0x02, 0x02, 0xfe, 0x00, +0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, +0x10, 0x38, 0x7c, 0xfe, 0x7c, 0x38, 0x10, 0x00, +0xfe, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, +0x28, 0x28, 0xee, 0x00, 0xee, 0x28, 0x28, 0x00, +0xfe, 0x02, 0x02, 0x32, 0x32, 0x02, 0x02, 0xfe, +0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, +0xdf, 0xef, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, +0xff, 0xff, 0xc7, 0xfb, 0xc3, 0xbb, 0xc3, 0xff, +0xbf, 0xbf, 0x87, 0xbb, 0xbb, 0xbb, 0x87, 0xff, +0xff, 0xff, 0xc3, 0xbf, 0xbf, 0xbf, 0xc3, 0xff, +0xfb, 0xfb, 0xc3, 0xbb, 0xbb, 0xbb, 0xc3, 0xff, +0xff, 0xff, 0xc7, 0xbb, 0x83, 0xbf, 0xc3, 0xff, +0xe7, 0xdb, 0xdf, 0x87, 0xdf, 0xdf, 0xdf, 0xff, +0xff, 0xff, 0xc7, 0xbb, 0xbb, 0xc3, 0xfb, 0xc7, +0xbf, 0xbf, 0x87, 0xbb, 0xbb, 0xbb, 0xbb, 0xff, +0xef, 0xff, 0xcf, 0xef, 0xef, 0xef, 0xc7, 0xff, +0xf7, 0xff, 0xe7, 0xf7, 0xf7, 0xf7, 0xb7, 0xcf, +0xbf, 0xbf, 0xbb, 0xb7, 0x8f, 0xb7, 0xbb, 0xff, +0xcf, 0xef, 0xef, 0xef, 0xef, 0xef, 0xc7, 0xff, +0xff, 0xff, 0x93, 0xab, 0xab, 0xab, 0xbb, 0xff, +0xff, 0xff, 0x87, 0xbb, 0xbb, 0xbb, 0xbb, 0xff, +0xff, 0xff, 0xc7, 0xbb, 0xbb, 0xbb, 0xc7, 0xff, +0xff, 0xff, 0x87, 0xbb, 0xbb, 0x87, 0xbf, 0xbf, +0xff, 0xff, 0xc3, 0xbb, 0xbb, 0xc3, 0xfb, 0xfb, +0xff, 0xff, 0xa3, 0x9f, 0xbf, 0xbf, 0xbf, 0xff, +0xff, 0xff, 0xc3, 0xbf, 0xc7, 0xfb, 0x87, 0xff, +0xdf, 0xdf, 0x87, 0xdf, 0xdf, 0xdb, 0xe7, 0xff, +0xff, 0xff, 0xbb, 0xbb, 0xbb, 0xb3, 0xcb, 0xff, +0xff, 0xff, 0xbb, 0xbb, 0xbb, 0xd7, 0xef, 0xff, +0xff, 0xff, 0xbb, 0xbb, 0xab, 0xab, 0x93, 0xff, +0xff, 0xff, 0xbb, 0xd7, 0xef, 0xd7, 0xbb, 0xff, +0xff, 0xff, 0xbb, 0xbb, 0xbb, 0xc3, 0xfb, 0xc7, +0xff, 0xff, 0x83, 0xf7, 0xef, 0xdf, 0x83, 0xff, +0xe3, 0xcf, 0xcf, 0x9f, 0xcf, 0xcf, 0xe3, 0xff, +0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, +0x8f, 0xe7, 0xe7, 0xf3, 0xe7, 0xe7, 0x8f, 0xff, +0xcb, 0xa7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, +0xff, 0xab, 0xd7, 0xab, 0xd7, 0xab, 0xff, 0xff, +0x38, 0x44, 0x54, 0x5c, 0x58, 0x40, 0x3c, 0x00, +0x10, 0x28, 0x44, 0x44, 0x7c, 0x44, 0x44, 0x00, +0x78, 0x44, 0x44, 0x78, 0x44, 0x44, 0x78, 0x00, +0x38, 0x44, 0x40, 0x40, 0x40, 0x44, 0x38, 0x00, +0x78, 0x44, 0x44, 0x44, 0x44, 0x44, 0x78, 0x00, +0x7c, 0x40, 0x40, 0x78, 0x40, 0x40, 0x7c, 0x00, +0x7c, 0x40, 0x40, 0x78, 0x40, 0x40, 0x40, 0x00, +0x3c, 0x40, 0x40, 0x40, 0x4c, 0x44, 0x3c, 0x00, +0x44, 0x44, 0x44, 0x7c, 0x44, 0x44, 0x44, 0x00, +0x38, 0x10, 0x10, 0x10, 0x10, 0x10, 0x38, 0x00, +0x04, 0x04, 0x04, 0x04, 0x04, 0x44, 0x38, 0x00, +0x44, 0x48, 0x50, 0x60, 0x50, 0x48, 0x44, 0x00, +0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x7c, 0x00, +0x44, 0x6c, 0x54, 0x54, 0x44, 0x44, 0x44, 0x00, +0x44, 0x44, 0x64, 0x54, 0x4c, 0x44, 0x44, 0x00, +0x38, 0x44, 0x44, 0x44, 0x44, 0x44, 0x38, 0x00, +0x78, 0x44, 0x44, 0x78, 0x40, 0x40, 0x40, 0x00, +0x38, 0x44, 0x44, 0x44, 0x54, 0x48, 0x34, 0x00, +0x78, 0x44, 0x44, 0x78, 0x50, 0x48, 0x44, 0x00, +0x38, 0x44, 0x40, 0x38, 0x04, 0x44, 0x38, 0x00, +0x7c, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x00, +0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0x38, 0x00, +0x44, 0x44, 0x44, 0x44, 0x44, 0x28, 0x10, 0x00, +0x44, 0x44, 0x44, 0x54, 0x54, 0x6c, 0x44, 0x00, +0x44, 0x44, 0x28, 0x10, 0x28, 0x44, 0x44, 0x00, +0x44, 0x44, 0x28, 0x10, 0x10, 0x10, 0x10, 0x00, +0x7c, 0x04, 0x08, 0x10, 0x20, 0x40, 0x7c, 0x00, +0x7c, 0x60, 0x60, 0x60, 0x60, 0x60, 0x7c, 0x00, +0x00, 0x40, 0x20, 0x10, 0x08, 0x04, 0x00, 0x00, +0x7c, 0x0c, 0x0c, 0x0c, 0x0c, 0x0c, 0x7c, 0x00, +0x00, 0x00, 0x10, 0x28, 0x44, 0x00, 0x00, 0x00, +0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, +0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, +0x10, 0x10, 0x10, 0x10, 0x10, 0x00, 0x10, 0x00, +0x28, 0x28, 0x28, 0x00, 0x00, 0x00, 0x00, 0x00, +0x28, 0x28, 0x7c, 0x28, 0x7c, 0x28, 0x28, 0x00, +0x10, 0x3c, 0x50, 0x38, 0x14, 0x78, 0x10, 0x00, +0x60, 0x64, 0x08, 0x10, 0x20, 0x4c, 0x0c, 0x00, +0x20, 0x50, 0x50, 0x20, 0x54, 0x48, 0x34, 0x00, +0x10, 0x10, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, +0x10, 0x20, 0x40, 0x40, 0x40, 0x20, 0x10, 0x00, +0x10, 0x08, 0x04, 0x04, 0x04, 0x08, 0x10, 0x00, +0x10, 0x54, 0x38, 0x10, 0x38, 0x54, 0x10, 0x00, +0x00, 0x10, 0x10, 0x7c, 0x10, 0x10, 0x00, 0x00, +0x00, 0x00, 0x00, 0x00, 0x10, 0x10, 0x20, 0x00, +0x00, 0x00, 0x00, 0x7c, 0x00, 0x00, 0x00, 0x00, +0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, +0x00, 0x04, 0x08, 0x10, 0x20, 0x40, 0x00, 0x00, +0x38, 0x44, 0x4c, 0x54, 0x64, 0x44, 0x38, 0x00, +0x10, 0x30, 0x10, 0x10, 0x10, 0x10, 0x38, 0x00, +0x38, 0x44, 0x04, 0x18, 0x20, 0x40, 0x7c, 0x00, +0x7c, 0x04, 0x08, 0x18, 0x04, 0x44, 0x38, 0x00, +0x08, 0x18, 0x28, 0x48, 0x7c, 0x08, 0x08, 0x00, +0x7c, 0x40, 0x78, 0x04, 0x04, 0x44, 0x38, 0x00, +0x1c, 0x20, 0x40, 0x78, 0x44, 0x44, 0x38, 0x00, +0x7c, 0x04, 0x08, 0x10, 0x20, 0x20, 0x20, 0x00, +0x38, 0x44, 0x44, 0x38, 0x44, 0x44, 0x38, 0x00, +0x38, 0x44, 0x44, 0x3c, 0x04, 0x08, 0x70, 0x00, +0x00, 0x00, 0x10, 0x00, 0x10, 0x00, 0x00, 0x00, +0x00, 0x00, 0x10, 0x00, 0x10, 0x10, 0x20, 0x00, +0x08, 0x10, 0x20, 0x40, 0x20, 0x10, 0x08, 0x00, +0x00, 0x00, 0x7c, 0x00, 0x7c, 0x00, 0x00, 0x00, +0x20, 0x10, 0x08, 0x04, 0x08, 0x10, 0x20, 0x00, +0x38, 0x44, 0x08, 0x10, 0x10, 0x00, 0x10, 0x00, +0x38, 0x44, 0x54, 0x5c, 0x58, 0x40, 0x3c, 0x00, +0x10, 0x28, 0x44, 0x44, 0x7c, 0x44, 0x44, 0x00, +0x78, 0x44, 0x44, 0x78, 0x44, 0x44, 0x78, 0x00, +0x38, 0x44, 0x40, 0x40, 0x40, 0x44, 0x38, 0x00, +0x78, 0x44, 0x44, 0x44, 0x44, 0x44, 0x78, 0x00, +0x7c, 0x40, 0x40, 0x78, 0x40, 0x40, 0x7c, 0x00, +0x7c, 0x40, 0x40, 0x78, 0x40, 0x40, 0x40, 0x00, +0x3c, 0x40, 0x40, 0x40, 0x4c, 0x44, 0x3c, 0x00, +0x44, 0x44, 0x44, 0x7c, 0x44, 0x44, 0x44, 0x00, +0x38, 0x10, 0x10, 0x10, 0x10, 0x10, 0x38, 0x00, +0x04, 0x04, 0x04, 0x04, 0x04, 0x44, 0x38, 0x00, +0x44, 0x48, 0x50, 0x60, 0x50, 0x48, 0x44, 0x00, +0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x7c, 0x00, +0x44, 0x6c, 0x54, 0x54, 0x44, 0x44, 0x44, 0x00, +0x44, 0x44, 0x64, 0x54, 0x4c, 0x44, 0x44, 0x00, +0x38, 0x44, 0x44, 0x44, 0x44, 0x44, 0x38, 0x00, +0x78, 0x44, 0x44, 0x78, 0x40, 0x40, 0x40, 0x00, +0x38, 0x44, 0x44, 0x44, 0x54, 0x48, 0x34, 0x00, +0x78, 0x44, 0x44, 0x78, 0x50, 0x48, 0x44, 0x00, +0x38, 0x44, 0x40, 0x38, 0x04, 0x44, 0x38, 0x00, +0x7c, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x00, +0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0x38, 0x00, +0x44, 0x44, 0x44, 0x44, 0x44, 0x28, 0x10, 0x00, +0x44, 0x44, 0x44, 0x54, 0x54, 0x6c, 0x44, 0x00, +0x44, 0x44, 0x28, 0x10, 0x28, 0x44, 0x44, 0x00, +0x44, 0x44, 0x28, 0x10, 0x10, 0x10, 0x10, 0x00, +0x7c, 0x04, 0x08, 0x10, 0x20, 0x40, 0x7c, 0x00, +0x7c, 0x60, 0x60, 0x60, 0x60, 0x60, 0x7c, 0x00, +0x00, 0x40, 0x20, 0x10, 0x08, 0x04, 0x00, 0x00, +0x7c, 0x0c, 0x0c, 0x0c, 0x0c, 0x0c, 0x7c, 0x00, +0x00, 0x00, 0x10, 0x28, 0x44, 0x00, 0x00, 0x00, +0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, +0x20, 0x10, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, +0x00, 0x00, 0x38, 0x04, 0x3c, 0x44, 0x3c, 0x00, +0x40, 0x40, 0x78, 0x44, 0x44, 0x44, 0x78, 0x00, +0x00, 0x00, 0x3c, 0x40, 0x40, 0x40, 0x3c, 0x00, +0x04, 0x04, 0x3c, 0x44, 0x44, 0x44, 0x3c, 0x00, +0x00, 0x00, 0x38, 0x44, 0x7c, 0x40, 0x3c, 0x00, +0x18, 0x24, 0x20, 0x78, 0x20, 0x20, 0x20, 0x00, +0x00, 0x00, 0x38, 0x44, 0x44, 0x3c, 0x04, 0x38, +0x40, 0x40, 0x78, 0x44, 0x44, 0x44, 0x44, 0x00, +0x10, 0x00, 0x30, 0x10, 0x10, 0x10, 0x38, 0x00, +0x08, 0x00, 0x18, 0x08, 0x08, 0x08, 0x48, 0x30, +0x40, 0x40, 0x44, 0x48, 0x70, 0x48, 0x44, 0x00, +0x30, 0x10, 0x10, 0x10, 0x10, 0x10, 0x38, 0x00, +0x00, 0x00, 0x6c, 0x54, 0x54, 0x54, 0x44, 0x00, +0x00, 0x00, 0x78, 0x44, 0x44, 0x44, 0x44, 0x00, +0x00, 0x00, 0x38, 0x44, 0x44, 0x44, 0x38, 0x00, +0x00, 0x00, 0x78, 0x44, 0x44, 0x78, 0x40, 0x40, +0x00, 0x00, 0x3c, 0x44, 0x44, 0x3c, 0x04, 0x04, +0x00, 0x00, 0x5c, 0x60, 0x40, 0x40, 0x40, 0x00, +0x00, 0x00, 0x3c, 0x40, 0x38, 0x04, 0x78, 0x00, +0x20, 0x20, 0x78, 0x20, 0x20, 0x24, 0x18, 0x00, +0x00, 0x00, 0x44, 0x44, 0x44, 0x4c, 0x34, 0x00, +0x00, 0x00, 0x44, 0x44, 0x44, 0x28, 0x10, 0x00, +0x00, 0x00, 0x44, 0x44, 0x54, 0x54, 0x6c, 0x00, +0x00, 0x00, 0x44, 0x28, 0x10, 0x28, 0x44, 0x00, +0x00, 0x00, 0x44, 0x44, 0x44, 0x3c, 0x04, 0x38, +0x00, 0x00, 0x7c, 0x08, 0x10, 0x20, 0x7c, 0x00, +0x1c, 0x30, 0x30, 0x60, 0x30, 0x30, 0x1c, 0x00, +0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, +0x70, 0x18, 0x18, 0x0c, 0x18, 0x18, 0x70, 0x00, +0x34, 0x58, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, +0x00, 0x54, 0x28, 0x54, 0x28, 0x54, 0x00, 0x00, +}; + +/* Well, this is finally done ! */ diff --git a/libretro/graph.c b/libretro/graph.c new file mode 100755 index 0000000..55e1fef --- /dev/null +++ b/libretro/graph.c @@ -0,0 +1,368 @@ + +#include +#include +#include +#include + +#include "graph.h" +#include "libretro-core.h" + +extern int VIRTUAL_WIDTH; + +void DrawFBoxBmp(char *buffer,int x,int y,int dx,int dy,unsigned color){ + + int i,j,idx; + + +#if defined PITCH && PITCH == 4 +unsigned *mbuffer=(unsigned*)buffer; +#else +unsigned short *mbuffer=(unsigned short *)buffer; +#endif + + for(i=x;i= 0) ? 1 : -1; + sy = (dy >= 0) ? 1 : -1; + + if (dx==0) { + if (dy>0) { + DrawVlineBmp(buffer, x1, y1,0, dy, color); + return; + + } else if (dy<0) { + DrawVlineBmp(buffer, x1, y2,0, -dy, color); + return; + + } else { + idx=x1+y1*VIRTUAL_WIDTH; + mbuffer[idx]=color; + return ; + } + } + if (dy == 0) { + if (dx>0) { + DrawHlineBmp(buffer, x1, y1, dx, 0, color); + return; + + } else if (dx<0) { + DrawHlineBmp(buffer, x2, y1, -dx,0, color); + return; + } + } + + dx = sx * dx + 1; + dy = sy * dy + 1; + + pixx = 1; + pixy = VIRTUAL_WIDTH; + + pixx *= sx; + pixy *= sy; + + if (dx < dy) { + swaptmp = dx; + dx = dy; + dy = swaptmp; + swaptmp = pixx; + pixx = pixy; + pixy = swaptmp; + } + + x = 0; + y = 0; + + idx=x1+y1*VIRTUAL_WIDTH; + + for (; x < dx; x++, idx +=pixx) { + mbuffer[idx]=color; + y += dy; + if (y >= dx) { + y -= dx; + idx += pixy; + } + } + +} +/* +void DrawBox(char *buffer,box b,char t[],unsigned color){ + + + DrawBoxBmp(mbuffer,b.x,b.y,b.dx,b.dy,color); + textCpixel(mbuffer,b.x, 3*b.x + b.dx ,b.y+2,color,1,1,4,"%s",t); + +} + +void DrawBoxF(char *buffer,box b,char t[],unsigned color,unsigned border){ + + int ydec=b.y+(b.dy/2)-4; + + + if(ydec +#include + +#if defined(__GNUC__) && !defined(_WIN32) && !defined(__cplusplus) +#define CO_USE_INLINE_ASM +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +static thread_local long long co_active_buffer[64]; +static thread_local cothread_t co_active_handle = 0; +#ifndef CO_USE_INLINE_ASM +static void (*co_swap)(cothread_t, cothread_t) = 0; +#else +void co_swap(cothread_t, cothread_t); +#endif + +#ifdef _WIN32 +//ABI: Win64 +static unsigned char co_swap_function[] = { + 0x48, 0x89, 0x22, /* mov [rdx],rsp */ + 0x48, 0x8b, 0x21, /* mov rsp,[rcx] */ + 0x58, /* pop rax */ + 0x48, 0x89, 0x6a, 0x08, /* mov [rdx+0x8],rbp */ + 0x48, 0x89, 0x72, 0x10, /* mov [rdx+0x10],rsi */ + 0x48, 0x89, 0x7a, 0x18, /* mov [rdx+0x18],rdi */ + 0x48, 0x89, 0x5a, 0x20, /* mov [rdx+0x20],rbx */ + 0x4c, 0x89, 0x62, 0x28, /* mov [rdx+0x28],r12 */ + 0x4c, 0x89, 0x6a, 0x30, /* mov [rdx+0x30],r13 */ + 0x4c, 0x89, 0x72, 0x38, /* mov [rdx+0x38],r14 */ + 0x4c, 0x89, 0x7a, 0x40, /* mov [rdx+0x40],r15 */ + 0x48, 0x81, 0xc2, 0x80, 0x00, 0x00, 0x00, /* add rdx,0x80 */ + 0x48, 0x83, 0xe2, 0xf0, /* and rdx,-0x10 */ + 0x0f, 0x29, 0x32, /* movaps [rdx],xmm6 */ + 0x0f, 0x29, 0x7a, 0x10, /* movaps [rdx+0x10],xmm7 */ + 0x44, 0x0f, 0x29, 0x42, 0x20, /* movaps [rdx+0x20],xmm8 */ + 0x44, 0x0f, 0x29, 0x4a, 0x30, /* movaps [rdx+0x30],xmm9 */ + 0x44, 0x0f, 0x29, 0x52, 0x40, /* movaps [rdx+0x40],xmm10 */ + 0x44, 0x0f, 0x29, 0x5a, 0x50, /* movaps [rdx+0x50],xmm11 */ + 0x44, 0x0f, 0x29, 0x62, 0x60, /* movaps [rdx+0x60],xmm12 */ + 0x44, 0x0f, 0x29, 0x6a, 0x70, /* movaps [rdx+0x70],xmm13 */ + 0x44, 0x0f, 0x29, 0xb2, 0x80, 0x00, 0x00, 0x00, /* movaps [rdx+0x80],xmm14 */ + 0x44, 0x0f, 0x29, 0xba, 0x90, 0x00, 0x00, 0x00, /* movaps [rdx+0x90],xmm15 */ + 0x48, 0x8b, 0x69, 0x08, /* mov rbp,[rcx+0x8] */ + 0x48, 0x8b, 0x71, 0x10, /* mov rsi,[rcx+0x10] */ + 0x48, 0x8b, 0x79, 0x18, /* mov rdi,[rcx+0x18] */ + 0x48, 0x8b, 0x59, 0x20, /* mov rbx,[rcx+0x20] */ + 0x4c, 0x8b, 0x61, 0x28, /* mov r12,[rcx+0x28] */ + 0x4c, 0x8b, 0x69, 0x30, /* mov r13,[rcx+0x30] */ + 0x4c, 0x8b, 0x71, 0x38, /* mov r14,[rcx+0x38] */ + 0x4c, 0x8b, 0x79, 0x40, /* mov r15,[rcx+0x40] */ + 0x48, 0x81, 0xc1, 0x80, 0x00, 0x00, 0x00, /* add rcx,0x80 */ + 0x48, 0x83, 0xe1, 0xf0, /* and rcx,-0x10 */ + 0x0f, 0x29, 0x31, /* movaps [rcx],xmm6 */ + 0x0f, 0x29, 0x79, 0x10, /* movaps [rcx+0x10],xmm7 */ + 0x44, 0x0f, 0x29, 0x41, 0x20, /* movaps [rcx+0x20],xmm8 */ + 0x44, 0x0f, 0x29, 0x49, 0x30, /* movaps [rcx+0x30],xmm9 */ + 0x44, 0x0f, 0x29, 0x51, 0x40, /* movaps [rcx+0x40],xmm10 */ + 0x44, 0x0f, 0x29, 0x59, 0x50, /* movaps [rcx+0x50],xmm11 */ + 0x44, 0x0f, 0x29, 0x61, 0x60, /* movaps [rcx+0x60],xmm12 */ + 0x44, 0x0f, 0x29, 0x69, 0x70, /* movaps [rcx+0x70],xmm13 */ + 0x44, 0x0f, 0x29, 0xb1, 0x80, 0x00, 0x00, 0x00, /* movaps [rcx+0x80],xmm14 */ + 0x44, 0x0f, 0x29, 0xb9, 0x90, 0x00, 0x00, 0x00, /* movaps [rcx+0x90],xmm15 */ + 0xff, 0xe0, /* jmp rax */ +}; + +#include + +void co_init(void) +{ + DWORD old_privileges; + VirtualProtect(co_swap_function, + sizeof(co_swap_function), PAGE_EXECUTE_READWRITE, &old_privileges); +} +#else +//ABI: SystemV +#ifndef CO_USE_INLINE_ASM +static unsigned char co_swap_function[] = { + 0x48, 0x89, 0x26, /* mov [rsi],rsp */ + 0x48, 0x8b, 0x27, /* mov rsp,[rdi] */ + 0x58, /* pop rax */ + 0x48, 0x89, 0x6e, 0x08, /* mov [rsi+0x08],rbp */ + 0x48, 0x89, 0x5e, 0x10, /* mov [rsi+0x10],rbx */ + 0x4c, 0x89, 0x66, 0x18, /* mov [rsi+0x18],r12 */ + 0x4c, 0x89, 0x6e, 0x20, /* mov [rsi+0x20],r13 */ + 0x4c, 0x89, 0x76, 0x28, /* mov [rsi+0x28],r14 */ + 0x4c, 0x89, 0x7e, 0x30, /* mov [rsi+0x30],r15 */ + 0x48, 0x8b, 0x6f, 0x08, /* mov rbp,[rdi+0x08] */ + 0x48, 0x8b, 0x5f, 0x10, /* mov rbx,[rdi+0x10] */ + 0x4c, 0x8b, 0x67, 0x18, /* mov r12,[rdi+0x18] */ + 0x4c, 0x8b, 0x6f, 0x20, /* mov r13,[rdi+0x20] */ + 0x4c, 0x8b, 0x77, 0x28, /* mov r14,[rdi+0x28] */ + 0x4c, 0x8b, 0x7f, 0x30, /* mov r15,[rdi+0x30] */ + 0xff, 0xe0, /* jmp rax */ +}; + +#include +#include + +void co_init(void) +{ + unsigned long long addr = (unsigned long long)co_swap_function; + unsigned long long base = addr - (addr % sysconf(_SC_PAGESIZE)); + unsigned long long size = (addr - base) + sizeof(co_swap_function); + mprotect((void*)base, size, PROT_READ | PROT_WRITE | PROT_EXEC); +} +#else +__asm__( +".intel_syntax noprefix\n" +".globl co_swap \n" +"co_swap: \n" +".globl _co_swap \n" /* OSX ABI is different from Linux. */ +"_co_swap: \n" +"mov [rsi],rsp \n" +"mov [rsi+0x08],rbp \n" +"mov [rsi+0x10],rbx \n" +"mov [rsi+0x18],r12 \n" +"mov [rsi+0x20],r13 \n" +"mov [rsi+0x28],r14 \n" +"mov [rsi+0x30],r15 \n" +"mov rsp,[rdi] \n" +"mov rbp,[rdi+0x08] \n" +"mov rbx,[rdi+0x10] \n" +"mov r12,[rdi+0x18] \n" +"mov r13,[rdi+0x20] \n" +"mov r14,[rdi+0x28] \n" +"mov r15,[rdi+0x30] \n" +"ret \n" +".att_syntax \n" +); +#endif +#endif + +static void crash(void) +{ + assert(0); /* called only if cothread_t entrypoint returns */ +} + +cothread_t co_active(void) +{ + if (!co_active_handle) + co_active_handle = &co_active_buffer; + return co_active_handle; +} + +cothread_t co_create(unsigned int size, void (*entrypoint)(void)) +{ + cothread_t handle; + +#ifndef CO_USE_INLINE_ASM + if(!co_swap) + { + co_init(); + co_swap = (void (*)(cothread_t, cothread_t))co_swap_function; + } +#endif + + if (!co_active_handle) + co_active_handle = &co_active_buffer; + size += 512; /* allocate additional space for storage */ + size &= ~15; /* align stack to 16-byte boundary */ + + if((handle = (cothread_t)malloc(size))) + { + long long *p = (long long*)((char*)handle + size); /* seek to top of stack */ + *--p = (long long)crash; /* crash if entrypoint returns */ + *--p = (long long)entrypoint; /* start of function */ + *(long long*)handle = (long long)p; /* stack pointer */ + } + + return handle; +} + +void co_delete(cothread_t handle) +{ + free(handle); +} + +void co_switch(cothread_t handle) +{ + register cothread_t co_previous_handle = co_active_handle; + co_swap(co_active_handle = handle, co_previous_handle); +} + +#ifdef __cplusplus +} +#endif diff --git a/libretro/libco/armeabi.c b/libretro/libco/armeabi.c new file mode 100644 index 0000000..c9b68d0 --- /dev/null +++ b/libretro/libco/armeabi.c @@ -0,0 +1,95 @@ +/* + libco.armeabi (2013-04-05) + author: Themaister + license: public domain +*/ + +#define LIBCO_C +#include +#include +#include +#include +#include + +#ifndef IOS +#include +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +static thread_local uint32_t co_active_buffer[64]; +static thread_local cothread_t co_active_handle; + +asm ( + ".arm\n" + ".align 4\n" + ".globl co_switch_arm\n" + ".globl _co_switch_arm\n" + "co_switch_arm:\n" + "_co_switch_arm:\n" + " stmia r1!, {r4, r5, r6, r7, r8, r9, r10, r11, sp, lr}\n" + " ldmia r0!, {r4, r5, r6, r7, r8, r9, r10, r11, sp, pc}\n" + ); + +/* ASM */ +void co_switch_arm(cothread_t handle, cothread_t current); + +static void crash(void) +{ + /* Called only if cothread_t entrypoint returns. */ + assert(0); +} + +cothread_t co_create(unsigned int size, void (*entrypoint)(void)) +{ + size = (size + 1023) & ~1023; + cothread_t handle = 0; +#if HAVE_POSIX_MEMALIGN >= 1 + if (posix_memalign(&handle, 1024, size + 256) < 0) + return 0; +#else + handle = memalign(1024, size + 256); +#endif + + if (!handle) + return handle; + + uint32_t *ptr = (uint32_t*)handle; + /* Non-volatiles. */ + ptr[0] = 0; /* r4 */ + ptr[1] = 0; /* r5 */ + ptr[2] = 0; /* r6 */ + ptr[3] = 0; /* r7 */ + ptr[4] = 0; /* r8 */ + ptr[5] = 0; /* r9 */ + ptr[6] = 0; /* r10 */ + ptr[7] = 0; /* r11 */ + ptr[8] = (uintptr_t)ptr + size + 256 - 4; /* r13, stack pointer */ + ptr[9] = (uintptr_t)entrypoint; /* r15, PC (link register r14 gets saved here). */ + return handle; +} + +cothread_t co_active(void) +{ + if (!co_active_handle) + co_active_handle = co_active_buffer; + return co_active_handle; +} + +void co_delete(cothread_t handle) +{ + free(handle); +} + +void co_switch(cothread_t handle) +{ + cothread_t co_previous_handle = co_active(); + co_switch_arm(co_active_handle = handle, co_previous_handle); +} + +#ifdef __cplusplus +} +#endif + diff --git a/libretro/libco/fiber.c b/libretro/libco/fiber.c new file mode 100644 index 0000000..90ba115 --- /dev/null +++ b/libretro/libco/fiber.c @@ -0,0 +1,58 @@ +/* + libco.win (2008-01-28) + authors: Nach, byuu + license: public domain +*/ + +#define LIBCO_C +#include +#define WINVER 0x0400 +#define _WIN32_WINNT 0x0400 +#define WIN32_LEAN_AND_MEAN +#include + +#ifdef __cplusplus +extern "C" { +#endif + +static thread_local cothread_t co_active_ = 0; + +static void __stdcall co_thunk(void *coentry) +{ + ((void (*)(void))coentry)(); +} + +cothread_t co_active(void) +{ + if(!co_active_) + { + ConvertThreadToFiber(0); + co_active_ = GetCurrentFiber(); + } + return co_active_; +} + +cothread_t co_create(unsigned int heapsize, void (*coentry)(void)) +{ + if(!co_active_) + { + ConvertThreadToFiber(0); + co_active_ = GetCurrentFiber(); + } + return (cothread_t)CreateFiber(heapsize, co_thunk, (void*)coentry); +} + +void co_delete(cothread_t cothread) +{ + DeleteFiber(cothread); +} + +void co_switch(cothread_t cothread) +{ + co_active_ = cothread; + SwitchToFiber(cothread); +} + +#ifdef __cplusplus +} +#endif diff --git a/libretro/libco/libco.c b/libretro/libco/libco.c new file mode 100644 index 0000000..63126d3 --- /dev/null +++ b/libretro/libco/libco.c @@ -0,0 +1,21 @@ +/* + libco + auto-selection module + license: public domain +*/ + +#if defined(__GNUC__) && defined(__i386__) || (defined(_MSC_VER) && defined(_M_IX86)) + #include "x86.c" +#elif defined(__GNUC__) && defined(__amd64__) || (defined(_MSC_VER) && defined(_M_AMD64)) + #include "amd64.c" +#elif defined(__GNUC__) && defined(_ARCH_PPC) + #include "ppc.c" +#elif defined(__GNUC__) && (defined(__ARM_EABI__) || defined(__arm__)) + #include "armeabi.c" +#elif defined(__GNUC__) + #include "sjlj.c" +#elif defined(_MSC_VER) + #include "fiber.c" +#else + #error "libco: unsupported processor, compiler or operating system" +#endif diff --git a/libretro/libco/libco.h b/libretro/libco/libco.h new file mode 100644 index 0000000..deb954f --- /dev/null +++ b/libretro/libco/libco.h @@ -0,0 +1,34 @@ +/* + libco + version: 0.16 (2010-12-24) + license: public domain +*/ + +#ifndef LIBCO_H +#define LIBCO_H + +#ifdef LIBCO_C + #ifdef LIBCO_MP + #define thread_local __thread + #else + #define thread_local + #endif +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +typedef void* cothread_t; + +cothread_t co_active(); +cothread_t co_create(unsigned int, void (*)(void)); +void co_delete(cothread_t); +void co_switch(cothread_t); + +#ifdef __cplusplus +} +#endif + +/* ifndef LIBCO_H */ +#endif diff --git a/libretro/libco/ppc.c b/libretro/libco/ppc.c new file mode 100644 index 0000000..f6cb536 --- /dev/null +++ b/libretro/libco/ppc.c @@ -0,0 +1,407 @@ +/* + libco.ppc (2010-10-17) + author: blargg + license: public domain +*/ + +/* PowerPC 32/64 using embedded or external asm, with optional +floating-point and AltiVec save/restore */ + +#define LIBCO_C +#include +#include +#include +#include + +#define LIBCO_MPROTECT (__unix__ && !LIBCO_PPC_ASM) + +#if LIBCO_MPROTECT + #include + #include +#endif + +/* State format (offsets in 32-bit words) + ++0 Pointer to swap code + Rest of function descriptor for entry function ++8 PC ++10 SP + Special regs + GPRs + FPRs + VRs + stack +*/ + +enum { state_size = 1024 }; +enum { above_stack = 2048 }; +enum { stack_align = 256 }; + +static thread_local cothread_t co_active_handle = 0; + +/**** Determine environment ****/ + +#define LIBCO_PPC64 (_ARCH_PPC64 || __PPC64__ || __ppc64__ || __powerpc64__) + +/* Whether function calls are indirect through a descriptor, +or are directly to function */ +#ifndef LIBCO_PPCDESC + #if !_CALL_SYSV && (_CALL_AIX || _CALL_AIXDESC || LIBCO_PPC64) + #define LIBCO_PPCDESC 1 + #endif +#endif + +#ifdef LIBCO_PPC_ASM + + #ifdef __cplusplus + extern "C" + #endif + + /* Swap code is in ppc.S */ + void co_swap_asm( cothread_t, cothread_t ); + #define CO_SWAP_ASM( x, y ) co_swap_asm( x, y ) + +#else + +/* Swap code is here in array. Please leave dieassembly comments, +as they make it easy to see what it does, and reorder instructions +if one wants to see whether that improves performance. */ +static const uint32_t libco_ppc_code [] = { +#if LIBCO_PPC64 + 0x7d000026, /* mfcr r8 */ + 0xf8240028, /* std r1,40(r4) */ + 0x7d2802a6, /* mflr r9 */ + 0xf9c40048, /* std r14,72(r4) */ + 0xf9e40050, /* std r15,80(r4) */ + 0xfa040058, /* std r16,88(r4) */ + 0xfa240060, /* std r17,96(r4) */ + 0xfa440068, /* std r18,104(r4) */ + 0xfa640070, /* std r19,112(r4) */ + 0xfa840078, /* std r20,120(r4) */ + 0xfaa40080, /* std r21,128(r4) */ + 0xfac40088, /* std r22,136(r4) */ + 0xfae40090, /* std r23,144(r4) */ + 0xfb040098, /* std r24,152(r4) */ + 0xfb2400a0, /* std r25,160(r4) */ + 0xfb4400a8, /* std r26,168(r4) */ + 0xfb6400b0, /* std r27,176(r4) */ + 0xfb8400b8, /* std r28,184(r4) */ + 0xfba400c0, /* std r29,192(r4) */ + 0xfbc400c8, /* std r30,200(r4) */ + 0xfbe400d0, /* std r31,208(r4) */ + 0xf9240020, /* std r9,32(r4) */ + 0xe8e30020, /* ld r7,32(r3) */ + 0xe8230028, /* ld r1,40(r3) */ + 0x48000009, /* bl 1 */ + 0x7fe00008, /* trap */ + 0x91040030,/*1:stw r8,48(r4) */ + 0x80c30030, /* lwz r6,48(r3) */ + 0x7ce903a6, /* mtctr r7 */ + 0xe9c30048, /* ld r14,72(r3) */ + 0xe9e30050, /* ld r15,80(r3) */ + 0xea030058, /* ld r16,88(r3) */ + 0xea230060, /* ld r17,96(r3) */ + 0xea430068, /* ld r18,104(r3) */ + 0xea630070, /* ld r19,112(r3) */ + 0xea830078, /* ld r20,120(r3) */ + 0xeaa30080, /* ld r21,128(r3) */ + 0xeac30088, /* ld r22,136(r3) */ + 0xeae30090, /* ld r23,144(r3) */ + 0xeb030098, /* ld r24,152(r3) */ + 0xeb2300a0, /* ld r25,160(r3) */ + 0xeb4300a8, /* ld r26,168(r3) */ + 0xeb6300b0, /* ld r27,176(r3) */ + 0xeb8300b8, /* ld r28,184(r3) */ + 0xeba300c0, /* ld r29,192(r3) */ + 0xebc300c8, /* ld r30,200(r3) */ + 0xebe300d0, /* ld r31,208(r3) */ + 0x7ccff120, /* mtcr r6 */ +#else + 0x7d000026, /* mfcr r8 */ + 0x90240028, /* stw r1,40(r4) */ + 0x7d2802a6, /* mflr r9 */ + 0x91a4003c, /* stw r13,60(r4) */ + 0x91c40040, /* stw r14,64(r4) */ + 0x91e40044, /* stw r15,68(r4) */ + 0x92040048, /* stw r16,72(r4) */ + 0x9224004c, /* stw r17,76(r4) */ + 0x92440050, /* stw r18,80(r4) */ + 0x92640054, /* stw r19,84(r4) */ + 0x92840058, /* stw r20,88(r4) */ + 0x92a4005c, /* stw r21,92(r4) */ + 0x92c40060, /* stw r22,96(r4) */ + 0x92e40064, /* stw r23,100(r4) */ + 0x93040068, /* stw r24,104(r4) */ + 0x9324006c, /* stw r25,108(r4) */ + 0x93440070, /* stw r26,112(r4) */ + 0x93640074, /* stw r27,116(r4) */ + 0x93840078, /* stw r28,120(r4) */ + 0x93a4007c, /* stw r29,124(r4) */ + 0x93c40080, /* stw r30,128(r4) */ + 0x93e40084, /* stw r31,132(r4) */ + 0x91240020, /* stw r9,32(r4) */ + 0x80e30020, /* lwz r7,32(r3) */ + 0x80230028, /* lwz r1,40(r3) */ + 0x48000009, /* bl 1 */ + 0x7fe00008, /* trap */ + 0x91040030,/*1:stw r8,48(r4) */ + 0x80c30030, /* lwz r6,48(r3) */ + 0x7ce903a6, /* mtctr r7 */ + 0x81a3003c, /* lwz r13,60(r3) */ + 0x81c30040, /* lwz r14,64(r3) */ + 0x81e30044, /* lwz r15,68(r3) */ + 0x82030048, /* lwz r16,72(r3) */ + 0x8223004c, /* lwz r17,76(r3) */ + 0x82430050, /* lwz r18,80(r3) */ + 0x82630054, /* lwz r19,84(r3) */ + 0x82830058, /* lwz r20,88(r3) */ + 0x82a3005c, /* lwz r21,92(r3) */ + 0x82c30060, /* lwz r22,96(r3) */ + 0x82e30064, /* lwz r23,100(r3) */ + 0x83030068, /* lwz r24,104(r3) */ + 0x8323006c, /* lwz r25,108(r3) */ + 0x83430070, /* lwz r26,112(r3) */ + 0x83630074, /* lwz r27,116(r3) */ + 0x83830078, /* lwz r28,120(r3) */ + 0x83a3007c, /* lwz r29,124(r3) */ + 0x83c30080, /* lwz r30,128(r3) */ + 0x83e30084, /* lwz r31,132(r3) */ + 0x7ccff120, /* mtcr r6 */ +#endif + +#ifndef LIBCO_PPC_NOFP + 0xd9c400e0, /* stfd f14,224(r4) */ + 0xd9e400e8, /* stfd f15,232(r4) */ + 0xda0400f0, /* stfd f16,240(r4) */ + 0xda2400f8, /* stfd f17,248(r4) */ + 0xda440100, /* stfd f18,256(r4) */ + 0xda640108, /* stfd f19,264(r4) */ + 0xda840110, /* stfd f20,272(r4) */ + 0xdaa40118, /* stfd f21,280(r4) */ + 0xdac40120, /* stfd f22,288(r4) */ + 0xdae40128, /* stfd f23,296(r4) */ + 0xdb040130, /* stfd f24,304(r4) */ + 0xdb240138, /* stfd f25,312(r4) */ + 0xdb440140, /* stfd f26,320(r4) */ + 0xdb640148, /* stfd f27,328(r4) */ + 0xdb840150, /* stfd f28,336(r4) */ + 0xdba40158, /* stfd f29,344(r4) */ + 0xdbc40160, /* stfd f30,352(r4) */ + 0xdbe40168, /* stfd f31,360(r4) */ + 0xc9c300e0, /* lfd f14,224(r3) */ + 0xc9e300e8, /* lfd f15,232(r3) */ + 0xca0300f0, /* lfd f16,240(r3) */ + 0xca2300f8, /* lfd f17,248(r3) */ + 0xca430100, /* lfd f18,256(r3) */ + 0xca630108, /* lfd f19,264(r3) */ + 0xca830110, /* lfd f20,272(r3) */ + 0xcaa30118, /* lfd f21,280(r3) */ + 0xcac30120, /* lfd f22,288(r3) */ + 0xcae30128, /* lfd f23,296(r3) */ + 0xcb030130, /* lfd f24,304(r3) */ + 0xcb230138, /* lfd f25,312(r3) */ + 0xcb430140, /* lfd f26,320(r3) */ + 0xcb630148, /* lfd f27,328(r3) */ + 0xcb830150, /* lfd f28,336(r3) */ + 0xcba30158, /* lfd f29,344(r3) */ + 0xcbc30160, /* lfd f30,352(r3) */ + 0xcbe30168, /* lfd f31,360(r3) */ +#endif + +#ifdef __ALTIVEC__ + 0x7ca042a6, /* mfvrsave r5 */ + 0x39040180, /* addi r8,r4,384 */ + 0x39240190, /* addi r9,r4,400 */ + 0x70a00fff, /* andi. r0,r5,4095 */ + 0x90a40034, /* stw r5,52(r4) */ + 0x4182005c, /* beq- 2 */ + 0x7e8041ce, /* stvx v20,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7ea049ce, /* stvx v21,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7ec041ce, /* stvx v22,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7ee049ce, /* stvx v23,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7f0041ce, /* stvx v24,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7f2049ce, /* stvx v25,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7f4041ce, /* stvx v26,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7f6049ce, /* stvx v27,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7f8041ce, /* stvx v28,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7fa049ce, /* stvx v29,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7fc041ce, /* stvx v30,r0,r8 */ + 0x7fe049ce, /* stvx v31,r0,r9 */ + 0x80a30034,/*2:lwz r5,52(r3) */ + 0x39030180, /* addi r8,r3,384 */ + 0x39230190, /* addi r9,r3,400 */ + 0x70a00fff, /* andi. r0,r5,4095 */ + 0x7ca043a6, /* mtvrsave r5 */ + 0x4d820420, /* beqctr */ + 0x7e8040ce, /* lvx v20,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7ea048ce, /* lvx v21,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7ec040ce, /* lvx v22,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7ee048ce, /* lvx v23,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7f0040ce, /* lvx v24,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7f2048ce, /* lvx v25,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7f4040ce, /* lvx v26,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7f6048ce, /* lvx v27,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7f8040ce, /* lvx v28,r0,r8 */ + 0x39080020, /* addi r8,r8,32 */ + 0x7fa048ce, /* lvx v29,r0,r9 */ + 0x39290020, /* addi r9,r9,32 */ + 0x7fc040ce, /* lvx v30,r0,r8 */ + 0x7fe048ce, /* lvx v31,r0,r9 */ +#endif + + 0x4e800420, /* bctr */ +}; + + #if LIBCO_PPCDESC + /* Function call goes through indirect descriptor */ + #define CO_SWAP_ASM( x, y ) \ + ((void (*)( cothread_t, cothread_t )) (uintptr_t) x)( x, y ) + #else + /* Function call goes directly to code */ + #define CO_SWAP_ASM( x, y ) \ + ((void (*)( cothread_t, cothread_t )) (uintptr_t) libco_ppc_code)( x, y ) + #endif + +#endif + +static uint32_t* co_create_( unsigned size, uintptr_t entry ) +{ + uint32_t* t = (uint32_t*) malloc( size ); + + (void) entry; + + #if LIBCO_PPCDESC + if ( t ) + { + /* Copy entry's descriptor */ + memcpy( t, (void*) entry, sizeof (void*) * 3 ); + + /* Set function pointer to swap routine */ + #ifdef LIBCO_PPC_ASM + *(const void**) t = *(void**) &co_swap_asm; + #else + *(const void**) t = libco_ppc_code; + #endif + } + #endif + + return t; +} + +cothread_t co_create( unsigned int size, void (*entry_)( void ) ) +{ + uintptr_t entry = (uintptr_t) entry_; + uint32_t* t = NULL; + + /* Be sure main thread was successfully allocated */ + if ( co_active() ) + { + size += state_size + above_stack + stack_align; + t = co_create_( size, entry ); + } + + if ( t ) + { + uintptr_t sp; + int shift; + + /* Save current registers into new thread, so that any special ones will + have proper values when thread is begun */ + CO_SWAP_ASM( t, t ); + + #if LIBCO_PPCDESC + /* Get real address */ + entry = (uintptr_t) *(void**) entry; + #endif + + /* Put stack near end of block, and align */ + sp = (uintptr_t) t + size - above_stack; + sp -= sp % stack_align; + + /* On PPC32, we save and restore GPRs as 32 bits. For PPC64, we + save and restore them as 64 bits, regardless of the size the ABI + uses. So, we manually write pointers at the proper size. We always + save and restore at the same address, and since PPC is big-endian, + we must put the low byte first on PPC32. */ + + /* If uintptr_t is 32 bits, >>32 is undefined behavior, so we do two shifts + and don't have to care how many bits uintptr_t is. */ + #if LIBCO_PPC64 + shift = 16; + #else + shift = 0; + #endif + + /* Set up so entry will be called on next swap */ + t [8] = (uint32_t) (entry >> shift >> shift); + t [9] = (uint32_t) entry; + + t [10] = (uint32_t) (sp >> shift >> shift); + t [11] = (uint32_t) sp; + } + + return t; +} + +void co_delete( cothread_t t ) +{ + free(t); +} + +static void co_init_( void ) +{ +#if LIBCO_MPROTECT + /* TODO: pre- and post-pad PPC code so that this doesn't make other + data executable and writable */ + long page_size = sysconf( _SC_PAGESIZE ); + if ( page_size > 0 ) + { + uintptr_t align = page_size; + uintptr_t begin = (uintptr_t) libco_ppc_code; + uintptr_t end = begin + sizeof libco_ppc_code; + + /* Align beginning and end */ + end += align - 1; + end -= end % align; + begin -= begin % align; + + mprotect( (void*) begin, end - begin, PROT_READ | PROT_WRITE | PROT_EXEC ); + } +#endif + + co_active_handle = co_create_( state_size, (uintptr_t) &co_switch ); +} + +cothread_t co_active(void) +{ + if (!co_active_handle) + co_init_(); + + return co_active_handle; +} + +void co_switch(cothread_t t) +{ + cothread_t old = co_active_handle; + co_active_handle = t; + + CO_SWAP_ASM( t, old ); +} diff --git a/libretro/libco/sjlj.c b/libretro/libco/sjlj.c new file mode 100644 index 0000000..f074714 --- /dev/null +++ b/libretro/libco/sjlj.c @@ -0,0 +1,115 @@ +/* + libco.sjlj (2008-01-28) + author: Nach + license: public domain +*/ + +/* + * Note this was designed for UNIX systems. Based on ideas expressed in a paper + * by Ralf Engelschall. + * For SJLJ on other systems, one would want to rewrite springboard() and + * co_create() and hack the jmb_buf stack pointer. + */ + +#define LIBCO_C +#include +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +typedef struct +{ + sigjmp_buf context; + void (*coentry)(void); + void *stack; +} cothread_struct; + +static thread_local cothread_struct co_primary; +static thread_local cothread_struct *creating, *co_running = 0; + +static void springboard(int ignored) +{ + if(sigsetjmp(creating->context, 0)) + co_running->coentry(); +} + +cothread_t co_active(void) +{ + if (!co_running) + co_running = &co_primary; + return (cothread_t)co_running; +} + +cothread_t co_create(unsigned int size, void (*coentry)(void)) +{ + if(!co_running) + co_running = &co_primary; + + cothread_struct *thread = (cothread_struct*)malloc(sizeof(cothread_struct)); + + if(thread) + { + struct sigaction handler; + struct sigaction old_handler; + + stack_t stack; + stack_t old_stack; + + thread->coentry = thread->stack = 0; + + stack.ss_flags = 0; + stack.ss_size = size; + thread->stack = stack.ss_sp = malloc(size); + + if(stack.ss_sp && !sigaltstack(&stack, &old_stack)) + { + handler.sa_handler = springboard; + handler.sa_flags = SA_ONSTACK; + sigemptyset(&handler.sa_mask); + creating = thread; + + if(!sigaction(SIGUSR1, &handler, &old_handler)) + { + if(!raise(SIGUSR1)) + thread->coentry = coentry; + sigaltstack(&old_stack, 0); + sigaction(SIGUSR1, &old_handler, 0); + } + } + + if(thread->coentry != coentry) + { + co_delete(thread); + thread = 0; + } + } + + return (cothread_t)thread; +} + +void co_delete(cothread_t cothread) +{ + if(cothread) + { + if(((cothread_struct*)cothread)->stack) + free(((cothread_struct*)cothread)->stack); + free(cothread); + } +} + +void co_switch(cothread_t cothread) +{ + if(!sigsetjmp(co_running->context, 0)) + { + co_running = (cothread_struct*)cothread; + siglongjmp(co_running->context, 1); + } +} + +#ifdef __cplusplus +} +#endif diff --git a/libretro/libco/ucontext.c b/libretro/libco/ucontext.c new file mode 100644 index 0000000..3e21816 --- /dev/null +++ b/libretro/libco/ucontext.c @@ -0,0 +1,81 @@ +/* + libco.ucontext (2008-01-28) + author: Nach + license: public domain +*/ + +/* + * WARNING: the overhead of POSIX ucontext is very high, + * assembly versions of libco or libco_sjlj should be much faster + * + * This library only exists for two reasons: + * 1 - as an initial test for the viability of a ucontext implementation + * 2 - to demonstrate the power and speed of libco over existing implementations, + * such as pth (which defaults to wrapping ucontext on unix targets) + * + * Use this library only as a *last resort* + */ + +#define LIBCO_C +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +static thread_local ucontext_t co_primary; +static thread_local ucontext_t *co_running = 0; + +cothread_t co_active(void) +{ + if (!co_running) + co_running = &co_primary; + return (cothread_t)co_running; +} + +cothread_t co_create(unsigned int heapsize, void (*coentry)(void)) +{ + if (!co_running) + co_running = &co_primary; + ucontext_t *thread = (ucontext_t*)malloc(sizeof(ucontext_t)); + + if(thread) + { + if((!getcontext(thread) && !(thread->uc_stack.ss_sp = 0)) && (thread->uc_stack.ss_sp = malloc(heapsize))) + { + thread->uc_link = co_running; + thread->uc_stack.ss_size = heapsize; + makecontext(thread, coentry, 0); + } + else + { + co_delete((cothread_t)thread); + thread = 0; + } + } + return (cothread_t)thread; +} + +void co_delete(cothread_t cothread) +{ + if (!cothread) + return; + + if(((ucontext_t*)cothread)->uc_stack.ss_sp) + free(((ucontext_t*)cothread)->uc_stack.ss_sp); + free(cothread); +} + +void co_switch(cothread_t cothread) +{ + ucontext_t *old_thread = co_running; + + co_running = (ucontext_t*)cothread; + swapcontext(old_thread, co_running); +} + +#ifdef __cplusplus +} +#endif diff --git a/libretro/libco/x86.c b/libretro/libco/x86.c new file mode 100644 index 0000000..ae16766 --- /dev/null +++ b/libretro/libco/x86.c @@ -0,0 +1,117 @@ +/* + libco.x86 (2009-10-12) + author: byuu + license: public domain +*/ + +#define LIBCO_C +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(_MSC_VER) + #define fastcall __fastcall +#elif defined(__GNUC__) + #define fastcall __attribute__((fastcall)) +#else + #error "libco: please define fastcall macro" +#endif + +static thread_local long co_active_buffer[64]; +static thread_local cothread_t co_active_handle = 0; +static void (fastcall *co_swap)(cothread_t, cothread_t) = 0; + +//ABI: fastcall +static unsigned char co_swap_function[] = { + 0x89, 0x22, /* mov [edx],esp */ + 0x8b, 0x21, /* mov esp,[ecx] */ + 0x58, /* pop eax */ + 0x89, 0x6a, 0x04, /* mov [edx+0x04],ebp */ + 0x89, 0x72, 0x08, /* mov [edx+0x08],esi */ + 0x89, 0x7a, 0x0c, /* mov [edx+0x0c],edi */ + 0x89, 0x5a, 0x10, /* mov [edx+0x10],ebx */ + 0x8b, 0x69, 0x04, /* mov ebp,[ecx+0x04] */ + 0x8b, 0x71, 0x08, /* mov esi,[ecx+0x08] */ + 0x8b, 0x79, 0x0c, /* mov edi,[ecx+0x0c] */ + 0x8b, 0x59, 0x10, /* mov ebx,[ecx+0x10] */ + 0xff, 0xe0, /* jmp eax */ +}; + +#ifdef _WIN32 +#include + +void co_init(void) +{ + DWORD old_privileges; + VirtualProtect(co_swap_function, + sizeof co_swap_function, PAGE_EXECUTE_READWRITE, &old_privileges); +} +#else +#include +#include + +void co_init(void) +{ + unsigned long addr = (unsigned long)co_swap_function; + unsigned long base = addr - (addr % sysconf(_SC_PAGESIZE)); + unsigned long size = (addr - base) + sizeof co_swap_function; + mprotect((void*)base, size, PROT_READ | PROT_WRITE | PROT_EXEC); +} +#endif + +static void crash(void) +{ + assert(0); /* called only if cothread_t entrypoint returns */ +} + +cothread_t co_active(void) +{ + if(!co_active_handle) + co_active_handle = &co_active_buffer; + return co_active_handle; +} + +cothread_t co_create(unsigned int size, void (*entrypoint)(void)) +{ + cothread_t handle; + if(!co_swap) + { + co_init(); + co_swap = (void (fastcall*)(cothread_t, cothread_t))co_swap_function; + } + + if(!co_active_handle) + co_active_handle = &co_active_buffer; + + size += 256; /* allocate additional space for storage */ + size &= ~15; /* align stack to 16-byte boundary */ + + if((handle = (cothread_t)malloc(size))) + { + long *p = (long*)((char*)handle + size); /* seek to top of stack */ + *--p = (long)crash; /* crash if entrypoint returns */ + *--p = (long)entrypoint; /* start of function */ + *(long*)handle = (long)p; /* stack pointer */ + } + + return handle; +} + +void co_delete(cothread_t handle) +{ + free(handle); +} + +void co_switch(cothread_t handle) +{ + register cothread_t co_previous_handle = co_active_handle; + co_swap(co_active_handle = handle, co_previous_handle); +} + +#ifdef __cplusplus +} +#endif diff --git a/libretro/libretro-core.c b/libretro/libretro-core.c new file mode 100644 index 0000000..306d845 --- /dev/null +++ b/libretro/libretro-core.c @@ -0,0 +1,465 @@ +#include "libretro.h" + +#include "libretro-core.h" + +cothread_t mainThread; +cothread_t emuThread; + +int CROP_WIDTH; +int CROP_HEIGHT; +int VIRTUAL_WIDTH; +int retrow=400; +int retroh=300; + +#define RETRO_DEVICE_ATARI_KEYBOARD RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_KEYBOARD, 0) +#define RETRO_DEVICE_ATARI_JOYSTICK RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_JOYPAD, 1) + +unsigned atari_devices[ 2 ]; + +int autorun=0; + +int RETROJOY=0,RETROPT0=0,RETROSTATUS=0,RETRODRVTYPE=0; +int retrojoy_init=0,retro_ui_finalized=0; +int retro_sound_finalized=0; + +extern int SHIFTON,pauseg,SND ,snd_sampler_pal; +extern short signed int SNDBUF[1024*2]; +extern char RPATH[512]; +extern char RETRO_DIR[512]; +int cap32_statusbar=0; + +#include "cmdline.c" + +extern void update_input(void); +extern void texture_init(void); +extern void texture_uninit(void); +extern void Emu_init(); +extern void Emu_uninit(); +extern void input_gui(void); + +const char *retro_save_directory; +const char *retro_system_directory; +const char *retro_content_directory; +char retro_system_data_directory[512];; + +static retro_video_refresh_t video_cb; +static retro_audio_sample_t audio_cb; +static retro_audio_sample_batch_t audio_batch_cb; +static retro_environment_t environ_cb; + +void retro_set_environment(retro_environment_t cb) +{ + environ_cb = cb; + + static const struct retro_controller_description p1_controllers[] = { + { "ATARI Joystick", RETRO_DEVICE_ATARI_JOYSTICK }, + { "ATARI Keyboard", RETRO_DEVICE_ATARI_KEYBOARD }, + }; + static const struct retro_controller_description p2_controllers[] = { + { "ATARI Joystick", RETRO_DEVICE_ATARI_JOYSTICK }, + { "ATARI Keyboard", RETRO_DEVICE_ATARI_KEYBOARD }, + }; + + + static const struct retro_controller_info ports[] = { + { p1_controllers, 2 }, // port 1 + { p2_controllers, 2 }, // port 2 + { NULL, 0 } + }; + + cb( RETRO_ENVIRONMENT_SET_CONTROLLER_INFO, (void*)ports ); + + struct retro_variable variables[] = { + + { + "atari800_opt1", + "Option 1; disabled|enabled" , + }, + { + "atari800_resolution", + "Internal resolution; 336x240|320x240|384x240|384x272|384x288|400x300", + }, + + { NULL, NULL }, + }; + + cb(RETRO_ENVIRONMENT_SET_VARIABLES, variables); +} + +static void update_variables(void) +{ + + struct retro_variable var; + + var.key = "atari800_opt1"; + var.value = NULL; + + if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value) + { + if (strcmp(var.value, "enabled") == 0) + autorun = 1; + } + + var.key = "atari800_resolution"; + var.value = NULL; + + if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE, &var) && var.value) + { + char *pch; + char str[100]; + snprintf(str, sizeof(str), var.value); + + pch = strtok(str, "x"); + if (pch) + retrow = strtoul(pch, NULL, 0); + pch = strtok(NULL, "x"); + if (pch) + retroh = strtoul(pch, NULL, 0); + + fprintf(stderr, "[libretro-vice]: Got size: %u x %u.\n", retrow, retroh); + + CROP_WIDTH =retrow; + CROP_HEIGHT= (retroh-80); + VIRTUAL_WIDTH = retrow; + texture_init(); + //reset_screen(); + } + + +} + +static void retro_wrap_emulator() +{ +LOGI("WRAP EMU THD\n"); + pre_main(RPATH); + + +LOGI("EXIT EMU THD\n"); + pauseg=-1; + + //environ_cb(RETRO_ENVIRONMENT_SHUTDOWN, 0); + + // Were done here + co_switch(mainThread); + + // Dead emulator, but libco says not to return + while(true) + { + LOGI("Running a dead emulator."); + co_switch(mainThread); + } + +} + +void Emu_init(){ + +#ifdef RETRO_AND + MOUSEMODE=1; +#endif + + // update_variables(); + + memset(Key_Sate,0,512); + memset(Key_Sate2,0,512); + + if(!emuThread && !mainThread) + { + mainThread = co_active(); + emuThread = co_create(65536*sizeof(void*), retro_wrap_emulator); + } + + update_variables(); +} + +void Emu_uninit(){ + + texture_uninit(); +} + +void retro_shutdown_core(void) +{ + LOGI("SHUTDOWN\n"); + + texture_uninit(); + environ_cb(RETRO_ENVIRONMENT_SHUTDOWN, NULL); +} + +void retro_reset(void){ + +} + +void retro_init(void) +{ + const char *system_dir = NULL; + + if (environ_cb(RETRO_ENVIRONMENT_GET_SYSTEM_DIRECTORY, &system_dir) && system_dir) + { + // if defined, use the system directory + retro_system_directory=system_dir; + } + + const char *content_dir = NULL; + + if (environ_cb(RETRO_ENVIRONMENT_GET_CONTENT_DIRECTORY, &content_dir) && content_dir) + { + // if defined, use the system directory + retro_content_directory=content_dir; + } + + const char *save_dir = NULL; + + if (environ_cb(RETRO_ENVIRONMENT_GET_SAVE_DIRECTORY, &save_dir) && save_dir) + { + // If save directory is defined use it, otherwise use system directory + retro_save_directory = *save_dir ? save_dir : retro_system_directory; + } + else + { + // make retro_save_directory the same in case RETRO_ENVIRONMENT_GET_SAVE_DIRECTORY is not implemented by the frontend + retro_save_directory=retro_system_directory; + } + + if(retro_system_directory==NULL)sprintf(RETRO_DIR, "%s\0","."); + else sprintf(RETRO_DIR, "%s\0", retro_system_directory); + + sprintf(retro_system_data_directory, "%s/data\0",RETRO_DIR); + + LOGI("Retro SYSTEM_DIRECTORY %s\n",retro_system_directory); + LOGI("Retro SAVE_DIRECTORY %s\n",retro_save_directory); + LOGI("Retro CONTENT_DIRECTORY %s\n",retro_content_directory); + +#ifndef RENDER16B + enum retro_pixel_format fmt =RETRO_PIXEL_FORMAT_XRGB8888; +#else + enum retro_pixel_format fmt = RETRO_PIXEL_FORMAT_RGB565; +#endif + + if (!environ_cb(RETRO_ENVIRONMENT_SET_PIXEL_FORMAT, &fmt)) + { + fprintf(stderr, "PIXEL FORMAT is not supported.\n"); +LOGI("PIXEL FORMAT is not supported.\n"); + exit(0); + } + + struct retro_input_descriptor inputDescriptors[] = { + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_A, "A" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_B, "B" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_X, "X" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_Y, "Y" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_SELECT, "Select" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_START, "Start" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_RIGHT, "Right" }, + { 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_R, "R" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L, "L" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R2, "R2" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L2, "L2" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_R3, "R3" }, + { 0, RETRO_DEVICE_JOYPAD, 0, RETRO_DEVICE_ID_JOYPAD_L3, "L3" } + }; + environ_cb(RETRO_ENVIRONMENT_SET_INPUT_DESCRIPTORS, &inputDescriptors); + + Emu_init(); + + texture_init(); +} + +extern void main_exit(); +void retro_deinit(void) +{ + Emu_uninit(); + + + co_switch(emuThread); +LOGI("exit emu\n"); + // main_exit(); + co_switch(mainThread); +LOGI("exit main\n"); + if(emuThread) + { + co_delete(emuThread); + emuThread = 0; + } + + LOGI("Retro DeInit\n"); +} + +unsigned retro_api_version(void) +{ + return RETRO_API_VERSION; +} + + +void retro_set_controller_port_device( unsigned port, unsigned device ) +{ + if ( port < 2 ) + { + atari_devices[ port ] = device; + +printf(" port(%d)=%d \n",port,device); + } +} + +void retro_get_system_info(struct retro_system_info *info) +{ + memset(info, 0, sizeof(*info)); + info->library_name = "Atari800"; + info->library_version = "3.1.0"; + info->valid_extensions = "xfd|atr|cdm|cas|bin|a52|zip"; + info->need_fullpath = true; + info->block_extract = false; + +} + +void retro_get_system_av_info(struct retro_system_av_info *info) +{ +//FIXME handle vice PAL/NTSC + struct retro_game_geometry geom = { retrow, retroh, 400, 300,4.0 / 3.0 }; + struct retro_system_timing timing = { 50.0, 44100.0 }; + + info->geometry = geom; + info->timing = timing; +} + +void retro_set_audio_sample(retro_audio_sample_t cb) +{ + audio_cb = cb; +} + +void retro_set_audio_sample_batch(retro_audio_sample_batch_t cb) +{ + audio_batch_cb = cb; +} + +void retro_set_video_refresh(retro_video_refresh_t cb) +{ + video_cb = cb; +} + +void retro_audio_cb( short l, short r) +{ + audio_cb(l,r); +} + +void retro_run(void) +{ + int x; + + bool updated = false; + + if (environ_cb(RETRO_ENVIRONMENT_GET_VARIABLE_UPDATE, &updated) && updated) + update_variables(); + + if(pauseg==0){ + + if(retro_sound_finalized)retro_sound_update(); + + Retro_PollEvent(); + } + + video_cb(Retro_Screen,retrow,retroh,retrow<path; + + strcpy(RPATH,full_path); + + update_variables(); + +#ifdef RENDER16B + memset(Retro_Screen,0,400*300*2); +#else + memset(Retro_Screen,0,400*300*2*2); +#endif + memset(SNDBUF,0,1024*2*2); + + co_switch(emuThread); + + return true; +} + +void retro_unload_game(void){ + + pauseg=-1; +} + +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) +{ + (void)type; + (void)info; + (void)num; + return false; +} + +size_t retro_serialize_size(void) +{ + return 0; +} + +bool retro_serialize(void *data_, size_t size) +{ + return false; +} + +bool retro_unserialize(const void *data_, size_t size) +{ + return false; +} + +void *retro_get_memory_data(unsigned id) +{ + (void)id; + return NULL; +} + +size_t retro_get_memory_size(unsigned id) +{ + (void)id; + return 0; +} + +void retro_cheat_reset(void) {} + +void retro_cheat_set(unsigned index, bool enabled, const char *code) +{ + (void)index; + (void)enabled; + (void)code; +} + diff --git a/libretro/libretro-core.h b/libretro/libretro-core.h new file mode 100644 index 0000000..9cc5ec8 --- /dev/null +++ b/libretro/libretro-core.h @@ -0,0 +1,74 @@ +#ifndef LIBRETRO_CORE_H +#define LIBRETRO_CORE_H 1 + +#include +#include +#include +#include +#include + +#include + +#define TEX_WIDTH 400 +#define TEX_HEIGHT 300 + +#define UINT16 uint16_t +#define UINT32 uint32_t + +#define RENDER16B +#ifdef RENDER16B + extern uint16_t Retro_Screen[400*300]; + #define PIXEL_BYTES 1 + #define PIXEL_TYPE UINT16 + #define PITCH 2 +#else + extern unsigned int Retro_Screen[400*300]; + #define PIXEL_BYTES 2 + #define PIXEL_TYPE UINT32 + #define PITCH 4 +#endif + +#define WINDOW_WIDTH 400 +#define WINDOW_HEIGHT 300 + +#include "libco/libco.h" + +extern cothread_t mainThread; +extern cothread_t emuThread; + +extern char Key_Sate[512]; +extern char Key_Sate2[512]; + +extern int pauseg; + +#if defined(__ANDROID__) || defined(ANDROID) +#include +#define LOG_TAG "RetroArch.Vice" +#define LOGI(...) __android_log_print(ANDROID_LOG_INFO,LOG_TAG,__VA_ARGS__) +#else +#define LOGI printf +#endif + +#define NPLGN 12 +#define NLIGN 5 +#define NLETT 5 + +#define XSIDE (CROP_WIDTH/NPLGN -1) +#define YSIDE (CROP_HEIGHT/8 -1) + +#define YBASE0 (CROP_HEIGHT - NLIGN*YSIDE -8) +#define XBASE0 0+4+2 +#define XBASE3 0 +#define YBASE3 YBASE0 -4 + +#define STAT_DECX 120 +#define STAT_YSZ 20 + +#ifndef RENDER16B +#define RGB565(r, g, b) (((r) << (5+16)) | ((g) << (5+8)) | (b<<5)) +#else +#define RGB565(r, g, b) (((r) << (5+6)) | ((g) << 6) | (b)) +#endif +#define uint32 unsigned int +#define uint8 unsigned char +#endif diff --git a/libretro/libretro.h b/libretro/libretro.h new file mode 100644 index 0000000..16c274a --- /dev/null +++ b/libretro/libretro.h @@ -0,0 +1,1926 @@ +/* Copyright (C) 2010-2014 The RetroArch team + * + * --------------------------------------------------------------------------------------- + * The following license statement only applies to this libretro API header (libretro.h). + * --------------------------------------------------------------------------------------- + * + * Permission is hereby granted, free of charge, + * to any person obtaining a copy of this software and associated documentation files (the "Software"), + * to deal in the Software without restriction, including without limitation the rights to + * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, + * and to permit persons to whom the Software is furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, + * INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. + * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, + * WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + */ + +#ifndef LIBRETRO_H__ +#define LIBRETRO_H__ + +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef __cplusplus +#if defined(_MSC_VER) && !defined(SN_TARGET_PS3) +/* Hack applied for MSVC when compiling in C89 mode + * as it isn't C99-compliant. */ +#define bool unsigned char +#define true 1 +#define false 0 +#else +#include +#endif +#endif + +/* Used for checking API/ABI mismatches that can break libretro + * implementations. + * It is not incremented for compatible changes to the API. + */ +#define RETRO_API_VERSION 1 + +/* + * Libretro's fundamental device abstractions. + * + * Libretro's input system consists of some standardized device types, + * such as a joypad (with/without analog), mouse, keyboard, lightgun + * and a pointer. + * + * The functionality of these devices are fixed, and individual cores + * map their own concept of a controller to libretro's abstractions. + * This makes it possible for frontends to map the abstract types to a + * real input device, and not having to worry about binding input + * correctly to arbitrary controller layouts. + */ + +#define RETRO_DEVICE_TYPE_SHIFT 8 +#define RETRO_DEVICE_MASK ((1 << RETRO_DEVICE_TYPE_SHIFT) - 1) +#define RETRO_DEVICE_SUBCLASS(base, id) (((id + 1) << RETRO_DEVICE_TYPE_SHIFT) | base) + +/* Input disabled. */ +#define RETRO_DEVICE_NONE 0 + +/* The JOYPAD is called RetroPad. It is essentially a Super Nintendo + * controller, but with additional L2/R2/L3/R3 buttons, similar to a + * PS1 DualShock. */ +#define RETRO_DEVICE_JOYPAD 1 + +/* The mouse is a simple mouse, similar to Super Nintendo's mouse. + * X and Y coordinates are reported relatively to last poll (poll callback). + * It is up to the libretro implementation to keep track of where the mouse + * pointer is supposed to be on the screen. + * The frontend must make sure not to interfere with its own hardware + * mouse pointer. + */ +#define RETRO_DEVICE_MOUSE 2 + +/* KEYBOARD device lets one poll for raw key pressed. + * It is poll based, so input callback will return with the current + * pressed state. + * For event/text based keyboard input, see + * RETRO_ENVIRONMENT_SET_KEYBOARD_CALLBACK. + */ +#define RETRO_DEVICE_KEYBOARD 3 + +/* Lightgun X/Y coordinates are reported relatively to last poll, + * similar to mouse. */ +#define RETRO_DEVICE_LIGHTGUN 4 + +/* The ANALOG device is an extension to JOYPAD (RetroPad). + * Similar to DualShock it adds two analog sticks. + * This is treated as a separate device type as it returns values in the + * full analog range of [-0x8000, 0x7fff]. Positive X axis is right. + * Positive Y axis is down. + * Only use ANALOG type when polling for analog values of the axes. + */ +#define RETRO_DEVICE_ANALOG 5 + +/* Abstracts the concept of a pointing mechanism, e.g. touch. + * This allows libretro to query in absolute coordinates where on the + * screen a mouse (or something similar) is being placed. + * For a touch centric device, coordinates reported are the coordinates + * of the press. + * + * Coordinates in X and Y are reported as: + * [-0x7fff, 0x7fff]: -0x7fff corresponds to the far left/top of the screen, + * and 0x7fff corresponds to the far right/bottom of the screen. + * The "screen" is here defined as area that is passed to the frontend and + * later displayed on the monitor. + * + * The frontend is free to scale/resize this screen as it sees fit, however, + * (X, Y) = (-0x7fff, -0x7fff) will correspond to the top-left pixel of the + * game image, etc. + * + * To check if the pointer coordinates are valid (e.g. a touch display + * actually being touched), PRESSED returns 1 or 0. + * + * If using a mouse on a desktop, PRESSED will usually correspond to the + * left mouse button, but this is a frontend decision. + * PRESSED will only return 1 if the pointer is inside the game screen. + * + * For multi-touch, the index variable can be used to successively query + * more presses. + * If index = 0 returns true for _PRESSED, coordinates can be extracted + * with _X, _Y for index = 0. One can then query _PRESSED, _X, _Y with + * index = 1, and so on. + * Eventually _PRESSED will return false for an index. No further presses + * are registered at this point. */ +#define RETRO_DEVICE_POINTER 6 + +/* Buttons for the RetroPad (JOYPAD). + * The placement of these is equivalent to placements on the + * Super Nintendo controller. + * L2/R2/L3/R3 buttons correspond to the PS1 DualShock. */ +#define RETRO_DEVICE_ID_JOYPAD_B 0 +#define RETRO_DEVICE_ID_JOYPAD_Y 1 +#define RETRO_DEVICE_ID_JOYPAD_SELECT 2 +#define RETRO_DEVICE_ID_JOYPAD_START 3 +#define RETRO_DEVICE_ID_JOYPAD_UP 4 +#define RETRO_DEVICE_ID_JOYPAD_DOWN 5 +#define RETRO_DEVICE_ID_JOYPAD_LEFT 6 +#define RETRO_DEVICE_ID_JOYPAD_RIGHT 7 +#define RETRO_DEVICE_ID_JOYPAD_A 8 +#define RETRO_DEVICE_ID_JOYPAD_X 9 +#define RETRO_DEVICE_ID_JOYPAD_L 10 +#define RETRO_DEVICE_ID_JOYPAD_R 11 +#define RETRO_DEVICE_ID_JOYPAD_L2 12 +#define RETRO_DEVICE_ID_JOYPAD_R2 13 +#define RETRO_DEVICE_ID_JOYPAD_L3 14 +#define RETRO_DEVICE_ID_JOYPAD_R3 15 + +/* Index / Id values for ANALOG device. */ +#define RETRO_DEVICE_INDEX_ANALOG_LEFT 0 +#define RETRO_DEVICE_INDEX_ANALOG_RIGHT 1 +#define RETRO_DEVICE_ID_ANALOG_X 0 +#define RETRO_DEVICE_ID_ANALOG_Y 1 + +/* Id values for MOUSE. */ +#define RETRO_DEVICE_ID_MOUSE_X 0 +#define RETRO_DEVICE_ID_MOUSE_Y 1 +#define RETRO_DEVICE_ID_MOUSE_LEFT 2 +#define RETRO_DEVICE_ID_MOUSE_RIGHT 3 +#define RETRO_DEVICE_ID_MOUSE_WHEELUP 4 +#define RETRO_DEVICE_ID_MOUSE_WHEELDOWN 5 +#define RETRO_DEVICE_ID_MOUSE_MIDDLE 6 + +/* Id values for LIGHTGUN types. */ +#define RETRO_DEVICE_ID_LIGHTGUN_X 0 +#define RETRO_DEVICE_ID_LIGHTGUN_Y 1 +#define RETRO_DEVICE_ID_LIGHTGUN_TRIGGER 2 +#define RETRO_DEVICE_ID_LIGHTGUN_CURSOR 3 +#define RETRO_DEVICE_ID_LIGHTGUN_TURBO 4 +#define RETRO_DEVICE_ID_LIGHTGUN_PAUSE 5 +#define RETRO_DEVICE_ID_LIGHTGUN_START 6 + +/* Id values for POINTER. */ +#define RETRO_DEVICE_ID_POINTER_X 0 +#define RETRO_DEVICE_ID_POINTER_Y 1 +#define RETRO_DEVICE_ID_POINTER_PRESSED 2 + +/* Returned from retro_get_region(). */ +#define RETRO_REGION_NTSC 0 +#define RETRO_REGION_PAL 1 + +/* Id values for LANGUAGE */ +enum retro_language +{ + RETRO_LANGUAGE_ENGLISH = 0, + RETRO_LANGUAGE_JAPANESE = 1, + RETRO_LANGUAGE_FRENCH = 2, + RETRO_LANGUAGE_SPANISH = 3, + RETRO_LANGUAGE_GERMAN = 4, + RETRO_LANGUAGE_ITALIAN = 5, + RETRO_LANGUAGE_DUTCH = 6, + RETRO_LANGUAGE_PORTUGUESE = 7, + RETRO_LANGUAGE_RUSSIAN = 8, + RETRO_LANGUAGE_KOREAN = 9, + RETRO_LANGUAGE_CHINESE_TRADITIONAL = 10, + RETRO_LANGUAGE_CHINESE_SIMPLIFIED = 11, + RETRO_LANGUAGE_LAST, + + /* Ensure sizeof(enum) == sizeof(int) */ + RETRO_LANGUAGE_DUMMY = INT_MAX +}; + +/* Passed to retro_get_memory_data/size(). + * If the memory type doesn't apply to the + * implementation NULL/0 can be returned. + */ +#define RETRO_MEMORY_MASK 0xff + +/* Regular save RAM. This RAM is usually found on a game cartridge, + * backed up by a battery. + * If save game data is too complex for a single memory buffer, + * the SAVE_DIRECTORY (preferably) or SYSTEM_DIRECTORY environment + * callback can be used. */ +#define RETRO_MEMORY_SAVE_RAM 0 + +/* Some games have a built-in clock to keep track of time. + * This memory is usually just a couple of bytes to keep track of time. + */ +#define RETRO_MEMORY_RTC 1 + +/* System ram lets a frontend peek into a game systems main RAM. */ +#define RETRO_MEMORY_SYSTEM_RAM 2 + +/* Video ram lets a frontend peek into a game systems video RAM (VRAM). */ +#define RETRO_MEMORY_VIDEO_RAM 3 + +/* Keysyms used for ID in input state callback when polling RETRO_KEYBOARD. */ +enum retro_key +{ + RETROK_UNKNOWN = 0, + RETROK_FIRST = 0, + RETROK_BACKSPACE = 8, + RETROK_TAB = 9, + RETROK_CLEAR = 12, + RETROK_RETURN = 13, + RETROK_PAUSE = 19, + RETROK_ESCAPE = 27, + RETROK_SPACE = 32, + RETROK_EXCLAIM = 33, + RETROK_QUOTEDBL = 34, + RETROK_HASH = 35, + RETROK_DOLLAR = 36, + RETROK_AMPERSAND = 38, + RETROK_QUOTE = 39, + RETROK_LEFTPAREN = 40, + RETROK_RIGHTPAREN = 41, + RETROK_ASTERISK = 42, + RETROK_PLUS = 43, + RETROK_COMMA = 44, + RETROK_MINUS = 45, + RETROK_PERIOD = 46, + RETROK_SLASH = 47, + RETROK_0 = 48, + RETROK_1 = 49, + RETROK_2 = 50, + RETROK_3 = 51, + RETROK_4 = 52, + RETROK_5 = 53, + RETROK_6 = 54, + RETROK_7 = 55, + RETROK_8 = 56, + RETROK_9 = 57, + RETROK_COLON = 58, + RETROK_SEMICOLON = 59, + RETROK_LESS = 60, + RETROK_EQUALS = 61, + RETROK_GREATER = 62, + RETROK_QUESTION = 63, + RETROK_AT = 64, + RETROK_LEFTBRACKET = 91, + RETROK_BACKSLASH = 92, + RETROK_RIGHTBRACKET = 93, + RETROK_CARET = 94, + RETROK_UNDERSCORE = 95, + RETROK_BACKQUOTE = 96, + RETROK_a = 97, + RETROK_b = 98, + RETROK_c = 99, + RETROK_d = 100, + RETROK_e = 101, + RETROK_f = 102, + RETROK_g = 103, + RETROK_h = 104, + RETROK_i = 105, + RETROK_j = 106, + RETROK_k = 107, + RETROK_l = 108, + RETROK_m = 109, + RETROK_n = 110, + RETROK_o = 111, + RETROK_p = 112, + RETROK_q = 113, + RETROK_r = 114, + RETROK_s = 115, + RETROK_t = 116, + RETROK_u = 117, + RETROK_v = 118, + RETROK_w = 119, + RETROK_x = 120, + RETROK_y = 121, + RETROK_z = 122, + RETROK_DELETE = 127, + + RETROK_KP0 = 256, + RETROK_KP1 = 257, + RETROK_KP2 = 258, + RETROK_KP3 = 259, + RETROK_KP4 = 260, + RETROK_KP5 = 261, + RETROK_KP6 = 262, + RETROK_KP7 = 263, + RETROK_KP8 = 264, + RETROK_KP9 = 265, + RETROK_KP_PERIOD = 266, + RETROK_KP_DIVIDE = 267, + RETROK_KP_MULTIPLY = 268, + RETROK_KP_MINUS = 269, + RETROK_KP_PLUS = 270, + RETROK_KP_ENTER = 271, + RETROK_KP_EQUALS = 272, + + RETROK_UP = 273, + RETROK_DOWN = 274, + RETROK_RIGHT = 275, + RETROK_LEFT = 276, + RETROK_INSERT = 277, + RETROK_HOME = 278, + RETROK_END = 279, + RETROK_PAGEUP = 280, + RETROK_PAGEDOWN = 281, + + RETROK_F1 = 282, + RETROK_F2 = 283, + RETROK_F3 = 284, + RETROK_F4 = 285, + RETROK_F5 = 286, + RETROK_F6 = 287, + RETROK_F7 = 288, + RETROK_F8 = 289, + RETROK_F9 = 290, + RETROK_F10 = 291, + RETROK_F11 = 292, + RETROK_F12 = 293, + RETROK_F13 = 294, + RETROK_F14 = 295, + RETROK_F15 = 296, + + RETROK_NUMLOCK = 300, + RETROK_CAPSLOCK = 301, + RETROK_SCROLLOCK = 302, + RETROK_RSHIFT = 303, + RETROK_LSHIFT = 304, + RETROK_RCTRL = 305, + RETROK_LCTRL = 306, + RETROK_RALT = 307, + RETROK_LALT = 308, + RETROK_RMETA = 309, + RETROK_LMETA = 310, + RETROK_LSUPER = 311, + RETROK_RSUPER = 312, + RETROK_MODE = 313, + RETROK_COMPOSE = 314, + + RETROK_HELP = 315, + RETROK_PRINT = 316, + RETROK_SYSREQ = 317, + RETROK_BREAK = 318, + RETROK_MENU = 319, + RETROK_POWER = 320, + RETROK_EURO = 321, + RETROK_UNDO = 322, + + RETROK_LAST, + + RETROK_DUMMY = INT_MAX /* Ensure sizeof(enum) == sizeof(int) */ +}; + +enum retro_mod +{ + RETROKMOD_NONE = 0x0000, + + RETROKMOD_SHIFT = 0x01, + RETROKMOD_CTRL = 0x02, + RETROKMOD_ALT = 0x04, + RETROKMOD_META = 0x08, + + RETROKMOD_NUMLOCK = 0x10, + RETROKMOD_CAPSLOCK = 0x20, + RETROKMOD_SCROLLOCK = 0x40, + + RETROKMOD_DUMMY = INT_MAX /* Ensure sizeof(enum) == sizeof(int) */ +}; + +/* If set, this call is not part of the public libretro API yet. It can + * change or be removed at any time. */ +#define RETRO_ENVIRONMENT_EXPERIMENTAL 0x10000 +/* Environment callback to be used internally in frontend. */ +#define RETRO_ENVIRONMENT_PRIVATE 0x20000 + +/* Environment commands. */ +#define RETRO_ENVIRONMENT_SET_ROTATION 1 /* const unsigned * -- + * Sets screen rotation of graphics. + * Is only implemented if rotation can be accelerated by hardware. + * Valid values are 0, 1, 2, 3, which rotates screen by 0, 90, 180, + * 270 degrees counter-clockwise respectively. + */ +#define RETRO_ENVIRONMENT_GET_OVERSCAN 2 /* bool * -- + * Boolean value whether or not the implementation should use overscan, + * or crop away overscan. + */ +#define RETRO_ENVIRONMENT_GET_CAN_DUPE 3 /* bool * -- + * Boolean value whether or not frontend supports frame duping, + * passing NULL to video frame callback. + */ + + /* Environ 4, 5 are no longer supported (GET_VARIABLE / SET_VARIABLES), + * and reserved to avoid possible ABI clash. + */ + +#define RETRO_ENVIRONMENT_SET_MESSAGE 6 /* const struct retro_message * -- + * Sets a message to be displayed in implementation-specific manner + * for a certain amount of 'frames'. + * Should not be used for trivial messages, which should simply be + * logged via RETRO_ENVIRONMENT_GET_LOG_INTERFACE (or as a + * fallback, stderr). + */ +#define RETRO_ENVIRONMENT_SHUTDOWN 7 /* N/A (NULL) -- + * Requests the frontend to shutdown. + * Should only be used if game has a specific + * way to shutdown the game from a menu item or similar. + */ +#define RETRO_ENVIRONMENT_SET_PERFORMANCE_LEVEL 8 + /* const unsigned * -- + * Gives a hint to the frontend how demanding this implementation + * is on a system. E.g. reporting a level of 2 means + * this implementation should run decently on all frontends + * of level 2 and up. + * + * It can be used by the frontend to potentially warn + * about too demanding implementations. + * + * The levels are "floating". + * + * This function can be called on a per-game basis, + * as certain games an implementation can play might be + * particularly demanding. + * If called, it should be called in retro_load_game(). + */ +#define RETRO_ENVIRONMENT_GET_SYSTEM_DIRECTORY 9 + /* const char ** -- + * Returns the "system" directory of the frontend. + * This directory can be used to store system specific + * content such as BIOSes, configuration data, etc. + * The returned value can be NULL. + * If so, no such directory is defined, + * and it's up to the implementation to find a suitable directory. + * + * NOTE: Some cores used this folder also for "save" data such as + * memory cards, etc, for lack of a better place to put it. + * This is now discouraged, and if possible, cores should try to + * use the new GET_SAVE_DIRECTORY. + */ +#define RETRO_ENVIRONMENT_SET_PIXEL_FORMAT 10 + /* const enum retro_pixel_format * -- + * Sets the internal pixel format used by the implementation. + * The default pixel format is RETRO_PIXEL_FORMAT_0RGB1555. + * This pixel format however, is deprecated (see enum retro_pixel_format). + * If the call returns false, the frontend does not support this pixel + * format. + * + * This function should be called inside retro_load_game() or + * retro_get_system_av_info(). + */ +#define RETRO_ENVIRONMENT_SET_INPUT_DESCRIPTORS 11 + /* const struct retro_input_descriptor * -- + * Sets an array of retro_input_descriptors. + * It is up to the frontend to present this in a usable way. + * The array is terminated by retro_input_descriptor::description + * being set to NULL. + * This function can be called at any time, but it is recommended + * to call it as early as possible. + */ +#define RETRO_ENVIRONMENT_SET_KEYBOARD_CALLBACK 12 + /* const struct retro_keyboard_callback * -- + * Sets a callback function used to notify core about keyboard events. + */ +#define RETRO_ENVIRONMENT_SET_DISK_CONTROL_INTERFACE 13 + /* const struct retro_disk_control_callback * -- + * Sets an interface which frontend can use to eject and insert + * disk images. + * This is used for games which consist of multiple images and + * must be manually swapped out by the user (e.g. PSX). + */ +#define RETRO_ENVIRONMENT_SET_HW_RENDER 14 + /* struct retro_hw_render_callback * -- + * Sets an interface to let a libretro core render with + * hardware acceleration. + * Should be called in retro_load_game(). + * If successful, libretro cores will be able to render to a + * frontend-provided framebuffer. + * The size of this framebuffer will be at least as large as + * max_width/max_height provided in get_av_info(). + * If HW rendering is used, pass only RETRO_HW_FRAME_BUFFER_VALID or + * NULL to retro_video_refresh_t. + */ +#define RETRO_ENVIRONMENT_GET_VARIABLE 15 + /* struct retro_variable * -- + * Interface to acquire user-defined information from environment + * that cannot feasibly be supported in a multi-system way. + * 'key' should be set to a key which has already been set by + * SET_VARIABLES. + * 'data' will be set to a value or NULL. + */ +#define RETRO_ENVIRONMENT_SET_VARIABLES 16 + /* const struct retro_variable * -- + * Allows an implementation to signal the environment + * which variables it might want to check for later using + * GET_VARIABLE. + * This allows the frontend to present these variables to + * a user dynamically. + * This should be called as early as possible (ideally in + * retro_set_environment). + * + * 'data' points to an array of retro_variable structs + * terminated by a { NULL, NULL } element. + * retro_variable::key should be namespaced to not collide + * with other implementations' keys. E.g. A core called + * 'foo' should use keys named as 'foo_option'. + * retro_variable::value should contain a human readable + * description of the key as well as a '|' delimited list + * of expected values. + * + * The number of possible options should be very limited, + * i.e. it should be feasible to cycle through options + * without a keyboard. + * + * First entry should be treated as a default. + * + * Example entry: + * { "foo_option", "Speed hack coprocessor X; false|true" } + * + * Text before first ';' is description. This ';' must be + * followed by a space, and followed by a list of possible + * values split up with '|'. + * + * Only strings are operated on. The possible values will + * generally be displayed and stored as-is by the frontend. + */ +#define RETRO_ENVIRONMENT_GET_VARIABLE_UPDATE 17 + /* bool * -- + * Result is set to true if some variables are updated by + * frontend since last call to RETRO_ENVIRONMENT_GET_VARIABLE. + * Variables should be queried with GET_VARIABLE. + */ +#define RETRO_ENVIRONMENT_SET_SUPPORT_NO_GAME 18 + /* const bool * -- + * If true, the libretro implementation supports calls to + * retro_load_game() with NULL as argument. + * Used by cores which can run without particular game data. + * This should be called within retro_set_environment() only. + */ +#define RETRO_ENVIRONMENT_GET_LIBRETRO_PATH 19 + /* const char ** -- + * Retrieves the absolute path from where this libretro + * implementation was loaded. + * NULL is returned if the libretro was loaded statically + * (i.e. linked statically to frontend), or if the path cannot be + * determined. + * Mostly useful in cooperation with SET_SUPPORT_NO_GAME as assets can + * be loaded without ugly hacks. + */ + + /* Environment 20 was an obsolete version of SET_AUDIO_CALLBACK. + * It was not used by any known core at the time, + * and was removed from the API. */ +#define RETRO_ENVIRONMENT_SET_AUDIO_CALLBACK 22 + /* const struct retro_audio_callback * -- + * Sets an interface which is used to notify a libretro core about audio + * being available for writing. + * The callback can be called from any thread, so a core using this must + * have a thread safe audio implementation. + * It is intended for games where audio and video are completely + * asynchronous and audio can be generated on the fly. + * This interface is not recommended for use with emulators which have + * highly synchronous audio. + * + * The callback only notifies about writability; the libretro core still + * has to call the normal audio callbacks + * to write audio. The audio callbacks must be called from within the + * notification callback. + * The amount of audio data to write is up to the implementation. + * Generally, the audio callback will be called continously in a loop. + * + * Due to thread safety guarantees and lack of sync between audio and + * video, a frontend can selectively disallow this interface based on + * internal configuration. A core using this interface must also + * implement the "normal" audio interface. + * + * A libretro core using SET_AUDIO_CALLBACK should also make use of + * SET_FRAME_TIME_CALLBACK. + */ +#define RETRO_ENVIRONMENT_SET_FRAME_TIME_CALLBACK 21 + /* const struct retro_frame_time_callback * -- + * Lets the core know how much time has passed since last + * invocation of retro_run(). + * The frontend can tamper with the timing to fake fast-forward, + * slow-motion, frame stepping, etc. + * In this case the delta time will use the reference value + * in frame_time_callback.. + */ +#define RETRO_ENVIRONMENT_GET_RUMBLE_INTERFACE 23 + /* struct retro_rumble_interface * -- + * Gets an interface which is used by a libretro core to set + * state of rumble motors in controllers. + * A strong and weak motor is supported, and they can be + * controlled indepedently. + */ +#define RETRO_ENVIRONMENT_GET_INPUT_DEVICE_CAPABILITIES 24 + /* uint64_t * -- + * Gets a bitmask telling which device type are expected to be + * handled properly in a call to retro_input_state_t. + * Devices which are not handled or recognized always return + * 0 in retro_input_state_t. + * Example bitmask: caps = (1 << RETRO_DEVICE_JOYPAD) | (1 << RETRO_DEVICE_ANALOG). + * Should only be called in retro_run(). + */ +#define RETRO_ENVIRONMENT_GET_SENSOR_INTERFACE (25 | RETRO_ENVIRONMENT_EXPERIMENTAL) + /* struct retro_sensor_interface * -- + * Gets access to the sensor interface. + * The purpose of this interface is to allow + * setting state related to sensors such as polling rate, + * enabling/disable it entirely, etc. + * Reading sensor state is done via the normal + * input_state_callback API. + */ +#define RETRO_ENVIRONMENT_GET_CAMERA_INTERFACE (26 | RETRO_ENVIRONMENT_EXPERIMENTAL) + /* struct retro_camera_callback * -- + * Gets an interface to a video camera driver. + * A libretro core can use this interface to get access to a + * video camera. + * New video frames are delivered in a callback in same + * thread as retro_run(). + * + * GET_CAMERA_INTERFACE should be called in retro_load_game(). + * + * Depending on the camera implementation used, camera frames + * will be delivered as a raw framebuffer, + * or as an OpenGL texture directly. + * + * The core has to tell the frontend here which types of + * buffers can be handled properly. + * An OpenGL texture can only be handled when using a + * libretro GL core (SET_HW_RENDER). + * It is recommended to use a libretro GL core when + * using camera interface. + * + * The camera is not started automatically. The retrieved start/stop + * functions must be used to explicitly + * start and stop the camera driver. + */ +#define RETRO_ENVIRONMENT_GET_LOG_INTERFACE 27 + /* struct retro_log_callback * -- + * Gets an interface for logging. This is useful for + * logging in a cross-platform way + * as certain platforms cannot use use stderr for logging. + * It also allows the frontend to + * show logging information in a more suitable way. + * If this interface is not used, libretro cores should + * log to stderr as desired. + */ +#define RETRO_ENVIRONMENT_GET_PERF_INTERFACE 28 + /* struct retro_perf_callback * -- + * Gets an interface for performance counters. This is useful + * for performance logging in a cross-platform way and for detecting + * architecture-specific features, such as SIMD support. + */ +#define RETRO_ENVIRONMENT_GET_LOCATION_INTERFACE 29 + /* struct retro_location_callback * -- + * Gets access to the location interface. + * The purpose of this interface is to be able to retrieve + * location-based information from the host device, + * such as current latitude / longitude. + */ +#define RETRO_ENVIRONMENT_GET_CONTENT_DIRECTORY 30 + /* const char ** -- + * Returns the "content" directory of the frontend. + * This directory can be used to store specific assets that the + * core relies upon, such as art assets, + * input data, etc etc. + * The returned value can be NULL. + * If so, no such directory is defined, + * and it's up to the implementation to find a suitable directory. + */ +#define RETRO_ENVIRONMENT_GET_SAVE_DIRECTORY 31 + /* const char ** -- + * Returns the "save" directory of the frontend. + * This directory can be used to store SRAM, memory cards, + * high scores, etc, if the libretro core + * cannot use the regular memory interface (retro_get_memory_data()). + * + * NOTE: libretro cores used to check GET_SYSTEM_DIRECTORY for + * similar things before. + * They should still check GET_SYSTEM_DIRECTORY if they want to + * be backwards compatible. + * The path here can be NULL. It should only be non-NULL if the + * frontend user has set a specific save path. + */ +#define RETRO_ENVIRONMENT_SET_SYSTEM_AV_INFO 32 + /* const struct retro_system_av_info * -- + * Sets a new av_info structure. This can only be called from + * within retro_run(). + * This should *only* be used if the core is completely altering the + * internal resolutions, aspect ratios, timings, sampling rate, etc. + * Calling this can require a full reinitialization of video/audio + * drivers in the frontend, + * + * so it is important to call it very sparingly, and usually only with + * the users explicit consent. + * An eventual driver reinitialize will happen so that video and + * audio callbacks + * happening after this call within the same retro_run() call will + * target the newly initialized driver. + * + * This callback makes it possible to support configurable resolutions + * in games, which can be useful to + * avoid setting the "worst case" in max_width/max_height. + * + * ***HIGHLY RECOMMENDED*** Do not call this callback every time + * resolution changes in an emulator core if it's + * expected to be a temporary change, for the reasons of possible + * driver reinitialization. + * This call is not a free pass for not trying to provide + * correct values in retro_get_system_av_info(). If you need to change + * things like aspect ratio or nominal width/height, + * use RETRO_ENVIRONMENT_SET_GEOMETRY, which is a softer variant + * of SET_SYSTEM_AV_INFO. + * + * If this returns false, the frontend does not acknowledge a + * changed av_info struct. + */ +#define RETRO_ENVIRONMENT_SET_PROC_ADDRESS_CALLBACK 33 + /* const struct retro_get_proc_address_interface * -- + * Allows a libretro core to announce support for the + * get_proc_address() interface. + * This interface allows for a standard way to extend libretro where + * use of environment calls are too indirect, + * e.g. for cases where the frontend wants to call directly into the core. + * + * If a core wants to expose this interface, SET_PROC_ADDRESS_CALLBACK + * **MUST** be called from within retro_set_environment(). + */ +#define RETRO_ENVIRONMENT_SET_SUBSYSTEM_INFO 34 + /* const struct retro_subsystem_info * -- + * This environment call introduces the concept of libretro "subsystems". + * A subsystem is a variant of a libretro core which supports + * different kinds of games. + * The purpose of this is to support e.g. emulators which might + * have special needs, e.g. Super Nintendo's Super GameBoy, Sufami Turbo. + * It can also be used to pick among subsystems in an explicit way + * if the libretro implementation is a multi-system emulator itself. + * + * Loading a game via a subsystem is done with retro_load_game_special(), + * and this environment call allows a libretro core to expose which + * subsystems are supported for use with retro_load_game_special(). + * A core passes an array of retro_game_special_info which is terminated + * with a zeroed out retro_game_special_info struct. + * + * If a core wants to use this functionality, SET_SUBSYSTEM_INFO + * **MUST** be called from within retro_set_environment(). + */ +#define RETRO_ENVIRONMENT_SET_CONTROLLER_INFO 35 + /* const struct retro_controller_info * -- + * This environment call lets a libretro core tell the frontend + * which controller types are recognized in calls to + * retro_set_controller_port_device(). + * + * Some emulators such as Super Nintendo + * support multiple lightgun types which must be specifically + * selected from. + * It is therefore sometimes necessary for a frontend to be able + * to tell the core about a special kind of input device which is + * not covered by the libretro input API. + * + * In order for a frontend to understand the workings of an input device, + * it must be a specialized type + * of the generic device types already defined in the libretro API. + * + * Which devices are supported can vary per input port. + * The core must pass an array of const struct retro_controller_info which + * is terminated with a blanked out struct. Each element of the struct + * corresponds to an ascending port index to + * retro_set_controller_port_device(). + * Even if special device types are set in the libretro core, + * libretro should only poll input based on the base input device types. + */ +#define RETRO_ENVIRONMENT_SET_MEMORY_MAPS (36 | RETRO_ENVIRONMENT_EXPERIMENTAL) + /* const struct retro_memory_map * -- + * This environment call lets a libretro core tell the frontend + * about the memory maps this core emulates. + * This can be used to implement, for example, cheats in a core-agnostic way. + * + * Should only be used by emulators; it doesn't make much sense for + * anything else. + * It is recommended to expose all relevant pointers through + * retro_get_memory_* as well. + * + * Can be called from retro_init and retro_load_game. + */ +#define RETRO_ENVIRONMENT_SET_GEOMETRY 37 + /* const struct retro_game_geometry * -- + * This environment call is similar to SET_SYSTEM_AV_INFO for changing + * video parameters, but provides a guarantee that drivers will not be + * reinitialized. + * This can only be called from within retro_run(). + * + * The purpose of this call is to allow a core to alter nominal + * width/heights as well as aspect ratios on-the-fly, which can be + * useful for some emulators to change in run-time. + * + * max_width/max_height arguments are ignored and cannot be changed + * with this call as this could potentially require a reinitialization or a + * non-constant time operation. + * If max_width/max_height are to be changed, SET_SYSTEM_AV_INFO is required. + * + * A frontend must guarantee that this environment call completes in + * constant time. + */ +#define RETRO_ENVIRONMENT_GET_USERNAME 38 + /* const char ** + * Returns the specified username of the frontend, if specified by the user. + * This username can be used as a nickname for a core that has online facilities + * or any other mode where personalization of the user is desirable. + * The returned value can be NULL. + * If this environ callback is used by a core that requires a valid username, + * a default username should be specified by the core. + */ +#define RETRO_ENVIRONMENT_GET_LANGUAGE 39 + /* unsigned * -- + * Returns the specified language of the frontend, if specified by the user. + * It can be used by the core for localization purposes. + */ + +#define RETRO_MEMDESC_CONST (1 << 0) /* The frontend will never change this memory area once retro_load_game has returned. */ +#define RETRO_MEMDESC_BIGENDIAN (1 << 1) /* The memory area contains big endian data. Default is little endian. */ +#define RETRO_MEMDESC_ALIGN_2 (1 << 16) /* All memory access in this area is aligned to their own size, or 2, whichever is smaller. */ +#define RETRO_MEMDESC_ALIGN_4 (2 << 16) +#define RETRO_MEMDESC_ALIGN_8 (3 << 16) +#define RETRO_MEMDESC_MINSIZE_2 (1 << 24) /* All memory in this region is accessed at least 2 bytes at the time. */ +#define RETRO_MEMDESC_MINSIZE_4 (2 << 24) +#define RETRO_MEMDESC_MINSIZE_8 (3 << 24) +struct retro_memory_descriptor +{ + uint64_t flags; + + /* Pointer to the start of the relevant ROM or RAM chip. + * It's strongly recommended to use 'offset' if possible, rather than + * doing math on the pointer. + * + * If the same byte is mapped my multiple descriptors, their descriptors + * must have the same pointer. + * If 'start' does not point to the first byte in the pointer, put the + * difference in 'offset' instead. + * + * May be NULL if there's nothing usable here (e.g. hardware registers and + * open bus). No flags should be set if the pointer is NULL. + * It's recommended to minimize the number of descriptors if possible, + * but not mandatory. */ + void *ptr; + size_t offset; + + /* This is the location in the emulated address space + * where the mapping starts. */ + size_t start; + + /* Which bits must be same as in 'start' for this mapping to apply. + * The first memory descriptor to claim a certain byte is the one + * that applies. + * A bit which is set in 'start' must also be set in this. + * Can be zero, in which case each byte is assumed mapped exactly once. + * In this case, 'len' must be a power of two. */ + size_t select; + + /* If this is nonzero, the set bits are assumed not connected to the + * memory chip's address pins. */ + size_t disconnect; + + /* This one tells the size of the current memory area. + * If, after start+disconnect are applied, the address is higher than + * this, the highest bit of the address is cleared. + * + * If the address is still too high, the next highest bit is cleared. + * Can be zero, in which case it's assumed to be infinite (as limited + * by 'select' and 'disconnect'). */ + size_t len; + + /* To go from emulated address to physical address, the following + * order applies: + * Subtract 'start', pick off 'disconnect', apply 'len', add 'offset'. + * + * The address space name must consist of only a-zA-Z0-9_-, + * should be as short as feasible (maximum length is 8 plus the NUL), + * and may not be any other address space plus one or more 0-9A-F + * at the end. + * However, multiple memory descriptors for the same address space is + * allowed, and the address space name can be empty. NULL is treated + * as empty. + * + * Address space names are case sensitive, but avoid lowercase if possible. + * The same pointer may exist in multiple address spaces. + * + * Examples: + * blank+blank - valid (multiple things may be mapped in the same namespace) + * 'Sp'+'Sp' - valid (multiple things may be mapped in the same namespace) + * 'A'+'B' - valid (neither is a prefix of each other) + * 'S'+blank - valid ('S' is not in 0-9A-F) + * 'a'+blank - valid ('a' is not in 0-9A-F) + * 'a'+'A' - valid (neither is a prefix of each other) + * 'AR'+blank - valid ('R' is not in 0-9A-F) + * 'ARB'+blank - valid (the B can't be part of the address either, because + * there is no namespace 'AR') + * blank+'B' - not valid, because it's ambigous which address space B1234 + * would refer to. + * The length can't be used for that purpose; the frontend may want + * to append arbitrary data to an address, without a separator. */ + const char *addrspace; +}; + +/* The frontend may use the largest value of 'start'+'select' in a + * certain namespace to infer the size of the address space. + * + * If the address space is larger than that, a mapping with .ptr=NULL + * should be at the end of the array, with .select set to all ones for + * as long as the address space is big. + * + * Sample descriptors (minus .ptr, and RETRO_MEMFLAG_ on the flags): + * SNES WRAM: + * .start=0x7E0000, .len=0x20000 + * (Note that this must be mapped before the ROM in most cases; some of the + * ROM mappers + * try to claim $7E0000, or at least $7E8000.) + * SNES SPC700 RAM: + * .addrspace="S", .len=0x10000 + * SNES WRAM mirrors: + * .flags=MIRROR, .start=0x000000, .select=0xC0E000, .len=0x2000 + * .flags=MIRROR, .start=0x800000, .select=0xC0E000, .len=0x2000 + * SNES WRAM mirrors, alternate equivalent descriptor: + * .flags=MIRROR, .select=0x40E000, .disconnect=~0x1FFF + * (Various similar constructions can be created by combining parts of + * the above two.) + * SNES LoROM (512KB, mirrored a couple of times): + * .flags=CONST, .start=0x008000, .select=0x408000, .disconnect=0x8000, .len=512*1024 + * .flags=CONST, .start=0x400000, .select=0x400000, .disconnect=0x8000, .len=512*1024 + * SNES HiROM (4MB): + * .flags=CONST, .start=0x400000, .select=0x400000, .len=4*1024*1024 + * .flags=CONST, .offset=0x8000, .start=0x008000, .select=0x408000, .len=4*1024*1024 + * SNES ExHiROM (8MB): + * .flags=CONST, .offset=0, .start=0xC00000, .select=0xC00000, .len=4*1024*1024 + * .flags=CONST, .offset=4*1024*1024, .start=0x400000, .select=0xC00000, .len=4*1024*1024 + * .flags=CONST, .offset=0x8000, .start=0x808000, .select=0xC08000, .len=4*1024*1024 + * .flags=CONST, .offset=4*1024*1024+0x8000, .start=0x008000, .select=0xC08000, .len=4*1024*1024 + * Clarify the size of the address space: + * .ptr=NULL, .select=0xFFFFFF + * .len can be implied by .select in many of them, but was included for clarity. + */ + +struct retro_memory_map +{ + const struct retro_memory_descriptor *descriptors; + unsigned num_descriptors; +}; + +struct retro_controller_description +{ + /* Human-readable description of the controller. Even if using a generic + * input device type, this can be set to the particular device type the + * core uses. */ + const char *desc; + + /* Device type passed to retro_set_controller_port_device(). If the device + * type is a sub-class of a generic input device type, use the + * RETRO_DEVICE_SUBCLASS macro to create an ID. + * + * E.g. RETRO_DEVICE_SUBCLASS(RETRO_DEVICE_JOYPAD, 1). */ + unsigned id; +}; + +struct retro_controller_info +{ + const struct retro_controller_description *types; + unsigned num_types; +}; + +struct retro_subsystem_memory_info +{ + /* The extension associated with a memory type, e.g. "psram". */ + const char *extension; + + /* The memory type for retro_get_memory(). This should be at + * least 0x100 to avoid conflict with standardized + * libretro memory types. */ + unsigned type; +}; + +struct retro_subsystem_rom_info +{ + /* Describes what the content is (SGB BIOS, GB ROM, etc). */ + const char *desc; + + /* Same definition as retro_get_system_info(). */ + const char *valid_extensions; + + /* Same definition as retro_get_system_info(). */ + bool need_fullpath; + + /* Same definition as retro_get_system_info(). */ + bool block_extract; + + /* This is set if the content is required to load a game. + * If this is set to false, a zeroed-out retro_game_info can be passed. */ + bool required; + + /* Content can have multiple associated persistent + * memory types (retro_get_memory()). */ + const struct retro_subsystem_memory_info *memory; + unsigned num_memory; +}; + +struct retro_subsystem_info +{ + /* Human-readable string of the subsystem type, e.g. "Super GameBoy" */ + const char *desc; + + /* A computer friendly short string identifier for the subsystem type. + * This name must be [a-z]. + * E.g. if desc is "Super GameBoy", this can be "sgb". + * This identifier can be used for command-line interfaces, etc. + */ + const char *ident; + + /* Infos for each content file. The first entry is assumed to be the + * "most significant" content for frontend purposes. + * E.g. with Super GameBoy, the first content should be the GameBoy ROM, + * as it is the most "significant" content to a user. + * If a frontend creates new file paths based on the content used + * (e.g. savestates), it should use the path for the first ROM to do so. */ + const struct retro_subsystem_rom_info *roms; + + /* Number of content files associated with a subsystem. */ + unsigned num_roms; + + /* The type passed to retro_load_game_special(). */ + unsigned id; +}; + +typedef void (*retro_proc_address_t)(void); + +/* libretro API extension functions: + * (None here so far). + * + * Get a symbol from a libretro core. + * Cores should only return symbols which are actual + * extensions to the libretro API. + * + * Frontends should not use this to obtain symbols to standard + * libretro entry points (static linking or dlsym). + * + * The symbol name must be equal to the function name, + * e.g. if void retro_foo(void); exists, the symbol must be called "retro_foo". + * The returned function pointer must be cast to the corresponding type. + */ +typedef retro_proc_address_t (*retro_get_proc_address_t)(const char *sym); + +struct retro_get_proc_address_interface +{ + retro_get_proc_address_t get_proc_address; +}; + +enum retro_log_level +{ + RETRO_LOG_DEBUG = 0, + RETRO_LOG_INFO, + RETRO_LOG_WARN, + RETRO_LOG_ERROR, + + RETRO_LOG_DUMMY = INT_MAX +}; + +/* Logging function. Takes log level argument as well. */ +typedef void (*retro_log_printf_t)(enum retro_log_level level, + const char *fmt, ...); + +struct retro_log_callback +{ + retro_log_printf_t log; +}; + +/* Performance related functions */ + +/* ID values for SIMD CPU features */ +#define RETRO_SIMD_SSE (1 << 0) +#define RETRO_SIMD_SSE2 (1 << 1) +#define RETRO_SIMD_VMX (1 << 2) +#define RETRO_SIMD_VMX128 (1 << 3) +#define RETRO_SIMD_AVX (1 << 4) +#define RETRO_SIMD_NEON (1 << 5) +#define RETRO_SIMD_SSE3 (1 << 6) +#define RETRO_SIMD_SSSE3 (1 << 7) +#define RETRO_SIMD_MMX (1 << 8) +#define RETRO_SIMD_MMXEXT (1 << 9) +#define RETRO_SIMD_SSE4 (1 << 10) +#define RETRO_SIMD_SSE42 (1 << 11) +#define RETRO_SIMD_AVX2 (1 << 12) +#define RETRO_SIMD_VFPU (1 << 13) +#define RETRO_SIMD_PS (1 << 14) +#define RETRO_SIMD_AES (1 << 15) + +typedef uint64_t retro_perf_tick_t; +typedef int64_t retro_time_t; + +struct retro_perf_counter +{ + const char *ident; + retro_perf_tick_t start; + retro_perf_tick_t total; + retro_perf_tick_t call_cnt; + + bool registered; +}; + +/* Returns current time in microseconds. + * Tries to use the most accurate timer available. + */ +typedef retro_time_t (*retro_perf_get_time_usec_t)(void); + +/* A simple counter. Usually nanoseconds, but can also be CPU cycles. + * Can be used directly if desired (when creating a more sophisticated + * performance counter system). + * */ +typedef retro_perf_tick_t (*retro_perf_get_counter_t)(void); + +/* Returns a bit-mask of detected CPU features (RETRO_SIMD_*). */ +typedef uint64_t (*retro_get_cpu_features_t)(void); + +/* Asks frontend to log and/or display the state of performance counters. + * Performance counters can always be poked into manually as well. + */ +typedef void (*retro_perf_log_t)(void); + +/* Register a performance counter. + * ident field must be set with a discrete value and other values in + * retro_perf_counter must be 0. + * Registering can be called multiple times. To avoid calling to + * frontend redundantly, you can check registered field first. */ +typedef void (*retro_perf_register_t)(struct retro_perf_counter *counter); + +/* Starts a registered counter. */ +typedef void (*retro_perf_start_t)(struct retro_perf_counter *counter); + +/* Stops a registered counter. */ +typedef void (*retro_perf_stop_t)(struct retro_perf_counter *counter); + +/* For convenience it can be useful to wrap register, start and stop in macros. + * E.g.: + * #ifdef LOG_PERFORMANCE + * #define RETRO_PERFORMANCE_INIT(perf_cb, name) static struct retro_perf_counter name = {#name}; if (!name.registered) perf_cb.perf_register(&(name)) + * #define RETRO_PERFORMANCE_START(perf_cb, name) perf_cb.perf_start(&(name)) + * #define RETRO_PERFORMANCE_STOP(perf_cb, name) perf_cb.perf_stop(&(name)) + * #else + * ... Blank macros ... + * #endif + * + * These can then be used mid-functions around code snippets. + * + * extern struct retro_perf_callback perf_cb; * Somewhere in the core. + * + * void do_some_heavy_work(void) + * { + * RETRO_PERFORMANCE_INIT(cb, work_1; + * RETRO_PERFORMANCE_START(cb, work_1); + * heavy_work_1(); + * RETRO_PERFORMANCE_STOP(cb, work_1); + * + * RETRO_PERFORMANCE_INIT(cb, work_2); + * RETRO_PERFORMANCE_START(cb, work_2); + * heavy_work_2(); + * RETRO_PERFORMANCE_STOP(cb, work_2); + * } + * + * void retro_deinit(void) + * { + * perf_cb.perf_log(); * Log all perf counters here for example. + * } + */ + +struct retro_perf_callback +{ + retro_perf_get_time_usec_t get_time_usec; + retro_get_cpu_features_t get_cpu_features; + + retro_perf_get_counter_t get_perf_counter; + retro_perf_register_t perf_register; + retro_perf_start_t perf_start; + retro_perf_stop_t perf_stop; + retro_perf_log_t perf_log; +}; + +/* FIXME: Document the sensor API and work out behavior. + * It will be marked as experimental until then. + */ +enum retro_sensor_action +{ + RETRO_SENSOR_ACCELEROMETER_ENABLE = 0, + RETRO_SENSOR_ACCELEROMETER_DISABLE, + + RETRO_SENSOR_DUMMY = INT_MAX +}; + +/* Id values for SENSOR types. */ +#define RETRO_SENSOR_ACCELEROMETER_X 0 +#define RETRO_SENSOR_ACCELEROMETER_Y 1 +#define RETRO_SENSOR_ACCELEROMETER_Z 2 + +typedef bool (*retro_set_sensor_state_t)(unsigned port, + enum retro_sensor_action action, unsigned rate); + +typedef float (*retro_sensor_get_input_t)(unsigned port, unsigned id); + +struct retro_sensor_interface +{ + retro_set_sensor_state_t set_sensor_state; + retro_sensor_get_input_t get_sensor_input; +}; + +enum retro_camera_buffer +{ + RETRO_CAMERA_BUFFER_OPENGL_TEXTURE = 0, + RETRO_CAMERA_BUFFER_RAW_FRAMEBUFFER, + + RETRO_CAMERA_BUFFER_DUMMY = INT_MAX +}; + +/* Starts the camera driver. Can only be called in retro_run(). */ +typedef bool (*retro_camera_start_t)(void); + +/* Stops the camera driver. Can only be called in retro_run(). */ +typedef void (*retro_camera_stop_t)(void); + +/* Callback which signals when the camera driver is initialized + * and/or deinitialized. + * retro_camera_start_t can be called in initialized callback. + */ +typedef void (*retro_camera_lifetime_status_t)(void); + +/* A callback for raw framebuffer data. buffer points to an XRGB8888 buffer. + * Width, height and pitch are similar to retro_video_refresh_t. + * First pixel is top-left origin. + */ +typedef void (*retro_camera_frame_raw_framebuffer_t)(const uint32_t *buffer, + unsigned width, unsigned height, size_t pitch); + +/* A callback for when OpenGL textures are used. + * + * texture_id is a texture owned by camera driver. + * Its state or content should be considered immutable, except for things like + * texture filtering and clamping. + * + * texture_target is the texture target for the GL texture. + * These can include e.g. GL_TEXTURE_2D, GL_TEXTURE_RECTANGLE, and possibly + * more depending on extensions. + * + * affine points to a packed 3x3 column-major matrix used to apply an affine + * transform to texture coordinates. (affine_matrix * vec3(coord_x, coord_y, 1.0)) + * After transform, normalized texture coord (0, 0) should be bottom-left + * and (1, 1) should be top-right (or (width, height) for RECTANGLE). + * + * GL-specific typedefs are avoided here to avoid relying on gl.h in + * the API definition. + */ +typedef void (*retro_camera_frame_opengl_texture_t)(unsigned texture_id, + unsigned texture_target, const float *affine); + +struct retro_camera_callback +{ + /* Set by libretro core. + * Example bitmask: caps = (1 << RETRO_CAMERA_BUFFER_OPENGL_TEXTURE) | (1 << RETRO_CAMERA_BUFFER_RAW_FRAMEBUFFER). + */ + uint64_t caps; + + unsigned width; /* Desired resolution for camera. Is only used as a hint. */ + unsigned height; + retro_camera_start_t start; /* Set by frontend. */ + retro_camera_stop_t stop; /* Set by frontend. */ + + /* Set by libretro core if raw framebuffer callbacks will be used. */ + retro_camera_frame_raw_framebuffer_t frame_raw_framebuffer; + /* Set by libretro core if OpenGL texture callbacks will be used. */ + retro_camera_frame_opengl_texture_t frame_opengl_texture; + + /* Set by libretro core. Called after camera driver is initialized and + * ready to be started. + * Can be NULL, in which this callback is not called. + */ + retro_camera_lifetime_status_t initialized; + + /* Set by libretro core. Called right before camera driver is + * deinitialized. + * Can be NULL, in which this callback is not called. + */ + retro_camera_lifetime_status_t deinitialized; +}; + +/* Sets the interval of time and/or distance at which to update/poll + * location-based data. + * + * To ensure compatibility with all location-based implementations, + * values for both interval_ms and interval_distance should be provided. + * + * interval_ms is the interval expressed in milliseconds. + * interval_distance is the distance interval expressed in meters. + */ +typedef void (*retro_location_set_interval_t)(unsigned interval_ms, + unsigned interval_distance); + +/* Start location services. The device will start listening for changes to the + * current location at regular intervals (which are defined with + * retro_location_set_interval_t). */ +typedef bool (*retro_location_start_t)(void); + +/* Stop location services. The device will stop listening for changes + * to the current location. */ +typedef void (*retro_location_stop_t)(void); + +/* Get the position of the current location. Will set parameters to + * 0 if no new location update has happened since the last time. */ +typedef bool (*retro_location_get_position_t)(double *lat, double *lon, + double *horiz_accuracy, double *vert_accuracy); + +/* Callback which signals when the location driver is initialized + * and/or deinitialized. + * retro_location_start_t can be called in initialized callback. + */ +typedef void (*retro_location_lifetime_status_t)(void); + +struct retro_location_callback +{ + retro_location_start_t start; + retro_location_stop_t stop; + retro_location_get_position_t get_position; + retro_location_set_interval_t set_interval; + + retro_location_lifetime_status_t initialized; + retro_location_lifetime_status_t deinitialized; +}; + +enum retro_rumble_effect +{ + RETRO_RUMBLE_STRONG = 0, + RETRO_RUMBLE_WEAK = 1, + + RETRO_RUMBLE_DUMMY = INT_MAX +}; + +/* Sets rumble state for joypad plugged in port 'port'. + * Rumble effects are controlled independently, + * and setting e.g. strong rumble does not override weak rumble. + * Strength has a range of [0, 0xffff]. + * + * Returns true if rumble state request was honored. + * Calling this before first retro_run() is likely to return false. */ +typedef bool (*retro_set_rumble_state_t)(unsigned port, + enum retro_rumble_effect effect, uint16_t strength); + +struct retro_rumble_interface +{ + retro_set_rumble_state_t set_rumble_state; +}; + +/* Notifies libretro that audio data should be written. */ +typedef void (*retro_audio_callback_t)(void); + +/* True: Audio driver in frontend is active, and callback is + * expected to be called regularily. + * False: Audio driver in frontend is paused or inactive. + * Audio callback will not be called until set_state has been + * called with true. + * Initial state is false (inactive). + */ +typedef void (*retro_audio_set_state_callback_t)(bool enabled); + +struct retro_audio_callback +{ + retro_audio_callback_t callback; + retro_audio_set_state_callback_t set_state; +}; + +/* Notifies a libretro core of time spent since last invocation + * of retro_run() in microseconds. + * + * It will be called right before retro_run() every frame. + * The frontend can tamper with timing to support cases like + * fast-forward, slow-motion and framestepping. + * + * In those scenarios the reference frame time value will be used. */ +typedef int64_t retro_usec_t; +typedef void (*retro_frame_time_callback_t)(retro_usec_t usec); +struct retro_frame_time_callback +{ + retro_frame_time_callback_t callback; + /* Represents the time of one frame. It is computed as + * 1000000 / fps, but the implementation will resolve the + * rounding to ensure that framestepping, etc is exact. */ + retro_usec_t reference; +}; + +/* Pass this to retro_video_refresh_t if rendering to hardware. + * Passing NULL to retro_video_refresh_t is still a frame dupe as normal. + * */ +#define RETRO_HW_FRAME_BUFFER_VALID ((void*)-1) + +/* Invalidates the current HW context. + * Any GL state is lost, and must not be deinitialized explicitly. + * If explicit deinitialization is desired by the libretro core, + * it should implement context_destroy callback. + * If called, all GPU resources must be reinitialized. + * Usually called when frontend reinits video driver. + * Also called first time video driver is initialized, + * allowing libretro core to initialize resources. + */ +typedef void (*retro_hw_context_reset_t)(void); + +/* Gets current framebuffer which is to be rendered to. + * Could change every frame potentially. + */ +typedef uintptr_t (*retro_hw_get_current_framebuffer_t)(void); + +/* Get a symbol from HW context. */ +typedef retro_proc_address_t (*retro_hw_get_proc_address_t)(const char *sym); + +enum retro_hw_context_type +{ + RETRO_HW_CONTEXT_NONE = 0, + /* OpenGL 2.x. Driver can choose to use latest compatibility context. */ + RETRO_HW_CONTEXT_OPENGL = 1, + /* OpenGL ES 2.0. */ + RETRO_HW_CONTEXT_OPENGLES2 = 2, + /* Modern desktop core GL context. Use version_major/ + * version_minor fields to set GL version. */ + RETRO_HW_CONTEXT_OPENGL_CORE = 3, + /* OpenGL ES 3.0 */ + RETRO_HW_CONTEXT_OPENGLES3 = 4, + /* OpenGL ES 3.1+. Set version_major/version_minor. For GLES2 and GLES3, + * use the corresponding enums directly. */ + RETRO_HW_CONTEXT_OPENGLES_VERSION = 5, + + RETRO_HW_CONTEXT_DUMMY = INT_MAX +}; + +struct retro_hw_render_callback +{ + /* Which API to use. Set by libretro core. */ + enum retro_hw_context_type context_type; + + /* Called when a context has been created or when it has been reset. + * An OpenGL context is only valid after context_reset() has been called. + * + * When context_reset is called, OpenGL resources in the libretro + * implementation are guaranteed to be invalid. + * + * It is possible that context_reset is called multiple times during an + * application lifecycle. + * If context_reset is called without any notification (context_destroy), + * the OpenGL context was lost and resources should just be recreated + * without any attempt to "free" old resources. + */ + retro_hw_context_reset_t context_reset; + + /* Set by frontend. */ + retro_hw_get_current_framebuffer_t get_current_framebuffer; + + /* Set by frontend. */ + retro_hw_get_proc_address_t get_proc_address; + + /* Set if render buffers should have depth component attached. */ + bool depth; + + /* Set if stencil buffers should be attached. */ + bool stencil; + + /* If depth and stencil are true, a packed 24/8 buffer will be added. + * Only attaching stencil is invalid and will be ignored. */ + + /* Use conventional bottom-left origin convention. If false, + * standard libretro top-left origin semantics are used. */ + bool bottom_left_origin; + + /* Major version number for core GL context or GLES 3.1+. */ + unsigned version_major; + + /* Minor version number for core GL context or GLES 3.1+. */ + unsigned version_minor; + + /* If this is true, the frontend will go very far to avoid + * resetting context in scenarios like toggling fullscreen, etc. + */ + bool cache_context; + + /* The reset callback might still be called in extreme situations + * such as if the context is lost beyond recovery. + * + * For optimal stability, set this to false, and allow context to be + * reset at any time. + */ + + /* A callback to be called before the context is destroyed in a + * controlled way by the frontend. */ + retro_hw_context_reset_t context_destroy; + + /* OpenGL resources can be deinitialized cleanly at this step. + * context_destroy can be set to NULL, in which resources will + * just be destroyed without any notification. + * + * Even when context_destroy is non-NULL, it is possible that + * context_reset is called without any destroy notification. + * This happens if context is lost by external factors (such as + * notified by GL_ARB_robustness). + * + * In this case, the context is assumed to be already dead, + * and the libretro implementation must not try to free any OpenGL + * resources in the subsequent context_reset. + */ + + /* Creates a debug context. */ + bool debug_context; +}; + +/* Callback type passed in RETRO_ENVIRONMENT_SET_KEYBOARD_CALLBACK. + * Called by the frontend in response to keyboard events. + * down is set if the key is being pressed, or false if it is being released. + * keycode is the RETROK value of the char. + * character is the text character of the pressed key. (UTF-32). + * key_modifiers is a set of RETROKMOD values or'ed together. + * + * The pressed/keycode state can be indepedent of the character. + * It is also possible that multiple characters are generated from a + * single keypress. + * Keycode events should be treated separately from character events. + * However, when possible, the frontend should try to synchronize these. + * If only a character is posted, keycode should be RETROK_UNKNOWN. + * + * Similarily if only a keycode event is generated with no corresponding + * character, character should be 0. + */ +typedef void (*retro_keyboard_event_t)(bool down, unsigned keycode, + uint32_t character, uint16_t key_modifiers); + +struct retro_keyboard_callback +{ + retro_keyboard_event_t callback; +}; + +/* Callbacks for RETRO_ENVIRONMENT_SET_DISK_CONTROL_INTERFACE. + * Should be set for implementations which can swap out multiple disk + * images in runtime. + * + * If the implementation can do this automatically, it should strive to do so. + * However, there are cases where the user must manually do so. + * + * Overview: To swap a disk image, eject the disk image with + * set_eject_state(true). + * Set the disk index with set_image_index(index). Insert the disk again + * with set_eject_state(false). + */ + +/* If ejected is true, "ejects" the virtual disk tray. + * When ejected, the disk image index can be set. + */ +typedef bool (*retro_set_eject_state_t)(bool ejected); + +/* Gets current eject state. The initial state is 'not ejected'. */ +typedef bool (*retro_get_eject_state_t)(void); + +/* Gets current disk index. First disk is index 0. + * If return value is >= get_num_images(), no disk is currently inserted. + */ +typedef unsigned (*retro_get_image_index_t)(void); + +/* Sets image index. Can only be called when disk is ejected. + * The implementation supports setting "no disk" by using an + * index >= get_num_images(). + */ +typedef bool (*retro_set_image_index_t)(unsigned index); + +/* Gets total number of images which are available to use. */ +typedef unsigned (*retro_get_num_images_t)(void); + +struct retro_game_info; + +/* Replaces the disk image associated with index. + * Arguments to pass in info have same requirements as retro_load_game(). + * Virtual disk tray must be ejected when calling this. + * + * Replacing a disk image with info = NULL will remove the disk image + * from the internal list. + * As a result, calls to get_image_index() can change. + * + * E.g. replace_image_index(1, NULL), and previous get_image_index() + * returned 4 before. + * Index 1 will be removed, and the new index is 3. + */ +typedef bool (*retro_replace_image_index_t)(unsigned index, + const struct retro_game_info *info); + +/* Adds a new valid index (get_num_images()) to the internal disk list. + * This will increment subsequent return values from get_num_images() by 1. + * This image index cannot be used until a disk image has been set + * with replace_image_index. */ +typedef bool (*retro_add_image_index_t)(void); + +struct retro_disk_control_callback +{ + retro_set_eject_state_t set_eject_state; + retro_get_eject_state_t get_eject_state; + + retro_get_image_index_t get_image_index; + retro_set_image_index_t set_image_index; + retro_get_num_images_t get_num_images; + + retro_replace_image_index_t replace_image_index; + retro_add_image_index_t add_image_index; +}; + +enum retro_pixel_format +{ + /* 0RGB1555, native endian. + * 0 bit must be set to 0. + * This pixel format is default for compatibility concerns only. + * If a 15/16-bit pixel format is desired, consider using RGB565. */ + RETRO_PIXEL_FORMAT_0RGB1555 = 0, + + /* XRGB8888, native endian. + * X bits are ignored. */ + RETRO_PIXEL_FORMAT_XRGB8888 = 1, + + /* RGB565, native endian. + * This pixel format is the recommended format to use if a 15/16-bit + * format is desired as it is the pixel format that is typically + * available on a wide range of low-power devices. + * + * It is also natively supported in APIs like OpenGL ES. */ + RETRO_PIXEL_FORMAT_RGB565 = 2, + + /* Ensure sizeof() == sizeof(int). */ + RETRO_PIXEL_FORMAT_UNKNOWN = INT_MAX +}; + +struct retro_message +{ + const char *msg; /* Message to be displayed. */ + unsigned frames; /* Duration in frames of message. */ +}; + +/* Describes how the libretro implementation maps a libretro input bind + * to its internal input system through a human readable string. + * This string can be used to better let a user configure input. */ +struct retro_input_descriptor +{ + /* Associates given parameters with a description. */ + unsigned port; + unsigned device; + unsigned index; + unsigned id; + + /* Human readable description for parameters. + * The pointer must remain valid until + * retro_unload_game() is called. */ + const char *description; +}; + +struct retro_system_info +{ + /* All pointers are owned by libretro implementation, and pointers must + * remain valid until retro_deinit() is called. */ + + const char *library_name; /* Descriptive name of library. Should not + * contain any version numbers, etc. */ + const char *library_version; /* Descriptive version of core. */ + + const char *valid_extensions; /* A string listing probably content + * extensions the core will be able to + * load, separated with pipe. + * I.e. "bin|rom|iso". + * Typically used for a GUI to filter + * out extensions. */ + + /* If true, retro_load_game() is guaranteed to provide a valid pathname + * in retro_game_info::path. + * ::data and ::size are both invalid. + * + * If false, ::data and ::size are guaranteed to be valid, but ::path + * might not be valid. + * + * This is typically set to true for libretro implementations that must + * load from file. + * Implementations should strive for setting this to false, as it allows + * the frontend to perform patching, etc. */ + bool need_fullpath; + + /* If true, the frontend is not allowed to extract any archives before + * loading the real content. + * Necessary for certain libretro implementations that load games + * from zipped archives. */ + bool block_extract; +}; + +struct retro_game_geometry +{ + unsigned base_width; /* Nominal video width of game. */ + unsigned base_height; /* Nominal video height of game. */ + unsigned max_width; /* Maximum possible width of game. */ + unsigned max_height; /* Maximum possible height of game. */ + + float aspect_ratio; /* Nominal aspect ratio of game. If + * aspect_ratio is <= 0.0, an aspect ratio + * of base_width / base_height is assumed. + * A frontend could override this setting, + * if desired. */ +}; + +struct retro_system_timing +{ + double fps; /* FPS of video content. */ + double sample_rate; /* Sampling rate of audio. */ +}; + +struct retro_system_av_info +{ + struct retro_game_geometry geometry; + struct retro_system_timing timing; +}; + +struct retro_variable +{ + /* Variable to query in RETRO_ENVIRONMENT_GET_VARIABLE. + * If NULL, obtains the complete environment string if more + * complex parsing is necessary. + * The environment string is formatted as key-value pairs + * delimited by semicolons as so: + * "key1=value1;key2=value2;..." + */ + const char *key; + + /* Value to be obtained. If key does not exist, it is set to NULL. */ + const char *value; +}; + +struct retro_game_info +{ + const char *path; /* Path to game, UTF-8 encoded. + * Usually used as a reference. + * May be NULL if rom was loaded from stdin + * or similar. + * retro_system_info::need_fullpath guaranteed + * that this path is valid. */ + const void *data; /* Memory buffer of loaded game. Will be NULL + * if need_fullpath was set. */ + size_t size; /* Size of memory buffer. */ + const char *meta; /* String of implementation specific meta-data. */ +}; + +/* Callbacks */ + +/* Environment callback. Gives implementations a way of performing + * uncommon tasks. Extensible. */ +typedef bool (*retro_environment_t)(unsigned cmd, void *data); + +/* Render a frame. Pixel format is 15-bit 0RGB1555 native endian + * unless changed (see RETRO_ENVIRONMENT_SET_PIXEL_FORMAT). + * + * Width and height specify dimensions of buffer. + * Pitch specifices length in bytes between two lines in buffer. + * + * For performance reasons, it is highly recommended to have a frame + * that is packed in memory, i.e. pitch == width * byte_per_pixel. + * Certain graphic APIs, such as OpenGL ES, do not like textures + * that are not packed in memory. + */ +typedef void (*retro_video_refresh_t)(const void *data, unsigned width, + unsigned height, size_t pitch); + +/* Renders a single audio frame. Should only be used if implementation + * generates a single sample at a time. + * Format is signed 16-bit native endian. + */ +typedef void (*retro_audio_sample_t)(int16_t left, int16_t right); + +/* Renders multiple audio frames in one go. + * + * One frame is defined as a sample of left and right channels, interleaved. + * I.e. int16_t buf[4] = { l, r, l, r }; would be 2 frames. + * Only one of the audio callbacks must ever be used. + */ +typedef size_t (*retro_audio_sample_batch_t)(const int16_t *data, + size_t frames); + +/* Polls input. */ +typedef void (*retro_input_poll_t)(void); + +/* Queries for input for player 'port'. device will be masked with + * RETRO_DEVICE_MASK. + * + * Specialization of devices such as RETRO_DEVICE_JOYPAD_MULTITAP that + * have been set with retro_set_controller_port_device() + * will still use the higher level RETRO_DEVICE_JOYPAD to request input. + */ +typedef int16_t (*retro_input_state_t)(unsigned port, unsigned device, + unsigned index, unsigned id); + +/* Sets callbacks. retro_set_environment() is guaranteed to be called + * before retro_init(). + * + * The rest of the set_* functions are guaranteed to have been called + * before the first call to retro_run() is made. */ +void retro_set_environment(retro_environment_t); +void retro_set_video_refresh(retro_video_refresh_t); +void retro_set_audio_sample(retro_audio_sample_t); +void retro_set_audio_sample_batch(retro_audio_sample_batch_t); +void retro_set_input_poll(retro_input_poll_t); +void retro_set_input_state(retro_input_state_t); + +/* Library global initialization/deinitialization. */ +void retro_init(void); +void retro_deinit(void); + +/* Must return RETRO_API_VERSION. Used to validate ABI compatibility + * when the API is revised. */ +unsigned retro_api_version(void); + +/* Gets statically known system info. Pointers provided in *info + * must be statically allocated. + * Can be called at any time, even before retro_init(). */ +void retro_get_system_info(struct retro_system_info *info); + +/* Gets information about system audio/video timings and geometry. + * Can be called only after retro_load_game() has successfully completed. + * NOTE: The implementation of this function might not initialize every + * variable if needed. + * E.g. geom.aspect_ratio might not be initialized if core doesn't + * desire a particular aspect ratio. */ +void retro_get_system_av_info(struct retro_system_av_info *info); + +/* Sets device to be used for player 'port'. + * By default, RETRO_DEVICE_JOYPAD is assumed to be plugged into all + * available ports. + * Setting a particular device type is not a guarantee that libretro cores + * will only poll input based on that particular device type. It is only a + * hint to the libretro core when a core cannot automatically detect the + * appropriate input device type on its own. It is also relevant when a + * core can change its behavior depending on device type. */ +void retro_set_controller_port_device(unsigned port, unsigned device); + +/* Resets the current game. */ +void retro_reset(void); + +/* Runs the game for one video frame. + * During retro_run(), input_poll callback must be called at least once. + * + * If a frame is not rendered for reasons where a game "dropped" a frame, + * this still counts as a frame, and retro_run() should explicitly dupe + * a frame if GET_CAN_DUPE returns true. + * In this case, the video callback can take a NULL argument for data. + */ +void retro_run(void); + +/* Returns the amount of data the implementation requires to serialize + * internal state (save states). + * Between calls to retro_load_game() and retro_unload_game(), the + * returned size is never allowed to be larger than a previous returned + * value, to ensure that the frontend can allocate a save state buffer once. + */ +size_t retro_serialize_size(void); + +/* Serializes internal state. If failed, or size is lower than + * retro_serialize_size(), it should return false, true otherwise. */ +bool retro_serialize(void *data, size_t size); +bool retro_unserialize(const void *data, size_t size); + +void retro_cheat_reset(void); +void retro_cheat_set(unsigned index, bool enabled, const char *code); + +/* Loads a game. */ +bool retro_load_game(const struct retro_game_info *game); + +/* Loads a "special" kind of game. Should not be used, + * except in extreme cases. */ +bool retro_load_game_special( + unsigned game_type, + const struct retro_game_info *info, size_t num_info +); + +/* Unloads a currently loaded game. */ +void retro_unload_game(void); + +/* Gets region of game. */ +unsigned retro_get_region(void); + +/* Gets region of memory. */ +void *retro_get_memory_data(unsigned id); +size_t retro_get_memory_size(unsigned id); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/libretro/platform.c b/libretro/platform.c new file mode 100644 index 0000000..9db2d41 --- /dev/null +++ b/libretro/platform.c @@ -0,0 +1,389 @@ +/* + * platform.c - platform interface implementation for libretro + * + * Copyright (C) 2010 Atari800 development team (see DOC/CREDITS) + * + * This file is part of the Atari800 emulator project which emulates + * the Atari 400, 800, 800XL, 130XE, and 5200 8-bit computers. + * + * Atari800 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 Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * Atari800 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 Atari800; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA +*/ +/* Atari800 includes */ +#include "atari.h" +#include "input.h" +#include "log.h" +#include "monitor.h" +#include "platform.h" +#include "sound.h" +#include "videomode.h" +#include "cpu.h" +#include "devices.h" +#include "akey.h" +#include "pokeysnd.h" +#include "sound.h" +#include "screen.h" +#include "colours.h" + +extern char Key_Sate[512]; + +#include "libretro-core.h" +#include "libretro.h" +#include "retroscreen.h" + +extern int UI_is_active; + +static int swap_joysticks = FALSE; +int PLATFORM_kbd_joy_0_enabled = TRUE; /* enabled by default, doesn't hurt */ +int PLATFORM_kbd_joy_1_enabled = FALSE; /* disabled, would steal normal keys */ +extern unsigned char MXjoy[2]; // joy +extern int retro_sound_finalized; + +static UWORD *palette = NULL; + +int skel_main(int argc, char **argv) +{ + + /* initialise Atari800 core */ + if (!Atari800_Initialise(&argc, argv)){ + printf("Failed to initialise!\n"); + return 3; + } + + retro_sound_finalized=1; + + printf("First retrun to main thread!\n"); + co_switch(mainThread); + + /* main loop */ + for (;;) { + INPUT_key_code = PLATFORM_Keyboard(); + //SDL_INPUT_Mouse(); + Atari800_Frame(); + if (Atari800_display_screen) + PLATFORM_DisplayScreen(); + + } +} + + +int PLATFORM_Initialise(int *argc, char *argv[]) +{ + + Log_print("Core init"); + + retro_InitGraphics(); + + Devices_enable_h_patch = FALSE; + INPUT_direct_mouse = TRUE; + + return TRUE; +} + +int PLATFORM_Exit(int run_monitor) +{ + if (CPU_cim_encountered) { + Log_print("CIM encountered"); + return TRUE; + } + + Log_print("Core_exit"); + + retro_ExitGraphics(); + + return FALSE; +} + +int PLATFORM_Keyboard(void) +{ + + /* OPTION / SELECT / START keys */ + INPUT_key_consol = INPUT_CONSOL_NONE; + if (Key_Sate[RETROK_F2]) + INPUT_key_consol &= (~INPUT_CONSOL_OPTION); + if (Key_Sate[RETROK_F3]) + INPUT_key_consol &= (~INPUT_CONSOL_SELECT); + if (Key_Sate[RETROK_F4]) + INPUT_key_consol &= (~INPUT_CONSOL_START); + + if (Key_Sate[RETROK_SPACE]) + return AKEY_SPACE; + + if (Key_Sate[RETROK_F1]) + return AKEY_UI; + +if (Key_Sate[RETROK_LEFT])return AKEY_LEFT; +if (Key_Sate[RETROK_RIGHT])return AKEY_RIGHT; +if (Key_Sate[RETROK_UP])return AKEY_UP; +if (Key_Sate[RETROK_DOWN])return AKEY_DOWN; +if (Key_Sate[RETROK_RETURN])return AKEY_RETURN; +if (Key_Sate[RETROK_ESCAPE])return AKEY_ESCAPE; +/* + if (UI_is_active){ +printf("ui....\n"); + if (MXjoy[0]&0x04) + return AKEY_LEFT; + if (MXjoy[0]&0x08) + return AKEY_RIGHT; + if (MXjoy[0]&0x01) + return AKEY_UP; + if (MXjoy[0]&0x02) + return AKEY_DOWN; + if (MXjoy[0]&0x80) + return AKEY_RETURN; + if (MXjoy[0]&0x40) + return AKEY_ESCAPE; + } +*/ + + return AKEY_NONE; + +} + +/* +int PLATFORM_GetRawKey(void) +{ + + input_poll_cb(); + + for(i=0;i<320;i++) + Key_Sate[i]=input_state_cb(0, RETRO_DEVICE_KEYBOARD, 0,i) ? 0x80: 0; + +} +*/ + +void PLATFORM_DisplayScreen(void) +{ + retro_Render(); +} + +double PLATFORM_Time(void) +{ + return GetTicks()/1000 ;//* 1e-3; +} + +void PLATFORM_PaletteUpdate(void) +{ + retro_PaletteUpdate(); +} + +static void get_platform_PORT(unsigned char *s0, unsigned char *s1) +{ + int stick0, stick1; + stick0 = stick1 = INPUT_STICK_CENTRE; + + if (PLATFORM_kbd_joy_0_enabled) { + if (MXjoy[0]&0x04) + stick0 &= INPUT_STICK_LEFT; + if (MXjoy[0]&0x08) + stick0 &= INPUT_STICK_RIGHT; + if (MXjoy[0]&0x01) + stick0 &= INPUT_STICK_FORWARD; + if (MXjoy[0]&0x02) + stick0 &= INPUT_STICK_BACK; + } + if (PLATFORM_kbd_joy_1_enabled) { + if (MXjoy[1]&0x04) + stick1 &= INPUT_STICK_LEFT; + if (MXjoy[1]&0x08) + stick1 &= INPUT_STICK_RIGHT; + if (MXjoy[1]&0x01) + stick1 &= INPUT_STICK_FORWARD; + if (MXjoy[1]&0x02) + stick1 &= INPUT_STICK_BACK; + } + + if (swap_joysticks) { + *s1 = stick0; + *s0 = stick1; + } + else { + *s0 = stick0; + *s1 = stick1; + } + + } + +static void get_platform_TRIG(unsigned char *t0, unsigned char *t1) +{ + int trig0, trig1; + trig0 = trig1 = 1; + + if (PLATFORM_kbd_joy_0_enabled) { + //trig0 = !MXjoy[0]&0x80; + trig0 = MXjoy[0]&0x80?0:1; + } + + if (PLATFORM_kbd_joy_1_enabled) { + //trig1 = !MXjoy[1]&0x80; + trig1 = MXjoy[1]&0x80?0:1; + } + + if (swap_joysticks) { + *t1 = trig0; + *t0 = trig1; + } + else { + *t0 = trig0; + *t1 = trig1; + } + +} + +int PLATFORM_PORT(int num) +{ + if (num == 0) { + UBYTE a, b; + //update_SDL_joysticks(); +//printf("ffff %d\n",MXjoy[0]) ; + get_platform_PORT(&a, &b); + return (b << 4) | (a & 0x0f); + } + + return 0xff;//(Android_PortStatus >> (num << 3)) & 0xFF; +} + +int PLATFORM_TRIG(int num) +{ + UBYTE a, b; + get_platform_TRIG(&a, &b); +//printf("ffff 0x%x: %d %d\n",MXjoy[0],a,b) ; + switch (num) { + case 0: + return a; + case 1: + return b; + default: + break; + } + + return 0x01;//(Android_TrigStatus >> num) & 0x1; +} + + +///////////////////////////////////////////////////////////// +// SOUND +///////////////////////////////////////////////////////////// + + +int PLATFORM_SoundSetup(Sound_setup_t *setup) +{ + //force 16 bit stereo sound at 44100 + setup->freq=44100; + setup->sample_size=2; + setup->channels=2; + setup->buffer_ms=20; + + return TRUE; +} + +void PLATFORM_SoundExit(void) +{ + +} + +void PLATFORM_SoundPause(void) +{ + +} + +void PLATFORM_SoundContinue(void) +{ + +} + +void PLATFORM_SoundLock(void) +{ + +} + +void PLATFORM_SoundUnlock(void) +{ + +} + +///////////////////////////////////////////////////////////// +// VIDEO +///////////////////////////////////////////////////////////// + + +void retro_PaletteUpdate(void) +{ + int i; + + if (!palette) { + if ( !(palette = malloc(256 * sizeof(UWORD))) ) { + Log_print("Cannot allocate memory for palette conversion."); + return; + } + } + memset(palette, 0, 256 * sizeof(UWORD)); + + for (i = 0; i < 256; i++){ + + palette[i] = ((Colours_table[i] & 0x00f80000) >> 8) | + ((Colours_table[i] & 0x0000fc00) >> 5) | + ((Colours_table[i] & 0x000000f8) >> 3); + + } + + /* force full redraw */ + Screen_EntireDirty(); +} + +int retro_InitGraphics(void) +{ + + /* Initialize palette */ + retro_PaletteUpdate(); + + return TRUE; +} + +void retro_Render(void) +{ + int x, y; + UBYTE *src, *src_line; + UWORD *dst, *dst_line; + + src_line = ((UBYTE *) Screen_atari) + 24; + dst_line = Retro_Screen; + + for (y = 0; y < 240; y++) { + + src = src_line; + dst = dst_line; + + for (x = 0; x < 336; x += 8) { + + *dst++ = palette[*src++]; *dst++ = palette[*src++]; + *dst++ = palette[*src++]; *dst++ = palette[*src++]; + *dst++ = palette[*src++]; *dst++ = palette[*src++]; + *dst++ = palette[*src++]; *dst++ = palette[*src++]; + } + + src_line += 384; + dst_line += 336; + } +} + + +void retro_ExitGraphics(void) +{ + + if (palette) + free(palette); + palette = NULL; +} + diff --git a/libretro/retroscreen.h b/libretro/retroscreen.h new file mode 100644 index 0000000..dd9e063 --- /dev/null +++ b/libretro/retroscreen.h @@ -0,0 +1,10 @@ +#ifndef RETROSCREEN_H +#define RETROSCREEN_H 1 + +extern int CROP_WIDTH; +extern int CROP_HEIGHT; +extern int VIRTUAL_WIDTH; +extern int retrow ; +extern int retroh ; + +#endif diff --git a/libretro/vkbd.c b/libretro/vkbd.c new file mode 100644 index 0000000..3e0fbe5 --- /dev/null +++ b/libretro/vkbd.c @@ -0,0 +1,54 @@ + +#include "libretro.h" + +#include "retroscreen.h" +#include "libretro-core.h" +#include "vkbd_def.h" +#include "graph.h" + +extern int NPAGE; +extern int KCOL; +extern int BKGCOLOR; +extern int SHIFTON; + +void virtual_kdb(char *buffer,int vx,int vy) +{ + + int x, y, page; + unsigned coul; + +#if defined PITCH && PITCH == 4 +unsigned *pix=(unsigned*)buffer; +#else +unsigned short *pix=(unsigned short *)buffer; +#endif + + page = (NPAGE == -1) ? 0 : 5*NPLGN; + coul = RGB565(28, 28, 31); + BKGCOLOR = (KCOL>0?0xFF808080:0); + + + for(x=0;x" ,0x37}, + { " /" ," ?" ,0x36}, + { " \\"," \\" ,0x26}, + { "SHFT" ,"SHFT" ,0x25}, + + { "PG2","PG2" ,-2}, //40+8 + { "TAB","TAB" ,0x54}, + { "CPSL" ,"CPSL" ,0x86}, + { "RET" ,"RET" ,0x22}, + { "DEL" ,"DEL" ,0x97}, + { "CTRL" ,"CTRL" ,0x27}, + { "CLR" ,"CLR" , 0x20}, + { "Spc" ,"Spc",0x57}, + { "COPY" ,"COPY" ,0x11}, + { " ." ," .",0x07}, + { "F0" ,"F0" ,0x17}, + { "Ent" ,"Ent",0x06}, + + + { "ESC" ,"ESC" ,0x82 },//50+10 + { " 1" ," !" , 0x80 }, + { " 2" ," \"" ,0x81 }, + { " 3" ," #" ,0x71 }, + { " 4" ," $" ,0x70 }, + { " 5" ," %" ,0x61 }, + { " 6" ," &" ,0x60 }, + { " 7" ," \'" ,0x51 }, + { " 8" ," (" ,0x50 }, + { " 9" ," )" ,0x41 }, + { " 0" ," _" ,0x40 }, + { " ^" ,"Pnd" ,0x30 }, + + { " F7" ," F7" ,0x12}, //60+12 + { " F8" ," F8" ,0x13}, + { " F9" ," F9" ,0x03}, + { " F0" ," F0" ,0x17}, + { " t" ," T" ,0x63}, + { " /\\" ," /\\" ,0x00}, + { " u" ," U" ,0x52}, + { " i" ," I" ,0x43}, + { " o" ," O" ,0x42}, + { " p" ," P" ,0x33}, + { " @" ," |" ,0x32}, + { " [" ," [" ,0x21}, + + { " F4" ," F4" ,0x24}, //70+14 + { " F5" ," F5" ,0x14}, + { " F6" ," F6" ,0x04}, + { " ." ," ." ,0x07}, + { " <-" ," <-" ,0x10}, + { "COPY" ,"COPY" ,0x11}, + { " ->" ," ->" ,0x01}, + { " k" ," K" ,0x45}, + { " l" ," L" ,0x44}, + { " :" ," *" ,0x35}, + { " ;" ," +" ,0x34}, + { " ]" ," ]" ,0x23}, + + { " F1" ," F1" ,0x15},//80+16 + { " F2" ," F2" ,0x16}, + { " F3" ," F3" ,0x05}, + { "Ent" ,"Ent" ,0x06}, + { " b" ," B" ,0x66}, + { " \\/" ," \\/" ,0x02}, + { " m"," M" ,0x46}, + { " ,"," <" ,0x47}, + { " ."," >" ,0x37}, + { "TAPE" ,"TAPE" ,-8}, + { "EXIT","EXIT" ,-6}, + { "SNA" ,"SNA" ,-7}, + + + { "PG1","PG1" ,-2},//90+18 + { "DSK","DSK" ,-5}, + { "GUI","GUI" ,-13}, + { "COL" ,"COL",-3}, + { "CTRL" ,"CTRL" ,0x27}, + { "SPC" ,"SPC" ,0x57}, + { "SHFT" ,"SHFT" ,0x25}, + { "ESC","ESC",0x82}, + { "CLR" ,"CLR",0x20}, + { "DEL" ,"DEL",0x97}, + { "Ent" ,"Ent",0x22}, + { "KBD" ,"KBD",-4}, + +} ; + + +#endif diff --git a/link.T b/link.T new file mode 100755 index 0000000..b0c262d --- /dev/null +++ b/link.T @@ -0,0 +1,5 @@ +{ + global: retro_*; + local: *; +}; +