2 * XML Document implementation
4 * Copyright 2007 James Hawkins
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
24 #include <libxml/parser.h>
25 #include <libxml/xmlerror.h>
37 #include "wine/debug.h"
39 #include "msxml_private.h"
41 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
43 /* FIXME: IXMLDocument needs to implement
48 typedef struct _xmldoc
50 IXMLDocument IXMLDocument_iface
;
51 IPersistStreamInit IPersistStreamInit_iface
;
62 static inline xmldoc
*impl_from_IXMLDocument(IXMLDocument
*iface
)
64 return CONTAINING_RECORD(iface
, xmldoc
, IXMLDocument_iface
);
67 static inline xmldoc
*impl_from_IPersistStreamInit(IPersistStreamInit
*iface
)
69 return CONTAINING_RECORD(iface
, xmldoc
, IPersistStreamInit_iface
);
72 static HRESULT WINAPI
xmldoc_QueryInterface(IXMLDocument
*iface
, REFIID riid
, void** ppvObject
)
74 xmldoc
*This
= impl_from_IXMLDocument(iface
);
76 TRACE("%p %s %p\n", This
, debugstr_guid(riid
), ppvObject
);
78 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
79 IsEqualGUID(riid
, &IID_IDispatch
) ||
80 IsEqualGUID(riid
, &IID_IXMLDocument
))
84 else if (IsEqualGUID(&IID_IPersistStreamInit
, riid
) ||
85 IsEqualGUID(&IID_IPersistStream
, riid
))
87 *ppvObject
= &This
->IPersistStreamInit_iface
;
91 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
96 IXMLDocument_AddRef(iface
);
101 static ULONG WINAPI
xmldoc_AddRef(IXMLDocument
*iface
)
103 xmldoc
*This
= impl_from_IXMLDocument(iface
);
104 ULONG ref
= InterlockedIncrement(&This
->ref
);
105 TRACE("%p, refcount %ld.\n", iface
, ref
);
109 static ULONG WINAPI
xmldoc_Release(IXMLDocument
*iface
)
111 xmldoc
*This
= impl_from_IXMLDocument(iface
);
112 LONG ref
= InterlockedDecrement(&This
->ref
);
114 TRACE("%p, refcount %ld.\n", iface
, ref
);
118 xmlFreeDoc(This
->xmldoc
);
119 if (This
->stream
) IStream_Release(This
->stream
);
126 static HRESULT WINAPI
xmldoc_GetTypeInfoCount(IXMLDocument
*iface
, UINT
* pctinfo
)
128 xmldoc
*This
= impl_from_IXMLDocument(iface
);
130 TRACE("(%p)->(%p)\n", This
, pctinfo
);
137 static HRESULT WINAPI
xmldoc_GetTypeInfo(IXMLDocument
*iface
, UINT iTInfo
,
138 LCID lcid
, ITypeInfo
** ppTInfo
)
140 TRACE("%p, %u, %lx, %p.\n", iface
, iTInfo
, lcid
, ppTInfo
);
142 return get_typeinfo(IXMLDocument_tid
, ppTInfo
);
145 static HRESULT WINAPI
xmldoc_GetIDsOfNames(IXMLDocument
*iface
, REFIID riid
,
146 LPOLESTR
* rgszNames
, UINT cNames
,
147 LCID lcid
, DISPID
* rgDispId
)
152 TRACE("%p, %s, %p, %u, %lx, %p.\n", iface
, debugstr_guid(riid
), rgszNames
, cNames
,
155 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
158 hr
= get_typeinfo(IXMLDocument_tid
, &typeinfo
);
161 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
162 ITypeInfo_Release(typeinfo
);
168 static HRESULT WINAPI
xmldoc_Invoke(IXMLDocument
*iface
, DISPID dispIdMember
,
169 REFIID riid
, LCID lcid
, WORD wFlags
,
170 DISPPARAMS
* pDispParams
, VARIANT
* pVarResult
,
171 EXCEPINFO
* pExcepInfo
, UINT
* puArgErr
)
176 TRACE("%p, %ld, %s, %lx, %d, %p, %p, %p, %p.\n", iface
, dispIdMember
, debugstr_guid(riid
),
177 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
179 hr
= get_typeinfo(IXMLDocument_tid
, &typeinfo
);
182 hr
= ITypeInfo_Invoke(typeinfo
, iface
, dispIdMember
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
183 ITypeInfo_Release(typeinfo
);
189 static HRESULT WINAPI
xmldoc_get_root(IXMLDocument
*iface
, IXMLElement
**p
)
191 xmldoc
*This
= impl_from_IXMLDocument(iface
);
194 TRACE("(%p, %p)\n", iface
, p
);
201 if (!(root
= xmlDocGetRootElement(This
->xmldoc
)))
204 return XMLElement_create(root
, (LPVOID
*)p
, FALSE
);
207 static HRESULT WINAPI
xmldoc_get_fileSize(IXMLDocument
*iface
, BSTR
*p
)
209 FIXME("(%p, %p): stub\n", iface
, p
);
213 static HRESULT WINAPI
xmldoc_put_fileModifiedDate(IXMLDocument
*iface
, BSTR
*p
)
215 FIXME("(%p, %p): stub\n", iface
, p
);
219 static HRESULT WINAPI
xmldoc_get_fileUpdatedDate(IXMLDocument
*iface
, BSTR
*p
)
221 FIXME("(%p, %p): stub\n", iface
, p
);
225 static HRESULT WINAPI
xmldoc_get_URL(IXMLDocument
*iface
, BSTR
*p
)
227 FIXME("(%p, %p): stub\n", iface
, p
);
232 IBindStatusCallback IBindStatusCallback_iface
;
235 static HRESULT WINAPI
bsc_QueryInterface(
236 IBindStatusCallback
*iface
,
240 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
241 IsEqualGUID(riid
, &IID_IBindStatusCallback
))
243 IBindStatusCallback_AddRef( iface
);
248 TRACE("interface %s not implemented\n", debugstr_guid(riid
));
249 return E_NOINTERFACE
;
252 static ULONG WINAPI
bsc_AddRef(
253 IBindStatusCallback
*iface
)
258 static ULONG WINAPI
bsc_Release(
259 IBindStatusCallback
*iface
)
264 static HRESULT WINAPI
bsc_OnStartBinding(
265 IBindStatusCallback
* iface
,
272 static HRESULT WINAPI
bsc_GetPriority(
273 IBindStatusCallback
* iface
,
279 static HRESULT WINAPI
bsc_OnLowResource(
280 IBindStatusCallback
* iface
,
286 static HRESULT WINAPI
bsc_OnProgress(
287 IBindStatusCallback
* iface
,
291 LPCWSTR szStatusText
)
296 static HRESULT WINAPI
bsc_OnStopBinding(
297 IBindStatusCallback
* iface
,
304 static HRESULT WINAPI
bsc_GetBindInfo(
305 IBindStatusCallback
* iface
,
309 *grfBINDF
= BINDF_RESYNCHRONIZE
;
314 static HRESULT WINAPI
bsc_OnDataAvailable(
315 IBindStatusCallback
* iface
,
318 FORMATETC
* pformatetc
,
324 static HRESULT WINAPI
bsc_OnObjectAvailable(
325 IBindStatusCallback
* iface
,
332 static const struct IBindStatusCallbackVtbl bsc_vtbl
=
344 bsc_OnObjectAvailable
347 static bsc xmldoc_bsc
= { { &bsc_vtbl
} };
349 static HRESULT WINAPI
xmldoc_put_URL(IXMLDocument
*iface
, BSTR p
)
351 WCHAR url
[INTERNET_MAX_URL_LENGTH
];
355 IPersistStreamInit
*persist
;
358 TRACE("(%p, %s)\n", iface
, debugstr_w(p
));
365 WCHAR fullpath
[MAX_PATH
];
366 DWORD needed
= ARRAY_SIZE(url
);
368 if (!PathSearchAndQualifyW(p
, fullpath
, ARRAY_SIZE(fullpath
)))
370 ERR("can't find path\n");
374 if (FAILED(UrlCreateFromPathW(fullpath
, url
, &needed
, 0)))
376 ERR("can't create url from path\n");
383 hr
= CreateURLMoniker(NULL
, p
, &moniker
);
387 CreateAsyncBindCtx(0, &xmldoc_bsc
.IBindStatusCallback_iface
, 0, &bctx
);
389 hr
= IMoniker_BindToStorage(moniker
, bctx
, NULL
, &IID_IStream
, (LPVOID
*)&stream
);
390 IBindCtx_Release(bctx
);
391 IMoniker_Release(moniker
);
395 hr
= IXMLDocument_QueryInterface(iface
, &IID_IPersistStreamInit
, (LPVOID
*)&persist
);
398 IStream_Release(stream
);
402 hr
= IPersistStreamInit_Load(persist
, stream
);
403 IPersistStreamInit_Release(persist
);
404 IStream_Release(stream
);
409 static HRESULT WINAPI
xmldoc_get_mimeType(IXMLDocument
*iface
, BSTR
*p
)
411 FIXME("(%p, %p): stub\n", iface
, p
);
415 static HRESULT WINAPI
xmldoc_get_readyState(IXMLDocument
*iface
, LONG
*p
)
417 FIXME("(%p, %p): stub\n", iface
, p
);
421 static HRESULT WINAPI
xmldoc_get_charset(IXMLDocument
*iface
, BSTR
*p
)
423 FIXME("(%p, %p): stub\n", iface
, p
);
427 static HRESULT WINAPI
xmldoc_put_charset(IXMLDocument
*iface
, BSTR p
)
429 FIXME("(%p, %p): stub\n", iface
, p
);
433 static HRESULT WINAPI
xmldoc_get_version(IXMLDocument
*iface
, BSTR
*p
)
435 xmldoc
*This
= impl_from_IXMLDocument(iface
);
437 TRACE("(%p, %p)\n", This
, p
);
439 if (!p
) return E_INVALIDARG
;
440 *p
= bstr_from_xmlChar(This
->xmldoc
->version
);
445 static HRESULT WINAPI
xmldoc_get_doctype(IXMLDocument
*iface
, BSTR
*p
)
447 xmldoc
*This
= impl_from_IXMLDocument(iface
);
450 TRACE("(%p, %p)\n", This
, p
);
452 if (!p
) return E_INVALIDARG
;
454 dtd
= xmlGetIntSubset(This
->xmldoc
);
455 if (!dtd
) return S_FALSE
;
457 *p
= bstr_from_xmlChar(dtd
->name
);
458 CharUpperBuffW(*p
, SysStringLen(*p
));
463 static HRESULT WINAPI
xmldoc_get_dtdURl(IXMLDocument
*iface
, BSTR
*p
)
465 FIXME("(%p, %p): stub\n", iface
, p
);
469 static xmlElementType
type_msxml_to_libxml(LONG type
)
473 case XMLELEMTYPE_ELEMENT
:
474 return XML_ELEMENT_NODE
;
475 case XMLELEMTYPE_TEXT
:
476 return XML_TEXT_NODE
;
477 case XMLELEMTYPE_COMMENT
:
478 return XML_COMMENT_NODE
;
479 case XMLELEMTYPE_DOCUMENT
:
480 return XML_DOCUMENT_NODE
;
481 case XMLELEMTYPE_DTD
:
489 return -1; /* FIXME: what is OTHER in msxml? */
492 static HRESULT WINAPI
xmldoc_createElement(IXMLDocument
*iface
, VARIANT vType
,
493 VARIANT var1
, IXMLElement
**ppElem
)
496 static const xmlChar empty
[] = "\0";
498 TRACE("(%p)->(%s %s %p)\n", iface
, debugstr_variant(&vType
),
499 debugstr_variant(&var1
), ppElem
);
506 if (V_VT(&vType
) != VT_I4
)
509 if(type_msxml_to_libxml(V_I4(&vType
)) == -1)
512 node
= xmlNewNode(NULL
, empty
);
513 node
->type
= type_msxml_to_libxml(V_I4(&vType
));
515 /* FIXME: create xmlNodePtr based on vType and var1 */
516 return XMLElement_create(node
, (LPVOID
*)ppElem
, TRUE
);
519 static const struct IXMLDocumentVtbl xmldoc_vtbl
=
521 xmldoc_QueryInterface
,
524 xmldoc_GetTypeInfoCount
,
526 xmldoc_GetIDsOfNames
,
530 xmldoc_put_fileModifiedDate
,
531 xmldoc_get_fileUpdatedDate
,
535 xmldoc_get_readyState
,
544 /************************************************************************
545 * xmldoc implementation of IPersistStreamInit.
547 static HRESULT WINAPI
xmldoc_IPersistStreamInit_QueryInterface(
548 IPersistStreamInit
*iface
, REFIID riid
, LPVOID
*ppvObj
)
550 xmldoc
*this = impl_from_IPersistStreamInit(iface
);
551 return IXMLDocument_QueryInterface(&this->IXMLDocument_iface
, riid
, ppvObj
);
554 static ULONG WINAPI
xmldoc_IPersistStreamInit_AddRef(
555 IPersistStreamInit
*iface
)
557 xmldoc
*this = impl_from_IPersistStreamInit(iface
);
558 return IXMLDocument_AddRef(&this->IXMLDocument_iface
);
561 static ULONG WINAPI
xmldoc_IPersistStreamInit_Release(
562 IPersistStreamInit
*iface
)
564 xmldoc
*this = impl_from_IPersistStreamInit(iface
);
565 return IXMLDocument_Release(&this->IXMLDocument_iface
);
568 static HRESULT WINAPI
xmldoc_IPersistStreamInit_GetClassID(
569 IPersistStreamInit
*iface
, CLSID
*classid
)
571 xmldoc
*this = impl_from_IPersistStreamInit(iface
);
572 TRACE("(%p,%p)\n", this, classid
);
574 if (!classid
) return E_POINTER
;
576 *classid
= CLSID_XMLDocument
;
580 static HRESULT WINAPI
xmldoc_IPersistStreamInit_IsDirty(
581 IPersistStreamInit
*iface
)
583 FIXME("(%p): stub!\n", iface
);
587 static xmlDocPtr
parse_xml(char *ptr
, int len
)
589 return xmlReadMemory(ptr
, len
, NULL
, NULL
,
590 XML_PARSE_NOERROR
| XML_PARSE_NOWARNING
| XML_PARSE_NOBLANKS
);
593 static HRESULT WINAPI
xmldoc_IPersistStreamInit_Load(
594 IPersistStreamInit
*iface
, LPSTREAM pStm
)
596 xmldoc
*This
= impl_from_IPersistStreamInit(iface
);
599 DWORD read
, written
, len
;
603 TRACE("(%p, %p)\n", iface
, pStm
);
608 /* release previously allocated stream */
609 if (This
->stream
) IStream_Release(This
->stream
);
610 hr
= CreateStreamOnHGlobal(NULL
, TRUE
, &This
->stream
);
616 IStream_Read(pStm
, buf
, sizeof(buf
), &read
);
617 hr
= IStream_Write(This
->stream
, buf
, read
, &written
);
618 } while(SUCCEEDED(hr
) && written
!= 0 && read
!= 0);
622 ERR("Failed to copy stream\n");
626 hr
= GetHGlobalFromStream(This
->stream
, &hglobal
);
630 len
= GlobalSize(hglobal
);
631 ptr
= GlobalLock(hglobal
);
634 xmlFreeDoc(This
->xmldoc
);
635 This
->xmldoc
= parse_xml(ptr
, len
);
637 GlobalUnlock(hglobal
);
641 ERR("Failed to parse xml\n");
648 static HRESULT WINAPI
xmldoc_IPersistStreamInit_Save(
649 IPersistStreamInit
*iface
, LPSTREAM pStm
, BOOL fClearDirty
)
651 FIXME("(%p, %p, %d): stub!\n", iface
, pStm
, fClearDirty
);
655 static HRESULT WINAPI
xmldoc_IPersistStreamInit_GetSizeMax(
656 IPersistStreamInit
*iface
, ULARGE_INTEGER
*pcbSize
)
658 xmldoc
*This
= impl_from_IPersistStreamInit(iface
);
659 TRACE("(%p, %p)\n", This
, pcbSize
);
663 static HRESULT WINAPI
xmldoc_IPersistStreamInit_InitNew(
664 IPersistStreamInit
*iface
)
666 xmldoc
*This
= impl_from_IPersistStreamInit(iface
);
667 TRACE("(%p)\n", This
);
671 static const IPersistStreamInitVtbl xmldoc_IPersistStreamInit_VTable
=
673 xmldoc_IPersistStreamInit_QueryInterface
,
674 xmldoc_IPersistStreamInit_AddRef
,
675 xmldoc_IPersistStreamInit_Release
,
676 xmldoc_IPersistStreamInit_GetClassID
,
677 xmldoc_IPersistStreamInit_IsDirty
,
678 xmldoc_IPersistStreamInit_Load
,
679 xmldoc_IPersistStreamInit_Save
,
680 xmldoc_IPersistStreamInit_GetSizeMax
,
681 xmldoc_IPersistStreamInit_InitNew
684 HRESULT
XMLDocument_create(LPVOID
*ppObj
)
688 TRACE("(%p)\n", ppObj
);
690 doc
= heap_alloc(sizeof (*doc
));
692 return E_OUTOFMEMORY
;
694 doc
->IXMLDocument_iface
.lpVtbl
= &xmldoc_vtbl
;
695 doc
->IPersistStreamInit_iface
.lpVtbl
= &xmldoc_IPersistStreamInit_VTable
;
701 *ppObj
= &doc
->IXMLDocument_iface
;
703 TRACE("returning iface %p\n", *ppObj
);