1766 lines
44 KiB
C
1766 lines
44 KiB
C
/*
|
|
* Node implementation
|
|
*
|
|
* Copyright 2005 Mike McCormack
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#define COBJMACROS
|
|
|
|
#include <stdarg.h>
|
|
#include <assert.h>
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "winuser.h"
|
|
#include "winnls.h"
|
|
#include "ole2.h"
|
|
#include "msxml2.h"
|
|
|
|
#include "msxml_private.h"
|
|
|
|
#ifdef HAVE_LIBXML2
|
|
# include <libxml/HTMLtree.h>
|
|
#endif
|
|
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(msxml);
|
|
|
|
#ifdef HAVE_LIBXML2
|
|
|
|
static const WCHAR szBinBase64[] = {'b','i','n','.','b','a','s','e','6','4',0};
|
|
static const WCHAR szString[] = {'s','t','r','i','n','g',0};
|
|
static const WCHAR szNumber[] = {'n','u','m','b','e','r',0};
|
|
static const WCHAR szInt[] = {'I','n','t',0};
|
|
static const WCHAR szFixed[] = {'F','i','x','e','d','.','1','4','.','4',0};
|
|
static const WCHAR szBoolean[] = {'B','o','o','l','e','a','n',0};
|
|
static const WCHAR szDateTime[] = {'d','a','t','e','T','i','m','e',0};
|
|
static const WCHAR szDateTimeTZ[] = {'d','a','t','e','T','i','m','e','.','t','z',0};
|
|
static const WCHAR szDate[] = {'D','a','t','e',0};
|
|
static const WCHAR szTime[] = {'T','i','m','e',0};
|
|
static const WCHAR szTimeTZ[] = {'T','i','m','e','.','t','z',0};
|
|
static const WCHAR szI1[] = {'i','1',0};
|
|
static const WCHAR szI2[] = {'i','2',0};
|
|
static const WCHAR szI4[] = {'i','4',0};
|
|
static const WCHAR szIU1[] = {'u','i','1',0};
|
|
static const WCHAR szIU2[] = {'u','i','2',0};
|
|
static const WCHAR szIU4[] = {'u','i','4',0};
|
|
static const WCHAR szR4[] = {'r','4',0};
|
|
static const WCHAR szR8[] = {'r','8',0};
|
|
static const WCHAR szFloat[] = {'f','l','o','a','t',0};
|
|
static const WCHAR szUUID[] = {'u','u','i','d',0};
|
|
static const WCHAR szBinHex[] = {'b','i','n','.','h','e','x',0};
|
|
|
|
xmlNodePtr xmlNodePtr_from_domnode( IXMLDOMNode *iface, xmlElementType type )
|
|
{
|
|
xmlnode *This;
|
|
|
|
if ( !iface )
|
|
return NULL;
|
|
This = impl_from_IXMLDOMNode( iface );
|
|
if ( !This->node )
|
|
return NULL;
|
|
if ( type && This->node->type != type )
|
|
return NULL;
|
|
return This->node;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_QueryInterface(
|
|
IXMLDOMNode *iface,
|
|
REFIID riid,
|
|
void** ppvObject )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p %s %p\n", This, debugstr_guid(riid), ppvObject);
|
|
|
|
if(This->pUnkOuter)
|
|
return IUnknown_QueryInterface(This->pUnkOuter, riid, ppvObject);
|
|
|
|
if (IsEqualGUID(riid, &IID_IUnknown)) {
|
|
*ppvObject = iface;
|
|
}else if (IsEqualGUID( riid, &IID_IDispatch) ||
|
|
IsEqualGUID( riid, &IID_IXMLDOMNode)) {
|
|
*ppvObject = &This->lpVtbl;
|
|
}else {
|
|
FIXME("interface %s not implemented\n", debugstr_guid(riid));
|
|
*ppvObject = NULL;
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
IUnknown_AddRef( (IUnknown*)*ppvObject );
|
|
return S_OK;
|
|
}
|
|
|
|
static ULONG WINAPI xmlnode_AddRef(
|
|
IXMLDOMNode *iface )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
if(This->pUnkOuter)
|
|
return IUnknown_AddRef(This->pUnkOuter);
|
|
|
|
return InterlockedIncrement(&This->ref);
|
|
}
|
|
|
|
static ULONG WINAPI xmlnode_Release(
|
|
IXMLDOMNode *iface )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
LONG ref;
|
|
|
|
if(This->pUnkOuter)
|
|
return IUnknown_Release(This->pUnkOuter);
|
|
|
|
ref = InterlockedDecrement( &This->ref );
|
|
if(!ref) {
|
|
destroy_xmlnode(This);
|
|
HeapFree( GetProcessHeap(), 0, This );
|
|
}
|
|
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_GetTypeInfoCount(
|
|
IXMLDOMNode *iface,
|
|
UINT* pctinfo )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("(%p)->(%p)\n", This, pctinfo);
|
|
|
|
*pctinfo = 1;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_GetTypeInfo(
|
|
IXMLDOMNode *iface,
|
|
UINT iTInfo,
|
|
LCID lcid,
|
|
ITypeInfo** ppTInfo )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p)->(%u %u %p)\n", This, iTInfo, lcid, ppTInfo);
|
|
|
|
hr = get_typeinfo(IXMLDOMNode_tid, ppTInfo);
|
|
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_GetIDsOfNames(
|
|
IXMLDOMNode *iface,
|
|
REFIID riid,
|
|
LPOLESTR* rgszNames,
|
|
UINT cNames,
|
|
LCID lcid,
|
|
DISPID* rgDispId )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
ITypeInfo *typeinfo;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p)->(%s %p %u %u %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
|
|
lcid, rgDispId);
|
|
|
|
if(!rgszNames || cNames == 0 || !rgDispId)
|
|
return E_INVALIDARG;
|
|
|
|
hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
|
|
if(SUCCEEDED(hr))
|
|
{
|
|
hr = ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
|
|
ITypeInfo_Release(typeinfo);
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_Invoke(
|
|
IXMLDOMNode *iface,
|
|
DISPID dispIdMember,
|
|
REFIID riid,
|
|
LCID lcid,
|
|
WORD wFlags,
|
|
DISPPARAMS* pDispParams,
|
|
VARIANT* pVarResult,
|
|
EXCEPINFO* pExcepInfo,
|
|
UINT* puArgErr )
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
ITypeInfo *typeinfo;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
|
|
lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
|
|
|
|
hr = get_typeinfo(IXMLDOMNode_tid, &typeinfo);
|
|
if(SUCCEEDED(hr))
|
|
{
|
|
hr = ITypeInfo_Invoke(typeinfo, &(This->lpVtbl), dispIdMember, wFlags, pDispParams,
|
|
pVarResult, pExcepInfo, puArgErr);
|
|
ITypeInfo_Release(typeinfo);
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_nodeName(
|
|
IXMLDOMNode *iface,
|
|
BSTR* name)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
const xmlChar *str;
|
|
|
|
TRACE("%p\n", This );
|
|
|
|
if (!name)
|
|
return E_INVALIDARG;
|
|
|
|
if ( !This->node )
|
|
return E_FAIL;
|
|
|
|
switch( This->node->type )
|
|
{
|
|
case XML_CDATA_SECTION_NODE:
|
|
str = (const xmlChar*) "#cdata-section";
|
|
break;
|
|
case XML_COMMENT_NODE:
|
|
str = (const xmlChar*) "#comment";
|
|
break;
|
|
case XML_DOCUMENT_FRAG_NODE:
|
|
str = (const xmlChar*) "#document-fragment";
|
|
break;
|
|
case XML_TEXT_NODE:
|
|
str = (const xmlChar*) "#text";
|
|
break;
|
|
case XML_DOCUMENT_NODE:
|
|
str = (const xmlChar*) "#document";
|
|
break;
|
|
case XML_ATTRIBUTE_NODE:
|
|
case XML_ELEMENT_NODE:
|
|
case XML_PI_NODE:
|
|
str = This->node->name;
|
|
break;
|
|
default:
|
|
FIXME("nodeName not mapped correctly (%d)\n", This->node->type);
|
|
str = This->node->name;
|
|
break;
|
|
}
|
|
|
|
*name = bstr_from_xmlChar( str );
|
|
if (!*name)
|
|
return S_FALSE;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_nodeValue(
|
|
IXMLDOMNode *iface,
|
|
VARIANT* value)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
HRESULT r = S_FALSE;
|
|
|
|
TRACE("%p %p\n", This, value);
|
|
|
|
if(!value)
|
|
return E_INVALIDARG;
|
|
|
|
V_BSTR(value) = NULL;
|
|
V_VT(value) = VT_NULL;
|
|
|
|
switch ( This->node->type )
|
|
{
|
|
case XML_CDATA_SECTION_NODE:
|
|
case XML_COMMENT_NODE:
|
|
case XML_PI_NODE:
|
|
case XML_ATTRIBUTE_NODE:
|
|
{
|
|
xmlChar *content = xmlNodeGetContent(This->node);
|
|
V_VT(value) = VT_BSTR;
|
|
V_BSTR(value) = bstr_from_xmlChar( content );
|
|
xmlFree(content);
|
|
r = S_OK;
|
|
break;
|
|
}
|
|
case XML_TEXT_NODE:
|
|
V_VT(value) = VT_BSTR;
|
|
V_BSTR(value) = bstr_from_xmlChar( This->node->content );
|
|
r = S_OK;
|
|
break;
|
|
case XML_ELEMENT_NODE:
|
|
case XML_DOCUMENT_NODE:
|
|
/* these seem to return NULL */
|
|
break;
|
|
|
|
default:
|
|
FIXME("node %p type %d\n", This, This->node->type);
|
|
}
|
|
|
|
TRACE("%p returned %s\n", This, debugstr_w( V_BSTR(value) ) );
|
|
|
|
return r;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_put_nodeValue(
|
|
IXMLDOMNode *iface,
|
|
VARIANT value)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
HRESULT hr;
|
|
xmlChar *str = NULL;
|
|
VARIANT string_value;
|
|
|
|
TRACE("%p type(%d)\n", This, This->node->type);
|
|
|
|
VariantInit(&string_value);
|
|
hr = VariantChangeType(&string_value, &value, 0, VT_BSTR);
|
|
if(FAILED(hr))
|
|
{
|
|
VariantClear(&string_value);
|
|
WARN("Couldn't convert to VT_BSTR\n");
|
|
return hr;
|
|
}
|
|
|
|
hr = S_FALSE;
|
|
/* Document, Document Fragment, Document Type, Element,
|
|
Entity, Entity Reference, Notation aren't supported. */
|
|
switch ( This->node->type )
|
|
{
|
|
case XML_ATTRIBUTE_NODE:
|
|
case XML_CDATA_SECTION_NODE:
|
|
case XML_COMMENT_NODE:
|
|
case XML_PI_NODE:
|
|
case XML_TEXT_NODE:
|
|
{
|
|
str = xmlChar_from_wchar(V_BSTR(&string_value));
|
|
xmlNodeSetContent(This->node, str);
|
|
HeapFree(GetProcessHeap(),0,str);
|
|
hr = S_OK;
|
|
break;
|
|
}
|
|
default:
|
|
/* Do nothing for unsupported types. */
|
|
break;
|
|
}
|
|
|
|
VariantClear(&string_value);
|
|
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_nodeType(
|
|
IXMLDOMNode *iface,
|
|
DOMNodeType* type)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p %p\n", This, type);
|
|
|
|
assert( (int)NODE_ELEMENT == (int)XML_ELEMENT_NODE );
|
|
assert( (int)NODE_NOTATION == (int)XML_NOTATION_NODE );
|
|
|
|
*type = This->node->type;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT get_node(
|
|
xmlnode *This,
|
|
const char *name,
|
|
xmlNodePtr node,
|
|
IXMLDOMNode **out )
|
|
{
|
|
TRACE("%p->%s %p\n", This, name, node );
|
|
|
|
if ( !out )
|
|
return E_INVALIDARG;
|
|
|
|
/* if we don't have a doc, use our parent. */
|
|
if(node && !node->doc && node->parent)
|
|
node->doc = node->parent->doc;
|
|
|
|
*out = create_node( node );
|
|
if (!*out)
|
|
return S_FALSE;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_parentNode(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode** parent)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
return get_node( This, "parent", This->node->parent, parent );
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_childNodes(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNodeList** childList)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p %p\n", This, childList );
|
|
|
|
if ( !childList )
|
|
return E_INVALIDARG;
|
|
|
|
*childList = create_children_nodelist(This->node);
|
|
if (*childList == NULL)
|
|
return E_OUTOFMEMORY;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_firstChild(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode** firstChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
return get_node( This, "firstChild", This->node->children, firstChild );
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_lastChild(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode** lastChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p\n", This );
|
|
|
|
if (!lastChild)
|
|
return E_INVALIDARG;
|
|
|
|
switch( This->node->type )
|
|
{
|
|
/* CDATASection, Comment, PI and Text Nodes do not support lastChild */
|
|
case XML_TEXT_NODE:
|
|
case XML_CDATA_SECTION_NODE:
|
|
case XML_PI_NODE:
|
|
case XML_COMMENT_NODE:
|
|
*lastChild = NULL;
|
|
return S_FALSE;
|
|
default:
|
|
return get_node( This, "lastChild", This->node->last, lastChild );
|
|
}
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_previousSibling(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode** previousSibling)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p\n", This );
|
|
|
|
if (!previousSibling)
|
|
return E_INVALIDARG;
|
|
|
|
switch( This->node->type )
|
|
{
|
|
/* Attribute, Document and Document Fragment Nodes do not support previousSibling */
|
|
case XML_DOCUMENT_NODE:
|
|
case XML_DOCUMENT_FRAG_NODE:
|
|
case XML_ATTRIBUTE_NODE:
|
|
*previousSibling = NULL;
|
|
return S_FALSE;
|
|
default:
|
|
return get_node( This, "previous", This->node->prev, previousSibling );
|
|
}
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_nextSibling(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode** nextSibling)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p\n", This );
|
|
|
|
if (!nextSibling)
|
|
return E_INVALIDARG;
|
|
|
|
switch( This->node->type )
|
|
{
|
|
/* Attribute, Document and Document Fragment Nodes do not support nextSibling */
|
|
case XML_DOCUMENT_NODE:
|
|
case XML_DOCUMENT_FRAG_NODE:
|
|
case XML_ATTRIBUTE_NODE:
|
|
*nextSibling = NULL;
|
|
return S_FALSE;
|
|
default:
|
|
return get_node( This, "next", This->node->next, nextSibling );
|
|
}
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_attributes(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNamedNodeMap** attributeMap)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
TRACE("%p\n", This);
|
|
|
|
if (!attributeMap)
|
|
return E_INVALIDARG;
|
|
|
|
switch( This->node->type )
|
|
{
|
|
/* Attribute, CDataSection, Comment, Documents, Documents Fragments,
|
|
Entity and Text Nodes does not support get_attributes */
|
|
case XML_ATTRIBUTE_NODE:
|
|
case XML_CDATA_SECTION_NODE:
|
|
case XML_COMMENT_NODE:
|
|
case XML_DOCUMENT_NODE:
|
|
case XML_DOCUMENT_FRAG_NODE:
|
|
case XML_ENTITY_NODE:
|
|
case XML_ENTITY_REF_NODE:
|
|
case XML_TEXT_NODE:
|
|
*attributeMap = NULL;
|
|
return S_FALSE;
|
|
default:
|
|
*attributeMap = create_nodemap( iface );
|
|
return S_OK;
|
|
}
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_insertBefore(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode* newChild,
|
|
VARIANT refChild,
|
|
IXMLDOMNode** outNewChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlNodePtr before_node, new_child_node;
|
|
IXMLDOMNode *before = NULL, *new;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p)->(%p,var,%p)\n",This,newChild,outNewChild);
|
|
|
|
if (!newChild)
|
|
return E_INVALIDARG;
|
|
|
|
switch(V_VT(&refChild))
|
|
{
|
|
case VT_EMPTY:
|
|
case VT_NULL:
|
|
break;
|
|
|
|
case VT_UNKNOWN:
|
|
hr = IUnknown_QueryInterface(V_UNKNOWN(&refChild), &IID_IXMLDOMNode, (LPVOID)&before);
|
|
if(FAILED(hr)) return hr;
|
|
break;
|
|
|
|
case VT_DISPATCH:
|
|
hr = IDispatch_QueryInterface(V_DISPATCH(&refChild), &IID_IXMLDOMNode, (LPVOID)&before);
|
|
if(FAILED(hr)) return hr;
|
|
break;
|
|
|
|
default:
|
|
FIXME("refChild var type %x\n", V_VT(&refChild));
|
|
return E_FAIL;
|
|
}
|
|
|
|
IXMLDOMNode_QueryInterface(newChild, &IID_IXMLDOMNode, (LPVOID)&new);
|
|
new_child_node = impl_from_IXMLDOMNode(new)->node;
|
|
TRACE("new_child_node %p This->node %p\n", new_child_node, This->node);
|
|
|
|
if(!new_child_node->parent)
|
|
if(xmldoc_remove_orphan(new_child_node->doc, new_child_node) != S_OK)
|
|
WARN("%p is not an orphan of %p\n", new_child_node, new_child_node->doc);
|
|
|
|
if(before)
|
|
{
|
|
before_node = impl_from_IXMLDOMNode(before)->node;
|
|
xmlAddPrevSibling(before_node, new_child_node);
|
|
IXMLDOMNode_Release(before);
|
|
}
|
|
else
|
|
{
|
|
xmlAddChild(This->node, new_child_node);
|
|
}
|
|
|
|
IXMLDOMNode_Release(new);
|
|
IXMLDOMNode_AddRef(newChild);
|
|
if(outNewChild)
|
|
*outNewChild = newChild;
|
|
|
|
TRACE("ret S_OK\n");
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_replaceChild(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode* newChild,
|
|
IXMLDOMNode* oldChild,
|
|
IXMLDOMNode** outOldChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlNode *old_child_ptr, *new_child_ptr;
|
|
xmlDocPtr leaving_doc;
|
|
xmlNode *my_ancestor;
|
|
IXMLDOMNode *realOldChild;
|
|
HRESULT hr;
|
|
|
|
TRACE("%p->(%p,%p,%p)\n",This,newChild,oldChild,outOldChild);
|
|
|
|
/* Do not believe any documentation telling that newChild == NULL
|
|
means removal. It does certainly *not* apply to msxml3! */
|
|
if(!newChild || !oldChild)
|
|
return E_INVALIDARG;
|
|
|
|
if(outOldChild)
|
|
*outOldChild = NULL;
|
|
|
|
hr = IXMLDOMNode_QueryInterface(oldChild,&IID_IXMLDOMNode,(LPVOID*)&realOldChild);
|
|
if(FAILED(hr))
|
|
return hr;
|
|
|
|
old_child_ptr = impl_from_IXMLDOMNode(realOldChild)->node;
|
|
IXMLDOMNode_Release(realOldChild);
|
|
if(old_child_ptr->parent != This->node)
|
|
{
|
|
WARN("childNode %p is not a child of %p\n", oldChild, iface);
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
new_child_ptr = impl_from_IXMLDOMNode(newChild)->node;
|
|
my_ancestor = This->node;
|
|
while(my_ancestor)
|
|
{
|
|
if(my_ancestor == new_child_ptr)
|
|
{
|
|
WARN("tried to create loop\n");
|
|
return E_FAIL;
|
|
}
|
|
my_ancestor = my_ancestor->parent;
|
|
}
|
|
|
|
if(!new_child_ptr->parent)
|
|
if(xmldoc_remove_orphan(new_child_ptr->doc, new_child_ptr) != S_OK)
|
|
WARN("%p is not an orphan of %p\n", new_child_ptr, new_child_ptr->doc);
|
|
|
|
leaving_doc = new_child_ptr->doc;
|
|
xmldoc_add_ref(old_child_ptr->doc);
|
|
xmlReplaceNode(old_child_ptr, new_child_ptr);
|
|
xmldoc_release(leaving_doc);
|
|
|
|
xmldoc_add_orphan(old_child_ptr->doc, old_child_ptr);
|
|
|
|
if(outOldChild)
|
|
{
|
|
IXMLDOMNode_AddRef(oldChild);
|
|
*outOldChild = oldChild;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_removeChild(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode* childNode,
|
|
IXMLDOMNode** oldChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlNode *child_node_ptr;
|
|
HRESULT hr;
|
|
IXMLDOMNode *child;
|
|
|
|
TRACE("%p->(%p, %p)\n", This, childNode, oldChild);
|
|
|
|
if(!childNode) return E_INVALIDARG;
|
|
|
|
if(oldChild)
|
|
*oldChild = NULL;
|
|
|
|
hr = IXMLDOMNode_QueryInterface(childNode, &IID_IXMLDOMNode, (LPVOID)&child);
|
|
if(FAILED(hr))
|
|
return hr;
|
|
|
|
child_node_ptr = impl_from_IXMLDOMNode(child)->node;
|
|
if(child_node_ptr->parent != This->node)
|
|
{
|
|
WARN("childNode %p is not a child of %p\n", childNode, iface);
|
|
IXMLDOMNode_Release(child);
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
xmlUnlinkNode(child_node_ptr);
|
|
|
|
IXMLDOMNode_Release(child);
|
|
|
|
if(oldChild)
|
|
{
|
|
IXMLDOMNode_AddRef(childNode);
|
|
*oldChild = childNode;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_appendChild(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode* newChild,
|
|
IXMLDOMNode** outNewChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
DOMNodeType type;
|
|
VARIANT var;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p)->(%p,%p)\n", This, newChild, outNewChild);
|
|
|
|
hr = IXMLDOMNode_get_nodeType(newChild, &type);
|
|
if(FAILED(hr) || type == NODE_ATTRIBUTE) {
|
|
if(outNewChild) *outNewChild = NULL;
|
|
return E_FAIL;
|
|
}
|
|
|
|
VariantInit(&var);
|
|
return IXMLDOMNode_insertBefore(iface, newChild, var, outNewChild);
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_hasChildNodes(
|
|
IXMLDOMNode *iface,
|
|
VARIANT_BOOL* hasChild)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p\n", This);
|
|
|
|
if (!hasChild)
|
|
return E_INVALIDARG;
|
|
if (!This->node->children)
|
|
{
|
|
*hasChild = VARIANT_FALSE;
|
|
return S_FALSE;
|
|
}
|
|
|
|
*hasChild = VARIANT_TRUE;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_ownerDocument(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMDocument** DOMDocument)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p (%p)\n", This, DOMDocument);
|
|
|
|
return DOMDocument_create_from_xmldoc(This->node->doc, (IXMLDOMDocument2**)DOMDocument);
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_cloneNode(
|
|
IXMLDOMNode *iface,
|
|
VARIANT_BOOL deep,
|
|
IXMLDOMNode** cloneRoot)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlNodePtr pClone = NULL;
|
|
IXMLDOMNode *pNode = NULL;
|
|
|
|
TRACE("%p (%d)\n", This, deep);
|
|
|
|
if(!cloneRoot)
|
|
return E_INVALIDARG;
|
|
|
|
pClone = xmlCopyNode(This->node, deep ? 1 : 2);
|
|
if(pClone)
|
|
{
|
|
pClone->doc = This->node->doc;
|
|
xmldoc_add_orphan(pClone->doc, pClone);
|
|
|
|
pNode = create_node(pClone);
|
|
if(!pNode)
|
|
{
|
|
ERR("Copy failed\n");
|
|
return E_FAIL;
|
|
}
|
|
|
|
*cloneRoot = pNode;
|
|
}
|
|
else
|
|
{
|
|
ERR("Copy failed\n");
|
|
return E_FAIL;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_nodeTypeString(
|
|
IXMLDOMNode *iface,
|
|
BSTR* xmlnodeType)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
const xmlChar *str;
|
|
|
|
TRACE("%p\n", This );
|
|
|
|
if (!xmlnodeType)
|
|
return E_INVALIDARG;
|
|
|
|
if ( !This->node )
|
|
return E_FAIL;
|
|
|
|
switch( This->node->type )
|
|
{
|
|
case XML_ATTRIBUTE_NODE:
|
|
str = (const xmlChar*) "attribute";
|
|
break;
|
|
case XML_CDATA_SECTION_NODE:
|
|
str = (const xmlChar*) "cdatasection";
|
|
break;
|
|
case XML_COMMENT_NODE:
|
|
str = (const xmlChar*) "comment";
|
|
break;
|
|
case XML_DOCUMENT_NODE:
|
|
str = (const xmlChar*) "document";
|
|
break;
|
|
case XML_DOCUMENT_FRAG_NODE:
|
|
str = (const xmlChar*) "documentfragment";
|
|
break;
|
|
case XML_ELEMENT_NODE:
|
|
str = (const xmlChar*) "element";
|
|
break;
|
|
case XML_ENTITY_NODE:
|
|
str = (const xmlChar*) "entity";
|
|
break;
|
|
case XML_ENTITY_REF_NODE:
|
|
str = (const xmlChar*) "entityreference";
|
|
break;
|
|
case XML_NOTATION_NODE:
|
|
str = (const xmlChar*) "notation";
|
|
break;
|
|
case XML_PI_NODE:
|
|
str = (const xmlChar*) "processinginstruction";
|
|
break;
|
|
case XML_TEXT_NODE:
|
|
str = (const xmlChar*) "text";
|
|
break;
|
|
default:
|
|
FIXME("Unknown node type (%d)\n", This->node->type);
|
|
str = This->node->name;
|
|
break;
|
|
}
|
|
|
|
*xmlnodeType = bstr_from_xmlChar( str );
|
|
if (!*xmlnodeType)
|
|
return S_FALSE;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_text(
|
|
IXMLDOMNode *iface,
|
|
BSTR* text)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
BSTR str = NULL;
|
|
xmlChar *pContent;
|
|
|
|
TRACE("%p type %d\n", This, This->node->type);
|
|
|
|
if ( !text )
|
|
return E_INVALIDARG;
|
|
|
|
pContent = xmlNodeGetContent((xmlNodePtr)This->node);
|
|
if(pContent)
|
|
{
|
|
str = bstr_from_xmlChar(pContent);
|
|
xmlFree(pContent);
|
|
}
|
|
|
|
/* Always return a string. */
|
|
if (!str) str = SysAllocStringLen( NULL, 0 );
|
|
|
|
TRACE("%p %s\n", This, debugstr_w(str) );
|
|
*text = str;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_put_text(
|
|
IXMLDOMNode *iface,
|
|
BSTR text)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlChar *str, *str2;
|
|
|
|
TRACE("%p\n", This);
|
|
|
|
switch(This->node->type)
|
|
{
|
|
case XML_DOCUMENT_NODE:
|
|
return E_FAIL;
|
|
default:
|
|
break;
|
|
}
|
|
|
|
str = xmlChar_from_wchar(text);
|
|
|
|
/* Escape the string. */
|
|
str2 = xmlEncodeEntitiesReentrant(This->node->doc, str);
|
|
HeapFree(GetProcessHeap(), 0, str);
|
|
|
|
xmlNodeSetContent(This->node, str2);
|
|
xmlFree(str2);
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_specified(
|
|
IXMLDOMNode *iface,
|
|
VARIANT_BOOL* isSpecified)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_definition(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode** definitionNode)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_dataType(IXMLDOMNode*, VARIANT*);
|
|
|
|
static inline BYTE hex_to_byte(xmlChar c)
|
|
{
|
|
if(c <= '9') return c-'0';
|
|
if(c <= 'F') return c-'A'+10;
|
|
return c-'a'+10;
|
|
}
|
|
|
|
static inline BYTE base64_to_byte(xmlChar c)
|
|
{
|
|
if(c == '+') return 62;
|
|
if(c == '/') return 63;
|
|
if(c <= '9') return c-'0'+52;
|
|
if(c <= 'Z') return c-'A';
|
|
return c-'a'+26;
|
|
}
|
|
|
|
static inline HRESULT VARIANT_from_xmlChar(xmlChar *str, VARIANT *v, BSTR type)
|
|
{
|
|
if(!type || !lstrcmpiW(type, szString) ||
|
|
!lstrcmpiW(type, szNumber) || !lstrcmpiW(type, szUUID))
|
|
{
|
|
V_VT(v) = VT_BSTR;
|
|
V_BSTR(v) = bstr_from_xmlChar(str);
|
|
|
|
if(!V_BSTR(v))
|
|
return E_OUTOFMEMORY;
|
|
}
|
|
else if(!lstrcmpiW(type, szDateTime) || !lstrcmpiW(type, szDateTimeTZ) ||
|
|
!lstrcmpiW(type, szDate) || !lstrcmpiW(type, szTime) ||
|
|
!lstrcmpiW(type, szTimeTZ))
|
|
{
|
|
VARIANT src;
|
|
WCHAR *p, *e;
|
|
SYSTEMTIME st;
|
|
DOUBLE date = 0.0;
|
|
|
|
st.wYear = 1899;
|
|
st.wMonth = 12;
|
|
st.wDay = 30;
|
|
st.wDayOfWeek = st.wHour = st.wMinute = st.wSecond = st.wMilliseconds = 0;
|
|
|
|
V_VT(&src) = VT_BSTR;
|
|
V_BSTR(&src) = bstr_from_xmlChar(str);
|
|
|
|
if(!V_BSTR(&src))
|
|
return E_OUTOFMEMORY;
|
|
|
|
p = V_BSTR(&src);
|
|
e = p + SysStringLen(V_BSTR(&src));
|
|
|
|
if(p+4<e && *(p+4)=='-') /* parse date (yyyy-mm-dd) */
|
|
{
|
|
st.wYear = atoiW(p);
|
|
st.wMonth = atoiW(p+5);
|
|
st.wDay = atoiW(p+8);
|
|
p += 10;
|
|
|
|
if(*p == 'T') p++;
|
|
}
|
|
|
|
if(p+2<e && *(p+2)==':') /* parse time (hh:mm:ss.?) */
|
|
{
|
|
st.wHour = atoiW(p);
|
|
st.wMinute = atoiW(p+3);
|
|
st.wSecond = atoiW(p+6);
|
|
p += 8;
|
|
|
|
if(*p == '.')
|
|
{
|
|
p++;
|
|
while(isdigitW(*p)) p++;
|
|
}
|
|
}
|
|
|
|
SystemTimeToVariantTime(&st, &date);
|
|
V_VT(v) = VT_DATE;
|
|
V_DATE(v) = date;
|
|
|
|
if(*p == '+') /* parse timezone offset (+hh:mm) */
|
|
V_DATE(v) += (DOUBLE)atoiW(p+1)/24 + (DOUBLE)atoiW(p+4)/1440;
|
|
else if(*p == '-') /* parse timezone offset (-hh:mm) */
|
|
V_DATE(v) -= (DOUBLE)atoiW(p+1)/24 + (DOUBLE)atoiW(p+4)/1440;
|
|
|
|
VariantClear(&src);
|
|
}
|
|
else if(!lstrcmpiW(type, szBinHex))
|
|
{
|
|
SAFEARRAYBOUND sab;
|
|
int i, len;
|
|
|
|
len = xmlStrlen(str)/2;
|
|
sab.lLbound = 0;
|
|
sab.cElements = len;
|
|
|
|
V_VT(v) = (VT_ARRAY|VT_UI1);
|
|
V_ARRAY(v) = SafeArrayCreate(VT_UI1, 1, &sab);
|
|
|
|
if(!V_ARRAY(v))
|
|
return E_OUTOFMEMORY;
|
|
|
|
for(i=0; i<len; i++)
|
|
((BYTE*)V_ARRAY(v)->pvData)[i] = (hex_to_byte(str[2*i])<<4)
|
|
+ hex_to_byte(str[2*i+1]);
|
|
}
|
|
else if(!lstrcmpiW(type, szBinBase64))
|
|
{
|
|
SAFEARRAYBOUND sab;
|
|
int i, len;
|
|
|
|
len = xmlStrlen(str);
|
|
if(str[len-2] == '=') i = 2;
|
|
else if(str[len-1] == '=') i = 1;
|
|
else i = 0;
|
|
|
|
sab.lLbound = 0;
|
|
sab.cElements = len/4*3-i;
|
|
|
|
V_VT(v) = (VT_ARRAY|VT_UI1);
|
|
V_ARRAY(v) = SafeArrayCreate(VT_UI1, 1, &sab);
|
|
|
|
if(!V_ARRAY(v))
|
|
return E_OUTOFMEMORY;
|
|
|
|
for(i=0; i<len/4; i++)
|
|
{
|
|
((BYTE*)V_ARRAY(v)->pvData)[3*i] = (base64_to_byte(str[4*i])<<2)
|
|
+ (base64_to_byte(str[4*i+1])>>4);
|
|
if(3*i+1 < sab.cElements)
|
|
((BYTE*)V_ARRAY(v)->pvData)[3*i+1] = (base64_to_byte(str[4*i+1])<<4)
|
|
+ (base64_to_byte(str[4*i+2])>>2);
|
|
if(3*i+2 < sab.cElements)
|
|
((BYTE*)V_ARRAY(v)->pvData)[3*i+2] = (base64_to_byte(str[4*i+2])<<6)
|
|
+ base64_to_byte(str[4*i+3]);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
VARIANT src;
|
|
HRESULT hres;
|
|
|
|
if(!lstrcmpiW(type, szInt) || !lstrcmpiW(type, szI4))
|
|
V_VT(v) = VT_I4;
|
|
else if(!lstrcmpiW(type, szFixed))
|
|
V_VT(v) = VT_CY;
|
|
else if(!lstrcmpiW(type, szBoolean))
|
|
V_VT(v) = VT_BOOL;
|
|
else if(!lstrcmpiW(type, szI1))
|
|
V_VT(v) = VT_I1;
|
|
else if(!lstrcmpiW(type, szI2))
|
|
V_VT(v) = VT_I2;
|
|
else if(!lstrcmpiW(type, szIU1))
|
|
V_VT(v) = VT_UI1;
|
|
else if(!lstrcmpiW(type, szIU2))
|
|
V_VT(v) = VT_UI2;
|
|
else if(!lstrcmpiW(type, szIU4))
|
|
V_VT(v) = VT_UI4;
|
|
else if(!lstrcmpiW(type, szR4))
|
|
V_VT(v) = VT_R4;
|
|
else if(!lstrcmpiW(type, szR8) || !lstrcmpiW(type, szFloat))
|
|
V_VT(v) = VT_R8;
|
|
else
|
|
{
|
|
FIXME("Type handling not yet implemented\n");
|
|
V_VT(v) = VT_BSTR;
|
|
}
|
|
|
|
V_VT(&src) = VT_BSTR;
|
|
V_BSTR(&src) = bstr_from_xmlChar(str);
|
|
|
|
if(!V_BSTR(&src))
|
|
return E_OUTOFMEMORY;
|
|
|
|
hres = VariantChangeType(v, &src, 0, V_VT(v));
|
|
VariantClear(&src);
|
|
return hres;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_nodeTypedValue(
|
|
IXMLDOMNode *iface,
|
|
VARIANT* typedValue)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
VARIANT type;
|
|
xmlChar *content;
|
|
HRESULT hres = S_FALSE;
|
|
|
|
TRACE("iface %p\n", iface);
|
|
|
|
if(!typedValue)
|
|
return E_INVALIDARG;
|
|
|
|
V_VT(typedValue) = VT_NULL;
|
|
|
|
if(This->node->type == XML_ELEMENT_NODE ||
|
|
This->node->type == XML_TEXT_NODE ||
|
|
This->node->type == XML_ENTITY_REF_NODE)
|
|
hres = xmlnode_get_dataType(iface, &type);
|
|
|
|
if(hres != S_OK && This->node->type != XML_ELEMENT_NODE)
|
|
return xmlnode_get_nodeValue(iface, typedValue);
|
|
|
|
content = xmlNodeGetContent(This->node);
|
|
hres = VARIANT_from_xmlChar(content, typedValue,
|
|
hres==S_OK ? V_BSTR(&type) : NULL);
|
|
xmlFree(content);
|
|
VariantClear(&type);
|
|
|
|
return hres;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_put_nodeTypedValue(
|
|
IXMLDOMNode *iface,
|
|
VARIANT typedValue)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_dataType(
|
|
IXMLDOMNode *iface,
|
|
VARIANT* dataTypeName)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlChar *pVal;
|
|
|
|
TRACE("iface %p\n", iface);
|
|
|
|
if(!dataTypeName)
|
|
return E_INVALIDARG;
|
|
|
|
/* Attribute, CDATA Section, Comment, Document, Document Fragment,
|
|
Entity, Notation, PI, and Text Node are non-typed. */
|
|
V_BSTR(dataTypeName) = NULL;
|
|
V_VT(dataTypeName) = VT_NULL;
|
|
|
|
switch ( This->node->type )
|
|
{
|
|
case XML_ELEMENT_NODE:
|
|
pVal = xmlGetNsProp(This->node, (xmlChar*)"dt",
|
|
(xmlChar*)"urn:schemas-microsoft-com:datatypes");
|
|
if (pVal)
|
|
{
|
|
V_VT(dataTypeName) = VT_BSTR;
|
|
V_BSTR(dataTypeName) = bstr_from_xmlChar( pVal );
|
|
xmlFree(pVal);
|
|
}
|
|
break;
|
|
case XML_ENTITY_REF_NODE:
|
|
FIXME("XML_ENTITY_REF_NODE should return a valid value.\n");
|
|
break;
|
|
default:
|
|
TRACE("Type %d returning NULL\n", This->node->type);
|
|
}
|
|
|
|
/* non-typed nodes return S_FALSE */
|
|
if(V_VT(dataTypeName) == VT_NULL)
|
|
{
|
|
return S_FALSE;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_put_dataType(
|
|
IXMLDOMNode *iface,
|
|
BSTR dataTypeName)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
HRESULT hr = E_FAIL;
|
|
|
|
TRACE("iface %p\n", iface);
|
|
|
|
if(dataTypeName == NULL)
|
|
return E_INVALIDARG;
|
|
|
|
/* An example of this is. The Text in the node needs to be a 0 or 1 for a boolean type.
|
|
This applies to changing types (string->bool) or setting a new one
|
|
*/
|
|
FIXME("Need to Validate the data before allowing a type to be set.\n");
|
|
|
|
/* Check all supported types. */
|
|
if(lstrcmpiW(dataTypeName,szString) == 0 ||
|
|
lstrcmpiW(dataTypeName,szNumber) == 0 ||
|
|
lstrcmpiW(dataTypeName,szUUID) == 0 ||
|
|
lstrcmpiW(dataTypeName,szInt) == 0 ||
|
|
lstrcmpiW(dataTypeName,szI4) == 0 ||
|
|
lstrcmpiW(dataTypeName,szFixed) == 0 ||
|
|
lstrcmpiW(dataTypeName,szBoolean) == 0 ||
|
|
lstrcmpiW(dataTypeName,szDateTime) == 0 ||
|
|
lstrcmpiW(dataTypeName,szDateTimeTZ) == 0 ||
|
|
lstrcmpiW(dataTypeName,szDate) == 0 ||
|
|
lstrcmpiW(dataTypeName,szTime) == 0 ||
|
|
lstrcmpiW(dataTypeName,szTimeTZ) == 0 ||
|
|
lstrcmpiW(dataTypeName,szI1) == 0 ||
|
|
lstrcmpiW(dataTypeName,szI2) == 0 ||
|
|
lstrcmpiW(dataTypeName,szIU1) == 0 ||
|
|
lstrcmpiW(dataTypeName,szIU2) == 0 ||
|
|
lstrcmpiW(dataTypeName,szIU4) == 0 ||
|
|
lstrcmpiW(dataTypeName,szR4) == 0 ||
|
|
lstrcmpiW(dataTypeName,szR8) == 0 ||
|
|
lstrcmpiW(dataTypeName,szFloat) == 0 ||
|
|
lstrcmpiW(dataTypeName,szBinHex) == 0 ||
|
|
lstrcmpiW(dataTypeName,szBinBase64) == 0)
|
|
{
|
|
xmlNsPtr pNS = NULL;
|
|
xmlAttrPtr pAttr = NULL;
|
|
xmlChar* str = xmlChar_from_wchar(dataTypeName);
|
|
|
|
pAttr = xmlHasNsProp(This->node, (xmlChar*)"dt",
|
|
(xmlChar*)"urn:schemas-microsoft-com:datatypes");
|
|
if (pAttr)
|
|
{
|
|
pAttr = xmlSetNsProp(This->node, pAttr->ns, (xmlChar*)"dt", str);
|
|
|
|
hr = S_OK;
|
|
}
|
|
else
|
|
{
|
|
pNS = xmlNewNs(This->node, (xmlChar*)"urn:schemas-microsoft-com:datatypes", (xmlChar*)"dt");
|
|
if(pNS)
|
|
{
|
|
pAttr = xmlNewNsProp(This->node, pNS, (xmlChar*)"dt", str);
|
|
if(pAttr)
|
|
{
|
|
xmlAddChild(This->node, (xmlNodePtr)pAttr);
|
|
|
|
hr = S_OK;
|
|
}
|
|
else
|
|
ERR("Failed to create Attribute\n");
|
|
}
|
|
else
|
|
ERR("Failed to Create Namepsace\n");
|
|
}
|
|
HeapFree( GetProcessHeap(), 0, str );
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
static BSTR EnsureCorrectEOL(BSTR sInput)
|
|
{
|
|
static const WCHAR SZ_RETURN[] = {'\n',0};
|
|
static const WCHAR SZ_LINEFEED[] = {'\r',0};
|
|
int nNum = 0;
|
|
BSTR sNew;
|
|
int nLen;
|
|
int i;
|
|
|
|
nLen = lstrlenW(sInput);
|
|
/* Count line endings */
|
|
for(i=0; i < nLen; i++)
|
|
{
|
|
if(sInput[i] == SZ_RETURN[0])
|
|
nNum++;
|
|
}
|
|
|
|
TRACE("len=%d, num=%d\n", nLen, nNum);
|
|
|
|
/* Add linefeed as needed */
|
|
if(nNum > 0)
|
|
{
|
|
int nPlace = 0;
|
|
sNew = SysAllocStringLen(NULL, nLen + nNum+1);
|
|
for(i=0; i < nLen; i++)
|
|
{
|
|
if(sInput[i] == SZ_RETURN[0])
|
|
{
|
|
sNew[i+nPlace] = SZ_LINEFEED[0];
|
|
nPlace++;
|
|
}
|
|
sNew[i+nPlace] = sInput[i];
|
|
}
|
|
|
|
SysFreeString(sInput);
|
|
}
|
|
else
|
|
{
|
|
sNew = sInput;
|
|
}
|
|
|
|
TRACE("len %d\n", lstrlenW(sNew));
|
|
|
|
return sNew;
|
|
}
|
|
|
|
/* Removes encoding information and last character (nullbyte) */
|
|
static BSTR EnsureNoEncoding(BSTR sInput)
|
|
{
|
|
static const WCHAR wszEncoding[] = {'e','n','c','o','d','i','n','g','='};
|
|
BSTR sNew;
|
|
WCHAR *pBeg, *pEnd;
|
|
|
|
pBeg = sInput;
|
|
while(*pBeg != '\n' && memcmp(pBeg, wszEncoding, sizeof(wszEncoding)))
|
|
pBeg++;
|
|
|
|
if(*pBeg == '\n')
|
|
{
|
|
SysReAllocStringLen(&sInput, sInput, SysStringLen(sInput)-1);
|
|
return sInput;
|
|
}
|
|
pBeg--;
|
|
|
|
pEnd = pBeg + sizeof(wszEncoding)/sizeof(WCHAR) + 2;
|
|
while(*pEnd != '\"') pEnd++;
|
|
pEnd++;
|
|
|
|
sNew = SysAllocStringLen(NULL,
|
|
pBeg-sInput + SysStringLen(sInput)-(pEnd-sInput)-1);
|
|
memcpy(sNew, sInput, (pBeg-sInput)*sizeof(WCHAR));
|
|
memcpy(&sNew[pBeg-sInput], pEnd, (SysStringLen(sInput)-(pEnd-sInput)-1)*sizeof(WCHAR));
|
|
|
|
SysFreeString(sInput);
|
|
return sNew;
|
|
}
|
|
|
|
/*
|
|
* We are trying to replicate the same behaviour as msxml by converting
|
|
* line endings to \r\n and using idents as \t. The problem is that msxml
|
|
* only formats nodes that have a line ending. Using libxml we cannot
|
|
* reproduce behaviour exactly.
|
|
*
|
|
*/
|
|
static HRESULT WINAPI xmlnode_get_xml(
|
|
IXMLDOMNode *iface,
|
|
BSTR* xmlString)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlBufferPtr pXmlBuf;
|
|
int nSize;
|
|
|
|
TRACE("iface %p %d\n", iface, This->node->type);
|
|
|
|
if(!xmlString)
|
|
return E_INVALIDARG;
|
|
|
|
*xmlString = NULL;
|
|
|
|
pXmlBuf = xmlBufferCreate();
|
|
if(pXmlBuf)
|
|
{
|
|
nSize = xmlNodeDump(pXmlBuf, This->node->doc, This->node, 0, 1);
|
|
if(nSize > 0)
|
|
{
|
|
const xmlChar *pContent;
|
|
BSTR bstrContent;
|
|
|
|
/* Attribute Nodes return a space in front of their name */
|
|
pContent = xmlBufferContent(pXmlBuf);
|
|
if( ((char*)pContent)[0] == ' ')
|
|
bstrContent = bstr_from_xmlChar(pContent+1);
|
|
else
|
|
bstrContent = bstr_from_xmlChar(pContent);
|
|
|
|
switch(This->node->type)
|
|
{
|
|
case XML_ELEMENT_NODE:
|
|
*xmlString = EnsureCorrectEOL(bstrContent);
|
|
break;
|
|
case XML_DOCUMENT_NODE:
|
|
*xmlString = EnsureCorrectEOL(bstrContent);
|
|
*xmlString = EnsureNoEncoding(*xmlString);
|
|
break;
|
|
default:
|
|
*xmlString = bstrContent;
|
|
}
|
|
}
|
|
|
|
xmlBufferFree(pXmlBuf);
|
|
}
|
|
|
|
/* Always returns a string. */
|
|
if(*xmlString == NULL) *xmlString = SysAllocStringLen( NULL, 0 );
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_transformNode(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode* styleSheet,
|
|
BSTR* xmlString)
|
|
{
|
|
#ifdef SONAME_LIBXSLT
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
xmlnode *pStyleSheet = NULL;
|
|
xsltStylesheetPtr xsltSS = NULL;
|
|
xmlDocPtr result = NULL;
|
|
IXMLDOMNode *ssNew;
|
|
|
|
TRACE("%p %p %p\n", This, styleSheet, xmlString);
|
|
|
|
if (!libxslt_handle)
|
|
return E_NOTIMPL;
|
|
if(!styleSheet || !xmlString)
|
|
return E_INVALIDARG;
|
|
|
|
*xmlString = NULL;
|
|
|
|
if(IXMLDOMNode_QueryInterface(styleSheet, &IID_IXMLDOMNode, (LPVOID)&ssNew) == S_OK)
|
|
{
|
|
pStyleSheet = impl_from_IXMLDOMNode( ssNew );
|
|
|
|
xsltSS = pxsltParseStylesheetDoc( pStyleSheet->node->doc);
|
|
if(xsltSS)
|
|
{
|
|
result = pxsltApplyStylesheet(xsltSS, This->node->doc, NULL);
|
|
if(result)
|
|
{
|
|
const xmlChar *pContent;
|
|
|
|
if(result->type == XML_HTML_DOCUMENT_NODE)
|
|
{
|
|
xmlOutputBufferPtr pOutput = xmlAllocOutputBuffer(NULL);
|
|
if(pOutput)
|
|
{
|
|
htmlDocContentDumpOutput(pOutput, result->doc, NULL);
|
|
pContent = xmlBufferContent(pOutput->buffer);
|
|
*xmlString = bstr_from_xmlChar(pContent);
|
|
xmlOutputBufferClose(pOutput);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
xmlBufferPtr pXmlBuf;
|
|
int nSize;
|
|
|
|
pXmlBuf = xmlBufferCreate();
|
|
if(pXmlBuf)
|
|
{
|
|
nSize = xmlNodeDump(pXmlBuf, NULL, (xmlNodePtr)result, 0, 0);
|
|
if(nSize > 0)
|
|
{
|
|
pContent = xmlBufferContent(pXmlBuf);
|
|
*xmlString = bstr_from_xmlChar(pContent);
|
|
}
|
|
xmlBufferFree(pXmlBuf);
|
|
}
|
|
}
|
|
xmlFreeDoc(result);
|
|
}
|
|
/* libxslt "helpfully" frees the XML document the stylesheet was
|
|
generated from, too */
|
|
xsltSS->doc = NULL;
|
|
pxsltFreeStylesheet(xsltSS);
|
|
}
|
|
|
|
IXMLDOMNode_Release(ssNew);
|
|
}
|
|
|
|
if(*xmlString == NULL)
|
|
*xmlString = SysAllocStringLen(NULL, 0);
|
|
|
|
return S_OK;
|
|
#else
|
|
FIXME("libxslt headers were not found at compile time\n");
|
|
return E_NOTIMPL;
|
|
#endif
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_selectNodes(
|
|
IXMLDOMNode *iface,
|
|
BSTR queryString,
|
|
IXMLDOMNodeList** resultList)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
|
|
TRACE("%p %s %p\n", This, debugstr_w(queryString), resultList );
|
|
|
|
return queryresult_create( This->node, queryString, resultList );
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_selectSingleNode(
|
|
IXMLDOMNode *iface,
|
|
BSTR queryString,
|
|
IXMLDOMNode** resultNode)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
IXMLDOMNodeList *list;
|
|
HRESULT r;
|
|
|
|
TRACE("%p %s %p\n", This, debugstr_w(queryString), resultNode );
|
|
|
|
*resultNode = NULL;
|
|
r = IXMLDOMNode_selectNodes(iface, queryString, &list);
|
|
if(r == S_OK)
|
|
{
|
|
r = IXMLDOMNodeList_nextNode(list, resultNode);
|
|
IXMLDOMNodeList_Release(list);
|
|
}
|
|
return r;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_parsed(
|
|
IXMLDOMNode *iface,
|
|
VARIANT_BOOL* isParsed)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_namespaceURI(
|
|
IXMLDOMNode *iface,
|
|
BSTR* namespaceURI)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
HRESULT hr = S_FALSE;
|
|
xmlNsPtr *pNSList;
|
|
|
|
TRACE("%p %p\n", This, namespaceURI );
|
|
|
|
if(!namespaceURI)
|
|
return E_INVALIDARG;
|
|
|
|
*namespaceURI = NULL;
|
|
|
|
pNSList = xmlGetNsList(This->node->doc, This->node);
|
|
if(pNSList)
|
|
{
|
|
*namespaceURI = bstr_from_xmlChar( pNSList[0]->href );
|
|
|
|
xmlFree( pNSList );
|
|
hr = S_OK;
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_prefix(
|
|
IXMLDOMNode *iface,
|
|
BSTR* prefixString)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
HRESULT hr = S_FALSE;
|
|
xmlNsPtr *pNSList;
|
|
|
|
TRACE("%p %p\n", This, prefixString );
|
|
|
|
if(!prefixString)
|
|
return E_INVALIDARG;
|
|
|
|
*prefixString = NULL;
|
|
|
|
pNSList = xmlGetNsList(This->node->doc, This->node);
|
|
if(pNSList)
|
|
{
|
|
*prefixString = bstr_from_xmlChar( pNSList[0]->prefix );
|
|
|
|
xmlFree(pNSList);
|
|
hr = S_OK;
|
|
}
|
|
|
|
return hr;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_get_baseName(
|
|
IXMLDOMNode *iface,
|
|
BSTR* nameString)
|
|
{
|
|
xmlnode *This = impl_from_IXMLDOMNode( iface );
|
|
BSTR str = NULL;
|
|
HRESULT r = S_FALSE;
|
|
|
|
TRACE("%p %p\n", This, nameString );
|
|
|
|
if ( !nameString )
|
|
return E_INVALIDARG;
|
|
|
|
switch ( This->node->type )
|
|
{
|
|
case XML_ELEMENT_NODE:
|
|
case XML_ATTRIBUTE_NODE:
|
|
str = bstr_from_xmlChar( This->node->name );
|
|
r = S_OK;
|
|
break;
|
|
case XML_TEXT_NODE:
|
|
break;
|
|
default:
|
|
ERR("Unhandled type %d\n", This->node->type );
|
|
break;
|
|
}
|
|
|
|
TRACE("returning %08x str = %s\n", r, debugstr_w( str ) );
|
|
|
|
*nameString = str;
|
|
return r;
|
|
}
|
|
|
|
static HRESULT WINAPI xmlnode_transformNodeToObject(
|
|
IXMLDOMNode *iface,
|
|
IXMLDOMNode* stylesheet,
|
|
VARIANT outputObject)
|
|
{
|
|
FIXME("\n");
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static const struct IXMLDOMNodeVtbl xmlnode_vtbl =
|
|
{
|
|
xmlnode_QueryInterface,
|
|
xmlnode_AddRef,
|
|
xmlnode_Release,
|
|
xmlnode_GetTypeInfoCount,
|
|
xmlnode_GetTypeInfo,
|
|
xmlnode_GetIDsOfNames,
|
|
xmlnode_Invoke,
|
|
xmlnode_get_nodeName,
|
|
xmlnode_get_nodeValue,
|
|
xmlnode_put_nodeValue,
|
|
xmlnode_get_nodeType,
|
|
xmlnode_get_parentNode,
|
|
xmlnode_get_childNodes,
|
|
xmlnode_get_firstChild,
|
|
xmlnode_get_lastChild,
|
|
xmlnode_get_previousSibling,
|
|
xmlnode_get_nextSibling,
|
|
xmlnode_get_attributes,
|
|
xmlnode_insertBefore,
|
|
xmlnode_replaceChild,
|
|
xmlnode_removeChild,
|
|
xmlnode_appendChild,
|
|
xmlnode_hasChildNodes,
|
|
xmlnode_get_ownerDocument,
|
|
xmlnode_cloneNode,
|
|
xmlnode_get_nodeTypeString,
|
|
xmlnode_get_text,
|
|
xmlnode_put_text,
|
|
xmlnode_get_specified,
|
|
xmlnode_get_definition,
|
|
xmlnode_get_nodeTypedValue,
|
|
xmlnode_put_nodeTypedValue,
|
|
xmlnode_get_dataType,
|
|
xmlnode_put_dataType,
|
|
xmlnode_get_xml,
|
|
xmlnode_transformNode,
|
|
xmlnode_selectNodes,
|
|
xmlnode_selectSingleNode,
|
|
xmlnode_get_parsed,
|
|
xmlnode_get_namespaceURI,
|
|
xmlnode_get_prefix,
|
|
xmlnode_get_baseName,
|
|
xmlnode_transformNodeToObject,
|
|
};
|
|
|
|
void destroy_xmlnode(xmlnode *This)
|
|
{
|
|
if(This->node)
|
|
xmldoc_release(This->node->doc);
|
|
}
|
|
|
|
void init_xmlnode(xmlnode *This, xmlNodePtr node, IUnknown *outer, dispex_static_data_t *dispex_data )
|
|
{
|
|
if(node)
|
|
xmldoc_add_ref( node->doc );
|
|
|
|
This->lpVtbl = &xmlnode_vtbl;
|
|
This->ref = 1;
|
|
This->node = node;
|
|
This->pUnkOuter = outer;
|
|
|
|
if(dispex_data)
|
|
init_dispex(&This->dispex, This->pUnkOuter, dispex_data);
|
|
}
|
|
|
|
IXMLDOMNode *create_node( xmlNodePtr node )
|
|
{
|
|
IUnknown *pUnk;
|
|
IXMLDOMNode *ret;
|
|
HRESULT hr;
|
|
|
|
if ( !node )
|
|
return NULL;
|
|
|
|
TRACE("type %d\n", node->type);
|
|
switch(node->type)
|
|
{
|
|
case XML_ELEMENT_NODE:
|
|
pUnk = create_element( node );
|
|
break;
|
|
case XML_ATTRIBUTE_NODE:
|
|
pUnk = create_attribute( node );
|
|
break;
|
|
case XML_TEXT_NODE:
|
|
pUnk = create_text( node );
|
|
break;
|
|
case XML_CDATA_SECTION_NODE:
|
|
pUnk = create_cdata( node );
|
|
break;
|
|
case XML_COMMENT_NODE:
|
|
pUnk = create_comment( node );
|
|
break;
|
|
case XML_DOCUMENT_NODE:
|
|
pUnk = create_domdoc( node );
|
|
break;
|
|
default: {
|
|
xmlnode *new_node;
|
|
|
|
FIXME("only creating basic node for type %d\n", node->type);
|
|
|
|
new_node = heap_alloc(sizeof(xmlnode));
|
|
if(!new_node)
|
|
return NULL;
|
|
|
|
init_xmlnode(new_node, node, NULL, NULL);
|
|
pUnk = (IUnknown*)IXMLDOMNode_from_impl(new_node);
|
|
}
|
|
}
|
|
|
|
hr = IUnknown_QueryInterface(pUnk, &IID_IXMLDOMNode, (LPVOID*)&ret);
|
|
IUnknown_Release(pUnk);
|
|
if(FAILED(hr)) return NULL;
|
|
return ret;
|
|
}
|
|
#endif
|