op public repos

Blob

Date:: Wed Jan 26 04:02:26 2005 UTC
Message:: handle @ better in winsize
Actions:: History | Blame | Raw File
1 /*
2  * Some of the stuff in this file is not X-dependent and should be elsewhere.
3  */
4 #include <u.h>
5 #include "x11-inc.h"
6 #include <libc.h>
7 #include <draw.h>
8 #include <memdraw.h>
9 #include <keyboard.h>
10 #include <mouse.h>
11 #include <cursor.h>
12 #include "x11-memdraw.h"
13 
14 char *winsize;
15 static int parsewinsize(char*, Rectangle*, int*);
16 
17 static Memimage	*xattach(char*);
18 static void	plan9cmap(void);
19 static int	setupcmap(XWindow);
20 static int	xreplacescreenimage(void);
21 static XGC	xgc(XDrawable, int, int);
22 static Image	*getimage0(Display*, Image*);
23 
24 Xprivate _x;
25 
26 Display*
27 _initdisplay(void (*error)(Display*, char*), char *label)
28 {
29 	Display *d;
30 	Memimage *m;
31 
32 	/*
33 	 * This rfork(RFNOTEG) isn't exactly right,
34 	 * but we need some way to signal window 
35 	 * closes.  Right now we post a hangup
36 	 * note to the note group, which kills a whole
37 	 * lot more than just the current program
38 	 * if we don't do this.
39 	 */
40 	/*
41 	 * Actually, I don't know what I changed but
42 	 * this appears not to be necessary anymore.
43 	 * I'll regret this probably.
44 	rfork(RFNOTEG);
45 	*/
46 	memimageinit();
47 
48 	d = mallocz(sizeof(Display), 1);
49 	if(d == nil)
50 		return nil;
51 
52 	d->buf = malloc(16000+5);
53 	d->obuf = malloc(16000);
54 	if(d->buf == nil || d->obuf == nil){
55 		free(d->buf);
56 		free(d->obuf);
57 		free(d);
58 		return nil;
59 	}
60 	d->bufsize = 16000;
61 	d->obufsize = 16000;
62 	d->bufp = d->buf;
63 	d->obufp = d->obuf;
64 
65 	m = xattach(label);
66 	if(m == nil){
67 		free(d);
68 		return nil;
69 	}
70 
71 	d->error = error;
72 	_initdisplaymemimage(d, m);
73 	d->screenimage = getimage0(d, 0);
74 	return d;
75 }
76 
77 static Image*
78 getimage0(Display *d, Image *image)
79 {
80 	char info[12*12+1];
81 	uchar *a;
82 	int n;
83 	extern int _freeimage1(Image*);
84 
85 	/*
86 	 * If there's an old screen, it has id 0.  The 'J' request below
87 	 * will try to install the new screen as id 0, so the old one 
88 	 * must be freed first.
89 	 */
90 	if(image){
91 		_freeimage1(image);
92 		memset(image, 0, sizeof(Image));
93 	}
94 
95 	a = bufimage(d, 2);
96 	a[0] = 'J';
97 	a[1] = 'I';
98 	if(flushimage(d, 0) < 0){
99 		fprint(2, "cannot read screen info: %r\n");
100 		abort();
101 	}
102 
103 	n = _drawmsgread(d, info, sizeof info);
104 	if(n != 12*12){
105 		fprint(2, "short screen info\n");
106 		abort();
107 	}
108 
109 	if(image == nil){
110 		image = mallocz(sizeof(Image), 1);
111 		if(image == nil){
112 			fprint(2, "cannot allocate image: %r\n");
113 			abort();
114 		}
115 	}
116 
117 	image->display = d;
118 	image->id = 0;
119 	image->chan = strtochan(info+2*12);
120 	image->depth = chantodepth(image->chan);
121 	image->repl = atoi(info+3*12);
122 	image->r.min.x = atoi(info+4*12);
123 	image->r.min.y = atoi(info+5*12);
124 	image->r.max.x = atoi(info+6*12);
125 	image->r.max.y = atoi(info+7*12);
126 	image->clipr.min.x = atoi(info+8*12);
127 	image->clipr.min.y = atoi(info+9*12);
128 	image->clipr.max.x = atoi(info+10*12);
129 	image->clipr.max.y = atoi(info+11*12);
130 	return image;
131 }
132 
133 int
134 getwindow(Display *d, int ref)
135 {
136 	Image *i;
137 	Image *oi;
138 
139 	if(_x.destroyed)
140 		postnote(PNGROUP, getpgrp(), "hangup");
141 	if(xreplacescreenimage() == 0)
142 		return 0;
143 
144 	/*
145 	 * Libdraw promises not to change the value of "screen",
146 	 * so we have to reuse the image structure
147 	 * memory we already have.
148 	 */
149 	oi = d->screenimage;
150 	i = getimage0(d, oi);
151 	screen = d->screenimage = d->image = i;
152 	// fprint(2, "getwindow %p -> %p\n", oi, i);
153 	return 0;
154 }
155 
156 static int
157 xerror(XDisplay *d, XErrorEvent *e)
158 {
159 	char buf[200];
160 
161 	if(e->request_code == 42) /* XSetInputFocus */
162 		return 0;
163 	if(e->request_code == 18) /* XChangeProperty */
164 		return 0;
165 
166 	print("X error: error_code=%d, request_code=%d, minor=%d disp=%p\n",
167 		e->error_code, e->request_code, e->minor_code, d);
168 	XGetErrorText(d, e->error_code, buf, sizeof buf);
169 	print("%s\n", buf);
170 	return 0;
171 }
172 
173 static int
174 xioerror(XDisplay *d)
175 {
176 	//print("X I/O error\n");
177 	sysfatal("X I/O error\n");
178 	abort();
179 	return -1;
180 }
181 
182 
183 static Memimage*
184 xattach(char *label)
185 {
186 	char *argv[2], *disp;
187 	int i, havemin, height, mask, n, width, x, xrootid, y;
188 	Rectangle r;
189 	XClassHint classhint;
190 	XDrawable pmid;
191 	XPixmapFormatValues *pfmt;
192 	XScreen *xscreen;
193 	XSetWindowAttributes attr;
194 	XSizeHints normalhint;
195 	XTextProperty name;
196 	XVisualInfo xvi;
197 	XWindow xrootwin;
198 	XWindowAttributes wattr;
199 	XWMHints hint;
200 	Atom atoms[2];
201 
202 	/*
203 	if(XInitThreads() == 0){
204 		fprint(2, "XInitThreads failed\n");
205 		abort();
206 	}
207 	*/
208 
209 	/*
210 	 * Connect to X server.
211 	 */
212 	_x.display = XOpenDisplay(NULL);
213 	if(_x.display == nil){
214 		disp = getenv("DISPLAY");
215 		werrstr("XOpenDisplay %s: %r", disp ? disp : ":0");
216 		free(disp);
217 		return nil;
218 	}
219 	XSetErrorHandler(xerror);
220 	XSetIOErrorHandler(xioerror);
221 	xrootid = DefaultScreen(_x.display);
222 	xrootwin = DefaultRootWindow(_x.display);
223 
224 	/* 
225 	 * Figure out underlying screen format.
226 	 */
227 	if(XMatchVisualInfo(_x.display, xrootid, 16, TrueColor, &xvi)
228 	|| XMatchVisualInfo(_x.display, xrootid, 16, DirectColor, &xvi)){
229 		_x.vis = xvi.visual;
230 		_x.depth = 16;
231 	}
232 	else
233 	if(XMatchVisualInfo(_x.display, xrootid, 15, TrueColor, &xvi)
234 	|| XMatchVisualInfo(_x.display, xrootid, 15, DirectColor, &xvi)){
235 		_x.vis = xvi.visual;
236 		_x.depth = 15;
237 	}
238 	else
239 	if(XMatchVisualInfo(_x.display, xrootid, 24, TrueColor, &xvi)
240 	|| XMatchVisualInfo(_x.display, xrootid, 24, DirectColor, &xvi)){
241 		_x.vis = xvi.visual;
242 		_x.depth = 24;
243 	}
244 	else
245 	if(XMatchVisualInfo(_x.display, xrootid, 8, PseudoColor, &xvi)
246 	|| XMatchVisualInfo(_x.display, xrootid, 8, StaticColor, &xvi)){
247 		if(_x.depth > 8){
248 			werrstr("can't deal with colormapped depth %d screens",
249 				_x.depth);
250 			goto err0;
251 		}
252 		_x.vis = xvi.visual;
253 		_x.depth = 8;
254 	}
255 	else{
256 		_x.depth = DefaultDepth(_x.display, xrootid);
257 		if(_x.depth != 8){
258 			werrstr("can't understand depth %d screen", _x.depth);
259 			goto err0;
260 		}
261 		_x.vis = DefaultVisual(_x.display, xrootid);
262 	}
263 
264 	if(DefaultDepth(_x.display, xrootid) == _x.depth)
265 		_x.usetable = 1;
266 
267 	/*
268 	 * _x.depth is only the number of significant pixel bits,
269 	 * not the total number of pixel bits.  We need to walk the
270 	 * display list to find how many actual bits are used
271 	 * per pixel.
272 	 */
273 	_x.chan = 0;
274 	pfmt = XListPixmapFormats(_x.display, &n);
275 	for(i=0; i<n; i++){
276 		if(pfmt[i].depth == _x.depth){
277 			switch(pfmt[i].bits_per_pixel){
278 			case 1:	/* untested */
279 				_x.chan = GREY1;
280 				break;
281 			case 2:	/* untested */
282 				_x.chan = GREY2;
283 				break;
284 			case 4:	/* untested */
285 				_x.chan = GREY4;
286 				break;
287 			case 8:
288 				_x.chan = CMAP8;
289 				break;
290 			case 15:
291 				_x.chan = RGB15;
292 				break;
293 			case 16: /* how to tell RGB15? */
294 				_x.chan = RGB16;
295 				break;
296 			case 24: /* untested (impossible?) */
297 				_x.chan = RGB24;
298 				break;
299 			case 32:
300 				_x.chan = XRGB32;
301 				break;
302 			}
303 		}
304 	}
305 	if(_x.chan == 0){
306 		werrstr("could not determine screen pixel format");
307 		goto err0;
308 	}
309 
310 	/*
311 	 * Set up color map if necessary.
312 	 */
313 	xscreen = DefaultScreenOfDisplay(_x.display);
314 	_x.cmap = DefaultColormapOfScreen(xscreen);
315 	if(_x.vis->class != StaticColor){
316 		plan9cmap();
317 		setupcmap(xrootwin);
318 	}
319 
320 	/*
321 	 * We get to choose the initial rectangle size.
322 	 * This is arbitrary.  In theory we should read the
323 	 * command line and allow the traditional X options.
324 	 */
325 	mask = 0;
326 	x = 0;
327 	y = 0;
328 	if(winsize){
329 		if(parsewinsize(winsize, &r, &havemin) < 0)
330 			sysfatal("%r");
331 	}else{
332 		/*
333 		 * Parse the various X resources.  Thanks to Peter Canning.
334 		 */
335 		char *screen_resources, *display_resources, *geom, 
336 			*geomrestype, *home, *file;
337 		XrmDatabase database;
338 		XrmValue geomres;
339 
340 		database = XrmGetDatabase(_x.display);
341 		screen_resources = XScreenResourceString(xscreen);
342 		if(screen_resources != nil){
343 			XrmCombineDatabase(XrmGetStringDatabase(screen_resources), &database, False);
344 			XFree(screen_resources);
345 		}
346 
347 		display_resources = XResourceManagerString(_x.display);
348 		if(display_resources == nil){
349 			home = getenv("HOME");
350 			if(home!=nil && (file=smprint("%s/.Xdefaults", home)) != nil){
351 				XrmCombineFileDatabase(file, &database, False);
352 				free(file);
353 			}
354 			free(home);
355 		}else
356 			XrmCombineDatabase(XrmGetStringDatabase(display_resources), &database, False);
357 
358 		geom = smprint("%s.geometry", label);
359 		if(geom && XrmGetResource(database, geom, nil, &geomrestype, &geomres))
360 			mask = XParseGeometry(geomres.addr, &x, &y, (uint*)&width, (uint*)&height);
361 		free(geom);
362 
363 		if((mask & WidthValue) && (mask & HeightValue)){
364 			r = Rect(0, 0, width, height);
365 		}else{
366 			r = Rect(0, 0, WidthOfScreen(xscreen)*3/4,
367 					HeightOfScreen(xscreen)*3/4);
368 			if(Dx(r) > Dy(r)*3/2)
369 				r.max.x = r.min.x + Dy(r)*3/2;
370 			if(Dy(r) > Dx(r)*3/2)
371 				r.max.y = r.min.y + Dx(r)*3/2;
372 		}
373 		if(mask & XNegative){
374 			x += WidthOfScreen(xscreen);
375 		}
376 		if(mask & YNegative){
377 			y += HeightOfScreen(xscreen);
378 		}
379 		havemin = 0;
380 	}
381 
382 	memset(&attr, 0, sizeof attr);
383 	attr.colormap = _x.cmap;
384 	attr.background_pixel = ~0;
385 	attr.border_pixel = 0;
386 	_x.drawable = XCreateWindow(
387 		_x.display,	/* display */
388 		xrootwin,	/* parent */
389 		x,		/* x */
390 		y,		/* y */
391 		Dx(r),		/* width */
392 	 	Dy(r),		/* height */
393 		0,		/* border width */
394 		_x.depth,	/* depth */
395 		InputOutput,	/* class */
396 		_x.vis,		/* visual */
397 				/* valuemask */
398 		CWBackPixel|CWBorderPixel|CWColormap,
399 		&attr		/* attributes (the above aren't?!) */
400 	);
401 
402 	/*
403 	 * Label and other properties required by ICCCCM.
404 	 */
405 	memset(&name, 0, sizeof name);
406 	if(label == nil)
407 		label = "pjw-face-here";
408 	name.value = (uchar*)label;
409 	name.encoding = XA_STRING;
410 	name.format = 8;
411 	name.nitems = strlen((char*)name.value);
412 
413 	memset(&normalhint, 0, sizeof normalhint);
414 	normalhint.flags = PSize|PMaxSize;
415 	if(winsize){
416 		normalhint.flags &= ~PSize;
417 		normalhint.flags |= USSize;
418 		normalhint.width = Dx(r);
419 		normalhint.height = Dy(r);
420 	}else{
421 		if((mask & WidthValue) && (mask & HeightValue)){
422 			normalhint.flags &= ~PSize;
423 			normalhint.flags |= USSize;
424 			normalhint.width = width;
425 			normalhint.height = height;
426 		}
427 		if((mask & WidthValue) && (mask & HeightValue)){
428 			normalhint.flags |= USPosition;
429 			normalhint.x = x;
430 			normalhint.y = y;
431 		}
432 	}
433 
434 	normalhint.max_width = WidthOfScreen(xscreen);
435 	normalhint.max_height = HeightOfScreen(xscreen);
436 
437 	memset(&hint, 0, sizeof hint);
438 	hint.flags = InputHint|StateHint;
439 	hint.input = 1;
440 	hint.initial_state = NormalState;
441 
442 	memset(&classhint, 0, sizeof classhint);
443 	classhint.res_name = label;
444 	classhint.res_class = label;
445 
446 	argv[0] = label;
447 	argv[1] = nil;
448 
449 	XSetWMProperties(
450 		_x.display,	/* display */
451 		_x.drawable,	/* window */
452 		&name,		/* XA_WM_NAME property */
453 		&name,		/* XA_WM_ICON_NAME property */
454 		argv,		/* XA_WM_COMMAND */
455 		1,		/* argc */
456 		&normalhint,	/* XA_WM_NORMAL_HINTS */
457 		&hint,		/* XA_WM_HINTS */
458 		&classhint	/* XA_WM_CLASSHINTS */
459 	);
460 	XFlush(_x.display);
461 
462 	if(havemin){
463 		XWindowChanges ch;
464 
465 		memset(&ch, 0, sizeof ch);
466 		ch.x = r.min.x;
467 		ch.y = r.min.y;
468 		XConfigureWindow(_x.display, _x.drawable, CWX|CWY, &ch);
469 		/*
470 		 * Must pretend origin is 0,0 for X.
471 		 */
472 		r = Rect(0,0,Dx(r),Dy(r));
473 	}
474 	/*
475 	 * Look up clipboard atom.
476 	 */
477 	_x.clipboard = XInternAtom(_x.display, "CLIPBOARD", False);
478 	_x.utf8string = XInternAtom(_x.display, "UTF8_STRING", False);
479 	_x.targets = XInternAtom(_x.display, "TARGETS", False);
480 	_x.text = XInternAtom(_x.display, "TEXT", False);
481 	_x.compoundtext = XInternAtom(_x.display, "COMPOUND_TEXT", False);
482 	_x.takefocus = XInternAtom(_x.display, "WM_TAKE_FOCUS", False);
483 	_x.losefocus = XInternAtom(_x.display, "_9WM_LOSE_FOCUS", False);
484 	_x.wmprotos = XInternAtom(_x.display, "WM_PROTOCOLS", False);
485 
486 	atoms[0] = _x.takefocus;
487 	atoms[1] = _x.losefocus;
488 	XChangeProperty(_x.display, _x.drawable, _x.wmprotos, XA_ATOM, 32,
489 		PropModeReplace, (uchar*)atoms, 2);
490 
491 	/*
492 	 * Put the window on the screen, check to see what size we actually got.
493 	 */
494 	XMapWindow(_x.display, _x.drawable);
495 	XSync(_x.display, False);
496 
497 	if(!XGetWindowAttributes(_x.display, _x.drawable, &wattr))
498 		fprint(2, "XGetWindowAttributes failed\n");
499 	else if(wattr.width && wattr.height){
500 		if(wattr.width != Dx(r) || wattr.height != Dy(r)){
501 			r.max.x = wattr.width;
502 			r.max.y = wattr.height;
503 		}
504 	}else
505 		fprint(2, "XGetWindowAttributes: bad attrs\n");
506 
507 	/*
508 	 * Allocate our local backing store.
509 	 */
510 	_x.screenr = r;
511 	_x.screenpm = XCreatePixmap(_x.display, _x.drawable, Dx(r), Dy(r), _x.depth);
512 	_x.nextscreenpm = _x.screenpm;
513 	_x.screenimage = _xallocmemimage(r, _x.chan, _x.screenpm);
514 
515 	/*
516 	 * Allocate some useful graphics contexts for the future.
517 	 */
518 	_x.gcfill	= xgc(_x.screenpm, FillSolid, -1);
519 	_x.gccopy	= xgc(_x.screenpm, -1, -1);
520 	_x.gcsimplesrc 	= xgc(_x.screenpm, FillStippled, -1);
521 	_x.gczero	= xgc(_x.screenpm, -1, -1);
522 	_x.gcreplsrc	= xgc(_x.screenpm, FillTiled, -1);
523 
524 	pmid = XCreatePixmap(_x.display, _x.drawable, 1, 1, 1);
525 	_x.gcfill0	= xgc(pmid, FillSolid, 0);
526 	_x.gccopy0	= xgc(pmid, -1, -1);
527 	_x.gcsimplesrc0	= xgc(pmid, FillStippled, -1);
528 	_x.gczero0	= xgc(pmid, -1, -1);
529 	_x.gcreplsrc0	= xgc(pmid, FillTiled, -1);
530 	XFreePixmap(_x.display, pmid);
531 
532 	/*
533 	 * Lots of display connections for various procs.
534 	 */
535 	_x.kbdcon	= XOpenDisplay(NULL);
536 	_x.mousecon	= XOpenDisplay(NULL);
537 	_x.snarfcon	= XOpenDisplay(NULL);
538 
539 	if(0) fprint(2, "x: display=%p kbd=%p mouse=%p snarf=%p\n",
540 		_x.display, _x.kbdcon, _x.mousecon, _x.snarfcon);
541 
542 	_x.black	= xscreen->black_pixel;
543 	_x.white	= xscreen->white_pixel;
544 
545 	return _x.screenimage;
546 
547 err0:
548 fprint(2, "%r\n");
549 	/*
550 	 * Should do a better job of cleaning up here.
551 	 */
552 	XCloseDisplay(_x.display);
553 	return nil;
554 }
555 
556 int
557 drawsetlabel(char *label)
558 {
559 	XTextProperty name;
560 
561 	/*
562 	 * Label and other properties required by ICCCCM.
563 	 */
564 	memset(&name, 0, sizeof name);
565 	if(label == nil)
566 		label = "pjw-face-here";
567 	name.value = (uchar*)label;
568 	name.encoding = XA_STRING;
569 	name.format = 8;
570 	name.nitems = strlen((char*)name.value);
571 
572 	XSetWMProperties(
573 		_x.display,	/* display */
574 		_x.drawable,	/* window */
575 		&name,		/* XA_WM_NAME property */
576 		&name,		/* XA_WM_ICON_NAME property */
577 		nil,		/* XA_WM_COMMAND */
578 		0,		/* argc */
579 		nil,		/* XA_WM_NORMAL_HINTS */
580 		nil,		/* XA_WM_HINTS */
581 		nil	/* XA_WM_CLASSHINTS */
582 	);
583 	XFlush(_x.display);
584 	return 0;
585 }
586 
587 /*
588  * Create a GC with a particular fill style and XXX.
589  * Disable generation of GraphicsExpose/NoExpose events in the GC.
590  */
591 static XGC
592 xgc(XDrawable d, int fillstyle, int foreground)
593 {
594 	XGC gc;
595 	XGCValues v;
596 
597 	memset(&v, 0, sizeof v);
598 	v.function = GXcopy;
599 	v.graphics_exposures = False;
600 	gc = XCreateGC(_x.display, d, GCFunction|GCGraphicsExposures, &v);
601 	if(fillstyle != -1)
602 		XSetFillStyle(_x.display, gc, fillstyle);
603 	if(foreground != -1)
604 		XSetForeground(_x.display, gc, 0);
605 	return gc;
606 }
607 
608 
609 /*
610  * Initialize map with the Plan 9 rgbv color map.
611  */
612 static void
613 plan9cmap(void)
614 {
615 	int r, g, b, cr, cg, cb, v, num, den, idx, v7, idx7;
616 	static int once;
617 
618 	if(once)
619 		return;
620 	once = 1;
621 
622 	for(r=0; r!=4; r++)
623 	for(g = 0; g != 4; g++)
624 	for(b = 0; b!=4; b++)
625 	for(v = 0; v!=4; v++){
626 		den=r;
627 		if(g > den)
628 			den=g;
629 		if(b > den)
630 			den=b;
631 		/* divide check -- pick grey shades */
632 		if(den==0)
633 			cr=cg=cb=v*17;
634 		else {
635 			num=17*(4*den+v);
636 			cr=r*num/den;
637 			cg=g*num/den;
638 			cb=b*num/den;
639 		}
640 		idx = r*64 + v*16 + ((g*4 + b + v - r) & 15);
641 		_x.map[idx].red = cr*0x0101;
642 		_x.map[idx].green = cg*0x0101;
643 		_x.map[idx].blue = cb*0x0101;
644 		_x.map[idx].pixel = idx;
645 		_x.map[idx].flags = DoRed|DoGreen|DoBlue;
646 
647 		v7 = v >> 1;
648 		idx7 = r*32 + v7*16 + g*4 + b;
649 		if((v & 1) == v7){
650 			_x.map7to8[idx7][0] = idx;
651 			if(den == 0) { 		/* divide check -- pick grey shades */
652 				cr = ((255.0/7.0)*v7)+0.5;
653 				cg = cr;
654 				cb = cr;
655 			}
656 			else {
657 				num=17*15*(4*den+v7*2)/14;
658 				cr=r*num/den;
659 				cg=g*num/den;
660 				cb=b*num/den;
661 			}
662 			_x.map7[idx7].red = cr*0x0101;
663 			_x.map7[idx7].green = cg*0x0101;
664 			_x.map7[idx7].blue = cb*0x0101;
665 			_x.map7[idx7].pixel = idx7;
666 			_x.map7[idx7].flags = DoRed|DoGreen|DoBlue;
667 		}
668 		else
669 			_x.map7to8[idx7][1] = idx;
670 	}
671 }
672 
673 /*
674  * Initialize and install the rgbv color map as a private color map
675  * for this application.  It gets the best colors when it has the
676  * cursor focus.
677  *
678  * We always choose the best depth possible, but that might not
679  * be the default depth.  On such "suboptimal" systems, we have to allocate an
680  * empty color map anyway, according to Axel Belinfante.
681  */
682 static int 
683 setupcmap(XWindow w)
684 {
685 	char buf[30];
686 	int i;
687 	u32int p, pp;
688 	XColor c;
689 
690 	if(_x.depth <= 1)
691 		return 0;
692 
693 	if(_x.depth >= 24) {
694 		if(_x.usetable == 0)
695 			_x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocNone); 
696 
697 		/*
698 		 * The pixel value returned from XGetPixel needs to
699 		 * be converted to RGB so we can call rgb2cmap()
700 		 * to translate between 24 bit X and our color. Unfortunately,
701 		 * the return value appears to be display server endian 
702 		 * dependant. Therefore, we run some heuristics to later
703 		 * determine how to mask the int value correctly.
704 		 * Yeah, I know we can look at _x.vis->byte_order but 
705 		 * some displays say MSB even though they run on LSB.
706 		 * Besides, this is more anal.
707 		 */
708 		c = _x.map[19];	/* known to have different R, G, B values */
709 		if(!XAllocColor(_x.display, _x.cmap, &c)){
710 			werrstr("XAllocColor: %r");
711 			return -1;
712 		}
713 		p  = c.pixel;
714 		pp = rgb2cmap((p>>16)&0xff,(p>>8)&0xff,p&0xff);
715 		if(pp != _x.map[19].pixel) {
716 			/* check if endian is other way */
717 			pp = rgb2cmap(p&0xff,(p>>8)&0xff,(p>>16)&0xff);
718 			if(pp != _x.map[19].pixel){
719 				werrstr("cannot detect X server byte order");
720 				return -1;
721 			}
722 
723 			switch(_x.chan){
724 			case RGB24:
725 				_x.chan = BGR24;
726 				break;
727 			case XRGB32:
728 				_x.chan = XBGR32;
729 				break;
730 			default:
731 				werrstr("cannot byteswap channel %s",
732 					chantostr(buf, _x.chan));
733 				break;
734 			}
735 		}
736 	}else if(_x.vis->class == TrueColor || _x.vis->class == DirectColor){
737 		/*
738 		 * Do nothing.  We have no way to express a
739 		 * mixed-endian 16-bit screen, so pretend they don't exist.
740 		 */
741 		if(_x.usetable == 0)
742 			_x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocNone);
743 	}else if(_x.vis->class == PseudoColor){
744 		if(_x.usetable == 0){
745 			_x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocAll); 
746 			XStoreColors(_x.display, _x.cmap, _x.map, 256);
747 			for(i = 0; i < 256; i++){
748 				_x.tox11[i] = i;
749 				_x.toplan9[i] = i;
750 			}
751 		}else{
752 			for(i = 0; i < 128; i++){
753 				c = _x.map7[i];
754 				if(!XAllocColor(_x.display, _x.cmap, &c)){
755 					werrstr("can't allocate colors in 7-bit map");
756 					return -1;
757 				}
758 				_x.tox11[_x.map7to8[i][0]] = c.pixel;
759 				_x.tox11[_x.map7to8[i][1]] = c.pixel;
760 				_x.toplan9[c.pixel] = _x.map7to8[i][0];
761 			}
762 		}
763 	}else{
764 		werrstr("unsupported visual class %d", _x.vis->class);
765 		return -1;
766 	}
767 	return 0;
768 }
769 
770 void
771 _flushmemscreen(Rectangle r)
772 {
773 	if(_x.nextscreenpm != _x.screenpm){
774 		qlock(&_x.screenlock);
775 		XSync(_x.display, False);
776 		XFreePixmap(_x.display, _x.screenpm);
777 		_x.screenpm = _x.nextscreenpm;
778 		qunlock(&_x.screenlock);
779 	}
780 
781 	if(r.min.x >= r.max.x || r.min.y >= r.max.y)
782 		return;
783 	XCopyArea(_x.display, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
784 		Dx(r), Dy(r), r.min.x, r.min.y);
785 	XFlush(_x.display);
786 }
787 
788 void
789 _xexpose(XEvent *e, XDisplay *xd)
790 {
791 	XExposeEvent *xe;
792 	Rectangle r;
793 
794 	qlock(&_x.screenlock);
795 	if(_x.screenpm != _x.nextscreenpm){
796 		qunlock(&_x.screenlock);
797 		return;
798 	}
799 	xe = (XExposeEvent*)e;
800 	r.min.x = xe->x;
801 	r.min.y = xe->y;
802 	r.max.x = xe->x+xe->width;
803 	r.max.y = xe->y+xe->height;
804 	XCopyArea(xd, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
805 		Dx(r), Dy(r), r.min.x, r.min.y);
806 	XSync(xd, False);
807 	qunlock(&_x.screenlock);
808 }
809 
810 int
811 _xdestroy(XEvent *e, XDisplay *xd)
812 {
813 	XDestroyWindowEvent *xe;
814 
815 	xe = (XDestroyWindowEvent*)e;
816 	if(xe->window == _x.drawable){
817 		_x.destroyed = 1;
818 		return 1;
819 	}
820 	return 0;
821 }
822 
823 int
824 _xconfigure(XEvent *e, XDisplay *xd)
825 {
826 	Rectangle r;
827 	XConfigureEvent *xe = (XConfigureEvent*)e;
828 
829 	if(xe->width == Dx(_x.screenr) && xe->height == Dy(_x.screenr))
830 		return 0;
831 	if(xe->width==0 || xe->height==0)
832 		fprint(2, "ignoring resize to %dx%d\n", xe->width, xe->height);
833 	r = Rect(0, 0, xe->width, xe->height);
834 	qlock(&_x.screenlock);
835 	if(_x.screenpm != _x.nextscreenpm){
836 		XCopyArea(xd, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
837 			Dx(r), Dy(r), r.min.x, r.min.y);
838 		XSync(xd, False);
839 	}
840 	qunlock(&_x.screenlock);
841 	_x.newscreenr = r;
842 	return 1;
843 }
844 
845 static int
846 xreplacescreenimage(void)
847 {
848 	Memimage *m;
849 	XDrawable pixmap;
850 	Rectangle r;
851 
852 	r = _x.newscreenr;
853 	if(eqrect(_x.screenr, r))
854 		return 0;
855 
856 	pixmap = XCreatePixmap(_x.display, _x.drawable, Dx(r), Dy(r), _x.depth);
857 	m = _xallocmemimage(r, _x.chan, pixmap);
858 	if(_x.nextscreenpm != _x.screenpm)
859 		XFreePixmap(_x.display, _x.nextscreenpm);
860 	_x.nextscreenpm = pixmap;
861 	_x.screenr = r;
862 	_drawreplacescreenimage(m);
863 	return 1;
864 }
865 
866 static int
867 parsewinsize(char *s, Rectangle *r, int *havemin)
868 {
869 	char c, *os;
870 	int i, j, k, l;
871 
872 	os = s;
873 	*havemin = 0;
874 	*r = Rect(0,0,0,0);
875 	if(!isdigit(*s))
876 		goto oops;
877 	i = strtol(s, &s, 0);
878 	if(*s == 'x'){
879 		s++;
880 		if(!isdigit(*s))
881 			goto oops;
882 		j = strtol(s, &s, 0);
883 		r->max.x = i;
884 		r->max.y = j;
885 		if(*s == 0)
886 			return 0;
887 		if(*s != '@')
888 			goto oops;
889 
890 		s++;
891 		if(!isdigit(*s))
892 			goto oops;
893 		i = strtol(s, &s, 0);
894 		if(*s != ',' && *s != ' ')
895 			goto oops;
896 		s++;
897 		if(!isdigit(*s))
898 			goto oops;
899 		j = strtol(s, &s, 0);
900 		if(*s != 0)
901 			goto oops;
902 		*r = rectaddpt(*r, Pt(i,j));
903 		*havemin = 1;
904 		return 0;
905 	}
906 
907 	c = *s;
908 	if(c != ' ' && c != ',')
909 		goto oops;
910 	s++;
911 	if(!isdigit(*s))
912 		goto oops;
913 	j = strtol(s, &s, 0);
914 	if(*s != c)
915 		goto oops;
916 	s++;
917 	if(!isdigit(*s))
918 		goto oops;
919 	k = strtol(s, &s, 0);
920 	if(*s != c)
921 		goto oops;
922 	s++;
923 	if(!isdigit(*s))
924 		goto oops;
925 	l = strtol(s, &s, 0);
926 	if(*s != 0)
927 		goto oops;
928 	*r = Rect(i,j,k,l);
929 	*havemin = 1;
930 	return 0;
931 
932 oops:
933 	werrstr("bad syntax in window size '%s'", os);
934 	return -1;
935 }