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