2 * Implementation of hyperlinking (hlink.dll)
4 * Copyright 2005 Aric Stewart for CodeWeavers
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.
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.
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
21 #include "hlink_private.h"
23 #include "wine/debug.h"
24 #include "wine/list.h"
26 WINE_DEFAULT_DEBUG_CHANNEL(hlink
);
36 IHlinkBrowseContext IHlinkBrowseContext_iface
;
38 HLBWINFO
* BrowseWindowInfo
;
39 struct link_entry
*current
;
43 static inline HlinkBCImpl
*impl_from_IHlinkBrowseContext(IHlinkBrowseContext
*iface
)
45 return CONTAINING_RECORD(iface
, HlinkBCImpl
, IHlinkBrowseContext_iface
);
48 static HRESULT WINAPI
IHlinkBC_fnQueryInterface( IHlinkBrowseContext
*iface
,
49 REFIID riid
, LPVOID
* ppvObj
)
51 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
52 TRACE ("(%p)->(%s,%p)\n", This
, debugstr_guid (riid
), ppvObj
);
54 if (IsEqualIID(riid
, &IID_IUnknown
) ||
55 IsEqualIID(riid
, &IID_IHlinkBrowseContext
))
60 IUnknown_AddRef((IUnknown
*)(*ppvObj
));
66 static ULONG WINAPI
IHlinkBC_fnAddRef (IHlinkBrowseContext
* iface
)
68 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
69 ULONG refCount
= InterlockedIncrement(&This
->ref
);
71 TRACE("(%p)->(count=%lu)\n", This
, refCount
- 1);
76 static ULONG WINAPI
IHlinkBC_fnRelease (IHlinkBrowseContext
* iface
)
78 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
79 ULONG ref
= InterlockedDecrement(&This
->ref
);
81 TRACE("(%p)->(count=%lu)\n", This
, ref
+ 1);
85 struct link_entry
*link
, *link2
;
87 LIST_FOR_EACH_ENTRY_SAFE(link
, link2
, &This
->links
, struct link_entry
, entry
)
89 list_remove(&link
->entry
);
90 IHlink_Release(link
->link
);
94 heap_free(This
->BrowseWindowInfo
);
101 static HRESULT WINAPI
IHlinkBC_Register(IHlinkBrowseContext
* iface
,
102 DWORD dwReserved
, IUnknown
*piunk
, IMoniker
*pimk
, DWORD
*pdwRegister
)
104 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
107 IRunningObjectTable
*ROT
;
110 FIXME("(%p)->(%li %p %p %p)\n", This
, dwReserved
, piunk
, pimk
, pdwRegister
);
112 hr
= CreateItemMoniker(NULL
, L
"WINEHLINK", &mon
);
115 CreateGenericComposite(mon
, pimk
, &composite
);
117 GetRunningObjectTable(0, &ROT
);
118 IRunningObjectTable_Register(ROT
, 0, piunk
, composite
, pdwRegister
);
120 IRunningObjectTable_Release(ROT
);
121 IMoniker_Release(composite
);
122 IMoniker_Release(mon
);
127 static HRESULT WINAPI
IHlinkBC_GetObject(IHlinkBrowseContext
* iface
,
128 IMoniker
*pimk
, BOOL fBindifRootRegistered
, IUnknown
**ppiunk
)
130 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
133 IRunningObjectTable
*ROT
;
136 TRACE("(%p)->(%p, %d, %p)\n", This
, pimk
, fBindifRootRegistered
, ppiunk
);
138 hr
= CreateItemMoniker(NULL
, L
"WINEHLINK", &mon
);
139 if (FAILED(hr
)) return hr
;
140 CreateGenericComposite(mon
, pimk
, &composite
);
142 GetRunningObjectTable(0, &ROT
);
143 hr
= IRunningObjectTable_GetObject(ROT
, composite
, ppiunk
);
145 IRunningObjectTable_Release(ROT
);
146 IMoniker_Release(composite
);
147 IMoniker_Release(mon
);
152 static HRESULT WINAPI
IHlinkBC_Revoke(IHlinkBrowseContext
* iface
,
156 IRunningObjectTable
*ROT
;
157 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
159 FIXME("(%p)->(%li)\n", This
, dwRegister
);
161 GetRunningObjectTable(0, &ROT
);
162 r
= IRunningObjectTable_Revoke(ROT
, dwRegister
);
163 IRunningObjectTable_Release(ROT
);
168 static HRESULT WINAPI
IHlinkBC_SetBrowseWindowInfo(IHlinkBrowseContext
* iface
,
171 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
172 TRACE("(%p)->(%p)\n", This
, phlbwi
);
177 heap_free(This
->BrowseWindowInfo
);
178 This
->BrowseWindowInfo
= heap_alloc(phlbwi
->cbSize
);
179 memcpy(This
->BrowseWindowInfo
, phlbwi
, phlbwi
->cbSize
);
184 static HRESULT WINAPI
IHlinkBC_GetBrowseWindowInfo(IHlinkBrowseContext
* iface
,
187 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
188 TRACE("(%p)->(%p)\n", This
, phlbwi
);
193 if(!This
->BrowseWindowInfo
)
196 memcpy(phlbwi
, This
->BrowseWindowInfo
, This
->BrowseWindowInfo
->cbSize
);
201 static HRESULT WINAPI
IHlinkBC_SetInitialHlink(IHlinkBrowseContext
* iface
,
202 IMoniker
*pimkTarget
, LPCWSTR pwzLocation
, LPCWSTR pwzFriendlyName
)
204 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
205 struct link_entry
*link
;
207 TRACE("(%p)->(%p %s %s)\n", This
, pimkTarget
, debugstr_w(pwzLocation
), debugstr_w(pwzFriendlyName
));
209 if (!list_empty(&This
->links
))
210 return CO_E_ALREADYINITIALIZED
;
212 link
= heap_alloc(sizeof(struct link_entry
));
213 if (!link
) return E_OUTOFMEMORY
;
215 HlinkCreateFromMoniker(pimkTarget
, pwzLocation
, pwzFriendlyName
, NULL
,
216 0, NULL
, &IID_IHlink
, (void**)&link
->link
);
218 list_add_head(&This
->links
, &link
->entry
);
219 This
->current
= LIST_ENTRY(list_head(&This
->links
), struct link_entry
, entry
);
223 static HRESULT WINAPI
IHlinkBC_OnNavigateHlink(IHlinkBrowseContext
*iface
,
224 DWORD grfHLNF
, IMoniker
* pmkTarget
, LPCWSTR pwzLocation
, LPCWSTR
225 pwzFriendlyName
, ULONG
*puHLID
)
227 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
229 FIXME("(%p)->(%li %p %s %s %p)\n", This
, grfHLNF
, pmkTarget
,
230 debugstr_w(pwzLocation
), debugstr_w(pwzFriendlyName
), puHLID
);
235 static struct link_entry
*context_get_entry(HlinkBCImpl
*ctxt
, ULONG hlid
)
242 entry
= list_prev(&ctxt
->links
, &ctxt
->current
->entry
);
245 entry
= list_next(&ctxt
->links
, &ctxt
->current
->entry
);
248 entry
= &ctxt
->current
->entry
;
250 case HLID_STACKBOTTOM
:
251 entry
= list_tail(&ctxt
->links
);
254 entry
= list_head(&ctxt
->links
);
257 WARN("unknown id 0x%lx\n", hlid
);
261 return entry
? LIST_ENTRY(entry
, struct link_entry
, entry
) : NULL
;
264 static HRESULT WINAPI
IHlinkBC_UpdateHlink(IHlinkBrowseContext
* iface
,
265 ULONG hlid
, IMoniker
*target
, LPCWSTR location
, LPCWSTR friendly_name
)
267 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
268 struct link_entry
*entry
= context_get_entry(This
, hlid
);
272 TRACE("(%p)->(0x%lx %p %s %s)\n", This
, hlid
, target
, debugstr_w(location
), debugstr_w(friendly_name
));
277 hr
= HlinkCreateFromMoniker(target
, location
, friendly_name
, NULL
, 0, NULL
, &IID_IHlink
, (void**)&link
);
281 IHlink_Release(entry
->link
);
287 static HRESULT WINAPI
IHlinkBC_EnumNavigationStack( IHlinkBrowseContext
*iface
,
288 DWORD dwReserved
, DWORD grfHLFNAMEF
, IEnumHLITEM
** ppienumhlitem
)
294 static HRESULT WINAPI
IHlinkBC_QueryHlink( IHlinkBrowseContext
* iface
,
295 DWORD grfHLONG
, ULONG uHLID
)
301 static HRESULT WINAPI
IHlinkBC_GetHlink(IHlinkBrowseContext
* iface
, ULONG hlid
, IHlink
**ret
)
303 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
304 struct link_entry
*link
;
306 TRACE("(%p)->(0x%lx %p)\n", This
, hlid
, ret
);
308 link
= context_get_entry(This
, hlid
);
318 static HRESULT WINAPI
IHlinkBC_SetCurrentHlink(IHlinkBrowseContext
* iface
, ULONG hlid
)
320 HlinkBCImpl
*This
= impl_from_IHlinkBrowseContext(iface
);
321 struct link_entry
*link
;
323 TRACE("(%p)->(0x%08lx)\n", This
, hlid
);
325 link
= context_get_entry(This
, hlid
);
329 This
->current
= link
;
333 static HRESULT WINAPI
IHlinkBC_Clone( IHlinkBrowseContext
* iface
,
334 IUnknown
* piunkOuter
, REFIID riid
, IUnknown
** ppiunkOjb
)
340 static HRESULT WINAPI
IHlinkBC_Close(IHlinkBrowseContext
* iface
,
347 static const IHlinkBrowseContextVtbl hlvt
=
349 IHlinkBC_fnQueryInterface
,
355 IHlinkBC_SetBrowseWindowInfo
,
356 IHlinkBC_GetBrowseWindowInfo
,
357 IHlinkBC_SetInitialHlink
,
358 IHlinkBC_OnNavigateHlink
,
359 IHlinkBC_UpdateHlink
,
360 IHlinkBC_EnumNavigationStack
,
363 IHlinkBC_SetCurrentHlink
,
368 HRESULT
HLinkBrowseContext_Constructor(IUnknown
*pUnkOuter
, REFIID riid
, void **ppv
)
372 TRACE("unkOut=%p riid=%s\n", pUnkOuter
, debugstr_guid(riid
));
376 return CLASS_E_NOAGGREGATION
;
378 hl
= heap_alloc_zero(sizeof(HlinkBCImpl
));
380 return E_OUTOFMEMORY
;
383 hl
->IHlinkBrowseContext_iface
.lpVtbl
= &hlvt
;
384 list_init(&hl
->links
);