nuclear@7: /* SimplyGL window system module for X11/GLX */
nuclear@9: /* link-with: -lX11 */
nuclear@7: 
nuclear@7: #include "config.h"
nuclear@7: 
nuclear@7: #ifdef USE_WSYS_MODULE_X11
nuclear@7: 
nuclear@4: #include <stdlib.h>
nuclear@7: #include <ctype.h>
nuclear@3: #include <X11/Xlib.h>
nuclear@3: #include <GL/glx.h>
nuclear@4: #include "sgl.h"
nuclear@3: #include "wsys.h"
nuclear@4: #include "log.h"
nuclear@3: 
nuclear@5: 
nuclear@3: struct window {
nuclear@3: 	Window win;
nuclear@3: 	GLXContext ctx;
nuclear@5: 	int width, height;
nuclear@5: 	int mapped;
nuclear@4: 	long evmask;
nuclear@5: 	int redisp_pending;
nuclear@3: 	struct window *next;
nuclear@3: };
nuclear@3: 
nuclear@3: static int init(void);
nuclear@3: static void shutdown(void);
nuclear@4: 
nuclear@4: /* video mode switching */
nuclear@4: static int set_vidmode(int xsz, int ysz);
nuclear@4: static int get_vidmode(int *xsz, int *ysz);
nuclear@4: 
nuclear@4: /* create/destroy windows */
nuclear@3: static int create_window(int xsz, int ysz, unsigned int flags);
nuclear@4: static void fill_attr(int *attr, unsigned int flags);
nuclear@4: static void print_visual_info(XVisualInfo *vis);
nuclear@3: static void close_window(int id);
nuclear@3: 
nuclear@4: /* window management */
nuclear@4: static int set_active(int id);
nuclear@5: static struct window *find_window(int id);
nuclear@5: static int activate_window(struct window *win);
nuclear@4: static int set_title(const char *str);
nuclear@4: static void redisplay(void);
nuclear@4: static void swap_buffers(void);
nuclear@4: 
nuclear@7: static int get_modifiers(void);
nuclear@7: 
nuclear@4: /* event handling and friends */
nuclear@4: static void set_bits(long *mask, long bits);
nuclear@4: static void clear_bits(long *mask, long bits);
nuclear@4: static void set_event(int idx, int enable);
nuclear@4: static int process_events(void);
nuclear@5: static int handle_event(XEvent *xev);
nuclear@7: static void process_key(KeySym sym, int state);
nuclear@5: static int translate_keysym(KeySym sym);
nuclear@4: 
nuclear@3: static struct wsys_module ws = {
nuclear@3: 	"x11-glx", 0,
nuclear@3: 	init,
nuclear@3: 	shutdown,
nuclear@3: 	set_vidmode,
nuclear@3: 	get_vidmode,
nuclear@3: 	create_window,
nuclear@3: 	close_window,
nuclear@4: 	set_active,
nuclear@4: 	set_title,
nuclear@4: 	redisplay,
nuclear@4: 	swap_buffers,
nuclear@7: 	get_modifiers,
nuclear@4: 	set_event,
nuclear@4: 	process_events,
nuclear@3: 	0
nuclear@3: };
nuclear@3: 
nuclear@3: static Display *dpy;
nuclear@4: static Window root;
nuclear@3: static int scr;
nuclear@4: static Atom xa_wm_prot, xa_wm_del_win;
nuclear@3: static struct window *winlist;
nuclear@5: static struct window *active_win, *prev_active;
nuclear@7: static int modkeys;
nuclear@3: 
nuclear@4: /* this is the only exported function, everything else should be static */
nuclear@3: void sgl_register_x11(void)
nuclear@3: {
nuclear@3: 	sgl_register_module(&ws);
nuclear@3: }
nuclear@3: 
nuclear@3: static int init(void)
nuclear@3: {
nuclear@5: 	if(dpy) {
nuclear@5: 		sgl_log("warning: double init\n");
nuclear@5: 		return 0;
nuclear@5: 	}
nuclear@5: 
nuclear@3: 	winlist = 0;
nuclear@5: 	active_win = prev_active = 0;
nuclear@3: 
nuclear@3: 	if(!(dpy = XOpenDisplay(0))) {
nuclear@4: 		sgl_log("failed to open X display: %s\n", XDisplayName(0));
nuclear@3: 		return -1;
nuclear@3: 	}
nuclear@3: 	scr = DefaultScreen(dpy);
nuclear@4: 	root = RootWindow(dpy, scr);
nuclear@4: 
nuclear@4: 	xa_wm_prot = XInternAtom(dpy, "WM_PROTOCOLS", False);
nuclear@4: 	xa_wm_del_win = XInternAtom(dpy, "WM_DELETE_WINDOW", False);
nuclear@3: 
nuclear@3: 	return 0;
nuclear@3: }
nuclear@3: 
nuclear@3: static void shutdown(void)
nuclear@3: {
nuclear@5: 	if(!dpy) {
nuclear@5: 		return;
nuclear@5: 	}
nuclear@5: 
nuclear@3: 	while(winlist) {
nuclear@3: 		struct window *win = winlist;
nuclear@3: 		winlist = winlist->next;
nuclear@3: 
nuclear@3: 		glXDestroyContext(dpy, win->ctx);
nuclear@4: 		XDestroyWindow(dpy, win->win);
nuclear@3: 		free(win);
nuclear@3: 	}
nuclear@3: 	XCloseDisplay(dpy);
nuclear@3: 	dpy = 0;
nuclear@3: }
nuclear@3: 
nuclear@4: static int set_vidmode(int xsz, int ysz)
nuclear@3: {
nuclear@3: 	/* TODO */
nuclear@4: 	return 0;
nuclear@3: }
nuclear@3: 
nuclear@4: static int get_vidmode(int *xsz, int *ysz)
nuclear@3: {
nuclear@3: 	/* TODO */
nuclear@4: 	return 0;
nuclear@3: }
nuclear@3: 
nuclear@3: static int create_window(int xsz, int ysz, unsigned int flags)
nuclear@3: {
nuclear@4: 	int attr[32];
nuclear@4: 	Window win;
nuclear@4: 	GLXContext ctx;
nuclear@4: 	XVisualInfo *vis;
nuclear@4: 	XClassHint chint;
nuclear@4: 	XSetWindowAttributes xattr;
nuclear@4: 	unsigned int attr_valid;
nuclear@4: 	long evmask;
nuclear@4: 	struct window *wnode;
nuclear@6: 	void (*func)();
nuclear@4: 
nuclear@4: 	if(!(wnode = malloc(sizeof *wnode))) {
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	fill_attr(attr, flags);
nuclear@4: 
nuclear@4: 	if(!(vis = glXChooseVisual(dpy, scr, attr))) {
nuclear@4: 		sgl_log("failed to find a suitable visual\n");
nuclear@4: 		free(wnode);
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 	print_visual_info(vis);
nuclear@4: 
nuclear@4: 	if(!(ctx = glXCreateContext(dpy, vis, 0, True))) {
nuclear@4: 		sgl_log("failed to create OpenGL context\n");
nuclear@4: 		XFree(vis);
nuclear@4: 		free(wnode);
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	xattr.background_pixel = xattr.border_pixel = BlackPixel(dpy, scr);
nuclear@4: 	xattr.colormap = XCreateColormap(dpy, root, vis->visual, AllocNone);
nuclear@4: 	attr_valid = CWColormap | CWBackPixel | CWBorderPixel;
nuclear@4: 
nuclear@4: 	if(!(win = XCreateWindow(dpy, root, 0, 0, xsz, ysz, 0, vis->depth, InputOutput,
nuclear@4: 					vis->visual, attr_valid, &xattr))) {
nuclear@4: 		sgl_log("failed to create window\n");
nuclear@4: 		glXDestroyContext(dpy, ctx);
nuclear@4: 		XFree(vis);
nuclear@4: 		free(wnode);
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 	XFree(vis);
nuclear@4: 
nuclear@4: 	evmask = StructureNotifyMask | VisibilityChangeMask;
nuclear@4: 	XSelectInput(dpy, win, evmask);
nuclear@4: 
nuclear@4: 	XSetWMProtocols(dpy, win, &xa_wm_del_win, 1);
nuclear@4: 
nuclear@4: 	set_title("OpenGL/X11");
nuclear@4: 
nuclear@4: 	chint.res_name = chint.res_class = "simplygl";
nuclear@4: 	XSetClassHint(dpy, win, &chint);
nuclear@4: 
nuclear@4: 	XMapWindow(dpy, win);
nuclear@4: 
nuclear@4: 	wnode->win = win;
nuclear@4: 	wnode->ctx = ctx;
nuclear@5: 	wnode->width = xsz;
nuclear@5: 	wnode->height = ysz;
nuclear@5: 	wnode->mapped = 0;
nuclear@4: 	wnode->evmask = evmask;
nuclear@5: 	wnode->redisp_pending = 1;
nuclear@4: 	wnode->next = winlist;
nuclear@5: 	winlist = wnode;
nuclear@4: 
nuclear@4: 	if(!active_win) {
nuclear@4: 		set_active(win);
nuclear@6: 	} else {
nuclear@6: 		activate_window(wnode);
nuclear@4: 	}
nuclear@6: 
nuclear@6: 	if((func = sgl_get_callback(SGL_CREATE))) {
nuclear@6: 		func(win);
nuclear@6: 	}
nuclear@6: 	if((func = sgl_get_callback(SGL_RESHAPE))) {
nuclear@6: 		func(xsz, ysz);
nuclear@6: 	}
nuclear@6: 	activate_window(prev_active);
nuclear@4: 	return win;
nuclear@4: }
nuclear@4: 
nuclear@4: static void fill_attr(int *attr, unsigned int flags)
nuclear@4: {
nuclear@4: 	int i = 0;
nuclear@4: 
nuclear@4: 	attr[i++] = GLX_RGBA;
nuclear@4: 	attr[i++] = GLX_RED_SIZE; attr[i++] = 1;
nuclear@4: 	attr[i++] = GLX_GREEN_SIZE; attr[i++] = 1;
nuclear@4: 	attr[i++] = GLX_BLUE_SIZE; attr[i++] = 1;
nuclear@4: 
nuclear@4: 	if(flags & SGL_DOUBLE) {
nuclear@4: 		attr[i++] = GLX_DOUBLEBUFFER;
nuclear@4: 	}
nuclear@4: 	if(flags & SGL_DEPTH) {
nuclear@4: 		attr[i++] = GLX_DEPTH_SIZE;
nuclear@4: 		attr[i++] = 1;
nuclear@4: 	}
nuclear@4: 	if(flags & SGL_STENCIL) {
nuclear@4: 		attr[i++] = GLX_STENCIL_SIZE;
nuclear@4: 		attr[i++] = 1;
nuclear@4: 	}
nuclear@4: 	if(flags & SGL_STEREO) {
nuclear@4: 		attr[i++] = GLX_STEREO;
nuclear@4: 	}
nuclear@4: #if defined(GLX_VERSION_1_4) || defined(GLX_ARB_multisample)
nuclear@4: 	if(flags & SGL_MULTISAMPLE) {
nuclear@4: 		attr[i++] = GLX_SAMPLE_BUFFERS_ARB;
nuclear@4: 		attr[i++] = 1;
nuclear@4: 		attr[i++] = GLX_SAMPLES_ARB;
nuclear@4: 		attr[i++] = 1;
nuclear@4: 	}
nuclear@4: #endif	/* defined GLX_VERSION_1_4 || GLX_ARB_multisample */
nuclear@4: 	attr[i] = None;
nuclear@4: }
nuclear@4: 
nuclear@4: static void print_visual_info(XVisualInfo *vis)
nuclear@4: {
nuclear@4: 	int rbits, gbits, bbits, zbits, sbits, stereo, aa, samples;
nuclear@4: 
nuclear@4: 	glXGetConfig(dpy, vis, GLX_RED_SIZE, &rbits);
nuclear@4: 	glXGetConfig(dpy, vis, GLX_GREEN_SIZE, &gbits);
nuclear@4: 	glXGetConfig(dpy, vis, GLX_BLUE_SIZE, &bbits);
nuclear@4: 	glXGetConfig(dpy, vis, GLX_DEPTH_SIZE, &zbits);
nuclear@4: 	glXGetConfig(dpy, vis, GLX_STENCIL_SIZE, &sbits);
nuclear@4: 	glXGetConfig(dpy, vis, GLX_STEREO, &stereo);
nuclear@4: #if defined(GLX_VERSION_1_4) || defined(GLX_ARB_multisample)
nuclear@4: 	glXGetConfig(dpy, vis, GLX_SAMPLE_BUFFERS_ARB, &aa);
nuclear@4: 	if(aa) {
nuclear@4: 		glXGetConfig(dpy, vis, GLX_SAMPLES_ARB, &samples);
nuclear@4: 	} else {
nuclear@4: 		samples = 1;
nuclear@4: 	}
nuclear@4: #endif	/* defined GLX_VERSION_1_4 || GLX_ARB_multisample */
nuclear@4: 
nuclear@4: 	sgl_log("got visual: %d%d%d d:%d s:%d", rbits, gbits, bbits, zbits, sbits);
nuclear@4: 	sgl_log(" %s", stereo ? "stereo" : "mono");
nuclear@4: 	sgl_log(" samples/pixel: %d\n", samples);
nuclear@3: }
nuclear@3: 
nuclear@3: static void close_window(int id)
nuclear@3: {
nuclear@3: 	struct window dummy, *win, *prev;
nuclear@6: 	sgl_close_callback_t close_func;
nuclear@6: 
nuclear@3: 	dummy.next = winlist;
nuclear@3: 
nuclear@3: 	prev = &dummy;
nuclear@3: 	win = prev->next;
nuclear@3: 
nuclear@3: 	while(win) {
nuclear@3: 		if(win->win == id) {
nuclear@6: 			if(!(close_func = sgl_get_callback(SGL_CLOSE))) {
nuclear@6: 				close_func(id);
nuclear@6: 			}
nuclear@3: 			glXDestroyContext(dpy, win->ctx);
nuclear@4: 			XDestroyWindow(dpy, win->win);
nuclear@3: 			prev->next = win->next;
nuclear@3: 			free(win);
nuclear@3: 			return;
nuclear@3: 		}
nuclear@13: 		prev = win;
nuclear@3: 		win = win->next;
nuclear@3: 	}
nuclear@3: }
nuclear@4: 
nuclear@4: static int set_active(int id)
nuclear@4: {
nuclear@5: 	struct window *win = find_window(id);
nuclear@5: 	if(!win) {
nuclear@5: 		sgl_log("no such window: %d\n", id);
nuclear@5: 		return -1;
nuclear@5: 	}
nuclear@5: 	/* only the user calls this, so don't revert this selection */
nuclear@5: 	prev_active = win;
nuclear@5: 	return activate_window(win);
nuclear@5: }
nuclear@5: 
nuclear@5: static struct window *find_window(int id)
nuclear@5: {
nuclear@4: 	struct window *win = winlist;
nuclear@4: 
nuclear@4: 	while(win) {
nuclear@4: 		if(win->win == id) {
nuclear@5: 			return win;
nuclear@4: 		}
nuclear@4: 		win = win->next;
nuclear@4: 	}
nuclear@5: 	return 0;
nuclear@5: }
nuclear@4: 
nuclear@5: static int activate_window(struct window *win)
nuclear@5: {
nuclear@5: 	if(glXMakeCurrent(dpy, win->win, win->ctx) == False) {
nuclear@5: 		sgl_log("failed to activate window %d\n", (int)win->win);
nuclear@5: 		return -1;
nuclear@5: 	}
nuclear@5: 	active_win = win;
nuclear@5: 	return 0;
nuclear@4: }
nuclear@4: 
nuclear@4: static int set_title(const char *str)
nuclear@4: {
nuclear@4: 	XTextProperty wm_name;
nuclear@4: 
nuclear@4: 	if(!str || !active_win) {
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 	XStringListToTextProperty((char**)&str, 1, &wm_name);
nuclear@4: 	XSetWMName(dpy, active_win->win, &wm_name);
nuclear@4: 	XSetWMIconName(dpy, active_win->win, &wm_name);
nuclear@4: 	XFree(wm_name.value);
nuclear@4: 	return 0;
nuclear@4: }
nuclear@4: 
nuclear@4: static void redisplay(void)
nuclear@4: {
nuclear@4: 	active_win->redisp_pending = 1;
nuclear@4: }
nuclear@4: 
nuclear@4: static void swap_buffers(void)
nuclear@4: {
nuclear@5: 	glXSwapBuffers(dpy, active_win->win);
nuclear@4: }
nuclear@4: 
nuclear@7: static int get_modifiers(void)
nuclear@7: {
nuclear@7: 	return modkeys;
nuclear@7: }
nuclear@7: 
nuclear@4: static void set_bits(long *mask, long bits)
nuclear@4: {
nuclear@4: 	*mask |= bits;
nuclear@4: }
nuclear@4: 
nuclear@4: static void clear_bits(long *mask, long bits)
nuclear@4: {
nuclear@4: 	*mask &= ~bits;
nuclear@4: }
nuclear@4: 
nuclear@4: static void set_event(int idx, int enable)
nuclear@4: {
nuclear@4: 	void (*op)(long*, long);
nuclear@4: 	op = enable ? set_bits : clear_bits;
nuclear@4: 
nuclear@4: 	switch(idx) {
nuclear@4: 	case SGL_DISPLAY:
nuclear@4: 		op(&active_win->evmask, ExposureMask);
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case SGL_KEYBOARD:
nuclear@4: 		op(&active_win->evmask, KeyPressMask | KeyReleaseMask);
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case SGL_MOUSE:
nuclear@4: 		op(&active_win->evmask, ButtonPressMask | ButtonReleaseMask);
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case SGL_MOTION:
nuclear@4: 		op(&active_win->evmask, ButtonMotionMask);
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case SGL_PASSIVE:
nuclear@4: 		op(&active_win->evmask, PointerMotionMask);
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	default:
nuclear@4: 		return;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	XSelectInput(dpy, active_win->win, active_win->evmask);
nuclear@4: }
nuclear@4: 
nuclear@4: static int process_events(void)
nuclear@4: {
nuclear@4: 	XEvent xev;
nuclear@4: 	void (*func)();
nuclear@5: 	struct window *win;
nuclear@4: 
nuclear@5: 	prev_active = active_win;
nuclear@5: 
nuclear@5: 	win = winlist;
nuclear@5: 	while(win) {
nuclear@5: 		if(win->redisp_pending && (func = sgl_get_callback(SGL_DISPLAY))) {
nuclear@5: 			activate_window(win);
nuclear@5: 			func();
nuclear@5: 			win->redisp_pending = 0;
nuclear@5: 		}
nuclear@5: 		win = win->next;
nuclear@5: 	}
nuclear@5: 
nuclear@5: 	func = sgl_get_callback(SGL_IDLE);
nuclear@5: 	if(!func) {
nuclear@5: 		XNextEvent(dpy, &xev);
nuclear@5: 		XPutBackEvent(dpy, &xev);
nuclear@5: 	}
nuclear@5: 
nuclear@5: 	/* process all pending events... */
nuclear@4: 	while(XPending(dpy)) {
nuclear@4: 		XNextEvent(dpy, &xev);
nuclear@5: 		if(handle_event(&xev) == -1) {
nuclear@5: 			return -1;
nuclear@5: 		}
nuclear@4: 
nuclear@5: 		if(!dpy) {
nuclear@5: 			return -1;
nuclear@5: 		}
nuclear@5: 	}
nuclear@5: 
nuclear@5: 	if(func) {
nuclear@5: 		/* ... and then call the idle function */
nuclear@5: 		func();
nuclear@5: 	}
nuclear@5: 
nuclear@5: 	activate_window(prev_active);
nuclear@5: 	return 0;
nuclear@5: }
nuclear@5: 
nuclear@5: /* returns 0, or -1 when the last window gets closed */
nuclear@5: static int handle_event(XEvent *xev)
nuclear@5: {
nuclear@5: 	int state;
nuclear@5: 	struct window *win;
nuclear@5: 	void (*func)();
nuclear@7: 	KeySym sym;
nuclear@5: 
nuclear@5: 	if((win = find_window(xev->xany.window))) {
nuclear@5: 		activate_window(win);
nuclear@5: 	} else {
nuclear@5: 		return 0;
nuclear@5: 	}
nuclear@5: 
nuclear@5: 	switch(xev->type) {
nuclear@5: 	case MapNotify:
nuclear@5: 		active_win->mapped = 1;
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case UnmapNotify:
nuclear@5: 		active_win->mapped = 0;
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case Expose:
nuclear@5: 		if(active_win->mapped && xev->xexpose.count == 0) {
nuclear@5: 			if((func = sgl_get_callback(SGL_DISPLAY))) {
nuclear@5: 				func();
nuclear@5: 				active_win->redisp_pending = 0;
nuclear@5: 			}
nuclear@5: 		}
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case MotionNotify:
nuclear@5: 		if(xev->xmotion.state) {
nuclear@5: 			func = sgl_get_callback(SGL_MOTION);
nuclear@5: 		} else {
nuclear@5: 			func = sgl_get_callback(SGL_PASSIVE);
nuclear@5: 		}
nuclear@5: 		if(func) {
nuclear@6: 			func(0, xev->xmotion.x, xev->xmotion.y);
nuclear@5: 		}
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case ButtonPress:
nuclear@5: 		if(1) {
nuclear@5: 			state = 1;
nuclear@5: 		} else {
nuclear@5: 	case ButtonRelease:
nuclear@5: 			state = 0;
nuclear@5: 		}
nuclear@5: 		if((func = sgl_get_callback(SGL_MOUSE))) {
nuclear@5: 			int bn = xev->xbutton.button - 1;
nuclear@6: 			func(0, bn, state, xev->xbutton.x, xev->xbutton.y);
nuclear@5: 		}
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case KeyPress:
nuclear@5: 		if(1) {
nuclear@5: 			state = 1;
nuclear@5: 		} else {
nuclear@5: 	case KeyRelease:
nuclear@5: 			state = 0;
nuclear@5: 		}
nuclear@7: 		sym = XLookupKeysym(&xev->xkey, 0);
nuclear@7: 		process_key(sym, state);
nuclear@7: 
nuclear@5: 		if((func = sgl_get_callback(SGL_KEYBOARD))) {
nuclear@5: 			func(translate_keysym(sym), state);
nuclear@5: 		}
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case ConfigureNotify:
nuclear@5: 		if((func = sgl_get_callback(SGL_RESHAPE))) {
nuclear@5: 			if(xev->xconfigure.width != active_win->width || xev->xconfigure.height != active_win->height) {
nuclear@5: 				active_win->width = xev->xconfigure.width;
nuclear@5: 				active_win->height = xev->xconfigure.height;
nuclear@5: 
nuclear@5: 				func(xev->xconfigure.width, xev->xconfigure.height);
nuclear@5: 			}
nuclear@5: 		}
nuclear@5: 		break;
nuclear@5: 
nuclear@5: 	case ClientMessage:
nuclear@5: 		if(xev->xclient.message_type == xa_wm_prot) {
nuclear@5: 			if(xev->xclient.data.l[0] == xa_wm_del_win) {
nuclear@5: 				close_window(active_win->win);
nuclear@5: 				if(!active_win) {
nuclear@5: 					return -1;
nuclear@4: 				}
nuclear@4: 			}
nuclear@5: 		}
nuclear@5: 		break;
nuclear@4: 
nuclear@5: 	default:
nuclear@5: 		break;
nuclear@5: 	}
nuclear@4: 
nuclear@4: 	return 0;
nuclear@4: }
nuclear@5: 
nuclear@7: static void process_key(KeySym sym, int state)
nuclear@7: {
nuclear@7: 	switch(sym) {
nuclear@7: 	case XK_Shift_L:
nuclear@7: 	case XK_Shift_R:
nuclear@7: 		modkeys = state ? (modkeys | SGL_MOD_SHIFT) : (modkeys & ~SGL_MOD_SHIFT);
nuclear@7: 		break;
nuclear@7: 
nuclear@7: 	case XK_Control_L:
nuclear@7: 	case XK_Control_R:
nuclear@7: 		modkeys = state ? (modkeys | SGL_MOD_CONTROL) : (modkeys & ~SGL_MOD_CONTROL);
nuclear@7: 		break;
nuclear@7: 
nuclear@7: 	case XK_Alt_L:
nuclear@7: 	case XK_Alt_R:
nuclear@7: 		modkeys = state ? (modkeys | SGL_MOD_ALT) : (modkeys & ~SGL_MOD_ALT);
nuclear@7: 		break;
nuclear@7: 
nuclear@7: 	default:
nuclear@7: 		break;
nuclear@7: 	}
nuclear@7: }
nuclear@7: 
nuclear@5: static int translate_keysym(KeySym sym)
nuclear@5: {
nuclear@5: 	if(sym < 256) {
nuclear@7: 		if(isalpha(sym) && (modkeys & SGL_MOD_SHIFT)) {
nuclear@7: 			sym = toupper(sym);
nuclear@7: 		}
nuclear@5: 		return sym;
nuclear@5: 	}
nuclear@5: 
nuclear@5: 	switch(sym) {
nuclear@5: 	case XK_BackSpace:
nuclear@5: 		return '\b';
nuclear@5: 	case XK_Tab:
nuclear@5: 		return '\t';
nuclear@5: 	case XK_Linefeed:
nuclear@5: 		return '\r';
nuclear@5: 	case XK_Return:
nuclear@5: 		return '\n';
nuclear@5: 	case XK_Escape:
nuclear@5: 		return 27;
nuclear@5: 	default:
nuclear@5: 		break;
nuclear@5: 	}
nuclear@5: 	return (int)sym;
nuclear@5: }
nuclear@7: 
nuclear@8: #else
nuclear@8: int sgl_wsys_x11_silence_the_fucking_empty_file_warnings;
nuclear@7: #endif	/* USE_WSYS_MODULE_X11 */