4 * Copyright 2005 Mike McCormack
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
34 #include "msxml_private.h"
36 #include "wine/debug.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
42 static inline xmlnode
*impl_from_InternalUnknown( IUnknown
*iface
)
44 return (xmlnode
*)((char*)iface
- FIELD_OFFSET(xmlnode
, lpInternalUnkVtbl
));
47 xmlNodePtr
xmlNodePtr_from_domnode( IXMLDOMNode
*iface
, xmlElementType type
)
53 This
= impl_from_IXMLDOMNode( iface
);
56 if ( type
&& This
->node
->type
!= type
)
61 void attach_xmlnode( IXMLDOMNode
*node
, xmlNodePtr xml
)
63 xmlnode
*This
= impl_from_IXMLDOMNode( node
);
66 xmldoc_release(This
->node
->doc
);
70 xmldoc_add_ref(This
->node
->doc
);
75 static HRESULT WINAPI
xmlnode_QueryInterface(
80 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
81 TRACE("%p %s %p\n", This
, debugstr_guid(riid
), ppvObject
);
83 return IUnknown_QueryInterface(This
->pUnkOuter
, riid
, ppvObject
);
86 static ULONG WINAPI
xmlnode_AddRef(
89 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
90 return IUnknown_AddRef(This
->pUnkOuter
);
93 static ULONG WINAPI
xmlnode_Release(
96 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
97 return IUnknown_Release(This
->pUnkOuter
);
100 static HRESULT WINAPI
xmlnode_GetTypeInfoCount(
108 static HRESULT WINAPI
xmlnode_GetTypeInfo(
112 ITypeInfo
** ppTInfo
)
118 static HRESULT WINAPI
xmlnode_GetIDsOfNames(
130 static HRESULT WINAPI
xmlnode_Invoke(
136 DISPPARAMS
* pDispParams
,
138 EXCEPINFO
* pExcepInfo
,
145 static HRESULT WINAPI
xmlnode_get_nodeName(
149 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
152 TRACE("%p\n", This
);
160 switch( This
->node
->type
)
162 case XML_CDATA_SECTION_NODE
:
163 str
= (const xmlChar
*) "#cdata-section";
165 case XML_COMMENT_NODE
:
166 str
= (const xmlChar
*) "#comment";
168 case XML_DOCUMENT_FRAG_NODE
:
169 str
= (const xmlChar
*) "#document-fragment";
172 str
= (const xmlChar
*) "#text";
174 case XML_DOCUMENT_NODE
:
175 str
= (const xmlChar
*) "#document";
177 case XML_ATTRIBUTE_NODE
:
178 case XML_ELEMENT_NODE
:
179 str
= This
->node
->name
;
182 FIXME("nodeName not mapped correctly (%d)\n", This
->node
->type
);
183 str
= This
->node
->name
;
187 *name
= bstr_from_xmlChar( str
);
194 BSTR
bstr_from_xmlChar( const xmlChar
*buf
)
203 len
= MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
) buf
, -1, NULL
, 0 );
204 str
= (LPWSTR
) HeapAlloc( GetProcessHeap(), 0, len
* sizeof (WCHAR
) );
207 MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
) buf
, -1, str
, len
);
208 bstr
= SysAllocString( str
);
209 HeapFree( GetProcessHeap(), 0, str
);
213 static HRESULT WINAPI
xmlnode_get_nodeValue(
217 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
220 TRACE("%p %p\n", This
, value
);
225 V_BSTR(value
) = NULL
;
226 V_VT(value
) = VT_NULL
;
228 switch ( This
->node
->type
)
230 case XML_ATTRIBUTE_NODE
:
232 xmlChar
*content
= xmlNodeGetContent(This
->node
);
233 V_VT(value
) = VT_BSTR
;
234 V_BSTR(value
) = bstr_from_xmlChar( content
);
240 V_VT(value
) = VT_BSTR
;
241 V_BSTR(value
) = bstr_from_xmlChar( This
->node
->content
);
244 case XML_ELEMENT_NODE
:
245 case XML_DOCUMENT_NODE
:
246 /* these seem to return NULL */
250 FIXME("node %p type %d\n", This
, This
->node
->type
);
253 TRACE("%p returned %s\n", This
, debugstr_w( V_BSTR(value
) ) );
258 static HRESULT WINAPI
xmlnode_put_nodeValue(
266 static HRESULT WINAPI
xmlnode_get_nodeType(
270 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
272 TRACE("%p %p\n", This
, type
);
274 assert( NODE_ELEMENT
== XML_ELEMENT_NODE
);
275 assert( NODE_NOTATION
== XML_NOTATION_NODE
);
277 *type
= This
->node
->type
;
282 static HRESULT
get_node(
288 TRACE("%p->%s %p\n", This
, name
, node
);
292 *out
= create_node( node
);
298 static HRESULT WINAPI
xmlnode_get_parentNode(
300 IXMLDOMNode
** parent
)
302 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
303 return get_node( This
, "parent", This
->node
->parent
, parent
);
306 static HRESULT WINAPI
xmlnode_get_childNodes(
308 IXMLDOMNodeList
** childList
)
310 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
312 TRACE("%p %p\n", This
, childList
);
317 *childList
= create_children_nodelist(This
->node
);
318 if (*childList
== NULL
)
319 return E_OUTOFMEMORY
;
324 static HRESULT WINAPI
xmlnode_get_firstChild(
326 IXMLDOMNode
** firstChild
)
328 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
329 return get_node( This
, "firstChild", This
->node
->children
, firstChild
);
332 static HRESULT WINAPI
xmlnode_get_lastChild(
334 IXMLDOMNode
** lastChild
)
336 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
338 TRACE("%p\n", This
);
343 switch( This
->node
->type
)
345 /* CDATASection, Comment, PI and Text Nodes do not support lastChild */
347 case XML_CDATA_SECTION_NODE
:
349 case XML_COMMENT_NODE
:
353 return get_node( This
, "lastChild", This
->node
->last
, lastChild
);
357 static HRESULT WINAPI
xmlnode_get_previousSibling(
359 IXMLDOMNode
** previousSibling
)
361 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
363 TRACE("%p\n", This
);
365 if (!previousSibling
)
368 switch( This
->node
->type
)
370 /* Attribute, Document and Document Fragment Nodes do not support previousSibling */
371 case XML_DOCUMENT_NODE
:
372 case XML_DOCUMENT_FRAG_NODE
:
373 case XML_ATTRIBUTE_NODE
:
374 *previousSibling
= NULL
;
377 return get_node( This
, "previous", This
->node
->prev
, previousSibling
);
381 static HRESULT WINAPI
xmlnode_get_nextSibling(
383 IXMLDOMNode
** nextSibling
)
385 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
387 TRACE("%p\n", This
);
392 switch( This
->node
->type
)
394 /* Attribute, Document and Document Fragment Nodes do not support nextSibling */
395 case XML_DOCUMENT_NODE
:
396 case XML_DOCUMENT_FRAG_NODE
:
397 case XML_ATTRIBUTE_NODE
:
401 return get_node( This
, "next", This
->node
->next
, nextSibling
);
405 static HRESULT WINAPI
xmlnode_get_attributes(
407 IXMLDOMNamedNodeMap
** attributeMap
)
409 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
415 switch( This
->node
->type
)
417 /* Attribute, CDataSection, Comment, Documents, Documents Fragments,
418 Entity and Text Nodes does not support get_attributes */
419 case XML_ATTRIBUTE_NODE
:
420 case XML_COMMENT_NODE
:
421 case XML_DOCUMENT_NODE
:
422 case XML_DOCUMENT_FRAG_NODE
:
423 case XML_ENTITY_NODE
:
425 *attributeMap
= NULL
;
428 *attributeMap
= create_nodemap( iface
);
433 static HRESULT WINAPI
xmlnode_insertBefore(
435 IXMLDOMNode
* newChild
,
437 IXMLDOMNode
** outNewChild
)
439 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
440 xmlNodePtr before_node
, new_child_node
;
441 IXMLDOMNode
*before
= NULL
, *new;
444 TRACE("(%p)->(%p,var,%p)\n",This
,newChild
,outNewChild
);
449 switch(V_VT(&refChild
))
456 hr
= IUnknown_QueryInterface(V_UNKNOWN(&refChild
), &IID_IXMLDOMNode
, (LPVOID
)&before
);
457 if(FAILED(hr
)) return hr
;
461 hr
= IDispatch_QueryInterface(V_DISPATCH(&refChild
), &IID_IXMLDOMNode
, (LPVOID
)&before
);
462 if(FAILED(hr
)) return hr
;
466 FIXME("refChild var type %x\n", V_VT(&refChild
));
470 IXMLDOMNode_QueryInterface(newChild
, &IID_IXMLDOMNode
, (LPVOID
)&new);
471 new_child_node
= impl_from_IXMLDOMNode(new)->node
;
472 TRACE("new_child_node %p This->node %p\n", new_child_node
, This
->node
);
476 before_node
= impl_from_IXMLDOMNode(before
)->node
;
477 xmlAddPrevSibling(before_node
, new_child_node
);
478 IXMLDOMNode_Release(before
);
482 xmlAddChild(This
->node
, new_child_node
);
485 IXMLDOMNode_Release(new);
486 IXMLDOMNode_AddRef(newChild
);
488 *outNewChild
= newChild
;
494 static HRESULT WINAPI
xmlnode_replaceChild(
496 IXMLDOMNode
* newChild
,
497 IXMLDOMNode
* oldChild
,
498 IXMLDOMNode
** outOldChild
)
504 static HRESULT WINAPI
xmlnode_removeChild(
506 IXMLDOMNode
* childNode
,
507 IXMLDOMNode
** oldChild
)
509 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
510 xmlNode
*ancestor
, *child_node_ptr
;
514 TRACE("%p->(%p, %p)\n", This
, childNode
, oldChild
);
518 if(!childNode
) return E_INVALIDARG
;
520 hr
= IXMLDOMNode_QueryInterface(childNode
, &IID_IXMLDOMNode
, (LPVOID
)&child
);
524 child_node_ptr
= ancestor
= impl_from_IXMLDOMNode(child
)->node
;
525 while(ancestor
->parent
)
527 if(ancestor
->parent
== This
->node
)
529 ancestor
= ancestor
->parent
;
531 if(!ancestor
->parent
)
533 WARN("childNode %p is not a child of %p\n", childNode
, iface
);
534 IXMLDOMNode_Release(child
);
538 xmlUnlinkNode(child_node_ptr
);
540 IXMLDOMNode_Release(child
);
541 IXMLDOMNode_AddRef(childNode
);
542 *oldChild
= childNode
;
546 static HRESULT WINAPI
xmlnode_appendChild(
548 IXMLDOMNode
* newChild
,
549 IXMLDOMNode
** outNewChild
)
551 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
552 IXMLDOMNode
*pAttr
= NULL
;
555 TRACE("(%p)->(%p,%p)\n", This
, newChild
, outNewChild
);
557 /* Cannot Append an Attribute node. */
558 IUnknown_QueryInterface(newChild
, &IID_IXMLDOMNode
, (LPVOID
*)&pAttr
);
561 xmlnode
*ThisNew
= impl_from_IXMLDOMNode( pAttr
);
563 if(ThisNew
->node
->type
== XML_ATTRIBUTE_NODE
)
565 if(outNewChild
) *outNewChild
= NULL
;
567 IUnknown_Release(pAttr
);
572 IUnknown_Release(pAttr
);
576 return IXMLDOMNode_insertBefore(iface
, newChild
, var
, outNewChild
);
579 static HRESULT WINAPI
xmlnode_hasChildNodes(
581 VARIANT_BOOL
* hasChild
)
583 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
589 if (!This
->node
->children
)
591 *hasChild
= VARIANT_FALSE
;
595 *hasChild
= VARIANT_TRUE
;
599 static HRESULT WINAPI
xmlnode_get_ownerDocument(
601 IXMLDOMDocument
** DOMDocument
)
607 static HRESULT WINAPI
xmlnode_cloneNode(
610 IXMLDOMNode
** cloneRoot
)
612 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
613 xmlNodePtr pClone
= NULL
;
614 IXMLDOMNode
*pNode
= NULL
;
616 TRACE("%p (%d)\n", This
, deep
);
621 pClone
= xmlCopyNode(This
->node
, deep
? 1 : 2);
624 pClone
->doc
= This
->node
->doc
;
626 pNode
= create_node(pClone
);
629 ERR("Copy failed\n");
637 ERR("Copy failed\n");
644 static HRESULT WINAPI
xmlnode_get_nodeTypeString(
652 static HRESULT WINAPI
xmlnode_get_text(
656 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
664 switch(This
->node
->type
)
666 case XML_ELEMENT_NODE
:
667 case XML_ATTRIBUTE_NODE
:
669 xmlNodePtr child
= This
->node
->children
;
670 if ( child
&& child
->type
== XML_TEXT_NODE
)
671 str
= bstr_from_xmlChar( child
->content
);
676 case XML_CDATA_SECTION_NODE
:
678 case XML_COMMENT_NODE
:
679 str
= bstr_from_xmlChar( This
->node
->content
);
683 FIXME("Unhandled node type %d\n", This
->node
->type
);
686 /* Always return a string. */
687 if (!str
) str
= SysAllocStringLen( NULL
, 0 );
689 TRACE("%p %s\n", This
, debugstr_w(str
) );
695 static HRESULT WINAPI
xmlnode_put_text(
703 static HRESULT WINAPI
xmlnode_get_specified(
705 VARIANT_BOOL
* isSpecified
)
711 static HRESULT WINAPI
xmlnode_get_definition(
713 IXMLDOMNode
** definitionNode
)
719 static HRESULT WINAPI
xmlnode_get_nodeTypedValue(
723 FIXME("ignoring data type\n");
724 return xmlnode_get_nodeValue(iface
, typedValue
);
727 static HRESULT WINAPI
xmlnode_put_nodeTypedValue(
735 static HRESULT WINAPI
xmlnode_get_dataType(
737 VARIANT
* dataTypeName
)
743 static HRESULT WINAPI
xmlnode_put_dataType(
751 static HRESULT WINAPI
xmlnode_get_xml(
755 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
756 xmlBufferPtr pXmlBuf
;
759 TRACE("iface %p\n", iface
);
766 pXmlBuf
= xmlBufferCreate();
769 nSize
= xmlNodeDump(pXmlBuf
, This
->node
->doc
, This
->node
, 0, 0);
772 const xmlChar
*pContent
;
774 /* Attribute Nodes return a space infront of their name */
775 pContent
= xmlBufferContent(pXmlBuf
);
776 if( ((char*)pContent
)[0] == ' ')
777 *xmlString
= bstr_from_xmlChar(pContent
+1);
779 *xmlString
= bstr_from_xmlChar(pContent
);
782 xmlBufferFree(pXmlBuf
);
786 /* Always returns a string. */
787 if(*xmlString
== NULL
) *xmlString
= SysAllocStringLen( NULL
, 0 );
792 static HRESULT WINAPI
xmlnode_transformNode(
794 IXMLDOMNode
* styleSheet
,
801 static HRESULT WINAPI
xmlnode_selectNodes(
804 IXMLDOMNodeList
** resultList
)
806 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
808 TRACE("%p %s %p\n", This
, debugstr_w(queryString
), resultList
);
810 return queryresult_create( This
->node
, queryString
, resultList
);
813 static HRESULT WINAPI
xmlnode_selectSingleNode(
816 IXMLDOMNode
** resultNode
)
818 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
819 IXMLDOMNodeList
*list
;
822 TRACE("%p %s %p\n", This
, debugstr_w(queryString
), resultNode
);
825 r
= IXMLDOMNode_selectNodes(iface
, queryString
, &list
);
828 r
= IXMLDOMNodeList_nextNode(list
, resultNode
);
829 IXMLDOMNodeList_Release(list
);
834 static HRESULT WINAPI
xmlnode_get_parsed(
836 VARIANT_BOOL
* isParsed
)
842 static HRESULT WINAPI
xmlnode_get_namespaceURI(
850 static HRESULT WINAPI
xmlnode_get_prefix(
858 static HRESULT WINAPI
xmlnode_get_baseName(
862 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
866 TRACE("%p %p\n", This
, nameString
);
871 switch ( This
->node
->type
)
873 case XML_ELEMENT_NODE
:
874 case XML_ATTRIBUTE_NODE
:
875 str
= bstr_from_xmlChar( This
->node
->name
);
881 ERR("Unhandled type %d\n", This
->node
->type
);
885 TRACE("returning %08x str = %s\n", r
, debugstr_w( str
) );
891 static HRESULT WINAPI
xmlnode_transformNodeToObject(
893 IXMLDOMNode
* stylesheet
,
894 VARIANT outputObject
)
900 static const struct IXMLDOMNodeVtbl xmlnode_vtbl
=
902 xmlnode_QueryInterface
,
905 xmlnode_GetTypeInfoCount
,
907 xmlnode_GetIDsOfNames
,
909 xmlnode_get_nodeName
,
910 xmlnode_get_nodeValue
,
911 xmlnode_put_nodeValue
,
912 xmlnode_get_nodeType
,
913 xmlnode_get_parentNode
,
914 xmlnode_get_childNodes
,
915 xmlnode_get_firstChild
,
916 xmlnode_get_lastChild
,
917 xmlnode_get_previousSibling
,
918 xmlnode_get_nextSibling
,
919 xmlnode_get_attributes
,
920 xmlnode_insertBefore
,
921 xmlnode_replaceChild
,
924 xmlnode_hasChildNodes
,
925 xmlnode_get_ownerDocument
,
927 xmlnode_get_nodeTypeString
,
930 xmlnode_get_specified
,
931 xmlnode_get_definition
,
932 xmlnode_get_nodeTypedValue
,
933 xmlnode_put_nodeTypedValue
,
934 xmlnode_get_dataType
,
935 xmlnode_put_dataType
,
937 xmlnode_transformNode
,
939 xmlnode_selectSingleNode
,
941 xmlnode_get_namespaceURI
,
943 xmlnode_get_baseName
,
944 xmlnode_transformNodeToObject
,
947 static HRESULT WINAPI
Internal_QueryInterface(
952 xmlnode
*This
= impl_from_InternalUnknown( iface
);
954 TRACE("%p %s %p\n", iface
, debugstr_guid(riid
), ppvObject
);
957 if ( IsEqualGUID( riid
, &IID_IUnknown
))
959 else if ( IsEqualGUID( riid
, &IID_IDispatch
) ||
960 IsEqualGUID( riid
, &IID_IXMLDOMNode
) )
961 *ppvObject
= &This
->lpVtbl
;
964 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
966 return E_NOINTERFACE
;
969 IUnknown_AddRef( (IUnknown
*)*ppvObject
);
974 static ULONG WINAPI
Internal_AddRef(
977 xmlnode
*This
= impl_from_InternalUnknown( iface
);
978 return InterlockedIncrement( &This
->ref
);
981 static ULONG WINAPI
Internal_Release(
984 xmlnode
*This
= impl_from_InternalUnknown( iface
);
987 ref
= InterlockedDecrement( &This
->ref
);
991 xmldoc_release( This
->node
->doc
);
992 HeapFree( GetProcessHeap(), 0, This
);
998 static const struct IUnknownVtbl internal_unk_vtbl
=
1000 Internal_QueryInterface
,
1005 IUnknown
*create_basic_node( xmlNodePtr node
, IUnknown
*pUnkOuter
)
1009 This
= HeapAlloc( GetProcessHeap(), 0, sizeof *This
);
1014 xmldoc_add_ref( node
->doc
);
1016 This
->lpVtbl
= &xmlnode_vtbl
;
1017 This
->lpInternalUnkVtbl
= &internal_unk_vtbl
;
1020 This
->pUnkOuter
= pUnkOuter
; /* Don't take a ref on outer Unknown */
1022 This
->pUnkOuter
= (IUnknown
*)&This
->lpInternalUnkVtbl
;
1027 return (IUnknown
*)&This
->lpInternalUnkVtbl
;
1030 IXMLDOMNode
*create_node( xmlNodePtr node
)
1039 TRACE("type %d\n", node
->type
);
1042 case XML_ELEMENT_NODE
:
1043 pUnk
= create_element( node
, NULL
);
1045 case XML_ATTRIBUTE_NODE
:
1046 pUnk
= create_attribute( node
);
1049 pUnk
= create_text( node
);
1051 case XML_COMMENT_NODE
:
1052 pUnk
= create_comment( node
);
1054 case XML_DOCUMENT_NODE
:
1055 ERR("shouldn't be here!\n");
1058 FIXME("only creating basic node for type %d\n", node
->type
);
1059 pUnk
= create_basic_node( node
, NULL
);
1062 hr
= IUnknown_QueryInterface(pUnk
, &IID_IXMLDOMNode
, (LPVOID
*)&ret
);
1063 IUnknown_Release(pUnk
);
1064 if(FAILED(hr
)) return NULL
;