1 /*
2 * Copyright 2010 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
19 #include "config.h"
20
21 #include <stdarg.h>
22
23 #define COBJMACROS
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "winuser.h"
28 #include "ole2.h"
29 #include "shlobj.h"
30
31 #include "mshtml_private.h"
32 #include "pluginhost.h"
33
34 #include "wine/debug.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
37
38 typedef struct {
39 IPropertyBag IPropertyBag_iface;
40 IPropertyBag2 IPropertyBag2_iface;
41
42 LONG ref;
43
44 struct list props;
45 } PropertyBag;
46
47 typedef struct {
48 struct list entry;
49 WCHAR *name;
50 WCHAR *value;
51 } param_prop_t;
52
53 static void free_prop(param_prop_t *prop)
54 {
55 list_remove(&prop->entry);
56
57 heap_free(prop->name);
58 heap_free(prop->value);
59 heap_free(prop);
60 }
61
62 static param_prop_t *find_prop(PropertyBag *prop_bag, const WCHAR *name)
63 {
64 param_prop_t *iter;
65
66 LIST_FOR_EACH_ENTRY(iter, &prop_bag->props, param_prop_t, entry) {
67 if(!strcmpiW(iter->name, name))
68 return iter;
69 }
70
71 return NULL;
72 }
73
74 static HRESULT add_prop(PropertyBag *prop_bag, const WCHAR *name, const WCHAR *value)
75 {
76 param_prop_t *prop;
77
78 if(!name || !value)
79 return S_OK;
80
81 TRACE("%p %s %s\n", prop_bag, debugstr_w(name), debugstr_w(value));
82
83 prop = heap_alloc(sizeof(*prop));
84 if(!prop)
85 return E_OUTOFMEMORY;
86
87 prop->name = heap_strdupW(name);
88 prop->value = heap_strdupW(value);
89 if(!prop->name || !prop->value) {
90 list_init(&prop->entry);
91 free_prop(prop);
92 return E_OUTOFMEMORY;
93 }
94
95 list_add_tail(&prop_bag->props, &prop->entry);
96 return S_OK;
97 }
98
99 static inline PropertyBag *impl_from_IPropertyBag(IPropertyBag *iface)
100 {
101 return CONTAINING_RECORD(iface, PropertyBag, IPropertyBag_iface);
102 }
103
104 static HRESULT WINAPI PropertyBag_QueryInterface(IPropertyBag *iface, REFIID riid, void **ppv)
105 {
106 PropertyBag *This = impl_from_IPropertyBag(iface);
107
108 if(IsEqualGUID(&IID_IUnknown, riid)) {
109 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
110 *ppv = &This->IPropertyBag_iface;
111 }else if(IsEqualGUID(&IID_IPropertyBag, riid)) {
112 TRACE("(%p)->(IID_IPropertyBag %p)\n", This, ppv);
113 *ppv = &This->IPropertyBag_iface;
114 }else if(IsEqualGUID(&IID_IPropertyBag2, riid)) {
115 TRACE("(%p)->(IID_IPropertyBag2 %p)\n", This, ppv);
116 *ppv = &This->IPropertyBag2_iface;
117 }else {
118 WARN("Unsopported interface %s\n", debugstr_guid(riid));
119 *ppv = NULL;
120 return E_NOINTERFACE;
121 }
122
123 IUnknown_AddRef((IUnknown*)*ppv);
124 return S_OK;
125 }
126
127 static ULONG WINAPI PropertyBag_AddRef(IPropertyBag *iface)
128 {
129 PropertyBag *This = impl_from_IPropertyBag(iface);
130 LONG ref = InterlockedIncrement(&This->ref);
131
132 TRACE("(%p) ref=%d\n", This, ref);
133
134 return ref;
135 }
136
137 static ULONG WINAPI PropertyBag_Release(IPropertyBag *iface)
138 {
139 PropertyBag *This = impl_from_IPropertyBag(iface);
140 LONG ref = InterlockedDecrement(&This->ref);
141
142 TRACE("(%p) ref=%d\n", This, ref);
143
144 if(!ref) {
145 while(!list_empty(&This->props))
146 free_prop(LIST_ENTRY(This->props.next, param_prop_t, entry));
147 heap_free(This);
148 }
149
150 return ref;
151 }
152
153 static HRESULT WINAPI PropertyBag_Read(IPropertyBag *iface, LPCOLESTR pszPropName, VARIANT *pVar, IErrorLog *pErrorLog)
154 {
155 PropertyBag *This = impl_from_IPropertyBag(iface);
156 param_prop_t *prop;
157 VARIANT v;
158
159 TRACE("(%p)->(%s %p %p)\n", This, debugstr_w(pszPropName), pVar, pErrorLog);
160
161 prop = find_prop(This, pszPropName);
162 if(!prop) {
163 TRACE("Not found\n");
164 return E_INVALIDARG;
165 }
166
167 V_BSTR(&v) = SysAllocString(prop->value);
168 if(!V_BSTR(&v))
169 return E_OUTOFMEMORY;
170
171 if(V_VT(pVar) != VT_BSTR) {
172 HRESULT hres;
173
174 V_VT(&v) = VT_BSTR;
175 hres = VariantChangeType(pVar, &v, 0, V_VT(pVar));
176 SysFreeString(V_BSTR(&v));
177 return hres;
178 }
179
180 V_BSTR(pVar) = V_BSTR(&v);
181 return S_OK;
182 }
183
184 static HRESULT WINAPI PropertyBag_Write(IPropertyBag *iface, LPCOLESTR pszPropName, VARIANT *pVar)
185 {
186 PropertyBag *This = impl_from_IPropertyBag(iface);
187 FIXME("(%p)->(%s %s)\n", This, debugstr_w(pszPropName), debugstr_variant(pVar));
188 return E_NOTIMPL;
189 }
190
191 static const IPropertyBagVtbl PropertyBagVtbl = {
192 PropertyBag_QueryInterface,
193 PropertyBag_AddRef,
194 PropertyBag_Release,
195 PropertyBag_Read,
196 PropertyBag_Write
197 };
198
199 static inline PropertyBag *impl_from_IPropertyBag2(IPropertyBag2 *iface)
200 {
201 return CONTAINING_RECORD(iface, PropertyBag, IPropertyBag2_iface);
202 }
203
204 static HRESULT WINAPI PropertyBag2_QueryInterface(IPropertyBag2 *iface, REFIID riid, void **ppv)
205 {
206 PropertyBag *This = impl_from_IPropertyBag2(iface);
207 return IPropertyBag_QueryInterface(&This->IPropertyBag_iface, riid, ppv);
208 }
209
210 static ULONG WINAPI PropertyBag2_AddRef(IPropertyBag2 *iface)
211 {
212 PropertyBag *This = impl_from_IPropertyBag2(iface);
213 return IPropertyBag_AddRef(&This->IPropertyBag_iface);
214 }
215
216 static ULONG WINAPI PropertyBag2_Release(IPropertyBag2 *iface)
217 {
218 PropertyBag *This = impl_from_IPropertyBag2(iface);
219 return IPropertyBag_Release(&This->IPropertyBag_iface);
220 }
221
222 static HRESULT WINAPI PropertyBag2_Read(IPropertyBag2 *iface, ULONG cProperties, PROPBAG2 *pPropBag,
223 IErrorLog *pErrLog, VARIANT *pvarValue, HRESULT *phrError)
224 {
225 PropertyBag *This = impl_from_IPropertyBag2(iface);
226 FIXME("(%p)->(%d %p %p %p %p)\n", This, cProperties, pPropBag, pErrLog, pvarValue, phrError);
227 return E_NOTIMPL;
228 }
229
230 static HRESULT WINAPI PropertyBag2_Write(IPropertyBag2 *iface, ULONG cProperties, PROPBAG2 *pPropBag, VARIANT *pvarValue)
231 {
232 PropertyBag *This = impl_from_IPropertyBag2(iface);
233 FIXME("(%p)->(%d %p %s)\n", This, cProperties, pPropBag, debugstr_variant(pvarValue));
234 return E_NOTIMPL;
235 }
236
237 static HRESULT WINAPI PropertyBag2_CountProperties(IPropertyBag2 *iface, ULONG *pcProperties)
238 {
239 PropertyBag *This = impl_from_IPropertyBag2(iface);
240 FIXME("(%p)->(%p)\n", This, pcProperties);
241 return E_NOTIMPL;
242 }
243
244 static HRESULT WINAPI PropertyBag2_GetPropertyInfo(IPropertyBag2 *iface, ULONG iProperty, ULONG cProperties,
245 PROPBAG2 *pPropBag, ULONG *pcProperties)
246 {
247 PropertyBag *This = impl_from_IPropertyBag2(iface);
248 FIXME("(%p)->(%u %u %p %p)\n", This, iProperty, cProperties, pPropBag, pcProperties);
249 return E_NOTIMPL;
250 }
251
252 static HRESULT WINAPI PropertyBag2_LoadObject(IPropertyBag2 *iface, LPCOLESTR pstrName, DWORD dwHint,
253 IUnknown *pUnkObject, IErrorLog *pErrLog)
254 {
255 PropertyBag *This = impl_from_IPropertyBag2(iface);
256 FIXME("(%p)->(%s %x %p %p)\n", This, debugstr_w(pstrName), dwHint, pUnkObject, pErrLog);
257 return E_NOTIMPL;
258 }
259
260 static const IPropertyBag2Vtbl PropertyBag2Vtbl = {
261 PropertyBag2_QueryInterface,
262 PropertyBag2_AddRef,
263 PropertyBag2_Release,
264 PropertyBag2_Read,
265 PropertyBag2_Write,
266 PropertyBag2_CountProperties,
267 PropertyBag2_GetPropertyInfo,
268 PropertyBag2_LoadObject
269 };
270
271 static HRESULT fill_props(nsIDOMHTMLElement *nselem, PropertyBag *prop_bag)
272 {
273 nsIDOMHTMLParamElement *nsparam;
274 nsAString name_str, value_str;
275 nsIDOMNodeList *params;
276 PRUint32 length, i;
277 nsIDOMNode *nsnode;
278 nsresult nsres;
279 HRESULT hres = S_OK;
280
281 static const PRUnichar paramW[] = {'p','a','r','a','m',0};
282
283 nsAString_InitDepend(&name_str, paramW);
284 nsres = nsIDOMHTMLElement_GetElementsByTagName(nselem, &name_str, ¶ms);
285 nsAString_Finish(&name_str);
286 if(NS_FAILED(nsres))
287 return E_FAIL;
288
289 nsres = nsIDOMNodeList_GetLength(params, &length);
290 if(NS_FAILED(nsres))
291 return S_OK;
292
293 for(i=0; i < length; i++) {
294 nsres = nsIDOMNodeList_Item(params, i, &nsnode);
295 if(NS_FAILED(nsres)) {
296 hres = E_FAIL;
297 break;
298 }
299
300 nsres = nsIDOMNode_QueryInterface(nsnode, &IID_nsIDOMHTMLParamElement, (void**)&nsparam);
301 nsIDOMNode_Release(nsnode);
302 if(NS_FAILED(nsres)) {
303 hres = E_FAIL;
304 break;
305 }
306
307 nsAString_Init(&name_str, NULL);
308 nsres = nsIDOMHTMLParamElement_GetName(nsparam, &name_str);
309 if(NS_SUCCEEDED(nsres)) {
310 nsAString_Init(&value_str, NULL);
311 nsres = nsIDOMHTMLParamElement_GetValue(nsparam, &value_str);
312 if(NS_SUCCEEDED(nsres)) {
313 const PRUnichar *name, *value;
314
315 nsAString_GetData(&name_str, &name);
316 nsAString_GetData(&value_str, &value);
317
318 hres = add_prop(prop_bag, name, value);
319 }
320 nsAString_Finish(&value_str);
321 }
322
323 nsAString_Finish(&name_str);
324 nsIDOMHTMLParamElement_Release(nsparam);
325 if(FAILED(hres))
326 break;
327 if(NS_FAILED(nsres)) {
328 hres = E_FAIL;
329 break;
330 }
331 }
332
333 return hres;
334 }
335
336 HRESULT create_param_prop_bag(nsIDOMHTMLElement *nselem, IPropertyBag **ret)
337 {
338 PropertyBag *prop_bag;
339 HRESULT hres;
340
341 prop_bag = heap_alloc(sizeof(*prop_bag));
342 if(!prop_bag)
343 return E_OUTOFMEMORY;
344
345 prop_bag->IPropertyBag_iface.lpVtbl = &PropertyBagVtbl;
346 prop_bag->IPropertyBag2_iface.lpVtbl = &PropertyBag2Vtbl;
347 prop_bag->ref = 1;
348
349 list_init(&prop_bag->props);
350 hres = fill_props(nselem, prop_bag);
351 if(FAILED(hres) || list_empty(&prop_bag->props)) {
352 IPropertyBag_Release(&prop_bag->IPropertyBag_iface);
353 *ret = NULL;
354 return hres;
355 }
356
357 *ret = &prop_bag->IPropertyBag_iface;
358 return S_OK;
359 }
360
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.