make_dlls: Recursively ignore testlist.c in all tests directories.
[wine] / dlls / mshtml / hlink.c
1 /*
2  * Copyright 2005-2006 Jacek Caban for CodeWeavers
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * License along with this library; if not, write to the Free Software
15  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
16  */
17
18 #include "config.h"
19
20 #include <stdarg.h>
21 #include <stdio.h>
22
23 #define COBJMACROS
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winuser.h"
28 #include "ole2.h"
29
30 #include "wine/debug.h"
31 #include "wine/unicode.h"
32
33 #include "mshtml_private.h"
34
35 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
36
37 /**********************************************************
38  * IHlinkTarget implementation
39  */
40
41 #define HLINKTRG_THIS(iface) DEFINE_THIS(HTMLDocument, HlinkTarget, iface)
42
43 static HRESULT WINAPI HlinkTarget_QueryInterface(IHlinkTarget *iface, REFIID riid, void **ppv)
44 {
45     HTMLDocument *This = HLINKTRG_THIS(iface);
46     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
47 }
48
49 static ULONG WINAPI HlinkTarget_AddRef(IHlinkTarget *iface)
50 {
51     HTMLDocument *This = HLINKTRG_THIS(iface);
52     return IHTMLDocument2_AddRef(HTMLDOC(This));
53 }
54
55 static ULONG WINAPI HlinkTarget_Release(IHlinkTarget *iface)
56 {
57     HTMLDocument *This = HLINKTRG_THIS(iface);
58     return IHTMLDocument2_Release(HTMLDOC(This));
59 }
60
61 static HRESULT WINAPI HlinkTarget_SetBrowseContext(IHlinkTarget *iface, IHlinkBrowseContext *pihlbc)
62 {
63     HTMLDocument *This = HLINKTRG_THIS(iface);
64     FIXME("(%p)->(%p)\n", This, pihlbc);
65     return E_NOTIMPL;
66 }
67
68 static HRESULT WINAPI HlinkTarget_GetBrowseContext(IHlinkTarget *iface, IHlinkBrowseContext **ppihlbc)
69 {
70     HTMLDocument *This = HLINKTRG_THIS(iface);
71     FIXME("(%p)->(%p)\n", This, ppihlbc);
72     return E_NOTIMPL;
73 }
74
75 static HRESULT WINAPI HlinkTarget_Navigate(IHlinkTarget *iface, DWORD grfHLNF, LPCWSTR pwzJumpLocation)
76 {
77     HTMLDocument *This = HLINKTRG_THIS(iface);
78
79     TRACE("(%p)->(%08lx %s)\n", This, grfHLNF, debugstr_w(pwzJumpLocation));
80
81     if(grfHLNF)
82         FIXME("Unsupported grfHLNF=%08lx\n", grfHLNF);
83     if(pwzJumpLocation)
84         FIXME("JumpLocation not supported\n");
85
86     return IOleObject_DoVerb(OLEOBJ(This), OLEIVERB_SHOW, NULL, NULL, -1, NULL, NULL);
87 }
88
89 static HRESULT WINAPI HlinkTarget_GetMoniker(IHlinkTarget *iface, LPCWSTR pwzLocation, DWORD dwAssign,
90         IMoniker **ppimkLocation)
91 {
92     HTMLDocument *This = HLINKTRG_THIS(iface);
93     FIXME("(%p)->(%s %08lx %p)\n", This, debugstr_w(pwzLocation), dwAssign, ppimkLocation);
94     return E_NOTIMPL;
95 }
96
97 static HRESULT WINAPI HlinkTarget_GetFriendlyName(IHlinkTarget *iface, LPCWSTR pwzLocation,
98         LPWSTR *ppwzFriendlyName)
99 {
100     HTMLDocument *This = HLINKTRG_THIS(iface);
101     FIXME("(%p)->(%s %p)\n", This, debugstr_w(pwzLocation), ppwzFriendlyName);
102     return E_NOTIMPL;
103 }
104
105 static const IHlinkTargetVtbl HlinkTargetVtbl = {
106     HlinkTarget_QueryInterface,
107     HlinkTarget_AddRef,
108     HlinkTarget_Release,
109     HlinkTarget_SetBrowseContext,
110     HlinkTarget_GetBrowseContext,
111     HlinkTarget_Navigate,
112     HlinkTarget_GetMoniker,
113     HlinkTarget_GetFriendlyName
114 };
115
116 void HTMLDocument_Hlink_Init(HTMLDocument *This)
117 {
118     This->lpHlinkTargetVtbl = &HlinkTargetVtbl;
119 }
120
121 typedef struct {
122     const IHlinkVtbl  *lpHlinkVtbl;
123
124     LONG ref;
125
126     IMoniker *mon;
127     LPWSTR location;
128 } Hlink;
129
130 #define HLINK(x)  ((IHlink*)  &(x)->lpHlinkVtbl)
131
132 #define HLINK_THIS(iface) DEFINE_THIS(Hlink, Hlink, iface)
133
134 static HRESULT WINAPI Hlink_QueryInterface(IHlink *iface, REFIID riid, void **ppv)
135 {
136     Hlink *This = HLINK_THIS(iface);
137
138     *ppv = NULL;
139
140     if(IsEqualGUID(&IID_IUnknown, riid)) {
141         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
142         *ppv = HLINK(This);
143     }else if(IsEqualGUID(&IID_IHlink, riid)) {
144         TRACE("(%p)->(IID_IHlink %p)\n", This, ppv);
145         *ppv = HLINK(This);
146     }
147
148     if(*ppv) {
149         IHlink_AddRef(HLINK(This));
150         return S_OK;
151     }
152
153     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
154     return E_NOINTERFACE;
155 }
156
157 static ULONG WINAPI Hlink_AddRef(IHlink *iface)
158 {
159     Hlink *This = HLINK_THIS(iface);
160     LONG ref = InterlockedIncrement(&This->ref);
161
162     TRACE("(%p) ref=%ld\n", This, ref);
163
164     return ref;
165 }
166
167 static ULONG WINAPI Hlink_Release(IHlink *iface)
168 {
169     Hlink *This = HLINK_THIS(iface);
170     LONG ref = InterlockedDecrement(&This->ref);
171
172     TRACE("(%p) ref=%ld\n", This, ref);
173
174     if(!ref) {
175         if(This->mon)
176             IMoniker_Release(This->mon);
177         HeapFree(GetProcessHeap(), 0, This->location);
178         HeapFree(GetProcessHeap(), 0, This);
179     }
180
181     return ref;
182 }
183
184 static HRESULT WINAPI Hlink_SetHlinkSite(IHlink *iface, IHlinkSite *pihlSite, DWORD dwSiteData)
185 {
186     Hlink *This = HLINK_THIS(iface);
187     FIXME("(%p)->(%p %ld)\n", This, pihlSite, dwSiteData);
188     return E_NOTIMPL;
189 }
190
191 static HRESULT WINAPI Hlink_GetHlinkSite(IHlink *iface, IHlinkSite **ppihlSite,
192                                          DWORD *pdwSiteData)
193 {
194     Hlink *This = HLINK_THIS(iface);
195
196     TRACE("(%p)->(%p %p)\n", This, ppihlSite, pdwSiteData);
197
198     *ppihlSite = NULL;
199     return S_OK;
200 }
201
202 static HRESULT WINAPI Hlink_SetMonikerReference(IHlink *iface, DWORD grfHLSETF,
203                                                 IMoniker *pimkTarget, LPCWSTR pwzLocation)
204 {
205     Hlink *This = HLINK_THIS(iface);
206
207     TRACE("(%p)->(%08lx %p %s)\n", This, grfHLSETF, pimkTarget, debugstr_w(pwzLocation));
208
209     if(grfHLSETF)
210         FIXME("unsupported grfHLSETF=%08lx\n", grfHLSETF);
211
212     if(This->mon)
213         IMoniker_Release(This->mon);
214     HeapFree(GetProcessHeap(), 0, This->location);
215
216     if(pimkTarget)
217         IMoniker_AddRef(pimkTarget);
218     This->mon = pimkTarget;
219
220     if(pwzLocation) {
221         DWORD len = strlenW(pwzLocation)+1;
222
223         This->location = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
224         memcpy(This->location, pwzLocation, len*sizeof(WCHAR));
225     }else {
226         This->location = NULL;
227     }
228
229     return S_OK;
230 }
231
232 static HRESULT WINAPI Hlink_GetMonikerReference(IHlink *iface, DWORD dwWhichRef,
233                                                 IMoniker **ppimkTarget, LPWSTR *ppwzLocation)
234 {
235     Hlink *This = HLINK_THIS(iface);
236
237     TRACE("(%p)->(%ld %p %p)\n", This, dwWhichRef, ppimkTarget, ppwzLocation);
238
239     if(dwWhichRef != 1)
240         FIXME("upsupported dwWhichRef = %ld\n", dwWhichRef);
241
242     if(This->mon)
243         IMoniker_AddRef(This->mon);
244     *ppimkTarget = This->mon;
245
246     if(This->location) {
247         DWORD len = strlenW(This->location)+1;
248
249         *ppwzLocation = CoTaskMemAlloc(len*sizeof(WCHAR));
250         memcpy(*ppwzLocation, This->location, len*sizeof(WCHAR));
251     }else {
252         *ppwzLocation = NULL;
253     }
254
255     return S_OK;
256 }
257
258 static HRESULT WINAPI Hlink_SetStringReference(IHlink *iface, DWORD grfHLSETF,
259                                                LPCWSTR pwzTarget, LPCWSTR pwzLocation)
260 {
261     Hlink *This = HLINK_THIS(iface);
262     FIXME("(%p)->(%08lx %s %s)\n", This, grfHLSETF, debugstr_w(pwzTarget),
263           debugstr_w(pwzLocation));
264     return E_NOTIMPL;
265 }
266
267 static HRESULT WINAPI Hlink_GetStringReference(IHlink *iface, DWORD dwWhichRef,
268                                                LPWSTR *ppwzTarget, LPWSTR *ppwzLocation)
269 {
270     Hlink *This = HLINK_THIS(iface);
271     FIXME("(%p)->(%ld %p %p)\n", This, dwWhichRef, ppwzTarget, ppwzLocation);
272     return E_NOTIMPL;
273 }
274
275 static HRESULT WINAPI Hlink_SetFriendlyName(IHlink *iface, LPCWSTR pwzFriendlyName)
276 {
277     Hlink *This = HLINK_THIS(iface);
278     FIXME("(%p)->(%s)\n", This, debugstr_w(pwzFriendlyName));
279     return E_NOTIMPL;
280 }
281
282 static HRESULT WINAPI Hlink_GetFriendlyName(IHlink *iface, DWORD grfHLNAMEF,
283                                             LPWSTR *ppwzFriendlyName)
284 {
285     Hlink *This = HLINK_THIS(iface);
286
287     TRACE("(%p)->(%08lx %p)\n", This, grfHLNAMEF, ppwzFriendlyName);
288
289     *ppwzFriendlyName = NULL;
290     return S_FALSE;
291 }
292
293 static HRESULT WINAPI Hlink_SetTargetFrameName(IHlink *iface, LPCWSTR pwzTargetFrameName)
294 {
295     Hlink *This = HLINK_THIS(iface);
296     FIXME("(%p)->(%s)\n", This, debugstr_w(pwzTargetFrameName));
297     return E_NOTIMPL;
298 }
299
300 static HRESULT WINAPI Hlink_GetTargetFrameName(IHlink *iface, LPWSTR *ppwzTargetFrameName)
301 {
302     Hlink *This = HLINK_THIS(iface);
303
304     TRACE("(%p)->(%p)\n", This, ppwzTargetFrameName);
305
306     *ppwzTargetFrameName = NULL;
307     return S_FALSE;
308 }
309
310 static HRESULT WINAPI Hlink_GetMiscStatus(IHlink *iface, DWORD *pdwStatus)
311 {
312     Hlink *This = HLINK_THIS(iface);
313     FIXME("(%p)->(%p)\n", This, pdwStatus);
314     return E_NOTIMPL;
315 }
316
317 static HRESULT WINAPI Hlink_Navigate(IHlink *iface, DWORD grfHLNF, LPBC pibc,
318         IBindStatusCallback *pibsc, IHlinkBrowseContext *pihlbc)
319 {
320     Hlink *This = HLINK_THIS(iface);
321     FIXME("(%p)->(%08lx %p %p %p)\n", This, grfHLNF, pibc, pibsc, pihlbc);
322     return E_NOTIMPL;
323 }
324
325 static HRESULT WINAPI Hlink_SetAdditionalParams(IHlink *iface, LPCWSTR pwzAdditionalParams)
326 {
327     Hlink *This = HLINK_THIS(iface);
328     FIXME("(%p)->(%s)\n", This, debugstr_w(pwzAdditionalParams));
329     return E_NOTIMPL;
330 }
331
332 static HRESULT WINAPI Hlink_GetAdditionalParams(IHlink *iface, LPWSTR *ppwzAdditionalParams)
333 {
334     Hlink *This = HLINK_THIS(iface);
335     FIXME("(%p)->(%p)\n", This, ppwzAdditionalParams);
336     return E_NOTIMPL;
337 }
338
339 #undef HLINK_THIS
340
341 static const IHlinkVtbl HlinkVtbl = {
342     Hlink_QueryInterface,
343     Hlink_AddRef,
344     Hlink_Release,
345     Hlink_SetHlinkSite,
346     Hlink_GetHlinkSite,
347     Hlink_SetMonikerReference,
348     Hlink_GetMonikerReference,
349     Hlink_SetStringReference,
350     Hlink_GetStringReference,
351     Hlink_SetFriendlyName,
352     Hlink_GetFriendlyName,
353     Hlink_SetTargetFrameName,
354     Hlink_GetTargetFrameName,
355     Hlink_GetMiscStatus,
356     Hlink_Navigate,
357     Hlink_SetAdditionalParams,
358     Hlink_GetAdditionalParams
359 };
360
361 IHlink *Hlink_Create(void)
362 {
363     Hlink *ret = HeapAlloc(GetProcessHeap(), 0, sizeof(Hlink));
364
365     ret->lpHlinkVtbl = &HlinkVtbl;
366     ret->ref = 1;
367     ret->mon = NULL;
368     ret->location = NULL;
369
370     return HLINK(ret);
371 }