[picodrive.git] / platform / linux / io.c

/*
 * PicoDrive
 * (C) notaz, 2007-2010
 *
 * This work is licensed under the terms of MAME license.
 * See COPYING file in the top-level directory.
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "../libpicofe/menu.h"
#include "../libpicofe/input.h"
#include "../common/emu.h"
#include "../common/input_pico.h"
#include "version.h"

#include "log_io.h"

int current_keys;

#ifdef FBDEV

#include "fbdev.h"

#else

#include <pthread.h>
#include <semaphore.h>

static int current_bpp = 16;
static int current_pal[256];
static const char *verstring = "PicoDrive " VERSION;
static int scr_changed = 0, scr_w = 320, scr_h = 240;

/* faking GP2X pad */
enum  { GP2X_UP=0x1,       GP2X_LEFT=0x4,       GP2X_DOWN=0x10,  GP2X_RIGHT=0x40,
        GP2X_START=1<<8,   GP2X_SELECT=1<<9,    GP2X_L=1<<10,    GP2X_R=1<<11,
        GP2X_A=1<<12,      GP2X_B=1<<13,        GP2X_X=1<<14,    GP2X_Y=1<<15,
        GP2X_VOL_UP=1<<23, GP2X_VOL_DOWN=1<<22, GP2X_PUSH=1<<27 };

static void key_press_event(int keycode)
{
	switch (keycode)
	{
		case 111:
		case 0x62: current_keys |= GP2X_UP;    break;
		case 116:
		case 0x68: current_keys |= GP2X_DOWN;  break;
		case 113:
		case 0x64: current_keys |= GP2X_LEFT;  break;
		case 114:
		case 0x66: current_keys |= GP2X_RIGHT; break;
		case 0x24: current_keys |= GP2X_START; break; // enter
		case 0x23: current_keys |= GP2X_SELECT;break; // ]
		case 0x34: current_keys |= GP2X_A;     break; // z
		case 0x35: current_keys |= GP2X_X;     break; // x
		case 0x36: current_keys |= GP2X_B;     break; // c
		case 0x37: current_keys |= GP2X_Y;     break; // v
		case 0x27: current_keys |= GP2X_L;     break; // s
		case 0x28: current_keys |= GP2X_R;     break; // d
		case 0x29: current_keys |= GP2X_PUSH;  break; // f
		case 0x18: current_keys |= GP2X_VOL_DOWN;break; // q
		case 0x19: current_keys |= GP2X_VOL_UP;break; // w
		case 0x2d: log_io_clear(); break; // k
		case 0x2e: log_io_dump();  break; // l
		case 0x17: { // tab
			extern int PicoReset(void);
			PicoReset();
			break;
		}
	}
}

static void key_release_event(int keycode)
{
	switch (keycode)
	{
		case 111:
		case 0x62: current_keys &= ~GP2X_UP;    break;
		case 116:
		case 0x68: current_keys &= ~GP2X_DOWN;  break;
		case 113:
		case 0x64: current_keys &= ~GP2X_LEFT;  break;
		case 114:
		case 0x66: current_keys &= ~GP2X_RIGHT; break;
		case 0x24: current_keys &= ~GP2X_START; break; // enter
		case 0x23: current_keys &= ~GP2X_SELECT;break; // ]
		case 0x34: current_keys &= ~GP2X_A;     break; // z
		case 0x35: current_keys &= ~GP2X_X;     break; // x
		case 0x36: current_keys &= ~GP2X_B;     break; // c
		case 0x37: current_keys &= ~GP2X_Y;     break; // v
		case 0x27: current_keys &= ~GP2X_L;     break; // s
		case 0x28: current_keys &= ~GP2X_R;     break; // d
		case 0x29: current_keys &= ~GP2X_PUSH;  break; // f
		case 0x18: current_keys &= ~GP2X_VOL_DOWN;break; // q
		case 0x19: current_keys &= ~GP2X_VOL_UP;break; // w
	}
}

/* --- */

#include <X11/Xlib.h>
#include <X11/Xutil.h>

static Display *xlib_display;
static Window xlib_window;
static XImage *ximage;

