1 c66b5250 2006-06-25 devnull /* input event and data structure translation */
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
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
30 c66b5250 2006-06-25 devnull static KeySym
31 c66b5250 2006-06-25 devnull __xtoplan9kbd(XEvent *e)
33 c66b5250 2006-06-25 devnull KeySym k;
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 c66b5250 2006-06-25 devnull if(k == XK_Multi_key || k == NoSymbol)
41 c66b5250 2006-06-25 devnull return -1;
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;
66 c66b5250 2006-06-25 devnull case XK_Linefeed:
67 c66b5250 2006-06-25 devnull k = '\r';
69 c66b5250 2006-06-25 devnull case XK_KP_Space:
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;
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;
80 c66b5250 2006-06-25 devnull case XK_Up:
81 c66b5250 2006-06-25 devnull case XK_KP_Up:
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;
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;
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;
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;
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;
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;
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';
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 c66b5250 2006-06-25 devnull k = Kalt;
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;
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 c66b5250 2006-06-25 devnull 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;
136 c66b5250 2006-06-25 devnull return k+0;
139 c66b5250 2006-06-25 devnull extern int _latin1(Rune*, int);
140 c66b5250 2006-06-25 devnull static Rune*
141 c66b5250 2006-06-25 devnull xtoplan9latin1(XEvent *e)
143 c66b5250 2006-06-25 devnull static Rune k[10];
144 c66b5250 2006-06-25 devnull static int alting, nk;
148 c66b5250 2006-06-25 devnull r = __xtoplan9kbd(e);
149 c66b5250 2006-06-25 devnull if(r < 0)
150 c66b5250 2006-06-25 devnull return nil;
151 c66b5250 2006-06-25 devnull if(alting){
153 c66b5250 2006-06-25 devnull * Kludge for Mac's X11 3-button emulation.
154 c66b5250 2006-06-25 devnull * It treats Command+Button as button 3, but also
155 c66b5250 2006-06-25 devnull * ends up sending XK_Meta_L twice.
157 c66b5250 2006-06-25 devnull if(r == Kalt){
158 c66b5250 2006-06-25 devnull alting = 0;
159 c66b5250 2006-06-25 devnull return nil;
161 c66b5250 2006-06-25 devnull k[nk++] = r;
162 c66b5250 2006-06-25 devnull n = _latin1(k, nk);
163 c66b5250 2006-06-25 devnull if(n > 0){
164 c66b5250 2006-06-25 devnull alting = 0;
165 c66b5250 2006-06-25 devnull k[0] = n;
166 c66b5250 2006-06-25 devnull k[1] = 0;
167 c66b5250 2006-06-25 devnull return k;
169 c66b5250 2006-06-25 devnull if(n == -1){
170 c66b5250 2006-06-25 devnull alting = 0;
171 c66b5250 2006-06-25 devnull k[nk] = 0;
172 c66b5250 2006-06-25 devnull return k;
174 c66b5250 2006-06-25 devnull /* n < -1, need more input */
175 c66b5250 2006-06-25 devnull return nil;
176 c66b5250 2006-06-25 devnull }else if(r == Kalt){
177 c66b5250 2006-06-25 devnull alting = 1;
179 c66b5250 2006-06-25 devnull return nil;
181 c66b5250 2006-06-25 devnull k[0] = r;
182 c66b5250 2006-06-25 devnull k[1] = 0;
183 c66b5250 2006-06-25 devnull return k;
188 c66b5250 2006-06-25 devnull _xtoplan9kbd(XEvent *e)
190 c66b5250 2006-06-25 devnull static Rune *r;
192 c66b5250 2006-06-25 devnull if(e == (XEvent*)-1){
193 c66b5250 2006-06-25 devnull assert(r);
195 c66b5250 2006-06-25 devnull return 0;
198 c66b5250 2006-06-25 devnull r = xtoplan9latin1(e);
199 c66b5250 2006-06-25 devnull if(r && *r)
200 c66b5250 2006-06-25 devnull return *r++;
201 c66b5250 2006-06-25 devnull return -1;
205 c66b5250 2006-06-25 devnull _xtoplan9mouse(XEvent *e, Mouse *m)
208 c66b5250 2006-06-25 devnull XButtonEvent *be;
209 c66b5250 2006-06-25 devnull XMotionEvent *me;
211 c66b5250 2006-06-25 devnull if(_x.putsnarf != _x.assertsnarf){
212 c66b5250 2006-06-25 devnull _x.assertsnarf = _x.putsnarf;
213 c66b5250 2006-06-25 devnull XSetSelectionOwner(_x.display, XA_PRIMARY, _x.drawable, CurrentTime);
214 c66b5250 2006-06-25 devnull if(_x.clipboard != None)
215 c66b5250 2006-06-25 devnull XSetSelectionOwner(_x.display, _x.clipboard, _x.drawable, CurrentTime);
216 c66b5250 2006-06-25 devnull XFlush(_x.display);
219 c66b5250 2006-06-25 devnull switch(e->type){
220 c66b5250 2006-06-25 devnull case ButtonPress:
221 c66b5250 2006-06-25 devnull be = (XButtonEvent*)e;
223 c66b5250 2006-06-25 devnull * Fake message, just sent to make us announce snarf.
224 c66b5250 2006-06-25 devnull * Apparently state and button are 16 and 8 bits on
225 c66b5250 2006-06-25 devnull * the wire, since they are truncated by the time they
226 c66b5250 2006-06-25 devnull * get to us.
228 c66b5250 2006-06-25 devnull if(be->send_event
229 c66b5250 2006-06-25 devnull && (~be->state&0xFFFF)==0
230 c66b5250 2006-06-25 devnull && (~be->button&0xFF)==0)
231 c66b5250 2006-06-25 devnull return -1;
232 c66b5250 2006-06-25 devnull /* BUG? on mac need to inherit these from elsewhere? */
233 c66b5250 2006-06-25 devnull m->xy.x = be->x;
234 c66b5250 2006-06-25 devnull m->xy.y = be->y;
235 c66b5250 2006-06-25 devnull s = be->state;
236 c66b5250 2006-06-25 devnull m->msec = be->time;
237 c66b5250 2006-06-25 devnull switch(be->button){
239 c66b5250 2006-06-25 devnull s |= Button1Mask;
242 c66b5250 2006-06-25 devnull s |= Button2Mask;
245 c66b5250 2006-06-25 devnull s |= Button3Mask;
248 c66b5250 2006-06-25 devnull s |= Button4Mask;
251 c66b5250 2006-06-25 devnull s |= Button5Mask;
255 c66b5250 2006-06-25 devnull case ButtonRelease:
256 c66b5250 2006-06-25 devnull be = (XButtonEvent*)e;
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){
263 c66b5250 2006-06-25 devnull s &= ~Button1Mask;
266 c66b5250 2006-06-25 devnull s &= ~Button2Mask;
269 c66b5250 2006-06-25 devnull s &= ~Button3Mask;
272 c66b5250 2006-06-25 devnull s &= ~Button4Mask;
275 c66b5250 2006-06-25 devnull s &= ~Button5Mask;
280 c66b5250 2006-06-25 devnull case MotionNotify:
281 c66b5250 2006-06-25 devnull me = (XMotionEvent*)e;
282 c66b5250 2006-06-25 devnull s = me->state;
283 c66b5250 2006-06-25 devnull m->xy.x = me->x;
284 c66b5250 2006-06-25 devnull m->xy.y = me->y;
285 c66b5250 2006-06-25 devnull m->msec = me->time;
288 c66b5250 2006-06-25 devnull default:
289 c66b5250 2006-06-25 devnull return -1;
292 c66b5250 2006-06-25 devnull m->buttons = 0;
293 c66b5250 2006-06-25 devnull if(s & Button1Mask)
294 c66b5250 2006-06-25 devnull m->buttons |= 1;
295 c66b5250 2006-06-25 devnull if(s & Button2Mask)
296 c66b5250 2006-06-25 devnull m->buttons |= 2;
297 c66b5250 2006-06-25 devnull if(s & Button3Mask)
298 c66b5250 2006-06-25 devnull m->buttons |= 4;
299 c66b5250 2006-06-25 devnull if(s & Button4Mask)
300 c66b5250 2006-06-25 devnull m->buttons |= 8;
301 c66b5250 2006-06-25 devnull if(s & Button5Mask)
302 c66b5250 2006-06-25 devnull m->buttons |= 16;
303 c66b5250 2006-06-25 devnull return 0;
307 c66b5250 2006-06-25 devnull _xmoveto(Point p)
309 c66b5250 2006-06-25 devnull XWarpPointer(_x.display, None, _x.drawable, 0, 0, 0, 0, p.x, p.y);
310 c66b5250 2006-06-25 devnull XFlush(_x.display);
313 c66b5250 2006-06-25 devnull static int
314 c66b5250 2006-06-25 devnull revbyte(int b)
319 c66b5250 2006-06-25 devnull r |= (b&0x01) << 7;
320 c66b5250 2006-06-25 devnull r |= (b&0x02) << 5;
321 c66b5250 2006-06-25 devnull r |= (b&0x04) << 3;
322 c66b5250 2006-06-25 devnull r |= (b&0x08) << 1;
323 c66b5250 2006-06-25 devnull r |= (b&0x10) >> 1;
324 c66b5250 2006-06-25 devnull r |= (b&0x20) >> 3;
325 c66b5250 2006-06-25 devnull r |= (b&0x40) >> 5;
326 c66b5250 2006-06-25 devnull r |= (b&0x80) >> 7;
327 c66b5250 2006-06-25 devnull return r;
330 c66b5250 2006-06-25 devnull static void
331 c66b5250 2006-06-25 devnull xcursorarrow(void)
333 c66b5250 2006-06-25 devnull if(_x.cursor != 0){
334 c66b5250 2006-06-25 devnull XFreeCursor(_x.display, _x.cursor);
335 c66b5250 2006-06-25 devnull _x.cursor = 0;
337 c66b5250 2006-06-25 devnull XUndefineCursor(_x.display, _x.drawable);
338 c66b5250 2006-06-25 devnull XFlush(_x.display);
343 c66b5250 2006-06-25 devnull _xsetcursor(Cursor *c)
345 c66b5250 2006-06-25 devnull XColor fg, bg;
346 c66b5250 2006-06-25 devnull XCursor xc;
347 c66b5250 2006-06-25 devnull Pixmap xsrc, xmask;
349 c66b5250 2006-06-25 devnull uchar src[2*16], mask[2*16];
351 c66b5250 2006-06-25 devnull if(c == nil){
352 c66b5250 2006-06-25 devnull xcursorarrow();
355 c66b5250 2006-06-25 devnull for(i=0; i<2*16; i++){
356 c66b5250 2006-06-25 devnull src[i] = revbyte(c->set[i]);
357 c66b5250 2006-06-25 devnull mask[i] = revbyte(c->set[i] | c->clr[i]);
360 c66b5250 2006-06-25 devnull fg = _x.map[0];
361 c66b5250 2006-06-25 devnull bg = _x.map[255];
362 c66b5250 2006-06-25 devnull xsrc = XCreateBitmapFromData(_x.display, _x.drawable, (char*)src, 16, 16);
363 c66b5250 2006-06-25 devnull xmask = XCreateBitmapFromData(_x.display, _x.drawable, (char*)mask, 16, 16);
364 c66b5250 2006-06-25 devnull xc = XCreatePixmapCursor(_x.display, xsrc, xmask, &fg, &bg, -c->offset.x, -c->offset.y);
365 c66b5250 2006-06-25 devnull if(xc != 0) {
366 c66b5250 2006-06-25 devnull XDefineCursor(_x.display, _x.drawable, xc);
367 c66b5250 2006-06-25 devnull if(_x.cursor != 0)
368 c66b5250 2006-06-25 devnull XFreeCursor(_x.display, _x.cursor);
369 c66b5250 2006-06-25 devnull _x.cursor = xc;
371 c66b5250 2006-06-25 devnull XFreePixmap(_x.display, xsrc);
372 c66b5250 2006-06-25 devnull XFreePixmap(_x.display, xmask);
373 c66b5250 2006-06-25 devnull XFlush(_x.display);
376 c66b5250 2006-06-25 devnull struct {
377 c66b5250 2006-06-25 devnull QLock lk;
378 c66b5250 2006-06-25 devnull char buf[SnarfSize];
379 c66b5250 2006-06-25 devnull #ifdef APPLESNARF
380 c66b5250 2006-06-25 devnull Rune rbuf[SnarfSize];
381 c66b5250 2006-06-25 devnull PasteboardRef apple;
386 c66b5250 2006-06-25 devnull _xgetsnarf(void)
388 c66b5250 2006-06-25 devnull uchar *data, *xdata;
389 c66b5250 2006-06-25 devnull Atom clipboard, type, prop;
390 c66b5250 2006-06-25 devnull ulong len, lastlen, dummy;
391 c66b5250 2006-06-25 devnull int fmt, i;
392 c66b5250 2006-06-25 devnull XWindow w;
394 c66b5250 2006-06-25 devnull qlock(&clip.lk);
396 c66b5250 2006-06-25 devnull * Have we snarfed recently and the X server hasn't caught up?
398 c66b5250 2006-06-25 devnull if(_x.putsnarf != _x.assertsnarf)
399 c66b5250 2006-06-25 devnull goto mine;
402 c66b5250 2006-06-25 devnull * Is there a primary selection (highlighted text in an xterm)?
404 c66b5250 2006-06-25 devnull clipboard = XA_PRIMARY;
405 c66b5250 2006-06-25 devnull w = XGetSelectionOwner(_x.display, XA_PRIMARY);
406 c66b5250 2006-06-25 devnull if(w == _x.drawable){
408 c66b5250 2006-06-25 devnull data = (uchar*)strdup(clip.buf);
409 c66b5250 2006-06-25 devnull goto out;
413 c66b5250 2006-06-25 devnull * If not, is there a clipboard selection?
415 c66b5250 2006-06-25 devnull if(w == None && _x.clipboard != None){
416 c66b5250 2006-06-25 devnull clipboard = _x.clipboard;
417 c66b5250 2006-06-25 devnull w = XGetSelectionOwner(_x.display, _x.clipboard);
418 c66b5250 2006-06-25 devnull if(w == _x.drawable)
419 c66b5250 2006-06-25 devnull goto mine;
423 c66b5250 2006-06-25 devnull * If not, give up.
425 c66b5250 2006-06-25 devnull if(w == None){
426 c66b5250 2006-06-25 devnull data = nil;
427 c66b5250 2006-06-25 devnull goto out;
431 c66b5250 2006-06-25 devnull * We should be waiting for SelectionNotify here, but it might never
432 c66b5250 2006-06-25 devnull * come, and we have no way to time out. Instead, we will clear
433 c66b5250 2006-06-25 devnull * local property #1, request our buddy to fill it in for us, and poll
434 c66b5250 2006-06-25 devnull * until he's done or we get tired of waiting.
436 c66b5250 2006-06-25 devnull * We should try to go for _x.utf8string instead of XA_STRING,
437 c66b5250 2006-06-25 devnull * but that would add to the polling.
439 c66b5250 2006-06-25 devnull prop = 1;
440 c66b5250 2006-06-25 devnull XChangeProperty(_x.display, _x.drawable, prop, XA_STRING, 8, PropModeReplace, (uchar*)"", 0);
441 c66b5250 2006-06-25 devnull XConvertSelection(_x.display, clipboard, XA_STRING, prop, _x.drawable, CurrentTime);
442 c66b5250 2006-06-25 devnull XFlush(_x.display);
443 c66b5250 2006-06-25 devnull lastlen = 0;
444 c66b5250 2006-06-25 devnull for(i=0; i<10 || (lastlen!=0 && i<30); i++){
445 c66b5250 2006-06-25 devnull usleep(100*1000);
446 c66b5250 2006-06-25 devnull XGetWindowProperty(_x.display, _x.drawable, prop, 0, 0, 0, AnyPropertyType,
447 c66b5250 2006-06-25 devnull &type, &fmt, &dummy, &len, &data);
448 c66b5250 2006-06-25 devnull if(lastlen == len && len > 0)
450 c66b5250 2006-06-25 devnull lastlen = len;
452 c66b5250 2006-06-25 devnull if(i == 10){
453 c66b5250 2006-06-25 devnull data = nil;
454 c66b5250 2006-06-25 devnull goto out;
456 c66b5250 2006-06-25 devnull /* get the property */
457 c66b5250 2006-06-25 devnull data = nil;
458 c66b5250 2006-06-25 devnull XGetWindowProperty(_x.display, _x.drawable, prop, 0, SnarfSize/sizeof(ulong), 0,
459 c66b5250 2006-06-25 devnull AnyPropertyType, &type, &fmt, &len, &dummy, &xdata);
460 c66b5250 2006-06-25 devnull if((type != XA_STRING && type != _x.utf8string) || len == 0){
461 c66b5250 2006-06-25 devnull if(xdata)
462 c66b5250 2006-06-25 devnull XFree(xdata);
463 c66b5250 2006-06-25 devnull data = nil;
465 c66b5250 2006-06-25 devnull if(xdata){
466 c66b5250 2006-06-25 devnull data = (uchar*)strdup((char*)xdata);
467 c66b5250 2006-06-25 devnull XFree(xdata);
469 c66b5250 2006-06-25 devnull data = nil;
472 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
473 c66b5250 2006-06-25 devnull return (char*)data;
477 c66b5250 2006-06-25 devnull __xputsnarf(char *data)
479 c66b5250 2006-06-25 devnull XButtonEvent e;
481 c66b5250 2006-06-25 devnull if(strlen(data) >= SnarfSize)
483 c66b5250 2006-06-25 devnull qlock(&clip.lk);
484 c66b5250 2006-06-25 devnull strcpy(clip.buf, data);
485 c66b5250 2006-06-25 devnull /* leave note for mouse proc to assert selection ownership */
486 c66b5250 2006-06-25 devnull _x.putsnarf++;
488 c66b5250 2006-06-25 devnull /* send mouse a fake event so snarf is announced */
489 c66b5250 2006-06-25 devnull memset(&e, 0, sizeof e);
490 c66b5250 2006-06-25 devnull e.type = ButtonPress;
491 c66b5250 2006-06-25 devnull e.window = _x.drawable;
492 c66b5250 2006-06-25 devnull e.state = ~0;
493 c66b5250 2006-06-25 devnull e.button = ~0;
494 c66b5250 2006-06-25 devnull XSendEvent(_x.display, _x.drawable, True, ButtonPressMask, (XEvent*)&e);
495 c66b5250 2006-06-25 devnull XFlush(_x.display);
496 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
500 c66b5250 2006-06-25 devnull _xselect(XEvent *e)
502 c66b5250 2006-06-25 devnull char *name;
503 c66b5250 2006-06-25 devnull XEvent r;
504 c66b5250 2006-06-25 devnull XSelectionRequestEvent *xe;
505 c66b5250 2006-06-25 devnull Atom a[4];
507 c66b5250 2006-06-25 devnull memset(&r, 0, sizeof r);
508 c66b5250 2006-06-25 devnull xe = (XSelectionRequestEvent*)e;
509 c66b5250 2006-06-25 devnull if(0) fprint(2, "xselect target=%d requestor=%d property=%d selection=%d\n",
510 c66b5250 2006-06-25 devnull xe->target, xe->requestor, xe->property, xe->selection);
511 c66b5250 2006-06-25 devnull r.xselection.property = xe->property;
512 c66b5250 2006-06-25 devnull if(xe->target == _x.targets){
513 c66b5250 2006-06-25 devnull a[0] = XA_STRING;
514 c66b5250 2006-06-25 devnull a[1] = _x.utf8string;
515 c66b5250 2006-06-25 devnull a[2] = _x.text;
516 c66b5250 2006-06-25 devnull a[3] = _x.compoundtext;
518 c66b5250 2006-06-25 devnull XChangeProperty(_x.display, xe->requestor, xe->property, xe->target,
519 c66b5250 2006-06-25 devnull 8, PropModeReplace, (uchar*)a, sizeof a);
520 c66b5250 2006-06-25 devnull }else if(xe->target == XA_STRING
521 c66b5250 2006-06-25 devnull || xe->target == _x.utf8string
522 c66b5250 2006-06-25 devnull || xe->target == _x.text
523 c66b5250 2006-06-25 devnull || xe->target == _x.compoundtext
524 c66b5250 2006-06-25 devnull || ((name = XGetAtomName(_x.display, xe->target)) && strcmp(name, "text/plain;charset=UTF-8") == 0)){
525 c66b5250 2006-06-25 devnull /* text/plain;charset=UTF-8 seems nonstandard but is used by Synergy */
526 c66b5250 2006-06-25 devnull /* if the target is STRING we're supposed to reply with Latin1 XXX */
527 c66b5250 2006-06-25 devnull qlock(&clip.lk);
528 c66b5250 2006-06-25 devnull XChangeProperty(_x.display, xe->requestor, xe->property, xe->target,
529 c66b5250 2006-06-25 devnull 8, PropModeReplace, (uchar*)clip.buf, strlen(clip.buf));
530 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
532 c66b5250 2006-06-25 devnull if(strcmp(name, "TIMESTAMP") != 0)
533 c66b5250 2006-06-25 devnull fprint(2, "%s: cannot handle selection request for '%s' (%d)\n", argv0, name, (int)xe->target);
534 c66b5250 2006-06-25 devnull r.xselection.property = None;
537 c66b5250 2006-06-25 devnull r.xselection.display = xe->display;
538 c66b5250 2006-06-25 devnull /* r.xselection.property filled above */
539 c66b5250 2006-06-25 devnull r.xselection.target = xe->target;
540 c66b5250 2006-06-25 devnull r.xselection.type = SelectionNotify;
541 c66b5250 2006-06-25 devnull r.xselection.requestor = xe->requestor;
542 c66b5250 2006-06-25 devnull r.xselection.time = xe->time;
543 c66b5250 2006-06-25 devnull r.xselection.send_event = True;
544 c66b5250 2006-06-25 devnull r.xselection.selection = xe->selection;
545 c66b5250 2006-06-25 devnull XSendEvent(_x.display, xe->requestor, False, 0, &r);
546 c66b5250 2006-06-25 devnull XFlush(_x.display);
547 c66b5250 2006-06-25 devnull return 0;
550 c66b5250 2006-06-25 devnull #ifdef APPLESNARF
552 c66b5250 2006-06-25 devnull _applegetsnarf(void)
554 c66b5250 2006-06-25 devnull char *s, *t;
555 c66b5250 2006-06-25 devnull CFArrayRef flavors;
556 c66b5250 2006-06-25 devnull CFDataRef data;
557 c66b5250 2006-06-25 devnull CFIndex nflavor, ndata, j;
558 c66b5250 2006-06-25 devnull CFStringRef type;
559 c66b5250 2006-06-25 devnull ItemCount nitem;
560 c66b5250 2006-06-25 devnull PasteboardItemID id;
561 c66b5250 2006-06-25 devnull PasteboardSyncFlags flags;
562 c66b5250 2006-06-25 devnull UInt32 i;
564 c66b5250 2006-06-25 devnull /* fprint(2, "applegetsnarf\n"); */
565 c66b5250 2006-06-25 devnull qlock(&clip.lk);
566 c66b5250 2006-06-25 devnull if(clip.apple == nil){
567 c66b5250 2006-06-25 devnull if(PasteboardCreate(kPasteboardClipboard, &clip.apple) != noErr){
568 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard create failed\n");
569 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
570 c66b5250 2006-06-25 devnull return nil;
573 c66b5250 2006-06-25 devnull flags = PasteboardSynchronize(clip.apple);
574 c66b5250 2006-06-25 devnull if(flags&kPasteboardClientIsOwner){
575 c66b5250 2006-06-25 devnull s = strdup(clip.buf);
576 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
577 c66b5250 2006-06-25 devnull return s;
579 c66b5250 2006-06-25 devnull if(PasteboardGetItemCount(clip.apple, &nitem) != noErr){
580 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard get item count failed\n");
581 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
582 c66b5250 2006-06-25 devnull return nil;
584 c66b5250 2006-06-25 devnull for(i=1; i<=nitem; i++){
585 c66b5250 2006-06-25 devnull if(PasteboardGetItemIdentifier(clip.apple, i, &id) != noErr)
586 c66b5250 2006-06-25 devnull continue;
587 c66b5250 2006-06-25 devnull if(PasteboardCopyItemFlavors(clip.apple, id, &flavors) != noErr)
588 c66b5250 2006-06-25 devnull continue;
589 c66b5250 2006-06-25 devnull nflavor = CFArrayGetCount(flavors);
590 c66b5250 2006-06-25 devnull for(j=0; j<nflavor; j++){
591 c66b5250 2006-06-25 devnull type = (CFStringRef)CFArrayGetValueAtIndex(flavors, j);
592 c66b5250 2006-06-25 devnull if(!UTTypeConformsTo(type, CFSTR("public.utf16-plain-text")))
593 c66b5250 2006-06-25 devnull continue;
594 c66b5250 2006-06-25 devnull if(PasteboardCopyItemFlavorData(clip.apple, id, type, &data) != noErr)
595 c66b5250 2006-06-25 devnull continue;
596 c66b5250 2006-06-25 devnull ndata = CFDataGetLength(data);
597 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
598 c66b5250 2006-06-25 devnull s = smprint("%.*S", ndata/2, (Rune*)CFDataGetBytePtr(data));
599 c66b5250 2006-06-25 devnull CFRelease(flavors);
600 c66b5250 2006-06-25 devnull CFRelease(data);
601 c66b5250 2006-06-25 devnull for(t=s; *t; t++)
602 c66b5250 2006-06-25 devnull if(*t == '\r')
603 c66b5250 2006-06-25 devnull *t = '\n';
604 c66b5250 2006-06-25 devnull return s;
606 c66b5250 2006-06-25 devnull CFRelease(flavors);
608 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
609 c66b5250 2006-06-25 devnull return nil;
613 c66b5250 2006-06-25 devnull _appleputsnarf(char *s)
615 c66b5250 2006-06-25 devnull CFDataRef cfdata;
616 c66b5250 2006-06-25 devnull PasteboardSyncFlags flags;
618 c66b5250 2006-06-25 devnull /* fprint(2, "appleputsnarf\n"); */
620 c66b5250 2006-06-25 devnull if(strlen(s) >= SnarfSize)
622 c66b5250 2006-06-25 devnull qlock(&clip.lk);
623 c66b5250 2006-06-25 devnull strcpy(clip.buf, s);
624 c66b5250 2006-06-25 devnull runesnprint(clip.rbuf, nelem(clip.rbuf), "%s", s);
625 c66b5250 2006-06-25 devnull if(clip.apple == nil){
626 c66b5250 2006-06-25 devnull if(PasteboardCreate(kPasteboardClipboard, &clip.apple) != noErr){
627 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard create failed\n");
628 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
632 c66b5250 2006-06-25 devnull if(PasteboardClear(clip.apple) != noErr){
633 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard clear failed\n");
634 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
637 c66b5250 2006-06-25 devnull flags = PasteboardSynchronize(clip.apple);
638 c66b5250 2006-06-25 devnull if((flags&kPasteboardModified) || !(flags&kPasteboardClientIsOwner)){
639 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard cannot assert ownership\n");
640 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
643 c66b5250 2006-06-25 devnull cfdata = CFDataCreate(kCFAllocatorDefault,
644 c66b5250 2006-06-25 devnull (uchar*)clip.rbuf, runestrlen(clip.rbuf)*2);
645 c66b5250 2006-06-25 devnull if(cfdata == nil){
646 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard cfdatacreate failed\n");
647 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
650 c66b5250 2006-06-25 devnull if(PasteboardPutItemFlavor(clip.apple, (PasteboardItemID)1,
651 c66b5250 2006-06-25 devnull CFSTR("public.utf16-plain-text"), cfdata, 0) != noErr){
652 c66b5250 2006-06-25 devnull fprint(2, "apple pasteboard putitem failed\n");
653 c66b5250 2006-06-25 devnull CFRelease(cfdata);
654 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
657 c66b5250 2006-06-25 devnull /* CFRelease(cfdata); ??? */
658 c66b5250 2006-06-25 devnull qunlock(&clip.lk);
660 c66b5250 2006-06-25 devnull #endif /* APPLESNARF */
663 c66b5250 2006-06-25 devnull _xputsnarf(char *data)
665 c66b5250 2006-06-25 devnull #ifdef APPLESNARF
666 c66b5250 2006-06-25 devnull _appleputsnarf(data);
668 c66b5250 2006-06-25 devnull __xputsnarf(data);
672 c66b5250 2006-06-25 devnull * Send the mouse event back to the window manager.
673 c66b5250 2006-06-25 devnull * So that 9term can tell rio to pop up its button3 menu.
676 c66b5250 2006-06-25 devnull _xbouncemouse(Mouse *m)
678 c66b5250 2006-06-25 devnull XButtonEvent e;
679 c66b5250 2006-06-25 devnull XWindow dw;
681 c66b5250 2006-06-25 devnull e.type = ButtonPress;
682 c66b5250 2006-06-25 devnull e.state = 0;
683 c66b5250 2006-06-25 devnull e.button = 0;
684 c66b5250 2006-06-25 devnull if(m->buttons&1)
685 c66b5250 2006-06-25 devnull e.button = 1;
686 c66b5250 2006-06-25 devnull else if(m->buttons&2)
687 c66b5250 2006-06-25 devnull e.button = 2;
688 c66b5250 2006-06-25 devnull else if(m->buttons&4)
689 c66b5250 2006-06-25 devnull e.button = 3;
690 c66b5250 2006-06-25 devnull e.same_screen = 1;
691 c66b5250 2006-06-25 devnull XTranslateCoordinates(_x.display, _x.drawable,
692 c66b5250 2006-06-25 devnull DefaultRootWindow(_x.display),
693 c66b5250 2006-06-25 devnull m->xy.x, m->xy.y, &e.x_root, &e.y_root, &dw);
694 c66b5250 2006-06-25 devnull e.root = DefaultRootWindow(_x.display);
695 c66b5250 2006-06-25 devnull e.window = e.root;
696 c66b5250 2006-06-25 devnull e.subwindow = None;
697 c66b5250 2006-06-25 devnull e.x = e.x_root;
698 c66b5250 2006-06-25 devnull e.y = e.y_root;
699 c66b5250 2006-06-25 devnull #undef time
700 c66b5250 2006-06-25 devnull e.time = CurrentTime;
701 c66b5250 2006-06-25 devnull XUngrabPointer(_x.display, m->msec);
702 c66b5250 2006-06-25 devnull XSendEvent(_x.display, e.root, True, ButtonPressMask, (XEvent*)&e);
703 c66b5250 2006-06-25 devnull XFlush(_x.display);