author | František Kučera <franta-hg@frantovo.cz> |
Fri, 08 Mar 2019 22:38:58 +0100 | |
branch | v_0 |
changeset 2 | 3ba27504be0e |
parent 1 | ac5f3768ebb1 |
child 3 | d8793f61ee43 |
permissions | -rw-r--r-- |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
1 |
/** |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
2 |
* Spacenav lib hack |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
3 |
* Copyright © 2019 František Kučera (Frantovo.cz, GlobalCode.info) |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
4 |
* |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
5 |
* This program is free software: you can redistribute it and/or modify |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
6 |
* it under the terms of the GNU General Public License as published by |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
7 |
* the Free Software Foundation, either version 3 of the License, or |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
8 |
* (at your option) any later version. |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
9 |
* |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
10 |
* This program is distributed in the hope that it will be useful, |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
11 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
12 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
13 |
* GNU General Public License for more details. |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
14 |
* |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
15 |
* You should have received a copy of the GNU General Public License |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
16 |
* along with this program. If not, see <http://www.gnu.org/licenses/>. |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
17 |
*/ |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
18 |
#define _GNU_SOURCE |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
19 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
20 |
#include <stdio.h> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
21 |
#include <stdint.h> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
22 |
#include <dlfcn.h> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
23 |
#include <stdlib.h> |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
24 |
#include <unistd.h> |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
25 |
|
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
26 |
#include <X11/Xlib.h> |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
27 |
#include <spnav.h> |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
28 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
29 |
// from proto_x11.c (spacenavd) |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
30 |
static Atom xa_event_motion, xa_event_bpress, xa_event_brelease, xa_event_cmd; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
31 |
static float x11_sens = 1.0; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
32 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
33 |
/* X11 error handler */ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
34 |
static int xerr(Display *dpy, XErrorEvent *err) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
35 |
char buf[512]; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
36 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
37 |
fprintf(stderr, "xerr(%p, %p)\n", (void*) dpy, (void*) err); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
38 |
if (err->error_code == BadWindow) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
39 |
fprintf(stderr, "BadWindow\n"); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
40 |
} else { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
41 |
XGetErrorText(dpy, err->error_code, buf, sizeof buf); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
42 |
fprintf(stderr, "Caught unexpected X error: %s\n", buf); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
43 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
44 |
return 0; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
45 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
46 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
47 |
/* X11 I/O error handler |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
48 |
* This function must not return or xlib will abort. |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
49 |
*/ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
50 |
static int xioerr(Display *display) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
51 |
fprintf(stderr, "Lost the X server!\n"); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
52 |
return 0; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
53 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
54 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
55 |
/** |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
56 |
* This function is based on proto_x11.c (spacenavd) written by: |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
57 |
* Copyright (C) 2007-2019 John Tsiombikas <nuclear@member.fsf.org> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
58 |
* and published under GNU GPLv3+ |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
59 |
* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
60 |
* @param ev |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
61 |
* @param dpy |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
62 |
* @param win |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
63 |
*/ |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
64 |
static void send_xevent(spnav_event *ev, Display* dpy, Window win) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
65 |
int i; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
66 |
XEvent xevent; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
67 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
68 |
if (!dpy) return; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
69 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
70 |
// if(setjmp(jbuf)) return; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
71 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
72 |
xevent.type = ClientMessage; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
73 |
xevent.xclient.send_event = False; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
74 |
xevent.xclient.display = dpy; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
75 |
xevent.xclient.window = win; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
76 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
77 |
switch (ev->type) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
78 |
case SPNAV_EVENT_MOTION: |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
79 |
xevent.xclient.message_type = xa_event_motion; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
80 |
xevent.xclient.format = 16; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
81 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
82 |
for (i = 0; i < 6; i++) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
83 |
float val = (float) ev->motion.data[i] * x11_sens; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
84 |
xevent.xclient.data.s[i + 2] = (short) val; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
85 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
86 |
xevent.xclient.data.s[0] = xevent.xclient.data.s[1] = 0; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
87 |
xevent.xclient.data.s[8] = ev->motion.period; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
88 |
break; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
89 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
90 |
case SPNAV_EVENT_BUTTON: |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
91 |
xevent.xclient.message_type = ev->button.press ? xa_event_bpress : xa_event_brelease; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
92 |
xevent.xclient.format = 16; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
93 |
xevent.xclient.data.s[2] = ev->button.bnum; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
94 |
break; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
95 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
96 |
default: |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
97 |
break; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
98 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
99 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
100 |
Window xxx; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
101 |
int zzz; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
102 |
int yyy = XGetInputFocus(dpy, &xxx, &zzz); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
103 |
fprintf(stderr, "spnav-lib-hack: XGetInputFocus(%p, %lx, %d) = %d\n", dpy, xxx, zzz, yyy); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
104 |
Status result = XSendEvent(dpy, win, False, 0, &xevent); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
105 |
int xflushResult = XFlush(dpy); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
106 |
fprintf(stderr, "spnav-lib-hack: send_xevent(); XSendEvent() = %d; XFlush() = %d\n", result, xflushResult); |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
107 |
} |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
108 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
109 |
static void spacenav_hack_translate_events(Window win) { |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
110 |
spnav_event event; |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
111 |
Display* dpy = XOpenDisplay(0); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
112 |
XSetErrorHandler(xerr); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
113 |
XSetIOErrorHandler(xioerr); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
114 |
fprintf(stderr, "Error handlers were set\n"); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
115 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
116 |
/* |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
117 |
xa_event_motion = XInternAtom(dpy, "MotionEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
118 |
xa_event_bpress = XInternAtom(dpy, "ButtonPressEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
119 |
xa_event_brelease = XInternAtom(dpy, "ButtonReleaseEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
120 |
xa_event_cmd = XInternAtom(dpy, "CommandEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
121 |
*/ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
122 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
123 |
fprintf(stderr, "spnav-lib-hack: xa_event_motion = %ld\n", xa_event_motion); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
124 |
fprintf(stderr, "spnav-lib-hack: xa_event_bpress = %ld\n", xa_event_bpress); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
125 |
fprintf(stderr, "spnav-lib-hack: xa_event_brelease = %ld\n", xa_event_brelease); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
126 |
fprintf(stderr, "spnav-lib-hack: xa_event_cmd = %ld\n", xa_event_cmd); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
127 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
128 |
while (1) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
129 |
if (spnav_wait_event(&event)) { |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
130 |
fprintf(stderr, "spnav-lib-hack: got event: PID=%d dpy=%p win=%lx\n", getpid(), dpy, win); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
131 |
//XLockDisplay(dpy); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
132 |
send_xevent(&event, dpy, win); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
133 |
//XUnlockDisplay(dpy); |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
134 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
135 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
136 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
137 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
138 |
int spnav_x11_open(Display* dpy, Window win) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
139 |
int result = spnav_open(); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
140 |
fprintf(stderr, "spnav-lib-hack: instead of spnav_x11_open(%p, 0x%lx) calling spnav_open() = %d\n", dpy, win, result); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
141 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
142 |
xa_event_motion = XInternAtom(dpy, "MotionEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
143 |
xa_event_bpress = XInternAtom(dpy, "ButtonPressEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
144 |
xa_event_brelease = XInternAtom(dpy, "ButtonReleaseEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
145 |
xa_event_cmd = XInternAtom(dpy, "CommandEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
146 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
147 |
if (result == 0) { |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
148 |
pid_t pid = fork(); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
149 |
fprintf(stderr, "spnav-lib-hack: fork() = %d; PID=%d\n", pid, getpid()); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
150 |
if (pid == -1) return 1; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
151 |
if (pid == 0) spacenav_hack_translate_events(win); |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
152 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
153 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
154 |
return result; |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
155 |
} |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
156 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
157 |
/** |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
158 |
* This function is based on proto_x11.c (spacenavd) written by: |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
159 |
* Copyright (C) 2007-2019 John Tsiombikas <nuclear@member.fsf.org> |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
160 |
* and published under GNU GPLv3+ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
161 |
* |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
162 |
* @param dpy |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
163 |
* @param win |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
164 |
* @return |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
165 |
*/ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
166 |
int spnav_x11_event(const XEvent* xev, spnav_event* event) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
167 |
/* |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
168 |
* Because real spnav_x11_open() was not called, the library has not initialized xa_event_* |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
169 |
* variables and thus will return 0 (= not a spacenav event). |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
170 |
*/ |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
171 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
172 |
int i; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
173 |
int xmsg_type; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
174 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
175 |
if (xev->type != ClientMessage) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
176 |
return 0; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
177 |
} |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
178 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
179 |
xmsg_type = xev->xclient.message_type; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
180 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
181 |
if (xmsg_type != xa_event_motion && xmsg_type != xa_event_bpress && |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
182 |
xmsg_type != xa_event_brelease) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
183 |
return 0; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
184 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
185 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
186 |
if (xmsg_type == xa_event_motion) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
187 |
event->type = SPNAV_EVENT_MOTION; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
188 |
event->motion.data = &event->motion.x; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
189 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
190 |
for (i = 0; i < 6; i++) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
191 |
event->motion.data[i] = xev->xclient.data.s[i + 2]; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
192 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
193 |
event->motion.period = xev->xclient.data.s[8]; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
194 |
} else { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
195 |
event->type = SPNAV_EVENT_BUTTON; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
196 |
event->button.press = xmsg_type == xa_event_bpress ? 1 : 0; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
197 |
event->button.bnum = xev->xclient.data.s[2]; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
198 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
199 |
return event->type; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
200 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
201 |
/* |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
202 |
static int (*real_spnav_x11_event)(const XEvent*, spnav_event*) = NULL; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
203 |
if (!real_spnav_x11_event) real_spnav_x11_event = dlsym(RTLD_NEXT, "spnav_x11_event"); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
204 |
int result = real_spnav_x11_event(xev, event); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
205 |
if (result == SPNAV_EVENT_MOTION || result == SPNAV_EVENT_BUTTON) fprintf(stderr, "spnav-lib-hack: spnav_x11_event() = %d\n", result); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
206 |
return result; |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
207 |
*/ |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
208 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
209 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
210 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
211 |
/* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
212 |
int spnav_x11_open(Display* dpy, Window win) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
213 |
static int (*real_spnav_x11_open)(Display*, Window) = NULL; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
214 |
if (!real_spnav_x11_open) real_spnav_x11_open = dlsym(RTLD_NEXT, "spnav_x11_open"); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
215 |
int result = real_spnav_x11_open(dpy, win); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
216 |
fprintf(stderr, "spnav-lib-hack: spnav_x11_open() = %d\n", result); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
217 |
return result; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
218 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
219 |
*/ |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
220 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
221 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
222 |
/* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
223 |
int spnav_open() { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
224 |
return -1; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
225 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
226 |
*/ |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
227 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
228 |
/* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
229 |
int spnav_open() { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
230 |
static int (*real_spnav_open)() = NULL; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
231 |
if (!real_spnav_open) real_spnav_open = dlsym(RTLD_NEXT, "spnav_open"); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
232 |
int result = real_spnav_open(); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
233 |
// fprintf(stderr, "spnav-lib-hack: spnav_open() = %d\n", result); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
234 |
return result; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
235 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
236 |
*/ |