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