nuclear@4: #include <stdio.h>
nuclear@4: #include <stdlib.h>
nuclear@4: #include <X11/Xlib.h>
nuclear@4: #include <X11/Xutil.h>
nuclear@4: #include "wsys.h"
nuclear@4: #include "vku.h"
nuclear@4: 
nuclear@4: struct callbacks {
nuclear@4: 	void (*display)(void);
nuclear@4: 	void (*reshape)(int, int);
nuclear@4: 	void (*keyboard)(int, int);
nuclear@4: 	void (*mouse)(int, int, int, int);
nuclear@4: 	void (*motion)(int, int);
nuclear@4: 	void (*passive)(int, int);
nuclear@4: };
nuclear@4: 
nuclear@4: enum {
nuclear@4: 	QUIT = 1,
nuclear@4: 	RESHAPE = 2,
nuclear@4: 	REDISPLAY = 4
nuclear@4: };
nuclear@4: 
nuclear@4: static void proc_event(XEvent *ev);
nuclear@4: 
nuclear@4: static Display *dpy;
nuclear@4: static Window win;
nuclear@5: static VkSurfaceKHR surf;
nuclear@5: static VkSwapchainKHR swapchain;
nuclear@4: static Atom xa_wm_delete;
nuclear@4: static int win_width, win_height;
nuclear@4: static int win_mapped;
nuclear@4: static unsigned int evmask = StructureNotifyMask | ExposureMask;
nuclear@4: static unsigned int pending;
nuclear@4: static struct callbacks cb;
nuclear@4: 
nuclear@4: int wsys_create_window(int xsz, int ysz)
nuclear@4: {
nuclear@4: 	int i, scr, num_visuals;
nuclear@4: 	Window root_win;
nuclear@4: 	Visual *vis = 0;
nuclear@4: 	XSetWindowAttributes xattr;
nuclear@4: 	unsigned int xattr_mask;
nuclear@4: 	XVisualInfo *vinf, vinf_match;
nuclear@4: 
nuclear@4: 	if(!(dpy = XOpenDisplay(0))) {
nuclear@4: 		fprintf(stderr, "failed to open connection to the X server\n");
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 	scr = DefaultScreen(dpy);
nuclear@4: 	root_win = RootWindow(dpy, scr);
nuclear@4: 
nuclear@4: 	xa_wm_delete = XInternAtom(dpy, "WM_DELETE_WINDOW", False);
nuclear@4: 
nuclear@4: 	vinf_match.screen = scr;
nuclear@4: 	vinf_match.depth = 24;
nuclear@4: 	vinf_match.class = TrueColor;
nuclear@4: 
nuclear@4: 	if(!(vinf = XGetVisualInfo(dpy, VisualScreenMask | VisualDepthMask | VisualClassMask, &vinf_match, &num_visuals))) {
nuclear@4: 		fprintf(stderr, "failed to retrieve matching visuals\n");
nuclear@4: 		XCloseDisplay(dpy);
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	for(i=0; i<num_visuals; i++) {
nuclear@4: 		if(vku_xlib_usable_visual(dpy, vinf[i].visualid)) {
nuclear@4: 			vis = vinf[i].visual;
nuclear@4: 			break;
nuclear@4: 		}
nuclear@4: 	}
nuclear@4: 	if(!vis) {
nuclear@4: 		fprintf(stderr, "failed to find approprate visual\n");
nuclear@4: 		XFree(vinf);
nuclear@4: 		XCloseDisplay(dpy);
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_win, vis, AllocNone);
nuclear@4: 	xattr_mask = CWBackPixel | CWBorderPixel | CWColormap;
nuclear@4: 
nuclear@4: 	if(!(win = XCreateWindow(dpy, root_win, 0, 0, xsz, ysz, 0, 24, InputOutput, vis, xattr_mask, &xattr))) {
nuclear@4: 		fprintf(stderr, "failed to create X window\n");
nuclear@4: 		XFree(vinf);
nuclear@4: 		XCloseDisplay(dpy);
nuclear@4: 		return -1;
nuclear@4: 	}
nuclear@4: 	XFree(vinf);
nuclear@4: 
nuclear@4: 	XSelectInput(dpy, win, evmask);
nuclear@4: 	XSetWMProtocols(dpy, win, &xa_wm_delete, 1);
nuclear@4: 
nuclear@5: 	if(!(surf = vku_xlib_create_surface(dpy, win))) {
nuclear@5: 		fprintf(stderr, "failed to create vulkan surface for the window\n");
nuclear@5: 		XDestroyWindow(dpy, win);
nuclear@5: 		XCloseDisplay(dpy);
nuclear@5: 		return -1;
nuclear@5: 	}
nuclear@5: 	/* swapchain gets created before the first reshape invocation */
nuclear@5: 
nuclear@4: 	wsys_set_window_title("X11 window");
nuclear@4: 	XMapWindow(dpy, win);
nuclear@4: 
nuclear@4: 	win_width = xsz;
nuclear@4: 	win_height = ysz;
nuclear@4: 	pending = RESHAPE | REDISPLAY;
nuclear@4: 
nuclear@4: 	return 0;
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_destroy_window(void)
nuclear@4: {
nuclear@4: 	if(dpy) {
nuclear@4: 		if(win) {
nuclear@4: 			XDestroyWindow(dpy, win);
nuclear@4: 			win = 0;
nuclear@4: 		}
nuclear@4: 		XCloseDisplay(dpy);
nuclear@4: 		dpy = 0;
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_get_window_size(int *xsz, int *ysz)
nuclear@4: {
nuclear@4: 	*xsz = win_width;
nuclear@4: 	*ysz = win_height;
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_set_window_title(const char *title)
nuclear@4: {
nuclear@4: 	XTextProperty text;
nuclear@4: 	XStringListToTextProperty((char**)&title, 1, &text);
nuclear@4: 	XSetWMName(dpy, win, &text);
nuclear@4: 	XSetWMIconName(dpy, win, &text);
nuclear@4: 	XFree(text.value);
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_display_callback(void (*func)(void))
nuclear@4: {
nuclear@4: 	cb.display = func;
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_reshape_callback(void (*func)(int, int))
nuclear@4: {
nuclear@4: 	cb.reshape = func;
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_keyboard_callback(void (*func)(int, int))
nuclear@4: {
nuclear@4: 	cb.keyboard = func;
nuclear@4: 	if(func) {
nuclear@4: 		evmask |= KeyPressMask | KeyReleaseMask;
nuclear@4: 	} else {
nuclear@4: 		evmask &= ~(KeyPressMask | KeyReleaseMask);
nuclear@4: 	}
nuclear@4: 	if(win) {
nuclear@4: 		XSelectInput(dpy, win, evmask);
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_mouse_callback(void (*func)(int, int, int, int))
nuclear@4: {
nuclear@4: 	cb.mouse = func;
nuclear@4: 	if(func) {
nuclear@4: 		evmask |= ButtonPressMask | ButtonReleaseMask;
nuclear@4: 	} else {
nuclear@4: 		evmask &= ~(ButtonPressMask | ButtonReleaseMask);
nuclear@4: 	}
nuclear@4: 	if(win) {
nuclear@4: 		XSelectInput(dpy, win, evmask);
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_motion_callback(void (*func)(int, int))
nuclear@4: {
nuclear@4: 	cb.motion = func;
nuclear@4: 	if(func) {
nuclear@4: 		evmask |= ButtonMotionMask;
nuclear@4: 	} else {
nuclear@4: 		evmask &= ~ButtonMotionMask;
nuclear@4: 	}
nuclear@4: 	if(win) {
nuclear@4: 		XSelectInput(dpy, win, evmask);
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_passive_motion_callback(void (*func)(int, int))
nuclear@4: {
nuclear@4: 	cb.passive = func;
nuclear@4: 	if(func) {
nuclear@4: 		evmask |= PointerMotionMask;
nuclear@4: 	} else {
nuclear@4: 		evmask &= ~PointerMotionMask;
nuclear@4: 	}
nuclear@4: 	if(win) {
nuclear@4: 		XSelectInput(dpy, win, evmask);
nuclear@4: 	}
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_swap_buffers(void)
nuclear@4: {
nuclear@4: 	/* TODO */
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_redisplay(void)
nuclear@4: {
nuclear@4: 	pending |= REDISPLAY;
nuclear@4: }
nuclear@4: 
nuclear@4: void wsys_quit(void)
nuclear@4: {
nuclear@4: 	pending |= QUIT;
nuclear@4: }
nuclear@4: 
nuclear@4: int wsys_process_events(int mode)
nuclear@4: {
nuclear@4: 	XEvent xev;
nuclear@4: 
nuclear@4: 	if(pending & RESHAPE) {
nuclear@5: 		VkSwapchainKHR sc;
nuclear@5: 		if(!(sc = vku_create_swapchain(surf, win_width, win_height, 2, VK_PRESENT_MODE_FIFO_KHR, swapchain))) {
nuclear@5: 			fprintf(stderr, "Failed to create %dx%d double-buffered swapchain\n", win_width, win_height);
nuclear@5: 			return -1;
nuclear@5: 		}
nuclear@5: 		swapchain = sc;
nuclear@5: 
nuclear@4: 		if(cb.reshape) {
nuclear@4: 			cb.reshape(win_width, win_height);
nuclear@4: 		}
nuclear@4: 		pending &= ~RESHAPE;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	if(mode == WSYS_BLOCKING) {
nuclear@4: 		XNextEvent(dpy, &xev);
nuclear@4: 		proc_event(&xev);
nuclear@4: 		if(pending & QUIT) return -1;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	while(XPending(dpy)) {
nuclear@4: 		XNextEvent(dpy, &xev);
nuclear@4: 		proc_event(&xev);
nuclear@4: 		if(pending & QUIT) return -1;
nuclear@4: 	}
nuclear@4: 
nuclear@4: 	if(pending & REDISPLAY && win_mapped) {
nuclear@4: 		pending &= ~REDISPLAY;
nuclear@4: 		if(cb.display) {
nuclear@4: 			cb.display();
nuclear@4: 		}
nuclear@4: 	}
nuclear@4: 	return 0;
nuclear@4: }
nuclear@4: 
nuclear@4: static void proc_event(XEvent *ev)
nuclear@4: {
nuclear@4: 	switch(ev->type) {
nuclear@4: 	case MapNotify:
nuclear@4: 		win_mapped = 1;
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case UnmapNotify:
nuclear@4: 		win_mapped = 0;
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case ClientMessage:
nuclear@4: 		if(ev->xclient.data.l[0] == xa_wm_delete) {
nuclear@4: 			pending |= QUIT;
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case ConfigureNotify:
nuclear@4: 		if(ev->xconfigure.width != win_width || ev->xconfigure.height != win_height) {
nuclear@4: 			win_width = ev->xconfigure.width;
nuclear@4: 			win_height = ev->xconfigure.height;
nuclear@4: 			pending |= RESHAPE;
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case Expose:
nuclear@4: 		if(ev->xexpose.count == 0) {
nuclear@4: 			pending |= REDISPLAY;
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case KeyPress:
nuclear@4: 	case KeyRelease:
nuclear@4: 		if(cb.keyboard) {
nuclear@4: 			KeySym sym;
nuclear@4: 			char str[16];
nuclear@4: 			XLookupString(&ev->xkey, str, sizeof str, &sym, 0);
nuclear@4: 			cb.keyboard(sym & 0xff, ev->type == KeyPress ? 1 : 0);
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case ButtonPress:
nuclear@4: 	case ButtonRelease:
nuclear@4: 		if(cb.mouse) {
nuclear@4: 			int bn = ev->xbutton.button - Button1;
nuclear@4: 			int pressed = ev->type == ButtonPress ? 1 : 0;
nuclear@4: 			cb.mouse(bn, pressed, ev->xbutton.x, ev->xbutton.y);
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 
nuclear@4: 	case MotionNotify:
nuclear@4: 		if(ev->xmotion.state & 0x1f00) {
nuclear@4: 			if(cb.motion) {
nuclear@4: 				cb.motion(ev->xmotion.x, ev->xmotion.y);
nuclear@4: 			}
nuclear@4: 		} else {
nuclear@4: 			if(cb.passive) {
nuclear@4: 				cb.passive(ev->xmotion.x, ev->xmotion.y);
nuclear@4: 			}
nuclear@4: 		}
nuclear@4: 		break;
nuclear@4: 	}
nuclear@4: }