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