1 76193d7c 2003-09-30 devnull /* input event and data structure translation */
  2 76193d7c 2003-09-30 devnull 
  3 76193d7c 2003-09-30 devnull #include <u.h>
  4 be22ae2d 2004-03-26 devnull #include "x11-inc.h"
  5 76193d7c 2003-09-30 devnull #include <libc.h>
  6 76193d7c 2003-09-30 devnull #include <draw.h>
  7 76193d7c 2003-09-30 devnull #include <memdraw.h>
  8 76193d7c 2003-09-30 devnull #include <mouse.h>
  9 76193d7c 2003-09-30 devnull #include <cursor.h>
 10 76193d7c 2003-09-30 devnull #include <keyboard.h>
 11 76193d7c 2003-09-30 devnull #include "x11-memdraw.h"
 12 e543c475 2004-04-19 devnull #include "x11-keysym2ucs.h"
 13 76193d7c 2003-09-30 devnull 
 14 8ad51794 2004-03-25 devnull #undef time
 15 8ad51794 2004-03-25 devnull 
 16 8ad51794 2004-03-25 devnull 
 17 e543c475 2004-04-19 devnull static KeySym
 18 32f69c36 2003-12-11 devnull __xtoplan9kbd(XEvent *e)
 19 76193d7c 2003-09-30 devnull {
 20 e543c475 2004-04-19 devnull 	KeySym k;
 21 76193d7c 2003-09-30 devnull 
 22 e543c475 2004-04-19 devnull 	if(e->xany.type != KeyPress)
 23 e543c475 2004-04-19 devnull 		return -1;
 24 a0e8d02d 2005-01-23 devnull 	needstack(64*1024);	/* X has some *huge* buffers in openobject */
 25 a0e8d02d 2005-01-23 devnull 		/* and they're even bigger on SuSE */
 26 e543c475 2004-04-19 devnull 	XLookupString((XKeyEvent*)e,NULL,0,&k,NULL);
 27 76193d7c 2003-09-30 devnull 	if(k == XK_Multi_key || k == NoSymbol)
 28 76193d7c 2003-09-30 devnull 		return -1;
 29 76193d7c 2003-09-30 devnull 
 30 76193d7c 2003-09-30 devnull 	if(k&0xFF00){
 31 76193d7c 2003-09-30 devnull 		switch(k){
 32 76193d7c 2003-09-30 devnull 		case XK_BackSpace:
 33 76193d7c 2003-09-30 devnull 		case XK_Tab:
 34 76193d7c 2003-09-30 devnull 		case XK_Escape:
 35 76193d7c 2003-09-30 devnull 		case XK_Delete:
 36 76193d7c 2003-09-30 devnull 		case XK_KP_0:
 37 76193d7c 2003-09-30 devnull 		case XK_KP_1:
 38 76193d7c 2003-09-30 devnull 		case XK_KP_2:
 39 76193d7c 2003-09-30 devnull 		case XK_KP_3:
 40 76193d7c 2003-09-30 devnull 		case XK_KP_4:
 41 76193d7c 2003-09-30 devnull 		case XK_KP_5:
 42 76193d7c 2003-09-30 devnull 		case XK_KP_6:
 43 76193d7c 2003-09-30 devnull 		case XK_KP_7:
 44 76193d7c 2003-09-30 devnull 		case XK_KP_8:
 45 76193d7c 2003-09-30 devnull 		case XK_KP_9:
 46 76193d7c 2003-09-30 devnull 		case XK_KP_Divide:
 47 76193d7c 2003-09-30 devnull 		case XK_KP_Multiply:
 48 76193d7c 2003-09-30 devnull 		case XK_KP_Subtract:
 49 76193d7c 2003-09-30 devnull 		case XK_KP_Add:
 50 76193d7c 2003-09-30 devnull 		case XK_KP_Decimal:
 51 76193d7c 2003-09-30 devnull 			k &= 0x7F;
 52 76193d7c 2003-09-30 devnull 			break;
 53 76193d7c 2003-09-30 devnull 		case XK_Linefeed:
 54 76193d7c 2003-09-30 devnull 			k = '\r';
 55 76193d7c 2003-09-30 devnull 			break;
 56 76193d7c 2003-09-30 devnull 		case XK_KP_Space:
 57 76193d7c 2003-09-30 devnull 			k = ' ';
 58 76193d7c 2003-09-30 devnull 			break;
 59 76193d7c 2003-09-30 devnull 		case XK_Home:
 60 76193d7c 2003-09-30 devnull 		case XK_KP_Home:
 61 76193d7c 2003-09-30 devnull 			k = Khome;
 62 76193d7c 2003-09-30 devnull 			break;
 63 76193d7c 2003-09-30 devnull 		case XK_Left:
 64 76193d7c 2003-09-30 devnull 		case XK_KP_Left:
 65 76193d7c 2003-09-30 devnull 			k = Kleft;
 66 76193d7c 2003-09-30 devnull 			break;
 67 76193d7c 2003-09-30 devnull 		case XK_Up:
 68 76193d7c 2003-09-30 devnull 		case XK_KP_Up:
 69 76193d7c 2003-09-30 devnull 			k = Kup;
 70 76193d7c 2003-09-30 devnull 			break;
 71 76193d7c 2003-09-30 devnull 		case XK_Down:
 72 76193d7c 2003-09-30 devnull 		case XK_KP_Down:
 73 76193d7c 2003-09-30 devnull 			k = Kdown;
 74 76193d7c 2003-09-30 devnull 			break;
 75 76193d7c 2003-09-30 devnull 		case XK_Right:
 76 76193d7c 2003-09-30 devnull 		case XK_KP_Right:
 77 76193d7c 2003-09-30 devnull 			k = Kright;
 78 76193d7c 2003-09-30 devnull 			break;
 79 76193d7c 2003-09-30 devnull 		case XK_Page_Down:
 80 76193d7c 2003-09-30 devnull 		case XK_KP_Page_Down:
 81 76193d7c 2003-09-30 devnull 			k = Kpgdown;
 82 76193d7c 2003-09-30 devnull 			break;
 83 76193d7c 2003-09-30 devnull 		case XK_End:
 84 76193d7c 2003-09-30 devnull 		case XK_KP_End:
 85 76193d7c 2003-09-30 devnull 			k = Kend;
 86 76193d7c 2003-09-30 devnull 			break;
 87 76193d7c 2003-09-30 devnull 		case XK_Page_Up:	
 88 76193d7c 2003-09-30 devnull 		case XK_KP_Page_Up:
 89 76193d7c 2003-09-30 devnull 			k = Kpgup;
 90 76193d7c 2003-09-30 devnull 			break;
 91 76193d7c 2003-09-30 devnull 		case XK_Insert:
 92 76193d7c 2003-09-30 devnull 		case XK_KP_Insert:
 93 76193d7c 2003-09-30 devnull 			k = Kins;
 94 76193d7c 2003-09-30 devnull 			break;
 95 76193d7c 2003-09-30 devnull 		case XK_KP_Enter:
 96 76193d7c 2003-09-30 devnull 		case XK_Return:
 97 76193d7c 2003-09-30 devnull 			k = '\n';
 98 76193d7c 2003-09-30 devnull 			break;
 99 76193d7c 2003-09-30 devnull 		case XK_Alt_L:
100 1aa4e9c8 2004-04-23 devnull 		case XK_Meta_L:	/* Shift Alt on PCs */
101 76193d7c 2003-09-30 devnull 		case XK_Alt_R:
102 1aa4e9c8 2004-04-23 devnull 		case XK_Meta_R:	/* Shift Alt on PCs */
103 76193d7c 2003-09-30 devnull 			k = Kalt;
104 76193d7c 2003-09-30 devnull 			break;
105 76193d7c 2003-09-30 devnull 		default:		/* not ISO-1 or tty control */
106 e543c475 2004-04-19 devnull 			if(k>0xff) {
107 1818ce0f 2005-01-04 devnull 				k = _p9keysym2ucs(k);
108 e543c475 2004-04-19 devnull 				if(k==-1) return -1;
109 e543c475 2004-04-19 devnull 			}
110 76193d7c 2003-09-30 devnull 		}
111 76193d7c 2003-09-30 devnull 	}
112 76193d7c 2003-09-30 devnull 
113 76193d7c 2003-09-30 devnull 	/* Compensate for servers that call a minus a hyphen */
114 76193d7c 2003-09-30 devnull 	if(k == XK_hyphen)
115 76193d7c 2003-09-30 devnull 		k = XK_minus;
116 76193d7c 2003-09-30 devnull 	/* Do control mapping ourselves if translator doesn't */
117 76193d7c 2003-09-30 devnull 	if(e->xkey.state&ControlMask)
118 76193d7c 2003-09-30 devnull 		k &= 0x9f;
119 76193d7c 2003-09-30 devnull 	if(k == NoSymbol) {
120 76193d7c 2003-09-30 devnull 		return -1;
121 76193d7c 2003-09-30 devnull 	}
122 76193d7c 2003-09-30 devnull 
123 e543c475 2004-04-19 devnull 	return k+0;
124 76193d7c 2003-09-30 devnull }
125 76193d7c 2003-09-30 devnull 
126 16a70966 2003-11-23 devnull static Rune*
127 16a70966 2003-11-23 devnull xtoplan9latin1(XEvent *e)
128 16a70966 2003-11-23 devnull {
129 16a70966 2003-11-23 devnull 	static Rune k[10];
130 16a70966 2003-11-23 devnull 	static int alting, nk;
131 16a70966 2003-11-23 devnull 	int n;
132 16a70966 2003-11-23 devnull 	int r;
133 16a70966 2003-11-23 devnull 
134 32f69c36 2003-12-11 devnull 	r = __xtoplan9kbd(e);
135 16a70966 2003-11-23 devnull 	if(r < 0)
136 16a70966 2003-11-23 devnull 		return nil;
137 16a70966 2003-11-23 devnull 	if(alting){
138 e66de6b0 2004-06-17 devnull 		/*
139 e66de6b0 2004-06-17 devnull 		 * Kludge for Mac's X11 3-button emulation.
140 e66de6b0 2004-06-17 devnull 		 * It treats Command+Button as button 3, but also
141 e66de6b0 2004-06-17 devnull 		 * ends up sending XK_Meta_L twice.
142 e66de6b0 2004-06-17 devnull 		 */
143 e66de6b0 2004-06-17 devnull 		if(r == Kalt){
144 e66de6b0 2004-06-17 devnull 			alting = 0;
145 e66de6b0 2004-06-17 devnull 			return nil;
146 e66de6b0 2004-06-17 devnull 		}
147 16a70966 2003-11-23 devnull 		k[nk++] = r;
148 16a70966 2003-11-23 devnull 		n = _latin1(k, nk);
149 16a70966 2003-11-23 devnull 		if(n > 0){
150 16a70966 2003-11-23 devnull 			alting = 0;
151 16a70966 2003-11-23 devnull 			k[0] = n;
152 16a70966 2003-11-23 devnull 			k[1] = 0;
153 16a70966 2003-11-23 devnull 			return k;
154 16a70966 2003-11-23 devnull 		}
155 16a70966 2003-11-23 devnull 		if(n == -1){
156 16a70966 2003-11-23 devnull 			alting = 0;
157 16a70966 2003-11-23 devnull 			k[nk] = 0;
158 16a70966 2003-11-23 devnull 			return k;
159 16a70966 2003-11-23 devnull 		}
160 16a70966 2003-11-23 devnull 		/* n < -1, need more input */
161 16a70966 2003-11-23 devnull 		return nil;
162 16a70966 2003-11-23 devnull 	}else if(r == Kalt){
163 16a70966 2003-11-23 devnull 		alting = 1;
164 16a70966 2003-11-23 devnull 		nk = 0;
165 16a70966 2003-11-23 devnull 		return nil;
166 16a70966 2003-11-23 devnull 	}else{
167 16a70966 2003-11-23 devnull 		k[0] = r;
168 16a70966 2003-11-23 devnull 		k[1] = 0;
169 16a70966 2003-11-23 devnull 		return k;
170 16a70966 2003-11-23 devnull 	}
171 16a70966 2003-11-23 devnull }
172 16a70966 2003-11-23 devnull 
173 76193d7c 2003-09-30 devnull int
174 32f69c36 2003-12-11 devnull _xtoplan9kbd(XEvent *e)
175 76193d7c 2003-09-30 devnull {
176 16a70966 2003-11-23 devnull 	static Rune *r;
177 16a70966 2003-11-23 devnull 
178 16a70966 2003-11-23 devnull 	if(e == (XEvent*)-1){
179 16a70966 2003-11-23 devnull 		assert(r);
180 16a70966 2003-11-23 devnull 		r--;
181 16a70966 2003-11-23 devnull 		return 0;
182 16a70966 2003-11-23 devnull 	}
183 16a70966 2003-11-23 devnull 	if(e)
184 16a70966 2003-11-23 devnull 		r = xtoplan9latin1(e);
185 16a70966 2003-11-23 devnull 	if(r && *r)
186 16a70966 2003-11-23 devnull 		return *r++;
187 16a70966 2003-11-23 devnull 	return -1;
188 16a70966 2003-11-23 devnull }
189 16a70966 2003-11-23 devnull 
190 16a70966 2003-11-23 devnull int
191 32f69c36 2003-12-11 devnull _xtoplan9mouse(XDisplay *xd, XEvent *e, Mouse *m)
192 16a70966 2003-11-23 devnull {
193 76193d7c 2003-09-30 devnull 	int s;
194 76193d7c 2003-09-30 devnull 	XButtonEvent *be;
195 76193d7c 2003-09-30 devnull 	XMotionEvent *me;
196 16a70966 2003-11-23 devnull 
197 16a70966 2003-11-23 devnull 	if(_x.putsnarf != _x.assertsnarf){
198 16a70966 2003-11-23 devnull 		_x.assertsnarf = _x.putsnarf;
199 16a70966 2003-11-23 devnull 		XSetSelectionOwner(_x.mousecon, XA_PRIMARY, _x.drawable, CurrentTime);
200 16a70966 2003-11-23 devnull 		if(_x.clipboard != None)
201 16a70966 2003-11-23 devnull 			XSetSelectionOwner(_x.mousecon, _x.clipboard, _x.drawable, CurrentTime);
202 16a70966 2003-11-23 devnull 		XFlush(xd);
203 16a70966 2003-11-23 devnull 	}
204 76193d7c 2003-09-30 devnull 
205 76193d7c 2003-09-30 devnull 	switch(e->type){
206 76193d7c 2003-09-30 devnull 	case ButtonPress:
207 76193d7c 2003-09-30 devnull 		be = (XButtonEvent*)e;
208 f7012583 2003-11-25 devnull 		/* 
209 f7012583 2003-11-25 devnull 		 * Fake message, just sent to make us announce snarf.
210 f7012583 2003-11-25 devnull 		 * Apparently state and button are 16 and 8 bits on
211 f7012583 2003-11-25 devnull 		 * the wire, since they are truncated by the time they
212 f7012583 2003-11-25 devnull 		 * get to us.
213 f7012583 2003-11-25 devnull 		 */
214 f7012583 2003-11-25 devnull 		if(be->send_event
215 f7012583 2003-11-25 devnull 		&& (~be->state&0xFFFF)==0
216 f7012583 2003-11-25 devnull 		&& (~be->button&0xFF)==0)
217 16a70966 2003-11-23 devnull 			return -1;
218 76193d7c 2003-09-30 devnull 		/* BUG? on mac need to inherit these from elsewhere? */
219 76193d7c 2003-09-30 devnull 		m->xy.x = be->x;
220 76193d7c 2003-09-30 devnull 		m->xy.y = be->y;
221 76193d7c 2003-09-30 devnull 		s = be->state;
222 76193d7c 2003-09-30 devnull 		m->msec = be->time;
223 76193d7c 2003-09-30 devnull 		switch(be->button){
224 76193d7c 2003-09-30 devnull 		case 1:
225 76193d7c 2003-09-30 devnull 			s |= Button1Mask;
226 76193d7c 2003-09-30 devnull 			break;
227 76193d7c 2003-09-30 devnull 		case 2:
228 76193d7c 2003-09-30 devnull 			s |= Button2Mask;
229 76193d7c 2003-09-30 devnull 			break;
230 76193d7c 2003-09-30 devnull 		case 3:
231 76193d7c 2003-09-30 devnull 			s |= Button3Mask;
232 76193d7c 2003-09-30 devnull 			break;
233 ff8bbc79 2004-06-09 devnull 		case 4:
234 ff8bbc79 2004-06-09 devnull 			s |= Button4Mask;
235 ff8bbc79 2004-06-09 devnull 			break;
236 ff8bbc79 2004-06-09 devnull 		case 5:
237 ff8bbc79 2004-06-09 devnull 			s |= Button5Mask;
238 ff8bbc79 2004-06-09 devnull 			break;
239 76193d7c 2003-09-30 devnull 		}
240 76193d7c 2003-09-30 devnull 		break;
241 76193d7c 2003-09-30 devnull 	case ButtonRelease:
242 76193d7c 2003-09-30 devnull 		be = (XButtonEvent*)e;
243 76193d7c 2003-09-30 devnull 		m->xy.x = be->x;
244 76193d7c 2003-09-30 devnull 		m->xy.y = be->y;
245 76193d7c 2003-09-30 devnull 		s = be->state;
246 76193d7c 2003-09-30 devnull 		m->msec = be->time;
247 76193d7c 2003-09-30 devnull 		switch(be->button){
248 76193d7c 2003-09-30 devnull 		case 1:
249 76193d7c 2003-09-30 devnull 			s &= ~Button1Mask;
250 76193d7c 2003-09-30 devnull 			break;
251 76193d7c 2003-09-30 devnull 		case 2:
252 76193d7c 2003-09-30 devnull 			s &= ~Button2Mask;
253 76193d7c 2003-09-30 devnull 			break;
254 76193d7c 2003-09-30 devnull 		case 3:
255 76193d7c 2003-09-30 devnull 			s &= ~Button3Mask;
256 76193d7c 2003-09-30 devnull 			break;
257 ff8bbc79 2004-06-09 devnull 		case 4:
258 ff8bbc79 2004-06-09 devnull 			s &= ~Button4Mask;
259 ff8bbc79 2004-06-09 devnull 			break;
260 ff8bbc79 2004-06-09 devnull 		case 5:
261 ff8bbc79 2004-06-09 devnull 			s &= ~Button5Mask;
262 ff8bbc79 2004-06-09 devnull 			break;
263 76193d7c 2003-09-30 devnull 		}
264 76193d7c 2003-09-30 devnull 		break;
265 76193d7c 2003-09-30 devnull 
266 76193d7c 2003-09-30 devnull 	case MotionNotify:
267 76193d7c 2003-09-30 devnull 		me = (XMotionEvent*)e;
268 76193d7c 2003-09-30 devnull 		s = me->state;
269 76193d7c 2003-09-30 devnull 		m->xy.x = me->x;
270 76193d7c 2003-09-30 devnull 		m->xy.y = me->y;
271 76193d7c 2003-09-30 devnull 		m->msec = me->time;
272 76193d7c 2003-09-30 devnull 		break;
273 76193d7c 2003-09-30 devnull 
274 76193d7c 2003-09-30 devnull 	default:
275 76193d7c 2003-09-30 devnull 		return -1;
276 76193d7c 2003-09-30 devnull 	}
277 76193d7c 2003-09-30 devnull 
278 76193d7c 2003-09-30 devnull 	m->buttons = 0;
279 76193d7c 2003-09-30 devnull 	if(s & Button1Mask)
280 76193d7c 2003-09-30 devnull 		m->buttons |= 1;
281 76193d7c 2003-09-30 devnull 	if(s & Button2Mask)
282 76193d7c 2003-09-30 devnull 		m->buttons |= 2;
283 76193d7c 2003-09-30 devnull 	if(s & Button3Mask)
284 76193d7c 2003-09-30 devnull 		m->buttons |= 4;
285 ff8bbc79 2004-06-09 devnull 	if(s & Button4Mask)
286 ff8bbc79 2004-06-09 devnull 		m->buttons |= 8;
287 ff8bbc79 2004-06-09 devnull 	if(s & Button5Mask)
288 ff8bbc79 2004-06-09 devnull 		m->buttons |= 16;
289 76193d7c 2003-09-30 devnull 	return 0;
290 76193d7c 2003-09-30 devnull }
291 76193d7c 2003-09-30 devnull 
292 76193d7c 2003-09-30 devnull void
293 32f69c36 2003-12-11 devnull _xmoveto(Point p)
294 76193d7c 2003-09-30 devnull {
295 76193d7c 2003-09-30 devnull 	XWarpPointer(_x.display, None, _x.drawable, 0, 0, 0, 0, p.x, p.y);
296 76193d7c 2003-09-30 devnull 	XFlush(_x.display);
297 76193d7c 2003-09-30 devnull }
298 76193d7c 2003-09-30 devnull 
299 76193d7c 2003-09-30 devnull static int
300 76193d7c 2003-09-30 devnull revbyte(int b)
301 76193d7c 2003-09-30 devnull {
302 76193d7c 2003-09-30 devnull 	int r;
303 76193d7c 2003-09-30 devnull 
304 76193d7c 2003-09-30 devnull 	r = 0;
305 76193d7c 2003-09-30 devnull 	r |= (b&0x01) << 7;
306 76193d7c 2003-09-30 devnull 	r |= (b&0x02) << 5;
307 76193d7c 2003-09-30 devnull 	r |= (b&0x04) << 3;
308 76193d7c 2003-09-30 devnull 	r |= (b&0x08) << 1;
309 76193d7c 2003-09-30 devnull 	r |= (b&0x10) >> 1;
310 76193d7c 2003-09-30 devnull 	r |= (b&0x20) >> 3;
311 76193d7c 2003-09-30 devnull 	r |= (b&0x40) >> 5;
312 76193d7c 2003-09-30 devnull 	r |= (b&0x80) >> 7;
313 76193d7c 2003-09-30 devnull 	return r;
314 76193d7c 2003-09-30 devnull }
315 76193d7c 2003-09-30 devnull 
316 76193d7c 2003-09-30 devnull static void
317 76193d7c 2003-09-30 devnull xcursorarrow(void)
318 76193d7c 2003-09-30 devnull {
319 76193d7c 2003-09-30 devnull 	if(_x.cursor != 0){
320 76193d7c 2003-09-30 devnull 		XFreeCursor(_x.display, _x.cursor);
321 76193d7c 2003-09-30 devnull 		_x.cursor = 0;
322 76193d7c 2003-09-30 devnull 	}
323 76193d7c 2003-09-30 devnull 	XUndefineCursor(_x.display, _x.drawable);
324 76193d7c 2003-09-30 devnull 	XFlush(_x.display);
325 76193d7c 2003-09-30 devnull }
326 76193d7c 2003-09-30 devnull 
327 76193d7c 2003-09-30 devnull 
328 76193d7c 2003-09-30 devnull void
329 32f69c36 2003-12-11 devnull _xsetcursor(Cursor *c)
330 76193d7c 2003-09-30 devnull {
331 76193d7c 2003-09-30 devnull 	XColor fg, bg;
332 76193d7c 2003-09-30 devnull 	XCursor xc;
333 76193d7c 2003-09-30 devnull 	Pixmap xsrc, xmask;
334 76193d7c 2003-09-30 devnull 	int i;
335 76193d7c 2003-09-30 devnull 	uchar src[2*16], mask[2*16];
336 76193d7c 2003-09-30 devnull 
337 76193d7c 2003-09-30 devnull 	if(c == nil){
338 76193d7c 2003-09-30 devnull 		xcursorarrow();
339 76193d7c 2003-09-30 devnull 		return;
340 76193d7c 2003-09-30 devnull 	}
341 76193d7c 2003-09-30 devnull 	for(i=0; i<2*16; i++){
342 76193d7c 2003-09-30 devnull 		src[i] = revbyte(c->set[i]);
343 76193d7c 2003-09-30 devnull 		mask[i] = revbyte(c->set[i] | c->clr[i]);
344 76193d7c 2003-09-30 devnull 	}
345 76193d7c 2003-09-30 devnull 
346 76193d7c 2003-09-30 devnull 	fg = _x.map[0];
347 76193d7c 2003-09-30 devnull 	bg = _x.map[255];
348 be22ae2d 2004-03-26 devnull 	xsrc = XCreateBitmapFromData(_x.display, _x.drawable, (char*)src, 16, 16);
349 be22ae2d 2004-03-26 devnull 	xmask = XCreateBitmapFromData(_x.display, _x.drawable, (char*)mask, 16, 16);
350 76193d7c 2003-09-30 devnull 	xc = XCreatePixmapCursor(_x.display, xsrc, xmask, &fg, &bg, -c->offset.x, -c->offset.y);
351 76193d7c 2003-09-30 devnull 	if(xc != 0) {
352 76193d7c 2003-09-30 devnull 		XDefineCursor(_x.display, _x.drawable, xc);
353 76193d7c 2003-09-30 devnull 		if(_x.cursor != 0)
354 76193d7c 2003-09-30 devnull 			XFreeCursor(_x.display, _x.cursor);
355 76193d7c 2003-09-30 devnull 		_x.cursor = xc;
356 76193d7c 2003-09-30 devnull 	}
357 76193d7c 2003-09-30 devnull 	XFreePixmap(_x.display, xsrc);
358 76193d7c 2003-09-30 devnull 	XFreePixmap(_x.display, xmask);
359 76193d7c 2003-09-30 devnull 	XFlush(_x.display);
360 161060a4 2003-10-11 devnull }
361 161060a4 2003-10-11 devnull 
362 161060a4 2003-10-11 devnull struct {
363 161060a4 2003-10-11 devnull 	char buf[SnarfSize];
364 161060a4 2003-10-11 devnull 	QLock lk;
365 161060a4 2003-10-11 devnull } clip;
366 161060a4 2003-10-11 devnull 
367 161060a4 2003-10-11 devnull char*
368 32f69c36 2003-12-11 devnull _xgetsnarf(XDisplay *xd)
369 161060a4 2003-10-11 devnull {
370 161060a4 2003-10-11 devnull 	uchar *data, *xdata;
371 16a70966 2003-11-23 devnull 	Atom clipboard, type, prop;
372 161060a4 2003-10-11 devnull 	ulong len, lastlen, dummy;
373 161060a4 2003-10-11 devnull 	int fmt, i;
374 161060a4 2003-10-11 devnull 	XWindow w;
375 161060a4 2003-10-11 devnull 
376 161060a4 2003-10-11 devnull 	qlock(&clip.lk);
377 16a70966 2003-11-23 devnull 	/*
378 16a70966 2003-11-23 devnull 	 * Is there a primary selection (highlighted text in an xterm)?
379 16a70966 2003-11-23 devnull 	 */
380 16a70966 2003-11-23 devnull 	clipboard = XA_PRIMARY;
381 161060a4 2003-10-11 devnull 	w = XGetSelectionOwner(xd, XA_PRIMARY);
382 161060a4 2003-10-11 devnull 	if(w == _x.drawable){
383 16a70966 2003-11-23 devnull 	mine:
384 161060a4 2003-10-11 devnull 		data = (uchar*)strdup(clip.buf);
385 161060a4 2003-10-11 devnull 		goto out;
386 161060a4 2003-10-11 devnull 	}
387 16a70966 2003-11-23 devnull 
388 16a70966 2003-11-23 devnull 	/*
389 16a70966 2003-11-23 devnull 	 * If not, is there a clipboard selection?
390 16a70966 2003-11-23 devnull 	 */
391 16a70966 2003-11-23 devnull 	if(w == None && _x.clipboard != None){
392 16a70966 2003-11-23 devnull 		clipboard = _x.clipboard;
393 16a70966 2003-11-23 devnull 		w = XGetSelectionOwner(xd, _x.clipboard);
394 16a70966 2003-11-23 devnull 		if(w == _x.drawable)
395 16a70966 2003-11-23 devnull 			goto mine;
396 16a70966 2003-11-23 devnull 	}
397 16a70966 2003-11-23 devnull 
398 16a70966 2003-11-23 devnull 	/*
399 16a70966 2003-11-23 devnull 	 * If not, give up.
400 16a70966 2003-11-23 devnull 	 */
401 161060a4 2003-10-11 devnull 	if(w == None){
402 161060a4 2003-10-11 devnull 		data = nil;
403 161060a4 2003-10-11 devnull 		goto out;
404 161060a4 2003-10-11 devnull 	}
405 16a70966 2003-11-23 devnull 		
406 161060a4 2003-10-11 devnull 	/*
407 161060a4 2003-10-11 devnull 	 * We should be waiting for SelectionNotify here, but it might never
408 16a70966 2003-11-23 devnull 	 * come, and we have no way to time out.  Instead, we will clear
409 16a70966 2003-11-23 devnull 	 * local property #1, request our buddy to fill it in for us, and poll
410 16a70966 2003-11-23 devnull 	 * until he's done or we get tired of waiting.
411 e39b8b19 2003-12-02 devnull 	 *
412 e39b8b19 2003-12-02 devnull 	 * We should try to go for _x.utf8string instead of XA_STRING,
413 e39b8b19 2003-12-02 devnull 	 * but that would add to the polling.
414 161060a4 2003-10-11 devnull 	 */
415 16a70966 2003-11-23 devnull 	prop = 1;
416 16a70966 2003-11-23 devnull 	XChangeProperty(xd, _x.drawable, prop, XA_STRING, 8, PropModeReplace, (uchar*)"", 0);
417 16a70966 2003-11-23 devnull 	XConvertSelection(xd, clipboard, XA_STRING, prop, _x.drawable, CurrentTime);
418 161060a4 2003-10-11 devnull 	XFlush(xd);
419 161060a4 2003-10-11 devnull 	lastlen = 0;
420 16a70966 2003-11-23 devnull 	for(i=0; i<10 || (lastlen!=0 && i<30); i++){
421 161060a4 2003-10-11 devnull 		usleep(100*1000);
422 16a70966 2003-11-23 devnull 		XGetWindowProperty(xd, _x.drawable, prop, 0, 0, 0, AnyPropertyType,
423 161060a4 2003-10-11 devnull 			&type, &fmt, &dummy, &len, &data);
424 161060a4 2003-10-11 devnull 		if(lastlen == len && len > 0)
425 161060a4 2003-10-11 devnull 			break;
426 161060a4 2003-10-11 devnull 		lastlen = len;
427 161060a4 2003-10-11 devnull 	}
428 e39b8b19 2003-12-02 devnull 	if(i == 10){
429 161060a4 2003-10-11 devnull 		data = nil;
430 161060a4 2003-10-11 devnull 		goto out;
431 161060a4 2003-10-11 devnull 	}
432 161060a4 2003-10-11 devnull 	/* get the property */
433 161060a4 2003-10-11 devnull 	data = nil;
434 16a70966 2003-11-23 devnull 	XGetWindowProperty(xd, _x.drawable, prop, 0, SnarfSize/sizeof(ulong), 0, 
435 161060a4 2003-10-11 devnull 		AnyPropertyType, &type, &fmt, &len, &dummy, &xdata);
436 e39b8b19 2003-12-02 devnull 	if((type != XA_STRING && type != _x.utf8string) || len == 0){
437 161060a4 2003-10-11 devnull 		if(xdata)
438 161060a4 2003-10-11 devnull 			XFree(xdata);
439 161060a4 2003-10-11 devnull 		data = nil;
440 161060a4 2003-10-11 devnull 	}else{
441 161060a4 2003-10-11 devnull 		if(xdata){
442 be22ae2d 2004-03-26 devnull 			data = (uchar*)strdup((char*)xdata);
443 161060a4 2003-10-11 devnull 			XFree(xdata);
444 161060a4 2003-10-11 devnull 		}else
445 161060a4 2003-10-11 devnull 			data = nil;
446 161060a4 2003-10-11 devnull 	}
447 161060a4 2003-10-11 devnull out:
448 161060a4 2003-10-11 devnull 	qunlock(&clip.lk);
449 be22ae2d 2004-03-26 devnull 	return (char*)data;
450 76193d7c 2003-09-30 devnull }
451 76193d7c 2003-09-30 devnull 
452 161060a4 2003-10-11 devnull void
453 32f69c36 2003-12-11 devnull _xputsnarf(XDisplay *xd, char *data)
454 161060a4 2003-10-11 devnull {
455 16a70966 2003-11-23 devnull 	XButtonEvent e;
456 16a70966 2003-11-23 devnull 
457 161060a4 2003-10-11 devnull 	if(strlen(data) >= SnarfSize)
458 161060a4 2003-10-11 devnull 		return;
459 161060a4 2003-10-11 devnull 	qlock(&clip.lk);
460 161060a4 2003-10-11 devnull 	strcpy(clip.buf, data);
461 16a70966 2003-11-23 devnull 
462 16a70966 2003-11-23 devnull 	/* leave note for mouse proc to assert selection ownership */
463 16a70966 2003-11-23 devnull 	_x.putsnarf++;
464 16a70966 2003-11-23 devnull 
465 16a70966 2003-11-23 devnull 	/* send mouse a fake event so snarf is announced */
466 16a70966 2003-11-23 devnull 	memset(&e, 0, sizeof e);
467 16a70966 2003-11-23 devnull 	e.type = ButtonPress;
468 16a70966 2003-11-23 devnull 	e.window = _x.drawable;
469 16a70966 2003-11-23 devnull 	e.state = ~0;
470 16a70966 2003-11-23 devnull 	e.button = ~0;
471 16a70966 2003-11-23 devnull 	XSendEvent(xd, _x.drawable, True, ButtonPressMask, (XEvent*)&e);
472 161060a4 2003-10-11 devnull 	XFlush(xd);
473 16a70966 2003-11-23 devnull 
474 161060a4 2003-10-11 devnull 	qunlock(&clip.lk);
475 161060a4 2003-10-11 devnull }
476 161060a4 2003-10-11 devnull 
477 161060a4 2003-10-11 devnull int
478 32f69c36 2003-12-11 devnull _xselect(XEvent *e, XDisplay *xd)
479 161060a4 2003-10-11 devnull {
480 e39b8b19 2003-12-02 devnull 	char *name;
481 161060a4 2003-10-11 devnull 	XEvent r;
482 161060a4 2003-10-11 devnull 	XSelectionRequestEvent *xe;
483 e39b8b19 2003-12-02 devnull 	Atom a[4];
484 161060a4 2003-10-11 devnull 
485 161060a4 2003-10-11 devnull 	memset(&r, 0, sizeof r);
486 161060a4 2003-10-11 devnull 	xe = (XSelectionRequestEvent*)e;
487 4cdbf87a 2004-03-02 devnull if(0) fprint(2, "xselect target=%d requestor=%d property=%d selection=%d\n",
488 e39b8b19 2003-12-02 devnull 	xe->target, xe->requestor, xe->property, xe->selection);
489 e39b8b19 2003-12-02 devnull 	r.xselection.property = xe->property;
490 e39b8b19 2003-12-02 devnull 	if(xe->target == _x.targets){
491 e39b8b19 2003-12-02 devnull 		a[0] = XA_STRING;
492 e39b8b19 2003-12-02 devnull 		a[1] = _x.utf8string;
493 e39b8b19 2003-12-02 devnull 		a[2] = _x.text;
494 e39b8b19 2003-12-02 devnull 		a[3] = _x.compoundtext;
495 e39b8b19 2003-12-02 devnull 
496 e39b8b19 2003-12-02 devnull 		XChangeProperty(xd, xe->requestor, xe->property, xe->target,
497 e39b8b19 2003-12-02 devnull 			8, PropModeReplace, (uchar*)a, sizeof a);
498 e39b8b19 2003-12-02 devnull 	}else if(xe->target == XA_STRING || xe->target == _x.utf8string || xe->target == _x.text || xe->target == _x.compoundtext){
499 e39b8b19 2003-12-02 devnull 		/* if the target is STRING we're supposed to reply with Latin1 XXX */
500 e39b8b19 2003-12-02 devnull 		qlock(&clip.lk);
501 e39b8b19 2003-12-02 devnull 		XChangeProperty(xd, xe->requestor, xe->property, xe->target,
502 e39b8b19 2003-12-02 devnull 			8, PropModeReplace, (uchar*)clip.buf, strlen(clip.buf));
503 e39b8b19 2003-12-02 devnull 		qunlock(&clip.lk);
504 161060a4 2003-10-11 devnull 	}else{
505 e39b8b19 2003-12-02 devnull 		name = XGetAtomName(xd, xe->target);
506 49fda441 2004-04-22 devnull 		if(strcmp(name, "TIMESTAMP") != 0)
507 49fda441 2004-04-22 devnull 			fprint(2, "%s: cannot handle selection request for '%s' (%d)\n", argv0, name, (int)xe->target);
508 161060a4 2003-10-11 devnull 		r.xselection.property = None;
509 161060a4 2003-10-11 devnull 	}
510 161060a4 2003-10-11 devnull 
511 161060a4 2003-10-11 devnull 	r.xselection.display = xe->display;
512 161060a4 2003-10-11 devnull 	/* r.xselection.property filled above */
513 161060a4 2003-10-11 devnull 	r.xselection.target = xe->target;
514 161060a4 2003-10-11 devnull 	r.xselection.type = SelectionNotify;
515 161060a4 2003-10-11 devnull 	r.xselection.requestor = xe->requestor;
516 161060a4 2003-10-11 devnull 	r.xselection.time = xe->time;
517 161060a4 2003-10-11 devnull 	r.xselection.send_event = True;
518 161060a4 2003-10-11 devnull 	r.xselection.selection = xe->selection;
519 161060a4 2003-10-11 devnull 	XSendEvent(xd, xe->requestor, False, 0, &r);
520 161060a4 2003-10-11 devnull 	XFlush(xd);
521 161060a4 2003-10-11 devnull 	return 0;
522 161060a4 2003-10-11 devnull }
523 161060a4 2003-10-11 devnull 
524 161060a4 2003-10-11 devnull void
525 161060a4 2003-10-11 devnull putsnarf(char *data)
526 161060a4 2003-10-11 devnull {
527 32f69c36 2003-12-11 devnull 	_xputsnarf(_x.snarfcon, data);
528 161060a4 2003-10-11 devnull }
529 161060a4 2003-10-11 devnull 
530 161060a4 2003-10-11 devnull char*
531 161060a4 2003-10-11 devnull getsnarf(void)
532 161060a4 2003-10-11 devnull {
533 32f69c36 2003-12-11 devnull 	return _xgetsnarf(_x.snarfcon);
534 161060a4 2003-10-11 devnull }
535 161060a4 2003-10-11 devnull