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 # ifdef HAVE_LIBXSLT_PATTERN_H
38 # include <libxslt/pattern.h>
40 # ifdef HAVE_LIBXSLT_TRANSFORM_H
41 # include <libxslt/transform.h>
43 # include <libxslt/xsltutils.h>
44 # include <libxslt/xsltInternals.h>
48 # include <libxml/HTMLtree.h>
51 #include "wine/debug.h"
53 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
57 static const WCHAR szBinBase64
[] = {'b','i','n','.','b','a','s','e','6','4',0};
58 static const WCHAR szString
[] = {'s','t','r','i','n','g',0};
59 static const WCHAR szNumber
[] = {'n','u','m','b','e','r',0};
60 static const WCHAR szInt
[] = {'I','n','t',0};
61 static const WCHAR szFixed
[] = {'F','i','x','e','d','.','1','4','.','4',0};
62 static const WCHAR szBoolean
[] = {'B','o','o','l','e','a','n',0};
63 static const WCHAR szDateTime
[] = {'d','a','t','e','T','i','m','e',0};
64 static const WCHAR szDateTimeTZ
[] = {'d','a','t','e','T','i','m','e','.','t','z',0};
65 static const WCHAR szDate
[] = {'D','a','t','e',0};
66 static const WCHAR szTime
[] = {'T','i','m','e',0};
67 static const WCHAR szTimeTZ
[] = {'T','i','m','e','.','t','z',0};
68 static const WCHAR szI1
[] = {'i','1',0};
69 static const WCHAR szI2
[] = {'i','2',0};
70 static const WCHAR szI4
[] = {'i','4',0};
71 static const WCHAR szIU1
[] = {'u','i','1',0};
72 static const WCHAR szIU2
[] = {'u','i','2',0};
73 static const WCHAR szIU4
[] = {'u','i','4',0};
74 static const WCHAR szR4
[] = {'r','4',0};
75 static const WCHAR szR8
[] = {'r','8',0};
76 static const WCHAR szFloat
[] = {'f','l','o','a','t',0};
77 static const WCHAR szUUID
[] = {'u','u','i','d',0};
78 static const WCHAR szBinHex
[] = {'b','i','n','.','h','e','x',0};
80 static inline xmlnode
*impl_from_InternalUnknown( IUnknown
*iface
)
82 return (xmlnode
*)((char*)iface
- FIELD_OFFSET(xmlnode
, lpInternalUnkVtbl
));
85 xmlNodePtr
xmlNodePtr_from_domnode( IXMLDOMNode
*iface
, xmlElementType type
)
91 This
= impl_from_IXMLDOMNode( iface
);
94 if ( type
&& This
->node
->type
!= type
)
99 void attach_xmlnode( IXMLDOMNode
*node
, xmlNodePtr xml
)
101 xmlnode
*This
= impl_from_IXMLDOMNode( node
);
104 xmldoc_release(This
->node
->doc
);
108 xmldoc_add_ref(This
->node
->doc
);
113 static HRESULT WINAPI
xmlnode_QueryInterface(
118 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
119 TRACE("%p %s %p\n", This
, debugstr_guid(riid
), ppvObject
);
121 return IUnknown_QueryInterface(This
->pUnkOuter
, riid
, ppvObject
);
124 static ULONG WINAPI
xmlnode_AddRef(
127 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
128 return IUnknown_AddRef(This
->pUnkOuter
);
131 static ULONG WINAPI
xmlnode_Release(
134 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
135 return IUnknown_Release(This
->pUnkOuter
);
138 static HRESULT WINAPI
xmlnode_GetTypeInfoCount(
142 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
144 TRACE("(%p)->(%p)\n", This
, pctinfo
);
151 static HRESULT WINAPI
xmlnode_GetTypeInfo(
155 ITypeInfo
** ppTInfo
)
157 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
160 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
162 hr
= get_typeinfo(IXMLDOMNode_tid
, ppTInfo
);
167 static HRESULT WINAPI
xmlnode_GetIDsOfNames(
175 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
180 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
183 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
186 hr
= get_typeinfo(IXMLDOMNode_tid
, &typeinfo
);
189 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
190 ITypeInfo_Release(typeinfo
);
196 static HRESULT WINAPI
xmlnode_Invoke(
202 DISPPARAMS
* pDispParams
,
204 EXCEPINFO
* pExcepInfo
,
207 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
211 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
212 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
214 hr
= get_typeinfo(IXMLDOMNode_tid
, &typeinfo
);
217 hr
= ITypeInfo_Invoke(typeinfo
, &(This
->lpVtbl
), dispIdMember
, wFlags
, pDispParams
,
218 pVarResult
, pExcepInfo
, puArgErr
);
219 ITypeInfo_Release(typeinfo
);
225 static HRESULT WINAPI
xmlnode_get_nodeName(
229 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
232 TRACE("%p\n", This
);
240 switch( This
->node
->type
)
242 case XML_CDATA_SECTION_NODE
:
243 str
= (const xmlChar
*) "#cdata-section";
245 case XML_COMMENT_NODE
:
246 str
= (const xmlChar
*) "#comment";
248 case XML_DOCUMENT_FRAG_NODE
:
249 str
= (const xmlChar
*) "#document-fragment";
252 str
= (const xmlChar
*) "#text";
254 case XML_DOCUMENT_NODE
:
255 str
= (const xmlChar
*) "#document";
257 case XML_ATTRIBUTE_NODE
:
258 case XML_ELEMENT_NODE
:
260 str
= This
->node
->name
;
263 FIXME("nodeName not mapped correctly (%d)\n", This
->node
->type
);
264 str
= This
->node
->name
;
268 *name
= bstr_from_xmlChar( str
);
275 BSTR
bstr_from_xmlChar( const xmlChar
*buf
)
284 len
= MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
) buf
, -1, NULL
, 0 );
285 str
= (LPWSTR
) HeapAlloc( GetProcessHeap(), 0, len
* sizeof (WCHAR
) );
288 MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
) buf
, -1, str
, len
);
289 bstr
= SysAllocString( str
);
290 HeapFree( GetProcessHeap(), 0, str
);
294 static HRESULT WINAPI
xmlnode_get_nodeValue(
298 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
301 TRACE("%p %p\n", This
, value
);
306 V_BSTR(value
) = NULL
;
307 V_VT(value
) = VT_NULL
;
309 switch ( This
->node
->type
)
311 case XML_CDATA_SECTION_NODE
:
312 case XML_COMMENT_NODE
:
314 case XML_ATTRIBUTE_NODE
:
316 xmlChar
*content
= xmlNodeGetContent(This
->node
);
317 V_VT(value
) = VT_BSTR
;
318 V_BSTR(value
) = bstr_from_xmlChar( content
);
324 V_VT(value
) = VT_BSTR
;
325 V_BSTR(value
) = bstr_from_xmlChar( This
->node
->content
);
328 case XML_ELEMENT_NODE
:
329 case XML_DOCUMENT_NODE
:
330 /* these seem to return NULL */
334 FIXME("node %p type %d\n", This
, This
->node
->type
);
337 TRACE("%p returned %s\n", This
, debugstr_w( V_BSTR(value
) ) );
342 static HRESULT WINAPI
xmlnode_put_nodeValue(
346 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
347 HRESULT hr
= S_FALSE
;
350 TRACE("%p type(%d)\n", This
, This
->node
->type
);
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(&value
));
364 xmlNodeSetContent(This
->node
, str
);
369 /* Do nothing for unsupported types. */
376 static HRESULT WINAPI
xmlnode_get_nodeType(
380 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
382 TRACE("%p %p\n", This
, type
);
384 assert( NODE_ELEMENT
== XML_ELEMENT_NODE
);
385 assert( NODE_NOTATION
== XML_NOTATION_NODE
);
387 *type
= This
->node
->type
;
392 static HRESULT
get_node(
398 TRACE("%p->%s %p\n", This
, name
, node
);
402 *out
= create_node( node
);
408 static HRESULT WINAPI
xmlnode_get_parentNode(
410 IXMLDOMNode
** parent
)
412 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
413 return get_node( This
, "parent", This
->node
->parent
, parent
);
416 static HRESULT WINAPI
xmlnode_get_childNodes(
418 IXMLDOMNodeList
** childList
)
420 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
422 TRACE("%p %p\n", This
, childList
);
427 *childList
= create_children_nodelist(This
->node
);
428 if (*childList
== NULL
)
429 return E_OUTOFMEMORY
;
434 static HRESULT WINAPI
xmlnode_get_firstChild(
436 IXMLDOMNode
** firstChild
)
438 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
439 return get_node( This
, "firstChild", This
->node
->children
, firstChild
);
442 static HRESULT WINAPI
xmlnode_get_lastChild(
444 IXMLDOMNode
** lastChild
)
446 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
448 TRACE("%p\n", This
);
453 switch( This
->node
->type
)
455 /* CDATASection, Comment, PI and Text Nodes do not support lastChild */
457 case XML_CDATA_SECTION_NODE
:
459 case XML_COMMENT_NODE
:
463 return get_node( This
, "lastChild", This
->node
->last
, lastChild
);
467 static HRESULT WINAPI
xmlnode_get_previousSibling(
469 IXMLDOMNode
** previousSibling
)
471 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
473 TRACE("%p\n", This
);
475 if (!previousSibling
)
478 switch( This
->node
->type
)
480 /* Attribute, Document and Document Fragment Nodes do not support previousSibling */
481 case XML_DOCUMENT_NODE
:
482 case XML_DOCUMENT_FRAG_NODE
:
483 case XML_ATTRIBUTE_NODE
:
484 *previousSibling
= NULL
;
487 return get_node( This
, "previous", This
->node
->prev
, previousSibling
);
491 static HRESULT WINAPI
xmlnode_get_nextSibling(
493 IXMLDOMNode
** nextSibling
)
495 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
497 TRACE("%p\n", This
);
502 switch( This
->node
->type
)
504 /* Attribute, Document and Document Fragment Nodes do not support nextSibling */
505 case XML_DOCUMENT_NODE
:
506 case XML_DOCUMENT_FRAG_NODE
:
507 case XML_ATTRIBUTE_NODE
:
511 return get_node( This
, "next", This
->node
->next
, nextSibling
);
515 static HRESULT WINAPI
xmlnode_get_attributes(
517 IXMLDOMNamedNodeMap
** attributeMap
)
519 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
525 switch( This
->node
->type
)
527 /* Attribute, CDataSection, Comment, Documents, Documents Fragments,
528 Entity and Text Nodes does not support get_attributes */
529 case XML_ATTRIBUTE_NODE
:
530 case XML_CDATA_SECTION_NODE
:
531 case XML_COMMENT_NODE
:
532 case XML_DOCUMENT_NODE
:
533 case XML_DOCUMENT_FRAG_NODE
:
534 case XML_ENTITY_NODE
:
535 case XML_ENTITY_REF_NODE
:
537 *attributeMap
= NULL
;
540 *attributeMap
= create_nodemap( iface
);
545 static HRESULT WINAPI
xmlnode_insertBefore(
547 IXMLDOMNode
* newChild
,
549 IXMLDOMNode
** outNewChild
)
551 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
552 xmlNodePtr before_node
, new_child_node
;
553 IXMLDOMNode
*before
= NULL
, *new;
556 TRACE("(%p)->(%p,var,%p)\n",This
,newChild
,outNewChild
);
561 switch(V_VT(&refChild
))
568 hr
= IUnknown_QueryInterface(V_UNKNOWN(&refChild
), &IID_IXMLDOMNode
, (LPVOID
)&before
);
569 if(FAILED(hr
)) return hr
;
573 hr
= IDispatch_QueryInterface(V_DISPATCH(&refChild
), &IID_IXMLDOMNode
, (LPVOID
)&before
);
574 if(FAILED(hr
)) return hr
;
578 FIXME("refChild var type %x\n", V_VT(&refChild
));
582 IXMLDOMNode_QueryInterface(newChild
, &IID_IXMLDOMNode
, (LPVOID
)&new);
583 new_child_node
= impl_from_IXMLDOMNode(new)->node
;
584 TRACE("new_child_node %p This->node %p\n", new_child_node
, This
->node
);
588 before_node
= impl_from_IXMLDOMNode(before
)->node
;
589 xmlAddPrevSibling(before_node
, new_child_node
);
590 IXMLDOMNode_Release(before
);
594 xmlAddChild(This
->node
, new_child_node
);
597 IXMLDOMNode_Release(new);
598 IXMLDOMNode_AddRef(newChild
);
600 *outNewChild
= newChild
;
606 static HRESULT WINAPI
xmlnode_replaceChild(
608 IXMLDOMNode
* newChild
,
609 IXMLDOMNode
* oldChild
,
610 IXMLDOMNode
** outOldChild
)
616 static HRESULT WINAPI
xmlnode_removeChild(
618 IXMLDOMNode
* childNode
,
619 IXMLDOMNode
** oldChild
)
621 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
622 xmlNode
*ancestor
, *child_node_ptr
;
626 TRACE("%p->(%p, %p)\n", This
, childNode
, oldChild
);
631 if(!childNode
) return E_INVALIDARG
;
633 hr
= IXMLDOMNode_QueryInterface(childNode
, &IID_IXMLDOMNode
, (LPVOID
)&child
);
637 child_node_ptr
= ancestor
= impl_from_IXMLDOMNode(child
)->node
;
638 while(ancestor
->parent
)
640 if(ancestor
->parent
== This
->node
)
642 ancestor
= ancestor
->parent
;
644 if(!ancestor
->parent
)
646 WARN("childNode %p is not a child of %p\n", childNode
, iface
);
647 IXMLDOMNode_Release(child
);
651 xmlUnlinkNode(child_node_ptr
);
653 IXMLDOMNode_Release(child
);
657 IXMLDOMNode_AddRef(childNode
);
658 *oldChild
= childNode
;
664 static HRESULT WINAPI
xmlnode_appendChild(
666 IXMLDOMNode
* newChild
,
667 IXMLDOMNode
** outNewChild
)
669 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
674 TRACE("(%p)->(%p,%p)\n", This
, newChild
, outNewChild
);
676 hr
= IXMLDOMNode_get_nodeType(newChild
, &type
);
677 if(FAILED(hr
) || type
== NODE_ATTRIBUTE
) {
678 if(outNewChild
) *outNewChild
= NULL
;
683 return IXMLDOMNode_insertBefore(iface
, newChild
, var
, outNewChild
);
686 static HRESULT WINAPI
xmlnode_hasChildNodes(
688 VARIANT_BOOL
* hasChild
)
690 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
696 if (!This
->node
->children
)
698 *hasChild
= VARIANT_FALSE
;
702 *hasChild
= VARIANT_TRUE
;
706 static HRESULT WINAPI
xmlnode_get_ownerDocument(
708 IXMLDOMDocument
** DOMDocument
)
710 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
712 TRACE("%p (%p)\n", This
, DOMDocument
);
714 return DOMDocument_create_from_xmldoc(This
->node
->doc
, (IXMLDOMDocument2
**)DOMDocument
);
717 static HRESULT WINAPI
xmlnode_cloneNode(
720 IXMLDOMNode
** cloneRoot
)
722 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
723 xmlNodePtr pClone
= NULL
;
724 IXMLDOMNode
*pNode
= NULL
;
726 TRACE("%p (%d)\n", This
, deep
);
731 pClone
= xmlCopyNode(This
->node
, deep
? 1 : 2);
734 pClone
->doc
= This
->node
->doc
;
736 pNode
= create_node(pClone
);
739 ERR("Copy failed\n");
747 ERR("Copy failed\n");
754 static HRESULT WINAPI
xmlnode_get_nodeTypeString(
758 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
761 TRACE("%p\n", This
);
769 switch( This
->node
->type
)
771 case XML_ATTRIBUTE_NODE
:
772 str
= (const xmlChar
*) "attribute";
774 case XML_CDATA_SECTION_NODE
:
775 str
= (const xmlChar
*) "cdatasection";
777 case XML_COMMENT_NODE
:
778 str
= (const xmlChar
*) "comment";
780 case XML_DOCUMENT_NODE
:
781 str
= (const xmlChar
*) "document";
783 case XML_DOCUMENT_FRAG_NODE
:
784 str
= (const xmlChar
*) "documentfragment";
786 case XML_ELEMENT_NODE
:
787 str
= (const xmlChar
*) "element";
789 case XML_ENTITY_NODE
:
790 str
= (const xmlChar
*) "entity";
792 case XML_ENTITY_REF_NODE
:
793 str
= (const xmlChar
*) "entityreference";
795 case XML_NOTATION_NODE
:
796 str
= (const xmlChar
*) "notation";
799 str
= (const xmlChar
*) "processinginstruction";
802 str
= (const xmlChar
*) "text";
805 FIXME("nodeName not mapped correctly (%d)\n", This
->node
->type
);
806 str
= This
->node
->name
;
810 *xmlnodeType
= bstr_from_xmlChar( str
);
817 static HRESULT WINAPI
xmlnode_get_text(
821 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
829 switch(This
->node
->type
)
831 case XML_ELEMENT_NODE
:
832 case XML_ATTRIBUTE_NODE
:
834 xmlNodePtr child
= This
->node
->children
;
835 if ( child
&& child
->type
== XML_TEXT_NODE
)
836 str
= bstr_from_xmlChar( child
->content
);
841 case XML_CDATA_SECTION_NODE
:
843 case XML_COMMENT_NODE
:
844 str
= bstr_from_xmlChar( This
->node
->content
);
848 FIXME("Unhandled node type %d\n", This
->node
->type
);
851 /* Always return a string. */
852 if (!str
) str
= SysAllocStringLen( NULL
, 0 );
854 TRACE("%p %s\n", This
, debugstr_w(str
) );
860 static HRESULT WINAPI
xmlnode_put_text(
864 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
869 switch(This
->node
->type
)
871 case XML_DOCUMENT_NODE
:
877 str
= xmlChar_from_wchar((WCHAR
*)text
);
879 /* Escape the string. */
880 str
= xmlEncodeEntitiesReentrant(This
->node
->doc
, str
);
881 str
= xmlEncodeSpecialChars(This
->node
->doc
, str
);
883 xmlNodeSetContent(This
->node
, str
);
889 static HRESULT WINAPI
xmlnode_get_specified(
891 VARIANT_BOOL
* isSpecified
)
897 static HRESULT WINAPI
xmlnode_get_definition(
899 IXMLDOMNode
** definitionNode
)
905 static HRESULT WINAPI
xmlnode_get_nodeTypedValue(
909 FIXME("ignoring data type\n");
910 return xmlnode_get_nodeValue(iface
, typedValue
);
913 static HRESULT WINAPI
xmlnode_put_nodeTypedValue(
921 static HRESULT WINAPI
xmlnode_get_dataType(
923 VARIANT
* dataTypeName
)
925 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
928 TRACE("iface %p\n", iface
);
933 /* Attribute, CDATA Section, Comment, Document, Document Fragment,
934 Entity, Notation, PI, and Text Node are non-typed. */
935 V_BSTR(dataTypeName
) = NULL
;
936 V_VT(dataTypeName
) = VT_NULL
;
938 switch ( This
->node
->type
)
940 case XML_ELEMENT_NODE
:
941 pVal
= xmlGetNsProp(This
->node
, (xmlChar
*)"dt",
942 (xmlChar
*)"urn:schemas-microsoft-com:datatypes");
945 V_VT(dataTypeName
) = VT_BSTR
;
946 V_BSTR(dataTypeName
) = bstr_from_xmlChar( pVal
);
950 case XML_ENTITY_REF_NODE
:
951 FIXME("XML_ENTITY_REF_NODE should return a valid value.\n");
954 TRACE("Type %d returning NULL\n", This
->node
->type
);
957 /* non-typed nodes return S_FALSE */
958 if(V_VT(dataTypeName
) == VT_NULL
)
966 static HRESULT WINAPI
xmlnode_put_dataType(
970 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
973 TRACE("iface %p\n", iface
);
975 if(dataTypeName
== NULL
)
978 /* An example of this is. The Text in the node needs to be a 0 or 1 for a boolean type.
979 This applies to changing types (string->bool) or setting a new one
981 FIXME("Need to Validate the data before allowing a type to be set.\n");
983 /* Check all supported types. */
984 if(lstrcmpiW(dataTypeName
,szString
) == 0 ||
985 lstrcmpiW(dataTypeName
,szNumber
) == 0 ||
986 lstrcmpiW(dataTypeName
,szUUID
) == 0 ||
987 lstrcmpiW(dataTypeName
,szInt
) == 0 ||
988 lstrcmpiW(dataTypeName
,szI4
) == 0 ||
989 lstrcmpiW(dataTypeName
,szFixed
) == 0 ||
990 lstrcmpiW(dataTypeName
,szBoolean
) == 0 ||
991 lstrcmpiW(dataTypeName
,szDateTime
) == 0 ||
992 lstrcmpiW(dataTypeName
,szDateTimeTZ
) == 0 ||
993 lstrcmpiW(dataTypeName
,szDate
) == 0 ||
994 lstrcmpiW(dataTypeName
,szTime
) == 0 ||
995 lstrcmpiW(dataTypeName
,szTimeTZ
) == 0 ||
996 lstrcmpiW(dataTypeName
,szI1
) == 0 ||
997 lstrcmpiW(dataTypeName
,szI2
) == 0 ||
998 lstrcmpiW(dataTypeName
,szIU1
) == 0 ||
999 lstrcmpiW(dataTypeName
,szIU2
) == 0 ||
1000 lstrcmpiW(dataTypeName
,szIU4
) == 0 ||
1001 lstrcmpiW(dataTypeName
,szR4
) == 0 ||
1002 lstrcmpiW(dataTypeName
,szR8
) == 0 ||
1003 lstrcmpiW(dataTypeName
,szFloat
) == 0 ||
1004 lstrcmpiW(dataTypeName
,szBinHex
) == 0 ||
1005 lstrcmpiW(dataTypeName
,szBinBase64
) == 0)
1007 xmlNsPtr pNS
= NULL
;
1008 xmlAttrPtr pAttr
= NULL
;
1009 xmlChar
* str
= xmlChar_from_wchar((WCHAR
*)dataTypeName
);
1011 pAttr
= xmlHasNsProp(This
->node
, (xmlChar
*)"dt",
1012 (xmlChar
*)"urn:schemas-microsoft-com:datatypes");
1015 pAttr
= xmlSetNsProp(This
->node
, pAttr
->ns
, (xmlChar
*)"dt", str
);
1021 pNS
= xmlNewNs(This
->node
, (xmlChar
*)"urn:schemas-microsoft-com:datatypes", (xmlChar
*)"dt");
1024 pAttr
= xmlNewNsProp(This
->node
, pNS
, (xmlChar
*)"dt", str
);
1027 xmlAddChild(This
->node
, (xmlNodePtr
)pAttr
);
1032 ERR("Failed to create Attribute\n");
1035 ERR("Failed to Create Namepsace\n");
1042 static BSTR
EnsureCorrectEOL(BSTR sInput
)
1044 static const WCHAR SZ_RETURN
[] = {'\n',0};
1045 static const WCHAR SZ_LINEFEED
[] = {'\r',0};
1051 nLen
= lstrlenW(sInput
);
1052 /* Count line endings */
1053 for(i
=0; i
< nLen
; i
++)
1055 if(sInput
[i
] == SZ_RETURN
[0])
1059 TRACE("len=%d, num=%d\n", nLen
, nNum
);
1061 /* Add linefeed as needed */
1065 sNew
= SysAllocStringLen(NULL
, nLen
+ nNum
+1);
1066 for(i
=0; i
< nLen
; i
++)
1068 if(sInput
[i
] == SZ_RETURN
[0])
1070 sNew
[i
+nPlace
] = SZ_LINEFEED
[0];
1073 sNew
[i
+nPlace
] = sInput
[i
];
1076 SysFreeString(sInput
);
1083 TRACE("len %d\n", lstrlenW(sNew
));
1089 * We are trying to replicate the same behaviour as msxml by converting
1090 * line endings to \r\n and using idents as \t. The problem is that msxml
1091 * only formats nodes that have a line ending. Using libxml we cannot
1092 * reproduce behaviour exactly.
1095 static HRESULT WINAPI
xmlnode_get_xml(
1099 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1100 xmlBufferPtr pXmlBuf
;
1103 TRACE("iface %p %d\n", iface
, This
->node
->type
);
1106 return E_INVALIDARG
;
1110 pXmlBuf
= xmlBufferCreate();
1113 nSize
= xmlNodeDump(pXmlBuf
, This
->node
->doc
, This
->node
, 0, 1);
1116 const xmlChar
*pContent
;
1119 /* Attribute Nodes return a space in front of their name */
1120 pContent
= xmlBufferContent(pXmlBuf
);
1121 if( ((char*)pContent
)[0] == ' ')
1122 bstrContent
= bstr_from_xmlChar(pContent
+1);
1124 bstrContent
= bstr_from_xmlChar(pContent
);
1126 *xmlString
= This
->node
->type
== XML_ELEMENT_NODE
? EnsureCorrectEOL(bstrContent
) : bstrContent
;
1129 xmlBufferFree(pXmlBuf
);
1132 /* Always returns a string. */
1133 if(*xmlString
== NULL
) *xmlString
= SysAllocStringLen( NULL
, 0 );
1138 static HRESULT WINAPI
xmlnode_transformNode(
1140 IXMLDOMNode
* styleSheet
,
1144 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1145 xmlnode
*pStyleSheet
= NULL
;
1146 xsltStylesheetPtr xsltSS
= NULL
;
1147 xmlDocPtr result
= NULL
;
1150 TRACE("%p %p %p\n", This
, styleSheet
, xmlString
);
1152 if(!styleSheet
|| !xmlString
)
1153 return E_INVALIDARG
;
1157 if(IXMLDOMNode_QueryInterface(styleSheet
, &IID_IXMLDOMNode
, (LPVOID
)&ssNew
) == S_OK
)
1159 pStyleSheet
= impl_from_IXMLDOMNode( ssNew
);
1161 xsltSS
= xsltParseStylesheetDoc( pStyleSheet
->node
->doc
);
1164 result
= xsltApplyStylesheet(xsltSS
, This
->node
->doc
, NULL
);
1167 const xmlChar
*pContent
;
1169 if(result
->type
== XML_HTML_DOCUMENT_NODE
)
1171 xmlOutputBufferPtr pOutput
= xmlAllocOutputBuffer(NULL
);
1174 htmlDocContentDumpOutput(pOutput
, result
->doc
, NULL
);
1177 pContent
= xmlBufferContent(pOutput
->buffer
);
1178 *xmlString
= bstr_from_xmlChar(pContent
);
1181 xmlOutputBufferClose(pOutput
);
1186 xmlBufferPtr pXmlBuf
;
1189 pXmlBuf
= xmlBufferCreate();
1192 nSize
= xmlNodeDump(pXmlBuf
, NULL
, (xmlNodePtr
)result
, 0, 0);
1195 pContent
= xmlBufferContent(pXmlBuf
);
1196 *xmlString
= bstr_from_xmlChar(pContent
);
1198 xmlBufferFree(pXmlBuf
);
1205 IXMLDOMNode_Release(ssNew
);
1208 if(*xmlString
== NULL
)
1209 *xmlString
= SysAllocStringLen(NULL
, 0);
1213 FIXME("libxslt headers were not found at compile time\n");
1218 static HRESULT WINAPI
xmlnode_selectNodes(
1221 IXMLDOMNodeList
** resultList
)
1223 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1225 TRACE("%p %s %p\n", This
, debugstr_w(queryString
), resultList
);
1227 return queryresult_create( This
->node
, queryString
, resultList
);
1230 static HRESULT WINAPI
xmlnode_selectSingleNode(
1233 IXMLDOMNode
** resultNode
)
1235 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1236 IXMLDOMNodeList
*list
;
1239 TRACE("%p %s %p\n", This
, debugstr_w(queryString
), resultNode
);
1242 r
= IXMLDOMNode_selectNodes(iface
, queryString
, &list
);
1245 r
= IXMLDOMNodeList_nextNode(list
, resultNode
);
1246 IXMLDOMNodeList_Release(list
);
1251 static HRESULT WINAPI
xmlnode_get_parsed(
1253 VARIANT_BOOL
* isParsed
)
1259 static HRESULT WINAPI
xmlnode_get_namespaceURI(
1263 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1264 HRESULT hr
= S_FALSE
;
1267 TRACE("%p %p\n", This
, namespaceURI
);
1270 return E_INVALIDARG
;
1272 *namespaceURI
= NULL
;
1274 pNSList
= xmlGetNsList(This
->node
->doc
, This
->node
);
1277 *namespaceURI
= bstr_from_xmlChar( pNSList
[0]->href
);
1285 static HRESULT WINAPI
xmlnode_get_prefix(
1289 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1290 HRESULT hr
= S_FALSE
;
1293 TRACE("%p %p\n", This
, prefixString
);
1296 return E_INVALIDARG
;
1298 *prefixString
= NULL
;
1300 pNSList
= xmlGetNsList(This
->node
->doc
, This
->node
);
1303 *prefixString
= bstr_from_xmlChar( pNSList
[0]->prefix
);
1311 static HRESULT WINAPI
xmlnode_get_baseName(
1315 xmlnode
*This
= impl_from_IXMLDOMNode( iface
);
1317 HRESULT r
= S_FALSE
;
1319 TRACE("%p %p\n", This
, nameString
);
1322 return E_INVALIDARG
;
1324 switch ( This
->node
->type
)
1326 case XML_ELEMENT_NODE
:
1327 case XML_ATTRIBUTE_NODE
:
1328 str
= bstr_from_xmlChar( This
->node
->name
);
1334 ERR("Unhandled type %d\n", This
->node
->type
);
1338 TRACE("returning %08x str = %s\n", r
, debugstr_w( str
) );
1344 static HRESULT WINAPI
xmlnode_transformNodeToObject(
1346 IXMLDOMNode
* stylesheet
,
1347 VARIANT outputObject
)
1353 static const struct IXMLDOMNodeVtbl xmlnode_vtbl
=
1355 xmlnode_QueryInterface
,
1358 xmlnode_GetTypeInfoCount
,
1359 xmlnode_GetTypeInfo
,
1360 xmlnode_GetIDsOfNames
,
1362 xmlnode_get_nodeName
,
1363 xmlnode_get_nodeValue
,
1364 xmlnode_put_nodeValue
,
1365 xmlnode_get_nodeType
,
1366 xmlnode_get_parentNode
,
1367 xmlnode_get_childNodes
,
1368 xmlnode_get_firstChild
,
1369 xmlnode_get_lastChild
,
1370 xmlnode_get_previousSibling
,
1371 xmlnode_get_nextSibling
,
1372 xmlnode_get_attributes
,
1373 xmlnode_insertBefore
,
1374 xmlnode_replaceChild
,
1375 xmlnode_removeChild
,
1376 xmlnode_appendChild
,
1377 xmlnode_hasChildNodes
,
1378 xmlnode_get_ownerDocument
,
1380 xmlnode_get_nodeTypeString
,
1383 xmlnode_get_specified
,
1384 xmlnode_get_definition
,
1385 xmlnode_get_nodeTypedValue
,
1386 xmlnode_put_nodeTypedValue
,
1387 xmlnode_get_dataType
,
1388 xmlnode_put_dataType
,
1390 xmlnode_transformNode
,
1391 xmlnode_selectNodes
,
1392 xmlnode_selectSingleNode
,
1394 xmlnode_get_namespaceURI
,
1396 xmlnode_get_baseName
,
1397 xmlnode_transformNodeToObject
,
1400 static HRESULT WINAPI
Internal_QueryInterface(
1405 xmlnode
*This
= impl_from_InternalUnknown( iface
);
1407 TRACE("%p %s %p\n", iface
, debugstr_guid(riid
), ppvObject
);
1410 if ( IsEqualGUID( riid
, &IID_IUnknown
))
1412 else if ( IsEqualGUID( riid
, &IID_IDispatch
) ||
1413 IsEqualGUID( riid
, &IID_IXMLDOMNode
) )
1414 *ppvObject
= &This
->lpVtbl
;
1417 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
1419 return E_NOINTERFACE
;
1422 IUnknown_AddRef( (IUnknown
*)*ppvObject
);
1427 static ULONG WINAPI
Internal_AddRef(
1430 xmlnode
*This
= impl_from_InternalUnknown( iface
);
1431 return InterlockedIncrement( &This
->ref
);
1434 static ULONG WINAPI
Internal_Release(
1437 xmlnode
*This
= impl_from_InternalUnknown( iface
);
1440 ref
= InterlockedDecrement( &This
->ref
);
1444 xmldoc_release( This
->node
->doc
);
1445 HeapFree( GetProcessHeap(), 0, This
);
1451 static const struct IUnknownVtbl internal_unk_vtbl
=
1453 Internal_QueryInterface
,
1458 IUnknown
*create_basic_node( xmlNodePtr node
, IUnknown
*pUnkOuter
)
1462 This
= HeapAlloc( GetProcessHeap(), 0, sizeof *This
);
1467 xmldoc_add_ref( node
->doc
);
1469 This
->lpVtbl
= &xmlnode_vtbl
;
1470 This
->lpInternalUnkVtbl
= &internal_unk_vtbl
;
1473 This
->pUnkOuter
= pUnkOuter
; /* Don't take a ref on outer Unknown */
1475 This
->pUnkOuter
= (IUnknown
*)&This
->lpInternalUnkVtbl
;
1480 return (IUnknown
*)&This
->lpInternalUnkVtbl
;
1483 IXMLDOMNode
*create_node( xmlNodePtr node
)
1492 TRACE("type %d\n", node
->type
);
1495 case XML_ELEMENT_NODE
:
1496 pUnk
= create_element( node
, NULL
);
1498 case XML_ATTRIBUTE_NODE
:
1499 pUnk
= create_attribute( node
);
1502 pUnk
= create_text( node
);
1504 case XML_CDATA_SECTION_NODE
:
1505 pUnk
= create_cdata( node
);
1507 case XML_COMMENT_NODE
:
1508 pUnk
= create_comment( node
);
1510 case XML_DOCUMENT_NODE
:
1511 pUnk
= create_domdoc( node
);
1514 FIXME("only creating basic node for type %d\n", node
->type
);
1515 pUnk
= create_basic_node( node
, NULL
);
1518 hr
= IUnknown_QueryInterface(pUnk
, &IID_IXMLDOMNode
, (LPVOID
*)&ret
);
1519 IUnknown_Release(pUnk
);
1520 if(FAILED(hr
)) return NULL
;