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)
612 xmlnode *This = impl_from_IXMLDOMNode( iface );
613 xmlNode *old_child_ptr, *new_child_ptr;
614 xmlDocPtr leaving_doc;
615 xmlNode *my_ancestor;
616 IXMLDOMNode *realOldChild;
619 TRACE("%p->(%p,%p,%p)\n",This,newChild,oldChild,outOldChild);
621 /* Do not believe any documentation telling that newChild == NULL
622 means removal. It does certainly *not* apply to msxml3! */
623 if(!newChild || !oldChild)
629 hr = IXMLDOMNode_QueryInterface(oldChild,&IID_IXMLDOMNode,(LPVOID*)&realOldChild);
633 old_child_ptr = impl_from_IXMLDOMNode(realOldChild)->node;
634 IXMLDOMNode_Release(realOldChild);
635 if(old_child_ptr->parent != This->node)
637 WARN("childNode %p is not a child of %p\n", oldChild, iface);
641 new_child_ptr = impl_from_IXMLDOMNode(newChild)->node;
642 my_ancestor = This->node;
645 if(my_ancestor == new_child_ptr)
647 WARN("tried to create loop\n");
650 my_ancestor = my_ancestor->parent;
653 leaving_doc = new_child_ptr->doc;
654 xmldoc_add_ref(old_child_ptr->doc);
655 xmlReplaceNode(old_child_ptr, new_child_ptr);
656 xmldoc_release(leaving_doc);
660 IXMLDOMNode_AddRef(oldChild);
661 *outOldChild = oldChild;
667 static HRESULT WINAPI xmlnode_removeChild(
669 IXMLDOMNode* childNode,
670 IXMLDOMNode** oldChild)
672 xmlnode *This = impl_from_IXMLDOMNode( iface );
673 xmlNode *child_node_ptr;
677 TRACE("%p->(%p, %p)\n", This, childNode, oldChild);
679 if(!childNode) return E_INVALIDARG;
684 hr = IXMLDOMNode_QueryInterface(childNode, &IID_IXMLDOMNode, (LPVOID)&child);
688 child_node_ptr = impl_from_IXMLDOMNode(child)->node;
689 if(child_node_ptr->parent != This->node)
691 WARN("childNode %p is not a child of %p\n", childNode, iface);
692 IXMLDOMNode_Release(child);
696 xmlUnlinkNode(child_node_ptr);
698 IXMLDOMNode_Release(child);
702 IXMLDOMNode_AddRef(childNode);
703 *oldChild = childNode;
709 static HRESULT WINAPI xmlnode_appendChild(
711 IXMLDOMNode* newChild,
712 IXMLDOMNode** outNewChild)
714 xmlnode *This = impl_from_IXMLDOMNode( iface );
719 TRACE("(%p)->(%p,%p)\n", This, newChild, outNewChild);
721 hr = IXMLDOMNode_get_nodeType(newChild, &type);
722 if(FAILED(hr) || type == NODE_ATTRIBUTE) {
723 if(outNewChild) *outNewChild = NULL;
728 return IXMLDOMNode_insertBefore(iface, newChild, var, outNewChild);
731 static HRESULT WINAPI xmlnode_hasChildNodes(
733 VARIANT_BOOL* hasChild)
735 xmlnode *This = impl_from_IXMLDOMNode( iface );
741 if (!This->node->children)
743 *hasChild = VARIANT_FALSE;
747 *hasChild = VARIANT_TRUE;
751 static HRESULT WINAPI xmlnode_get_ownerDocument(
753 IXMLDOMDocument** DOMDocument)
755 xmlnode *This = impl_from_IXMLDOMNode( iface );
757 TRACE("%p (%p)\n", This, DOMDocument);
759 return DOMDocument_create_from_xmldoc(This->node->doc, (IXMLDOMDocument2**)DOMDocument);
762 static HRESULT WINAPI xmlnode_cloneNode(
765 IXMLDOMNode** cloneRoot)
767 xmlnode *This = impl_from_IXMLDOMNode( iface );
768 xmlNodePtr pClone = NULL;
769 IXMLDOMNode *pNode = NULL;
771 TRACE("%p (%d)\n", This, deep);
776 pClone = xmlCopyNode(This->node, deep ? 1 : 2);
779 pClone->doc = This->node->doc;
781 pNode = create_node(pClone);
784 ERR("Copy failed\n");
792 ERR("Copy failed\n");
799 static HRESULT WINAPI xmlnode_get_nodeTypeString(
803 xmlnode *This = impl_from_IXMLDOMNode( iface );
806 TRACE("%p\n", This );
814 switch( This->node->type )
816 case XML_ATTRIBUTE_NODE:
817 str = (const xmlChar*) "attribute";
819 case XML_CDATA_SECTION_NODE:
820 str = (const xmlChar*) "cdatasection";
822 case XML_COMMENT_NODE:
823 str = (const xmlChar*) "comment";
825 case XML_DOCUMENT_NODE:
826 str = (const xmlChar*) "document";
828 case XML_DOCUMENT_FRAG_NODE:
829 str = (const xmlChar*) "documentfragment";
831 case XML_ELEMENT_NODE:
832 str = (const xmlChar*) "element";
834 case XML_ENTITY_NODE:
835 str = (const xmlChar*) "entity";
837 case XML_ENTITY_REF_NODE:
838 str = (const xmlChar*) "entityreference";
840 case XML_NOTATION_NODE:
841 str = (const xmlChar*) "notation";
844 str = (const xmlChar*) "processinginstruction";
847 str = (const xmlChar*) "text";
850 FIXME("Unknown node type (%d)\n", This->node->type);
851 str = This->node->name;
855 *xmlnodeType = bstr_from_xmlChar( str );
862 static HRESULT WINAPI xmlnode_get_text(
866 xmlnode *This = impl_from_IXMLDOMNode( iface );
874 switch(This->node->type)
876 case XML_ELEMENT_NODE:
877 case XML_ATTRIBUTE_NODE:
879 xmlNodePtr child = This->node->children;
880 if ( child && child->type == XML_TEXT_NODE )
881 str = bstr_from_xmlChar( child->content );
886 case XML_CDATA_SECTION_NODE:
888 case XML_COMMENT_NODE:
889 str = bstr_from_xmlChar( This->node->content );
893 FIXME("Unhandled node type %d\n", This->node->type);
896 /* Always return a string. */
897 if (!str) str = SysAllocStringLen( NULL, 0 );
899 TRACE("%p %s\n", This, debugstr_w(str) );
905 static HRESULT WINAPI xmlnode_put_text(
909 xmlnode *This = impl_from_IXMLDOMNode( iface );
914 switch(This->node->type)
916 case XML_DOCUMENT_NODE:
922 str = xmlChar_from_wchar((WCHAR*)text);
924 /* Escape the string. */
925 str = xmlEncodeEntitiesReentrant(This->node->doc, str);
926 str = xmlEncodeSpecialChars(This->node->doc, str);
928 xmlNodeSetContent(This->node, str);
934 static HRESULT WINAPI xmlnode_get_specified(
936 VARIANT_BOOL* isSpecified)
942 static HRESULT WINAPI xmlnode_get_definition(
944 IXMLDOMNode** definitionNode)
950 static HRESULT WINAPI xmlnode_get_nodeTypedValue(
954 FIXME("ignoring data type\n");
955 return xmlnode_get_nodeValue(iface, typedValue);
958 static HRESULT WINAPI xmlnode_put_nodeTypedValue(
966 static HRESULT WINAPI xmlnode_get_dataType(
968 VARIANT* dataTypeName)
970 xmlnode *This = impl_from_IXMLDOMNode( iface );
973 TRACE("iface %p\n", iface);
978 /* Attribute, CDATA Section, Comment, Document, Document Fragment,
979 Entity, Notation, PI, and Text Node are non-typed. */
980 V_BSTR(dataTypeName) = NULL;
981 V_VT(dataTypeName) = VT_NULL;
983 switch ( This->node->type )
985 case XML_ELEMENT_NODE:
986 pVal = xmlGetNsProp(This->node, (xmlChar*)"dt",
987 (xmlChar*)"urn:schemas-microsoft-com:datatypes");
990 V_VT(dataTypeName) = VT_BSTR;
991 V_BSTR(dataTypeName) = bstr_from_xmlChar( pVal );
995 case XML_ENTITY_REF_NODE:
996 FIXME("XML_ENTITY_REF_NODE should return a valid value.\n");
999 TRACE("Type %d returning NULL\n", This->node->type);
1002 /* non-typed nodes return S_FALSE */
1003 if(V_VT(dataTypeName) == VT_NULL)
1011 static HRESULT WINAPI xmlnode_put_dataType(
1015 xmlnode *This = impl_from_IXMLDOMNode( iface );
1016 HRESULT hr = E_FAIL;
1018 TRACE("iface %p\n", iface);
1020 if(dataTypeName == NULL)
1021 return E_INVALIDARG;
1023 /* An example of this is. The Text in the node needs to be a 0 or 1 for a boolean type.
1024 This applies to changing types (string->bool) or setting a new one
1026 FIXME("Need to Validate the data before allowing a type to be set.\n");
1028 /* Check all supported types. */
1029 if(lstrcmpiW(dataTypeName,szString) == 0 ||
1030 lstrcmpiW(dataTypeName,szNumber) == 0 ||
1031 lstrcmpiW(dataTypeName,szUUID) == 0 ||
1032 lstrcmpiW(dataTypeName,szInt) == 0 ||
1033 lstrcmpiW(dataTypeName,szI4) == 0 ||
1034 lstrcmpiW(dataTypeName,szFixed) == 0 ||
1035 lstrcmpiW(dataTypeName,szBoolean) == 0 ||
1036 lstrcmpiW(dataTypeName,szDateTime) == 0 ||
1037 lstrcmpiW(dataTypeName,szDateTimeTZ) == 0 ||
1038 lstrcmpiW(dataTypeName,szDate) == 0 ||
1039 lstrcmpiW(dataTypeName,szTime) == 0 ||
1040 lstrcmpiW(dataTypeName,szTimeTZ) == 0 ||
1041 lstrcmpiW(dataTypeName,szI1) == 0 ||
1042 lstrcmpiW(dataTypeName,szI2) == 0 ||
1043 lstrcmpiW(dataTypeName,szIU1) == 0 ||
1044 lstrcmpiW(dataTypeName,szIU2) == 0 ||
1045 lstrcmpiW(dataTypeName,szIU4) == 0 ||
1046 lstrcmpiW(dataTypeName,szR4) == 0 ||
1047 lstrcmpiW(dataTypeName,szR8) == 0 ||
1048 lstrcmpiW(dataTypeName,szFloat) == 0 ||
1049 lstrcmpiW(dataTypeName,szBinHex) == 0 ||
1050 lstrcmpiW(dataTypeName,szBinBase64) == 0)
1052 xmlNsPtr pNS = NULL;
1053 xmlAttrPtr pAttr = NULL;
1054 xmlChar* str = xmlChar_from_wchar((WCHAR*)dataTypeName);
1056 pAttr = xmlHasNsProp(This->node, (xmlChar*)"dt",
1057 (xmlChar*)"urn:schemas-microsoft-com:datatypes");
1060 pAttr = xmlSetNsProp(This->node, pAttr->ns, (xmlChar*)"dt", str);
1066 pNS = xmlNewNs(This->node, (xmlChar*)"urn:schemas-microsoft-com:datatypes", (xmlChar*)"dt");
1069 pAttr = xmlNewNsProp(This->node, pNS, (xmlChar*)"dt", str);
1072 xmlAddChild(This->node, (xmlNodePtr)pAttr);
1077 ERR("Failed to create Attribute\n");
1080 ERR("Failed to Create Namepsace\n");
1087 static BSTR EnsureCorrectEOL(BSTR sInput)
1089 static const WCHAR SZ_RETURN[] = {'\n',0};
1090 static const WCHAR SZ_LINEFEED[] = {'\r',0};
1096 nLen = lstrlenW(sInput);
1097 /* Count line endings */
1098 for(i=0; i < nLen; i++)
1100 if(sInput[i] == SZ_RETURN[0])
1104 TRACE("len=%d, num=%d\n", nLen, nNum);
1106 /* Add linefeed as needed */
1110 sNew = SysAllocStringLen(NULL, nLen + nNum+1);
1111 for(i=0; i < nLen; i++)
1113 if(sInput[i] == SZ_RETURN[0])
1115 sNew[i+nPlace] = SZ_LINEFEED[0];
1118 sNew[i+nPlace] = sInput[i];
1121 SysFreeString(sInput);
1128 TRACE("len %d\n", lstrlenW(sNew));
1133 /* Removes encoding information and last character (nullbyte) */
1134 static BSTR EnsureNoEncoding(BSTR sInput)
1136 static const WCHAR wszEncoding[] = {'e','n','c','o','d','i','n','g','='};
1141 while(*pBeg != '\n' && memcmp(pBeg, wszEncoding, sizeof(wszEncoding)))
1146 SysReAllocStringLen(&sInput, sInput, SysStringLen(sInput)-1);
1151 pEnd = pBeg + sizeof(wszEncoding)/sizeof(WCHAR) + 2;
1152 while(*pEnd != '\"') pEnd++;
1155 sNew = SysAllocStringLen(NULL,
1156 pBeg-sInput + SysStringLen(sInput)-(pEnd-sInput)-1);
1157 memcpy(sNew, sInput, (pBeg-sInput)*sizeof(WCHAR));
1158 memcpy(&sNew[pBeg-sInput], pEnd, (SysStringLen(sInput)-(pEnd-sInput)-1)*sizeof(WCHAR));
1160 SysFreeString(sInput);
1165 * We are trying to replicate the same behaviour as msxml by converting
1166 * line endings to \r\n and using idents as \t. The problem is that msxml
1167 * only formats nodes that have a line ending. Using libxml we cannot
1168 * reproduce behaviour exactly.
1171 static HRESULT WINAPI xmlnode_get_xml(
1175 xmlnode *This = impl_from_IXMLDOMNode( iface );
1176 xmlBufferPtr pXmlBuf;
1179 TRACE("iface %p %d\n", iface, This->node->type);
1182 return E_INVALIDARG;
1186 pXmlBuf = xmlBufferCreate();
1189 nSize = xmlNodeDump(pXmlBuf, This->node->doc, This->node, 0, 1);
1192 const xmlChar *pContent;
1195 /* Attribute Nodes return a space in front of their name */
1196 pContent = xmlBufferContent(pXmlBuf);
1197 if( ((char*)pContent)[0] == ' ')
1198 bstrContent = bstr_from_xmlChar(pContent+1);
1200 bstrContent = bstr_from_xmlChar(pContent);
1202 switch(This->node->type)
1204 case XML_ELEMENT_NODE:
1205 *xmlString = EnsureCorrectEOL(bstrContent);
1207 case XML_DOCUMENT_NODE:
1208 *xmlString = EnsureCorrectEOL(bstrContent);
1209 *xmlString = EnsureNoEncoding(*xmlString);
1212 *xmlString = bstrContent;
1216 xmlBufferFree(pXmlBuf);
1219 /* Always returns a string. */
1220 if(*xmlString == NULL) *xmlString = SysAllocStringLen( NULL, 0 );
1225 static HRESULT WINAPI xmlnode_transformNode(
1227 IXMLDOMNode* styleSheet,
1231 xmlnode *This = impl_from_IXMLDOMNode( iface );
1232 xmlnode *pStyleSheet = NULL;
1233 xsltStylesheetPtr xsltSS = NULL;
1234 xmlDocPtr result = NULL;
1237 TRACE("%p %p %p\n", This, styleSheet, xmlString);
1239 if(!styleSheet || !xmlString)
1240 return E_INVALIDARG;
1244 if(IXMLDOMNode_QueryInterface(styleSheet, &IID_IXMLDOMNode, (LPVOID)&ssNew) == S_OK)
1246 pStyleSheet = impl_from_IXMLDOMNode( ssNew );
1248 xsltSS = xsltParseStylesheetDoc( pStyleSheet->node->doc);
1251 result = xsltApplyStylesheet(xsltSS, This->node->doc, NULL);
1254 const xmlChar *pContent;
1256 if(result->type == XML_HTML_DOCUMENT_NODE)
1258 xmlOutputBufferPtr pOutput = xmlAllocOutputBuffer(NULL);
1261 htmlDocContentDumpOutput(pOutput, result->doc, NULL);
1264 pContent = xmlBufferContent(pOutput->buffer);
1265 *xmlString = bstr_from_xmlChar(pContent);
1268 xmlOutputBufferClose(pOutput);
1273 xmlBufferPtr pXmlBuf;
1276 pXmlBuf = xmlBufferCreate();
1279 nSize = xmlNodeDump(pXmlBuf, NULL, (xmlNodePtr)result, 0, 0);
1282 pContent = xmlBufferContent(pXmlBuf);
1283 *xmlString = bstr_from_xmlChar(pContent);
1285 xmlBufferFree(pXmlBuf);
1292 IXMLDOMNode_Release(ssNew);
1295 if(*xmlString == NULL)
1296 *xmlString = SysAllocStringLen(NULL, 0);
1300 FIXME("libxslt headers were not found at compile time\n");
1305 static HRESULT WINAPI xmlnode_selectNodes(
1308 IXMLDOMNodeList** resultList)
1310 xmlnode *This = impl_from_IXMLDOMNode( iface );
1312 TRACE("%p %s %p\n", This, debugstr_w(queryString), resultList );
1314 return queryresult_create( This->node, queryString, resultList );
1317 static HRESULT WINAPI xmlnode_selectSingleNode(
1320 IXMLDOMNode** resultNode)
1322 xmlnode *This = impl_from_IXMLDOMNode( iface );
1323 IXMLDOMNodeList *list;
1326 TRACE("%p %s %p\n", This, debugstr_w(queryString), resultNode );
1329 r = IXMLDOMNode_selectNodes(iface, queryString, &list);
1332 r = IXMLDOMNodeList_nextNode(list, resultNode);
1333 IXMLDOMNodeList_Release(list);
1338 static HRESULT WINAPI xmlnode_get_parsed(
1340 VARIANT_BOOL* isParsed)
1346 static HRESULT WINAPI xmlnode_get_namespaceURI(
1350 xmlnode *This = impl_from_IXMLDOMNode( iface );
1351 HRESULT hr = S_FALSE;
1354 TRACE("%p %p\n", This, namespaceURI );
1357 return E_INVALIDARG;
1359 *namespaceURI = NULL;
1361 pNSList = xmlGetNsList(This->node->doc, This->node);
1364 *namespaceURI = bstr_from_xmlChar( pNSList[0]->href );
1372 static HRESULT WINAPI xmlnode_get_prefix(
1376 xmlnode *This = impl_from_IXMLDOMNode( iface );
1377 HRESULT hr = S_FALSE;
1380 TRACE("%p %p\n", This, prefixString );
1383 return E_INVALIDARG;
1385 *prefixString = NULL;
1387 pNSList = xmlGetNsList(This->node->doc, This->node);
1390 *prefixString = bstr_from_xmlChar( pNSList[0]->prefix );
1398 static HRESULT WINAPI xmlnode_get_baseName(
1402 xmlnode *This = impl_from_IXMLDOMNode( iface );
1404 HRESULT r = S_FALSE;
1406 TRACE("%p %p\n", This, nameString );
1409 return E_INVALIDARG;
1411 switch ( This->node->type )
1413 case XML_ELEMENT_NODE:
1414 case XML_ATTRIBUTE_NODE:
1415 str = bstr_from_xmlChar( This->node->name );
1421 ERR("Unhandled type %d\n", This->node->type );
1425 TRACE("returning %08x str = %s\n", r, debugstr_w( str ) );
1431 static HRESULT WINAPI xmlnode_transformNodeToObject(
1433 IXMLDOMNode* stylesheet,
1434 VARIANT outputObject)
1440 static const struct IXMLDOMNodeVtbl xmlnode_vtbl =
1442 xmlnode_QueryInterface,
1445 xmlnode_GetTypeInfoCount,
1446 xmlnode_GetTypeInfo,
1447 xmlnode_GetIDsOfNames,
1449 xmlnode_get_nodeName,
1450 xmlnode_get_nodeValue,
1451 xmlnode_put_nodeValue,
1452 xmlnode_get_nodeType,
1453 xmlnode_get_parentNode,
1454 xmlnode_get_childNodes,
1455 xmlnode_get_firstChild,
1456 xmlnode_get_lastChild,
1457 xmlnode_get_previousSibling,
1458 xmlnode_get_nextSibling,
1459 xmlnode_get_attributes,
1460 xmlnode_insertBefore,
1461 xmlnode_replaceChild,
1462 xmlnode_removeChild,
1463 xmlnode_appendChild,
1464 xmlnode_hasChildNodes,
1465 xmlnode_get_ownerDocument,
1467 xmlnode_get_nodeTypeString,
1470 xmlnode_get_specified,
1471 xmlnode_get_definition,
1472 xmlnode_get_nodeTypedValue,
1473 xmlnode_put_nodeTypedValue,
1474 xmlnode_get_dataType,
1475 xmlnode_put_dataType,
1477 xmlnode_transformNode,
1478 xmlnode_selectNodes,
1479 xmlnode_selectSingleNode,
1481 xmlnode_get_namespaceURI,
1483 xmlnode_get_baseName,
1484 xmlnode_transformNodeToObject,
1487 static HRESULT WINAPI Internal_QueryInterface(
1492 xmlnode *This = impl_from_InternalUnknown( iface );
1494 TRACE("%p %s %p\n", iface, debugstr_guid(riid), ppvObject);
1497 if ( IsEqualGUID( riid, &IID_IUnknown ))
1499 else if ( IsEqualGUID( riid, &IID_IDispatch ) ||
1500 IsEqualGUID( riid, &IID_IXMLDOMNode ) )
1501 *ppvObject = &This->lpVtbl;
1504 FIXME("interface %s not implemented\n", debugstr_guid(riid));
1506 return E_NOINTERFACE;
1509 IUnknown_AddRef( (IUnknown*)*ppvObject );
1514 static ULONG WINAPI Internal_AddRef(
1517 xmlnode *This = impl_from_InternalUnknown( iface );
1518 return InterlockedIncrement( &This->ref );
1521 static ULONG WINAPI Internal_Release(
1524 xmlnode *This = impl_from_InternalUnknown( iface );
1527 ref = InterlockedDecrement( &This->ref );
1531 xmldoc_release( This->node->doc );
1532 HeapFree( GetProcessHeap(), 0, This );
1538 static const struct IUnknownVtbl internal_unk_vtbl =
1540 Internal_QueryInterface,
1545 IUnknown *create_basic_node( xmlNodePtr node, IUnknown *pUnkOuter )
1549 This = HeapAlloc( GetProcessHeap(), 0, sizeof *This );
1554 xmldoc_add_ref( node->doc );
1556 This->lpVtbl = &xmlnode_vtbl;
1557 This->lpInternalUnkVtbl = &internal_unk_vtbl;
1560 This->pUnkOuter = pUnkOuter; /* Don't take a ref on outer Unknown */
1562 This->pUnkOuter = (IUnknown *)&This->lpInternalUnkVtbl;
1567 return (IUnknown*)&This->lpInternalUnkVtbl;
1570 IXMLDOMNode *create_node( xmlNodePtr node )
1579 TRACE("type %d\n", node->type);
1582 case XML_ELEMENT_NODE:
1583 pUnk = create_element( node, NULL );
1585 case XML_ATTRIBUTE_NODE:
1586 pUnk = create_attribute( node );
1589 pUnk = create_text( node );
1591 case XML_CDATA_SECTION_NODE:
1592 pUnk = create_cdata( node );
1594 case XML_COMMENT_NODE:
1595 pUnk = create_comment( node );
1597 case XML_DOCUMENT_NODE:
1598 pUnk = create_domdoc( node );
1601 FIXME("only creating basic node for type %d\n", node->type);
1602 pUnk = create_basic_node( node, NULL );
1605 hr = IUnknown_QueryInterface(pUnk, &IID_IXMLDOMNode, (LPVOID*)&ret);
1606 IUnknown_Release(pUnk);
1607 if(FAILED(hr)) return NULL;