1 76193d7c 2003-09-30 devnull /*
  2 76193d7c 2003-09-30 devnull  * Some of the stuff in this file is not X-dependent and should be elsewhere.
  3 76193d7c 2003-09-30 devnull  */
  4 76193d7c 2003-09-30 devnull #include "x11-inc.h"
  5 76193d7c 2003-09-30 devnull #include <u.h>
  6 76193d7c 2003-09-30 devnull #include <libc.h>
  7 76193d7c 2003-09-30 devnull #include <draw.h>
  8 76193d7c 2003-09-30 devnull #include <memdraw.h>
  9 76193d7c 2003-09-30 devnull #include <keyboard.h>
 10 76193d7c 2003-09-30 devnull #include <mouse.h>
 11 76193d7c 2003-09-30 devnull #include <cursor.h>
 12 76193d7c 2003-09-30 devnull #include "x11-memdraw.h"
 13 76193d7c 2003-09-30 devnull 
 14 76193d7c 2003-09-30 devnull static Memimage	*xattach(char*);
 15 76193d7c 2003-09-30 devnull static void	plan9cmap(void);
 16 76193d7c 2003-09-30 devnull static int	setupcmap(XWindow);
 17 76193d7c 2003-09-30 devnull static XGC	xgc(XDrawable, int, int);
 18 76193d7c 2003-09-30 devnull static Image	*getimage0(Display*);
 19 76193d7c 2003-09-30 devnull 
 20 76193d7c 2003-09-30 devnull Xprivate _x;
 21 76193d7c 2003-09-30 devnull 
 22 76193d7c 2003-09-30 devnull Display*
 23 76193d7c 2003-09-30 devnull _initdisplay(void (*error)(Display*, char*), char *label)
 24 76193d7c 2003-09-30 devnull {
 25 76193d7c 2003-09-30 devnull 	Display *d;
 26 76193d7c 2003-09-30 devnull 	Memimage *m;
 27 76193d7c 2003-09-30 devnull 
 28 76193d7c 2003-09-30 devnull 	memimageinit();
 29 76193d7c 2003-09-30 devnull 
 30 76193d7c 2003-09-30 devnull 	d = mallocz(sizeof(Display), 1);
 31 76193d7c 2003-09-30 devnull 	if(d == nil)
 32 76193d7c 2003-09-30 devnull 		return nil;
 33 76193d7c 2003-09-30 devnull 
 34 76193d7c 2003-09-30 devnull 	d->buf = malloc(16000+5);
 35 76193d7c 2003-09-30 devnull 	d->obuf = malloc(16000);
 36 76193d7c 2003-09-30 devnull 	if(d->buf == nil || d->obuf == nil){
 37 76193d7c 2003-09-30 devnull 		free(d->buf);
 38 76193d7c 2003-09-30 devnull 		free(d->obuf);
 39 76193d7c 2003-09-30 devnull 		free(d);
 40 76193d7c 2003-09-30 devnull 		return nil;
 41 76193d7c 2003-09-30 devnull 	}
 42 76193d7c 2003-09-30 devnull 	d->bufsize = 16000;
 43 76193d7c 2003-09-30 devnull 	d->obufsize = 16000;
 44 76193d7c 2003-09-30 devnull 	d->bufp = d->buf;
 45 76193d7c 2003-09-30 devnull 	d->obufp = d->obuf;
 46 76193d7c 2003-09-30 devnull 
 47 76193d7c 2003-09-30 devnull 	m = xattach(label);
 48 76193d7c 2003-09-30 devnull 	if(m == nil){
 49 76193d7c 2003-09-30 devnull 		free(d);
 50 76193d7c 2003-09-30 devnull 		return nil;
 51 76193d7c 2003-09-30 devnull 	}
 52 76193d7c 2003-09-30 devnull 
 53 76193d7c 2003-09-30 devnull 	d->error = error;
 54 76193d7c 2003-09-30 devnull 	_initdisplaymemimage(d, m);
 55 76193d7c 2003-09-30 devnull 	d->screenimage = getimage0(d);
 56 76193d7c 2003-09-30 devnull 	return d;
 57 76193d7c 2003-09-30 devnull }
 58 76193d7c 2003-09-30 devnull 
 59 76193d7c 2003-09-30 devnull static Image*
 60 76193d7c 2003-09-30 devnull getimage0(Display *d)
 61 76193d7c 2003-09-30 devnull {
 62 76193d7c 2003-09-30 devnull 	char *a, info[12*12+1];
 63 76193d7c 2003-09-30 devnull 	int n;
 64 76193d7c 2003-09-30 devnull 	Image *image;
 65 76193d7c 2003-09-30 devnull 
 66 76193d7c 2003-09-30 devnull 	a = bufimage(d, 2);
 67 76193d7c 2003-09-30 devnull 	a[0] = 'J';
 68 76193d7c 2003-09-30 devnull 	a[1] = 'I';
 69 76193d7c 2003-09-30 devnull 	if(flushimage(d, 0) < 0){
 70 76193d7c 2003-09-30 devnull 		fprint(2, "cannot read screen info: %r\n");
 71 76193d7c 2003-09-30 devnull 		abort();
 72 76193d7c 2003-09-30 devnull 	}
 73 76193d7c 2003-09-30 devnull 	
 74 76193d7c 2003-09-30 devnull 	n = _drawmsgread(d, info, sizeof info);
 75 76193d7c 2003-09-30 devnull 	if(n != 12*12){
 76 76193d7c 2003-09-30 devnull 		fprint(2, "short screen info\n");
 77 76193d7c 2003-09-30 devnull 		abort();
 78 76193d7c 2003-09-30 devnull 	}
 79 76193d7c 2003-09-30 devnull 
 80 76193d7c 2003-09-30 devnull 	image = mallocz(sizeof(Image), 1);
 81 76193d7c 2003-09-30 devnull 	image->display = d;
 82 76193d7c 2003-09-30 devnull 	image->id = 0;
 83 76193d7c 2003-09-30 devnull 	image->chan = strtochan(info+2*12);
 84 76193d7c 2003-09-30 devnull 	image->depth = chantodepth(image->chan);
 85 76193d7c 2003-09-30 devnull 	image->repl = atoi(info+3*12);
 86 76193d7c 2003-09-30 devnull 	image->r.min.x = atoi(info+4*12);
 87 76193d7c 2003-09-30 devnull 	image->r.min.y = atoi(info+5*12);
 88 76193d7c 2003-09-30 devnull 	image->r.max.x = atoi(info+6*12);
 89 76193d7c 2003-09-30 devnull 	image->r.max.y = atoi(info+7*12);
 90 76193d7c 2003-09-30 devnull 	image->clipr.min.x = atoi(info+8*12);
 91 76193d7c 2003-09-30 devnull 	image->clipr.min.y = atoi(info+9*12);
 92 76193d7c 2003-09-30 devnull 	image->clipr.max.x = atoi(info+10*12);
 93 76193d7c 2003-09-30 devnull 	image->clipr.max.y = atoi(info+11*12);
 94 76193d7c 2003-09-30 devnull 	return image;
 95 76193d7c 2003-09-30 devnull }
 96 76193d7c 2003-09-30 devnull 
 97 76193d7c 2003-09-30 devnull int
 98 76193d7c 2003-09-30 devnull getwindow(Display *d, int ref)
 99 76193d7c 2003-09-30 devnull {
100 76193d7c 2003-09-30 devnull 	Image *i;
101 76193d7c 2003-09-30 devnull 
102 76193d7c 2003-09-30 devnull 	freeimage(d->screenimage);
103 76193d7c 2003-09-30 devnull 	i = getimage0(d);
104 76193d7c 2003-09-30 devnull 	screen = d->screenimage = d->image = i;
105 76193d7c 2003-09-30 devnull 	return 0;
106 76193d7c 2003-09-30 devnull }
107 76193d7c 2003-09-30 devnull 
108 76193d7c 2003-09-30 devnull static int
109 76193d7c 2003-09-30 devnull xerror(XDisplay *d, XErrorEvent *e)
110 76193d7c 2003-09-30 devnull {
111 76193d7c 2003-09-30 devnull 	char buf[200];
112 76193d7c 2003-09-30 devnull 
113 76193d7c 2003-09-30 devnull 	print("X error: error_code=%d, request_code=%d, minor=%d\n",
114 76193d7c 2003-09-30 devnull 		e->error_code, e->request_code, e->minor_code);
115 76193d7c 2003-09-30 devnull 	XGetErrorText(d, e->error_code, buf, sizeof buf);
116 76193d7c 2003-09-30 devnull 	print("%s\n", buf);
117 76193d7c 2003-09-30 devnull 	return 0;
118 76193d7c 2003-09-30 devnull }
119 76193d7c 2003-09-30 devnull 
120 76193d7c 2003-09-30 devnull static int
121 76193d7c 2003-09-30 devnull xioerror(XDisplay *d)
122 76193d7c 2003-09-30 devnull {
123 76193d7c 2003-09-30 devnull 	print("X I/O error\n");
124 76193d7c 2003-09-30 devnull 	exit(1);
125 76193d7c 2003-09-30 devnull 	return -1;
126 76193d7c 2003-09-30 devnull }
127 76193d7c 2003-09-30 devnull 
128 76193d7c 2003-09-30 devnull 
129 76193d7c 2003-09-30 devnull static Memimage*
130 76193d7c 2003-09-30 devnull xattach(char *label)
131 76193d7c 2003-09-30 devnull {
132 76193d7c 2003-09-30 devnull 	char *argv[2], *disp;
133 76193d7c 2003-09-30 devnull 	int i, n, xrootid;
134 76193d7c 2003-09-30 devnull 	Rectangle r;
135 76193d7c 2003-09-30 devnull 	XClassHint classhint;
136 76193d7c 2003-09-30 devnull 	XDrawable pmid;
137 76193d7c 2003-09-30 devnull 	XPixmapFormatValues *pfmt;
138 76193d7c 2003-09-30 devnull 	XScreen *xscreen;
139 76193d7c 2003-09-30 devnull 	XSetWindowAttributes attr;
140 76193d7c 2003-09-30 devnull 	XSizeHints normalhint;
141 76193d7c 2003-09-30 devnull 	XTextProperty name;
142 76193d7c 2003-09-30 devnull 	XVisualInfo xvi;
143 76193d7c 2003-09-30 devnull 	XWindow xrootwin;
144 76193d7c 2003-09-30 devnull 	XWMHints hint;
145 76193d7c 2003-09-30 devnull 
146 76193d7c 2003-09-30 devnull 	/*
147 76193d7c 2003-09-30 devnull 	 * Connect to X server.
148 76193d7c 2003-09-30 devnull 	 */
149 76193d7c 2003-09-30 devnull 	_x.display = XOpenDisplay(NULL);
150 76193d7c 2003-09-30 devnull 	if(_x.display == nil){
151 76193d7c 2003-09-30 devnull 		disp = getenv("DISPLAY");
152 76193d7c 2003-09-30 devnull 		werrstr("XOpenDisplay %s: %r", disp ? disp : ":0");
153 76193d7c 2003-09-30 devnull 		free(disp);
154 76193d7c 2003-09-30 devnull 		return nil;
155 76193d7c 2003-09-30 devnull 	}
156 76193d7c 2003-09-30 devnull 	XSetErrorHandler(xerror);
157 76193d7c 2003-09-30 devnull 	XSetIOErrorHandler(xioerror);
158 76193d7c 2003-09-30 devnull 	xrootid = DefaultScreen(_x.display);
159 76193d7c 2003-09-30 devnull 	xrootwin = DefaultRootWindow(_x.display);
160 76193d7c 2003-09-30 devnull 
161 76193d7c 2003-09-30 devnull 	/* 
162 76193d7c 2003-09-30 devnull 	 * Figure out underlying screen format.
163 76193d7c 2003-09-30 devnull 	 */
164 76193d7c 2003-09-30 devnull 	_x.depth = DefaultDepth(_x.display, xrootid);
165 76193d7c 2003-09-30 devnull 	if(XMatchVisualInfo(_x.display, xrootid, 16, TrueColor, &xvi)
166 76193d7c 2003-09-30 devnull 	|| XMatchVisualInfo(_x.display, xrootid, 16, DirectColor, &xvi)){
167 76193d7c 2003-09-30 devnull 		_x.vis = xvi.visual;
168 76193d7c 2003-09-30 devnull 		_x.depth = 16;
169 76193d7c 2003-09-30 devnull 		_x.usetable = 1;
170 76193d7c 2003-09-30 devnull 	}
171 76193d7c 2003-09-30 devnull 	else
172 76193d7c 2003-09-30 devnull 	if(XMatchVisualInfo(_x.display, xrootid, 24, TrueColor, &xvi)
173 76193d7c 2003-09-30 devnull 	|| XMatchVisualInfo(_x.display, xrootid, 24, DirectColor, &xvi)){
174 76193d7c 2003-09-30 devnull 		_x.vis = xvi.visual;
175 76193d7c 2003-09-30 devnull 		_x.depth = 24;
176 76193d7c 2003-09-30 devnull 		_x.usetable = 1;
177 76193d7c 2003-09-30 devnull 	}
178 76193d7c 2003-09-30 devnull 	else
179 76193d7c 2003-09-30 devnull 	if(XMatchVisualInfo(_x.display, xrootid, 8, PseudoColor, &xvi)
180 76193d7c 2003-09-30 devnull 	|| XMatchVisualInfo(_x.display, xrootid, 8, StaticColor, &xvi)){
181 76193d7c 2003-09-30 devnull 		if(_x.depth > 8){
182 76193d7c 2003-09-30 devnull 			werrstr("can't deal with colormapped depth %d screens",
183 76193d7c 2003-09-30 devnull 				_x.depth);
184 76193d7c 2003-09-30 devnull 			goto err0;
185 76193d7c 2003-09-30 devnull 		}
186 76193d7c 2003-09-30 devnull 		_x.vis = xvi.visual;
187 76193d7c 2003-09-30 devnull 		_x.depth = 8;
188 76193d7c 2003-09-30 devnull 	}
189 76193d7c 2003-09-30 devnull 	else{
190 76193d7c 2003-09-30 devnull 		if(_x.depth != 8){
191 76193d7c 2003-09-30 devnull 			werrstr("can't understand depth %d screen", _x.depth);
192 76193d7c 2003-09-30 devnull 			goto err0;
193 76193d7c 2003-09-30 devnull 		}
194 76193d7c 2003-09-30 devnull 		_x.vis = DefaultVisual(_x.display, xrootid);
195 76193d7c 2003-09-30 devnull 	}
196 76193d7c 2003-09-30 devnull 
197 76193d7c 2003-09-30 devnull 	/*
198 76193d7c 2003-09-30 devnull 	 * _x.depth is only the number of significant pixel bits,
199 76193d7c 2003-09-30 devnull 	 * not the total number of pixel bits.  We need to walk the
200 76193d7c 2003-09-30 devnull 	 * display list to find how many actual bits are used
201 76193d7c 2003-09-30 devnull 	 * per pixel.
202 76193d7c 2003-09-30 devnull 	 */
203 76193d7c 2003-09-30 devnull 	_x.chan = 0;
204 76193d7c 2003-09-30 devnull 	pfmt = XListPixmapFormats(_x.display, &n);
205 76193d7c 2003-09-30 devnull 	for(i=0; i<n; i++){
206 76193d7c 2003-09-30 devnull 		if(pfmt[i].depth == _x.depth){
207 76193d7c 2003-09-30 devnull 			switch(pfmt[i].bits_per_pixel){
208 76193d7c 2003-09-30 devnull 			case 1:	/* untested */
209 76193d7c 2003-09-30 devnull 				_x.chan = GREY1;
210 76193d7c 2003-09-30 devnull 				break;
211 76193d7c 2003-09-30 devnull 			case 2:	/* untested */
212 76193d7c 2003-09-30 devnull 				_x.chan = GREY2;
213 76193d7c 2003-09-30 devnull 				break;
214 76193d7c 2003-09-30 devnull 			case 4:	/* untested */
215 76193d7c 2003-09-30 devnull 				_x.chan = GREY4;
216 76193d7c 2003-09-30 devnull 				break;
217 76193d7c 2003-09-30 devnull 			case 8:
218 76193d7c 2003-09-30 devnull 				_x.chan = CMAP8;
219 76193d7c 2003-09-30 devnull 				break;
220 76193d7c 2003-09-30 devnull 			case 16: /* how to tell RGB15? */
221 76193d7c 2003-09-30 devnull 				_x.chan = RGB16;
222 76193d7c 2003-09-30 devnull 				break;
223 76193d7c 2003-09-30 devnull 			case 24: /* untested (impossible?) */
224 76193d7c 2003-09-30 devnull 				_x.chan = RGB24;
225 76193d7c 2003-09-30 devnull 				break;
226 76193d7c 2003-09-30 devnull 			case 32:
227 76193d7c 2003-09-30 devnull 				_x.chan = XRGB32;
228 76193d7c 2003-09-30 devnull 				break;
229 76193d7c 2003-09-30 devnull 			}
230 76193d7c 2003-09-30 devnull 		}
231 76193d7c 2003-09-30 devnull 	}
232 76193d7c 2003-09-30 devnull 	if(_x.chan == 0){
233 76193d7c 2003-09-30 devnull 		werrstr("could not determine screen pixel format");
234 76193d7c 2003-09-30 devnull 		goto err0;
235 76193d7c 2003-09-30 devnull 	}
236 76193d7c 2003-09-30 devnull 
237 76193d7c 2003-09-30 devnull 	/*
238 76193d7c 2003-09-30 devnull 	 * Set up color map if necessary.
239 76193d7c 2003-09-30 devnull 	 */
240 76193d7c 2003-09-30 devnull 	xscreen = DefaultScreenOfDisplay(_x.display);
241 76193d7c 2003-09-30 devnull 	_x.cmap = DefaultColormapOfScreen(xscreen);
242 76193d7c 2003-09-30 devnull 	if(_x.vis->class != StaticColor){
243 76193d7c 2003-09-30 devnull 		plan9cmap();
244 76193d7c 2003-09-30 devnull 		setupcmap(xrootwin);
245 76193d7c 2003-09-30 devnull 	}
246 76193d7c 2003-09-30 devnull 
247 76193d7c 2003-09-30 devnull 	/*
248 76193d7c 2003-09-30 devnull 	 * We get to choose the initial rectangle size.
249 76193d7c 2003-09-30 devnull 	 * This is arbitrary.  In theory we should read the
250 76193d7c 2003-09-30 devnull 	 * command line and allow the traditional X options.
251 76193d7c 2003-09-30 devnull 	 */
252 76193d7c 2003-09-30 devnull 	r = Rect(0, 0, WidthOfScreen(xscreen)*3/4,
253 76193d7c 2003-09-30 devnull 			HeightOfScreen(xscreen)*3/4);
254 76193d7c 2003-09-30 devnull 
255 76193d7c 2003-09-30 devnull 	memset(&attr, 0, sizeof attr);
256 76193d7c 2003-09-30 devnull 	attr.colormap = _x.cmap;
257 76193d7c 2003-09-30 devnull 	attr.background_pixel = 0;
258 76193d7c 2003-09-30 devnull 	attr.border_pixel = 0;
259 76193d7c 2003-09-30 devnull 	_x.drawable = XCreateWindow(
260 76193d7c 2003-09-30 devnull 		_x.display,	/* display */
261 76193d7c 2003-09-30 devnull 		xrootwin,	/* parent */
262 76193d7c 2003-09-30 devnull 		0,		/* x */
263 76193d7c 2003-09-30 devnull 		0,		/* y */
264 76193d7c 2003-09-30 devnull 		Dx(r),		/* width */
265 76193d7c 2003-09-30 devnull 	 	Dy(r),		/* height */
266 76193d7c 2003-09-30 devnull 		0,		/* border width */
267 76193d7c 2003-09-30 devnull 		_x.depth,	/* depth */
268 76193d7c 2003-09-30 devnull 		InputOutput,	/* class */
269 76193d7c 2003-09-30 devnull 		_x.vis,		/* visual */
270 76193d7c 2003-09-30 devnull 				/* valuemask */
271 76193d7c 2003-09-30 devnull 		CWBackPixel|CWBorderPixel|CWColormap,
272 76193d7c 2003-09-30 devnull 		&attr		/* attributes (the above aren't?!) */
273 76193d7c 2003-09-30 devnull 	);
274 76193d7c 2003-09-30 devnull 
275 76193d7c 2003-09-30 devnull 	/*
276 76193d7c 2003-09-30 devnull 	 * Label and other properties required by ICCCCM.
277 76193d7c 2003-09-30 devnull 	 */
278 76193d7c 2003-09-30 devnull 	memset(&name, 0, sizeof name);
279 76193d7c 2003-09-30 devnull 	if(label == nil)
280 76193d7c 2003-09-30 devnull 		label = "pjw-face-here";
281 76193d7c 2003-09-30 devnull 	name.value = (uchar*)label;
282 76193d7c 2003-09-30 devnull 	name.encoding = XA_STRING;
283 76193d7c 2003-09-30 devnull 	name.format = 8;
284 76193d7c 2003-09-30 devnull 	name.nitems = strlen(name.value);
285 76193d7c 2003-09-30 devnull 
286 76193d7c 2003-09-30 devnull 	memset(&normalhint, 0, sizeof normalhint);
287 76193d7c 2003-09-30 devnull 	normalhint.flags = USSize|PMaxSize;
288 76193d7c 2003-09-30 devnull 	normalhint.max_width = WidthOfScreen(xscreen);
289 76193d7c 2003-09-30 devnull 	normalhint.max_height = HeightOfScreen(xscreen);
290 76193d7c 2003-09-30 devnull 
291 76193d7c 2003-09-30 devnull 	memset(&hint, 0, sizeof hint);
292 76193d7c 2003-09-30 devnull 	hint.flags = InputHint|StateHint;
293 76193d7c 2003-09-30 devnull 	hint.input = 1;
294 76193d7c 2003-09-30 devnull 	hint.initial_state = NormalState;
295 76193d7c 2003-09-30 devnull 
296 76193d7c 2003-09-30 devnull 	memset(&classhint, 0, sizeof classhint);
297 76193d7c 2003-09-30 devnull 	classhint.res_name = label;
298 76193d7c 2003-09-30 devnull 	classhint.res_class = label;
299 76193d7c 2003-09-30 devnull 
300 76193d7c 2003-09-30 devnull 	argv[0] = label;
301 76193d7c 2003-09-30 devnull 	argv[1] = nil;
302 76193d7c 2003-09-30 devnull 
303 76193d7c 2003-09-30 devnull 	XSetWMProperties(
304 76193d7c 2003-09-30 devnull 		_x.display,	/* display */
305 76193d7c 2003-09-30 devnull 		_x.drawable,	/* window */
306 76193d7c 2003-09-30 devnull 		&name,		/* XA_WM_NAME property */
307 76193d7c 2003-09-30 devnull 		&name,		/* XA_WM_ICON_NAME property */
308 76193d7c 2003-09-30 devnull 		argv,		/* XA_WM_COMMAND */
309 76193d7c 2003-09-30 devnull 		1,		/* argc */
310 76193d7c 2003-09-30 devnull 		&normalhint,	/* XA_WM_NORMAL_HINTS */
311 76193d7c 2003-09-30 devnull 		&hint,		/* XA_WM_HINTS */
312 76193d7c 2003-09-30 devnull 		&classhint	/* XA_WM_CLASSHINTS */
313 76193d7c 2003-09-30 devnull 	);
314 76193d7c 2003-09-30 devnull 	XFlush(_x.display);
315 76193d7c 2003-09-30 devnull 
316 76193d7c 2003-09-30 devnull 	/*
317 76193d7c 2003-09-30 devnull 	 * Allocate our local backing store.
318 76193d7c 2003-09-30 devnull 	 */
319 76193d7c 2003-09-30 devnull 	_x.screenr = r;
320 76193d7c 2003-09-30 devnull 	_x.screenpm = XCreatePixmap(_x.display, _x.drawable, Dx(r), Dy(r), _x.depth);
321 76193d7c 2003-09-30 devnull 	_x.screenimage = xallocmemimage(r, _x.chan, _x.screenpm);
322 76193d7c 2003-09-30 devnull 
323 76193d7c 2003-09-30 devnull 	/*
324 76193d7c 2003-09-30 devnull 	 * Allocate some useful graphics contexts for the future.
325 76193d7c 2003-09-30 devnull 	 */
326 76193d7c 2003-09-30 devnull 	_x.gcfill	= xgc(_x.screenpm, FillSolid, -1);
327 76193d7c 2003-09-30 devnull 	_x.gccopy	= xgc(_x.screenpm, -1, -1);
328 76193d7c 2003-09-30 devnull 	_x.gcsimplesrc 	= xgc(_x.screenpm, FillStippled, -1);
329 76193d7c 2003-09-30 devnull 	_x.gczero	= xgc(_x.screenpm, -1, -1);
330 76193d7c 2003-09-30 devnull 	_x.gcreplsrc	= xgc(_x.screenpm, FillTiled, -1);
331 76193d7c 2003-09-30 devnull 
332 76193d7c 2003-09-30 devnull 	pmid = XCreatePixmap(_x.display, _x.drawable, 1, 1, 1);
333 76193d7c 2003-09-30 devnull 	_x.gcfill0	= xgc(pmid, FillSolid, 0);
334 76193d7c 2003-09-30 devnull 	_x.gccopy0	= xgc(pmid, -1, -1);
335 76193d7c 2003-09-30 devnull 	_x.gcsimplesrc0	= xgc(pmid, FillStippled, -1);
336 76193d7c 2003-09-30 devnull 	_x.gczero0	= xgc(pmid, -1, -1);
337 76193d7c 2003-09-30 devnull 	_x.gcreplsrc0	= xgc(pmid, FillTiled, -1);
338 76193d7c 2003-09-30 devnull 	XFreePixmap(_x.display, pmid);
339 76193d7c 2003-09-30 devnull 
340 76193d7c 2003-09-30 devnull 	/*
341 76193d7c 2003-09-30 devnull 	 * Put the window on the screen.
342 76193d7c 2003-09-30 devnull 	 */
343 76193d7c 2003-09-30 devnull 	XMapWindow(_x.display, _x.drawable);
344 76193d7c 2003-09-30 devnull 	XFlush(_x.display);
345 76193d7c 2003-09-30 devnull 
346 76193d7c 2003-09-30 devnull 	/*
347 76193d7c 2003-09-30 devnull 	 * Lots of display connections for various threads.
348 76193d7c 2003-09-30 devnull 	 */
349 76193d7c 2003-09-30 devnull 	_x.kbdcon	= XOpenDisplay(NULL);
350 76193d7c 2003-09-30 devnull 	_x.mousecon	= XOpenDisplay(NULL);
351 76193d7c 2003-09-30 devnull 	_x.snarfcon	= XOpenDisplay(NULL);
352 76193d7c 2003-09-30 devnull 
353 76193d7c 2003-09-30 devnull 	_x.black	= xscreen->black_pixel;
354 76193d7c 2003-09-30 devnull 	_x.white	= xscreen->white_pixel;
355 76193d7c 2003-09-30 devnull 
356 76193d7c 2003-09-30 devnull 	return _x.screenimage;
357 76193d7c 2003-09-30 devnull 
358 76193d7c 2003-09-30 devnull err0:
359 76193d7c 2003-09-30 devnull 	/*
360 76193d7c 2003-09-30 devnull 	 * Should do a better job of cleaning up here.
361 76193d7c 2003-09-30 devnull 	 */
362 76193d7c 2003-09-30 devnull 	XCloseDisplay(_x.display);
363 76193d7c 2003-09-30 devnull 	return nil;
364 76193d7c 2003-09-30 devnull }
365 76193d7c 2003-09-30 devnull 
366 76193d7c 2003-09-30 devnull /*
367 76193d7c 2003-09-30 devnull  * Create a GC with a particular fill style and XXX.
368 76193d7c 2003-09-30 devnull  * Disable generation of GraphicsExpose/NoExpose events in the GC.
369 76193d7c 2003-09-30 devnull  */
370 76193d7c 2003-09-30 devnull static XGC
371 76193d7c 2003-09-30 devnull xgc(XDrawable d, int fillstyle, int foreground)
372 76193d7c 2003-09-30 devnull {
373 76193d7c 2003-09-30 devnull 	XGC gc;
374 76193d7c 2003-09-30 devnull 	XGCValues v;
375 76193d7c 2003-09-30 devnull 
376 76193d7c 2003-09-30 devnull 	memset(&v, 0, sizeof v);
377 76193d7c 2003-09-30 devnull 	v.function = GXcopy;
378 76193d7c 2003-09-30 devnull 	v.graphics_exposures = False;
379 76193d7c 2003-09-30 devnull 	gc = XCreateGC(_x.display, d, GCFunction|GCGraphicsExposures, &v);
380 76193d7c 2003-09-30 devnull 	if(fillstyle != -1)
381 76193d7c 2003-09-30 devnull 		XSetFillStyle(_x.display, gc, fillstyle);
382 76193d7c 2003-09-30 devnull 	if(foreground != -1)
383 76193d7c 2003-09-30 devnull 		XSetForeground(_x.display, gc, 0);
384 76193d7c 2003-09-30 devnull 	return gc;
385 76193d7c 2003-09-30 devnull }
386 76193d7c 2003-09-30 devnull 
387 76193d7c 2003-09-30 devnull 
388 76193d7c 2003-09-30 devnull /*
389 76193d7c 2003-09-30 devnull  * Initialize map with the Plan 9 rgbv color map.
390 76193d7c 2003-09-30 devnull  */
391 76193d7c 2003-09-30 devnull static void
392 76193d7c 2003-09-30 devnull plan9cmap(void)
393 76193d7c 2003-09-30 devnull {
394 76193d7c 2003-09-30 devnull 	int r, g, b, cr, cg, cb, v, num, den, idx, v7, idx7;
395 76193d7c 2003-09-30 devnull 	static int once;
396 76193d7c 2003-09-30 devnull 
397 76193d7c 2003-09-30 devnull 	if(once)
398 76193d7c 2003-09-30 devnull 		return;
399 76193d7c 2003-09-30 devnull 	once = 1;
400 76193d7c 2003-09-30 devnull 
401 76193d7c 2003-09-30 devnull 	for(r=0; r!=4; r++)
402 76193d7c 2003-09-30 devnull 	for(g = 0; g != 4; g++)
403 76193d7c 2003-09-30 devnull 	for(b = 0; b!=4; b++)
404 76193d7c 2003-09-30 devnull 	for(v = 0; v!=4; v++){
405 76193d7c 2003-09-30 devnull 		den=r;
406 76193d7c 2003-09-30 devnull 		if(g > den)
407 76193d7c 2003-09-30 devnull 			den=g;
408 76193d7c 2003-09-30 devnull 		if(b > den)
409 76193d7c 2003-09-30 devnull 			den=b;
410 76193d7c 2003-09-30 devnull 		/* divide check -- pick grey shades */
411 76193d7c 2003-09-30 devnull 		if(den==0)
412 76193d7c 2003-09-30 devnull 			cr=cg=cb=v*17;
413 76193d7c 2003-09-30 devnull 		else {
414 76193d7c 2003-09-30 devnull 			num=17*(4*den+v);
415 76193d7c 2003-09-30 devnull 			cr=r*num/den;
416 76193d7c 2003-09-30 devnull 			cg=g*num/den;
417 76193d7c 2003-09-30 devnull 			cb=b*num/den;
418 76193d7c 2003-09-30 devnull 		}
419 76193d7c 2003-09-30 devnull 		idx = r*64 + v*16 + ((g*4 + b + v - r) & 15);
420 76193d7c 2003-09-30 devnull 		_x.map[idx].red = cr*0x0101;
421 76193d7c 2003-09-30 devnull 		_x.map[idx].green = cg*0x0101;
422 76193d7c 2003-09-30 devnull 		_x.map[idx].blue = cb*0x0101;
423 76193d7c 2003-09-30 devnull 		_x.map[idx].pixel = idx;
424 76193d7c 2003-09-30 devnull 		_x.map[idx].flags = DoRed|DoGreen|DoBlue;
425 76193d7c 2003-09-30 devnull 
426 76193d7c 2003-09-30 devnull 		v7 = v >> 1;
427 76193d7c 2003-09-30 devnull 		idx7 = r*32 + v7*16 + g*4 + b;
428 76193d7c 2003-09-30 devnull 		if((v & 1) == v7){
429 76193d7c 2003-09-30 devnull 			_x.map7to8[idx7][0] = idx;
430 76193d7c 2003-09-30 devnull 			if(den == 0) { 		/* divide check -- pick grey shades */
431 76193d7c 2003-09-30 devnull 				cr = ((255.0/7.0)*v7)+0.5;
432 76193d7c 2003-09-30 devnull 				cg = cr;
433 76193d7c 2003-09-30 devnull 				cb = cr;
434 76193d7c 2003-09-30 devnull 			}
435 76193d7c 2003-09-30 devnull 			else {
436 76193d7c 2003-09-30 devnull 				num=17*15*(4*den+v7*2)/14;
437 76193d7c 2003-09-30 devnull 				cr=r*num/den;
438 76193d7c 2003-09-30 devnull 				cg=g*num/den;
439 76193d7c 2003-09-30 devnull 				cb=b*num/den;
440 76193d7c 2003-09-30 devnull 			}
441 76193d7c 2003-09-30 devnull 			_x.map7[idx7].red = cr*0x0101;
442 76193d7c 2003-09-30 devnull 			_x.map7[idx7].green = cg*0x0101;
443 76193d7c 2003-09-30 devnull 			_x.map7[idx7].blue = cb*0x0101;
444 76193d7c 2003-09-30 devnull 			_x.map7[idx7].pixel = idx7;
445 76193d7c 2003-09-30 devnull 			_x.map7[idx7].flags = DoRed|DoGreen|DoBlue;
446 76193d7c 2003-09-30 devnull 		}
447 76193d7c 2003-09-30 devnull 		else
448 76193d7c 2003-09-30 devnull 			_x.map7to8[idx7][1] = idx;
449 76193d7c 2003-09-30 devnull 	}
450 76193d7c 2003-09-30 devnull }
451 76193d7c 2003-09-30 devnull 
452 76193d7c 2003-09-30 devnull /*
453 76193d7c 2003-09-30 devnull  * Initialize and install the rgbv color map as a private color map
454 76193d7c 2003-09-30 devnull  * for this application.  It gets the best colors when it has the
455 76193d7c 2003-09-30 devnull  * cursor focus.
456 76193d7c 2003-09-30 devnull  */
457 76193d7c 2003-09-30 devnull static int 
458 76193d7c 2003-09-30 devnull setupcmap(XWindow w)
459 76193d7c 2003-09-30 devnull {
460 76193d7c 2003-09-30 devnull 	char buf[30];
461 76193d7c 2003-09-30 devnull 	int i;
462 76193d7c 2003-09-30 devnull 	u32int p, pp;
463 76193d7c 2003-09-30 devnull 	XColor c;
464 76193d7c 2003-09-30 devnull 
465 76193d7c 2003-09-30 devnull 	if(_x.depth <= 1)
466 76193d7c 2003-09-30 devnull 		return 0;
467 76193d7c 2003-09-30 devnull 
468 76193d7c 2003-09-30 devnull 	if(_x.depth >= 24) {
469 76193d7c 2003-09-30 devnull 		/*
470 76193d7c 2003-09-30 devnull 		 * The pixel value returned from XGetPixel needs to
471 76193d7c 2003-09-30 devnull 		 * be converted to RGB so we can call rgb2cmap()
472 76193d7c 2003-09-30 devnull 		 * to translate between 24 bit X and our color. Unfortunately,
473 76193d7c 2003-09-30 devnull 		 * the return value appears to be display server endian 
474 76193d7c 2003-09-30 devnull 		 * dependant. Therefore, we run some heuristics to later
475 76193d7c 2003-09-30 devnull 		 * determine how to mask the int value correctly.
476 76193d7c 2003-09-30 devnull 		 * Yeah, I know we can look at _x.vis->byte_order but 
477 76193d7c 2003-09-30 devnull 		 * some displays say MSB even though they run on LSB.
478 76193d7c 2003-09-30 devnull 		 * Besides, this is more anal.
479 76193d7c 2003-09-30 devnull 		 */
480 76193d7c 2003-09-30 devnull 
481 76193d7c 2003-09-30 devnull 		c = _x.map[19];	/* known to have different R, G, B values */
482 76193d7c 2003-09-30 devnull 		if(!XAllocColor(_x.display, _x.cmap, &c)){
483 76193d7c 2003-09-30 devnull 			werrstr("XAllocColor: %r");
484 76193d7c 2003-09-30 devnull 			return -1;
485 76193d7c 2003-09-30 devnull 		}
486 76193d7c 2003-09-30 devnull 		p  = c.pixel;
487 76193d7c 2003-09-30 devnull 		pp = rgb2cmap((p>>16)&0xff,(p>>8)&0xff,p&0xff);
488 76193d7c 2003-09-30 devnull 		if(pp != _x.map[19].pixel) {
489 76193d7c 2003-09-30 devnull 			/* check if endian is other way */
490 76193d7c 2003-09-30 devnull 			pp = rgb2cmap(p&0xff,(p>>8)&0xff,(p>>16)&0xff);
491 76193d7c 2003-09-30 devnull 			if(pp != _x.map[19].pixel){
492 76193d7c 2003-09-30 devnull 				werrstr("cannot detect X server byte order");
493 76193d7c 2003-09-30 devnull 				return -1;
494 76193d7c 2003-09-30 devnull 			}
495 76193d7c 2003-09-30 devnull 
496 76193d7c 2003-09-30 devnull 			switch(_x.chan){
497 76193d7c 2003-09-30 devnull 			case RGB24:
498 76193d7c 2003-09-30 devnull 				_x.chan = BGR24;
499 76193d7c 2003-09-30 devnull 				break;
500 76193d7c 2003-09-30 devnull 			case XRGB32:
501 76193d7c 2003-09-30 devnull 				_x.chan = XBGR32;
502 76193d7c 2003-09-30 devnull 				break;
503 76193d7c 2003-09-30 devnull 			default:
504 76193d7c 2003-09-30 devnull 				werrstr("cannot byteswap channel %s",
505 76193d7c 2003-09-30 devnull 					chantostr(buf, _x.chan));
506 76193d7c 2003-09-30 devnull 				break;
507 76193d7c 2003-09-30 devnull 			}
508 76193d7c 2003-09-30 devnull 		}
509 76193d7c 2003-09-30 devnull 	}else if(_x.vis->class == TrueColor || _x.vis->class == DirectColor){
510 76193d7c 2003-09-30 devnull 		/*
511 76193d7c 2003-09-30 devnull 		 * Do nothing.  We have no way to express a
512 76193d7c 2003-09-30 devnull 		 * mixed-endian 16-bit screen, so pretend they don't exist.
513 76193d7c 2003-09-30 devnull 		 */
514 76193d7c 2003-09-30 devnull 	}else if(_x.vis->class == PseudoColor){
515 76193d7c 2003-09-30 devnull 		if(_x.usetable == 0){
516 76193d7c 2003-09-30 devnull 			_x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocAll); 
517 76193d7c 2003-09-30 devnull 			XStoreColors(_x.display, _x.cmap, _x.map, 256);
518 76193d7c 2003-09-30 devnull 			for(i = 0; i < 256; i++){
519 76193d7c 2003-09-30 devnull 				_x.tox11[i] = i;
520 76193d7c 2003-09-30 devnull 				_x.toplan9[i] = i;
521 76193d7c 2003-09-30 devnull 			}
522 76193d7c 2003-09-30 devnull 		}else{
523 76193d7c 2003-09-30 devnull 			for(i = 0; i < 128; i++){
524 76193d7c 2003-09-30 devnull 				c = _x.map7[i];
525 76193d7c 2003-09-30 devnull 				if(!XAllocColor(_x.display, _x.cmap, &c)){
526 76193d7c 2003-09-30 devnull 					werrstr("can't allocate colors in 7-bit map");
527 76193d7c 2003-09-30 devnull 					return -1;
528 76193d7c 2003-09-30 devnull 				}
529 76193d7c 2003-09-30 devnull 				_x.tox11[_x.map7to8[i][0]] = c.pixel;
530 76193d7c 2003-09-30 devnull 				_x.tox11[_x.map7to8[i][1]] = c.pixel;
531 76193d7c 2003-09-30 devnull 				_x.toplan9[c.pixel] = _x.map7to8[i][0];
532 76193d7c 2003-09-30 devnull 			}
533 76193d7c 2003-09-30 devnull 		}
534 76193d7c 2003-09-30 devnull 	}else{
535 76193d7c 2003-09-30 devnull 		werrstr("unsupported visual class %d", _x.vis->class);
536 76193d7c 2003-09-30 devnull 		return -1;
537 76193d7c 2003-09-30 devnull 	}
538 76193d7c 2003-09-30 devnull 	return 0;
539 76193d7c 2003-09-30 devnull }
540 76193d7c 2003-09-30 devnull 
541 76193d7c 2003-09-30 devnull void
542 76193d7c 2003-09-30 devnull flushmemscreen(Rectangle r)
543 76193d7c 2003-09-30 devnull {
544 76193d7c 2003-09-30 devnull 	if(r.min.x >= r.max.x || r.min.y >= r.max.y)
545 76193d7c 2003-09-30 devnull 		return;
546 76193d7c 2003-09-30 devnull 	XCopyArea(_x.display, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
547 76193d7c 2003-09-30 devnull 		Dx(r), Dy(r), r.min.x, r.min.y);
548 76193d7c 2003-09-30 devnull 	XFlush(_x.display);
549 76193d7c 2003-09-30 devnull }
550 76193d7c 2003-09-30 devnull 
551 76193d7c 2003-09-30 devnull void
552 76193d7c 2003-09-30 devnull xexpose(XEvent *e, XDisplay *xd)
553 76193d7c 2003-09-30 devnull {
554 76193d7c 2003-09-30 devnull 	XExposeEvent *xe;
555 76193d7c 2003-09-30 devnull 	Rectangle r;
556 76193d7c 2003-09-30 devnull 
557 76193d7c 2003-09-30 devnull 	xe = (XExposeEvent*)e;
558 76193d7c 2003-09-30 devnull 	r.min.x = xe->x;
559 76193d7c 2003-09-30 devnull 	r.min.y = xe->y;
560 76193d7c 2003-09-30 devnull 	r.max.x = xe->x+xe->width;
561 76193d7c 2003-09-30 devnull 	r.max.y = xe->y+xe->height;
562 76193d7c 2003-09-30 devnull 	XCopyArea(xd, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
563 76193d7c 2003-09-30 devnull 		Dx(r), Dy(r), r.min.x, r.min.y);
564 76193d7c 2003-09-30 devnull 	XFlush(xd);
565 76193d7c 2003-09-30 devnull }
566 76193d7c 2003-09-30 devnull 
567 76193d7c 2003-09-30 devnull int
568 76193d7c 2003-09-30 devnull xconfigure(XEvent *e, XDisplay *xd)
569 76193d7c 2003-09-30 devnull {
570 76193d7c 2003-09-30 devnull 	Memimage *m;
571 76193d7c 2003-09-30 devnull 	XConfigureEvent *xe = (XConfigureEvent*)e;
572 76193d7c 2003-09-30 devnull 	XDrawable pixmap;
573 76193d7c 2003-09-30 devnull 
574 76193d7c 2003-09-30 devnull 	if(xe->width == Dx(_x.screenr) && xe->height == Dy(_x.screenr))
575 76193d7c 2003-09-30 devnull 		return 0;
576 76193d7c 2003-09-30 devnull 	
577 76193d7c 2003-09-30 devnull 	pixmap = XCreatePixmap(xd, _x.drawable, xe->width, xe->height, _x.depth);
578 76193d7c 2003-09-30 devnull 	m = xallocmemimage(Rect(0, 0, xe->width, xe->height), _x.chan, pixmap);
579 76193d7c 2003-09-30 devnull 	_x.screenpm = pixmap;
580 76193d7c 2003-09-30 devnull 	_x.screenr = Rect(0, 0, xe->width, xe->height);
581 76193d7c 2003-09-30 devnull 	_drawreplacescreenimage(m);
582 76193d7c 2003-09-30 devnull 	return 1;
583 76193d7c 2003-09-30 devnull }
584 76193d7c 2003-09-30 devnull