winex11: Add a trace in ExtEscape to make wgl problems easier to diagnose.
[wine] / dlls / winejoystick.drv / joystick.c
1 /*
2  * joystick functions
3  *
4  * Copyright 1997 Andreas Mohr
5  * Copyright 2000 Wolfgang Schwotzer
6  * Copyright 2002 David Hagood
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21  *
22  * NOTES:
23  *
24  * - nearly all joystick functions can be regarded as obsolete,
25  *   as Linux (2.1.x) now supports extended joysticks with a completely 
26  *   new joystick driver interface
27  *   New driver's documentation says:
28  *     "For backward compatibility the old interface is still included,
29  *     but will be dropped in the future."
30  *   Thus we should implement the new interface and at most keep the old
31  *   routines for backward compatibility.
32  * - better support of enhanced joysticks (Linux 2.2 interface is available)
33  * - support more joystick drivers (like the XInput extension)
34  * - should load joystick DLL as any other driver (instead of hardcoding)
35  *   the driver's name, and load it as any low lever driver.
36  */
37
38 #include "config.h"
39 #include "wine/port.h"
40
41 #ifdef HAVE_UNISTD_H
42 # include <unistd.h>
43 #endif
44 #include <stdarg.h>
45 #include <stdio.h>
46 #include <stdlib.h>
47 #include <string.h>
48 #include <fcntl.h>
49 #ifdef HAVE_SYS_IOCTL_H
50 #include <sys/ioctl.h>
51 #endif
52 #ifdef HAVE_LINUX_IOCTL_H
53 #include <linux/ioctl.h>
54 #endif
55 #ifdef HAVE_LINUX_JOYSTICK_H
56 #include <linux/joystick.h>
57 #ifdef SW_MAX
58 #undef SW_MAX
59 #endif
60 #define JOYDEV_NEW "/dev/input/js%d"
61 #define JOYDEV_OLD "/dev/js%d"
62 #endif
63 #ifdef HAVE_SYS_ERRNO_H
64 #include <sys/errno.h>
65 #endif
66
67 #include "windef.h"
68 #include "winbase.h"
69 #include "wingdi.h"
70 #include "winuser.h"
71 #include "winnls.h"
72 #include "mmddk.h"
73 #include "wine/debug.h"
74
75 #include "wine/unicode.h"
76
77 WINE_DEFAULT_DEBUG_CHANNEL(joystick);
78
79 #ifdef HAVE_LINUX_JOYSTICK_H
80
81 #define MAXJOYSTICK     (JOYSTICKID2 + 1)
82
83 typedef struct tagWINE_JSTCK {
84     int         joyIntf;
85     int         in_use;
86     /* Some extra info we need to make this actually work under the
87        Linux 2.2 event api.
88        First of all, we cannot keep closing and reopening the device file -
89        that blows away the state of the stick device, and we lose events. So, we
90        need to open the low-level device once, and close it when we are done.
91
92        Secondly, the event API only gives us what's changed. However, Windows apps
93        want the whole state every time, so we have to cache the data.
94     */
95
96     int         dev; /* Linux level device file descriptor */
97     int         x;
98     int         y;
99     int         z;
100     int         r;
101     int         u;
102     int         v;
103     int         buttons;
104 } WINE_JSTCK;
105
106 static  WINE_JSTCK      JSTCK_Data[MAXJOYSTICK];
107
108 /**************************************************************************
109  *                              JSTCK_drvGet                    [internal]
110  */
111 static WINE_JSTCK *JSTCK_drvGet(DWORD_PTR dwDevID)
112 {
113     int p;
114
115     if ((dwDevID - (DWORD_PTR)JSTCK_Data) % sizeof(JSTCK_Data[0]) != 0)
116         return NULL;
117     p = (dwDevID - (DWORD_PTR)JSTCK_Data) / sizeof(JSTCK_Data[0]);
118     if (p < 0 || p >= MAXJOYSTICK || !((WINE_JSTCK*)dwDevID)->in_use)
119         return NULL;
120
121     return (WINE_JSTCK*)dwDevID;
122 }
123
124 /**************************************************************************
125  *                              JSTCK_drvOpen                   [internal]
126  */
127 static LRESULT JSTCK_drvOpen(LPSTR str, DWORD dwIntf)
128 {
129     if (dwIntf >= MAXJOYSTICK || JSTCK_Data[dwIntf].in_use)
130         return 0;
131
132     JSTCK_Data[dwIntf].joyIntf = dwIntf;
133     JSTCK_Data[dwIntf].in_use = 1;
134     return (LRESULT)&JSTCK_Data[dwIntf];
135 }
136
137 /**************************************************************************
138  *                              JSTCK_drvClose                  [internal]
139  */
140 static LRESULT JSTCK_drvClose(DWORD_PTR dwDevID)
141 {
142     WINE_JSTCK* jstck = JSTCK_drvGet(dwDevID);
143
144     if (jstck == NULL)
145         return 0;
146     jstck->in_use = 0;
147     if (jstck->dev > 0)
148     {
149        close(jstck->dev);
150        jstck->dev = 0;
151     }
152     return 1;
153 }
154
155 struct js_status
156 {
157     int buttons;
158     int x;
159     int y;
160 };
161
162 /**************************************************************************
163  *                              JSTCK_OpenDevice           [internal]
164  */
165 static  int     JSTCK_OpenDevice(WINE_JSTCK* jstick)
166 {
167     char        buf[20];
168     int         flags;
169
170     if (jstick->dev > 0)
171       return jstick->dev;
172
173     sprintf(buf, JOYDEV_NEW, jstick->joyIntf);
174 #ifdef HAVE_LINUX_22_JOYSTICK_API
175     flags = O_RDONLY | O_NONBLOCK;
176 #else
177     flags = O_RDONLY;
178 #endif
179     if ((jstick->dev = open(buf, flags)) < 0) {
180         sprintf(buf, JOYDEV_OLD, jstick->joyIntf);
181     }
182     return (jstick->dev = open(buf, flags));
183 }
184
185
186 /**************************************************************************
187  *                              JoyGetDevCaps           [MMSYSTEM.102]
188  */
189 static LRESULT JSTCK_GetDevCaps(DWORD_PTR dwDevID, LPJOYCAPSW lpCaps, DWORD dwSize)
190 {
191     WINE_JSTCK* jstck;
192 #ifdef HAVE_LINUX_22_JOYSTICK_API
193     int         dev;
194     char        nrOfAxes;
195     char        nrOfButtons;
196     char        identString[MAXPNAMELEN];
197     int         driverVersion;
198 #else
199 static const WCHAR ini[] = {'W','i','n','e',' ','J','o','y','s','t','i','c','k',' ','D','r','i','v','e','r',0};
200 #endif
201
202     if ((jstck = JSTCK_drvGet(dwDevID)) == NULL)
203         return MMSYSERR_NODRIVER;
204
205 #ifdef HAVE_LINUX_22_JOYSTICK_API
206     if ((dev = JSTCK_OpenDevice(jstck)) < 0) return JOYERR_PARMS;
207     ioctl(dev, JSIOCGAXES, &nrOfAxes);
208     ioctl(dev, JSIOCGBUTTONS, &nrOfButtons);
209     ioctl(dev, JSIOCGVERSION, &driverVersion);
210     ioctl(dev, JSIOCGNAME(sizeof(identString)), &identString);
211     TRACE("Driver: 0x%06x, Name: %s, #Axes: %d, #Buttons: %d\n",
212           driverVersion, identString, nrOfAxes, nrOfButtons);
213     lpCaps->wMid = MM_MICROSOFT;
214     lpCaps->wPid = MM_PC_JOYSTICK;
215     MultiByteToWideChar(CP_ACP, 0, identString, -1, lpCaps->szPname, MAXPNAMELEN);
216     lpCaps->szPname[MAXPNAMELEN-1] = '\0';
217     lpCaps->wXmin = 0;
218     lpCaps->wXmax = 0xFFFF;
219     lpCaps->wYmin = 0;
220     lpCaps->wYmax = 0xFFFF;
221     lpCaps->wZmin = 0;
222     lpCaps->wZmax = (nrOfAxes >= 3) ? 0xFFFF : 0;
223 #ifdef BODGE_THE_HAT
224     /* HalfLife won't allow you to map an axis event to things like
225        "next weapon" and "use". Linux reports the hat on my stick as
226        axis U and V. So, IFF BODGE_THE_HAT is defined, lie through our
227        teeth and say we have 32 buttons, and we will map the axises to
228        the high buttons. Really, perhaps this should be a registry entry,
229        or even a parameter to the Linux joystick driver (which would completely
230        remove the need for this.)
231     */
232     lpCaps->wNumButtons = 32;
233 #else
234     lpCaps->wNumButtons = nrOfButtons;
235 #endif
236     if (dwSize == sizeof(JOYCAPSW)) {
237         /* since we suppose ntOfAxes <= 6 in the following code, do it explicitly */
238         if (nrOfAxes > 6) nrOfAxes = 6;
239         /* complete 95 structure */
240         lpCaps->wRmin = 0;
241         lpCaps->wRmax = nrOfAxes >= 4 ? 0xFFFF : 0;
242         lpCaps->wUmin = 0;
243         lpCaps->wUmax = nrOfAxes >= 5 ? 0xFFFF : 0;
244         lpCaps->wVmin = 0;
245         lpCaps->wVmax = nrOfAxes >= 6 ? 0xFFFF : 0;
246         lpCaps->wMaxAxes = 6; /* same as MS Joystick Driver */
247         lpCaps->wNumAxes = nrOfAxes; /* nr of axes in use */
248         lpCaps->wMaxButtons = 32; /* same as MS Joystick Driver */
249         lpCaps->szRegKey[0] = 0;
250         lpCaps->szOEMVxD[0] = 0;
251         lpCaps->wCaps = 0;
252         switch(nrOfAxes) {
253         case 6: lpCaps->wCaps |= JOYCAPS_HASV;
254         case 5: lpCaps->wCaps |= JOYCAPS_HASU;
255         case 4: lpCaps->wCaps |= JOYCAPS_HASR;
256         case 3: lpCaps->wCaps |= JOYCAPS_HASZ;
257             /* FIXME: don't know how to detect for
258                JOYCAPS_HASPOV, JOYCAPS_POV4DIR, JOYCAPS_POVCTS */
259         }
260     }
261 #else
262     lpCaps->wMid = MM_MICROSOFT;
263     lpCaps->wPid = MM_PC_JOYSTICK;
264     strcpyW(lpCaps->szPname, ini); /* joystick product name */
265     lpCaps->wXmin = 0;
266     lpCaps->wXmax = 0xFFFF;
267     lpCaps->wYmin = 0;
268     lpCaps->wYmax = 0xFFFF;
269     lpCaps->wZmin = 0;
270     lpCaps->wZmax = 0;
271     lpCaps->wNumButtons = 2;
272     if (dwSize == sizeof(JOYCAPSW)) {
273         /* complete 95 structure */
274         lpCaps->wRmin = 0;
275         lpCaps->wRmax = 0;
276         lpCaps->wUmin = 0;
277         lpCaps->wUmax = 0;
278         lpCaps->wVmin = 0;
279         lpCaps->wVmax = 0;
280         lpCaps->wCaps = 0;
281         lpCaps->wMaxAxes = 2;
282         lpCaps->wNumAxes = 2;
283         lpCaps->wMaxButtons = 4;
284         lpCaps->szRegKey[0] = 0;
285         lpCaps->szOEMVxD[0] = 0;
286     }
287 #endif
288
289     return JOYERR_NOERROR;
290 }
291
292 /**************************************************************************
293  *                              JSTCK_GetPos                    [internal]
294  */
295 static LRESULT JSTCK_GetPosEx(DWORD_PTR dwDevID, LPJOYINFOEX lpInfo)
296 {
297     WINE_JSTCK*         jstck;
298     int                 dev;
299 #ifdef HAVE_LINUX_22_JOYSTICK_API
300     struct js_event     ev;
301 #else
302     struct js_status    js;
303     int                 dev_stat;
304 #endif
305
306     if ((jstck = JSTCK_drvGet(dwDevID)) == NULL)
307         return MMSYSERR_NODRIVER;
308
309     if ((dev = JSTCK_OpenDevice(jstck)) < 0) return JOYERR_PARMS;
310
311 #ifdef HAVE_LINUX_22_JOYSTICK_API
312     while ((read(dev, &ev, sizeof(struct js_event))) > 0) {
313         if (ev.type == (JS_EVENT_AXIS)) {
314             switch (ev.number) {
315             case 0:
316                 jstck->x = ev.value;
317                 break;
318             case 1:
319                 jstck->y = ev.value;
320                 break;
321             case 2:
322                 jstck->z = ev.value;
323                 break;
324             case 3:
325                 jstck->r = ev.value;
326                 break;
327             case 4:
328                 jstck->u = ev.value;
329                 break;
330             case 5:
331                 jstck->v = ev.value;
332                 break;
333             default:
334                 FIXME("Unknown joystick event '%d'\n", ev.number);
335             }
336         } else if (ev.type == (JS_EVENT_BUTTON)) {
337             if (ev.value) {
338                     jstck->buttons |= (1 << ev.number);
339                     /* FIXME: what to do for this field when
340                      * multiple buttons are depressed ?
341                      */
342                     if (lpInfo->dwFlags & JOY_RETURNBUTTONS)
343                        lpInfo->dwButtonNumber = ev.number + 1;
344                 }
345              else
346                jstck->buttons  &= ~(1 << ev.number);
347         }
348     }
349     /* EAGAIN is returned when the queue is empty */
350     if (errno != EAGAIN) {
351         /* FIXME: error should not be ignored */
352         ERR("Error while reading joystick state (%s)\n", strerror(errno));
353     }
354     /* Now, copy the cached values into Window's structure... */
355     if (lpInfo->dwFlags & JOY_RETURNBUTTONS)
356        lpInfo->dwButtons = jstck->buttons;
357     if (lpInfo->dwFlags & JOY_RETURNX)
358        lpInfo->dwXpos   = jstck->x + 32767;
359     if (lpInfo->dwFlags & JOY_RETURNY)
360        lpInfo->dwYpos   = jstck->y + 32767;
361     if (lpInfo->dwFlags & JOY_RETURNZ)
362        lpInfo->dwZpos   = jstck->z + 32767;
363     if (lpInfo->dwFlags & JOY_RETURNR)
364        lpInfo->dwRpos   = jstck->r + 32767;
365 # ifdef BODGE_THE_HAT
366     else if (lpInfo->dwFlags & JOY_RETURNBUTTONS)
367     {
368          if (jstck->r > 0)
369             lpInfo->dwButtons |= 1<<7;
370          else if (jstck->r < 0)
371             lpInfo->dwButtons |= 1<<8;
372     }
373 # endif
374     if (lpInfo->dwFlags & JOY_RETURNU)
375         lpInfo->dwUpos   = jstck->u + 32767;
376 # ifdef BODGE_THE_HAT
377     else if (lpInfo->dwFlags & JOY_RETURNBUTTONS)
378     {
379        if (jstck->u > 0)
380           lpInfo->dwButtons |= 1<<9;
381         else if (jstck->u < 0)
382           lpInfo->dwButtons |= 1<<10;
383     }
384 # endif
385     if (lpInfo->dwFlags & JOY_RETURNV)
386        lpInfo->dwVpos   = jstck->v + 32767;
387
388 #else
389     dev_stat = read(dev, &js, sizeof(js));
390     if (dev_stat != sizeof(js)) {
391         return JOYERR_UNPLUGGED; /* FIXME: perhaps wrong, but what should I return else ? */
392     }
393     js.x = js.x<<8;
394     js.y = js.y<<8;
395     if (lpInfo->dwFlags & JOY_RETURNX)
396         lpInfo->dwXpos = js.x;   /* FIXME: perhaps multiply it somehow ? */
397     if (lpInfo->dwFlags & JOY_RETURNY)
398         lpInfo->dwYpos = js.y;
399     if (lpInfo->dwFlags & JOY_RETURNBUTTONS)
400         lpInfo->dwButtons = js.buttons;
401 #endif
402
403     TRACE("x: %d, y: %d, z: %d, r: %d, u: %d, v: %d, buttons: 0x%04x, flags: 0x%04x (fd %d)\n",
404           lpInfo->dwXpos, lpInfo->dwYpos, lpInfo->dwZpos,
405           lpInfo->dwRpos, lpInfo->dwUpos, lpInfo->dwVpos,
406           lpInfo->dwButtons, lpInfo->dwFlags, dev
407          );
408
409     return JOYERR_NOERROR;
410 }
411
412 /**************************************************************************
413  *                              JSTCK_GetPos                    [internal]
414  */
415 static LRESULT JSTCK_GetPos(DWORD_PTR dwDevID, LPJOYINFO lpInfo)
416 {
417     JOYINFOEX   ji;
418     LONG        ret;
419
420     memset(&ji, 0, sizeof(ji));
421
422     ji.dwSize = sizeof(ji);
423     ji.dwFlags = JOY_RETURNX | JOY_RETURNY | JOY_RETURNZ | JOY_RETURNBUTTONS;
424     ret = JSTCK_GetPosEx(dwDevID, &ji);
425     if (ret == JOYERR_NOERROR)  {
426         lpInfo->wXpos    = ji.dwXpos;
427         lpInfo->wYpos    = ji.dwYpos;
428         lpInfo->wZpos    = ji.dwZpos;
429         lpInfo->wButtons = ji.dwButtons;
430     }
431
432     return ret;
433 }
434
435 /**************************************************************************
436  *                              DriverProc (JOYSTICK.@)
437  */
438 LRESULT CALLBACK JSTCK_DriverProc(DWORD_PTR dwDevID, HDRVR hDriv, UINT wMsg,
439                                   LPARAM dwParam1, LPARAM dwParam2)
440 {
441     /* EPP     TRACE("(%08lX, %04X, %08lX, %08lX, %08lX)\n",  */
442     /* EPP        dwDevID, hDriv, wMsg, dwParam1, dwParam2); */
443
444     switch(wMsg) {
445     case DRV_LOAD:              return 1;
446     case DRV_FREE:              return 1;
447     case DRV_OPEN:              return JSTCK_drvOpen((LPSTR)dwParam1, dwParam2);
448     case DRV_CLOSE:             return JSTCK_drvClose(dwDevID);
449     case DRV_ENABLE:            return 1;
450     case DRV_DISABLE:           return 1;
451     case DRV_QUERYCONFIGURE:    return 1;
452     case DRV_CONFIGURE:         MessageBoxA(0, "JoyStick MultiMedia Driver !", "JoyStick Driver", MB_OK);       return 1;
453     case DRV_INSTALL:           return DRVCNF_RESTART;
454     case DRV_REMOVE:            return DRVCNF_RESTART;
455
456     case JDD_GETNUMDEVS:        return 1;
457     case JDD_GETDEVCAPS:        return JSTCK_GetDevCaps(dwDevID, (LPJOYCAPSW)dwParam1, dwParam2);
458     case JDD_GETPOS:            return JSTCK_GetPos(dwDevID, (LPJOYINFO)dwParam1);
459     case JDD_SETCALIBRATION:
460     case JDD_CONFIGCHANGED:     return JOYERR_NOCANDO;
461     case JDD_GETPOSEX:          return JSTCK_GetPosEx(dwDevID, (LPJOYINFOEX)dwParam1);
462     default:
463         return DefDriverProc(dwDevID, hDriv, wMsg, dwParam1, dwParam2);
464     }
465 }
466
467 #else
468
469 /**************************************************************************
470  *                              DriverProc (JOYSTICK.@)
471  */
472 LRESULT CALLBACK JSTCK_DriverProc(DWORD_PTR dwDevID, HDRVR hDriv, UINT wMsg,
473                                   LPARAM dwParam1, LPARAM dwParam2)
474 {
475     /* EPP     TRACE("(%08lX, %04X, %08lX, %08lX, %08lX)\n",  */
476     /* EPP        dwDevID, hDriv, wMsg, dwParam1, dwParam2); */
477
478     switch(wMsg) {
479     case DRV_LOAD:
480     case DRV_FREE:
481     case DRV_OPEN:
482     case DRV_CLOSE:
483     case DRV_ENABLE:
484     case DRV_DISABLE:
485     case DRV_QUERYCONFIGURE:    return 0;
486     case DRV_CONFIGURE:         MessageBoxA(0, "JoyStick MultiMedia Driver !", "JoyStick Driver", MB_OK);       return 1;
487     case DRV_INSTALL:           return DRVCNF_RESTART;
488     case DRV_REMOVE:            return DRVCNF_RESTART;
489     default:
490         return DefDriverProc(dwDevID, hDriv, wMsg, dwParam1, dwParam2);
491     }
492 }
493
494 #endif