static void ximage_realloc(Display *display, Visual *visual)
{
	void *xlib_screen;

	XLockDisplay(xlib_display);

	if (ximage != NULL)
		XDestroyImage(ximage);
	ximage = NULL;

	xlib_screen = calloc(scr_w * scr_h, 4);
	if (xlib_screen != NULL)
		ximage = XCreateImage(display, visual, 24, ZPixmap, 0,
				xlib_screen, scr_w, scr_h, 32, 0);
	if (ximage == NULL)
		fprintf(stderr, "failed to alloc ximage\n");

	XUnlockDisplay(xlib_display);
}

static void xlib_update(void)
{
	Status xstatus;

	XLockDisplay(xlib_display);

	xstatus = XPutImage(xlib_display, xlib_window, DefaultGC(xlib_display, 0), ximage,
		0, 0, 0, 0, g_screen_width, g_screen_height);
	if (xstatus != 0)
		fprintf(stderr, "XPutImage %d\n", xstatus);

	XUnlockDisplay(xlib_display);
}

static void *xlib_threadf(void *targ)
{
	unsigned int width, height, display_width, display_height;
	sem_t *sem = targ;
	XTextProperty windowName;
	Window win;
	XEvent report;
	Display *display;
	Visual *visual;
	int screen;

	XInitThreads();

	xlib_display = display = XOpenDisplay(NULL);
	if (display == NULL)
	{
		fprintf(stderr, "cannot connect to X server %s\n",
				XDisplayName(NULL));
		sem_post(sem);
		return NULL;
	}

	visual = DefaultVisual(display, 0);
	if (visual->class != TrueColor)
	{
		fprintf(stderr, "cannot handle non true color visual\n");
		XCloseDisplay(display);
		sem_post(sem);
		return NULL;
	}

	printf("X vendor: %s, rel: %d, display: %s, protocol ver: %d.%d\n", ServerVendor(display),
		VendorRelease(display), DisplayString(display), ProtocolVersion(display),
		ProtocolRevision(display));

	screen = DefaultScreen(display);

	ximage_realloc(display, visual);
	sem_post(sem);

	display_width = DisplayWidth(display, screen);
	display_height = DisplayHeight(display, screen);

	xlib_window = win = XCreateSimpleWindow(display,
			RootWindow(display, screen),
			display_width / 2 - scr_w / 2,
			display_height / 2 - scr_h / 2,
			scr_w + 2, scr_h + 2, 1,
			BlackPixel(display, screen),
			BlackPixel(display, screen));

	XStringListToTextProperty((char **)&verstring, 1, &windowName);
	XSetWMName(display, win, &windowName);

	XSelectInput(display, win, ExposureMask |
			KeyPressMask | KeyReleaseMask |
			StructureNotifyMask);

	XMapWindow(display, win);

	while (1)
	{
		XNextEvent(display, &report);
		switch (report.type)
		{
			case Expose:
				while (XCheckTypedEvent(display, Expose, &report))
					;
				xlib_update();
				break;

			case ConfigureNotify:
				width = report.xconfigure.width;
				height = report.xconfigure.height;
				if (scr_w != width - 2 || scr_h != height - 2) {
					scr_w = width - 2;
					scr_h = height - 2;
					scr_changed = 1;
				}
				break;

			case ButtonPress:
				break;

			case KeyPress:
				key_press_event(report.xkey.keycode);
				break;

			case KeyRelease:
				key_release_event(report.xkey.keycode);
				break;

			default:
				break;
		}
	}
}

static void xlib_init(void)
{
	pthread_t x_thread;
	sem_t xlib_sem;

	sem_init(&xlib_sem, 0, 0);

	pthread_create(&x_thread, NULL, xlib_threadf, &xlib_sem);
	pthread_detach(x_thread);

	sem_wait(&xlib_sem);
	sem_destroy(&xlib_sem);
}

/* --- */

static void realloc_screen(void)
{
	int size = scr_w * scr_h * 2;
	g_screen_width = g_menuscreen_w = scr_w;
	g_screen_height = g_menuscreen_h = scr_h;
	g_screen_ptr = realloc(g_screen_ptr, size);
	g_menubg_ptr = realloc(g_menubg_ptr, size);
	memset(g_screen_ptr, 0, size);
	memset(g_menubg_ptr, 0, size);
	scr_changed = 0;
}

