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

/*
 * (C) Gražvydas "notaz" Ignotas, 2009-2012
 *
 * This work is licensed under the terms of any of these licenses
 * (at your option):
 *  - GNU GPL, version 2 or later.
 *  - GNU LGPL, version 2.1 or later.
 * See the COPYING file in the top-level directory.
 */

#include <stdio.h>
#include <string.h>
#include <pthread.h>

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

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <sys/ioctl.h>
#include <termios.h>
#include <linux/kd.h>

#define PFX "xenv: "

#define FPTR(f) typeof(f) * p##f
#define FPTR_LINK(xf, dl, f) { \
	xf.p##f = dlsym(dl, #f); \
	if (xf.p##f == NULL) { \
		fprintf(stderr, "missing symbol: %s\n", #f); \
		goto fail; \
	} \
}

struct xstuff {
	Display *display;
	FPTR(XCreateBitmapFromData);
	FPTR(XCreatePixmapCursor);
	FPTR(XFreePixmap);
	FPTR(XOpenDisplay);
	FPTR(XDisplayName);
	FPTR(XCloseDisplay);
	FPTR(XCreateSimpleWindow);
	FPTR(XChangeWindowAttributes);
	FPTR(XSelectInput);
	FPTR(XMapWindow);
	FPTR(XNextEvent);
	FPTR(XCheckTypedEvent);
	FPTR(XUnmapWindow);
	FPTR(XGrabKeyboard);
	FPTR(XPending);
	FPTR(XLookupKeysym);
	FPTR(XkbSetDetectableAutoRepeat);
};

static struct xstuff g_xstuff;

static Cursor transparent_cursor(struct xstuff *xf, Display *display, Window win)
{
	Cursor cursor;
	Pixmap pix;
	XColor dummy;
	char d = 0;

	memset(&dummy, 0, sizeof(dummy));
	pix = xf->pXCreateBitmapFromData(display, win, &d, 1, 1);
	cursor = xf->pXCreatePixmapCursor(display, pix, pix,
			&dummy, &dummy, 0, 0);
	xf->pXFreePixmap(display, pix);
	return cursor;
}

