Fixed some traces to use the right printf format and avoid typecasts.
[wine] / dlls / dinput / dinput_main.c
1 /*              DirectInput
2  *
3  * Copyright 1998 Marcus Meissner
4  * Copyright 1998,1999 Lionel Ulmer
5  * Copyright 2000-2002 TransGaming Technologies Inc.
6  *
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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  */
22 /* Status:
23  *
24  * - Tomb Raider 2 Demo:
25  *   Playable using keyboard only.
26  * - WingCommander Prophecy Demo:
27  *   Doesn't get Input Focus.
28  *
29  * - Fallout : works great in X and DGA mode
30  */
31
32 #include "config.h"
33 #include <assert.h>
34 #include <stdarg.h>
35 #include <string.h>
36
37 #define COBJMACROS
38
39 #include "wine/debug.h"
40 #include "wine/unicode.h"
41 #include "windef.h"
42 #include "winbase.h"
43 #include "winuser.h"
44 #include "winerror.h"
45 #include "dinput_private.h"
46
47 WINE_DEFAULT_DEBUG_CHANNEL(dinput);
48
49 static const IDirectInput7AVtbl ddi7avt;
50 static const IDirectInput7WVtbl ddi7wvt;
51 static const IDirectInput8AVtbl ddi8avt;
52 static const IDirectInput8WVtbl ddi8wvt;
53
54 static const struct dinput_device *dinput_devices[] =
55 {
56     &mouse_device,
57     &keyboard_device,
58     &joystick_linuxinput_device,
59     &joystick_linux_device
60 };
61 #define NB_DINPUT_DEVICES (sizeof(dinput_devices)/sizeof(dinput_devices[0]))
62
63 HINSTANCE DINPUT_instance = NULL;
64
65 BOOL WINAPI DllMain( HINSTANCE inst, DWORD reason, LPVOID reserv)
66 {
67     switch(reason)
68     {
69       case DLL_PROCESS_ATTACH:
70         DisableThreadLibraryCalls(inst);
71         DINPUT_instance = inst;
72         break;
73       case DLL_PROCESS_DETACH:
74         break;
75     }
76     return TRUE;
77 }
78
79
80 /******************************************************************************
81  *      DirectInputCreateEx (DINPUT.@)
82  */
83 HRESULT WINAPI DirectInputCreateEx(
84         HINSTANCE hinst, DWORD dwVersion, REFIID riid, LPVOID *ppDI,
85         LPUNKNOWN punkOuter) 
86 {
87         IDirectInputImpl* This;
88
89         TRACE("(%p,%04lx,%s,%p,%p)\n", hinst,dwVersion,debugstr_guid(riid),ppDI,punkOuter);
90
91         if (IsEqualGUID(&IID_IDirectInputA,riid) ||
92             IsEqualGUID(&IID_IDirectInput2A,riid) ||
93             IsEqualGUID(&IID_IDirectInput7A,riid)) {
94           This = HeapAlloc(GetProcessHeap(),0,sizeof(IDirectInputImpl));
95           This->lpVtbl = &ddi7avt;
96           This->ref = 1;
97           This->dwVersion = dwVersion; 
98           *ppDI = This;
99
100           return DI_OK;
101         }
102
103         if (IsEqualGUID(&IID_IDirectInputW,riid) ||
104             IsEqualGUID(&IID_IDirectInput2W,riid) ||
105             IsEqualGUID(&IID_IDirectInput7W,riid)) {
106           This = HeapAlloc(GetProcessHeap(),0,sizeof(IDirectInputImpl));
107           This->lpVtbl = &ddi7wvt;
108           This->ref = 1;
109           This->dwVersion = dwVersion; 
110           *ppDI = This;
111
112           return DI_OK;
113         }
114
115         if (IsEqualGUID(&IID_IDirectInput8A,riid)) {
116           This = HeapAlloc(GetProcessHeap(),0,sizeof(IDirectInputImpl));
117           This->lpVtbl = &ddi8avt;
118           This->ref = 1;
119           This->dwVersion = dwVersion; 
120           *ppDI = This;
121
122           return DI_OK;
123         }
124
125         if (IsEqualGUID(&IID_IDirectInput8W,riid)) {
126           This = HeapAlloc(GetProcessHeap(),0,sizeof(IDirectInputImpl));
127           This->lpVtbl = &ddi8wvt;
128           This->ref = 1;
129           This->dwVersion = dwVersion; 
130           *ppDI = This;
131
132           return DI_OK;
133         }
134
135         return DIERR_OLDDIRECTINPUTVERSION;
136 }
137
138 /******************************************************************************
139  *      DirectInputCreateA (DINPUT.@)
140  */
141 HRESULT WINAPI DirectInputCreateA(HINSTANCE hinst, DWORD dwVersion, LPDIRECTINPUTA *ppDI, LPUNKNOWN punkOuter)
142 {
143         IDirectInputImpl* This;
144         TRACE("(%p,%04lx,%p,%p)\n", hinst,dwVersion,ppDI,punkOuter);
145         This = HeapAlloc(GetProcessHeap(),0,sizeof(IDirectInputImpl));
146         This->lpVtbl = &ddi7avt;
147         This->ref = 1;
148         This->dwVersion = dwVersion; 
149         *ppDI = (IDirectInputA*)This;
150         return 0;
151
152 }
153
154 /******************************************************************************
155  *      DirectInputCreateW (DINPUT.@)
156  */
157 HRESULT WINAPI DirectInputCreateW(HINSTANCE hinst, DWORD dwVersion, LPDIRECTINPUTW *ppDI, LPUNKNOWN punkOuter)
158 {
159         IDirectInputImpl* This;
160         TRACE("(%p,%04lx,%p,%p)\n", hinst,dwVersion,ppDI,punkOuter);
161         This = HeapAlloc(GetProcessHeap(),0,sizeof(IDirectInputImpl));
162         This->lpVtbl = &ddi7wvt;
163         This->ref = 1;
164         This->dwVersion = dwVersion; 
165         *ppDI = (IDirectInputW*)This;
166         return 0;
167 }
168
169 static const char *_dump_DIDEVTYPE_value(DWORD dwDevType) {
170     switch (dwDevType) {
171         case 0: return "All devices";
172         case DIDEVTYPE_MOUSE: return "DIDEVTYPE_MOUSE";
173         case DIDEVTYPE_KEYBOARD: return "DIDEVTYPE_KEYBOARD";
174         case DIDEVTYPE_JOYSTICK: return "DIDEVTYPE_JOYSTICK";
175         case DIDEVTYPE_DEVICE: return "DIDEVTYPE_DEVICE";
176         default: return "Unkown";
177     }
178 }
179
180 static void _dump_EnumDevices_dwFlags(DWORD dwFlags) {
181     if (TRACE_ON(dinput)) {
182         unsigned int   i;
183         static const struct {
184             DWORD       mask;
185             const char  *name;
186         } flags[] = {
187 #define FE(x) { x, #x}
188             FE(DIEDFL_ALLDEVICES),
189             FE(DIEDFL_ATTACHEDONLY),
190             FE(DIEDFL_FORCEFEEDBACK),
191             FE(DIEDFL_INCLUDEALIASES),
192             FE(DIEDFL_INCLUDEPHANTOMS)
193 #undef FE
194         };
195         if (dwFlags == 0) {
196             DPRINTF("DIEDFL_ALLDEVICES");
197             return;
198         }
199         for (i = 0; i < (sizeof(flags) / sizeof(flags[0])); i++)
200             if (flags[i].mask & dwFlags)
201                 DPRINTF("%s ",flags[i].name);
202     }
203 }
204
205 /******************************************************************************
206  *      IDirectInputA_EnumDevices
207  */
208 static HRESULT WINAPI IDirectInputAImpl_EnumDevices(
209         LPDIRECTINPUT7A iface, DWORD dwDevType, LPDIENUMDEVICESCALLBACKA lpCallback,
210         LPVOID pvRef, DWORD dwFlags)
211 {
212     IDirectInputImpl *This = (IDirectInputImpl *)iface;
213     DIDEVICEINSTANCEA devInstance;
214     int i, j, r;
215     
216     TRACE("(this=%p,0x%04lx '%s',%p,%p,%04lx)\n",
217           This, dwDevType, _dump_DIDEVTYPE_value(dwDevType),
218           lpCallback, pvRef, dwFlags);
219     TRACE(" flags: "); _dump_EnumDevices_dwFlags(dwFlags); TRACE("\n");
220
221     for (i = 0; i < NB_DINPUT_DEVICES; i++) {
222         if (!dinput_devices[i]->enum_deviceA) continue;
223         for (j = 0, r = -1; r != 0; j++) {
224             devInstance.dwSize = sizeof(devInstance);
225             TRACE("  - checking device %d ('%s')\n", i, dinput_devices[i]->name);
226             if ((r = dinput_devices[i]->enum_deviceA(dwDevType, dwFlags, &devInstance, This->dwVersion, j))) {
227                 if (lpCallback(&devInstance,pvRef) == DIENUM_STOP)
228                     return 0;
229             }
230         }
231     }
232     
233     return 0;
234 }
235 /******************************************************************************
236  *      IDirectInputW_EnumDevices
237  */
238 static HRESULT WINAPI IDirectInputWImpl_EnumDevices(
239         LPDIRECTINPUT7W iface, DWORD dwDevType, LPDIENUMDEVICESCALLBACKW lpCallback,
240         LPVOID pvRef, DWORD dwFlags) 
241 {
242     IDirectInputImpl *This = (IDirectInputImpl *)iface;
243     DIDEVICEINSTANCEW devInstance;
244     int i, j, r;
245     
246     TRACE("(this=%p,0x%04lx '%s',%p,%p,%04lx)\n",
247           This, dwDevType, _dump_DIDEVTYPE_value(dwDevType),
248           lpCallback, pvRef, dwFlags);
249     TRACE(" flags: "); _dump_EnumDevices_dwFlags(dwFlags); TRACE("\n");
250
251     for (i = 0; i < NB_DINPUT_DEVICES; i++) {
252         if (!dinput_devices[i]->enum_deviceW) continue;
253         for (j = 0, r = -1; r != 0; j++) {
254             devInstance.dwSize = sizeof(devInstance);
255             TRACE("  - checking device %d ('%s')\n", i, dinput_devices[i]->name);
256             if ((r = dinput_devices[i]->enum_deviceW(dwDevType, dwFlags, &devInstance, This->dwVersion, j))) {
257                 if (lpCallback(&devInstance,pvRef) == DIENUM_STOP)
258                     return 0;
259             }
260         }
261     }
262     
263     return 0;
264 }
265
266 static ULONG WINAPI IDirectInputAImpl_AddRef(LPDIRECTINPUT7A iface)
267 {
268         IDirectInputImpl *This = (IDirectInputImpl *)iface;
269         return InterlockedIncrement((&This->ref));
270 }
271
272 static ULONG WINAPI IDirectInputAImpl_Release(LPDIRECTINPUT7A iface)
273 {
274         IDirectInputImpl *This = (IDirectInputImpl *)iface;
275         ULONG ref;
276         ref = InterlockedDecrement(&(This->ref));
277         if (ref == 0)
278                 HeapFree(GetProcessHeap(),0,This);
279         return ref;
280 }
281
282 static HRESULT WINAPI IDirectInputAImpl_QueryInterface(LPDIRECTINPUT7A iface, REFIID riid, LPVOID *ppobj) {
283         IDirectInputImpl *This = (IDirectInputImpl *)iface;
284
285         TRACE("(this=%p,%s,%p)\n",This,debugstr_guid(riid),ppobj);
286         if (IsEqualGUID(&IID_IUnknown,riid) ||
287             IsEqualGUID(&IID_IDirectInputA,riid) ||
288             IsEqualGUID(&IID_IDirectInput2A,riid) ||
289             IsEqualGUID(&IID_IDirectInput7A,riid)) {
290                 IDirectInputAImpl_AddRef(iface);
291                 *ppobj = This;
292                 return 0;
293         }
294         TRACE("Unsupported interface !\n");
295         return E_FAIL;
296 }
297
298 static HRESULT WINAPI IDirectInputWImpl_QueryInterface(LPDIRECTINPUT7W iface, REFIID riid, LPVOID *ppobj) {
299         IDirectInputImpl *This = (IDirectInputImpl *)iface;
300
301         TRACE("(this=%p,%s,%p)\n",This,debugstr_guid(riid),ppobj);
302         if (IsEqualGUID(&IID_IUnknown,riid) ||
303             IsEqualGUID(&IID_IDirectInputW,riid) ||
304             IsEqualGUID(&IID_IDirectInput2W,riid) ||
305             IsEqualGUID(&IID_IDirectInput7W,riid)) {
306                 IDirectInputAImpl_AddRef((LPDIRECTINPUT7A) iface);
307                 *ppobj = This;
308                 return 0;
309         }
310         TRACE("Unsupported interface !\n");
311         return E_FAIL;
312 }
313
314 static HRESULT WINAPI IDirectInputAImpl_CreateDevice(
315         LPDIRECTINPUT7A iface,REFGUID rguid,LPDIRECTINPUTDEVICEA* pdev,
316         LPUNKNOWN punk
317 ) {
318         IDirectInputImpl *This = (IDirectInputImpl *)iface;
319         HRESULT ret_value = DIERR_DEVICENOTREG;
320         int i;
321
322         TRACE("(this=%p,%s,%p,%p)\n",This,debugstr_guid(rguid),pdev,punk);
323
324         if (pdev == NULL) {
325                 WARN("invalid pointer: pdev == NULL\n");
326                 return E_POINTER;
327         }
328
329         if (rguid == NULL) {
330                 WARN("invalid pointer: rguid == NULL\n");
331                 return E_POINTER;
332         }
333
334         /* Loop on all the devices to see if anyone matches the given GUID */
335         for (i = 0; i < NB_DINPUT_DEVICES; i++) {
336           HRESULT ret;
337           if (!dinput_devices[i]->create_deviceA) continue;
338           if ((ret = dinput_devices[i]->create_deviceA(This, rguid, NULL, pdev)) == DI_OK)
339             return DI_OK;
340
341           if (ret == DIERR_NOINTERFACE)
342             ret_value = DIERR_NOINTERFACE;
343         }
344
345         return ret_value;
346 }
347
348 static HRESULT WINAPI IDirectInputWImpl_CreateDevice(LPDIRECTINPUT7A iface, 
349                                                      REFGUID rguid, LPDIRECTINPUTDEVICEW* pdev, LPUNKNOWN punk) {
350         IDirectInputImpl *This = (IDirectInputImpl *)iface;
351         HRESULT ret_value = DIERR_DEVICENOTREG;
352         int i;
353
354         TRACE("(this=%p,%s,%p,%p)\n",This,debugstr_guid(rguid),pdev,punk);
355
356         /* Loop on all the devices to see if anyone matches the given GUID */
357         for (i = 0; i < NB_DINPUT_DEVICES; i++) {
358           HRESULT ret;
359           if (!dinput_devices[i]->create_deviceW) continue;
360           if ((ret = dinput_devices[i]->create_deviceW(This, rguid, NULL, pdev)) == DI_OK)
361             return DI_OK;
362
363           if (ret == DIERR_NOINTERFACE)
364             ret_value = DIERR_NOINTERFACE;
365         }
366
367         return ret_value;
368 }
369
370 static HRESULT WINAPI IDirectInputAImpl_Initialize(LPDIRECTINPUT7A iface, HINSTANCE hinst, DWORD x) {
371         return DIERR_ALREADYINITIALIZED;
372 }
373
374 static HRESULT WINAPI IDirectInputAImpl_GetDeviceStatus(LPDIRECTINPUT7A iface,
375                                                         REFGUID rguid) {
376   IDirectInputImpl *This = (IDirectInputImpl *)iface;
377
378   FIXME("(%p)->(%s): stub\n",This,debugstr_guid(rguid));
379
380   return DI_OK;
381 }
382
383 static HRESULT WINAPI IDirectInputAImpl_RunControlPanel(LPDIRECTINPUT7A iface,
384                                                         HWND hwndOwner,
385                                                         DWORD dwFlags) {
386   IDirectInputImpl *This = (IDirectInputImpl *)iface;
387   FIXME("(%p)->(%p,%08lx): stub\n",This, hwndOwner, dwFlags);
388
389   return DI_OK;
390 }
391
392 static HRESULT WINAPI IDirectInput2AImpl_FindDevice(LPDIRECTINPUT7A iface, REFGUID rguid,
393                                                     LPCSTR pszName, LPGUID pguidInstance) {
394   IDirectInputImpl *This = (IDirectInputImpl *)iface;
395   FIXME("(%p)->(%s, %s, %p): stub\n", This, debugstr_guid(rguid), pszName, pguidInstance);
396
397   return DI_OK;
398 }
399
400 static HRESULT WINAPI IDirectInput2WImpl_FindDevice(LPDIRECTINPUT7W iface, REFGUID rguid,
401                                                     LPCWSTR pszName, LPGUID pguidInstance) {
402   IDirectInputImpl *This = (IDirectInputImpl *)iface;
403   FIXME("(%p)->(%s, %s, %p): stub\n", This, debugstr_guid(rguid), debugstr_w(pszName), pguidInstance);
404
405   return DI_OK;
406 }
407
408 static HRESULT WINAPI IDirectInput7AImpl_CreateDeviceEx(LPDIRECTINPUT7A iface, REFGUID rguid,
409                                                         REFIID riid, LPVOID* pvOut, LPUNKNOWN lpUnknownOuter)
410 {
411   IDirectInputImpl *This = (IDirectInputImpl *)iface;
412   HRESULT ret_value = DIERR_DEVICENOTREG;
413   int i;
414
415   TRACE("(%p)->(%s, %s, %p, %p)\n", This, debugstr_guid(rguid), debugstr_guid(riid), pvOut, lpUnknownOuter);
416
417   /* Loop on all the devices to see if anyone matches the given GUID */
418   for (i = 0; i < NB_DINPUT_DEVICES; i++) {
419     HRESULT ret;
420     if (!dinput_devices[i]->create_deviceA) continue;
421     if ((ret = dinput_devices[i]->create_deviceA(This, rguid, riid, (LPDIRECTINPUTDEVICEA*) pvOut)) == DI_OK)
422       return DI_OK;
423
424     if (ret == DIERR_NOINTERFACE)
425       ret_value = DIERR_NOINTERFACE;
426   }
427
428   return ret_value;
429 }
430
431 static HRESULT WINAPI IDirectInput7WImpl_CreateDeviceEx(LPDIRECTINPUT7W iface, REFGUID rguid,
432                                                         REFIID riid, LPVOID* pvOut, LPUNKNOWN lpUnknownOuter)
433 {
434   IDirectInputImpl *This = (IDirectInputImpl *)iface;
435   HRESULT ret_value = DIERR_DEVICENOTREG;
436   int i;
437
438   TRACE("(%p)->(%s, %s, %p, %p)\n", This, debugstr_guid(rguid), debugstr_guid(riid), pvOut, lpUnknownOuter);
439
440   /* Loop on all the devices to see if anyone matches the given GUID */
441   for (i = 0; i < NB_DINPUT_DEVICES; i++) {
442     HRESULT ret;
443     if (!dinput_devices[i]->create_deviceW) continue;
444     if ((ret = dinput_devices[i]->create_deviceW(This, rguid, riid, (LPDIRECTINPUTDEVICEW*) pvOut)) == DI_OK)
445       return DI_OK;
446
447     if (ret == DIERR_NOINTERFACE)
448       ret_value = DIERR_NOINTERFACE;
449   }
450
451   return ret_value;
452 }
453
454 static HRESULT WINAPI IDirectInput8AImpl_QueryInterface(LPDIRECTINPUT8A iface, REFIID riid, LPVOID *ppobj) {
455       IDirectInputImpl *This = (IDirectInputImpl *)iface;
456
457       TRACE("(this=%p,%s,%p)\n",This,debugstr_guid(riid),ppobj);
458       if (IsEqualGUID(&IID_IUnknown,riid) ||
459           IsEqualGUID(&IID_IDirectInput8A,riid)) {
460               IDirectInputAImpl_AddRef((LPDIRECTINPUT7A) iface);
461               *ppobj = This;
462               return 0;
463       }
464       TRACE("Unsupported interface !\n");
465       return E_NOINTERFACE;
466 }
467
468 static HRESULT WINAPI IDirectInput8WImpl_QueryInterface(LPDIRECTINPUT8W iface, REFIID riid, LPVOID *ppobj) {
469       IDirectInputImpl *This = (IDirectInputImpl *)iface;
470
471       TRACE("(this=%p,%s,%p)\n",This,debugstr_guid(riid),ppobj);
472       if (IsEqualGUID(&IID_IUnknown,riid) ||
473           IsEqualGUID(&IID_IDirectInput8W,riid)) {
474               IDirectInputAImpl_AddRef((LPDIRECTINPUT7A) iface);
475               *ppobj = This;
476               return 0;
477       }
478       TRACE("Unsupported interface !\n");
479       return E_NOINTERFACE;
480 }
481
482 static HRESULT WINAPI IDirectInput8AImpl_EnumDevicesBySemantics(
483       LPDIRECTINPUT8A iface, LPCSTR ptszUserName, LPDIACTIONFORMATA lpdiActionFormat,
484       LPDIENUMDEVICESBYSEMANTICSCBA lpCallback,
485       LPVOID pvRef, DWORD dwFlags
486 )
487 {
488       IDirectInputImpl *This = (IDirectInputImpl *)iface;
489
490       FIXME("(this=%p,%s,%p,%p,%p,%04lx): stub\n", This, ptszUserName, lpdiActionFormat,
491             lpCallback, pvRef, dwFlags);
492       return 0;
493 }
494
495 static HRESULT WINAPI IDirectInput8WImpl_EnumDevicesBySemantics(
496       LPDIRECTINPUT8W iface, LPCWSTR ptszUserName, LPDIACTIONFORMATW lpdiActionFormat,
497       LPDIENUMDEVICESBYSEMANTICSCBW lpCallback,
498       LPVOID pvRef, DWORD dwFlags
499 )
500 {
501       IDirectInputImpl *This = (IDirectInputImpl *)iface;
502
503       FIXME("(this=%p,%s,%p,%p,%p,%04lx): stub\n", This, debugstr_w(ptszUserName), lpdiActionFormat,
504             lpCallback, pvRef, dwFlags);
505       return 0;
506 }
507
508 static HRESULT WINAPI IDirectInput8AImpl_ConfigureDevices(
509       LPDIRECTINPUT8A iface, LPDICONFIGUREDEVICESCALLBACK lpdiCallback,
510       LPDICONFIGUREDEVICESPARAMSA lpdiCDParams, DWORD dwFlags, LPVOID pvRefData
511 )
512 {
513       IDirectInputImpl *This = (IDirectInputImpl *)iface;
514
515       FIXME("(this=%p,%p,%p,%04lx,%p): stub\n", This, lpdiCallback, lpdiCDParams,
516             dwFlags, pvRefData);
517       return 0;
518 }
519
520 static HRESULT WINAPI IDirectInput8WImpl_ConfigureDevices(
521       LPDIRECTINPUT8W iface, LPDICONFIGUREDEVICESCALLBACK lpdiCallback,
522       LPDICONFIGUREDEVICESPARAMSW lpdiCDParams, DWORD dwFlags, LPVOID pvRefData
523 )
524 {
525       IDirectInputImpl *This = (IDirectInputImpl *)iface;
526
527       FIXME("(this=%p,%p,%p,%04lx,%p): stub\n", This, lpdiCallback, lpdiCDParams,
528             dwFlags, pvRefData);
529       return 0;
530 }
531
532 #if !defined(__STRICT_ANSI__) && defined(__GNUC__)
533 # define XCAST(fun)   (typeof(ddi7avt.fun))
534 #else
535 # define XCAST(fun)     (void*)
536 #endif
537
538 static const IDirectInput7AVtbl ddi7avt = {
539         XCAST(QueryInterface)IDirectInputAImpl_QueryInterface,
540         XCAST(AddRef)IDirectInputAImpl_AddRef,
541         XCAST(Release)IDirectInputAImpl_Release,
542         XCAST(CreateDevice)IDirectInputAImpl_CreateDevice,
543         XCAST(EnumDevices)IDirectInputAImpl_EnumDevices,
544         XCAST(GetDeviceStatus)IDirectInputAImpl_GetDeviceStatus,
545         XCAST(RunControlPanel)IDirectInputAImpl_RunControlPanel,
546         XCAST(Initialize)IDirectInputAImpl_Initialize,
547         XCAST(FindDevice)IDirectInput2AImpl_FindDevice,
548         XCAST(CreateDeviceEx)IDirectInput7AImpl_CreateDeviceEx
549 };
550
551 #undef XCAST
552 #if !defined(__STRICT_ANSI__) && defined(__GNUC__)
553 # define XCAST(fun)   (typeof(ddi7wvt.fun))
554 #else
555 # define XCAST(fun)     (void*)
556 #endif
557
558 static const IDirectInput7WVtbl ddi7wvt = {
559         XCAST(QueryInterface)IDirectInputWImpl_QueryInterface,
560         XCAST(AddRef)IDirectInputAImpl_AddRef,
561         XCAST(Release)IDirectInputAImpl_Release,
562         XCAST(CreateDevice)IDirectInputWImpl_CreateDevice,
563         XCAST(EnumDevices)IDirectInputWImpl_EnumDevices,
564         XCAST(GetDeviceStatus)IDirectInputAImpl_GetDeviceStatus,
565         XCAST(RunControlPanel)IDirectInputAImpl_RunControlPanel,
566         XCAST(Initialize)IDirectInputAImpl_Initialize,
567         XCAST(FindDevice)IDirectInput2WImpl_FindDevice,
568         XCAST(CreateDeviceEx)IDirectInput7WImpl_CreateDeviceEx
569 };
570 #undef XCAST
571
572 #if !defined(__STRICT_ANSI__) && defined(__GNUC__)
573 # define XCAST(fun)     (typeof(ddi8avt.fun))
574 #else
575 # define XCAST(fun)     (void*)
576 #endif
577
578 static const IDirectInput8AVtbl ddi8avt = {
579         XCAST(QueryInterface)IDirectInput8AImpl_QueryInterface,
580         XCAST(AddRef)IDirectInputAImpl_AddRef,
581         XCAST(Release)IDirectInputAImpl_Release,
582         XCAST(CreateDevice)IDirectInputAImpl_CreateDevice,
583         XCAST(EnumDevices)IDirectInputAImpl_EnumDevices,
584         XCAST(GetDeviceStatus)IDirectInputAImpl_GetDeviceStatus,
585         XCAST(RunControlPanel)IDirectInputAImpl_RunControlPanel,
586         XCAST(Initialize)IDirectInputAImpl_Initialize,
587         XCAST(FindDevice)IDirectInput2AImpl_FindDevice,
588         XCAST(EnumDevicesBySemantics)IDirectInput8AImpl_EnumDevicesBySemantics,
589         XCAST(ConfigureDevices)IDirectInput8AImpl_ConfigureDevices
590 };
591 #undef XCAST
592
593 #if !defined(__STRICT_ANSI__) && defined(__GNUC__)
594 # define XCAST(fun)     (typeof(ddi8wvt.fun))
595 #else
596 # define XCAST(fun)     (void*)
597 #endif
598 static const IDirectInput8WVtbl ddi8wvt = {
599         XCAST(QueryInterface)IDirectInput8WImpl_QueryInterface,
600         XCAST(AddRef)IDirectInputAImpl_AddRef,
601         XCAST(Release)IDirectInputAImpl_Release,
602         XCAST(CreateDevice)IDirectInputWImpl_CreateDevice,
603         XCAST(EnumDevices)IDirectInputWImpl_EnumDevices,
604         XCAST(GetDeviceStatus)IDirectInputAImpl_GetDeviceStatus,
605         XCAST(RunControlPanel)IDirectInputAImpl_RunControlPanel,
606         XCAST(Initialize)IDirectInputAImpl_Initialize,
607         XCAST(FindDevice)IDirectInput2WImpl_FindDevice,
608         XCAST(EnumDevicesBySemantics)IDirectInput8WImpl_EnumDevicesBySemantics,
609         XCAST(ConfigureDevices)IDirectInput8WImpl_ConfigureDevices
610 };
611 #undef XCAST
612
613 /*******************************************************************************
614  * DirectInput ClassFactory
615  */
616 typedef struct
617 {
618     /* IUnknown fields */
619     const IClassFactoryVtbl    *lpVtbl;
620     LONG                        ref;
621 } IClassFactoryImpl;
622
623 static HRESULT WINAPI DICF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
624         IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
625
626         FIXME("(%p)->(%s,%p),stub!\n",This,debugstr_guid(riid),ppobj);
627         return E_NOINTERFACE;
628 }
629
630 static ULONG WINAPI DICF_AddRef(LPCLASSFACTORY iface) {
631         IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
632         return InterlockedIncrement(&(This->ref));
633 }
634
635 static ULONG WINAPI DICF_Release(LPCLASSFACTORY iface) {
636         IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
637         /* static class, won't be  freed */
638         return InterlockedDecrement(&(This->ref));
639 }
640
641 static HRESULT WINAPI DICF_CreateInstance(
642         LPCLASSFACTORY iface,LPUNKNOWN pOuter,REFIID riid,LPVOID *ppobj
643 ) {
644         IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
645
646         TRACE("(%p)->(%p,%s,%p)\n",This,pOuter,debugstr_guid(riid),ppobj);
647         if ( IsEqualGUID( &IID_IDirectInputA, riid ) ||
648              IsEqualGUID( &IID_IDirectInputW, riid ) ||
649              IsEqualGUID( &IID_IDirectInput2A, riid ) ||
650              IsEqualGUID( &IID_IDirectInput2W, riid ) ||
651              IsEqualGUID( &IID_IDirectInput7A, riid ) ||
652              IsEqualGUID( &IID_IDirectInput7W, riid ) ||
653              IsEqualGUID( &IID_IDirectInput8A, riid ) ||
654              IsEqualGUID( &IID_IDirectInput8W, riid ) ) {
655                 /* FIXME: reuse already created dinput if present? */
656                 return DirectInputCreateEx(0,0,riid,ppobj,pOuter);
657         }
658
659         FIXME("(%p,%p,%s,%p) Interface not found!\n",This,pOuter,debugstr_guid(riid),ppobj);    
660         return E_NOINTERFACE;
661 }
662
663 static HRESULT WINAPI DICF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
664         IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
665         FIXME("(%p)->(%d),stub!\n",This,dolock);
666         return S_OK;
667 }
668
669 static const IClassFactoryVtbl DICF_Vtbl = {
670         DICF_QueryInterface,
671         DICF_AddRef,
672         DICF_Release,
673         DICF_CreateInstance,
674         DICF_LockServer
675 };
676 static IClassFactoryImpl DINPUT_CF = {&DICF_Vtbl, 1 };
677
678 /***********************************************************************
679  *              DllCanUnloadNow (DINPUT.@)
680  */
681 HRESULT WINAPI DllCanUnloadNow(void)
682 {
683     FIXME("(void): stub\n");
684
685     return S_FALSE;
686 }
687
688 /***********************************************************************
689  *              DllGetClassObject (DINPUT.@)
690  */
691 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
692 {
693     TRACE("(%s,%s,%p)\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
694     if ( IsEqualCLSID( &IID_IClassFactory, riid ) ) {
695         *ppv = (LPVOID)&DINPUT_CF;
696         IClassFactory_AddRef((IClassFactory*)*ppv);
697     return S_OK;
698     }
699
700     FIXME("(%s,%s,%p): no interface found.\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
701     return CLASS_E_CLASSNOTAVAILABLE;
702 }