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