wined3d: Accelerated blits from and to offscreen render targets.
[wine] / dlls / hlink / hlink_main.c
1 /*
2  * Implementation of hyperlinking (hlink.dll)
3  *
4  * Copyright 2005 Aric Stewart for CodeWeavers
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 <stdarg.h>
22
23 #define COBJMACROS
24
25 #include "winerror.h"
26 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "winreg.h"
30 #include "ole2.h"
31 #include "unknwn.h"
32
33 #include "wine/debug.h"
34 #include "wine/unicode.h"
35 #include "hlink.h"
36
37 #include "initguid.h"
38 #include "hlguids.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(hlink);
41
42 extern HRESULT WINAPI HLink_Constructor(IUnknown *, REFIID, LPVOID*);
43 extern HRESULT WINAPI HLinkBrowseContext_Constructor(IUnknown *, REFIID, LPVOID*);
44
45 typedef HRESULT (CALLBACK *LPFNCREATEINSTANCE)(IUnknown*, REFIID, LPVOID*);
46
47 typedef struct
48 {
49     const IClassFactoryVtbl *lpVtbl;
50     LPFNCREATEINSTANCE      lpfnCI;
51 } CFImpl;
52
53 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
54 {
55     TRACE("%p %d %p\n", hinstDLL, fdwReason, lpvReserved);
56
57     switch (fdwReason)
58     {
59     case DLL_WINE_PREATTACH:
60         return FALSE;  /* prefer native version */
61     case DLL_PROCESS_ATTACH:
62         DisableThreadLibraryCalls(hinstDLL);
63         break;
64     case DLL_PROCESS_DETACH:
65         break;
66     }
67     return TRUE;
68 }
69
70 HRESULT WINAPI DllCanUnloadNow( void )
71 {
72     FIXME("\n");
73     return S_OK;
74 }
75
76 HRESULT WINAPI HlinkCreateFromMoniker( IMoniker *pimkTrgt, LPCWSTR pwzLocation,
77         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
78         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
79 {
80     IHlink *hl = NULL;
81     HRESULT r = S_OK;
82
83     TRACE("%p %s %s %p %i %p %s %p\n", pimkTrgt, debugstr_w(pwzLocation),
84             debugstr_w(pwzFriendlyName), pihlsite, dwSiteData, piunkOuter,
85             debugstr_guid(riid), ppvObj);
86
87     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
88     if (FAILED(r))
89         return r;
90
91     if (pwzLocation)
92         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
93     if (pwzFriendlyName)
94         IHlink_SetFriendlyName(hl, pwzFriendlyName);
95     if (pihlsite)
96         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
97     if (pimkTrgt)
98         IHlink_SetMonikerReference(hl, 0, pimkTrgt, pwzLocation);
99
100     *ppvObj = hl;
101
102     TRACE("Returning %i\n",r);
103
104     return r;
105 }
106
107 HRESULT WINAPI HlinkCreateFromString( LPCWSTR pwzTarget, LPCWSTR pwzLocation,
108         LPCWSTR pwzFriendlyName, IHlinkSite* pihlsite, DWORD dwSiteData,
109         IUnknown* piunkOuter, REFIID riid, void** ppvObj)
110 {
111     IHlink *hl = NULL;
112     HRESULT r = S_OK;
113
114     TRACE("%s %s %s %p %i %p %s %p\n", debugstr_w(pwzTarget),
115             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), pihlsite,
116             dwSiteData, piunkOuter, debugstr_guid(riid), ppvObj);
117
118     r = CoCreateInstance(&CLSID_StdHlink, piunkOuter, CLSCTX_INPROC_SERVER, riid, (LPVOID*)&hl);
119     if (FAILED(r))
120         return r;
121
122     if (pwzLocation)
123         IHlink_SetStringReference(hl, HLINKSETF_LOCATION, NULL, pwzLocation);
124
125     if (pwzTarget)
126     {
127         IMoniker *pTgtMk = NULL;
128         IBindCtx *pbc = NULL;
129         ULONG eaten;
130
131         CreateBindCtx(0, &pbc);
132         r = MkParseDisplayName(pbc, pwzTarget, &eaten, &pTgtMk);
133         IBindCtx_Release(pbc);
134
135         if (FAILED(r))
136         {
137             FIXME("ParseDisplayName failed, falling back to file\n");
138             r = CreateFileMoniker(pwzTarget,&pTgtMk);
139         }
140
141         if (pTgtMk)
142         {
143             IHlink_SetMonikerReference(hl, 0, pTgtMk, pwzLocation);
144             IMoniker_Release(pTgtMk);
145         }
146         else
147             FIXME("Unable to come up with a moniker, expect problems\n");
148
149         IHlink_SetStringReference(hl, HLINKSETF_TARGET, pwzTarget, NULL);
150     }
151
152     if (pwzFriendlyName)
153         IHlink_SetFriendlyName(hl, pwzFriendlyName);
154     if (pihlsite)
155         IHlink_SetHlinkSite(hl, pihlsite, dwSiteData);
156
157     TRACE("Returning %i\n",r);
158     *ppvObj = hl;
159
160     return r;
161 }
162
163
164 HRESULT WINAPI HlinkCreateBrowseContext( IUnknown* piunkOuter, REFIID riid, void** ppvObj)
165 {
166     HRESULT r = S_OK;
167
168     TRACE("%p %s %p\n", piunkOuter, debugstr_guid(riid), ppvObj);
169
170     r = CoCreateInstance(&CLSID_StdHlinkBrowseContext, piunkOuter, CLSCTX_INPROC_SERVER, riid, ppvObj);
171
172     TRACE("returning %i\n",r);
173
174     return r;
175 }
176
177 HRESULT WINAPI HlinkNavigate(IHlink *phl, IHlinkFrame *phlFrame,
178         DWORD grfHLNF, LPBC pbc, IBindStatusCallback *pbsc,
179         IHlinkBrowseContext *phlbc)
180 {
181     HRESULT r = S_OK;
182
183     TRACE("%p %p %i %p %p %p\n", phl, phlFrame, grfHLNF, pbc, pbsc, phlbc);
184
185     if (phlFrame)
186         r = IHlinkFrame_Navigate(phlFrame, grfHLNF, pbc, pbsc, phl);
187     else if (phl)
188         r = IHlink_Navigate(phl, grfHLNF, pbc, pbsc, phlbc);
189
190     return r;
191 }
192
193 HRESULT WINAPI HlinkOnNavigate( IHlinkFrame *phlFrame,
194         IHlinkBrowseContext* phlbc, DWORD grfHLNF, IMoniker *pmkTarget,
195         LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, ULONG* puHLID)
196 {
197     HRESULT r = S_OK;
198
199     TRACE("%p %p %i %p %s %s %p\n",phlFrame, phlbc, grfHLNF, pmkTarget,
200             debugstr_w(pwzLocation), debugstr_w(pwzFriendlyName), puHLID);
201
202     r = IHlinkBrowseContext_OnNavigateHlink(phlbc, grfHLNF, pmkTarget,
203             pwzLocation, pwzFriendlyName, puHLID);
204
205     if (phlFrame)
206         r = IHlinkFrame_OnNavigate(phlFrame,grfHLNF,pmkTarget, pwzLocation,
207                 pwzFriendlyName, 0);
208
209     return r;
210 }
211
212 HRESULT WINAPI HlinkCreateFromData(IDataObject *piDataObj,
213         IHlinkSite *pihlsite, DWORD dwSiteData, IUnknown *piunkOuter,
214         REFIID riid, void **ppvObj)
215 {
216     FIXME("%p %p %d %p %p %p\n",
217           piDataObj, pihlsite, dwSiteData, piunkOuter, riid, ppvObj);
218     *ppvObj = NULL;
219     return E_NOTIMPL;
220 }
221
222 HRESULT WINAPI HlinkQueryCreateFromData(IDataObject* piDataObj)
223 {
224     FIXME("%p\n", piDataObj);
225     return E_NOTIMPL;
226 }
227
228 HRESULT WINAPI HlinkCreateExtensionServices(LPCWSTR pwzAdditionalHeaders,
229         HWND phwnd, LPCWSTR pszUsername, LPCWSTR pszPassword,
230         IUnknown *punkOuter, REFIID riid, void** ppvObj)
231 {
232     FIXME("%s %p %s %s %p %s %p\n",debugstr_w(pwzAdditionalHeaders),
233             phwnd, debugstr_w(pszUsername), debugstr_w(pszPassword),
234             punkOuter, debugstr_guid(riid), ppvObj);
235     return E_NOTIMPL;
236 }
237
238 HRESULT WINAPI HlinkNavigateToStringReference( LPCWSTR pwzTarget,
239         LPCWSTR pwzLocation, IHlinkSite *pihlsite, DWORD dwSiteData,
240         IHlinkFrame *pihlframe, DWORD grfHLNF, LPBC pibc,
241         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
242 {
243     HRESULT r;
244     IHlink *hlink = NULL;
245
246     FIXME("%s %s %p %08x %p %08x %p %p %p\n",
247           debugstr_w(pwzTarget), debugstr_w(pwzLocation), pihlsite,
248           dwSiteData, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
249
250     r = HlinkCreateFromString( pwzTarget, pwzLocation, NULL, pihlsite,
251                                dwSiteData, NULL, &IID_IHlink, (LPVOID*) &hlink );
252     if (SUCCEEDED(r))
253         r = HlinkNavigate(hlink, pihlframe, grfHLNF, pibc, pibsc, pihlbc);
254
255     return r;
256 }
257
258 HRESULT WINAPI HlinkIsShortcut(LPCWSTR pwzFileName)
259 {
260     int len;
261
262     static const WCHAR url_ext[] = {'.','u','r','l',0};
263
264     TRACE("(%s)\n", debugstr_w(pwzFileName));
265
266     if(!pwzFileName)
267         return E_INVALIDARG;
268
269     len = strlenW(pwzFileName)-4;
270     if(len < 0)
271         return S_FALSE;
272
273     return strcmpiW(pwzFileName+len, url_ext) ? S_FALSE : S_OK;
274 }
275
276 HRESULT WINAPI HlinkTranslateURL(LPCWSTR pwzURL, DWORD grfFlags, LPWSTR *ppwzTranslatedURL)
277 {
278     FIXME("(%s %08x %p)\n", debugstr_w(pwzURL), grfFlags, ppwzTranslatedURL);
279     return E_NOTIMPL;
280 }
281
282 static HRESULT WINAPI HLinkCF_fnQueryInterface ( LPCLASSFACTORY iface,
283         REFIID riid, LPVOID *ppvObj)
284 {
285     CFImpl *This = (CFImpl *)iface;
286
287     TRACE("(%p)->(%s)\n",This,debugstr_guid(riid));
288
289     *ppvObj = NULL;
290
291     if (IsEqualIID(riid, &IID_IUnknown) ||
292         IsEqualIID(riid, &IID_IClassFactory))
293     {
294         *ppvObj = This;
295         return S_OK;
296     }
297
298     TRACE("-- E_NOINTERFACE\n");
299     return E_NOINTERFACE;
300 }
301
302 static ULONG WINAPI HLinkCF_fnAddRef (LPCLASSFACTORY iface)
303 {
304     return 2;
305 }
306
307 static ULONG WINAPI HLinkCF_fnRelease(LPCLASSFACTORY iface)
308 {
309     return 1;
310 }
311
312 static HRESULT WINAPI HLinkCF_fnCreateInstance( LPCLASSFACTORY iface,
313         LPUNKNOWN pUnkOuter, REFIID riid, LPVOID *ppvObject)
314 {
315     CFImpl *This = (CFImpl *)iface;
316
317     TRACE("%p->(%p,%s,%p)\n", This, pUnkOuter, debugstr_guid(riid), ppvObject);
318
319     *ppvObject = NULL;
320
321     return This->lpfnCI(pUnkOuter, riid, ppvObject);
322 }
323
324 static HRESULT WINAPI HLinkCF_fnLockServer(LPCLASSFACTORY iface, BOOL fLock)
325 {
326     FIXME("%p %d\n", iface, fLock);
327     return E_NOTIMPL;
328 }
329
330 static const IClassFactoryVtbl hlcfvt =
331 {
332     HLinkCF_fnQueryInterface,
333     HLinkCF_fnAddRef,
334     HLinkCF_fnRelease,
335     HLinkCF_fnCreateInstance,
336     HLinkCF_fnLockServer
337 };
338
339 static CFImpl HLink_cf = { &hlcfvt, &HLink_Constructor };
340 static CFImpl HLinkBrowseContext_cf = { &hlcfvt, &HLinkBrowseContext_Constructor };
341
342 /***********************************************************************
343  *             DllGetClassObject (HLINK.@)
344  */
345 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid, LPVOID *ppv)
346 {
347     IClassFactory   *pcf = NULL;
348
349     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv);
350
351     if (!ppv)
352         return E_INVALIDARG;
353     *ppv = NULL;
354
355     if (IsEqualIID(rclsid, &CLSID_StdHlink))
356         pcf = (IClassFactory*) &HLink_cf;
357     else if (IsEqualIID(rclsid, &CLSID_StdHlinkBrowseContext))
358         pcf = (IClassFactory*) &HLinkBrowseContext_cf;
359     else
360         return CLASS_E_CLASSNOTAVAILABLE;
361
362     return IClassFactory_QueryInterface(pcf, iid, ppv);
363 }
364
365 static HRESULT register_clsid(LPCGUID guid)
366 {
367     static const WCHAR clsid[] =
368         {'C','L','S','I','D','\\',0};
369     static const WCHAR ips[] =
370         {'\\','I','n','p','r','o','c','S','e','r','v','e','r','3','2',0};
371     static const WCHAR hlink[] =
372         {'h','l','i','n','k','.','d','l','l',0};
373     static const WCHAR threading_model[] =
374         {'T','h','r','e','a','d','i','n','g','M','o','d','e','l',0};
375     static const WCHAR apartment[] =
376         {'A','p','a','r','t','m','e','n','t',0};
377     WCHAR path[80];
378     HKEY key = NULL;
379     LONG r;
380
381     lstrcpyW(path, clsid);
382     StringFromGUID2(guid, &path[6], 80);
383     lstrcatW(path, ips);
384     r = RegCreateKeyW(HKEY_CLASSES_ROOT, path, &key);
385     if (r != ERROR_SUCCESS)
386         return E_FAIL;
387
388     RegSetValueExW(key, NULL, 0, REG_SZ, (const BYTE *)hlink, sizeof hlink);
389     RegSetValueExW(key, threading_model, 0, REG_SZ, (const BYTE *)apartment, sizeof apartment);
390     RegCloseKey(key);
391
392     return S_OK;
393 }
394
395 HRESULT WINAPI DllRegisterServer(void)
396 {
397     HRESULT r;
398
399     r = register_clsid(&CLSID_StdHlink);
400     if (SUCCEEDED(r))
401         r = register_clsid(&CLSID_StdHlinkBrowseContext);
402
403     return S_OK;
404 }