msxml3: Implement IXMLDOMCDATASection_substringData.
[wine] / dlls / msxml3 / xmldoc.c
1 /*
2  * XML Document implementation
3  *
4  * Copyright 2007 James Hawkins
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 #define COBJMACROS
22
23 #include "config.h"
24
25 #include <stdarg.h>
26 #include "windef.h"
27 #include "winbase.h"
28 #include "winuser.h"
29 #include "ole2.h"
30 #include "msxml2.h"
31 #include "wininet.h"
32 #include "winreg.h"
33 #include "shlwapi.h"
34 #include "ocidl.h"
35
36 #include "wine/debug.h"
37
38 #include "msxml_private.h"
39
40 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
41
42 #ifdef HAVE_LIBXML2
43
44 /* FIXME: IXMLDocument needs to implement
45  *   - IXMLError
46  *   - IPersistMoniker
47  */
48
49 typedef struct _xmldoc
50 {
51     const IXMLDocumentVtbl       *lpVtbl;
52     const IPersistStreamInitVtbl *lpvtblIPersistStreamInit;
53     LONG ref;
54     HRESULT error;
55
56     /* IXMLDocument */
57     IXMLElement *root;
58     xmlDocPtr xmldoc;
59
60     /* IPersistStream */
61     IStream *stream;
62 } xmldoc;
63
64 static inline xmldoc *impl_from_IXMLDocument(IXMLDocument *iface)
65 {
66     return (xmldoc *)((char*)iface - FIELD_OFFSET(xmldoc, lpVtbl));
67 }
68
69 static inline xmldoc *impl_from_IPersistStreamInit(IPersistStreamInit *iface)
70 {
71     return (xmldoc *)((char*)iface - FIELD_OFFSET(xmldoc, lpvtblIPersistStreamInit));
72 }
73
74 static HRESULT WINAPI xmldoc_QueryInterface(IXMLDocument *iface, REFIID riid, void** ppvObject)
75 {
76     xmldoc *This = impl_from_IXMLDocument(iface);
77
78     TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
79
80     if (IsEqualGUID(riid, &IID_IUnknown) ||
81         IsEqualGUID(riid, &IID_IXMLDocument) ||
82         IsEqualGUID(riid, &IID_IXMLDOMDocument))
83     {
84         *ppvObject = iface;
85     }
86     else if (IsEqualGUID(&IID_IPersistStreamInit, riid) ||
87              IsEqualGUID(&IID_IPersistStream, riid))
88     {
89         *ppvObject = (IPersistStreamInit *)&(This->lpvtblIPersistStreamInit);
90     }
91     else
92     {
93         FIXME("interface %s not implemented\n", debugstr_guid(riid));
94         return E_NOINTERFACE;
95     }
96
97     IXMLDocument_AddRef(iface);
98
99     return S_OK;
100 }
101
102 static ULONG WINAPI xmldoc_AddRef(IXMLDocument *iface)
103 {
104     xmldoc *This = impl_from_IXMLDocument(iface);
105     TRACE("%p\n", This);
106     return InterlockedIncrement(&This->ref);
107 }
108
109 static ULONG WINAPI xmldoc_Release(IXMLDocument *iface)
110 {
111     xmldoc *This = impl_from_IXMLDocument(iface);
112     LONG ref;
113
114     TRACE("%p\n", This);
115
116     ref = InterlockedDecrement(&This->ref);
117     if (ref == 0)
118     {
119         xmlFreeDoc(This->xmldoc);
120         if (This->stream) IStream_Release(This->stream);
121         HeapFree(GetProcessHeap(), 0, This);
122     }
123
124     return ref;
125 }
126
127 static HRESULT WINAPI xmldoc_GetTypeInfoCount(IXMLDocument *iface, UINT* pctinfo)
128 {
129     xmldoc *This = impl_from_IXMLDocument(iface);
130
131     TRACE("(%p)->(%p)\n", This, pctinfo);
132
133     *pctinfo = 1;
134
135     return S_OK;
136 }
137
138 static HRESULT WINAPI xmldoc_GetTypeInfo(IXMLDocument *iface, UINT iTInfo,
139                                          LCID lcid, ITypeInfo** ppTInfo)
140 {
141     xmldoc *This = impl_from_IXMLDocument(iface);
142     HRESULT hr;
143
144     TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
145
146     hr = get_typeinfo(IXMLDocument_tid, ppTInfo);
147
148     return hr;
149 }
150
151 static HRESULT WINAPI xmldoc_GetIDsOfNames(IXMLDocument *iface, REFIID riid,
152                                            LPOLESTR* rgszNames, UINT cNames,
153                                            LCID lcid, DISPID* rgDispId)
154 {
155     xmldoc *This = impl_from_IXMLDocument(iface);
156     ITypeInfo *typeinfo;
157     HRESULT hr;
158
159     TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
160           lcid, rgDispId);
161
162     if(!rgszNames || cNames == 0 || !rgDispId)
163         return E_INVALIDARG;
164
165     hr = get_typeinfo(IXMLDocument_tid, &typeinfo);
166     if(SUCCEEDED(hr))
167     {
168         hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
169         ITypeInfo_Release(typeinfo);
170     }
171
172     return hr;
173 }
174
175 static HRESULT WINAPI xmldoc_Invoke(IXMLDocument *iface, DISPID dispIdMember,
176                                     REFIID riid, LCID lcid, WORD wFlags,
177                                     DISPPARAMS* pDispParams, VARIANT* pVarResult,
178                                     EXCEPINFO* pExcepInfo, UINT* puArgErr)
179 {
180     xmldoc *This = impl_from_IXMLDocument(iface);
181     ITypeInfo *typeinfo;
182     HRESULT hr;
183
184     TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
185           lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
186
187     hr = get_typeinfo(IXMLDocument_tid, &typeinfo);
188     if(SUCCEEDED(hr))
189     {
190         hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
191                 pVarResult, pExcepInfo, puArgErr);
192         ITypeInfo_Release(typeinfo);
193     }
194
195     return hr;
196 }
197
198 static HRESULT WINAPI xmldoc_get_root(IXMLDocument *iface, IXMLElement **p)
199 {
200     xmldoc *This = impl_from_IXMLDocument(iface);
201
202     TRACE("(%p, %p)\n", iface, p);
203
204     if (!p)
205         return E_INVALIDARG;
206
207     *p = This->root;
208     if (!*p)
209         return E_FAIL;
210
211     return S_OK;
212 }
213
214 static HRESULT WINAPI xmldoc_get_fileSize(IXMLDocument *iface, BSTR *p)
215 {
216     FIXME("(%p, %p): stub\n", iface, p);
217     return E_NOTIMPL;
218 }
219
220 static HRESULT WINAPI xmldoc_put_fileModifiedDate(IXMLDocument *iface, BSTR *p)
221 {
222     FIXME("(%p, %p): stub\n", iface, p);
223     return E_NOTIMPL;
224 }
225
226 static HRESULT WINAPI xmldoc_get_fileUpdatedDate(IXMLDocument *iface, BSTR *p)
227 {
228     FIXME("(%p, %p): stub\n", iface, p);
229     return E_NOTIMPL;
230 }
231
232 static HRESULT WINAPI xmldoc_get_URL(IXMLDocument *iface, BSTR *p)
233 {
234     FIXME("(%p, %p): stub\n", iface, p);
235     return E_NOTIMPL;
236 }
237
238 typedef struct {
239     const struct IBindStatusCallbackVtbl *lpVtbl;
240 } bsc;
241
242 static HRESULT WINAPI bsc_QueryInterface(
243     IBindStatusCallback *iface,
244     REFIID riid,
245     LPVOID *ppobj )
246 {
247     if (IsEqualGUID(riid, &IID_IUnknown) ||
248         IsEqualGUID(riid, &IID_IBindStatusCallback))
249     {
250         IBindStatusCallback_AddRef( iface );
251         *ppobj = iface;
252         return S_OK;
253     }
254
255     FIXME("interface %s not implemented\n", debugstr_guid(riid));
256     return E_NOINTERFACE;
257 }
258
259 static ULONG WINAPI bsc_AddRef(
260     IBindStatusCallback *iface )
261 {
262     return 2;
263 }
264
265 static ULONG WINAPI bsc_Release(
266     IBindStatusCallback *iface )
267 {
268     return 1;
269 }
270
271 static HRESULT WINAPI bsc_OnStartBinding(
272         IBindStatusCallback* iface,
273         DWORD dwReserved,
274         IBinding* pib)
275 {
276     return S_OK;
277 }
278
279 static HRESULT WINAPI bsc_GetPriority(
280         IBindStatusCallback* iface,
281         LONG* pnPriority)
282 {
283     return S_OK;
284 }
285
286 static HRESULT WINAPI bsc_OnLowResource(
287         IBindStatusCallback* iface,
288         DWORD reserved)
289 {
290     return S_OK;
291 }
292
293 static HRESULT WINAPI bsc_OnProgress(
294         IBindStatusCallback* iface,
295         ULONG ulProgress,
296         ULONG ulProgressMax,
297         ULONG ulStatusCode,
298         LPCWSTR szStatusText)
299 {
300     return S_OK;
301 }
302
303 static HRESULT WINAPI bsc_OnStopBinding(
304         IBindStatusCallback* iface,
305         HRESULT hresult,
306         LPCWSTR szError)
307 {
308     return S_OK;
309 }
310
311 static HRESULT WINAPI bsc_GetBindInfo(
312         IBindStatusCallback* iface,
313         DWORD* grfBINDF,
314         BINDINFO* pbindinfo)
315 {
316     *grfBINDF = BINDF_RESYNCHRONIZE;
317
318     return S_OK;
319 }
320
321 static HRESULT WINAPI bsc_OnDataAvailable(
322         IBindStatusCallback* iface,
323         DWORD grfBSCF,
324         DWORD dwSize,
325         FORMATETC* pformatetc,
326         STGMEDIUM* pstgmed)
327 {
328     return S_OK;
329 }
330
331 static HRESULT WINAPI bsc_OnObjectAvailable(
332         IBindStatusCallback* iface,
333         REFIID riid,
334         IUnknown* punk)
335 {
336     return S_OK;
337 }
338
339 static const struct IBindStatusCallbackVtbl bsc_vtbl =
340 {
341     bsc_QueryInterface,
342     bsc_AddRef,
343     bsc_Release,
344     bsc_OnStartBinding,
345     bsc_GetPriority,
346     bsc_OnLowResource,
347     bsc_OnProgress,
348     bsc_OnStopBinding,
349     bsc_GetBindInfo,
350     bsc_OnDataAvailable,
351     bsc_OnObjectAvailable
352 };
353
354 static bsc xmldoc_bsc = { &bsc_vtbl };
355
356 static HRESULT WINAPI xmldoc_put_URL(IXMLDocument *iface, BSTR p)
357 {
358     WCHAR url[INTERNET_MAX_URL_LENGTH];
359     IStream *stream;
360     IBindCtx *bctx;
361     IMoniker *moniker;
362     IPersistStreamInit *persist;
363     HRESULT hr;
364
365     TRACE("(%p, %s)\n", iface, debugstr_w(p));
366
367     if (!p)
368         return E_INVALIDARG;
369
370     if (!PathIsURLW(p))
371     {
372         WCHAR fullpath[MAX_PATH];
373         DWORD needed = sizeof(url) / sizeof(WCHAR);
374
375         if (!PathSearchAndQualifyW(p, fullpath, sizeof(fullpath) / sizeof(WCHAR)))
376         {
377             ERR("can't find path\n");
378             return E_FAIL;
379         }
380
381         if (FAILED(UrlCreateFromPathW(fullpath, url, &needed, 0)))
382         {
383             ERR("can't create url from path\n");
384             return E_FAIL;
385         }
386
387         p = url;
388     }
389
390     hr = CreateURLMoniker(NULL, p, &moniker);
391     if (FAILED(hr))
392         return hr;
393
394     CreateAsyncBindCtx(0, (IBindStatusCallback *)&xmldoc_bsc, 0, &bctx);
395
396     hr = IMoniker_BindToStorage(moniker, bctx, NULL, &IID_IStream, (LPVOID *)&stream);
397     IBindCtx_Release(bctx);
398     IMoniker_Release(moniker);
399     if (FAILED(hr))
400         return hr;
401
402     hr = IXMLDocument_QueryInterface(iface, &IID_IPersistStreamInit, (LPVOID *)&persist);
403     if (FAILED(hr))
404     {
405         IStream_Release(stream);
406         return hr;
407     }
408
409     hr = IPersistStreamInit_Load(persist, stream);
410     IPersistStreamInit_Release(persist);
411     IStream_Release(stream);
412
413     return hr;
414 }
415
416 static HRESULT WINAPI xmldoc_get_mimeType(IXMLDocument *iface, BSTR *p)
417 {
418     FIXME("(%p, %p): stub\n", iface, p);
419     return E_NOTIMPL;
420 }
421
422 static HRESULT WINAPI xmldoc_get_readyState(IXMLDocument *iface, long *p)
423 {
424     FIXME("(%p, %p): stub\n", iface, p);
425     return E_NOTIMPL;
426 }
427
428 static HRESULT WINAPI xmldoc_get_charset(IXMLDocument *iface, BSTR *p)
429 {
430     FIXME("(%p, %p): stub\n", iface, p);
431     return E_NOTIMPL;
432 }
433
434 static HRESULT WINAPI xmldoc_put_charset(IXMLDocument *iface, BSTR p)
435 {
436     FIXME("(%p, %p): stub\n", iface, p);
437     return E_NOTIMPL;
438 }
439
440 static HRESULT WINAPI xmldoc_get_version(IXMLDocument *iface, BSTR *p)
441 {
442     FIXME("(%p, %p): stub\n", iface, p);
443     return E_NOTIMPL;
444 }
445
446 static HRESULT WINAPI xmldoc_get_doctype(IXMLDocument *iface, BSTR *p)
447 {
448     FIXME("(%p, %p): stub\n", iface, p);
449     return E_NOTIMPL;
450 }
451
452 static HRESULT WINAPI xmldoc_get_dtdURl(IXMLDocument *iface, BSTR *p)
453 {
454     FIXME("(%p, %p): stub\n", iface, p);
455     return E_NOTIMPL;
456 }
457
458 static xmlElementType type_msxml_to_libxml(long type)
459 {
460     switch (type)
461     {
462         case XMLELEMTYPE_ELEMENT:
463             return XML_ELEMENT_NODE;
464         case XMLELEMTYPE_TEXT:
465             return XML_TEXT_NODE;
466         case XMLELEMTYPE_COMMENT:
467             return XML_COMMENT_NODE;
468         case XMLELEMTYPE_DOCUMENT:
469             return XML_DOCUMENT_NODE;
470         case XMLELEMTYPE_DTD:
471             return XML_DTD_NODE;
472         case XMLELEMTYPE_PI:
473             return XML_PI_NODE;
474         default:
475             break;
476     }
477
478     return -1; /* FIXME: what is OTHER in msxml? */
479 }
480
481 static HRESULT WINAPI xmldoc_createElement(IXMLDocument *iface, VARIANT vType,
482                                            VARIANT var1, IXMLElement **ppElem)
483 {
484     xmlNodePtr node;
485     static const xmlChar empty[] = "\0";
486
487     TRACE("(%p, %p)\n", iface, ppElem);
488
489     if (!ppElem)
490         return E_INVALIDARG;
491
492     *ppElem = NULL;
493
494     if (V_VT(&vType) != VT_I4)
495         return E_INVALIDARG;
496
497     if(type_msxml_to_libxml(V_I4(&vType)) == -1)
498         return E_NOTIMPL;
499
500     node = xmlNewNode(NULL, empty);
501     node->type = type_msxml_to_libxml(V_I4(&vType));
502
503     /* FIXME: create xmlNodePtr based on vType and var1 */
504     return XMLElement_create((IUnknown *)iface, node, (LPVOID *)ppElem);
505 }
506
507 static const struct IXMLDocumentVtbl xmldoc_vtbl =
508 {
509     xmldoc_QueryInterface,
510     xmldoc_AddRef,
511     xmldoc_Release,
512     xmldoc_GetTypeInfoCount,
513     xmldoc_GetTypeInfo,
514     xmldoc_GetIDsOfNames,
515     xmldoc_Invoke,
516     xmldoc_get_root,
517     xmldoc_get_fileSize,
518     xmldoc_put_fileModifiedDate,
519     xmldoc_get_fileUpdatedDate,
520     xmldoc_get_URL,
521     xmldoc_put_URL,
522     xmldoc_get_mimeType,
523     xmldoc_get_readyState,
524     xmldoc_get_charset,
525     xmldoc_put_charset,
526     xmldoc_get_version,
527     xmldoc_get_doctype,
528     xmldoc_get_dtdURl,
529     xmldoc_createElement
530 };
531
532 /************************************************************************
533  * xmldoc implementation of IPersistStreamInit.
534  */
535 static HRESULT WINAPI xmldoc_IPersistStreamInit_QueryInterface(
536     IPersistStreamInit *iface, REFIID riid, LPVOID *ppvObj)
537 {
538     xmldoc *this = impl_from_IPersistStreamInit(iface);
539     return IXMLDocument_QueryInterface((IXMLDocument *)this, riid, ppvObj);
540 }
541
542 static ULONG WINAPI xmldoc_IPersistStreamInit_AddRef(
543     IPersistStreamInit *iface)
544 {
545     xmldoc *this = impl_from_IPersistStreamInit(iface);
546     return IXMLDocument_AddRef((IXMLDocument *)this);
547 }
548
549 static ULONG WINAPI xmldoc_IPersistStreamInit_Release(
550     IPersistStreamInit *iface)
551 {
552     xmldoc *this = impl_from_IPersistStreamInit(iface);
553     return IXMLDocument_Release((IXMLDocument *)this);
554 }
555
556 static HRESULT WINAPI xmldoc_IPersistStreamInit_GetClassID(
557     IPersistStreamInit *iface, CLSID *classid)
558 {
559     FIXME("(%p,%p): stub!\n", iface, classid);
560     return E_NOTIMPL;
561 }
562
563 static HRESULT WINAPI xmldoc_IPersistStreamInit_IsDirty(
564     IPersistStreamInit *iface)
565 {
566     FIXME("(%p): stub!\n", iface);
567     return E_NOTIMPL;
568 }
569
570 xmlDocPtr parse_xml(char *ptr, int len)
571 {
572 #ifdef HAVE_XMLREADMEMORY
573     return xmlReadMemory(ptr, len, NULL, NULL,
574                          XML_PARSE_NOERROR | XML_PARSE_NOWARNING | XML_PARSE_NOBLANKS);
575 #else
576     return xmlParseMemory(ptr, len);
577 #endif
578 }
579
580 static HRESULT WINAPI xmldoc_IPersistStreamInit_Load(
581     IPersistStreamInit *iface, LPSTREAM pStm)
582 {
583     xmldoc *This = impl_from_IPersistStreamInit(iface);
584     xmlNodePtr xmlnode;
585     HRESULT hr;
586     HGLOBAL hglobal;
587     DWORD read, written, len;
588     BYTE buf[4096];
589     char *ptr;
590
591     TRACE("(%p, %p)\n", iface, pStm);
592
593     if (!pStm)
594         return E_INVALIDARG;
595
596     hr = CreateStreamOnHGlobal(NULL, TRUE, &This->stream);
597     if (FAILED(hr))
598         return hr;
599
600     do
601     {
602         IStream_Read(pStm, buf, sizeof(buf), &read);
603         hr = IStream_Write(This->stream, buf, read, &written);
604     } while(SUCCEEDED(hr) && written != 0 && read != 0);
605
606     if (FAILED(hr))
607     {
608         ERR("Failed to copy stream\n");
609         return hr;
610     }
611
612     hr = GetHGlobalFromStream(This->stream, &hglobal);
613     if (FAILED(hr))
614         return hr;
615
616     len = GlobalSize(hglobal);
617     ptr = GlobalLock(hglobal);
618     if (len != 0)
619         This->xmldoc = parse_xml(ptr, len);
620     GlobalUnlock(hglobal);
621
622     if (!This->xmldoc)
623     {
624         ERR("Failed to parse xml\n");
625         return E_FAIL;
626     }
627
628     xmlnode = xmlDocGetRootElement(This->xmldoc);
629     return XMLElement_create((IUnknown *)This, xmlnode, (LPVOID *)&This->root);
630 }
631
632 static HRESULT WINAPI xmldoc_IPersistStreamInit_Save(
633     IPersistStreamInit *iface, LPSTREAM pStm, BOOL fClearDirty)
634 {
635     FIXME("(%p, %p, %d): stub!\n", iface, pStm, fClearDirty);
636     return E_NOTIMPL;
637 }
638
639 static HRESULT WINAPI xmldoc_IPersistStreamInit_GetSizeMax(
640     IPersistStreamInit *iface, ULARGE_INTEGER *pcbSize)
641 {
642     FIXME("(%p, %p): stub!\n", iface, pcbSize);
643     return E_NOTIMPL;
644 }
645
646 static HRESULT WINAPI xmldoc_IPersistStreamInit_InitNew(
647     IPersistStreamInit *iface)
648 {
649     FIXME("(%p): stub!\n", iface);
650     return E_NOTIMPL;
651 }
652
653 static const IPersistStreamInitVtbl xmldoc_IPersistStreamInit_VTable =
654 {
655   xmldoc_IPersistStreamInit_QueryInterface,
656   xmldoc_IPersistStreamInit_AddRef,
657   xmldoc_IPersistStreamInit_Release,
658   xmldoc_IPersistStreamInit_GetClassID,
659   xmldoc_IPersistStreamInit_IsDirty,
660   xmldoc_IPersistStreamInit_Load,
661   xmldoc_IPersistStreamInit_Save,
662   xmldoc_IPersistStreamInit_GetSizeMax,
663   xmldoc_IPersistStreamInit_InitNew
664 };
665
666 HRESULT XMLDocument_create(IUnknown *pUnkOuter, LPVOID *ppObj)
667 {
668     xmldoc *doc;
669
670     TRACE("(%p,%p)\n", pUnkOuter, ppObj);
671
672     doc = HeapAlloc(GetProcessHeap(), 0, sizeof (*doc));
673     if(!doc)
674         return E_OUTOFMEMORY;
675
676     doc->lpVtbl = &xmldoc_vtbl;
677     doc->lpvtblIPersistStreamInit = &xmldoc_IPersistStreamInit_VTable;
678     doc->ref = 1;
679     doc->error = S_OK;
680     doc->root = NULL;
681     doc->xmldoc = NULL;
682     doc->stream = NULL;
683
684     *ppObj = &doc->lpVtbl;
685
686     TRACE("returning iface %p\n", *ppObj);
687     return S_OK;
688 }
689
690 #else
691
692 HRESULT XMLDocument_create(IUnknown *pUnkOuter, LPVOID *ppObj)
693 {
694     MESSAGE("This program tried to use an XMLDocument object, but\n"
695             "libxml2 support was not present at compile time.\n");
696     return E_NOTIMPL;
697 }
698
699 #endif