[libpicofe.git] / linux / io.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <pthread.h>
#include <semaphore.h>

#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

#include "../common/emu.h"
#include "../common/menu.h"
#include "sndout_oss.h"
#include "version.h"

#include "log_io.h"

unsigned long current_keys = 0;
static int current_bpp = 16;
static int current_pal[256];
static const char *verstring = "PicoDrive " VERSION;
static int scr_changed = 0, scr_w = SCREEN_WIDTH, scr_h = SCREEN_HEIGHT;

/* ifndef is for qemu build without video out */
#ifndef ARM

/* 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);
}
#endif // !ARM

/* --- */

static void realloc_screen(void)
{
	void *old = g_screen_ptr;
	g_screen_width = scr_w;
	g_screen_height = scr_h;
	g_screen_ptr = calloc(g_screen_width * g_screen_height * 2, 1);
	free(old);
	scr_changed = 0;
}

void update_screen(void)
{
#ifndef ARM
	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));
	}
#endif
}

void plat_early_init(void)
{
}

void plat_init(void)
{
	realloc_screen();
	memset(g_screen_ptr, 0, g_screen_width * g_screen_height * 2);

	// snd
	sndout_oss_init();

#ifndef ARM
	xlib_init();
#endif
}

void plat_finish(void)
{
	free(g_screen_ptr);
	sndout_oss_exit();
}

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

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

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

/* lprintf */
void lprintf(const char *fmt, ...)
{
	va_list vl;

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