void plat_video_flip(void)
{
	unsigned int *image;
	int pixel_count, i;

	if (ximage == NULL)
		return;

	pixel_count = g_screen_width * g_screen_height;
	image = (void *)ximage->data;

	if (current_bpp == 8)
	{
		unsigned char *pixels = g_screen_ptr;
		int pix;

		for (i = 0; i < pixel_count; i++)
		{
			pix = current_pal[pixels[i]];
			image[i] = pix;
		}
	}
	else
	{
		unsigned short *pixels = g_screen_ptr;

		for (i = 0; i < pixel_count; i++)
		{
			/*  in:           rrrr rggg gggb bbbb */
			/* out: rrrr r000 gggg gg00 bbbb b000 */
			image[i]  = (pixels[i] << 8) & 0xf80000;
			image[i] |= (pixels[i] << 5) & 0x00fc00;
			image[i] |= (pixels[i] << 3) & 0x0000f8;
		}
	}
	xlib_update();

	if (scr_changed) {
		realloc_screen();
		ximage_realloc(xlib_display, DefaultVisual(xlib_display, 0));

		// propagate new ponters to renderers
		plat_video_toggle_renderer(0, 0);
	}
}

void plat_video_wait_vsync(void)
{
}

#endif // !FBDEV

void plat_early_init(void)
{
}

void plat_init(void)
{
#ifdef FBDEV
	int ret, w, h;
	ret = vout_fbdev_init(&w, &h);
	if (ret != 0)
		exit(1);
	g_screen_width = g_menuscreen_w = w;
	g_screen_height = g_menuscreen_h = h;
	g_menubg_ptr = realloc(g_menubg_ptr, w * g_screen_height * 2);
#else
	realloc_screen();
	memset(g_screen_ptr, 0, g_screen_width * g_screen_height * 2);
	xlib_init();
#endif
}

void plat_finish(void)
{
#ifdef FBDEV
	vout_fbdev_finish();
#else
	free(g_screen_ptr);
#endif
}

/* misc */
int mp3_get_bitrate(void *f, int size)
{
	return 128;
}

void mp3_start_play(void *f, int pos)
{
}

void mp3_update(int *buffer, int length, int stereo)
{
}

#include <linux/input.h>

