author | František Kučera <franta-hg@frantovo.cz> |
Thu, 24 Oct 2019 21:50:31 +0200 | |
branch | v_0 |
changeset 8 | 1dab2b99f51d |
parent 5 | 26e9fb705faf |
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 |
8
1dab2b99f51d
fix license version: GNU GPLv3
František Kučera <franta-hg@frantovo.cz>
parents:
5
diff
changeset
|
7 |
* the Free Software Foundation, version 3 of the License. |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
8 |
* |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
9 |
* 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
|
10 |
* 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
|
11 |
* 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
|
12 |
* 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
|
13 |
* |
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
14 |
* 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
|
15 |
* 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
|
16 |
*/ |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
17 |
#define _GNU_SOURCE |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
18 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
19 |
#include <stdio.h> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
20 |
#include <stdint.h> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
21 |
#include <dlfcn.h> |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
22 |
#include <stdlib.h> |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
23 |
#include <unistd.h> |
5 | 24 |
#include <pthread.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 |
|
4 | 29 |
/** |
30 |
* The purpose of this hack is to enable 3D mouse in applications that use X11 protocol |
|
31 |
* while our daemon is providing only domain socket and no X11. |
|
32 |
* |
|
33 |
* Usage: |
|
34 |
* LD_PRELOAD=./spacenav-lib-hack/build/Debug/src/libspnav-lib-hack.so freecad |
|
35 |
* |
|
36 |
* This hack: |
|
37 |
* 1) Pretends that spnav_x11_open() was successful. |
|
38 |
* 2) Starts a background process (TODO: also terminate it) which reads from the domain socket |
|
39 |
* and translates spacenav events to X11 events and sends them to the application window. |
|
40 |
* 3) reimplements spnav_x11_event() which is needed, because Atom variables in original library |
|
41 |
* were not initialized spnav_x11_open() and thus the library funcion is not working. |
|
42 |
* |
|
43 |
* This solution works and allows using e.g. FreeCAD with domain socket instead of X11, but: |
|
44 |
* - is very hackish and should be reimplemented as a separate process which will work partly |
|
45 |
* as a libspnav client and partly emulate spacenavd daemon and will bridge the domain socket |
|
46 |
* and th X11. Other solution is to emulate the hardware and keep spacenavd and libspnav untouched. |
|
47 |
*/ |
|
48 |
||
5 | 49 |
static pthread_t spacenav_hack_thread; |
50 |
static Window spacenav_hack_win; |
|
51 |
||
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
52 |
// 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
|
53 |
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
|
54 |
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
|
55 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
56 |
/** |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
57 |
* 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
|
58 |
* 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
|
59 |
* 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
|
60 |
* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
61 |
* @param ev |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
62 |
* @param dpy |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
63 |
* @param win |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
64 |
*/ |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
65 |
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
|
66 |
int i; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
67 |
XEvent xevent; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
68 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
69 |
if (!dpy) return; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
70 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
71 |
// if(setjmp(jbuf)) return; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
72 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
73 |
xevent.type = ClientMessage; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
74 |
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
|
75 |
xevent.xclient.display = dpy; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
76 |
xevent.xclient.window = win; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
77 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
78 |
switch (ev->type) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
79 |
case SPNAV_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.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
|
81 |
xevent.xclient.format = 16; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
82 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
83 |
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
|
84 |
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
|
85 |
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
|
86 |
} |
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[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
|
88 |
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
|
89 |
break; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
90 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
91 |
case SPNAV_EVENT_BUTTON: |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
92 |
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
|
93 |
xevent.xclient.format = 16; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
94 |
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
|
95 |
break; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
96 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
97 |
default: |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
98 |
break; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
99 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
100 |
|
4 | 101 |
XSendEvent(dpy, win, False, 0, &xevent); |
102 |
XFlush(dpy); |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
103 |
} |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
104 |
|
5 | 105 |
static void* spacenav_hack_translate_events(void* arg) { |
106 |
fprintf(stderr, "spnav-lib-hack: pthread running, PID=%d\n", getpid()); |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
107 |
spnav_event event; |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
108 |
Display* dpy = XOpenDisplay(0); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
109 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
110 |
while (1) { |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
111 |
if (spnav_wait_event(&event)) { |
5 | 112 |
send_xevent(&event, dpy, spacenav_hack_win); |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
113 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
114 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
115 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
116 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
117 |
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
|
118 |
int result = spnav_open(); |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
119 |
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
|
120 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
121 |
xa_event_motion = XInternAtom(dpy, "MotionEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
122 |
xa_event_bpress = XInternAtom(dpy, "ButtonPressEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
123 |
xa_event_brelease = XInternAtom(dpy, "ButtonReleaseEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
124 |
xa_event_cmd = XInternAtom(dpy, "CommandEvent", False); |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
125 |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
126 |
if (result == 0) { |
5 | 127 |
spacenav_hack_win = win; |
128 |
pthread_create(&spacenav_hack_thread, NULL, spacenav_hack_translate_events, NULL); |
|
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
129 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
130 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
131 |
return result; |
0
37aa134ae57b
empty QT project linked to spnav library
František Kučera <franta-hg@frantovo.cz>
parents:
diff
changeset
|
132 |
} |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
133 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
134 |
/** |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
135 |
* 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
|
136 |
* 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
|
137 |
* and published under GNU GPLv3+ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
138 |
* |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
139 |
* @param dpy |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
140 |
* @param win |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
141 |
* @return |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
142 |
*/ |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
143 |
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
|
144 |
/* |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
145 |
* 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
|
146 |
* 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
|
147 |
*/ |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
148 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
149 |
int i; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
150 |
int xmsg_type; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
151 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
152 |
if (xev->type != ClientMessage) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
153 |
return 0; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
154 |
} |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
155 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
156 |
xmsg_type = xev->xclient.message_type; |
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 |
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
|
159 |
xmsg_type != xa_event_brelease) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
160 |
return 0; |
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 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
163 |
if (xmsg_type == xa_event_motion) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
164 |
event->type = SPNAV_EVENT_MOTION; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
165 |
event->motion.data = &event->motion.x; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
166 |
|
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
167 |
for (i = 0; i < 6; i++) { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
168 |
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
|
169 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
170 |
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
|
171 |
} else { |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
172 |
event->type = SPNAV_EVENT_BUTTON; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
173 |
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
|
174 |
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
|
175 |
} |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
176 |
return event->type; |
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
177 |
|
3
d8793f61ee43
a bit cleaner version (but still with an infinite loop)
František Kučera <franta-hg@frantovo.cz>
parents:
2
diff
changeset
|
178 |
// real_spnav_x11_event() is not working (see comment above): |
d8793f61ee43
a bit cleaner version (but still with an infinite loop)
František Kučera <franta-hg@frantovo.cz>
parents:
2
diff
changeset
|
179 |
|
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
180 |
/* |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
181 |
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
|
182 |
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
|
183 |
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
|
184 |
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
|
185 |
return result; |
2
3ba27504be0e
very hackish and… working
František Kučera <franta-hg@frantovo.cz>
parents:
1
diff
changeset
|
186 |
*/ |
1
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
187 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
188 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
189 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
190 |
/* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
191 |
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
|
192 |
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
|
193 |
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
|
194 |
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
|
195 |
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
|
196 |
return result; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
197 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
198 |
*/ |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
199 |
|
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
200 |
/* |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
201 |
int spnav_open() { |
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_open)() = 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_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
|
204 |
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
|
205 |
// 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
|
206 |
return result; |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
207 |
} |
ac5f3768ebb1
almost working, but there is an SIGABRT
František Kučera <franta-hg@frantovo.cz>
parents:
0
diff
changeset
|
208 |
*/ |