2 * DOM Document implementation
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
21 #define WIN32_NO_STATUS
30 # include <libxml/parser.h>
31 //# include <libxml/xmlerror.h>
36 //#include "winuser.h"
41 #include "msxml_private.h"
43 #include <wine/debug.h>
45 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
49 static const xmlChar DT_prefix
[] = "dt";
50 static const xmlChar DT_nsURI
[] = "urn:schemas-microsoft-com:datatypes";
52 typedef struct _domelem
55 IXMLDOMElement IXMLDOMElement_iface
;
59 static const struct nodemap_funcs domelem_attr_map
;
61 static const tid_t domelem_se_tids
[] = {
67 static inline domelem
*impl_from_IXMLDOMElement( IXMLDOMElement
*iface
)
69 return CONTAINING_RECORD(iface
, domelem
, IXMLDOMElement_iface
);
72 static inline xmlNodePtr
get_element( const domelem
*This
)
74 return This
->node
.node
;
77 static HRESULT WINAPI
domelem_QueryInterface(
78 IXMLDOMElement
*iface
,
82 domelem
*This
= impl_from_IXMLDOMElement( iface
);
84 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppvObject
);
86 if ( IsEqualGUID( riid
, &IID_IXMLDOMElement
) ||
87 IsEqualGUID( riid
, &IID_IXMLDOMNode
) ||
88 IsEqualGUID( riid
, &IID_IDispatch
) ||
89 IsEqualGUID( riid
, &IID_IUnknown
) )
91 *ppvObject
= &This
->IXMLDOMElement_iface
;
93 else if(node_query_interface(&This
->node
, riid
, ppvObject
))
95 return *ppvObject
? S_OK
: E_NOINTERFACE
;
97 else if(IsEqualGUID( riid
, &IID_ISupportErrorInfo
))
99 return node_create_supporterrorinfo(domelem_se_tids
, ppvObject
);
103 TRACE("interface %s not implemented\n", debugstr_guid(riid
));
105 return E_NOINTERFACE
;
108 IUnknown_AddRef( (IUnknown
*)*ppvObject
);
112 static ULONG WINAPI
domelem_AddRef(
113 IXMLDOMElement
*iface
)
115 domelem
*This
= impl_from_IXMLDOMElement( iface
);
116 LONG ref
= InterlockedIncrement(&This
->ref
);
118 TRACE("(%p)->(%d)\n", This
, ref
);
123 static ULONG WINAPI
domelem_Release(
124 IXMLDOMElement
*iface
)
126 domelem
*This
= impl_from_IXMLDOMElement( iface
);
127 ULONG ref
= InterlockedDecrement(&This
->ref
);
129 TRACE("(%p)->(%d)\n", This
, ref
);
132 destroy_xmlnode(&This
->node
);
139 static HRESULT WINAPI
domelem_GetTypeInfoCount(
140 IXMLDOMElement
*iface
,
143 domelem
*This
= impl_from_IXMLDOMElement( iface
);
144 return IDispatchEx_GetTypeInfoCount(&This
->node
.dispex
.IDispatchEx_iface
, pctinfo
);
147 static HRESULT WINAPI
domelem_GetTypeInfo(
148 IXMLDOMElement
*iface
,
149 UINT iTInfo
, LCID lcid
,
150 ITypeInfo
** ppTInfo
)
152 domelem
*This
= impl_from_IXMLDOMElement( iface
);
153 return IDispatchEx_GetTypeInfo(&This
->node
.dispex
.IDispatchEx_iface
,
154 iTInfo
, lcid
, ppTInfo
);
157 static HRESULT WINAPI
domelem_GetIDsOfNames(
158 IXMLDOMElement
*iface
,
159 REFIID riid
, LPOLESTR
* rgszNames
,
160 UINT cNames
, LCID lcid
, DISPID
* rgDispId
)
162 domelem
*This
= impl_from_IXMLDOMElement( iface
);
163 return IDispatchEx_GetIDsOfNames(&This
->node
.dispex
.IDispatchEx_iface
,
164 riid
, rgszNames
, cNames
, lcid
, rgDispId
);
167 static HRESULT WINAPI
domelem_Invoke(
168 IXMLDOMElement
*iface
,
169 DISPID dispIdMember
, REFIID riid
, LCID lcid
,
170 WORD wFlags
, DISPPARAMS
* pDispParams
, VARIANT
* pVarResult
,
171 EXCEPINFO
* pExcepInfo
, UINT
* puArgErr
)
173 domelem
*This
= impl_from_IXMLDOMElement( iface
);
174 return IDispatchEx_Invoke(&This
->node
.dispex
.IDispatchEx_iface
,
175 dispIdMember
, riid
, lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
178 static HRESULT WINAPI
domelem_get_nodeName(
179 IXMLDOMElement
*iface
,
182 domelem
*This
= impl_from_IXMLDOMElement( iface
);
184 TRACE("(%p)->(%p)\n", This
, p
);
186 return node_get_nodeName(&This
->node
, p
);
189 static HRESULT WINAPI
domelem_get_nodeValue(
190 IXMLDOMElement
*iface
,
193 domelem
*This
= impl_from_IXMLDOMElement( iface
);
195 TRACE("(%p)->(%p)\n", This
, value
);
200 V_VT(value
) = VT_NULL
;
201 V_BSTR(value
) = NULL
; /* tests show that we should do this */
205 static HRESULT WINAPI
domelem_put_nodeValue(
206 IXMLDOMElement
*iface
,
209 domelem
*This
= impl_from_IXMLDOMElement( iface
);
210 TRACE("(%p)->(%s)\n", This
, debugstr_variant(&value
));
214 static HRESULT WINAPI
domelem_get_nodeType(
215 IXMLDOMElement
*iface
,
216 DOMNodeType
* domNodeType
)
218 domelem
*This
= impl_from_IXMLDOMElement( iface
);
220 TRACE("(%p)->(%p)\n", This
, domNodeType
);
222 *domNodeType
= NODE_ELEMENT
;
226 static HRESULT WINAPI
domelem_get_parentNode(
227 IXMLDOMElement
*iface
,
228 IXMLDOMNode
** parent
)
230 domelem
*This
= impl_from_IXMLDOMElement( iface
);
232 TRACE("(%p)->(%p)\n", This
, parent
);
234 return node_get_parent(&This
->node
, parent
);
237 static HRESULT WINAPI
domelem_get_childNodes(
238 IXMLDOMElement
*iface
,
239 IXMLDOMNodeList
** outList
)
241 domelem
*This
= impl_from_IXMLDOMElement( iface
);
243 TRACE("(%p)->(%p)\n", This
, outList
);
245 return node_get_child_nodes(&This
->node
, outList
);
248 static HRESULT WINAPI
domelem_get_firstChild(
249 IXMLDOMElement
*iface
,
250 IXMLDOMNode
** domNode
)
252 domelem
*This
= impl_from_IXMLDOMElement( iface
);
254 TRACE("(%p)->(%p)\n", This
, domNode
);
256 return node_get_first_child(&This
->node
, domNode
);
259 static HRESULT WINAPI
domelem_get_lastChild(
260 IXMLDOMElement
*iface
,
261 IXMLDOMNode
** domNode
)
263 domelem
*This
= impl_from_IXMLDOMElement( iface
);
265 TRACE("(%p)->(%p)\n", This
, domNode
);
267 return node_get_last_child(&This
->node
, domNode
);
270 static HRESULT WINAPI
domelem_get_previousSibling(
271 IXMLDOMElement
*iface
,
272 IXMLDOMNode
** domNode
)
274 domelem
*This
= impl_from_IXMLDOMElement( iface
);
276 TRACE("(%p)->(%p)\n", This
, domNode
);
278 return node_get_previous_sibling(&This
->node
, domNode
);
281 static HRESULT WINAPI
domelem_get_nextSibling(
282 IXMLDOMElement
*iface
,
283 IXMLDOMNode
** domNode
)
285 domelem
*This
= impl_from_IXMLDOMElement( iface
);
287 TRACE("(%p)->(%p)\n", This
, domNode
);
289 return node_get_next_sibling(&This
->node
, domNode
);
292 static HRESULT WINAPI
domelem_get_attributes(
293 IXMLDOMElement
*iface
,
294 IXMLDOMNamedNodeMap
** map
)
296 domelem
*This
= impl_from_IXMLDOMElement( iface
);
298 TRACE("(%p)->(%p)\n", This
, map
);
300 *map
= create_nodemap(This
->node
.node
, &domelem_attr_map
);
304 static HRESULT WINAPI
domelem_insertBefore(
305 IXMLDOMElement
*iface
,
306 IXMLDOMNode
* newNode
, VARIANT refChild
,
307 IXMLDOMNode
** old_node
)
309 domelem
*This
= impl_from_IXMLDOMElement( iface
);
313 TRACE("(%p)->(%p %s %p)\n", This
, newNode
, debugstr_variant(&refChild
), old_node
);
315 hr
= IXMLDOMNode_get_nodeType(newNode
, &type
);
316 if (hr
!= S_OK
) return hr
;
318 TRACE("new node type %d\n", type
);
322 case NODE_DOCUMENT_TYPE
:
325 if (old_node
) *old_node
= NULL
;
328 return node_insert_before(&This
->node
, newNode
, &refChild
, old_node
);
332 static HRESULT WINAPI
domelem_replaceChild(
333 IXMLDOMElement
*iface
,
334 IXMLDOMNode
* newNode
,
335 IXMLDOMNode
* oldNode
,
336 IXMLDOMNode
** outOldNode
)
338 domelem
*This
= impl_from_IXMLDOMElement( iface
);
340 TRACE("(%p)->(%p %p %p)\n", This
, newNode
, oldNode
, outOldNode
);
342 return node_replace_child(&This
->node
, newNode
, oldNode
, outOldNode
);
345 static HRESULT WINAPI
domelem_removeChild(
346 IXMLDOMElement
*iface
,
347 IXMLDOMNode
*child
, IXMLDOMNode
**oldChild
)
349 domelem
*This
= impl_from_IXMLDOMElement( iface
);
350 TRACE("(%p)->(%p %p)\n", This
, child
, oldChild
);
351 return node_remove_child(&This
->node
, child
, oldChild
);
354 static HRESULT WINAPI
domelem_appendChild(
355 IXMLDOMElement
*iface
,
356 IXMLDOMNode
*child
, IXMLDOMNode
**outChild
)
358 domelem
*This
= impl_from_IXMLDOMElement( iface
);
359 TRACE("(%p)->(%p %p)\n", This
, child
, outChild
);
360 return node_append_child(&This
->node
, child
, outChild
);
363 static HRESULT WINAPI
domelem_hasChildNodes(
364 IXMLDOMElement
*iface
,
367 domelem
*This
= impl_from_IXMLDOMElement( iface
);
368 TRACE("(%p)->(%p)\n", This
, ret
);
369 return node_has_childnodes(&This
->node
, ret
);
372 static HRESULT WINAPI
domelem_get_ownerDocument(
373 IXMLDOMElement
*iface
,
374 IXMLDOMDocument
**doc
)
376 domelem
*This
= impl_from_IXMLDOMElement( iface
);
377 TRACE("(%p)->(%p)\n", This
, doc
);
378 return node_get_owner_doc(&This
->node
, doc
);
381 static HRESULT WINAPI
domelem_cloneNode(
382 IXMLDOMElement
*iface
,
383 VARIANT_BOOL deep
, IXMLDOMNode
** outNode
)
385 domelem
*This
= impl_from_IXMLDOMElement( iface
);
386 TRACE("(%p)->(%d %p)\n", This
, deep
, outNode
);
387 return node_clone( &This
->node
, deep
, outNode
);
390 static HRESULT WINAPI
domelem_get_nodeTypeString(
391 IXMLDOMElement
*iface
,
394 domelem
*This
= impl_from_IXMLDOMElement( iface
);
395 static const WCHAR elementW
[] = {'e','l','e','m','e','n','t',0};
397 TRACE("(%p)->(%p)\n", This
, p
);
399 return return_bstr(elementW
, p
);
402 static HRESULT WINAPI
domelem_get_text(
403 IXMLDOMElement
*iface
,
406 domelem
*This
= impl_from_IXMLDOMElement( iface
);
407 TRACE("(%p)->(%p)\n", This
, p
);
408 return node_get_text(&This
->node
, p
);
411 static HRESULT WINAPI
domelem_put_text(
412 IXMLDOMElement
*iface
,
415 domelem
*This
= impl_from_IXMLDOMElement( iface
);
416 TRACE("(%p)->(%s)\n", This
, debugstr_w(p
));
417 return node_put_text( &This
->node
, p
);
420 static HRESULT WINAPI
domelem_get_specified(
421 IXMLDOMElement
*iface
,
422 VARIANT_BOOL
* isSpecified
)
424 domelem
*This
= impl_from_IXMLDOMElement( iface
);
425 FIXME("(%p)->(%p) stub!\n", This
, isSpecified
);
426 *isSpecified
= VARIANT_TRUE
;
430 static HRESULT WINAPI
domelem_get_definition(
431 IXMLDOMElement
*iface
,
432 IXMLDOMNode
** definitionNode
)
434 domelem
*This
= impl_from_IXMLDOMElement( iface
);
435 FIXME("(%p)->(%p)\n", This
, definitionNode
);
439 static inline BYTE
hex_to_byte(xmlChar c
)
441 if(c
<= '9') return c
-'0';
442 if(c
<= 'F') return c
-'A'+10;
446 static inline BYTE
base64_to_byte(xmlChar c
)
448 if(c
== '+') return 62;
449 if(c
== '/') return 63;
450 if(c
<= '9') return c
-'0'+52;
451 if(c
<= 'Z') return c
-'A';
455 static inline HRESULT
variant_from_dt(XDR_DT dt
, xmlChar
* str
, VARIANT
* v
)
459 BOOL handled
= FALSE
;
474 V_BSTR(v
) = bstr_from_xmlChar(str
);
477 return E_OUTOFMEMORY
;
495 st
.wDayOfWeek
= st
.wHour
= st
.wMinute
= st
.wSecond
= st
.wMilliseconds
= 0;
497 V_VT(&src
) = VT_BSTR
;
498 V_BSTR(&src
) = bstr_from_xmlChar(str
);
501 return E_OUTOFMEMORY
;
504 e
= p
+ SysStringLen(V_BSTR(&src
));
506 if(p
+4<e
&& *(p
+4)=='-') /* parse date (yyyy-mm-dd) */
509 st
.wMonth
= atoiW(p
+5);
510 st
.wDay
= atoiW(p
+8);
516 if(p
+2<e
&& *(p
+2)==':') /* parse time (hh:mm:ss.?) */
519 st
.wMinute
= atoiW(p
+3);
520 st
.wSecond
= atoiW(p
+6);
526 while(isdigitW(*p
)) p
++;
530 SystemTimeToVariantTime(&st
, &date
);
534 if(*p
== '+') /* parse timezone offset (+hh:mm) */
535 V_DATE(v
) += (DOUBLE
)atoiW(p
+1)/24 + (DOUBLE
)atoiW(p
+4)/1440;
536 else if(*p
== '-') /* parse timezone offset (-hh:mm) */
537 V_DATE(v
) -= (DOUBLE
)atoiW(p
+1)/24 + (DOUBLE
)atoiW(p
+4)/1440;
548 len
= xmlStrlen(str
)/2;
552 V_VT(v
) = (VT_ARRAY
|VT_UI1
);
553 V_ARRAY(v
) = SafeArrayCreate(VT_UI1
, 1, &sab
);
556 return E_OUTOFMEMORY
;
559 ((BYTE
*)V_ARRAY(v
)->pvData
)[i
] = (hex_to_byte(str
[2*i
])<<4)
560 + hex_to_byte(str
[2*i
+1]);
570 /* remove all formatting chars */
575 if ( *c2
== ' ' || *c2
== '\t' ||
576 *c2
== '\n' || *c2
== '\r' )
586 if(str
[len
-2] == '=') i
= 2;
587 else if(str
[len
-1] == '=') i
= 1;
591 sab
.cElements
= len
/4*3-i
;
593 V_VT(v
) = (VT_ARRAY
|VT_UI1
);
594 V_ARRAY(v
) = SafeArrayCreate(VT_UI1
, 1, &sab
);
597 return E_OUTOFMEMORY
;
599 for(i
=0; i
<len
/4; i
++)
601 ((BYTE
*)V_ARRAY(v
)->pvData
)[3*i
] = (base64_to_byte(str
[4*i
])<<2)
602 + (base64_to_byte(str
[4*i
+1])>>4);
603 if(3*i
+1 < sab
.cElements
)
604 ((BYTE
*)V_ARRAY(v
)->pvData
)[3*i
+1] = (base64_to_byte(str
[4*i
+1])<<4)
605 + (base64_to_byte(str
[4*i
+2])>>2);
606 if(3*i
+2 < sab
.cElements
)
607 ((BYTE
*)V_ARRAY(v
)->pvData
)[3*i
+2] = (base64_to_byte(str
[4*i
+2])<<6)
608 + base64_to_byte(str
[4*i
+3]);
659 FIXME("need to handle dt:%s\n", debugstr_dt(dt
));
661 V_BSTR(v
) = bstr_from_xmlChar(str
);
663 return E_OUTOFMEMORY
;
667 WARN("unknown type %d\n", dt
);
672 V_VT(&src
) = VT_BSTR
;
673 V_BSTR(&src
) = bstr_from_xmlChar(str
);
676 return E_OUTOFMEMORY
;
678 hr
= VariantChangeTypeEx(v
, &src
,
679 MAKELCID(MAKELANGID(LANG_ENGLISH
,SUBLANG_ENGLISH_US
),SORT_DEFAULT
),0, V_VT(v
));
685 static XDR_DT
element_get_dt(xmlNodePtr node
)
687 XDR_DT dt
= DT_INVALID
;
689 TRACE("(%p)\n", node
);
690 if(node
->type
!= XML_ELEMENT_NODE
)
692 FIXME("invalid element node\n");
696 if (node
->ns
&& xmlStrEqual(node
->ns
->href
, DT_nsURI
))
698 dt
= str_to_dt(node
->name
, -1);
702 xmlChar
* pVal
= xmlGetNsProp(node
, BAD_CAST
"dt", DT_nsURI
);
705 dt
= str_to_dt(pVal
, -1);
710 IXMLDOMDocument3
* doc
= (IXMLDOMDocument3
*)create_domdoc((xmlNodePtr
)node
->doc
);
716 if (IXMLDOMDocument3_get_schemas(doc
, &v
) == S_OK
&&
717 V_VT(&v
) == VT_DISPATCH
)
719 dt
= SchemaCache_get_node_dt((IXMLDOMSchemaCollection2
*)V_DISPATCH(&v
), node
);
722 IXMLDOMDocument3_Release(doc
);
727 TRACE("=> dt:%s\n", debugstr_dt(dt
));
731 static HRESULT WINAPI
domelem_get_nodeTypedValue(
732 IXMLDOMElement
*iface
,
735 domelem
*This
= impl_from_IXMLDOMElement( iface
);
740 TRACE("(%p)->(%p)\n", This
, v
);
742 if(!v
) return E_INVALIDARG
;
746 dt
= element_get_dt(get_element(This
));
747 content
= xmlNodeGetContent(get_element(This
));
748 hr
= variant_from_dt(dt
, content
, v
);
754 static HRESULT
encode_base64(const BYTE
*buf
, int len
, BSTR
*ret
)
756 static const char b64
[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
758 int bytes
, pad_bytes
, div
;
762 bytes
= (len
*8 + 5)/6;
763 pad_bytes
= (bytes
% 4) ? 4 - (bytes
% 4) : 0;
765 TRACE("%d, bytes is %d, pad bytes is %d\n", len
, bytes
, pad_bytes
);
766 needed
= bytes
+ pad_bytes
+ 1;
768 *ret
= SysAllocStringLen(NULL
, needed
);
769 if (!*ret
) return E_OUTOFMEMORY
;
771 /* Three bytes of input give 4 chars of output */
777 /* first char is the first 6 bits of the first byte*/
778 *ptr
++ = b64
[ ( d
[0] >> 2) & 0x3f ];
779 /* second char is the last 2 bits of the first byte and the first 4
780 * bits of the second byte */
781 *ptr
++ = b64
[ ((d
[0] << 4) & 0x30) | (d
[1] >> 4 & 0x0f)];
782 /* third char is the last 4 bits of the second byte and the first 2
783 * bits of the third byte */
784 *ptr
++ = b64
[ ((d
[1] << 2) & 0x3c) | (d
[2] >> 6 & 0x03)];
785 /* fourth char is the remaining 6 bits of the third byte */
786 *ptr
++ = b64
[ d
[2] & 0x3f];
794 /* first char is the first 6 bits of the first byte*/
795 *ptr
++ = b64
[ ( d
[0] >> 2) & 0x3f ];
796 /* second char is the last 2 bits of the first byte and the first 4
797 * bits of the second byte */
798 *ptr
++ = b64
[ ((d
[0] << 4) & 0x30) | (d
[1] >> 4 & 0x0f)];
799 /* third char is the last 4 bits of the second byte padded with
801 *ptr
++ = b64
[ ((d
[1] << 2) & 0x3c) ];
802 /* fourth char is a = to indicate one byte of padding */
806 /* first char is the first 6 bits of the first byte*/
807 *ptr
++ = b64
[ ( d
[0] >> 2) & 0x3f ];
808 /* second char is the last 2 bits of the first byte padded with
810 *ptr
++ = b64
[ ((d
[0] << 4) & 0x30)];
811 /* third char is = to indicate padding */
813 /* fourth char is = to indicate padding */
821 static HRESULT
encode_binhex(const BYTE
*buf
, int len
, BSTR
*ret
)
823 static const char byte_to_hex
[16] = "0123456789abcdef";
826 *ret
= SysAllocStringLen(NULL
, len
*2);
827 if (!*ret
) return E_OUTOFMEMORY
;
829 for (i
= 0; i
< len
; i
++)
831 (*ret
)[2*i
] = byte_to_hex
[buf
[i
] >> 4];
832 (*ret
)[2*i
+1] = byte_to_hex
[0x0f & buf
[i
]];
838 static HRESULT WINAPI
domelem_put_nodeTypedValue(
839 IXMLDOMElement
*iface
,
842 domelem
*This
= impl_from_IXMLDOMElement( iface
);
846 TRACE("(%p)->(%s)\n", This
, debugstr_variant(&value
));
848 dt
= element_get_dt(get_element(This
));
851 /* for untyped node coerce to BSTR and set */
853 if (V_VT(&value
) != VT_BSTR
)
856 VariantInit(&content
);
857 hr
= VariantChangeType(&content
, &value
, 0, VT_BSTR
);
860 hr
= node_set_content(&This
->node
, V_BSTR(&content
));
861 VariantClear(&content
);
865 hr
= node_set_content(&This
->node
, V_BSTR(&value
));
868 if (V_VT(&value
) == VT_BSTR
)
869 hr
= node_set_content(&This
->node
, V_BSTR(&value
));
870 else if (V_VT(&value
) == (VT_UI1
|VT_ARRAY
))
872 UINT dim
= SafeArrayGetDim(V_ARRAY(&value
));
879 FIXME("unexpected array dimension count %u\n", dim
);
881 SafeArrayGetUBound(V_ARRAY(&value
), 1, &ubound
);
882 SafeArrayGetLBound(V_ARRAY(&value
), 1, &lbound
);
884 len
= (ubound
- lbound
+ 1)*SafeArrayGetElemsize(V_ARRAY(&value
));
886 hr
= SafeArrayAccessData(V_ARRAY(&value
), (void*)&ptr
);
887 if (FAILED(hr
)) return hr
;
889 hr
= encode_base64(ptr
, len
, &encoded
);
890 SafeArrayUnaccessData(V_ARRAY(&value
));
891 if (FAILED(hr
)) return hr
;
893 hr
= node_set_content(&This
->node
, encoded
);
894 SysFreeString(encoded
);
898 FIXME("unhandled variant type %d for dt:%s\n", V_VT(&value
), debugstr_dt(dt
));
903 if (V_VT(&value
) == (VT_UI1
|VT_ARRAY
))
905 UINT dim
= SafeArrayGetDim(V_ARRAY(&value
));
912 FIXME("unexpected array dimension count %u\n", dim
);
914 SafeArrayGetUBound(V_ARRAY(&value
), 1, &ubound
);
915 SafeArrayGetLBound(V_ARRAY(&value
), 1, &lbound
);
917 len
= (ubound
- lbound
+ 1)*SafeArrayGetElemsize(V_ARRAY(&value
));
919 hr
= SafeArrayAccessData(V_ARRAY(&value
), (void*)&ptr
);
920 if (FAILED(hr
)) return hr
;
922 hr
= encode_binhex(ptr
, len
, &encoded
);
923 SafeArrayUnaccessData(V_ARRAY(&value
));
924 if (FAILED(hr
)) return hr
;
926 hr
= node_set_content(&This
->node
, encoded
);
927 SysFreeString(encoded
);
931 FIXME("unhandled variant type %d for dt:%s\n", V_VT(&value
), debugstr_dt(dt
));
936 FIXME("not implemented for dt:%s\n", debugstr_dt(dt
));
943 static HRESULT WINAPI
domelem_get_dataType(
944 IXMLDOMElement
*iface
,
947 domelem
*This
= impl_from_IXMLDOMElement( iface
);
950 TRACE("(%p)->(%p)\n", This
, typename
);
955 dt
= element_get_dt(get_element(This
));
984 V_VT(typename
) = VT_BSTR
;
985 V_BSTR(typename
) = SysAllocString(dt_to_bstr(dt
));
987 if (!V_BSTR(typename
))
988 return E_OUTOFMEMORY
;
991 /* Other types (DTD equivalents) do not return anything here,
992 * but the pointer part of the VARIANT is set to NULL */
993 V_VT(typename
) = VT_NULL
;
994 V_BSTR(typename
) = NULL
;
997 return (V_VT(typename
) != VT_NULL
) ? S_OK
: S_FALSE
;
1000 static HRESULT WINAPI
domelem_put_dataType(
1001 IXMLDOMElement
*iface
,
1004 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1005 HRESULT hr
= E_FAIL
;
1009 TRACE("(%p)->(%s)\n", This
, debugstr_w(dtName
));
1012 return E_INVALIDARG
;
1014 dt
= bstr_to_dt(dtName
, -1);
1016 /* An example of this is. The Text in the node needs to be a 0 or 1 for a boolean type.
1017 This applies to changing types (string->bool) or setting a new one
1019 str
= xmlNodeGetContent(get_element(This
));
1020 hr
= dt_validate(dt
, str
);
1023 /* Check all supported types. */
1035 case DT_DATETIME_TZ
:
1058 xmlAttrPtr attr
= xmlHasNsProp(get_element(This
), DT_prefix
, DT_nsURI
);
1061 attr
= xmlSetNsProp(get_element(This
), attr
->ns
, DT_prefix
, dt_to_str(dt
));
1066 xmlNsPtr ns
= xmlNewNs(get_element(This
), DT_nsURI
, DT_prefix
);
1069 attr
= xmlNewNsProp(get_element(This
), ns
, DT_prefix
, dt_to_str(dt
));
1072 xmlAddChild(get_element(This
), (xmlNodePtr
)attr
);
1076 ERR("Failed to create Attribute\n");
1079 ERR("Failed to create Namespace\n");
1084 FIXME("need to handle dt:%s\n", debugstr_dt(dt
));
1092 static HRESULT WINAPI
domelem_get_xml(
1093 IXMLDOMElement
*iface
,
1096 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1098 TRACE("(%p)->(%p)\n", This
, p
);
1100 return node_get_xml(&This
->node
, TRUE
, p
);
1103 static HRESULT WINAPI
domelem_transformNode(
1104 IXMLDOMElement
*iface
,
1105 IXMLDOMNode
*node
, BSTR
*p
)
1107 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1108 TRACE("(%p)->(%p %p)\n", This
, node
, p
);
1109 return node_transform_node(&This
->node
, node
, p
);
1112 static HRESULT WINAPI
domelem_selectNodes(
1113 IXMLDOMElement
*iface
,
1114 BSTR p
, IXMLDOMNodeList
** outList
)
1116 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1117 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(p
), outList
);
1118 return node_select_nodes(&This
->node
, p
, outList
);
1121 static HRESULT WINAPI
domelem_selectSingleNode(
1122 IXMLDOMElement
*iface
,
1123 BSTR p
, IXMLDOMNode
** outNode
)
1125 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1126 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(p
), outNode
);
1127 return node_select_singlenode(&This
->node
, p
, outNode
);
1130 static HRESULT WINAPI
domelem_get_parsed(
1131 IXMLDOMElement
*iface
,
1132 VARIANT_BOOL
* isParsed
)
1134 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1135 FIXME("(%p)->(%p) stub!\n", This
, isParsed
);
1136 *isParsed
= VARIANT_TRUE
;
1140 static HRESULT WINAPI
domelem_get_namespaceURI(
1141 IXMLDOMElement
*iface
,
1144 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1145 TRACE("(%p)->(%p)\n", This
, p
);
1146 return node_get_namespaceURI(&This
->node
, p
);
1149 static HRESULT WINAPI
domelem_get_prefix(
1150 IXMLDOMElement
*iface
,
1153 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1154 TRACE("(%p)->(%p)\n", This
, prefix
);
1155 return node_get_prefix( &This
->node
, prefix
);
1158 static HRESULT WINAPI
domelem_get_baseName(
1159 IXMLDOMElement
*iface
,
1162 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1163 TRACE("(%p)->(%p)\n", This
, name
);
1164 return node_get_base_name( &This
->node
, name
);
1167 static HRESULT WINAPI
domelem_transformNodeToObject(
1168 IXMLDOMElement
*iface
,
1169 IXMLDOMNode
* domNode
, VARIANT var1
)
1171 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1172 FIXME("(%p)->(%p %s)\n", This
, domNode
, debugstr_variant(&var1
));
1176 static HRESULT WINAPI
domelem_get_tagName(
1177 IXMLDOMElement
*iface
,
1180 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1182 const xmlChar
*prefix
;
1185 TRACE("(%p)->(%p)\n", This
, p
);
1187 if (!p
) return E_INVALIDARG
;
1189 element
= get_element( This
);
1193 prefix
= element
->ns
? element
->ns
->prefix
: NULL
;
1194 qname
= xmlBuildQName(element
->name
, prefix
, NULL
, 0);
1196 *p
= bstr_from_xmlChar(qname
);
1197 if (qname
!= element
->name
) xmlFree(qname
);
1199 return *p
? S_OK
: E_OUTOFMEMORY
;
1202 static HRESULT WINAPI
domelem_getAttribute(
1203 IXMLDOMElement
*iface
,
1204 BSTR name
, VARIANT
* value
)
1206 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1208 xmlChar
*xml_name
, *xml_value
= NULL
;
1209 HRESULT hr
= S_FALSE
;
1211 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(name
), value
);
1214 return E_INVALIDARG
;
1216 element
= get_element( This
);
1220 V_BSTR(value
) = NULL
;
1221 V_VT(value
) = VT_NULL
;
1223 xml_name
= xmlchar_from_wchar( name
);
1225 if(!xmlValidateNameValue(xml_name
))
1228 xml_value
= xmlGetNsProp(element
, xml_name
, NULL
);
1230 heap_free(xml_name
);
1233 V_VT(value
) = VT_BSTR
;
1234 V_BSTR(value
) = bstr_from_xmlChar( xml_value
);
1242 static HRESULT WINAPI
domelem_setAttribute(
1243 IXMLDOMElement
*iface
,
1244 BSTR name
, VARIANT value
)
1246 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1247 xmlChar
*xml_name
, *xml_value
, *local
, *prefix
;
1251 TRACE("(%p)->(%s %s)\n", This
, debugstr_w(name
), debugstr_variant(&value
));
1253 element
= get_element( This
);
1257 if (V_VT(&value
) != VT_BSTR
)
1262 hr
= VariantChangeType(&var
, &value
, 0, VT_BSTR
);
1265 FIXME("VariantChangeType failed\n");
1269 xml_value
= xmlchar_from_wchar(V_BSTR(&var
));
1273 xml_value
= xmlchar_from_wchar(V_BSTR(&value
));
1275 xml_name
= xmlchar_from_wchar( name
);
1277 if ((local
= xmlSplitQName2(xml_name
, &prefix
)))
1279 static const xmlChar
* xmlnsA
= (const xmlChar
*)"xmlns";
1282 /* it's not allowed to modify existing namespace definition */
1283 if (xmlStrEqual(prefix
, xmlnsA
))
1284 ns
= xmlSearchNs(element
->doc
, element
, local
);
1290 return xmlStrEqual(ns
->href
, xml_value
) ? S_OK
: E_INVALIDARG
;
1293 if (!xmlSetNsProp(element
, NULL
, xml_name
, xml_value
))
1296 heap_free(xml_value
);
1297 heap_free(xml_name
);
1302 static HRESULT WINAPI
domelem_removeAttribute(
1303 IXMLDOMElement
*iface
,
1306 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1307 IXMLDOMNamedNodeMap
*attr
;
1310 TRACE("(%p)->(%s)\n", This
, debugstr_w(p
));
1312 hr
= IXMLDOMElement_get_attributes(iface
, &attr
);
1313 if (hr
!= S_OK
) return hr
;
1315 hr
= IXMLDOMNamedNodeMap_removeNamedItem(attr
, p
, NULL
);
1316 IXMLDOMNamedNodeMap_Release(attr
);
1321 static HRESULT WINAPI
domelem_getAttributeNode(
1322 IXMLDOMElement
*iface
,
1323 BSTR p
, IXMLDOMAttribute
** attributeNode
)
1325 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1326 xmlChar
*local
, *prefix
, *nameA
;
1327 HRESULT hr
= S_FALSE
;
1331 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(p
), attributeNode
);
1333 element
= get_element( This
);
1334 if (!element
) return E_FAIL
;
1336 if (attributeNode
) *attributeNode
= NULL
;
1338 nameA
= xmlchar_from_wchar(p
);
1339 if (!xmlValidateNameValue(nameA
))
1351 *attributeNode
= NULL
;
1353 local
= xmlSplitQName2(nameA
, &prefix
);
1357 /* try to get namespace for supplied qualified name */
1358 xmlNsPtr ns
= xmlSearchNs(element
->doc
, element
, prefix
);
1361 attr
= xmlHasNsProp(element
, local
, ns
? ns
->href
: NULL
);
1366 attr
= xmlHasProp(element
, nameA
);
1367 /* attribute has attached namespace and we requested non-qualified
1368 name - it's a failure case */
1369 if (attr
&& attr
->ns
) attr
= NULL
;
1376 IUnknown
*unk
= create_attribute((xmlNodePtr
)attr
);
1377 hr
= IUnknown_QueryInterface(unk
, &IID_IXMLDOMAttribute
, (void**)attributeNode
);
1378 IUnknown_Release(unk
);
1384 static HRESULT WINAPI
domelem_setAttributeNode(
1385 IXMLDOMElement
*iface
,
1386 IXMLDOMAttribute
* attribute
,
1387 IXMLDOMAttribute
** old
)
1389 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1390 static const WCHAR xmlnsW
[] = {'x','m','l','n','s',0};
1391 xmlChar
*name
, *value
;
1398 FIXME("(%p)->(%p %p): semi-stub\n", This
, attribute
, old
);
1400 if (!attribute
) return E_INVALIDARG
;
1402 attr_node
= get_node_obj((IXMLDOMNode
*)attribute
);
1403 if (!attr_node
) return E_FAIL
;
1405 if (attr_node
->parent
)
1407 WARN("attempt to add already used attribute\n");
1411 hr
= IXMLDOMAttribute_get_nodeName(attribute
, &nameW
);
1412 if (hr
!= S_OK
) return hr
;
1414 /* adding xmlns attribute doesn't change a tree or existing namespace definition */
1415 if (!strcmpW(nameW
, xmlnsW
))
1417 SysFreeString(nameW
);
1418 return DISP_E_UNKNOWNNAME
;
1421 hr
= IXMLDOMAttribute_get_nodeValue(attribute
, &valueW
);
1424 SysFreeString(nameW
);
1428 if (old
) *old
= NULL
;
1430 TRACE("attribute: %s=%s\n", debugstr_w(nameW
), debugstr_w(V_BSTR(&valueW
)));
1432 hr
= IXMLDOMAttribute_get_prefix(attribute
, &prefix
);
1435 FIXME("namespaces not supported: %s\n", debugstr_w(prefix
));
1436 SysFreeString(prefix
);
1439 name
= xmlchar_from_wchar(nameW
);
1440 value
= xmlchar_from_wchar(V_BSTR(&valueW
));
1442 if (!name
|| !value
)
1444 SysFreeString(nameW
);
1445 VariantClear(&valueW
);
1448 return E_OUTOFMEMORY
;
1451 attr
= xmlSetNsProp(get_element(This
), NULL
, name
, value
);
1453 attr_node
->parent
= (IXMLDOMNode
*)iface
;
1455 SysFreeString(nameW
);
1456 VariantClear(&valueW
);
1460 return attr
? S_OK
: E_FAIL
;
1463 static HRESULT WINAPI
domelem_removeAttributeNode(
1464 IXMLDOMElement
*iface
,
1465 IXMLDOMAttribute
* domAttribute
,
1466 IXMLDOMAttribute
** attributeNode
)
1468 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1469 FIXME("(%p)->(%p %p)\n", This
, domAttribute
, attributeNode
);
1473 static HRESULT WINAPI
domelem_getElementsByTagName(
1474 IXMLDOMElement
*iface
,
1475 BSTR tagName
, IXMLDOMNodeList
** resultList
)
1477 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1482 TRACE("(%p)->(%s, %p)\n", This
, debugstr_w(tagName
), resultList
);
1484 if (!tagName
|| !resultList
) return E_INVALIDARG
;
1486 XPath
= is_xpathmode(get_element(This
)->doc
);
1487 set_xpathmode(get_element(This
)->doc
, TRUE
);
1488 query
= tagName_to_XPath(tagName
);
1489 hr
= create_selection(get_element(This
), query
, resultList
);
1491 set_xpathmode(get_element(This
)->doc
, XPath
);
1496 static HRESULT WINAPI
domelem_normalize(
1497 IXMLDOMElement
*iface
)
1499 domelem
*This
= impl_from_IXMLDOMElement( iface
);
1500 FIXME("%p\n", This
);
1504 static const struct IXMLDOMElementVtbl domelem_vtbl
=
1506 domelem_QueryInterface
,
1509 domelem_GetTypeInfoCount
,
1510 domelem_GetTypeInfo
,
1511 domelem_GetIDsOfNames
,
1513 domelem_get_nodeName
,
1514 domelem_get_nodeValue
,
1515 domelem_put_nodeValue
,
1516 domelem_get_nodeType
,
1517 domelem_get_parentNode
,
1518 domelem_get_childNodes
,
1519 domelem_get_firstChild
,
1520 domelem_get_lastChild
,
1521 domelem_get_previousSibling
,
1522 domelem_get_nextSibling
,
1523 domelem_get_attributes
,
1524 domelem_insertBefore
,
1525 domelem_replaceChild
,
1526 domelem_removeChild
,
1527 domelem_appendChild
,
1528 domelem_hasChildNodes
,
1529 domelem_get_ownerDocument
,
1531 domelem_get_nodeTypeString
,
1534 domelem_get_specified
,
1535 domelem_get_definition
,
1536 domelem_get_nodeTypedValue
,
1537 domelem_put_nodeTypedValue
,
1538 domelem_get_dataType
,
1539 domelem_put_dataType
,
1541 domelem_transformNode
,
1542 domelem_selectNodes
,
1543 domelem_selectSingleNode
,
1545 domelem_get_namespaceURI
,
1547 domelem_get_baseName
,
1548 domelem_transformNodeToObject
,
1549 domelem_get_tagName
,
1550 domelem_getAttribute
,
1551 domelem_setAttribute
,
1552 domelem_removeAttribute
,
1553 domelem_getAttributeNode
,
1554 domelem_setAttributeNode
,
1555 domelem_removeAttributeNode
,
1556 domelem_getElementsByTagName
,
1560 static HRESULT
domelem_get_qualified_item(const xmlNodePtr node
, BSTR name
, BSTR uri
,
1567 TRACE("(%p)->(%s %s %p)\n", node
, debugstr_w(name
), debugstr_w(uri
), item
);
1569 if (!name
|| !item
) return E_INVALIDARG
;
1573 href
= xmlchar_from_wchar(uri
);
1574 if (!href
) return E_OUTOFMEMORY
;
1579 nameA
= xmlchar_from_wchar(name
);
1583 return E_OUTOFMEMORY
;
1586 attr
= xmlHasNsProp(node
, nameA
, href
);
1597 *item
= create_node((xmlNodePtr
)attr
);
1602 static HRESULT
domelem_get_named_item(const xmlNodePtr node
, BSTR name
, IXMLDOMNode
**item
)
1604 xmlChar
*nameA
, *local
, *prefix
;
1609 TRACE("(%p)->(%s %p)\n", node
, debugstr_w(name
), item
);
1611 nameA
= xmlchar_from_wchar(name
);
1612 local
= xmlSplitQName2(nameA
, &prefix
);
1616 return domelem_get_qualified_item(node
, name
, NULL
, item
);
1618 /* try to get namespace uri for supplied qualified name */
1619 ns
= xmlSearchNs(node
->doc
, node
, prefix
);
1626 if (item
) *item
= NULL
;
1627 return item
? S_FALSE
: E_INVALIDARG
;
1630 uriW
= bstr_from_xmlChar(ns
->href
);
1631 localW
= bstr_from_xmlChar(local
);
1634 TRACE("got qualified node %s, uri=%s\n", debugstr_w(localW
), debugstr_w(uriW
));
1636 hr
= domelem_get_qualified_item(node
, localW
, uriW
, item
);
1638 SysFreeString(localW
);
1639 SysFreeString(uriW
);
1644 static HRESULT
domelem_set_named_item(xmlNodePtr node
, IXMLDOMNode
*newItem
, IXMLDOMNode
**namedItem
)
1649 TRACE("(%p)->(%p %p)\n", node
, newItem
, namedItem
);
1652 return E_INVALIDARG
;
1654 if(namedItem
) *namedItem
= NULL
;
1656 /* Must be an Attribute */
1657 ThisNew
= get_node_obj( newItem
);
1658 if(!ThisNew
) return E_FAIL
;
1660 if(ThisNew
->node
->type
!= XML_ATTRIBUTE_NODE
)
1663 if(!ThisNew
->node
->parent
)
1664 if(xmldoc_remove_orphan(ThisNew
->node
->doc
, ThisNew
->node
) != S_OK
)
1665 WARN("%p is not an orphan of %p\n", ThisNew
->node
, ThisNew
->node
->doc
);
1667 nodeNew
= xmlAddChild(node
, ThisNew
->node
);
1670 *namedItem
= create_node( nodeNew
);
1674 static HRESULT
domelem_remove_qualified_item(xmlNodePtr node
, BSTR name
, BSTR uri
, IXMLDOMNode
**item
)
1676 xmlChar
*nameA
, *href
;
1679 TRACE("(%p)->(%s %s %p)\n", node
, debugstr_w(name
), debugstr_w(uri
), item
);
1681 if (!name
) return E_INVALIDARG
;
1685 href
= xmlchar_from_wchar(uri
);
1686 if (!href
) return E_OUTOFMEMORY
;
1691 nameA
= xmlchar_from_wchar(name
);
1695 return E_OUTOFMEMORY
;
1698 attr
= xmlHasNsProp(node
, nameA
, href
);
1705 if (item
) *item
= NULL
;
1711 xmlUnlinkNode( (xmlNodePtr
) attr
);
1712 xmldoc_add_orphan( attr
->doc
, (xmlNodePtr
) attr
);
1713 *item
= create_node( (xmlNodePtr
) attr
);
1717 if (xmlRemoveProp(attr
) == -1)
1718 ERR("xmlRemoveProp failed\n");
1724 static HRESULT
domelem_remove_named_item(xmlNodePtr node
, BSTR name
, IXMLDOMNode
**item
)
1726 TRACE("(%p)->(%s %p)\n", node
, debugstr_w(name
), item
);
1727 return domelem_remove_qualified_item(node
, name
, NULL
, item
);
1730 static HRESULT
domelem_get_item(const xmlNodePtr node
, LONG index
, IXMLDOMNode
**item
)
1735 TRACE("(%p)->(%d %p)\n", node
, index
, item
);
1742 curr
= node
->properties
;
1744 for (attrIndex
= 0; attrIndex
< index
; attrIndex
++) {
1745 if (curr
->next
== NULL
)
1751 *item
= create_node( (xmlNodePtr
) curr
);
1756 static HRESULT
domelem_get_length(const xmlNodePtr node
, LONG
*length
)
1762 TRACE("(%p)->(%p)\n", node
, length
);
1765 return E_INVALIDARG
;
1767 first
= node
->properties
;
1768 if (first
== NULL
) {
1775 while (curr
->next
) {
1779 *length
= attrCount
;
1784 static HRESULT
domelem_next_node(const xmlNodePtr node
, LONG
*iter
, IXMLDOMNode
**nextNode
)
1789 TRACE("(%p)->(%d: %p)\n", node
, *iter
, nextNode
);
1793 curr
= node
->properties
;
1795 for (i
= 0; i
< *iter
; i
++) {
1796 if (curr
->next
== NULL
)
1803 *nextNode
= create_node((xmlNodePtr
)curr
);
1808 static const struct nodemap_funcs domelem_attr_map
= {
1809 domelem_get_named_item
,
1810 domelem_set_named_item
,
1811 domelem_remove_named_item
,
1814 domelem_get_qualified_item
,
1815 domelem_remove_qualified_item
,
1819 static const tid_t domelem_iface_tids
[] = {
1824 static dispex_static_data_t domelem_dispex
= {
1831 IUnknown
* create_element( xmlNodePtr element
)
1835 This
= heap_alloc( sizeof *This
);
1839 This
->IXMLDOMElement_iface
.lpVtbl
= &domelem_vtbl
;
1842 init_xmlnode(&This
->node
, element
, (IXMLDOMNode
*)&This
->IXMLDOMElement_iface
, &domelem_dispex
);
1844 return (IUnknown
*)&This
->IXMLDOMElement_iface
;