struct in_default_bind in_evdev_defbinds[] =
{
	/* MXYZ SACB RLDU */
	{ KEY_UP,	IN_BINDTYPE_PLAYER12, 0 },
	{ KEY_DOWN,	IN_BINDTYPE_PLAYER12, 1 },
	{ KEY_LEFT,	IN_BINDTYPE_PLAYER12, 2 },
	{ KEY_RIGHT,	IN_BINDTYPE_PLAYER12, 3 },
	{ KEY_S,	IN_BINDTYPE_PLAYER12, 4 },	/* B */
	{ KEY_D,	IN_BINDTYPE_PLAYER12, 5 },	/* C */
	{ KEY_A,	IN_BINDTYPE_PLAYER12, 6 },	/* A */
	{ KEY_ENTER,	IN_BINDTYPE_PLAYER12, 7 },
	{ KEY_BACKSLASH, IN_BINDTYPE_EMU, PEVB_MENU },
	{ 0, 0, 0 }
};
Commit	Line	Data
	1	/*
	2	* PicoDrive
	3	* (C) notaz, 2007-2010
	4	*
	5	* This work is licensed under the terms of MAME license.
	6	* See COPYING file in the top-level directory.
	7	*/
	8	#include <stdio.h>
	9	#include <stdlib.h>
	10	#include <string.h>
	11
	12	#include "../libpicofe/menu.h"
	13	#include "../libpicofe/input.h"
	14	#include "../common/emu.h"
	15	#include "../common/input_pico.h"
	16	#include "version.h"
	17
	18	#include "log_io.h"
	19
	20	int current_keys;
	21
	22	#ifdef FBDEV
	23
	24	#include "fbdev.h"
	25
	26	#else
	27
	28	#include <pthread.h>
	29	#include <semaphore.h>
	30
	31	static int current_bpp = 16;
	32	static int current_pal[256];
	33	static const char *verstring = "PicoDrive " VERSION;
	34	static int scr_changed = 0, scr_w = 320, scr_h = 240;
	35
	36	/* faking GP2X pad */
	37	enum { GP2X_UP=0x1, GP2X_LEFT=0x4, GP2X_DOWN=0x10, GP2X_RIGHT=0x40,
	38	GP2X_START=1<<8, GP2X_SELECT=1<<9, GP2X_L=1<<10, GP2X_R=1<<11,
	39	GP2X_A=1<<12, GP2X_B=1<<13, GP2X_X=1<<14, GP2X_Y=1<<15,
	40	GP2X_VOL_UP=1<<23, GP2X_VOL_DOWN=1<<22, GP2X_PUSH=1<<27 };
	41
	42	static void key_press_event(int keycode)
	43	{
	44	switch (keycode)
	45	{
	46	case 111:
	47	case 0x62: current_keys \|= GP2X_UP; break;
	48	case 116:
	49	case 0x68: current_keys \|= GP2X_DOWN; break;
	50	case 113:
	51	case 0x64: current_keys \|= GP2X_LEFT; break;
	52	case 114:
	53	case 0x66: current_keys \|= GP2X_RIGHT; break;
	54	case 0x24: current_keys \|= GP2X_START; break; // enter
	55	case 0x23: current_keys \|= GP2X_SELECT;break; // ]
	56	case 0x34: current_keys \|= GP2X_A; break; // z
	57	case 0x35: current_keys \|= GP2X_X; break; // x
	58	case 0x36: current_keys \|= GP2X_B; break; // c
	59	case 0x37: current_keys \|= GP2X_Y; break; // v
	60	case 0x27: current_keys \|= GP2X_L; break; // s
	61	case 0x28: current_keys \|= GP2X_R; break; // d
	62	case 0x29: current_keys \|= GP2X_PUSH; break; // f
	63	case 0x18: current_keys \|= GP2X_VOL_DOWN;break; // q
	64	case 0x19: current_keys \|= GP2X_VOL_UP;break; // w
	65	case 0x2d: log_io_clear(); break; // k
	66	case 0x2e: log_io_dump(); break; // l
	67	case 0x17: { // tab
	68	extern int PicoReset(void);
	69	PicoReset();
	70	break;
	71	}
	72	}
	73	}
	74
	75	static void key_release_event(int keycode)
	76	{
	77	switch (keycode)
	78	{
	79	case 111:
	80	case 0x62: current_keys &= ~GP2X_UP; break;
	81	case 116:
	82	case 0x68: current_keys &= ~GP2X_DOWN; break;
	83	case 113:
	84	case 0x64: current_keys &= ~GP2X_LEFT; break;
	85	case 114:
	86	case 0x66: current_keys &= ~GP2X_RIGHT; break;
	87	case 0x24: current_keys &= ~GP2X_START; break; // enter
	88	case 0x23: current_keys &= ~GP2X_SELECT;break; // ]
	89	case 0x34: current_keys &= ~GP2X_A; break; // z
	90	case 0x35: current_keys &= ~GP2X_X; break; // x
	91	case 0x36: current_keys &= ~GP2X_B; break; // c
	92	case 0x37: current_keys &= ~GP2X_Y; break; // v
	93	case 0x27: current_keys &= ~GP2X_L; break; // s
	94	case 0x28: current_keys &= ~GP2X_R; break; // d
	95	case 0x29: current_keys &= ~GP2X_PUSH; break; // f
	96	case 0x18: current_keys &= ~GP2X_VOL_DOWN;break; // q
	97	case 0x19: current_keys &= ~GP2X_VOL_UP;break; // w
	98	}
	99	}
	100
	101	/* --- */
	102
	103	#include <X11/Xlib.h>
	104	#include <X11/Xutil.h>
	105
	106	static Display *xlib_display;
	107	static Window xlib_window;
	108	static XImage *ximage;
	109
	110	static void ximage_realloc(Display display, Visual visual)
	111	{
	112	void *xlib_screen;
	113
	114	XLockDisplay(xlib_display);
	115
	116	if (ximage != NULL)
	117	XDestroyImage(ximage);
	118	ximage = NULL;
	119
	120	xlib_screen = calloc(scr_w * scr_h, 4);
	121	if (xlib_screen != NULL)
	122	ximage = XCreateImage(display, visual, 24, ZPixmap, 0,
	123	xlib_screen, scr_w, scr_h, 32, 0);
	124	if (ximage == NULL)
	125	fprintf(stderr, "failed to alloc ximage\n");
	126
	127	XUnlockDisplay(xlib_display);
	128	}
	129
	130	static void xlib_update(void)
	131	{
	132	Status xstatus;
	133
	134	XLockDisplay(xlib_display);
	135
	136	xstatus = XPutImage(xlib_display, xlib_window, DefaultGC(xlib_display, 0), ximage,
	137	0, 0, 0, 0, g_screen_width, g_screen_height);
	138	if (xstatus != 0)
	139	fprintf(stderr, "XPutImage %d\n", xstatus);
	140
	141	XUnlockDisplay(xlib_display);
	142	}
	143
	144	static void xlib_threadf(void targ)
	145	{
	146	unsigned int width, height, display_width, display_height;
	147	sem_t *sem = targ;
	148	XTextProperty windowName;
	149	Window win;
	150	XEvent report;
	151	Display *display;
	152	Visual *visual;
	153	int screen;
	154
	155	XInitThreads();
	156
	157	xlib_display = display = XOpenDisplay(NULL);
	158	if (display == NULL)
	159	{
	160	fprintf(stderr, "cannot connect to X server %s\n",
	161	XDisplayName(NULL));
	162	sem_post(sem);
	163	return NULL;
	164	}
	165
	166	visual = DefaultVisual(display, 0);
	167	if (visual->class != TrueColor)
	168	{
	169	fprintf(stderr, "cannot handle non true color visual\n");
	170	XCloseDisplay(display);
	171	sem_post(sem);
	172	return NULL;
	173	}
	174
	175	printf("X vendor: %s, rel: %d, display: %s, protocol ver: %d.%d\n", ServerVendor(display),
	176	VendorRelease(display), DisplayString(display), ProtocolVersion(display),
	177	ProtocolRevision(display));
	178
	179	screen = DefaultScreen(display);
	180
	181	ximage_realloc(display, visual);
	182	sem_post(sem);
	183
	184	display_width = DisplayWidth(display, screen);
	185	display_height = DisplayHeight(display, screen);
	186
	187	xlib_window = win = XCreateSimpleWindow(display,
	188	RootWindow(display, screen),
	189	display_width / 2 - scr_w / 2,
	190	display_height / 2 - scr_h / 2,
	191	scr_w + 2, scr_h + 2, 1,
	192	BlackPixel(display, screen),
	193	BlackPixel(display, screen));
	194
	195	XStringListToTextProperty((char **)&verstring, 1, &windowName);
	196	XSetWMName(display, win, &windowName);
	197
	198	XSelectInput(display, win, ExposureMask \|
	199	KeyPressMask \| KeyReleaseMask \|
	200	StructureNotifyMask);
	201
	202	XMapWindow(display, win);
	203
	204	while (1)
	205	{
	206	XNextEvent(display, &report);
	207	switch (report.type)
	208	{
	209	case Expose:
	210	while (XCheckTypedEvent(display, Expose, &report))
	211	;
	212	xlib_update();
	213	break;
	214
	215	case ConfigureNotify:
	216	width = report.xconfigure.width;
	217	height = report.xconfigure.height;
	218	if (scr_w != width - 2 \|\| scr_h != height - 2) {
	219	scr_w = width - 2;
	220	scr_h = height - 2;
	221	scr_changed = 1;
	222	}
	223	break;
	224
	225	case ButtonPress:
	226	break;
	227
	228	case KeyPress:
	229	key_press_event(report.xkey.keycode);
	230	break;
	231
	232	case KeyRelease:
	233	key_release_event(report.xkey.keycode);
	234	break;
	235
	236	default:
	237	break;
	238	}
	239	}
	240	}
	241
	242	static void xlib_init(void)
	243	{
	244	pthread_t x_thread;
	245	sem_t xlib_sem;
	246
	247	sem_init(&xlib_sem, 0, 0);
	248
	249	pthread_create(&x_thread, NULL, xlib_threadf, &xlib_sem);
	250	pthread_detach(x_thread);
	251
	252	sem_wait(&xlib_sem);
	253	sem_destroy(&xlib_sem);
	254	}
	255
	256	/* --- */
	257
	258	static void realloc_screen(void)
	259	{
	260	int size = scr_w * scr_h * 2;
	261	g_screen_width = g_menuscreen_w = scr_w;
	262	g_screen_height = g_menuscreen_h = scr_h;
	263	g_screen_ptr = realloc(g_screen_ptr, size);
	264	g_menubg_ptr = realloc(g_menubg_ptr, size);
	265	memset(g_screen_ptr, 0, size);
	266	memset(g_menubg_ptr, 0, size);
	267	scr_changed = 0;
	268	}
	269
	270	void plat_video_flip(void)
	271	{
	272	unsigned int *image;
	273	int pixel_count, i;
	274
	275	if (ximage == NULL)
	276	return;
	277
	278	pixel_count = g_screen_width * g_screen_height;
	279	image = (void *)ximage->data;
	280
	281	if (current_bpp == 8)
	282	{
	283	unsigned char *pixels = g_screen_ptr;
	284	int pix;
	285
	286	for (i = 0; i < pixel_count; i++)
	287	{
	288	pix = current_pal[pixels[i]];
	289	image[i] = pix;
	290	}
	291	}
	292	else
	293	{
	294	unsigned short *pixels = g_screen_ptr;
	295
	296	for (i = 0; i < pixel_count; i++)
	297	{
	298	/* in: rrrr rggg gggb bbbb */
	299	/* out: rrrr r000 gggg gg00 bbbb b000 */
	300	image[i] = (pixels[i] << 8) & 0xf80000;
	301	image[i] \|= (pixels[i] << 5) & 0x00fc00;
	302	image[i] \|= (pixels[i] << 3) & 0x0000f8;
	303	}
	304	}
	305	xlib_update();
	306
	307	if (scr_changed) {
	308	realloc_screen();
	309	ximage_realloc(xlib_display, DefaultVisual(xlib_display, 0));
	310
	311	// propagate new ponters to renderers
	312	plat_video_toggle_renderer(0, 0);
	313	}
	314	}
	315
	316	void plat_video_wait_vsync(void)
	317	{
	318	}
	319
	320	#endif // !FBDEV
	321
	322	void plat_early_init(void)
	323	{
	324	}
	325
	326	void plat_init(void)
	327	{
	328	#ifdef FBDEV
	329	int ret, w, h;
	330	ret = vout_fbdev_init(&w, &h);
	331	if (ret != 0)
	332	exit(1);
	333	g_screen_width = g_menuscreen_w = w;
	334	g_screen_height = g_menuscreen_h = h;
	335	g_menubg_ptr = realloc(g_menubg_ptr, w * g_screen_height * 2);
	336	#else
	337	realloc_screen();
	338	memset(g_screen_ptr, 0, g_screen_width * g_screen_height * 2);
	339	xlib_init();
	340	#endif
	341	}
	342
	343	void plat_finish(void)
	344	{
	345	#ifdef FBDEV
	346	vout_fbdev_finish();
	347	#else
	348	free(g_screen_ptr);
	349	#endif
	350	}
	351
	352	/* misc */
	353	int mp3_get_bitrate(void *f, int size)
	354	{
	355	return 128;
	356	}
	357
	358	void mp3_start_play(void *f, int pos)
	359	{
	360	}
	361
	362	void mp3_update(int *buffer, int length, int stereo)
	363	{
	364	}
	365
	366	#include <linux/input.h>
	367
	368	struct in_default_bind in_evdev_defbinds[] =
	369	{
	370	/* MXYZ SACB RLDU */
	371	{ KEY_UP, IN_BINDTYPE_PLAYER12, 0 },
	372	{ KEY_DOWN, IN_BINDTYPE_PLAYER12, 1 },
	373	{ KEY_LEFT, IN_BINDTYPE_PLAYER12, 2 },
	374	{ KEY_RIGHT, IN_BINDTYPE_PLAYER12, 3 },
	375	{ KEY_S, IN_BINDTYPE_PLAYER12, 4 }, /* B */
	376	{ KEY_D, IN_BINDTYPE_PLAYER12, 5 }, /* C */
	377	{ KEY_A, IN_BINDTYPE_PLAYER12, 6 }, /* A */
	378	{ KEY_ENTER, IN_BINDTYPE_PLAYER12, 7 },
	379	{ KEY_BACKSLASH, IN_BINDTYPE_EMU, PEVB_MENU },
	380	{ 0, 0, 0 }
	381	};
	382