static int x11h_init(void)
{
	unsigned int display_width, display_height;
	Display *display;
	XSetWindowAttributes attributes;
	Window win;
	Visual *visual;
	void *x11lib;
	int screen;

	memset(&g_xstuff, 0, sizeof(g_xstuff));
	x11lib = dlopen("libX11.so.6", RTLD_LAZY);
	if (x11lib == NULL) {
		fprintf(stderr, "libX11.so load failed:\n%s\n", dlerror());
		goto fail;
	}
	FPTR_LINK(g_xstuff, x11lib, XCreateBitmapFromData);
	FPTR_LINK(g_xstuff, x11lib, XCreatePixmapCursor);
	FPTR_LINK(g_xstuff, x11lib, XFreePixmap);
	FPTR_LINK(g_xstuff, x11lib, XOpenDisplay);
	FPTR_LINK(g_xstuff, x11lib, XDisplayName);
	FPTR_LINK(g_xstuff, x11lib, XCloseDisplay);
	FPTR_LINK(g_xstuff, x11lib, XCreateSimpleWindow);
	FPTR_LINK(g_xstuff, x11lib, XChangeWindowAttributes);
	FPTR_LINK(g_xstuff, x11lib, XSelectInput);
	FPTR_LINK(g_xstuff, x11lib, XMapWindow);
	FPTR_LINK(g_xstuff, x11lib, XNextEvent);
	FPTR_LINK(g_xstuff, x11lib, XCheckTypedEvent);
	FPTR_LINK(g_xstuff, x11lib, XUnmapWindow);
	FPTR_LINK(g_xstuff, x11lib, XGrabKeyboard);
	FPTR_LINK(g_xstuff, x11lib, XPending);
	FPTR_LINK(g_xstuff, x11lib, XLookupKeysym);
	FPTR_LINK(g_xstuff, x11lib, XkbSetDetectableAutoRepeat);

	//XInitThreads();

	g_xstuff.display = display = g_xstuff.pXOpenDisplay(NULL);
	if (display == NULL)
	{
		fprintf(stderr, "cannot connect to X server %s, X handling disabled.\n",
				g_xstuff.pXDisplayName(NULL));
		goto fail2;
	}

	visual = DefaultVisual(display, 0);
	if (visual->class != TrueColor)
		fprintf(stderr, PFX "warning: non true color visual\n");

	printf(PFX "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);

	display_width = DisplayWidth(display, screen);
	display_height = DisplayHeight(display, screen);
	printf(PFX "display is %dx%d\n", display_width, display_height);

	win = g_xstuff.pXCreateSimpleWindow(display,
			RootWindow(display, screen),
			0, 0, display_width, display_height, 0,
			BlackPixel(display, screen),
			BlackPixel(display, screen));

	attributes.override_redirect = True;
	attributes.cursor = transparent_cursor(&g_xstuff, display, win);
	g_xstuff.pXChangeWindowAttributes(display, win, CWOverrideRedirect | CWCursor, &attributes);

	g_xstuff.pXSelectInput(display, win, ExposureMask | FocusChangeMask | KeyPressMask
		| KeyReleaseMask | ButtonPressMask | ButtonReleaseMask | PointerMotionMask);
	g_xstuff.pXMapWindow(display, win);
	g_xstuff.pXGrabKeyboard(display, win, False, GrabModeAsync, GrabModeAsync, CurrentTime);
	g_xstuff.pXkbSetDetectableAutoRepeat(display, 1, NULL);
	// XSetIOErrorHandler

	return 0;
fail2:
	dlclose(x11lib);
fail:
	g_xstuff.display = NULL;
	fprintf(stderr, "x11 handling disabled.\n");
	return -1;
}

static void x11h_update(int (*key_cb)(void *cb_arg, int kc, int is_pressed),
			int (*mouseb_cb)(void *cb_arg, int x, int y, int button, int is_pressed),
			int (*mousem_cb)(void *cb_arg, int x, int y),
			void *cb_arg)
{
	XEvent evt;
	int keysym;

	while (g_xstuff.pXPending(g_xstuff.display))
	{
		g_xstuff.pXNextEvent(g_xstuff.display, &evt);
		switch (evt.type)
		{
		case Expose:
			while (g_xstuff.pXCheckTypedEvent(g_xstuff.display, Expose, &evt))
				;
			break;

		case KeyPress:
			keysym = g_xstuff.pXLookupKeysym(&evt.xkey, 0);
			if (key_cb != NULL)
				key_cb(cb_arg, keysym, 1);
			break;

		case KeyRelease:
			keysym = g_xstuff.pXLookupKeysym(&evt.xkey, 0);
			if (key_cb != NULL)
				key_cb(cb_arg, keysym, 0);
			break;

		case ButtonPress:
			if (mouseb_cb != NULL)
				mouseb_cb(cb_arg, evt.xbutton.x, evt.xbutton.y,
					  evt.xbutton.button, 1);
			break;

		case ButtonRelease:
			if (mouseb_cb != NULL)
				mouseb_cb(cb_arg, evt.xbutton.x, evt.xbutton.y,
					  evt.xbutton.button, 0);
			break;

		case MotionNotify:
			if (mousem_cb != NULL)
				mousem_cb(cb_arg, evt.xmotion.x, evt.xmotion.y);
			break;
		}
	}
}

static struct termios g_kbd_termios_saved;
static int g_kbdfd = -1;

static int tty_init(void)
{
	struct termios kbd_termios;
	int mode;

	g_kbdfd = open("/dev/tty", O_RDWR);
	if (g_kbdfd == -1) {
		perror(PFX "open /dev/tty");
		return -1;
	}

	if (ioctl(g_kbdfd, KDGETMODE, &mode) == -1) {
		perror(PFX "(not hiding FB): KDGETMODE");
		goto fail;
	}

	if (tcgetattr(g_kbdfd, &kbd_termios) == -1) {
		perror(PFX "tcgetattr");
		goto fail;
	}

	g_kbd_termios_saved = kbd_termios;
	kbd_termios.c_lflag &= ~(ICANON | ECHO); // | ISIG);
	kbd_termios.c_iflag &= ~(ISTRIP | IGNCR | ICRNL | INLCR | IXOFF | IXON);
	kbd_termios.c_cc[VMIN] = 0;
	kbd_termios.c_cc[VTIME] = 0;

	if (tcsetattr(g_kbdfd, TCSAFLUSH, &kbd_termios) == -1) {
		perror(PFX "tcsetattr");
		goto fail;
	}

	if (ioctl(g_kbdfd, KDSETMODE, KD_GRAPHICS) == -1) {
		perror(PFX "KDSETMODE KD_GRAPHICS");
		tcsetattr(g_kbdfd, TCSAFLUSH, &g_kbd_termios_saved);
		goto fail;
	}

	return 0;

fail:
	close(g_kbdfd);
	g_kbdfd = -1;
	return -1;
}

static void tty_end(void)
{
	if (g_kbdfd < 0)
		return;

	if (ioctl(g_kbdfd, KDSETMODE, KD_TEXT) == -1)
		perror(PFX "KDSETMODE KD_TEXT");

	if (tcsetattr(g_kbdfd, TCSAFLUSH, &g_kbd_termios_saved) == -1)
		perror(PFX "tcsetattr");

	close(g_kbdfd);
	g_kbdfd = -1;
}

int xenv_init(int *have_mouse_events)
{
	int have_mouse = 0;
	int ret;

	ret = x11h_init();
	if (ret == 0) {
		have_mouse = 1;
		goto out;
	}

	ret = tty_init();
	if (ret == 0)
		goto out;

	fprintf(stderr, PFX "error: both x11h_init and tty_init failed\n");
	ret = -1;
out:
	if (have_mouse_events != NULL)
		*have_mouse_events = have_mouse;
	return ret;
}

int xenv_update(int (*key_cb)(void *cb_arg, int kc, int is_pressed),
		int (*mouseb_cb)(void *cb_arg, int x, int y, int button, int is_pressed),
		int (*mousem_cb)(void *cb_arg, int x, int y),
		void *cb_arg)
{
	if (g_xstuff.display) {
		x11h_update(key_cb, mouseb_cb, mousem_cb, cb_arg);
		return 0;
	}

	// TODO: read tty?
	return -1;
}

void xenv_finish(void)
{
	// TODO: cleanup X?
	tty_end();
}
Commit	Line	Data
9f6bb3c7	1	/*
1a375014	2	* (C) Gražvydas "notaz" Ignotas, 2009-2012
9f6bb3c7	3	*
9c5a64a0	4	* This work is licensed under the terms of any of these licenses
	5	* (at your option):
	6	* - GNU GPL, version 2 or later.
	7	* - GNU LGPL, version 2.1 or later.
9f6bb3c7	8	* See the COPYING file in the top-level directory.
	9	*/
	10
e708403e	11	#include <stdio.h>
	12	#include <string.h>
	13	#include <pthread.h>
be672de7	14
e708403e	15	#include <dlfcn.h>
	16	#include <X11/Xlib.h>
	17	#include <X11/Xutil.h>
10ef62e3	18	#include <X11/XKBlib.h>
e708403e	19
be672de7	20	#include <sys/types.h>
	21	#include <sys/stat.h>
	22	#include <fcntl.h>
	23	#include <unistd.h>
	24	#include <sys/ioctl.h>
	25	#include <termios.h>
	26	#include <linux/kd.h>
	27
10ef62e3	28	#define PFX "xenv: "
be672de7	29
e708403e	30	#define FPTR(f) typeof(f) * p##f
	31	#define FPTR_LINK(xf, dl, f) { \
	32	xf.p##f = dlsym(dl, #f); \
	33	if (xf.p##f == NULL) { \
	34	fprintf(stderr, "missing symbol: %s\n", #f); \
	35	goto fail; \
	36	} \
	37	}
	38
10ef62e3	39	struct xstuff {
	40	Display *display;
	41	FPTR(XCreateBitmapFromData);
	42	FPTR(XCreatePixmapCursor);
	43	FPTR(XFreePixmap);
	44	FPTR(XOpenDisplay);
	45	FPTR(XDisplayName);
	46	FPTR(XCloseDisplay);
	47	FPTR(XCreateSimpleWindow);
	48	FPTR(XChangeWindowAttributes);
	49	FPTR(XSelectInput);
	50	FPTR(XMapWindow);
	51	FPTR(XNextEvent);
	52	FPTR(XCheckTypedEvent);
	53	FPTR(XUnmapWindow);
	54	FPTR(XGrabKeyboard);
	55	FPTR(XPending);
	56	FPTR(XLookupKeysym);
	57	FPTR(XkbSetDetectableAutoRepeat);
e708403e	58	};
e708403e	59
10ef62e3	60	static struct xstuff g_xstuff;
e708403e	61
10ef62e3	62	static Cursor transparent_cursor(struct xstuff xf, Display display, Window win)
e708403e	63	{
	64	Cursor cursor;
	65	Pixmap pix;
	66	XColor dummy;
	67	char d = 0;
	68
	69	memset(&dummy, 0, sizeof(dummy));
	70	pix = xf->pXCreateBitmapFromData(display, win, &d, 1, 1);
	71	cursor = xf->pXCreatePixmapCursor(display, pix, pix,
	72	&dummy, &dummy, 0, 0);
	73	xf->pXFreePixmap(display, pix);
	74	return cursor;
	75	}
	76
10ef62e3	77	static int x11h_init(void)
e708403e	78	{
e708403e	79	unsigned int display_width, display_height;
10ef62e3	80	Display *display;
e708403e	81	XSetWindowAttributes attributes;
e708403e	82	Window win;
e708403e	83	Visual *visual;
	84	void *x11lib;
	85	int screen;
	86
10ef62e3	87	memset(&g_xstuff, 0, sizeof(g_xstuff));
e708403e	88	x11lib = dlopen("libX11.so.6", RTLD_LAZY);
	89	if (x11lib == NULL) {
	90	fprintf(stderr, "libX11.so load failed:\n%s\n", dlerror());
	91	goto fail;
	92	}
10ef62e3	93	FPTR_LINK(g_xstuff, x11lib, XCreateBitmapFromData);
	94	FPTR_LINK(g_xstuff, x11lib, XCreatePixmapCursor);
	95	FPTR_LINK(g_xstuff, x11lib, XFreePixmap);
	96	FPTR_LINK(g_xstuff, x11lib, XOpenDisplay);
	97	FPTR_LINK(g_xstuff, x11lib, XDisplayName);
	98	FPTR_LINK(g_xstuff, x11lib, XCloseDisplay);
	99	FPTR_LINK(g_xstuff, x11lib, XCreateSimpleWindow);
	100	FPTR_LINK(g_xstuff, x11lib, XChangeWindowAttributes);
	101	FPTR_LINK(g_xstuff, x11lib, XSelectInput);
	102	FPTR_LINK(g_xstuff, x11lib, XMapWindow);
	103	FPTR_LINK(g_xstuff, x11lib, XNextEvent);
	104	FPTR_LINK(g_xstuff, x11lib, XCheckTypedEvent);
	105	FPTR_LINK(g_xstuff, x11lib, XUnmapWindow);
	106	FPTR_LINK(g_xstuff, x11lib, XGrabKeyboard);
	107	FPTR_LINK(g_xstuff, x11lib, XPending);
	108	FPTR_LINK(g_xstuff, x11lib, XLookupKeysym);
	109	FPTR_LINK(g_xstuff, x11lib, XkbSetDetectableAutoRepeat);
e708403e	110
	111	//XInitThreads();
	112
10ef62e3	113	g_xstuff.display = display = g_xstuff.pXOpenDisplay(NULL);
e708403e	114	if (display == NULL)
	115	{
	116	fprintf(stderr, "cannot connect to X server %s, X handling disabled.\n",
10ef62e3	117	g_xstuff.pXDisplayName(NULL));
e708403e	118	goto fail2;
	119	}
	120
	121	visual = DefaultVisual(display, 0);
	122	if (visual->class != TrueColor)
be672de7	123	fprintf(stderr, PFX "warning: non true color visual\n");
e708403e	124
be672de7	125	printf(PFX "X vendor: %s, rel: %d, display: %s, protocol ver: %d.%d\n", ServerVendor(display),
e708403e	126	VendorRelease(display), DisplayString(display), ProtocolVersion(display),
	127	ProtocolRevision(display));
	128
	129	screen = DefaultScreen(display);
	130
	131	display_width = DisplayWidth(display, screen);
	132	display_height = DisplayHeight(display, screen);
be672de7	133	printf(PFX "display is %dx%d\n", display_width, display_height);
e708403e	134
10ef62e3	135	win = g_xstuff.pXCreateSimpleWindow(display,
e708403e	136	RootWindow(display, screen),
	137	0, 0, display_width, display_height, 0,
	138	BlackPixel(display, screen),
	139	BlackPixel(display, screen));
	140
	141	attributes.override_redirect = True;
10ef62e3	142	attributes.cursor = transparent_cursor(&g_xstuff, display, win);
10ef62e3	143	g_xstuff.pXChangeWindowAttributes(display, win, CWOverrideRedirect \| CWCursor, &attributes);
e708403e	144
1a375014	145	g_xstuff.pXSelectInput(display, win, ExposureMask \| FocusChangeMask \| KeyPressMask
1a375014	146	\| KeyReleaseMask \| ButtonPressMask \| ButtonReleaseMask \| PointerMotionMask);
10ef62e3	147	g_xstuff.pXMapWindow(display, win);
	148	g_xstuff.pXGrabKeyboard(display, win, False, GrabModeAsync, GrabModeAsync, CurrentTime);
	149	g_xstuff.pXkbSetDetectableAutoRepeat(display, 1, NULL);
e708403e	150	// XSetIOErrorHandler
e708403e	151
10ef62e3	152	return 0;
	153	fail2:
	154	dlclose(x11lib);
	155	fail:
	156	g_xstuff.display = NULL;
	157	fprintf(stderr, "x11 handling disabled.\n");
	158	return -1;
	159	}
	160
1a375014	161	static void x11h_update(int (key_cb)(void cb_arg, int kc, int is_pressed),
	162	int (mouseb_cb)(void cb_arg, int x, int y, int button, int is_pressed),
	163	int (mousem_cb)(void cb_arg, int x, int y),
	164	void *cb_arg)
10ef62e3	165	{
10ef62e3	166	XEvent evt;
1a375014	167	int keysym;
10ef62e3	168
10ef62e3	169	while (g_xstuff.pXPending(g_xstuff.display))
e708403e	170	{
10ef62e3	171	g_xstuff.pXNextEvent(g_xstuff.display, &evt);
10ef62e3	172	switch (evt.type)
e708403e	173	{
1a375014	174	case Expose:
	175	while (g_xstuff.pXCheckTypedEvent(g_xstuff.display, Expose, &evt))
	176	;
	177	break;
	178
	179	case KeyPress:
	180	keysym = g_xstuff.pXLookupKeysym(&evt.xkey, 0);
	181	if (key_cb != NULL)
	182	key_cb(cb_arg, keysym, 1);
	183	break;
	184
	185	case KeyRelease:
	186	keysym = g_xstuff.pXLookupKeysym(&evt.xkey, 0);
	187	if (key_cb != NULL)
	188	key_cb(cb_arg, keysym, 0);
	189	break;
	190
	191	case ButtonPress:
	192	if (mouseb_cb != NULL)
	193	mouseb_cb(cb_arg, evt.xbutton.x, evt.xbutton.y,
	194	evt.xbutton.button, 1);
	195	break;
	196
	197	case ButtonRelease:
	198	if (mouseb_cb != NULL)
	199	mouseb_cb(cb_arg, evt.xbutton.x, evt.xbutton.y,
	200	evt.xbutton.button, 0);
	201	break;
	202
	203	case MotionNotify:
	204	if (mousem_cb != NULL)
	205	mousem_cb(cb_arg, evt.xmotion.x, evt.xmotion.y);
	206	break;
e708403e	207	}
e708403e	208	}
e708403e	209	}
e708403e	210
be672de7	211	static struct termios g_kbd_termios_saved;
e03fbe8e	212	static int g_kbdfd = -1;
be672de7	213
10ef62e3	214	static int tty_init(void)
be672de7	215	{
be672de7	216	struct termios kbd_termios;
be672de7	217	int mode;
	218
	219	g_kbdfd = open("/dev/tty", O_RDWR);
	220	if (g_kbdfd == -1) {
	221	perror(PFX "open /dev/tty");
10ef62e3	222	return -1;
be672de7	223	}
	224
	225	if (ioctl(g_kbdfd, KDGETMODE, &mode) == -1) {
	226	perror(PFX "(not hiding FB): KDGETMODE");
	227	goto fail;
	228	}
	229
	230	if (tcgetattr(g_kbdfd, &kbd_termios) == -1) {
	231	perror(PFX "tcgetattr");
	232	goto fail;
	233	}
	234
74e1b42b	235	g_kbd_termios_saved = kbd_termios;
be672de7	236	kbd_termios.c_lflag &= ~(ICANON \| ECHO); // \| ISIG);
	237	kbd_termios.c_iflag &= ~(ISTRIP \| IGNCR \| ICRNL \| INLCR \| IXOFF \| IXON);
	238	kbd_termios.c_cc[VMIN] = 0;
	239	kbd_termios.c_cc[VTIME] = 0;
	240
	241	if (tcsetattr(g_kbdfd, TCSAFLUSH, &kbd_termios) == -1) {
	242	perror(PFX "tcsetattr");
	243	goto fail;
	244	}
	245
	246	if (ioctl(g_kbdfd, KDSETMODE, KD_GRAPHICS) == -1) {
	247	perror(PFX "KDSETMODE KD_GRAPHICS");
	248	tcsetattr(g_kbdfd, TCSAFLUSH, &g_kbd_termios_saved);
	249	goto fail;
	250	}
	251
10ef62e3	252	return 0;
be672de7	253
	254	fail:
	255	close(g_kbdfd);
	256	g_kbdfd = -1;
10ef62e3	257	return -1;
be672de7	258	}
be672de7	259
10ef62e3	260	static void tty_end(void)
be672de7	261	{
	262	if (g_kbdfd < 0)
	263	return;
	264
	265	if (ioctl(g_kbdfd, KDSETMODE, KD_TEXT) == -1)
	266	perror(PFX "KDSETMODE KD_TEXT");
	267
	268	if (tcsetattr(g_kbdfd, TCSAFLUSH, &g_kbd_termios_saved) == -1)
	269	perror(PFX "tcsetattr");
	270
be672de7	271	close(g_kbdfd);
	272	g_kbdfd = -1;
	273	}
	274
1a375014	275	int xenv_init(int *have_mouse_events)
e708403e	276	{
1a375014	277	int have_mouse = 0;
e708403e	278	int ret;
e708403e	279
10ef62e3	280	ret = x11h_init();
1a375014	281	if (ret == 0) {
	282	have_mouse = 1;
	283	goto out;
	284	}
e708403e	285
10ef62e3	286	ret = tty_init();
10ef62e3	287	if (ret == 0)
1a375014	288	goto out;
be672de7	289
10ef62e3	290	fprintf(stderr, PFX "error: both x11h_init and tty_init failed\n");
1a375014	291	ret = -1;
	292	out:
	293	if (have_mouse_events != NULL)
	294	*have_mouse_events = have_mouse;
	295	return ret;
e708403e	296	}
e708403e	297
1a375014	298	int xenv_update(int (key_cb)(void cb_arg, int kc, int is_pressed),
	299	int (mouseb_cb)(void cb_arg, int x, int y, int button, int is_pressed),
	300	int (mousem_cb)(void cb_arg, int x, int y),
	301	void *cb_arg)
be672de7	302	{
1a375014	303	if (g_xstuff.display) {
	304	x11h_update(key_cb, mouseb_cb, mousem_cb, cb_arg);
	305	return 0;
	306	}
be672de7	307
10ef62e3	308	// TODO: read tty?
10ef62e3	309	return -1;
be672de7	310	}
be672de7	311
10ef62e3	312	void xenv_finish(void)
e708403e	313	{
10ef62e3	314	// TODO: cleanup X?
10ef62e3	315	tty_end();
e708403e	316	}