wined3d: Add an alpha blending test.
[wine] / dlls / dinput8 / dinput8_main.c
1 /* DirectInput 8
2  *
3  * Copyright 2002 TransGaming Technologies Inc.
4  * Copyright 2006 Roderick Colenbrander
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "config.h"
22 #include <assert.h>
23 #include <stdarg.h>
24 #include <string.h>
25
26 #define COBJMACROS
27
28 #include "wine/debug.h"
29 #include "windef.h"
30 #include "winbase.h"
31 #include "winerror.h"
32 #include "dinput.h"
33
34 WINE_DEFAULT_DEBUG_CHANNEL(dinput);
35 static LONG dll_count;
36
37 /*
38  * Dll lifetime tracking declaration
39  */
40 static void LockModule(void)
41 {
42     InterlockedIncrement(&dll_count);
43 }
44
45 static void UnlockModule(void)
46 {
47     InterlockedDecrement(&dll_count);
48 }
49
50 /******************************************************************************
51  *      DirectInput8Create (DINPUT8.@)
52  */
53 HRESULT WINAPI DirectInput8Create(HINSTANCE hinst, DWORD dwVersion, REFIID riid, LPVOID *ppDI, LPUNKNOWN punkOuter) {
54     HRESULT hr;
55
56     TRACE("hInst (%p), dwVersion: %d, riid (%s), punkOuter (%p))\n", hinst, dwVersion, debugstr_guid(riid), punkOuter);
57
58     /* The specified version needs to be dinput8 (0x800) or higher */
59     if(dwVersion < 0x800)
60         return DIERR_OLDDIRECTINPUTVERSION;
61
62     if( !(IsEqualGUID(&IID_IDirectInput8A, riid) || IsEqualGUID(&IID_IDirectInput8W, riid) || IsEqualGUID(&IID_IUnknown, riid)) )
63         return DIERR_INVALIDPARAM;
64
65     CoInitialize(NULL);
66     
67     hr = CoCreateInstance( &CLSID_DirectInput8, punkOuter, CLSCTX_INPROC_SERVER, riid, ppDI);
68     if(FAILED(hr)) {
69         ERR("CoCreateInstance failed with hr = %d; Try running wineprefixcreate to fix it.\n", hr);
70         return DIERR_INVALIDPARAM;
71     }
72
73     CoUninitialize();
74
75     /* When aggregation is used (punkOuter!=NULL) the application needs to manually call Initialize. */
76     if(punkOuter == NULL && IsEqualGUID(&IID_IDirectInput8A, riid)) {
77         LPDIRECTINPUTA DI = (LPDIRECTINPUTA)*ppDI;
78         IDirectInput8_Initialize(DI, hinst, dwVersion);
79     }
80
81     if(punkOuter == NULL && IsEqualGUID(&IID_IDirectInput8W, riid)) {
82         LPDIRECTINPUTW DI = (LPDIRECTINPUTW)*ppDI;
83         IDirectInput8_Initialize(DI, hinst, dwVersion);
84     }
85
86     return S_OK;
87 }
88
89 /*******************************************************************************
90  * DirectInput8 ClassFactory
91  */
92 typedef struct
93 {
94     /* IUnknown fields */
95     const IClassFactoryVtbl    *lpVtbl;
96 } IClassFactoryImpl;
97
98 static HRESULT WINAPI DI8CF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
99     IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
100     FIXME("%p %s %p\n",This,debugstr_guid(riid),ppobj);
101     return E_NOINTERFACE;
102 }
103
104 static ULONG WINAPI DI8CF_AddRef(LPCLASSFACTORY iface) {
105     LockModule();
106     return 2;
107 }
108
109 static ULONG WINAPI DI8CF_Release(LPCLASSFACTORY iface) {
110     UnlockModule();
111     return 1;
112 }
113
114 static HRESULT WINAPI DI8CF_CreateInstance(LPCLASSFACTORY iface,LPUNKNOWN pOuter,REFIID riid,LPVOID *ppobj) {
115     IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
116
117     TRACE("(%p)->(%p,%s,%p)\n",This,pOuter,debugstr_guid(riid),ppobj);
118     if( IsEqualGUID( &IID_IDirectInput8A, riid ) || IsEqualGUID( &IID_IDirectInput8W, riid ) || IsEqualGUID( &IID_IUnknown, riid )) {
119         return DirectInputCreateEx(0, DIRECTINPUT_VERSION, riid, ppobj, pOuter);
120     }
121
122     ERR("(%p,%p,%s,%p) Interface not found!\n",This,pOuter,debugstr_guid(riid),ppobj);    
123     return E_NOINTERFACE;
124 }
125
126 static HRESULT WINAPI DI8CF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
127     TRACE("(%p)->(%d)\n", iface, dolock);
128
129     if(dolock)
130         LockModule();
131     else
132         UnlockModule();
133
134     return S_OK;
135 }
136
137 static const IClassFactoryVtbl DI8CF_Vtbl = {
138     DI8CF_QueryInterface,
139     DI8CF_AddRef,
140     DI8CF_Release,
141     DI8CF_CreateInstance,
142     DI8CF_LockServer
143 };
144 static IClassFactoryImpl DINPUT8_CF = { &DI8CF_Vtbl };
145
146
147 /***********************************************************************
148  *              DllCanUnloadNow (DINPUT8.@)
149  */
150 HRESULT WINAPI DllCanUnloadNow(void)
151 {
152     return dll_count == 0 ? S_OK : S_FALSE;
153 }
154
155 /***********************************************************************
156  *              DllGetClassObject (DINPUT8.@)
157  */
158 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
159 {
160     TRACE("(%s,%s,%p)\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
161     if ( IsEqualCLSID( &IID_IClassFactory, riid ) ) {
162         *ppv = (LPVOID)&DINPUT8_CF;
163         IClassFactory_AddRef((IClassFactory*)*ppv);
164         return S_OK;
165     }
166
167     FIXME("(%s,%s,%p): no interface found.\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
168     return CLASS_E_CLASSNOTAVAILABLE;
169 }