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"
37 # include <libxml/HTMLtree.h>
40 #include "wine/debug.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
46 static const WCHAR szBinBase64
[] = {'b','i','n','.','b','a','s','e','6','4',0};
47 static const WCHAR szString
[] = {'s','t','r','i','n','g',0};
48 static const WCHAR szNumber
[] = {'n','u','m','b','e','r',0};
49 static const WCHAR szInt
[] = {'I','n','t',0};
50 static const WCHAR szFixed
[] = {'F','i','x','e','d','.','1','4','.','4',0};
51 static const WCHAR szBoolean
[] = {'B','o','o','l','e','a','n',0};
52 static const WCHAR szDateTime
[] = {'d','a','t','e','T','i','m','e',0};
53 static const WCHAR szDateTimeTZ
[] = {'d','a','t','e','T','i','m','e','.','t','z',0};
54 static const WCHAR szDate
[] = {'D','a','t','e',0};
55 static const WCHAR szTime
[] = {'T','i','m','e',0};
56 static const WCHAR szTimeTZ
[] = {'T','i','m','e','.','t','z',0};
57 static const WCHAR szI1
[] = {'i','1',0};
58 static const WCHAR szI2
[] = {'i','2',0};
59 static const WCHAR szI4
[] = {'i','4',0};
60 static const WCHAR szIU1
[] = {'u','i','1',0};
61 static const WCHAR szIU2
[] = {'u','i','2',0};
62 static const WCHAR szIU4
[] = {'u','i','4',0};
63 static const WCHAR szR4
[] = {'r','4',0};
64 static const WCHAR szR8
[] = {'r','8',0};
65 static const WCHAR szFloat
[] = {'f','l','o','a','t',0};
66 static const WCHAR szUUID
[] = {'u','u','i','d',0};
67 static const WCHAR szBinHex
[] = {'b','i','n','.','h','e','x',0};
69 static inline xmlnode
*impl_from_InternalUnknown( IUnknown
*iface
)
71 return (xmlnode
*)((char*)iface
- FIELD_OFFSET(xmlnode
, lpInternalUnkVtbl
));
74 xmlNodePtr
xmlNodePtr_from_domnode( IXMLDOMNode
*iface
, xmlElementType type
)
80 This
= impl_from_IXMLDOMNode( iface
);
83 if ( type
&& This
->node
->type
!= type
)
88 void attach_xmlnode( IXMLDOMNode
*node
, xmlNodePtr xml
)
90 xmlnode
*This
= impl_from_IXMLDOMNode( node
);
93 xmldoc_release(This
->node
->doc
);
97 xmldoc_add_ref(This
->node
->doc
);
102 static HRESULT WINAPI
xmlnode_QueryInterface(
107 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
108 TRACE("%p %s %p\n", This
, debugstr_guid(riid
), ppvObject
);
110 return IUnknown_QueryInterface(This
->pUnkOuter
, riid
, ppvObject
);
113 static ULONG WINAPI
xmlnode_AddRef(
116 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
117 return IUnknown_AddRef(This
->pUnkOuter
);
120 static ULONG WINAPI
xmlnode_Release(
123 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
124 return IUnknown_Release(This
->pUnkOuter
);
127 static HRESULT WINAPI
xmlnode_GetTypeInfoCount(
131 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
133 TRACE("(%p)->(%p)\n", This
, pctinfo
);
140 static HRESULT WINAPI
xmlnode_GetTypeInfo(
144 ITypeInfo
** ppTInfo
)
146 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
149 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
151 hr
= get_typeinfo(IXMLDOMNode_tid
, ppTInfo
);
156 static HRESULT WINAPI
xmlnode_GetIDsOfNames(
164 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
169 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
172 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
175 hr
= get_typeinfo(IXMLDOMNode_tid
, &typeinfo
);
178 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
179 ITypeInfo_Release(typeinfo
);
185 static HRESULT WINAPI
xmlnode_Invoke(
191 DISPPARAMS
* pDispParams
,
193 EXCEPINFO
* pExcepInfo
,
196 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
200 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
201 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
203 hr
= get_typeinfo(IXMLDOMNode_tid
, &typeinfo
);
206 hr
= ITypeInfo_Invoke(typeinfo
, &(This
->lpVtbl
), dispIdMember
, wFlags
, pDispParams
,
207 pVarResult
, pExcepInfo
, puArgErr
);
208 ITypeInfo_Release(typeinfo
);
214 static HRESULT WINAPI
xmlnode_get_nodeName(
218 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
221 TRACE("%p\n", This
);
229 switch( This
->node
->type
)
231 case XML_CDATA_SECTION_NODE
:
232 str
= (const xmlChar
*) "#cdata-section";
234 case XML_COMMENT_NODE
:
235 str
= (const xmlChar
*) "#comment";
237 case XML_DOCUMENT_FRAG_NODE
:
238 str
= (const xmlChar
*) "#document-fragment";
241 str
= (const xmlChar
*) "#text";
243 case XML_DOCUMENT_NODE
:
244 str
= (const xmlChar
*) "#document";
246 case XML_ATTRIBUTE_NODE
:
247 case XML_ELEMENT_NODE
:
249 str
= This
->node
->name
;
252 FIXME("nodeName not mapped correctly (%d)\n", This
->node
->type
);
253 str
= This
->node
->name
;
257 *name
= bstr_from_xmlChar( str
);
264 BSTR
bstr_from_xmlChar( const xmlChar
*buf
)
273 len
= MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
) buf
, -1, NULL
, 0 );
274 str
= (LPWSTR
) HeapAlloc( GetProcessHeap(), 0, len
* sizeof (WCHAR
) );
277 MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
) buf
, -1, str
, len
);
278 bstr
= SysAllocString( str
);
279 HeapFree( GetProcessHeap(), 0, str
);
283 static HRESULT WINAPI
xmlnode_get_nodeValue(
287 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
290 TRACE("%p %p\n", This
, value
);
295 V_BSTR(value
) = NULL
;
296 V_VT(value
) = VT_NULL
;
298 switch ( This
->node
->type
)
300 case XML_CDATA_SECTION_NODE
:
301 case XML_COMMENT_NODE
:
303 case XML_ATTRIBUTE_NODE
:
305 xmlChar
*content
= xmlNodeGetContent(This
->node
);
306 V_VT(value
) = VT_BSTR
;
307 V_BSTR(value
) = bstr_from_xmlChar( content
);
313 V_VT(value
) = VT_BSTR
;
314 V_BSTR(value
) = bstr_from_xmlChar( This
->node
->content
);
317 case XML_ELEMENT_NODE
:
318 case XML_DOCUMENT_NODE
:
319 /* these seem to return NULL */
323 FIXME("node %p type %d\n", This
, This
->node
->type
);
326 TRACE("%p returned %s\n", This
, debugstr_w( V_BSTR(value
) ) );
331 static HRESULT WINAPI
xmlnode_put_nodeValue(
335 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
338 VARIANT string_value
;
340 TRACE("%p type(%d)\n", This
, This
->node
->type
);
342 VariantInit(&string_value
);
343 hr
= VariantChangeType(&string_value
, &value
, 0, VT_BSTR
);
346 VariantClear(&string_value
);
347 WARN("Couldn't convert to VT_BSTR\n");
352 /* Document, Document Fragment, Document Type, Element,
353 Entity, Entity Reference, Notation aren't supported. */
354 switch ( This
->node
->type
)
356 case XML_ATTRIBUTE_NODE
:
357 case XML_CDATA_SECTION_NODE
:
358 case XML_COMMENT_NODE
:
362 str
= xmlChar_from_wchar((WCHAR
*)V_BSTR(&string_value
));
363 xmlNodeSetContent(This
->node
, str
);
364 HeapFree(GetProcessHeap(),0,str
);
369 /* Do nothing for unsupported types. */
373 VariantClear(&string_value
);
378 static HRESULT WINAPI
xmlnode_get_nodeType(
382 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
384 TRACE("%p %p\n", This
, type
);
386 assert( NODE_ELEMENT
== XML_ELEMENT_NODE
);
387 assert( NODE_NOTATION
== XML_NOTATION_NODE
);
389 *type
= This
->node
->type
;
394 static HRESULT
get_node(
400 TRACE("%p->%s %p\n", This
, name
, node
);
404 *out
= create_node( node
);
410 static HRESULT WINAPI
xmlnode_get_parentNode(
412 IXMLDOMNode
** parent
)
414 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
415 return get_node( This
, "parent", This
->node
->parent
, parent
);
418 static HRESULT WINAPI
xmlnode_get_childNodes(
420 IXMLDOMNodeList
** childList
)
422 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
424 TRACE("%p %p\n", This
, childList
);
429 *childList
= create_children_nodelist(This
->node
);
430 if (*childList
== NULL
)
431 return E_OUTOFMEMORY
;
436 static HRESULT WINAPI
xmlnode_get_firstChild(
438 IXMLDOMNode
** firstChild
)
440 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
441 return get_node( This
, "firstChild", This
->node
->children
, firstChild
);
444 static HRESULT WINAPI
xmlnode_get_lastChild(
446 IXMLDOMNode
** lastChild
)
448 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
450 TRACE("%p\n", This
);
455 switch( This
->node
->type
)
457 /* CDATASection, Comment, PI and Text Nodes do not support lastChild */
459 case XML_CDATA_SECTION_NODE
:
461 case XML_COMMENT_NODE
:
465 return get_node( This
, "lastChild", This
->node
->last
, lastChild
);
469 static HRESULT WINAPI
xmlnode_get_previousSibling(
471 IXMLDOMNode
** previousSibling
)
473 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
475 TRACE("%p\n", This
);
477 if (!previousSibling
)
480 switch( This
->node
->type
)
482 /* Attribute, Document and Document Fragment Nodes do not support previousSibling */
483 case XML_DOCUMENT_NODE
:
484 case XML_DOCUMENT_FRAG_NODE
:
485 case XML_ATTRIBUTE_NODE
:
486 *previousSibling
= NULL
;
489 return get_node( This
, "previous", This
->node
->prev
, previousSibling
);
493 static HRESULT WINAPI
xmlnode_get_nextSibling(
495 IXMLDOMNode
** nextSibling
)
497 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
499 TRACE("%p\n", This
);
504 switch( This
->node
->type
)
506 /* Attribute, Document and Document Fragment Nodes do not support nextSibling */
507 case XML_DOCUMENT_NODE
:
508 case XML_DOCUMENT_FRAG_NODE
:
509 case XML_ATTRIBUTE_NODE
:
513 return get_node( This
, "next", This
->node
->next
, nextSibling
);
517 static HRESULT WINAPI
xmlnode_get_attributes(
519 IXMLDOMNamedNodeMap
** attributeMap
)
521 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
527 switch( This
->node
->type
)
529 /* Attribute, CDataSection, Comment, Documents, Documents Fragments,
530 Entity and Text Nodes does not support get_attributes */
531 case XML_ATTRIBUTE_NODE
:
532 case XML_CDATA_SECTION_NODE
:
533 case XML_COMMENT_NODE
:
534 case XML_DOCUMENT_NODE
:
535 case XML_DOCUMENT_FRAG_NODE
:
536 case XML_ENTITY_NODE
:
537 case XML_ENTITY_REF_NODE
:
539 *attributeMap
= NULL
;
542 *attributeMap
= create_nodemap( iface
);
547 static HRESULT WINAPI
xmlnode_insertBefore(
549 IXMLDOMNode
* newChild
,
551 IXMLDOMNode
** outNewChild
)
553 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
554 xmlNodePtr before_node
, new_child_node
;
555 IXMLDOMNode
*before
= NULL
, *new;
558 TRACE("(%p)->(%p,var,%p)\n",This
,newChild
,outNewChild
);
563 switch(V_VT(&refChild
))
570 hr
= IUnknown_QueryInterface(V_UNKNOWN(&refChild
), &IID_IXMLDOMNode
, (LPVOID
)&before
);
571 if(FAILED(hr
)) return hr
;
575 hr
= IDispatch_QueryInterface(V_DISPATCH(&refChild
), &IID_IXMLDOMNode
, (LPVOID
)&before
);
576 if(FAILED(hr
)) return hr
;
580 FIXME("refChild var type %x\n", V_VT(&refChild
));
584 IXMLDOMNode_QueryInterface(newChild
, &IID_IXMLDOMNode
, (LPVOID
)&new);
585 new_child_node
= impl_from_IXMLDOMNode(new)->node
;
586 TRACE("new_child_node %p This->node %p\n", new_child_node
, This
->node
);
588 if(!new_child_node
->parent
)
589 if(xmldoc_remove_orphan(new_child_node
->doc
, new_child_node
) != S_OK
)
590 WARN("%p is not an orphan of %p\n", new_child_node
, new_child_node
->doc
);
594 before_node
= impl_from_IXMLDOMNode(before
)->node
;
595 xmlAddPrevSibling(before_node
, new_child_node
);
596 IXMLDOMNode_Release(before
);
600 xmlAddChild(This
->node
, new_child_node
);
603 IXMLDOMNode_Release(new);
604 IXMLDOMNode_AddRef(newChild
);
606 *outNewChild
= newChild
;
612 static HRESULT WINAPI
xmlnode_replaceChild(
614 IXMLDOMNode
* newChild
,
615 IXMLDOMNode
* oldChild
,
616 IXMLDOMNode
** outOldChild
)
618 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
619 xmlNode
*old_child_ptr
, *new_child_ptr
;
620 xmlDocPtr leaving_doc
;
621 xmlNode
*my_ancestor
;
622 IXMLDOMNode
*realOldChild
;
625 TRACE("%p->(%p,%p,%p)\n",This
,newChild
,oldChild
,outOldChild
);
627 /* Do not believe any documentation telling that newChild == NULL
628 means removal. It does certainly *not* apply to msxml3! */
629 if(!newChild
|| !oldChild
)
635 hr
= IXMLDOMNode_QueryInterface(oldChild
,&IID_IXMLDOMNode
,(LPVOID
*)&realOldChild
);
639 old_child_ptr
= impl_from_IXMLDOMNode(realOldChild
)->node
;
640 IXMLDOMNode_Release(realOldChild
);
641 if(old_child_ptr
->parent
!= This
->node
)
643 WARN("childNode %p is not a child of %p\n", oldChild
, iface
);
647 new_child_ptr
= impl_from_IXMLDOMNode(newChild
)->node
;
648 my_ancestor
= This
->node
;
651 if(my_ancestor
== new_child_ptr
)
653 WARN("tried to create loop\n");
656 my_ancestor
= my_ancestor
->parent
;
659 if(!new_child_ptr
->parent
)
660 if(xmldoc_remove_orphan(new_child_ptr
->doc
, new_child_ptr
) != S_OK
)
661 WARN("%p is not an orphan of %p\n", new_child_ptr
, new_child_ptr
->doc
);
663 leaving_doc
= new_child_ptr
->doc
;
664 xmldoc_add_ref(old_child_ptr
->doc
);
665 xmlReplaceNode(old_child_ptr
, new_child_ptr
);
666 xmldoc_release(leaving_doc
);
668 xmldoc_add_orphan(old_child_ptr
->doc
, old_child_ptr
);
672 IXMLDOMNode_AddRef(oldChild
);
673 *outOldChild
= oldChild
;
679 static HRESULT WINAPI
xmlnode_removeChild(
681 IXMLDOMNode
* childNode
,
682 IXMLDOMNode
** oldChild
)
684 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
685 xmlNode
*child_node_ptr
;
689 TRACE("%p->(%p, %p)\n", This
, childNode
, oldChild
);
691 if(!childNode
) return E_INVALIDARG
;
696 hr
= IXMLDOMNode_QueryInterface(childNode
, &IID_IXMLDOMNode
, (LPVOID
)&child
);
700 child_node_ptr
= impl_from_IXMLDOMNode(child
)->node
;
701 if(child_node_ptr
->parent
!= This
->node
)
703 WARN("childNode %p is not a child of %p\n", childNode
, iface
);
704 IXMLDOMNode_Release(child
);
708 xmlUnlinkNode(child_node_ptr
);
710 IXMLDOMNode_Release(child
);
714 IXMLDOMNode_AddRef(childNode
);
715 *oldChild
= childNode
;
721 static HRESULT WINAPI
xmlnode_appendChild(
723 IXMLDOMNode
* newChild
,
724 IXMLDOMNode
** outNewChild
)
726 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
731 TRACE("(%p)->(%p,%p)\n", This
, newChild
, outNewChild
);
733 hr
= IXMLDOMNode_get_nodeType(newChild
, &type
);
734 if(FAILED(hr
) || type
== NODE_ATTRIBUTE
) {
735 if(outNewChild
) *outNewChild
= NULL
;
740 return IXMLDOMNode_insertBefore(iface
, newChild
, var
, outNewChild
);
743 static HRESULT WINAPI
xmlnode_hasChildNodes(
745 VARIANT_BOOL
* hasChild
)
747 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
753 if (!This
->node
->children
)
755 *hasChild
= VARIANT_FALSE
;
759 *hasChild
= VARIANT_TRUE
;
763 static HRESULT WINAPI
xmlnode_get_ownerDocument(
765 IXMLDOMDocument
** DOMDocument
)
767 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
769 TRACE("%p (%p)\n", This
, DOMDocument
);
771 return DOMDocument_create_from_xmldoc(This
->node
->doc
, (IXMLDOMDocument2
**)DOMDocument
);
774 static HRESULT WINAPI
xmlnode_cloneNode(
777 IXMLDOMNode
** cloneRoot
)
779 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
780 xmlNodePtr pClone
= NULL
;
781 IXMLDOMNode
*pNode
= NULL
;
783 TRACE("%p (%d)\n", This
, deep
);
788 pClone
= xmlCopyNode(This
->node
, deep
? 1 : 2);
791 pClone
->doc
= This
->node
->doc
;
792 xmldoc_add_orphan(pClone
->doc
, pClone
);
794 pNode
= create_node(pClone
);
797 ERR("Copy failed\n");
805 ERR("Copy failed\n");
812 static HRESULT WINAPI
xmlnode_get_nodeTypeString(
816 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
819 TRACE("%p\n", This
);
827 switch( This
->node
->type
)
829 case XML_ATTRIBUTE_NODE
:
830 str
= (const xmlChar
*) "attribute";
832 case XML_CDATA_SECTION_NODE
:
833 str
= (const xmlChar
*) "cdatasection";
835 case XML_COMMENT_NODE
:
836 str
= (const xmlChar
*) "comment";
838 case XML_DOCUMENT_NODE
:
839 str
= (const xmlChar
*) "document";
841 case XML_DOCUMENT_FRAG_NODE
:
842 str
= (const xmlChar
*) "documentfragment";
844 case XML_ELEMENT_NODE
:
845 str
= (const xmlChar
*) "element";
847 case XML_ENTITY_NODE
:
848 str
= (const xmlChar
*) "entity";
850 case XML_ENTITY_REF_NODE
:
851 str
= (const xmlChar
*) "entityreference";
853 case XML_NOTATION_NODE
:
854 str
= (const xmlChar
*) "notation";
857 str
= (const xmlChar
*) "processinginstruction";
860 str
= (const xmlChar
*) "text";
863 FIXME("Unknown node type (%d)\n", This
->node
->type
);
864 str
= This
->node
->name
;
868 *xmlnodeType
= bstr_from_xmlChar( str
);
875 static HRESULT WINAPI
xmlnode_get_text(
879 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
887 switch(This
->node
->type
)
889 case XML_ELEMENT_NODE
:
890 case XML_ATTRIBUTE_NODE
:
892 xmlNodePtr child
= This
->node
->children
;
893 if ( child
&& child
->type
== XML_TEXT_NODE
)
894 str
= bstr_from_xmlChar( child
->content
);
899 case XML_CDATA_SECTION_NODE
:
901 case XML_COMMENT_NODE
:
902 str
= bstr_from_xmlChar( This
->node
->content
);
906 FIXME("Unhandled node type %d\n", This
->node
->type
);
909 /* Always return a string. */
910 if (!str
) str
= SysAllocStringLen( NULL
, 0 );
912 TRACE("%p %s\n", This
, debugstr_w(str
) );
918 static HRESULT WINAPI
xmlnode_put_text(
922 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
923 xmlChar
*str
, *str2
, *str3
;
927 switch(This
->node
->type
)
929 case XML_DOCUMENT_NODE
:
935 str
= xmlChar_from_wchar((WCHAR
*)text
);
937 /* Escape the string. */
938 str2
= xmlEncodeEntitiesReentrant(This
->node
->doc
, str
);
939 HeapFree(GetProcessHeap(), 0, str
);
940 str3
= xmlEncodeSpecialChars(This
->node
->doc
, str2
);
943 xmlNodeSetContent(This
->node
, str3
);
949 static HRESULT WINAPI
xmlnode_get_specified(
951 VARIANT_BOOL
* isSpecified
)
957 static HRESULT WINAPI
xmlnode_get_definition(
959 IXMLDOMNode
** definitionNode
)
965 static HRESULT WINAPI
xmlnode_get_nodeTypedValue(
969 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
972 FIXME("ignoring data type %p %p\n", This
, typedValue
);
977 V_VT(typedValue
) = VT_NULL
;
979 switch ( This
->node
->type
)
981 case XML_ELEMENT_NODE
:
983 xmlChar
*content
= xmlNodeGetContent(This
->node
);
984 V_VT(typedValue
) = VT_BSTR
;
985 V_BSTR(typedValue
) = bstr_from_xmlChar( content
);
991 r
= xmlnode_get_nodeValue(iface
, typedValue
);
997 static HRESULT WINAPI
xmlnode_put_nodeTypedValue(
1005 static HRESULT WINAPI
xmlnode_get_dataType(
1007 VARIANT
* dataTypeName
)
1009 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1012 TRACE("iface %p\n", iface
);
1015 return E_INVALIDARG
;
1017 /* Attribute, CDATA Section, Comment, Document, Document Fragment,
1018 Entity, Notation, PI, and Text Node are non-typed. */
1019 V_BSTR(dataTypeName
) = NULL
;
1020 V_VT(dataTypeName
) = VT_NULL
;
1022 switch ( This
->node
->type
)
1024 case XML_ELEMENT_NODE
:
1025 pVal
= xmlGetNsProp(This
->node
, (xmlChar
*)"dt",
1026 (xmlChar
*)"urn:schemas-microsoft-com:datatypes");
1029 V_VT(dataTypeName
) = VT_BSTR
;
1030 V_BSTR(dataTypeName
) = bstr_from_xmlChar( pVal
);
1034 case XML_ENTITY_REF_NODE
:
1035 FIXME("XML_ENTITY_REF_NODE should return a valid value.\n");
1038 TRACE("Type %d returning NULL\n", This
->node
->type
);
1041 /* non-typed nodes return S_FALSE */
1042 if(V_VT(dataTypeName
) == VT_NULL
)
1050 static HRESULT WINAPI
xmlnode_put_dataType(
1054 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1055 HRESULT hr
= E_FAIL
;
1057 TRACE("iface %p\n", iface
);
1059 if(dataTypeName
== NULL
)
1060 return E_INVALIDARG
;
1062 /* An example of this is. The Text in the node needs to be a 0 or 1 for a boolean type.
1063 This applies to changing types (string->bool) or setting a new one
1065 FIXME("Need to Validate the data before allowing a type to be set.\n");
1067 /* Check all supported types. */
1068 if(lstrcmpiW(dataTypeName
,szString
) == 0 ||
1069 lstrcmpiW(dataTypeName
,szNumber
) == 0 ||
1070 lstrcmpiW(dataTypeName
,szUUID
) == 0 ||
1071 lstrcmpiW(dataTypeName
,szInt
) == 0 ||
1072 lstrcmpiW(dataTypeName
,szI4
) == 0 ||
1073 lstrcmpiW(dataTypeName
,szFixed
) == 0 ||
1074 lstrcmpiW(dataTypeName
,szBoolean
) == 0 ||
1075 lstrcmpiW(dataTypeName
,szDateTime
) == 0 ||
1076 lstrcmpiW(dataTypeName
,szDateTimeTZ
) == 0 ||
1077 lstrcmpiW(dataTypeName
,szDate
) == 0 ||
1078 lstrcmpiW(dataTypeName
,szTime
) == 0 ||
1079 lstrcmpiW(dataTypeName
,szTimeTZ
) == 0 ||
1080 lstrcmpiW(dataTypeName
,szI1
) == 0 ||
1081 lstrcmpiW(dataTypeName
,szI2
) == 0 ||
1082 lstrcmpiW(dataTypeName
,szIU1
) == 0 ||
1083 lstrcmpiW(dataTypeName
,szIU2
) == 0 ||
1084 lstrcmpiW(dataTypeName
,szIU4
) == 0 ||
1085 lstrcmpiW(dataTypeName
,szR4
) == 0 ||
1086 lstrcmpiW(dataTypeName
,szR8
) == 0 ||
1087 lstrcmpiW(dataTypeName
,szFloat
) == 0 ||
1088 lstrcmpiW(dataTypeName
,szBinHex
) == 0 ||
1089 lstrcmpiW(dataTypeName
,szBinBase64
) == 0)
1091 xmlNsPtr pNS
= NULL
;
1092 xmlAttrPtr pAttr
= NULL
;
1093 xmlChar
* str
= xmlChar_from_wchar((WCHAR
*)dataTypeName
);
1095 pAttr
= xmlHasNsProp(This
->node
, (xmlChar
*)"dt",
1096 (xmlChar
*)"urn:schemas-microsoft-com:datatypes");
1099 pAttr
= xmlSetNsProp(This
->node
, pAttr
->ns
, (xmlChar
*)"dt", str
);
1105 pNS
= xmlNewNs(This
->node
, (xmlChar
*)"urn:schemas-microsoft-com:datatypes", (xmlChar
*)"dt");
1108 pAttr
= xmlNewNsProp(This
->node
, pNS
, (xmlChar
*)"dt", str
);
1111 xmlAddChild(This
->node
, (xmlNodePtr
)pAttr
);
1116 ERR("Failed to create Attribute\n");
1119 ERR("Failed to Create Namepsace\n");
1121 HeapFree( GetProcessHeap(), 0, str
);
1127 static BSTR
EnsureCorrectEOL(BSTR sInput
)
1129 static const WCHAR SZ_RETURN
[] = {'\n',0};
1130 static const WCHAR SZ_LINEFEED
[] = {'\r',0};
1136 nLen
= lstrlenW(sInput
);
1137 /* Count line endings */
1138 for(i
=0; i
< nLen
; i
++)
1140 if(sInput
[i
] == SZ_RETURN
[0])
1144 TRACE("len=%d, num=%d\n", nLen
, nNum
);
1146 /* Add linefeed as needed */
1150 sNew
= SysAllocStringLen(NULL
, nLen
+ nNum
+1);
1151 for(i
=0; i
< nLen
; i
++)
1153 if(sInput
[i
] == SZ_RETURN
[0])
1155 sNew
[i
+nPlace
] = SZ_LINEFEED
[0];
1158 sNew
[i
+nPlace
] = sInput
[i
];
1161 SysFreeString(sInput
);
1168 TRACE("len %d\n", lstrlenW(sNew
));
1173 /* Removes encoding information and last character (nullbyte) */
1174 static BSTR
EnsureNoEncoding(BSTR sInput
)
1176 static const WCHAR wszEncoding
[] = {'e','n','c','o','d','i','n','g','='};
1181 while(*pBeg
!= '\n' && memcmp(pBeg
, wszEncoding
, sizeof(wszEncoding
)))
1186 SysReAllocStringLen(&sInput
, sInput
, SysStringLen(sInput
)-1);
1191 pEnd
= pBeg
+ sizeof(wszEncoding
)/sizeof(WCHAR
) + 2;
1192 while(*pEnd
!= '\"') pEnd
++;
1195 sNew
= SysAllocStringLen(NULL
,
1196 pBeg
-sInput
+ SysStringLen(sInput
)-(pEnd
-sInput
)-1);
1197 memcpy(sNew
, sInput
, (pBeg
-sInput
)*sizeof(WCHAR
));
1198 memcpy(&sNew
[pBeg
-sInput
], pEnd
, (SysStringLen(sInput
)-(pEnd
-sInput
)-1)*sizeof(WCHAR
));
1200 SysFreeString(sInput
);
1205 * We are trying to replicate the same behaviour as msxml by converting
1206 * line endings to \r\n and using idents as \t. The problem is that msxml
1207 * only formats nodes that have a line ending. Using libxml we cannot
1208 * reproduce behaviour exactly.
1211 static HRESULT WINAPI
xmlnode_get_xml(
1215 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1216 xmlBufferPtr pXmlBuf
;
1219 TRACE("iface %p %d\n", iface
, This
->node
->type
);
1222 return E_INVALIDARG
;
1226 pXmlBuf
= xmlBufferCreate();
1229 nSize
= xmlNodeDump(pXmlBuf
, This
->node
->doc
, This
->node
, 0, 1);
1232 const xmlChar
*pContent
;
1235 /* Attribute Nodes return a space in front of their name */
1236 pContent
= xmlBufferContent(pXmlBuf
);
1237 if( ((char*)pContent
)[0] == ' ')
1238 bstrContent
= bstr_from_xmlChar(pContent
+1);
1240 bstrContent
= bstr_from_xmlChar(pContent
);
1242 switch(This
->node
->type
)
1244 case XML_ELEMENT_NODE
:
1245 *xmlString
= EnsureCorrectEOL(bstrContent
);
1247 case XML_DOCUMENT_NODE
:
1248 *xmlString
= EnsureCorrectEOL(bstrContent
);
1249 *xmlString
= EnsureNoEncoding(*xmlString
);
1252 *xmlString
= bstrContent
;
1256 xmlBufferFree(pXmlBuf
);
1259 /* Always returns a string. */
1260 if(*xmlString
== NULL
) *xmlString
= SysAllocStringLen( NULL
, 0 );
1265 static HRESULT WINAPI
xmlnode_transformNode(
1267 IXMLDOMNode
* styleSheet
,
1270 #ifdef SONAME_LIBXSLT
1271 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1272 xmlnode
*pStyleSheet
= NULL
;
1273 xsltStylesheetPtr xsltSS
= NULL
;
1274 xmlDocPtr result
= NULL
;
1277 TRACE("%p %p %p\n", This
, styleSheet
, xmlString
);
1279 if (!libxslt_handle
)
1281 if(!styleSheet
|| !xmlString
)
1282 return E_INVALIDARG
;
1286 if(IXMLDOMNode_QueryInterface(styleSheet
, &IID_IXMLDOMNode
, (LPVOID
)&ssNew
) == S_OK
)
1288 pStyleSheet
= impl_from_IXMLDOMNode( ssNew
);
1290 xsltSS
= pxsltParseStylesheetDoc( pStyleSheet
->node
->doc
);
1293 result
= pxsltApplyStylesheet(xsltSS
, This
->node
->doc
, NULL
);
1296 const xmlChar
*pContent
;
1298 if(result
->type
== XML_HTML_DOCUMENT_NODE
)
1300 xmlOutputBufferPtr pOutput
= xmlAllocOutputBuffer(NULL
);
1303 htmlDocContentDumpOutput(pOutput
, result
->doc
, NULL
);
1304 pContent
= xmlBufferContent(pOutput
->buffer
);
1305 *xmlString
= bstr_from_xmlChar(pContent
);
1306 xmlOutputBufferClose(pOutput
);
1311 xmlBufferPtr pXmlBuf
;
1314 pXmlBuf
= xmlBufferCreate();
1317 nSize
= xmlNodeDump(pXmlBuf
, NULL
, (xmlNodePtr
)result
, 0, 0);
1320 pContent
= xmlBufferContent(pXmlBuf
);
1321 *xmlString
= bstr_from_xmlChar(pContent
);
1323 xmlBufferFree(pXmlBuf
);
1328 /* libxslt "helpfully" frees the XML document the stylesheet was
1329 generated from, too */
1331 pxsltFreeStylesheet(xsltSS
);
1334 IXMLDOMNode_Release(ssNew
);
1337 if(*xmlString
== NULL
)
1338 *xmlString
= SysAllocStringLen(NULL
, 0);
1342 FIXME("libxslt headers were not found at compile time\n");
1347 static HRESULT WINAPI
xmlnode_selectNodes(
1350 IXMLDOMNodeList
** resultList
)
1352 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1354 TRACE("%p %s %p\n", This
, debugstr_w(queryString
), resultList
);
1356 return queryresult_create( This
->node
, queryString
, resultList
);
1359 static HRESULT WINAPI
xmlnode_selectSingleNode(
1362 IXMLDOMNode
** resultNode
)
1364 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1365 IXMLDOMNodeList
*list
;
1368 TRACE("%p %s %p\n", This
, debugstr_w(queryString
), resultNode
);
1371 r
= IXMLDOMNode_selectNodes(iface
, queryString
, &list
);
1374 r
= IXMLDOMNodeList_nextNode(list
, resultNode
);
1375 IXMLDOMNodeList_Release(list
);
1380 static HRESULT WINAPI
xmlnode_get_parsed(
1382 VARIANT_BOOL
* isParsed
)
1388 static HRESULT WINAPI
xmlnode_get_namespaceURI(
1392 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1393 HRESULT hr
= S_FALSE
;
1396 TRACE("%p %p\n", This
, namespaceURI
);
1399 return E_INVALIDARG
;
1401 *namespaceURI
= NULL
;
1403 pNSList
= xmlGetNsList(This
->node
->doc
, This
->node
);
1406 *namespaceURI
= bstr_from_xmlChar( pNSList
[0]->href
);
1415 static HRESULT WINAPI
xmlnode_get_prefix(
1419 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1420 HRESULT hr
= S_FALSE
;
1423 TRACE("%p %p\n", This
, prefixString
);
1426 return E_INVALIDARG
;
1428 *prefixString
= NULL
;
1430 pNSList
= xmlGetNsList(This
->node
->doc
, This
->node
);
1433 *prefixString
= bstr_from_xmlChar( pNSList
[0]->prefix
);
1442 static HRESULT WINAPI
xmlnode_get_baseName(
1446 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1448 HRESULT r
= S_FALSE
;
1450 TRACE("%p %p\n", This
, nameString
);
1453 return E_INVALIDARG
;
1455 switch ( This
->node
->type
)
1457 case XML_ELEMENT_NODE
:
1458 case XML_ATTRIBUTE_NODE
:
1459 str
= bstr_from_xmlChar( This
->node
->name
);
1465 ERR("Unhandled type %d\n", This
->node
->type
);
1469 TRACE("returning %08x str = %s\n", r
, debugstr_w( str
) );
1475 static HRESULT WINAPI
xmlnode_transformNodeToObject(
1477 IXMLDOMNode
* stylesheet
,
1478 VARIANT outputObject
)
1484 static const struct IXMLDOMNodeVtbl xmlnode_vtbl
=
1486 xmlnode_QueryInterface
,
1489 xmlnode_GetTypeInfoCount
,
1490 xmlnode_GetTypeInfo
,
1491 xmlnode_GetIDsOfNames
,
1493 xmlnode_get_nodeName
,
1494 xmlnode_get_nodeValue
,
1495 xmlnode_put_nodeValue
,
1496 xmlnode_get_nodeType
,
1497 xmlnode_get_parentNode
,
1498 xmlnode_get_childNodes
,
1499 xmlnode_get_firstChild
,
1500 xmlnode_get_lastChild
,
1501 xmlnode_get_previousSibling
,
1502 xmlnode_get_nextSibling
,
1503 xmlnode_get_attributes
,
1504 xmlnode_insertBefore
,
1505 xmlnode_replaceChild
,
1506 xmlnode_removeChild
,
1507 xmlnode_appendChild
,
1508 xmlnode_hasChildNodes
,
1509 xmlnode_get_ownerDocument
,
1511 xmlnode_get_nodeTypeString
,
1514 xmlnode_get_specified
,
1515 xmlnode_get_definition
,
1516 xmlnode_get_nodeTypedValue
,
1517 xmlnode_put_nodeTypedValue
,
1518 xmlnode_get_dataType
,
1519 xmlnode_put_dataType
,
1521 xmlnode_transformNode
,
1522 xmlnode_selectNodes
,
1523 xmlnode_selectSingleNode
,
1525 xmlnode_get_namespaceURI
,
1527 xmlnode_get_baseName
,
1528 xmlnode_transformNodeToObject
,
1531 static HRESULT WINAPI
Internal_QueryInterface(
1536 xmlnode
*This
= impl_from_InternalUnknown( iface
);
1538 TRACE("%p %s %p\n", iface
, debugstr_guid(riid
), ppvObject
);
1541 if ( IsEqualGUID( riid
, &IID_IUnknown
))
1543 else if ( IsEqualGUID( riid
, &IID_IDispatch
) ||
1544 IsEqualGUID( riid
, &IID_IXMLDOMNode
) )
1545 *ppvObject
= &This
->lpVtbl
;
1548 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
1550 return E_NOINTERFACE
;
1553 IUnknown_AddRef( (IUnknown
*)*ppvObject
);
1558 static ULONG WINAPI
Internal_AddRef(
1561 xmlnode
*This
= impl_from_InternalUnknown( iface
);
1562 return InterlockedIncrement( &This
->ref
);
1565 static ULONG WINAPI
Internal_Release(
1568 xmlnode
*This
= impl_from_InternalUnknown( iface
);
1571 ref
= InterlockedDecrement( &This
->ref
);
1575 xmldoc_release( This
->node
->doc
);
1576 HeapFree( GetProcessHeap(), 0, This
);
1582 static const struct IUnknownVtbl internal_unk_vtbl
=
1584 Internal_QueryInterface
,
1589 IUnknown
*create_basic_node( xmlNodePtr node
, IUnknown
*pUnkOuter
)
1593 This
= HeapAlloc( GetProcessHeap(), 0, sizeof *This
);
1598 xmldoc_add_ref( node
->doc
);
1600 This
->lpVtbl
= &xmlnode_vtbl
;
1601 This
->lpInternalUnkVtbl
= &internal_unk_vtbl
;
1604 This
->pUnkOuter
= pUnkOuter
; /* Don't take a ref on outer Unknown */
1606 This
->pUnkOuter
= (IUnknown
*)&This
->lpInternalUnkVtbl
;
1611 return (IUnknown
*)&This
->lpInternalUnkVtbl
;
1614 IXMLDOMNode
*create_node( xmlNodePtr node
)
1623 TRACE("type %d\n", node
->type
);
1626 case XML_ELEMENT_NODE
:
1627 pUnk
= create_element( node
, NULL
);
1629 case XML_ATTRIBUTE_NODE
:
1630 pUnk
= create_attribute( node
);
1633 pUnk
= create_text( node
);
1635 case XML_CDATA_SECTION_NODE
:
1636 pUnk
= create_cdata( node
);
1638 case XML_COMMENT_NODE
:
1639 pUnk
= create_comment( node
);
1641 case XML_DOCUMENT_NODE
:
1642 pUnk
= create_domdoc( node
);
1645 FIXME("only creating basic node for type %d\n", node
->type
);
1646 pUnk
= create_basic_node( node
, NULL
);
1649 hr
= IUnknown_QueryInterface(pUnk
, &IID_IXMLDOMNode
, (LPVOID
*)&ret
);
1650 IUnknown_Release(pUnk
);
1651 if(FAILED(hr
)) return NULL
;