ole32: Fix some test failures in the free threaded marshaller tests on Win9x & NT4.
[wine] / dlls / mshtml / htmllocation.c
CommitLineData
1caf73be
JC
1/*
2 * Copyright 2008 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 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17 */
18
1caf73be 19#include <stdarg.h>
1caf73be
JC
20
21#define COBJMACROS
22
23#include "windef.h"
24#include "winbase.h"
25#include "winuser.h"
1caf73be
JC
26#include "ole2.h"
27
28#include "wine/debug.h"
29
30#include "mshtml_private.h"
31#include "resource.h"
32
33WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
34
35#define HTMLLOCATION_THIS(iface) DEFINE_THIS(HTMLLocation, HTMLLocation, iface)
36
1caf73be
JC
37static HRESULT WINAPI HTMLLocation_QueryInterface(IHTMLLocation *iface, REFIID riid, void **ppv)
38{
39 HTMLLocation *This = HTMLLOCATION_THIS(iface);
40
41 *ppv = NULL;
42
43 if(IsEqualGUID(&IID_IUnknown, riid)) {
44 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
45 *ppv = HTMLLOCATION(This);
1caf73be
JC
46 }else if(IsEqualGUID(&IID_IHTMLLocation, riid)) {
47 TRACE("(%p)->(IID_IHTMLLocation %p)\n", This, ppv);
48 *ppv = HTMLLOCATION(This);
a2ac4d23
JC
49 }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
50 return *ppv ? S_OK : E_NOINTERFACE;
1caf73be
JC
51 }
52
53 if(*ppv) {
54 IUnknown_AddRef((IUnknown*)*ppv);
55 return S_OK;
56 }
57
58 WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
59 return E_NOINTERFACE;
60}
61
62static ULONG WINAPI HTMLLocation_AddRef(IHTMLLocation *iface)
63{
64 HTMLLocation *This = HTMLLOCATION_THIS(iface);
65 LONG ref = InterlockedIncrement(&This->ref);
66
67 TRACE("(%p) ref=%d\n", This, ref);
68
69 return ref;
70}
71
72static ULONG WINAPI HTMLLocation_Release(IHTMLLocation *iface)
73{
74 HTMLLocation *This = HTMLLOCATION_THIS(iface);
75 LONG ref = InterlockedDecrement(&This->ref);
76
77 TRACE("(%p) ref=%d\n", This, ref);
78
79 if(!ref) {
80 if(This->doc && This->doc->location == This)
81 This->doc->location = NULL;
82 heap_free(This);
83 }
84
85 return ref;
86}
87
88static HRESULT WINAPI HTMLLocation_GetTypeInfoCount(IHTMLLocation *iface, UINT *pctinfo)
89{
90 HTMLLocation *This = HTMLLOCATION_THIS(iface);
91 FIXME("(%p)->(%p)\n", This, pctinfo);
92 return E_NOTIMPL;
93}
94
95static HRESULT WINAPI HTMLLocation_GetTypeInfo(IHTMLLocation *iface, UINT iTInfo,
96 LCID lcid, ITypeInfo **ppTInfo)
97{
98 HTMLLocation *This = HTMLLOCATION_THIS(iface);
99 FIXME("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
100 return E_NOTIMPL;
101}
102
103static HRESULT WINAPI HTMLLocation_GetIDsOfNames(IHTMLLocation *iface, REFIID riid,
104 LPOLESTR *rgszNames, UINT cNames,
105 LCID lcid, DISPID *rgDispId)
106{
107 HTMLLocation *This = HTMLLOCATION_THIS(iface);
108 FIXME("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
109 lcid, rgDispId);
110 return E_NOTIMPL;
111}
112
113static HRESULT WINAPI HTMLLocation_Invoke(IHTMLLocation *iface, DISPID dispIdMember,
114 REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
115 VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
116{
117 HTMLLocation *This = HTMLLOCATION_THIS(iface);
118 FIXME("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
119 lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
120 return E_NOTIMPL;
121}
122
123static HRESULT WINAPI HTMLLocation_put_href(IHTMLLocation *iface, BSTR v)
124{
125 HTMLLocation *This = HTMLLOCATION_THIS(iface);
126 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
127 return E_NOTIMPL;
128}
129
130static HRESULT WINAPI HTMLLocation_get_href(IHTMLLocation *iface, BSTR *p)
131{
132 HTMLLocation *This = HTMLLOCATION_THIS(iface);
133 FIXME("(%p)->(%p)\n", This, p);
134 return E_NOTIMPL;
135}
136
137static HRESULT WINAPI HTMLLocation_put_protocol(IHTMLLocation *iface, BSTR v)
138{
139 HTMLLocation *This = HTMLLOCATION_THIS(iface);
140 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
141 return E_NOTIMPL;
142}
143
144static HRESULT WINAPI HTMLLocation_get_protocol(IHTMLLocation *iface, BSTR *p)
145{
146 HTMLLocation *This = HTMLLOCATION_THIS(iface);
147 FIXME("(%p)->(%p)\n", This, p);
148 return E_NOTIMPL;
149}
150
151static HRESULT WINAPI HTMLLocation_put_host(IHTMLLocation *iface, BSTR v)
152{
153 HTMLLocation *This = HTMLLOCATION_THIS(iface);
154 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
155 return E_NOTIMPL;
156}
157
158static HRESULT WINAPI HTMLLocation_get_host(IHTMLLocation *iface, BSTR *p)
159{
160 HTMLLocation *This = HTMLLOCATION_THIS(iface);
161 FIXME("(%p)->(%p)\n", This, p);
162 return E_NOTIMPL;
163}
164
165static HRESULT WINAPI HTMLLocation_put_hostname(IHTMLLocation *iface, BSTR v)
166{
167 HTMLLocation *This = HTMLLOCATION_THIS(iface);
168 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
169 return E_NOTIMPL;
170}
171
172static HRESULT WINAPI HTMLLocation_get_hostname(IHTMLLocation *iface, BSTR *p)
173{
174 HTMLLocation *This = HTMLLOCATION_THIS(iface);
175 FIXME("(%p)->(%p)\n", This, p);
176 return E_NOTIMPL;
177}
178
179static HRESULT WINAPI HTMLLocation_put_port(IHTMLLocation *iface, BSTR v)
180{
181 HTMLLocation *This = HTMLLOCATION_THIS(iface);
182 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
183 return E_NOTIMPL;
184}
185
186static HRESULT WINAPI HTMLLocation_get_port(IHTMLLocation *iface, BSTR *p)
187{
188 HTMLLocation *This = HTMLLOCATION_THIS(iface);
189 FIXME("(%p)->(%p)\n", This, p);
190 return E_NOTIMPL;
191}
192
193static HRESULT WINAPI HTMLLocation_put_pathname(IHTMLLocation *iface, BSTR v)
194{
195 HTMLLocation *This = HTMLLOCATION_THIS(iface);
196 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
197 return E_NOTIMPL;
198}
199
200static HRESULT WINAPI HTMLLocation_get_pathname(IHTMLLocation *iface, BSTR *p)
201{
202 HTMLLocation *This = HTMLLOCATION_THIS(iface);
203 FIXME("(%p)->(%p)\n", This, p);
204 return E_NOTIMPL;
205}
206
207static HRESULT WINAPI HTMLLocation_put_search(IHTMLLocation *iface, BSTR v)
208{
209 HTMLLocation *This = HTMLLOCATION_THIS(iface);
210 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
211 return E_NOTIMPL;
212}
213
214static HRESULT WINAPI HTMLLocation_get_search(IHTMLLocation *iface, BSTR *p)
215{
216 HTMLLocation *This = HTMLLOCATION_THIS(iface);
217 FIXME("(%p)->(%p)\n", This, p);
218 return E_NOTIMPL;
219}
220
221static HRESULT WINAPI HTMLLocation_put_hash(IHTMLLocation *iface, BSTR v)
222{
223 HTMLLocation *This = HTMLLOCATION_THIS(iface);
224 FIXME("(%p)->(%s)\n", This, debugstr_w(v));
225 return E_NOTIMPL;
226}
227
228static HRESULT WINAPI HTMLLocation_get_hash(IHTMLLocation *iface, BSTR *p)
229{
230 HTMLLocation *This = HTMLLOCATION_THIS(iface);
231 FIXME("(%p)->(%p)\n", This, p);
232 return E_NOTIMPL;
233}
234
235static HRESULT WINAPI HTMLLocation_reload(IHTMLLocation *iface, VARIANT_BOOL flag)
236{
237 HTMLLocation *This = HTMLLOCATION_THIS(iface);
238 FIXME("(%p)->(%x)\n", This, flag);
239 return E_NOTIMPL;
240}
241
242static HRESULT WINAPI HTMLLocation_replace(IHTMLLocation *iface, BSTR bstr)
243{
244 HTMLLocation *This = HTMLLOCATION_THIS(iface);
245 FIXME("(%p)->(%s)\n", This, debugstr_w(bstr));
246 return E_NOTIMPL;
247}
248
249static HRESULT WINAPI HTMLLocation_assign(IHTMLLocation *iface, BSTR bstr)
250{
251 HTMLLocation *This = HTMLLOCATION_THIS(iface);
252 FIXME("(%p)->(%s)\n", This, debugstr_w(bstr));
253 return E_NOTIMPL;
254}
255
256static HRESULT WINAPI HTMLLocation_toString(IHTMLLocation *iface, BSTR *String)
257{
258 HTMLLocation *This = HTMLLOCATION_THIS(iface);
259 FIXME("(%p)->(%p)\n", This, String);
260 return E_NOTIMPL;
261}
262
263#undef HTMLLOCATION_THIS
264
265static const IHTMLLocationVtbl HTMLLocationVtbl = {
266 HTMLLocation_QueryInterface,
267 HTMLLocation_AddRef,
268 HTMLLocation_Release,
269 HTMLLocation_GetTypeInfoCount,
270 HTMLLocation_GetTypeInfo,
271 HTMLLocation_GetIDsOfNames,
272 HTMLLocation_Invoke,
273 HTMLLocation_put_href,
274 HTMLLocation_get_href,
275 HTMLLocation_put_protocol,
276 HTMLLocation_get_protocol,
277 HTMLLocation_put_host,
278 HTMLLocation_get_host,
279 HTMLLocation_put_hostname,
280 HTMLLocation_get_hostname,
281 HTMLLocation_put_port,
282 HTMLLocation_get_port,
283 HTMLLocation_put_pathname,
284 HTMLLocation_get_pathname,
285 HTMLLocation_put_search,
286 HTMLLocation_get_search,
287 HTMLLocation_put_hash,
288 HTMLLocation_get_hash,
289 HTMLLocation_reload,
290 HTMLLocation_replace,
291 HTMLLocation_assign,
292 HTMLLocation_toString
293};
294
a2ac4d23
JC
295static const tid_t HTMLLocation_iface_tids[] = {
296 IHTMLLocation_tid,
297 0
298};
299static dispex_static_data_t HTMLLocation_dispex = {
300 NULL,
301 IHTMLLocation_tid,
302 NULL,
303 HTMLLocation_iface_tids
304};
305
306
1caf73be
JC
307HTMLLocation *HTMLLocation_Create(HTMLDocument *doc)
308{
309 HTMLLocation *ret = heap_alloc(sizeof(*ret));
310
311 ret->lpHTMLLocationVtbl = &HTMLLocationVtbl;
312 ret->ref = 1;
313 ret->doc = doc;
314
a2ac4d23
JC
315 init_dispex(&ret->dispex, (IUnknown*)HTMLLOCATION(ret), &HTMLLocation_dispex);
316
1caf73be
JC
317 return ret;
318}