2 * SAX Reader implementation
4 * Copyright 2008 Alistair Leslie-Hughes
5 * Copyright 2008 Piotr Caban
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
38 #include "wine/debug.h"
40 #include "msxml_private.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
46 #include <libxml/SAX2.h>
47 #include <libxml/parserInternals.h>
49 typedef struct _saxreader
51 const struct IVBSAXXMLReaderVtbl
*lpVBSAXXMLReaderVtbl
;
52 const struct ISAXXMLReaderVtbl
*lpSAXXMLReaderVtbl
;
54 struct ISAXContentHandler
*contentHandler
;
55 struct IVBSAXContentHandler
*vbcontentHandler
;
56 struct ISAXErrorHandler
*errorHandler
;
57 struct IVBSAXErrorHandler
*vberrorHandler
;
58 struct ISAXLexicalHandler
*lexicalHandler
;
59 struct IVBSAXLexicalHandler
*vblexicalHandler
;
60 struct ISAXDeclHandler
*declHandler
;
61 struct IVBSAXDeclHandler
*vbdeclHandler
;
66 typedef struct _saxlocator
68 const struct IVBSAXLocatorVtbl
*lpVBSAXLocatorVtbl
;
69 const struct ISAXLocatorVtbl
*lpSAXLocatorVtbl
;
73 xmlParserCtxtPtr pParserCtxt
;
87 typedef struct _saxattributes
89 const struct IVBSAXAttributesVtbl
*lpVBSAXAttributesVtbl
;
90 const struct ISAXAttributesVtbl
*lpSAXAttributesVtbl
;
99 static inline saxreader
*impl_from_IVBSAXXMLReader( IVBSAXXMLReader
*iface
)
101 return (saxreader
*)((char*)iface
- FIELD_OFFSET(saxreader
, lpVBSAXXMLReaderVtbl
));
104 static inline saxreader
*impl_from_ISAXXMLReader( ISAXXMLReader
*iface
)
106 return (saxreader
*)((char*)iface
- FIELD_OFFSET(saxreader
, lpSAXXMLReaderVtbl
));
109 static inline saxlocator
*impl_from_IVBSAXLocator( IVBSAXLocator
*iface
)
111 return (saxlocator
*)((char*)iface
- FIELD_OFFSET(saxlocator
, lpVBSAXLocatorVtbl
));
114 static inline saxlocator
*impl_from_ISAXLocator( ISAXLocator
*iface
)
116 return (saxlocator
*)((char*)iface
- FIELD_OFFSET(saxlocator
, lpSAXLocatorVtbl
));
119 static inline saxattributes
*impl_from_IVBSAXAttributes( IVBSAXAttributes
*iface
)
121 return (saxattributes
*)((char*)iface
- FIELD_OFFSET(saxattributes
, lpVBSAXAttributesVtbl
));
124 static inline saxattributes
*impl_from_ISAXAttributes( ISAXAttributes
*iface
)
126 return (saxattributes
*)((char*)iface
- FIELD_OFFSET(saxattributes
, lpSAXAttributesVtbl
));
130 static HRESULT
namespacePush(saxlocator
*locator
, int ns
)
132 if(locator
->nsStackLast
>=locator
->nsStackSize
)
136 new_stack
= HeapReAlloc(GetProcessHeap(), 0,
137 locator
->nsStack
, locator
->nsStackSize
*2);
138 if(!new_stack
) return E_OUTOFMEMORY
;
139 locator
->nsStack
= new_stack
;
140 locator
->nsStackSize
*= 2;
142 locator
->nsStack
[locator
->nsStackLast
++] = ns
;
147 static int namespacePop(saxlocator
*locator
)
149 if(locator
->nsStackLast
== 0) return 0;
150 return locator
->nsStack
[--locator
->nsStackLast
];
153 static BSTR
bstr_from_xmlCharN(const xmlChar
*buf
, int len
)
162 dLen
= MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)buf
, len
, NULL
, 0);
163 if(len
!= -1) dLen
++;
164 str
= (LPWSTR
)HeapAlloc(GetProcessHeap(), 0, dLen
* sizeof (WCHAR
));
167 MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)buf
, len
, str
, dLen
);
168 if(len
!= -1) str
[dLen
-1] = '\0';
169 bstr
= SysAllocString(str
);
170 HeapFree(GetProcessHeap(), 0, str
);
175 static BSTR
QName_from_xmlChar(const xmlChar
*prefix
, const xmlChar
*name
)
181 if(!name
) return NULL
;
183 if(!prefix
|| *prefix
=='\0')
184 return bstr_from_xmlChar(name
);
186 dLen
= MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)prefix
, -1, NULL
, 0)
187 + MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)name
, -1, NULL
, 0);
188 str
= HeapAlloc(GetProcessHeap(), 0, dLen
* sizeof(WCHAR
));
192 dLast
= MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)prefix
, -1, str
, dLen
);
194 MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)name
, -1, &str
[dLast
], dLen
-dLast
);
195 bstr
= SysAllocString(str
);
197 HeapFree(GetProcessHeap(), 0, str
);
202 static void format_error_message_from_id(saxlocator
*This
, HRESULT hr
)
204 xmlStopParser(This
->pParserCtxt
);
207 if((This
->vbInterface
&& This
->saxreader
->vberrorHandler
)
208 || (!This
->vbInterface
&& This
->saxreader
->errorHandler
))
211 if(!FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM
,
212 NULL
, hr
, 0, msg
, sizeof(msg
), NULL
))
214 FIXME("MSXML errors not yet supported.\n");
218 if(This
->vbInterface
)
220 BSTR bstrMsg
= SysAllocString(msg
);
221 IVBSAXErrorHandler_fatalError(This
->saxreader
->vberrorHandler
,
222 (IVBSAXLocator
*)&This
->lpVBSAXLocatorVtbl
, &bstrMsg
, hr
);
225 ISAXErrorHandler_fatalError(This
->saxreader
->errorHandler
,
226 (ISAXLocator
*)&This
->lpSAXLocatorVtbl
, msg
, hr
);
230 static void update_position(saxlocator
*This
, xmlChar
*end
)
232 if(This
->lastCur
== NULL
)
234 This
->lastCur
= (xmlChar
*)This
->pParserCtxt
->input
->base
;
236 This
->realColumn
= 1;
238 else if(This
->lastCur
< This
->pParserCtxt
->input
->base
)
240 This
->lastCur
= (xmlChar
*)This
->pParserCtxt
->input
->base
;
242 This
->realColumn
= 1;
245 if(This
->pParserCtxt
->input
->cur
<This
->lastCur
)
247 This
->lastCur
= (xmlChar
*)This
->pParserCtxt
->input
->base
;
249 This
->realColumn
= 1;
252 if(!end
) end
= (xmlChar
*)This
->pParserCtxt
->input
->cur
;
254 while(This
->lastCur
< end
)
256 if(*(This
->lastCur
) == '\n')
259 This
->realColumn
= 1;
261 else if(*(This
->lastCur
) == '\r' &&
262 (This
->lastCur
==This
->pParserCtxt
->input
->end
||
263 *(This
->lastCur
+1)!='\n'))
266 This
->realColumn
= 1;
268 else This
->realColumn
++;
272 /* Count multibyte UTF8 encoded characters once */
273 while((*(This
->lastCur
)&0xC0) == 0x80) This
->lastCur
++;
276 This
->line
= This
->realLine
;
277 This
->column
= This
->realColumn
;
280 /*** IVBSAXAttributes interface ***/
281 /*** IUnknown methods ***/
282 static HRESULT WINAPI
ivbsaxattributes_QueryInterface(
283 IVBSAXAttributes
* iface
,
287 saxattributes
*This
= impl_from_IVBSAXAttributes(iface
);
289 TRACE("%p %s %p\n", This
, debugstr_guid(riid
), ppvObject
);
293 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
294 IsEqualGUID(riid
, &IID_IDispatch
) ||
295 IsEqualGUID(riid
, &IID_IVBSAXAttributes
))
301 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
302 return E_NOINTERFACE
;
305 IVBSAXAttributes_AddRef(iface
);
310 static ULONG WINAPI
ivbsaxattributes_AddRef(IVBSAXAttributes
* iface
)
312 saxattributes
*This
= impl_from_IVBSAXAttributes(iface
);
313 return ISAXAttributes_AddRef((ISAXAttributes
*)&This
->lpSAXAttributesVtbl
);
316 static ULONG WINAPI
ivbsaxattributes_Release(IVBSAXAttributes
* iface
)
318 saxattributes
*This
= impl_from_IVBSAXAttributes(iface
);
319 return ISAXAttributes_Release((ISAXAttributes
*)&This
->lpSAXAttributesVtbl
);
322 /*** IDispatch methods ***/
323 static HRESULT WINAPI
ivbsaxattributes_GetTypeInfoCount( IVBSAXAttributes
*iface
, UINT
* pctinfo
)
325 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
327 TRACE("(%p)->(%p)\n", This
, pctinfo
);
334 static HRESULT WINAPI
ivbsaxattributes_GetTypeInfo(
335 IVBSAXAttributes
*iface
,
336 UINT iTInfo
, LCID lcid
, ITypeInfo
** ppTInfo
)
338 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
341 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
343 hr
= get_typeinfo(IVBSAXAttributes_tid
, ppTInfo
);
348 static HRESULT WINAPI
ivbsaxattributes_GetIDsOfNames(
349 IVBSAXAttributes
*iface
,
356 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
360 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
363 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
366 hr
= get_typeinfo(IVBSAXAttributes_tid
, &typeinfo
);
369 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
370 ITypeInfo_Release(typeinfo
);
376 static HRESULT WINAPI
ivbsaxattributes_Invoke(
377 IVBSAXAttributes
*iface
,
382 DISPPARAMS
* pDispParams
,
384 EXCEPINFO
* pExcepInfo
,
387 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
391 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
392 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
394 hr
= get_typeinfo(IVBSAXAttributes_tid
, &typeinfo
);
397 hr
= ITypeInfo_Invoke(typeinfo
, &(This
->lpVBSAXAttributesVtbl
), dispIdMember
, wFlags
, pDispParams
,
398 pVarResult
, pExcepInfo
, puArgErr
);
399 ITypeInfo_Release(typeinfo
);
405 /*** IVBSAXAttributes methods ***/
406 static HRESULT WINAPI
ivbsaxattributes_get_length(
407 IVBSAXAttributes
* iface
,
410 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
411 return ISAXAttributes_getLength(
412 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
416 static HRESULT WINAPI
ivbsaxattributes_getURI(
417 IVBSAXAttributes
* iface
,
422 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
423 return ISAXAttributes_getURI(
424 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
425 nIndex
, (const WCHAR
**)uri
, &len
);
428 static HRESULT WINAPI
ivbsaxattributes_getLocalName(
429 IVBSAXAttributes
* iface
,
434 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
435 return ISAXAttributes_getLocalName(
436 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
437 nIndex
, (const WCHAR
**)localName
, &len
);
440 static HRESULT WINAPI
ivbsaxattributes_getQName(
441 IVBSAXAttributes
* iface
,
446 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
447 return ISAXAttributes_getQName(
448 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
449 nIndex
, (const WCHAR
**)QName
, &len
);
452 static HRESULT WINAPI
ivbsaxattributes_getIndexFromName(
453 IVBSAXAttributes
* iface
,
458 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
459 return ISAXAttributes_getIndexFromName(
460 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
461 (const WCHAR
*)uri
, SysStringLen(uri
),
462 (const WCHAR
*)localName
, SysStringLen(localName
), index
);
465 static HRESULT WINAPI
ivbsaxattributes_getIndexFromQName(
466 IVBSAXAttributes
* iface
,
470 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
471 return ISAXAttributes_getIndexFromQName(
472 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
473 (const WCHAR
*)QName
, SysStringLen(QName
), index
);
476 static HRESULT WINAPI
ivbsaxattributes_getType(
477 IVBSAXAttributes
* iface
,
482 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
483 return ISAXAttributes_getType(
484 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
485 nIndex
, (const WCHAR
**)type
, &len
);
488 static HRESULT WINAPI
ivbsaxattributes_getTypeFromName(
489 IVBSAXAttributes
* iface
,
495 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
496 return ISAXAttributes_getTypeFromName(
497 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
498 (const WCHAR
*)uri
, SysStringLen(uri
),
499 (const WCHAR
*)localName
, SysStringLen(localName
),
500 (const WCHAR
**)type
, &len
);
503 static HRESULT WINAPI
ivbsaxattributes_getTypeFromQName(
504 IVBSAXAttributes
* iface
,
509 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
510 return ISAXAttributes_getTypeFromQName(
511 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
512 (const WCHAR
*)QName
, SysStringLen(QName
),
513 (const WCHAR
**)type
, &len
);
516 static HRESULT WINAPI
ivbsaxattributes_getValue(
517 IVBSAXAttributes
* iface
,
522 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
523 return ISAXAttributes_getValue(
524 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
525 nIndex
, (const WCHAR
**)value
, &len
);
528 static HRESULT WINAPI
ivbsaxattributes_getValueFromName(
529 IVBSAXAttributes
* iface
,
535 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
536 return ISAXAttributes_getValueFromName(
537 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
538 (const WCHAR
*)uri
, SysStringLen(uri
),
539 (const WCHAR
*)localName
, SysStringLen(localName
),
540 (const WCHAR
**)value
, &len
);
543 static HRESULT WINAPI
ivbsaxattributes_getValueFromQName(
544 IVBSAXAttributes
* iface
,
549 saxattributes
*This
= impl_from_IVBSAXAttributes( iface
);
550 return ISAXAttributes_getValueFromQName(
551 (ISAXAttributes
*)&This
->lpSAXAttributesVtbl
,
552 (const WCHAR
*)QName
, SysStringLen(QName
),
553 (const WCHAR
**)value
, &len
);
556 static const struct IVBSAXAttributesVtbl ivbsaxattributes_vtbl
=
558 ivbsaxattributes_QueryInterface
,
559 ivbsaxattributes_AddRef
,
560 ivbsaxattributes_Release
,
561 ivbsaxattributes_GetTypeInfoCount
,
562 ivbsaxattributes_GetTypeInfo
,
563 ivbsaxattributes_GetIDsOfNames
,
564 ivbsaxattributes_Invoke
,
565 ivbsaxattributes_get_length
,
566 ivbsaxattributes_getURI
,
567 ivbsaxattributes_getLocalName
,
568 ivbsaxattributes_getQName
,
569 ivbsaxattributes_getIndexFromName
,
570 ivbsaxattributes_getIndexFromQName
,
571 ivbsaxattributes_getType
,
572 ivbsaxattributes_getTypeFromName
,
573 ivbsaxattributes_getTypeFromQName
,
574 ivbsaxattributes_getValue
,
575 ivbsaxattributes_getValueFromName
,
576 ivbsaxattributes_getValueFromQName
579 /*** ISAXAttributes interface ***/
580 /*** IUnknown methods ***/
581 static HRESULT WINAPI
isaxattributes_QueryInterface(
582 ISAXAttributes
* iface
,
586 saxattributes
*This
= impl_from_ISAXAttributes(iface
);
588 TRACE("%p %s %p\n", This
, debugstr_guid(riid
), ppvObject
);
592 if (IsEqualGUID(riid
, &IID_IUnknown
) ||
593 IsEqualGUID(riid
, &IID_ISAXAttributes
))
599 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
600 return E_NOINTERFACE
;
603 ISAXAttributes_AddRef(iface
);
608 static ULONG WINAPI
isaxattributes_AddRef(ISAXAttributes
* iface
)
610 saxattributes
*This
= impl_from_ISAXAttributes(iface
);
612 return InterlockedIncrement(&This
->ref
);
615 static ULONG WINAPI
isaxattributes_Release(ISAXAttributes
* iface
)
617 saxattributes
*This
= impl_from_ISAXAttributes(iface
);
622 ref
= InterlockedDecrement(&This
->ref
);
626 for(index
=0; index
<This
->nb_attributes
; index
++)
628 SysFreeString(This
->szLocalname
[index
]);
629 SysFreeString(This
->szURI
[index
]);
630 SysFreeString(This
->szValue
[index
]);
631 SysFreeString(This
->szQName
[index
]);
634 HeapFree(GetProcessHeap(), 0, This
->szLocalname
);
635 HeapFree(GetProcessHeap(), 0, This
->szURI
);
636 HeapFree(GetProcessHeap(), 0, This
->szValue
);
637 HeapFree(GetProcessHeap(), 0, This
->szQName
);
639 HeapFree(GetProcessHeap(), 0, This
);
645 /*** ISAXAttributes methods ***/
646 static HRESULT WINAPI
isaxattributes_getLength(
647 ISAXAttributes
* iface
,
650 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
652 *length
= This
->nb_attributes
;
653 TRACE("Length set to %d\n", *length
);
657 static HRESULT WINAPI
isaxattributes_getURI(
658 ISAXAttributes
* iface
,
663 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
664 TRACE("(%p)->(%d)\n", This
, nIndex
);
666 if(nIndex
>=This
->nb_attributes
|| nIndex
<0) return E_INVALIDARG
;
667 if(!pUrl
|| !pUriSize
) return E_POINTER
;
669 *pUriSize
= SysStringLen(This
->szURI
[nIndex
]);
670 *pUrl
= This
->szURI
[nIndex
];
675 static HRESULT WINAPI
isaxattributes_getLocalName(
676 ISAXAttributes
* iface
,
678 const WCHAR
**pLocalName
,
679 int *pLocalNameLength
)
681 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
682 TRACE("(%p)->(%d)\n", This
, nIndex
);
684 if(nIndex
>=This
->nb_attributes
|| nIndex
<0) return E_INVALIDARG
;
685 if(!pLocalName
|| !pLocalNameLength
) return E_POINTER
;
687 *pLocalNameLength
= SysStringLen(This
->szLocalname
[nIndex
]);
688 *pLocalName
= This
->szLocalname
[nIndex
];
693 static HRESULT WINAPI
isaxattributes_getQName(
694 ISAXAttributes
* iface
,
696 const WCHAR
**pQName
,
699 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
700 TRACE("(%p)->(%d)\n", This
, nIndex
);
702 if(nIndex
>=This
->nb_attributes
|| nIndex
<0) return E_INVALIDARG
;
703 if(!pQName
|| !pQNameLength
) return E_POINTER
;
705 *pQNameLength
= SysStringLen(This
->szQName
[nIndex
]);
706 *pQName
= This
->szQName
[nIndex
];
711 static HRESULT WINAPI
isaxattributes_getName(
712 ISAXAttributes
* iface
,
716 const WCHAR
**pLocalName
,
718 const WCHAR
**pQName
,
721 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
722 TRACE("(%p)->(%d)\n", This
, nIndex
);
724 if(nIndex
>=This
->nb_attributes
|| nIndex
<0) return E_INVALIDARG
;
725 if(!pUri
|| !pUriLength
|| !pLocalName
|| !pLocalNameSize
726 || !pQName
|| !pQNameLength
) return E_POINTER
;
728 *pUriLength
= SysStringLen(This
->szURI
[nIndex
]);
729 *pUri
= This
->szURI
[nIndex
];
730 *pLocalNameSize
= SysStringLen(This
->szLocalname
[nIndex
]);
731 *pLocalName
= This
->szLocalname
[nIndex
];
732 *pQNameLength
= SysStringLen(This
->szQName
[nIndex
]);
733 *pQName
= This
->szQName
[nIndex
];
738 static HRESULT WINAPI
isaxattributes_getIndexFromName(
739 ISAXAttributes
* iface
,
742 const WCHAR
*pLocalName
,
746 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
748 TRACE("(%p)->(%s, %d, %s, %d)\n", This
, debugstr_w(pUri
), cUriLength
,
749 debugstr_w(pLocalName
), cocalNameLength
);
751 if(!pUri
|| !pLocalName
|| !index
) return E_POINTER
;
753 for(i
=0; i
<This
->nb_attributes
; i
++)
755 if(cUriLength
!=SysStringLen(This
->szURI
[i
])
756 || cocalNameLength
!=SysStringLen(This
->szLocalname
[i
]))
758 if(cUriLength
&& memcmp(pUri
, This
->szURI
[i
],
759 sizeof(WCHAR
)*cUriLength
))
761 if(cocalNameLength
&& memcmp(pLocalName
, This
->szLocalname
[i
],
762 sizeof(WCHAR
)*cocalNameLength
))
772 static HRESULT WINAPI
isaxattributes_getIndexFromQName(
773 ISAXAttributes
* iface
,
778 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
780 TRACE("(%p)->(%s, %d)\n", This
, debugstr_w(pQName
), nQNameLength
);
782 if(!pQName
|| !index
) return E_POINTER
;
783 if(!nQNameLength
) return E_INVALIDARG
;
785 for(i
=0; i
<This
->nb_attributes
; i
++)
787 if(nQNameLength
!=SysStringLen(This
->szQName
[i
])) continue;
788 if(memcmp(pQName
, This
->szQName
, sizeof(WCHAR
)*nQNameLength
)) continue;
797 static HRESULT WINAPI
isaxattributes_getType(
798 ISAXAttributes
* iface
,
803 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
805 FIXME("(%p)->(%d) stub\n", This
, nIndex
);
809 static HRESULT WINAPI
isaxattributes_getTypeFromName(
810 ISAXAttributes
* iface
,
813 const WCHAR
*pLocalName
,
818 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
820 FIXME("(%p)->(%s, %d, %s, %d) stub\n", This
, debugstr_w(pUri
), nUri
,
821 debugstr_w(pLocalName
), nLocalName
);
825 static HRESULT WINAPI
isaxattributes_getTypeFromQName(
826 ISAXAttributes
* iface
,
832 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
834 FIXME("(%p)->(%s, %d) stub\n", This
, debugstr_w(pQName
), nQName
);
838 static HRESULT WINAPI
isaxattributes_getValue(
839 ISAXAttributes
* iface
,
841 const WCHAR
**pValue
,
844 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
845 TRACE("(%p)->(%d)\n", This
, nIndex
);
847 if(nIndex
>=This
->nb_attributes
|| nIndex
<0) return E_INVALIDARG
;
848 if(!pValue
|| !nValue
) return E_POINTER
;
850 *nValue
= SysStringLen(This
->szValue
[nIndex
]);
851 *pValue
= This
->szValue
[nIndex
];
856 static HRESULT WINAPI
isaxattributes_getValueFromName(
857 ISAXAttributes
* iface
,
860 const WCHAR
*pLocalName
,
862 const WCHAR
**pValue
,
867 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
868 TRACE("(%p)->(%s, %d, %s, %d)\n", This
, debugstr_w(pUri
), nUri
,
869 debugstr_w(pLocalName
), nLocalName
);
871 hr
= ISAXAttributes_getIndexFromName(iface
,
872 pUri
, nUri
, pLocalName
, nLocalName
, &index
);
873 if(hr
==S_OK
) hr
= ISAXAttributes_getValue(iface
, index
, pValue
, nValue
);
878 static HRESULT WINAPI
isaxattributes_getValueFromQName(
879 ISAXAttributes
* iface
,
882 const WCHAR
**pValue
,
887 saxattributes
*This
= impl_from_ISAXAttributes( iface
);
888 TRACE("(%p)->(%s, %d)\n", This
, debugstr_w(pQName
), nQName
);
890 hr
= ISAXAttributes_getIndexFromQName(iface
, pQName
, nQName
, &index
);
891 if(hr
==S_OK
) hr
= ISAXAttributes_getValue(iface
, index
, pValue
, nValue
);
896 static const struct ISAXAttributesVtbl isaxattributes_vtbl
=
898 isaxattributes_QueryInterface
,
899 isaxattributes_AddRef
,
900 isaxattributes_Release
,
901 isaxattributes_getLength
,
902 isaxattributes_getURI
,
903 isaxattributes_getLocalName
,
904 isaxattributes_getQName
,
905 isaxattributes_getName
,
906 isaxattributes_getIndexFromName
,
907 isaxattributes_getIndexFromQName
,
908 isaxattributes_getType
,
909 isaxattributes_getTypeFromName
,
910 isaxattributes_getTypeFromQName
,
911 isaxattributes_getValue
,
912 isaxattributes_getValueFromName
,
913 isaxattributes_getValueFromQName
916 static HRESULT
SAXAttributes_create(saxattributes
**attr
,
917 int nb_namespaces
, const xmlChar
**xmlNamespaces
,
918 int nb_attributes
, const xmlChar
**xmlAttributes
)
920 saxattributes
*attributes
;
922 static const xmlChar xmlns
[] = "xmlns";
924 attributes
= HeapAlloc(GetProcessHeap(), 0, sizeof(*attributes
));
926 return E_OUTOFMEMORY
;
928 attributes
->lpVBSAXAttributesVtbl
= &ivbsaxattributes_vtbl
;
929 attributes
->lpSAXAttributesVtbl
= &isaxattributes_vtbl
;
932 attributes
->nb_attributes
= nb_namespaces
+nb_attributes
;
934 attributes
->szLocalname
=
935 HeapAlloc(GetProcessHeap(), 0, sizeof(BSTR
)*attributes
->nb_attributes
);
937 HeapAlloc(GetProcessHeap(), 0, sizeof(BSTR
)*attributes
->nb_attributes
);
938 attributes
->szValue
=
939 HeapAlloc(GetProcessHeap(), 0, sizeof(BSTR
)*attributes
->nb_attributes
);
940 attributes
->szQName
=
941 HeapAlloc(GetProcessHeap(), 0, sizeof(BSTR
)*attributes
->nb_attributes
);
943 if(!attributes
->szLocalname
|| !attributes
->szURI
944 || !attributes
->szValue
|| !attributes
->szQName
)
946 HeapFree(GetProcessHeap(), 0, attributes
->szLocalname
);
947 HeapFree(GetProcessHeap(), 0, attributes
->szURI
);
948 HeapFree(GetProcessHeap(), 0, attributes
->szValue
);
949 HeapFree(GetProcessHeap(), 0, attributes
->szQName
);
950 HeapFree(GetProcessHeap(), 0, attributes
);
954 for(index
=0; index
<nb_namespaces
; index
++)
956 attributes
->szLocalname
[index
] = SysAllocStringLen(NULL
, 0);
957 attributes
->szURI
[index
] = SysAllocStringLen(NULL
, 0);
958 attributes
->szValue
[index
] = bstr_from_xmlChar(xmlNamespaces
[2*index
+1]);
959 attributes
->szQName
[index
] = QName_from_xmlChar(xmlns
, xmlNamespaces
[2*index
]);
962 for(index
=0; index
<nb_attributes
; index
++)
964 attributes
->szLocalname
[nb_namespaces
+index
] =
965 bstr_from_xmlChar(xmlAttributes
[index
*5]);
966 attributes
->szURI
[nb_namespaces
+index
] =
967 bstr_from_xmlChar(xmlAttributes
[index
*5+2]);
968 attributes
->szValue
[nb_namespaces
+index
] =
969 bstr_from_xmlCharN(xmlAttributes
[index
*5+3],
970 xmlAttributes
[index
*5+4]-xmlAttributes
[index
*5+3]);
971 attributes
->szQName
[nb_namespaces
+index
] =
972 QName_from_xmlChar(xmlAttributes
[index
*5+1], xmlAttributes
[index
*5]);
977 TRACE("returning %p\n", *attr
);
982 /*** LibXML callbacks ***/
983 static void libxmlStartDocument(void *ctx
)
985 saxlocator
*This
= ctx
;
988 if((This
->vbInterface
&& This
->saxreader
->vbcontentHandler
)
989 || (!This
->vbInterface
&& This
->saxreader
->contentHandler
))
991 if(This
->vbInterface
)
992 hr
= IVBSAXContentHandler_startDocument(This
->saxreader
->vbcontentHandler
);
994 hr
= ISAXContentHandler_startDocument(This
->saxreader
->contentHandler
);
997 format_error_message_from_id(This
, hr
);
1000 update_position(This
, NULL
);
1003 static void libxmlEndDocument(void *ctx
)
1005 saxlocator
*This
= ctx
;
1011 if(This
->ret
!= S_OK
) return;
1013 if((This
->vbInterface
&& This
->saxreader
->vbcontentHandler
)
1014 || (!This
->vbInterface
&& This
->saxreader
->contentHandler
))
1016 if(This
->vbInterface
)
1017 hr
= IVBSAXContentHandler_endDocument(This
->saxreader
->vbcontentHandler
);
1019 hr
= ISAXContentHandler_endDocument(This
->saxreader
->contentHandler
);
1022 format_error_message_from_id(This
, hr
);
1026 static void libxmlStartElementNS(
1028 const xmlChar
*localname
,
1029 const xmlChar
*prefix
,
1032 const xmlChar
**namespaces
,
1035 const xmlChar
**attributes
)
1037 BSTR NamespaceUri
, LocalName
, QName
, Prefix
, Uri
;
1038 saxlocator
*This
= ctx
;
1040 saxattributes
*attr
;
1043 if(*(This
->pParserCtxt
->input
->cur
) == '/')
1044 update_position(This
, (xmlChar
*)This
->pParserCtxt
->input
->cur
+2);
1046 update_position(This
, (xmlChar
*)This
->pParserCtxt
->input
->cur
+1);
1048 hr
= namespacePush(This
, nb_namespaces
);
1049 if(hr
==S_OK
&& ((This
->vbInterface
&& This
->saxreader
->vbcontentHandler
)
1050 || (!This
->vbInterface
&& This
->saxreader
->contentHandler
)))
1052 for(index
=0; index
<nb_namespaces
; index
++)
1054 Prefix
= bstr_from_xmlChar(namespaces
[2*index
]);
1055 Uri
= bstr_from_xmlChar(namespaces
[2*index
+1]);
1057 if(This
->vbInterface
)
1058 hr
= IVBSAXContentHandler_startPrefixMapping(
1059 This
->saxreader
->vbcontentHandler
,
1062 hr
= ISAXContentHandler_startPrefixMapping(
1063 This
->saxreader
->contentHandler
,
1064 Prefix
, SysStringLen(Prefix
),
1065 Uri
, SysStringLen(Uri
));
1067 SysFreeString(Prefix
);
1072 format_error_message_from_id(This
, hr
);
1077 NamespaceUri
= bstr_from_xmlChar(URI
);
1078 LocalName
= bstr_from_xmlChar(localname
);
1079 QName
= QName_from_xmlChar(prefix
, localname
);
1081 hr
= SAXAttributes_create(&attr
, nb_namespaces
, namespaces
, nb_attributes
, attributes
);
1084 if(This
->vbInterface
)
1085 hr
= IVBSAXContentHandler_startElement(
1086 This
->saxreader
->vbcontentHandler
,
1087 &NamespaceUri
, &LocalName
, &QName
,
1088 (IVBSAXAttributes
*)&attr
->lpVBSAXAttributesVtbl
);
1090 hr
= ISAXContentHandler_startElement(
1091 This
->saxreader
->contentHandler
,
1092 NamespaceUri
, SysStringLen(NamespaceUri
),
1093 LocalName
, SysStringLen(LocalName
),
1094 QName
, SysStringLen(QName
),
1095 (ISAXAttributes
*)&attr
->lpSAXAttributesVtbl
);
1097 ISAXAttributes_Release((ISAXAttributes
*)&attr
->lpSAXAttributesVtbl
);
1100 SysFreeString(NamespaceUri
);
1101 SysFreeString(LocalName
);
1102 SysFreeString(QName
);
1106 format_error_message_from_id(This
, hr
);
1109 static void libxmlEndElementNS(
1111 const xmlChar
*localname
,
1112 const xmlChar
*prefix
,
1115 BSTR NamespaceUri
, LocalName
, QName
, Prefix
;
1116 saxlocator
*This
= ctx
;
1121 end
= (xmlChar
*)This
->pParserCtxt
->input
->cur
;
1122 if(*(end
-1) != '>' || *(end
-2) != '/')
1123 while(*(end
-2)!='<' && *(end
-1)!='/') end
--;
1125 update_position(This
, end
);
1127 nsNr
= namespacePop(This
);
1129 if((This
->vbInterface
&& This
->saxreader
->vbcontentHandler
)
1130 || (!This
->vbInterface
&& This
->saxreader
->contentHandler
))
1132 NamespaceUri
= bstr_from_xmlChar(URI
);
1133 LocalName
= bstr_from_xmlChar(localname
);
1134 QName
= QName_from_xmlChar(prefix
, localname
);
1136 if(This
->vbInterface
)
1137 hr
= IVBSAXContentHandler_endElement(
1138 This
->saxreader
->vbcontentHandler
,
1139 &NamespaceUri
, &LocalName
, &QName
);
1141 hr
= ISAXContentHandler_endElement(
1142 This
->saxreader
->contentHandler
,
1143 NamespaceUri
, SysStringLen(NamespaceUri
),
1144 LocalName
, SysStringLen(LocalName
),
1145 QName
, SysStringLen(QName
));
1147 SysFreeString(NamespaceUri
);
1148 SysFreeString(LocalName
);
1149 SysFreeString(QName
);
1153 format_error_message_from_id(This
, hr
);
1157 for(index
=This
->pParserCtxt
->nsNr
-2;
1158 index
>=This
->pParserCtxt
->nsNr
-nsNr
*2; index
-=2)
1160 Prefix
= bstr_from_xmlChar(This
->pParserCtxt
->nsTab
[index
]);
1162 if(This
->vbInterface
)
1163 hr
= IVBSAXContentHandler_endPrefixMapping(
1164 This
->saxreader
->vbcontentHandler
, &Prefix
);
1166 hr
= ISAXContentHandler_endPrefixMapping(
1167 This
->saxreader
->contentHandler
,
1168 Prefix
, SysStringLen(Prefix
));
1170 SysFreeString(Prefix
);
1174 update_position(This
, NULL
);
1177 static void libxmlCharacters(
1182 saxlocator
*This
= ctx
;
1187 BOOL lastEvent
= FALSE
;
1189 if((This
->vbInterface
&& !This
->saxreader
->vbcontentHandler
)
1190 || (!This
->vbInterface
&& !This
->saxreader
->contentHandler
))
1194 if(*(ch
-1)=='\r') cur
--;
1197 if(ch
<This
->pParserCtxt
->input
->base
|| ch
>This
->pParserCtxt
->input
->end
)
1202 while(end
-ch
<len
&& *end
!='\r') end
++;
1209 if(!lastEvent
) *end
= '\n';
1211 Chars
= bstr_from_xmlCharN(cur
, end
-cur
+1);
1212 if(This
->vbInterface
)
1213 hr
= IVBSAXContentHandler_characters(
1214 This
->saxreader
->vbcontentHandler
, &Chars
);
1216 hr
= ISAXContentHandler_characters(
1217 This
->saxreader
->contentHandler
,
1218 Chars
, SysStringLen(Chars
));
1219 SysFreeString(Chars
);
1221 This
->column
+= end
-cur
+1;
1235 if(end
-ch
== len
) break;
1238 if(ch
<This
->pParserCtxt
->input
->base
|| ch
>This
->pParserCtxt
->input
->end
)
1239 This
->column
= This
->realColumn
1240 +This
->pParserCtxt
->input
->cur
-This
->lastCur
;
1243 static void libxmlSetDocumentLocator(
1245 xmlSAXLocatorPtr loc
)
1247 saxlocator
*This
= ctx
;
1250 if(This
->vbInterface
)
1251 hr
= IVBSAXContentHandler_putref_documentLocator(
1252 This
->saxreader
->vbcontentHandler
,
1253 (IVBSAXLocator
*)&This
->lpVBSAXLocatorVtbl
);
1255 hr
= ISAXContentHandler_putDocumentLocator(
1256 This
->saxreader
->contentHandler
,
1257 (ISAXLocator
*)&This
->lpSAXLocatorVtbl
);
1260 format_error_message_from_id(This
, hr
);
1263 static void libxmlComment(void *ctx
, const xmlChar
*value
)
1265 saxlocator
*This
= ctx
;
1268 xmlChar
*beg
= (xmlChar
*)This
->pParserCtxt
->input
->cur
;
1270 while(memcmp(beg
-4, "<!--", sizeof(char[4]))) beg
--;
1271 update_position(This
, beg
);
1273 if(!This
->vbInterface
&& !This
->saxreader
->lexicalHandler
) return;
1274 if(This
->vbInterface
&& !This
->saxreader
->vblexicalHandler
) return;
1276 bValue
= bstr_from_xmlChar(value
);
1278 if(This
->vbInterface
)
1279 hr
= IVBSAXLexicalHandler_comment(
1280 This
->saxreader
->vblexicalHandler
, &bValue
);
1282 hr
= ISAXLexicalHandler_comment(
1283 This
->saxreader
->lexicalHandler
,
1284 bValue
, SysStringLen(bValue
));
1286 SysFreeString(bValue
);
1289 format_error_message_from_id(This
, hr
);
1291 update_position(This
, NULL
);
1294 static void libxmlFatalError(void *ctx
, const char *msg
, ...)
1296 saxlocator
*This
= ctx
;
1302 if((This
->vbInterface
&& !This
->saxreader
->vberrorHandler
)
1303 || (!This
->vbInterface
&& !This
->saxreader
->errorHandler
))
1305 xmlStopParser(This
->pParserCtxt
);
1310 FIXME("Error handling is not compatible.\n");
1312 va_start(args
, msg
);
1313 vsprintf(message
, msg
, args
);
1316 len
= MultiByteToWideChar(CP_UNIXCP
, 0, message
, -1, NULL
, 0);
1317 wszError
= HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR
)*len
);
1319 MultiByteToWideChar(CP_UNIXCP
, 0, message
, -1, (LPWSTR
)wszError
, len
);
1321 if(This
->vbInterface
)
1323 BSTR bstrError
= SysAllocString(wszError
);
1324 IVBSAXErrorHandler_fatalError(This
->saxreader
->vberrorHandler
,
1325 (IVBSAXLocator
*)&This
->lpVBSAXLocatorVtbl
, &bstrError
, E_FAIL
);
1328 ISAXErrorHandler_fatalError(This
->saxreader
->errorHandler
,
1329 (ISAXLocator
*)&This
->lpSAXLocatorVtbl
, wszError
, E_FAIL
);
1331 HeapFree(GetProcessHeap(), 0, wszError
);
1333 xmlStopParser(This
->pParserCtxt
);
1337 static void libxmlCDataBlock(void *ctx
, const xmlChar
*value
, int len
)
1339 saxlocator
*This
= ctx
;
1341 xmlChar
*beg
= (xmlChar
*)This
->pParserCtxt
->input
->cur
-len
;
1345 BOOL lastEvent
= FALSE
, change
;
1347 while(memcmp(beg
-9, "<![CDATA[", sizeof(char[9]))) beg
--;
1348 update_position(This
, beg
);
1350 if(This
->vbInterface
&& This
->saxreader
->vblexicalHandler
)
1351 hr
= IVBSAXLexicalHandler_startCDATA(This
->saxreader
->vblexicalHandler
);
1352 if(!This
->vbInterface
&& This
->saxreader
->lexicalHandler
)
1353 hr
= ISAXLexicalHandler_startCDATA(This
->saxreader
->lexicalHandler
);
1357 format_error_message_from_id(This
, hr
);
1361 realLen
= This
->pParserCtxt
->input
->cur
-beg
-3;
1367 while(end
-beg
<realLen
&& *end
!='\r') end
++;
1368 if(end
-beg
==realLen
)
1373 else if(end
-beg
==realLen
-1 && *end
=='\r' && *(end
+1)=='\n')
1376 if(*end
== '\r') change
= TRUE
;
1377 else change
= FALSE
;
1379 if(change
) *end
= '\n';
1381 if((This
->vbInterface
&& This
->saxreader
->vbcontentHandler
) ||
1382 (!This
->vbInterface
&& This
->saxreader
->contentHandler
))
1384 Chars
= bstr_from_xmlCharN(cur
, end
-cur
+1);
1385 if(This
->vbInterface
)
1386 hr
= IVBSAXContentHandler_characters(
1387 This
->saxreader
->vbcontentHandler
, &Chars
);
1389 hr
= ISAXContentHandler_characters(
1390 This
->saxreader
->contentHandler
,
1391 Chars
, SysStringLen(Chars
));
1392 SysFreeString(Chars
);
1395 if(change
) *end
= '\r';
1400 This
->column
+= end
-cur
+2;
1405 if(This
->vbInterface
&& This
->saxreader
->vblexicalHandler
)
1406 hr
= IVBSAXLexicalHandler_endCDATA(This
->saxreader
->vblexicalHandler
);
1407 if(!This
->vbInterface
&& This
->saxreader
->lexicalHandler
)
1408 hr
= ISAXLexicalHandler_endCDATA(This
->saxreader
->lexicalHandler
);
1411 format_error_message_from_id(This
, hr
);
1413 This
->column
+= 4+end
-cur
;
1416 /*** IVBSAXLocator interface ***/
1417 /*** IUnknown methods ***/
1418 static HRESULT WINAPI
ivbsaxlocator_QueryInterface(IVBSAXLocator
* iface
, REFIID riid
, void **ppvObject
)
1420 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1422 TRACE("%p %s %p\n", This
, debugstr_guid( riid
), ppvObject
);
1426 if ( IsEqualGUID( riid
, &IID_IUnknown
) ||
1427 IsEqualGUID( riid
, &IID_IDispatch
) ||
1428 IsEqualGUID( riid
, &IID_IVBSAXLocator
))
1434 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
1435 return E_NOINTERFACE
;
1438 IVBSAXLocator_AddRef( iface
);
1443 static ULONG WINAPI
ivbsaxlocator_AddRef(IVBSAXLocator
* iface
)
1445 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1446 TRACE("%p\n", This
);
1447 return InterlockedIncrement( &This
->ref
);
1450 static ULONG WINAPI
ivbsaxlocator_Release(
1451 IVBSAXLocator
* iface
)
1453 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1454 return ISAXLocator_Release((ISAXLocator
*)&This
->lpVBSAXLocatorVtbl
);
1457 /*** IDispatch methods ***/
1458 static HRESULT WINAPI
ivbsaxlocator_GetTypeInfoCount( IVBSAXLocator
*iface
, UINT
* pctinfo
)
1460 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1462 TRACE("(%p)->(%p)\n", This
, pctinfo
);
1469 static HRESULT WINAPI
ivbsaxlocator_GetTypeInfo(
1470 IVBSAXLocator
*iface
,
1471 UINT iTInfo
, LCID lcid
, ITypeInfo
** ppTInfo
)
1473 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1476 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
1478 hr
= get_typeinfo(IVBSAXLocator_tid
, ppTInfo
);
1483 static HRESULT WINAPI
ivbsaxlocator_GetIDsOfNames(
1484 IVBSAXLocator
*iface
,
1486 LPOLESTR
* rgszNames
,
1491 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1492 ITypeInfo
*typeinfo
;
1495 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
1498 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
1499 return E_INVALIDARG
;
1501 hr
= get_typeinfo(IVBSAXLocator_tid
, &typeinfo
);
1504 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
1505 ITypeInfo_Release(typeinfo
);
1511 static HRESULT WINAPI
ivbsaxlocator_Invoke(
1512 IVBSAXLocator
*iface
,
1513 DISPID dispIdMember
,
1517 DISPPARAMS
* pDispParams
,
1518 VARIANT
* pVarResult
,
1519 EXCEPINFO
* pExcepInfo
,
1522 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1523 ITypeInfo
*typeinfo
;
1526 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
1527 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
1529 hr
= get_typeinfo(IVBSAXLocator_tid
, &typeinfo
);
1532 hr
= ITypeInfo_Invoke(typeinfo
, &(This
->lpVBSAXLocatorVtbl
), dispIdMember
, wFlags
, pDispParams
,
1533 pVarResult
, pExcepInfo
, puArgErr
);
1534 ITypeInfo_Release(typeinfo
);
1540 /*** IVBSAXLocator methods ***/
1541 static HRESULT WINAPI
ivbsaxlocator_get_columnNumber(
1542 IVBSAXLocator
* iface
,
1545 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1546 return ISAXLocator_getColumnNumber(
1547 (ISAXLocator
*)&This
->lpVBSAXLocatorVtbl
,
1551 static HRESULT WINAPI
ivbsaxlocator_get_lineNumber(
1552 IVBSAXLocator
* iface
,
1555 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1556 return ISAXLocator_getLineNumber(
1557 (ISAXLocator
*)&This
->lpVBSAXLocatorVtbl
,
1561 static HRESULT WINAPI
ivbsaxlocator_get_publicId(
1562 IVBSAXLocator
* iface
,
1565 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1566 return ISAXLocator_getPublicId(
1567 (ISAXLocator
*)&This
->lpVBSAXLocatorVtbl
,
1568 (const WCHAR
**)publicId
);
1571 static HRESULT WINAPI
ivbsaxlocator_get_systemId(
1572 IVBSAXLocator
* iface
,
1575 saxlocator
*This
= impl_from_IVBSAXLocator( iface
);
1576 return ISAXLocator_getSystemId(
1577 (ISAXLocator
*)&This
->lpVBSAXLocatorVtbl
,
1578 (const WCHAR
**)systemId
);
1581 static const struct IVBSAXLocatorVtbl ivbsaxlocator_vtbl
=
1583 ivbsaxlocator_QueryInterface
,
1584 ivbsaxlocator_AddRef
,
1585 ivbsaxlocator_Release
,
1586 ivbsaxlocator_GetTypeInfoCount
,
1587 ivbsaxlocator_GetTypeInfo
,
1588 ivbsaxlocator_GetIDsOfNames
,
1589 ivbsaxlocator_Invoke
,
1590 ivbsaxlocator_get_columnNumber
,
1591 ivbsaxlocator_get_lineNumber
,
1592 ivbsaxlocator_get_publicId
,
1593 ivbsaxlocator_get_systemId
1596 /*** ISAXLocator interface ***/
1597 /*** IUnknown methods ***/
1598 static HRESULT WINAPI
isaxlocator_QueryInterface(ISAXLocator
* iface
, REFIID riid
, void **ppvObject
)
1600 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1602 TRACE("%p %s %p\n", This
, debugstr_guid( riid
), ppvObject
);
1606 if ( IsEqualGUID( riid
, &IID_IUnknown
) ||
1607 IsEqualGUID( riid
, &IID_ISAXLocator
))
1613 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
1614 return E_NOINTERFACE
;
1617 ISAXLocator_AddRef( iface
);
1622 static ULONG WINAPI
isaxlocator_AddRef(ISAXLocator
* iface
)
1624 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1625 TRACE("%p\n", This
);
1626 return InterlockedIncrement( &This
->ref
);
1629 static ULONG WINAPI
isaxlocator_Release(
1632 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1635 TRACE("%p\n", This
);
1637 ref
= InterlockedDecrement( &This
->ref
);
1640 SysFreeString(This
->publicId
);
1641 SysFreeString(This
->systemId
);
1642 HeapFree(GetProcessHeap(), 0, This
->nsStack
);
1644 ISAXXMLReader_Release((ISAXXMLReader
*)&This
->saxreader
->lpSAXXMLReaderVtbl
);
1645 HeapFree( GetProcessHeap(), 0, This
);
1651 /*** ISAXLocator methods ***/
1652 static HRESULT WINAPI
isaxlocator_getColumnNumber(
1656 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1658 *pnColumn
= This
->column
;
1662 static HRESULT WINAPI
isaxlocator_getLineNumber(
1666 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1668 *pnLine
= This
->line
;
1672 static HRESULT WINAPI
isaxlocator_getPublicId(
1674 const WCHAR
** ppwchPublicId
)
1677 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1679 SysFreeString(This
->publicId
);
1681 publicId
= bstr_from_xmlChar(xmlSAX2GetPublicId(This
->pParserCtxt
));
1682 if(SysStringLen(publicId
))
1683 This
->publicId
= (WCHAR
*)&publicId
;
1686 SysFreeString(publicId
);
1687 This
->publicId
= NULL
;
1690 *ppwchPublicId
= This
->publicId
;
1694 static HRESULT WINAPI
isaxlocator_getSystemId(
1696 const WCHAR
** ppwchSystemId
)
1699 saxlocator
*This
= impl_from_ISAXLocator( iface
);
1701 SysFreeString(This
->systemId
);
1703 systemId
= bstr_from_xmlChar(xmlSAX2GetSystemId(This
->pParserCtxt
));
1704 if(SysStringLen(systemId
))
1705 This
->systemId
= (WCHAR
*)&systemId
;
1708 SysFreeString(systemId
);
1709 This
->systemId
= NULL
;
1712 *ppwchSystemId
= This
->systemId
;
1716 static const struct ISAXLocatorVtbl isaxlocator_vtbl
=
1718 isaxlocator_QueryInterface
,
1720 isaxlocator_Release
,
1721 isaxlocator_getColumnNumber
,
1722 isaxlocator_getLineNumber
,
1723 isaxlocator_getPublicId
,
1724 isaxlocator_getSystemId
1727 static HRESULT
SAXLocator_create(saxreader
*reader
, saxlocator
**ppsaxlocator
, BOOL vbInterface
)
1729 saxlocator
*locator
;
1731 locator
= HeapAlloc( GetProcessHeap(), 0, sizeof (*locator
) );
1733 return E_OUTOFMEMORY
;
1735 locator
->lpVBSAXLocatorVtbl
= &ivbsaxlocator_vtbl
;
1736 locator
->lpSAXLocatorVtbl
= &isaxlocator_vtbl
;
1738 locator
->vbInterface
= vbInterface
;
1740 locator
->saxreader
= reader
;
1741 ISAXXMLReader_AddRef((ISAXXMLReader
*)&reader
->lpSAXXMLReaderVtbl
);
1743 locator
->pParserCtxt
= NULL
;
1744 locator
->publicId
= NULL
;
1745 locator
->systemId
= NULL
;
1746 locator
->lastCur
= NULL
;
1748 locator
->column
= 0;
1749 locator
->ret
= S_OK
;
1750 locator
->nsStackSize
= 8;
1751 locator
->nsStackLast
= 0;
1752 locator
->nsStack
= HeapAlloc(GetProcessHeap(), 0, locator
->nsStackSize
);
1753 if(!locator
->nsStack
)
1755 ISAXXMLReader_Release((ISAXXMLReader
*)&reader
->lpSAXXMLReaderVtbl
);
1756 HeapFree(GetProcessHeap(), 0, locator
);
1757 return E_OUTOFMEMORY
;
1760 *ppsaxlocator
= locator
;
1762 TRACE("returning %p\n", *ppsaxlocator
);
1767 /*** SAXXMLReader internal functions ***/
1768 static HRESULT
internal_parseBuffer(saxreader
*This
, const char *buffer
, int size
, BOOL vbInterface
)
1770 saxlocator
*locator
;
1773 hr
= SAXLocator_create(This
, &locator
, vbInterface
);
1777 locator
->pParserCtxt
= xmlCreateMemoryParserCtxt(buffer
, size
);
1778 if(!locator
->pParserCtxt
)
1780 ISAXLocator_Release((ISAXLocator
*)&locator
->lpSAXLocatorVtbl
);
1784 locator
->pParserCtxt
->sax
= &locator
->saxreader
->sax
;
1785 locator
->pParserCtxt
->userData
= locator
;
1787 This
->isParsing
= TRUE
;
1788 if(xmlParseDocument(locator
->pParserCtxt
)) hr
= E_FAIL
;
1789 else hr
= locator
->ret
;
1790 This
->isParsing
= FALSE
;
1792 if(locator
->pParserCtxt
)
1794 locator
->pParserCtxt
->sax
= NULL
;
1795 xmlFreeParserCtxt(locator
->pParserCtxt
);
1796 locator
->pParserCtxt
= NULL
;
1799 ISAXLocator_Release((ISAXLocator
*)&locator
->lpSAXLocatorVtbl
);
1803 static HRESULT
internal_parseStream(saxreader
*This
, IStream
*stream
, BOOL vbInterface
)
1805 saxlocator
*locator
;
1810 hr
= IStream_Read(stream
, data
, sizeof(data
), &dataRead
);
1814 hr
= SAXLocator_create(This
, &locator
, vbInterface
);
1818 locator
->pParserCtxt
= xmlCreatePushParserCtxt(
1819 &locator
->saxreader
->sax
, locator
,
1820 data
, dataRead
, NULL
);
1821 if(!locator
->pParserCtxt
)
1823 ISAXLocator_Release((ISAXLocator
*)&locator
->lpSAXLocatorVtbl
);
1827 This
->isParsing
= TRUE
;
1830 hr
= IStream_Read(stream
, data
, sizeof(data
), &dataRead
);
1834 if(xmlParseChunk(locator
->pParserCtxt
, data
, dataRead
, 0)) hr
= E_FAIL
;
1835 else hr
= locator
->ret
;
1837 if(hr
!= S_OK
) break;
1839 if(dataRead
!= sizeof(data
))
1841 if(xmlParseChunk(locator
->pParserCtxt
, data
, 0, 1)) hr
= E_FAIL
;
1842 else hr
= locator
->ret
;
1847 This
->isParsing
= FALSE
;
1849 locator
->pParserCtxt
->sax
= NULL
;
1850 xmlFreeParserCtxt(locator
->pParserCtxt
);
1851 locator
->pParserCtxt
= NULL
;
1852 ISAXLocator_Release((ISAXLocator
*)&locator
->lpSAXLocatorVtbl
);
1856 static HRESULT WINAPI
internal_getEntityResolver(
1858 void *pEntityResolver
,
1861 FIXME("(%p)->(%p) stub\n", This
, pEntityResolver
);
1865 static HRESULT WINAPI
internal_putEntityResolver(
1867 void *pEntityResolver
,
1870 FIXME("(%p)->(%p) stub\n", This
, pEntityResolver
);
1874 static HRESULT WINAPI
internal_getContentHandler(
1876 void *pContentHandler
,
1879 TRACE("(%p)->(%p)\n", This
, pContentHandler
);
1880 if(pContentHandler
== NULL
)
1882 if((vbInterface
&& This
->vbcontentHandler
)
1883 || (!vbInterface
&& This
->contentHandler
))
1886 IVBSAXContentHandler_AddRef(This
->vbcontentHandler
);
1888 ISAXContentHandler_AddRef(This
->contentHandler
);
1890 if(vbInterface
) *(IVBSAXContentHandler
**)pContentHandler
=
1891 This
->vbcontentHandler
;
1892 else *(ISAXContentHandler
**)pContentHandler
= This
->contentHandler
;
1897 static HRESULT WINAPI
internal_putContentHandler(
1899 void *contentHandler
,
1902 TRACE("(%p)->(%p)\n", This
, contentHandler
);
1906 IVBSAXContentHandler_AddRef((IVBSAXContentHandler
*)contentHandler
);
1908 ISAXContentHandler_AddRef((ISAXContentHandler
*)contentHandler
);
1910 if((vbInterface
&& This
->vbcontentHandler
)
1911 || (!vbInterface
&& This
->contentHandler
))
1914 IVBSAXContentHandler_Release(This
->vbcontentHandler
);
1916 ISAXContentHandler_Release(This
->contentHandler
);
1919 This
->vbcontentHandler
= contentHandler
;
1921 This
->contentHandler
= contentHandler
;
1926 static HRESULT WINAPI
internal_getDTDHandler(
1931 FIXME("(%p)->(%p) stub\n", This
, pDTDHandler
);
1935 static HRESULT WINAPI
internal_putDTDHandler(
1940 FIXME("(%p)->(%p) stub\n", This
, pDTDHandler
);
1944 static HRESULT WINAPI
internal_getErrorHandler(
1946 void *pErrorHandler
,
1949 TRACE("(%p)->(%p)\n", This
, pErrorHandler
);
1950 if(pErrorHandler
== NULL
)
1953 if(vbInterface
&& This
->vberrorHandler
)
1954 IVBSAXErrorHandler_AddRef(This
->vberrorHandler
);
1955 else if(!vbInterface
&& This
->errorHandler
)
1956 ISAXErrorHandler_AddRef(This
->errorHandler
);
1959 *(IVBSAXErrorHandler
**)pErrorHandler
= This
->vberrorHandler
;
1961 *(ISAXErrorHandler
**)pErrorHandler
= This
->errorHandler
;
1967 static HRESULT WINAPI
internal_putErrorHandler(
1972 TRACE("(%p)->(%p)\n", This
, errorHandler
);
1976 IVBSAXErrorHandler_AddRef((IVBSAXErrorHandler
*)errorHandler
);
1978 ISAXErrorHandler_AddRef((ISAXErrorHandler
*)errorHandler
);
1981 if(vbInterface
&& This
->vberrorHandler
)
1982 IVBSAXErrorHandler_Release(This
->vberrorHandler
);
1983 else if(!vbInterface
&& This
->errorHandler
)
1984 ISAXErrorHandler_Release(This
->errorHandler
);
1987 This
->vberrorHandler
= errorHandler
;
1989 This
->errorHandler
= errorHandler
;
1995 static HRESULT WINAPI
internal_parse(
2002 TRACE("(%p)\n", This
);
2005 switch(V_VT(&varInput
))
2008 hr
= internal_parseBuffer(This
, (const char*)V_BSTR(&varInput
),
2009 SysStringByteLen(V_BSTR(&varInput
)), vbInterface
);
2011 case VT_ARRAY
|VT_UI1
: {
2013 LONG lBound
, uBound
;
2016 hr
= SafeArrayGetLBound(V_ARRAY(&varInput
), 1, &lBound
);
2017 if(hr
!= S_OK
) break;
2018 hr
= SafeArrayGetUBound(V_ARRAY(&varInput
), 1, &uBound
);
2019 if(hr
!= S_OK
) break;
2020 dataRead
= (uBound
-lBound
)*SafeArrayGetElemsize(V_ARRAY(&varInput
));
2021 hr
= SafeArrayAccessData(V_ARRAY(&varInput
), (void**)&pSAData
);
2022 if(hr
!= S_OK
) break;
2023 hr
= internal_parseBuffer(This
, pSAData
, dataRead
, vbInterface
);
2024 SafeArrayUnaccessData(V_ARRAY(&varInput
));
2029 IPersistStream
*persistStream
;
2030 IStream
*stream
= NULL
;
2031 IXMLDOMDocument
*xmlDoc
;
2033 if(IUnknown_QueryInterface(V_UNKNOWN(&varInput
),
2034 &IID_IXMLDOMDocument
, (void**)&xmlDoc
) == S_OK
)
2038 IXMLDOMDocument_get_xml(xmlDoc
, &bstrData
);
2039 hr
= internal_parseBuffer(This
, (const char*)bstrData
,
2040 SysStringByteLen(bstrData
), vbInterface
);
2041 IXMLDOMDocument_Release(xmlDoc
);
2044 if(IUnknown_QueryInterface(V_UNKNOWN(&varInput
),
2045 &IID_IPersistStream
, (void**)&persistStream
) == S_OK
)
2047 hr
= IPersistStream_Save(persistStream
, stream
, TRUE
);
2048 IPersistStream_Release(persistStream
);
2049 if(hr
!= S_OK
) break;
2051 if(stream
|| IUnknown_QueryInterface(V_UNKNOWN(&varInput
),
2052 &IID_IStream
, (void**)&stream
) == S_OK
)
2054 hr
= internal_parseStream(This
, stream
, vbInterface
);
2055 IStream_Release(stream
);
2060 WARN("vt %d not implemented\n", V_VT(&varInput
));
2067 static HRESULT
internal_vbonDataAvailable(void *obj
, char *ptr
, DWORD len
)
2069 saxreader
*This
= obj
;
2071 return internal_parseBuffer(This
, ptr
, len
, TRUE
);
2074 static HRESULT
internal_onDataAvailable(void *obj
, char *ptr
, DWORD len
)
2076 saxreader
*This
= obj
;
2078 return internal_parseBuffer(This
, ptr
, len
, FALSE
);
2081 static HRESULT WINAPI
internal_parseURL(
2089 TRACE("(%p)->(%s)\n", This
, debugstr_w(url
));
2091 if(vbInterface
) hr
= bind_url(url
, internal_vbonDataAvailable
, This
, &bsc
);
2092 else hr
= bind_url(url
, internal_onDataAvailable
, This
, &bsc
);
2102 static HRESULT WINAPI
internal_putProperty(
2108 static const WCHAR wszCharset
[] = {
2109 'c','h','a','r','s','e','t',0
2111 static const WCHAR wszDeclarationHandler
[] = {
2112 'h','t','t','p',':','/','/','x','m','l','.','o','r','g','/',
2113 's','a','x','/','p','r','o','p','e','r','t','i','e','s','/',
2114 'd','e','c','l','a','r','a','t','i','o','n',
2115 '-','h','a','n','d','l','e','r',0
2117 static const WCHAR wszDomNode
[] = {
2118 'h','t','t','p',':','/','/','x','m','l','.','o','r','g','/',
2119 's','a','x','/','p','r','o','p','e','r','t','i','e','s','/',
2120 'd','o','m','-','n','o','d','e',0
2122 static const WCHAR wszInputSource
[] = {
2123 'i','n','p','u','t','-','s','o','u','r','c','e',0
2125 static const WCHAR wszLexicalHandler
[] = {
2126 'h','t','t','p',':','/','/','x','m','l','.','o','r','g','/',
2127 's','a','x','/','p','r','o','p','e','r','t','i','e','s','/',
2128 'l','e','x','i','c','a','l','-','h','a','n','d','l','e','r',0
2130 static const WCHAR wszMaxElementDepth
[] = {
2131 'm','a','x','-','e','l','e','m','e','n','t','-','d','e','p','t','h',0
2133 static const WCHAR wszMaxXMLSize
[] = {
2134 'm','a','x','-','x','m','l','-','s','i','z','e',0
2136 static const WCHAR wszSchemaDeclarationHandler
[] = {
2137 's','c','h','e','m','a','-',
2138 'd','e','c','l','a','r','a','t','i','o','n','-',
2139 'h','a','n','d','l','e','r',0
2141 static const WCHAR wszXMLDeclEncoding
[] = {
2142 'x','m','l','d','e','c','l','-','e','n','c','o','d','i','n','g',0
2144 static const WCHAR wszXMLDeclStandalone
[] = {
2145 'x','m','l','d','e','c','l',
2146 '-','s','t','a','n','d','a','l','o','n','e',0
2148 static const WCHAR wszXMLDeclVersion
[] = {
2149 'x','m','l','d','e','c','l','-','v','e','r','s','i','o','n',0
2152 FIXME("(%p)->(%s): semi-stub\n", This
, debugstr_w(pProp
));
2154 if(!memcmp(pProp
, wszCharset
, sizeof(wszCharset
)))
2157 if(!memcmp(pProp
, wszDeclarationHandler
, sizeof(wszDeclarationHandler
)))
2159 if(This
->isParsing
) return E_FAIL
;
2161 if(V_UNKNOWN(&value
))
2164 IVBSAXDeclHandler_AddRef((IVBSAXDeclHandler
*)V_UNKNOWN(&value
));
2166 ISAXDeclHandler_AddRef((ISAXDeclHandler
*)V_UNKNOWN(&value
));
2168 if((vbInterface
&& This
->vbdeclHandler
)
2169 || (!vbInterface
&& This
->declHandler
))
2172 IVBSAXDeclHandler_Release(This
->vbdeclHandler
);
2174 ISAXDeclHandler_Release(This
->declHandler
);
2177 This
->vbdeclHandler
= (IVBSAXDeclHandler
*)V_UNKNOWN(&value
);
2179 This
->declHandler
= (ISAXDeclHandler
*)V_UNKNOWN(&value
);
2183 if(!memcmp(pProp
, wszDomNode
, sizeof(wszDomNode
)))
2186 if(!memcmp(pProp
, wszInputSource
, sizeof(wszInputSource
)))
2189 if(!memcmp(pProp
, wszLexicalHandler
, sizeof(wszLexicalHandler
)))
2191 if(This
->isParsing
) return E_FAIL
;
2193 if(V_UNKNOWN(&value
))
2196 IVBSAXLexicalHandler_AddRef(
2197 (IVBSAXLexicalHandler
*)V_UNKNOWN(&value
));
2199 ISAXLexicalHandler_AddRef(
2200 (ISAXLexicalHandler
*)V_UNKNOWN(&value
));
2202 if((vbInterface
&& This
->vblexicalHandler
)
2203 || (!vbInterface
&& This
->lexicalHandler
))
2206 IVBSAXLexicalHandler_Release(This
->vblexicalHandler
);
2208 ISAXLexicalHandler_Release(This
->lexicalHandler
);
2211 This
->vblexicalHandler
= (IVBSAXLexicalHandler
*)V_UNKNOWN(&value
);
2213 This
->lexicalHandler
= (ISAXLexicalHandler
*)V_UNKNOWN(&value
);
2217 if(!memcmp(pProp
, wszMaxElementDepth
, sizeof(wszMaxElementDepth
)))
2220 if(!memcmp(pProp
, wszMaxXMLSize
, sizeof(wszMaxXMLSize
)))
2223 if(!memcmp(pProp
, wszSchemaDeclarationHandler
,
2224 sizeof(wszSchemaDeclarationHandler
)))
2227 if(!memcmp(pProp
, wszXMLDeclEncoding
, sizeof(wszXMLDeclEncoding
)))
2230 if(!memcmp(pProp
, wszXMLDeclStandalone
, sizeof(wszXMLDeclStandalone
)))
2233 if(!memcmp(pProp
, wszXMLDeclVersion
, sizeof(wszXMLDeclVersion
)))
2236 return E_INVALIDARG
;
2239 /*** IVBSAXXMLReader interface ***/
2240 /*** IUnknown methods ***/
2241 static HRESULT WINAPI
saxxmlreader_QueryInterface(IVBSAXXMLReader
* iface
, REFIID riid
, void **ppvObject
)
2243 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2245 TRACE("%p %s %p\n", This
, debugstr_guid( riid
), ppvObject
);
2249 if ( IsEqualGUID( riid
, &IID_IUnknown
) ||
2250 IsEqualGUID( riid
, &IID_IDispatch
) ||
2251 IsEqualGUID( riid
, &IID_IVBSAXXMLReader
))
2255 else if( IsEqualGUID( riid
, &IID_ISAXXMLReader
))
2257 *ppvObject
= (ISAXXMLReader
*)&This
->lpSAXXMLReaderVtbl
;
2261 FIXME("interface %s not implemented\n", debugstr_guid(riid
));
2262 return E_NOINTERFACE
;
2265 IVBSAXXMLReader_AddRef( iface
);
2270 static ULONG WINAPI
saxxmlreader_AddRef(IVBSAXXMLReader
* iface
)
2272 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2273 TRACE("%p\n", This
);
2274 return InterlockedIncrement( &This
->ref
);
2277 static ULONG WINAPI
saxxmlreader_Release(
2278 IVBSAXXMLReader
* iface
)
2280 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2283 TRACE("%p\n", This
);
2285 ref
= InterlockedDecrement( &This
->ref
);
2288 if(This
->contentHandler
)
2289 ISAXContentHandler_Release(This
->contentHandler
);
2291 if(This
->vbcontentHandler
)
2292 IVBSAXContentHandler_Release(This
->vbcontentHandler
);
2294 if(This
->errorHandler
)
2295 ISAXErrorHandler_Release(This
->errorHandler
);
2297 if(This
->vberrorHandler
)
2298 IVBSAXErrorHandler_Release(This
->vberrorHandler
);
2300 if(This
->lexicalHandler
)
2301 ISAXLexicalHandler_Release(This
->lexicalHandler
);
2303 if(This
->vblexicalHandler
)
2304 IVBSAXLexicalHandler_Release(This
->vblexicalHandler
);
2306 if(This
->declHandler
)
2307 ISAXDeclHandler_Release(This
->declHandler
);
2309 if(This
->vbdeclHandler
)
2310 IVBSAXDeclHandler_Release(This
->vbdeclHandler
);
2312 HeapFree( GetProcessHeap(), 0, This
);
2318 static HRESULT WINAPI
saxxmlreader_GetTypeInfoCount( IVBSAXXMLReader
*iface
, UINT
* pctinfo
)
2320 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2322 TRACE("(%p)->(%p)\n", This
, pctinfo
);
2329 static HRESULT WINAPI
saxxmlreader_GetTypeInfo(
2330 IVBSAXXMLReader
*iface
,
2331 UINT iTInfo
, LCID lcid
, ITypeInfo
** ppTInfo
)
2333 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2336 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
2338 hr
= get_typeinfo(IVBSAXXMLReader_tid
, ppTInfo
);
2343 static HRESULT WINAPI
saxxmlreader_GetIDsOfNames(
2344 IVBSAXXMLReader
*iface
,
2346 LPOLESTR
* rgszNames
,
2351 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2352 ITypeInfo
*typeinfo
;
2355 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
2358 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
2359 return E_INVALIDARG
;
2361 hr
= get_typeinfo(IVBSAXXMLReader_tid
, &typeinfo
);
2364 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
2365 ITypeInfo_Release(typeinfo
);
2371 static HRESULT WINAPI
saxxmlreader_Invoke(
2372 IVBSAXXMLReader
*iface
,
2373 DISPID dispIdMember
,
2377 DISPPARAMS
* pDispParams
,
2378 VARIANT
* pVarResult
,
2379 EXCEPINFO
* pExcepInfo
,
2382 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2383 ITypeInfo
*typeinfo
;
2386 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
2387 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
2389 hr
= get_typeinfo(IVBSAXXMLReader_tid
, &typeinfo
);
2392 hr
= ITypeInfo_Invoke(typeinfo
, &(This
->lpVBSAXXMLReaderVtbl
), dispIdMember
, wFlags
, pDispParams
,
2393 pVarResult
, pExcepInfo
, puArgErr
);
2394 ITypeInfo_Release(typeinfo
);
2400 /*** IVBSAXXMLReader methods ***/
2401 static HRESULT WINAPI
saxxmlreader_getFeature(
2402 IVBSAXXMLReader
* iface
,
2403 const WCHAR
*pFeature
,
2404 VARIANT_BOOL
*pValue
)
2406 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2408 FIXME("(%p)->(%s %p) stub\n", This
, debugstr_w(pFeature
), pValue
);
2412 static HRESULT WINAPI
saxxmlreader_putFeature(
2413 IVBSAXXMLReader
* iface
,
2414 const WCHAR
*pFeature
,
2415 VARIANT_BOOL vfValue
)
2417 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2419 FIXME("(%p)->(%s %x) stub\n", This
, debugstr_w(pFeature
), vfValue
);
2423 static HRESULT WINAPI
saxxmlreader_getProperty(
2424 IVBSAXXMLReader
* iface
,
2428 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2430 FIXME("(%p)->(%s %p) stub\n", This
, debugstr_w(pProp
), pValue
);
2434 static HRESULT WINAPI
saxxmlreader_putProperty(
2435 IVBSAXXMLReader
* iface
,
2439 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2440 return internal_putProperty(This
, pProp
, value
, TRUE
);
2443 static HRESULT WINAPI
saxxmlreader_get_entityResolver(
2444 IVBSAXXMLReader
* iface
,
2445 IVBSAXEntityResolver
**pEntityResolver
)
2447 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2448 return internal_getEntityResolver(This
, pEntityResolver
, TRUE
);
2451 static HRESULT WINAPI
saxxmlreader_put_entityResolver(
2452 IVBSAXXMLReader
* iface
,
2453 IVBSAXEntityResolver
*pEntityResolver
)
2455 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2456 return internal_putEntityResolver(This
, pEntityResolver
, TRUE
);
2459 static HRESULT WINAPI
saxxmlreader_get_contentHandler(
2460 IVBSAXXMLReader
* iface
,
2461 IVBSAXContentHandler
**ppContentHandler
)
2463 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2464 return internal_getContentHandler(This
, ppContentHandler
, TRUE
);
2467 static HRESULT WINAPI
saxxmlreader_put_contentHandler(
2468 IVBSAXXMLReader
* iface
,
2469 IVBSAXContentHandler
*contentHandler
)
2471 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2472 return internal_putContentHandler(This
, contentHandler
, TRUE
);
2475 static HRESULT WINAPI
saxxmlreader_get_dtdHandler(
2476 IVBSAXXMLReader
* iface
,
2477 IVBSAXDTDHandler
**pDTDHandler
)
2479 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2480 return internal_getDTDHandler(This
, pDTDHandler
, TRUE
);
2483 static HRESULT WINAPI
saxxmlreader_put_dtdHandler(
2484 IVBSAXXMLReader
* iface
,
2485 IVBSAXDTDHandler
*pDTDHandler
)
2487 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2488 return internal_putDTDHandler(This
, pDTDHandler
, TRUE
);
2491 static HRESULT WINAPI
saxxmlreader_get_errorHandler(
2492 IVBSAXXMLReader
* iface
,
2493 IVBSAXErrorHandler
**pErrorHandler
)
2495 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2496 return internal_getErrorHandler(This
, pErrorHandler
, TRUE
);
2499 static HRESULT WINAPI
saxxmlreader_put_errorHandler(
2500 IVBSAXXMLReader
* iface
,
2501 IVBSAXErrorHandler
*errorHandler
)
2503 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2504 return internal_putErrorHandler(This
, errorHandler
, TRUE
);
2507 static HRESULT WINAPI
saxxmlreader_get_baseURL(
2508 IVBSAXXMLReader
* iface
,
2509 const WCHAR
**pBaseUrl
)
2511 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2513 FIXME("(%p)->(%p) stub\n", This
, pBaseUrl
);
2517 static HRESULT WINAPI
saxxmlreader_put_baseURL(
2518 IVBSAXXMLReader
* iface
,
2519 const WCHAR
*pBaseUrl
)
2521 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2523 FIXME("(%p)->(%s) stub\n", This
, debugstr_w(pBaseUrl
));
2527 static HRESULT WINAPI
saxxmlreader_get_secureBaseURL(
2528 IVBSAXXMLReader
* iface
,
2529 const WCHAR
**pSecureBaseUrl
)
2531 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2533 FIXME("(%p)->(%p) stub\n", This
, pSecureBaseUrl
);
2538 static HRESULT WINAPI
saxxmlreader_put_secureBaseURL(
2539 IVBSAXXMLReader
* iface
,
2540 const WCHAR
*secureBaseUrl
)
2542 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2544 FIXME("(%p)->(%s) stub\n", This
, debugstr_w(secureBaseUrl
));
2548 static HRESULT WINAPI
saxxmlreader_parse(
2549 IVBSAXXMLReader
* iface
,
2552 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2553 return internal_parse(This
, varInput
, TRUE
);
2556 static HRESULT WINAPI
saxxmlreader_parseURL(
2557 IVBSAXXMLReader
* iface
,
2560 saxreader
*This
= impl_from_IVBSAXXMLReader( iface
);
2561 return internal_parseURL(This
, url
, TRUE
);
2564 static const struct IVBSAXXMLReaderVtbl saxreader_vtbl
=
2566 saxxmlreader_QueryInterface
,
2567 saxxmlreader_AddRef
,
2568 saxxmlreader_Release
,
2569 saxxmlreader_GetTypeInfoCount
,
2570 saxxmlreader_GetTypeInfo
,
2571 saxxmlreader_GetIDsOfNames
,
2572 saxxmlreader_Invoke
,
2573 saxxmlreader_getFeature
,
2574 saxxmlreader_putFeature
,
2575 saxxmlreader_getProperty
,
2576 saxxmlreader_putProperty
,
2577 saxxmlreader_get_entityResolver
,
2578 saxxmlreader_put_entityResolver
,
2579 saxxmlreader_get_contentHandler
,
2580 saxxmlreader_put_contentHandler
,
2581 saxxmlreader_get_dtdHandler
,
2582 saxxmlreader_put_dtdHandler
,
2583 saxxmlreader_get_errorHandler
,
2584 saxxmlreader_put_errorHandler
,
2585 saxxmlreader_get_baseURL
,
2586 saxxmlreader_put_baseURL
,
2587 saxxmlreader_get_secureBaseURL
,
2588 saxxmlreader_put_secureBaseURL
,
2590 saxxmlreader_parseURL
2593 /*** ISAXXMLReader interface ***/
2594 /*** IUnknown methods ***/
2595 static HRESULT WINAPI
isaxxmlreader_QueryInterface(ISAXXMLReader
* iface
, REFIID riid
, void **ppvObject
)
2597 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2598 return saxxmlreader_QueryInterface((IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
, riid
, ppvObject
);
2601 static ULONG WINAPI
isaxxmlreader_AddRef(ISAXXMLReader
* iface
)
2603 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2604 return saxxmlreader_AddRef((IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
);
2607 static ULONG WINAPI
isaxxmlreader_Release(ISAXXMLReader
* iface
)
2609 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2610 return saxxmlreader_Release((IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
);
2613 /*** ISAXXMLReader methods ***/
2614 static HRESULT WINAPI
isaxxmlreader_getFeature(
2615 ISAXXMLReader
* iface
,
2616 const WCHAR
*pFeature
,
2617 VARIANT_BOOL
*pValue
)
2619 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2620 return IVBSAXXMLReader_getFeature(
2621 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2625 static HRESULT WINAPI
isaxxmlreader_putFeature(
2626 ISAXXMLReader
* iface
,
2627 const WCHAR
*pFeature
,
2628 VARIANT_BOOL vfValue
)
2630 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2631 return IVBSAXXMLReader_putFeature(
2632 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2636 static HRESULT WINAPI
isaxxmlreader_getProperty(
2637 ISAXXMLReader
* iface
,
2641 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2642 return IVBSAXXMLReader_getProperty(
2643 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2647 static HRESULT WINAPI
isaxxmlreader_putProperty(
2648 ISAXXMLReader
* iface
,
2652 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2653 return internal_putProperty(This
, pProp
, value
, FALSE
);
2656 static HRESULT WINAPI
isaxxmlreader_getEntityResolver(
2657 ISAXXMLReader
* iface
,
2658 ISAXEntityResolver
**ppEntityResolver
)
2660 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2661 return internal_getEntityResolver(This
, ppEntityResolver
, FALSE
);
2664 static HRESULT WINAPI
isaxxmlreader_putEntityResolver(
2665 ISAXXMLReader
* iface
,
2666 ISAXEntityResolver
*pEntityResolver
)
2668 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2669 return internal_putEntityResolver(This
, pEntityResolver
, FALSE
);
2672 static HRESULT WINAPI
isaxxmlreader_getContentHandler(
2673 ISAXXMLReader
* iface
,
2674 ISAXContentHandler
**pContentHandler
)
2676 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2677 return internal_getContentHandler(This
, pContentHandler
, FALSE
);
2680 static HRESULT WINAPI
isaxxmlreader_putContentHandler(
2681 ISAXXMLReader
* iface
,
2682 ISAXContentHandler
*contentHandler
)
2684 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2685 return internal_putContentHandler(This
, contentHandler
, FALSE
);
2688 static HRESULT WINAPI
isaxxmlreader_getDTDHandler(
2689 ISAXXMLReader
* iface
,
2690 ISAXDTDHandler
**pDTDHandler
)
2692 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2693 return internal_getDTDHandler(This
, pDTDHandler
, FALSE
);
2696 static HRESULT WINAPI
isaxxmlreader_putDTDHandler(
2697 ISAXXMLReader
* iface
,
2698 ISAXDTDHandler
*pDTDHandler
)
2700 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2701 return internal_putDTDHandler(This
, pDTDHandler
, FALSE
);
2704 static HRESULT WINAPI
isaxxmlreader_getErrorHandler(
2705 ISAXXMLReader
* iface
,
2706 ISAXErrorHandler
**pErrorHandler
)
2708 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2709 return internal_getErrorHandler(This
, pErrorHandler
, FALSE
);
2712 static HRESULT WINAPI
isaxxmlreader_putErrorHandler(
2713 ISAXXMLReader
* iface
,
2714 ISAXErrorHandler
*errorHandler
)
2716 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2717 return internal_putErrorHandler(This
, errorHandler
, FALSE
);
2720 static HRESULT WINAPI
isaxxmlreader_getBaseURL(
2721 ISAXXMLReader
* iface
,
2722 const WCHAR
**pBaseUrl
)
2724 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2725 return IVBSAXXMLReader_get_baseURL(
2726 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2730 static HRESULT WINAPI
isaxxmlreader_putBaseURL(
2731 ISAXXMLReader
* iface
,
2732 const WCHAR
*pBaseUrl
)
2734 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2735 return IVBSAXXMLReader_put_baseURL(
2736 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2740 static HRESULT WINAPI
isaxxmlreader_getSecureBaseURL(
2741 ISAXXMLReader
* iface
,
2742 const WCHAR
**pSecureBaseUrl
)
2744 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2745 return IVBSAXXMLReader_get_secureBaseURL(
2746 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2750 static HRESULT WINAPI
isaxxmlreader_putSecureBaseURL(
2751 ISAXXMLReader
* iface
,
2752 const WCHAR
*secureBaseUrl
)
2754 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2755 return IVBSAXXMLReader_put_secureBaseURL(
2756 (IVBSAXXMLReader
*)&This
->lpVBSAXXMLReaderVtbl
,
2760 static HRESULT WINAPI
isaxxmlreader_parse(
2761 ISAXXMLReader
* iface
,
2764 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2765 return internal_parse(This
, varInput
, FALSE
);
2768 static HRESULT WINAPI
isaxxmlreader_parseURL(
2769 ISAXXMLReader
* iface
,
2772 saxreader
*This
= impl_from_ISAXXMLReader( iface
);
2773 return internal_parseURL(This
, url
, FALSE
);
2776 static const struct ISAXXMLReaderVtbl isaxreader_vtbl
=
2778 isaxxmlreader_QueryInterface
,
2779 isaxxmlreader_AddRef
,
2780 isaxxmlreader_Release
,
2781 isaxxmlreader_getFeature
,
2782 isaxxmlreader_putFeature
,
2783 isaxxmlreader_getProperty
,
2784 isaxxmlreader_putProperty
,
2785 isaxxmlreader_getEntityResolver
,
2786 isaxxmlreader_putEntityResolver
,
2787 isaxxmlreader_getContentHandler
,
2788 isaxxmlreader_putContentHandler
,
2789 isaxxmlreader_getDTDHandler
,
2790 isaxxmlreader_putDTDHandler
,
2791 isaxxmlreader_getErrorHandler
,
2792 isaxxmlreader_putErrorHandler
,
2793 isaxxmlreader_getBaseURL
,
2794 isaxxmlreader_putBaseURL
,
2795 isaxxmlreader_getSecureBaseURL
,
2796 isaxxmlreader_putSecureBaseURL
,
2797 isaxxmlreader_parse
,
2798 isaxxmlreader_parseURL
2801 HRESULT
SAXXMLReader_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
)
2805 TRACE("(%p,%p)\n", pUnkOuter
, ppObj
);
2807 reader
= HeapAlloc( GetProcessHeap(), 0, sizeof (*reader
) );
2809 return E_OUTOFMEMORY
;
2811 reader
->lpVBSAXXMLReaderVtbl
= &saxreader_vtbl
;
2812 reader
->lpSAXXMLReaderVtbl
= &isaxreader_vtbl
;
2814 reader
->contentHandler
= NULL
;
2815 reader
->vbcontentHandler
= NULL
;
2816 reader
->errorHandler
= NULL
;
2817 reader
->vberrorHandler
= NULL
;
2818 reader
->lexicalHandler
= NULL
;
2819 reader
->vblexicalHandler
= NULL
;
2820 reader
->declHandler
= NULL
;
2821 reader
->vbdeclHandler
= NULL
;
2822 reader
->isParsing
= FALSE
;
2824 memset(&reader
->sax
, 0, sizeof(xmlSAXHandler
));
2825 reader
->sax
.initialized
= XML_SAX2_MAGIC
;
2826 reader
->sax
.startDocument
= libxmlStartDocument
;
2827 reader
->sax
.endDocument
= libxmlEndDocument
;
2828 reader
->sax
.startElementNs
= libxmlStartElementNS
;
2829 reader
->sax
.endElementNs
= libxmlEndElementNS
;
2830 reader
->sax
.characters
= libxmlCharacters
;
2831 reader
->sax
.setDocumentLocator
= libxmlSetDocumentLocator
;
2832 reader
->sax
.comment
= libxmlComment
;
2833 reader
->sax
.error
= libxmlFatalError
;
2834 reader
->sax
.fatalError
= libxmlFatalError
;
2835 reader
->sax
.cdataBlock
= libxmlCDataBlock
;
2837 *ppObj
= &reader
->lpVBSAXXMLReaderVtbl
;
2839 TRACE("returning iface %p\n", *ppObj
);
2846 HRESULT
SAXXMLReader_create(IUnknown
*pUnkOuter
, LPVOID
*ppObj
)
2848 MESSAGE("This program tried to use a SAX XML Reader object, but\n"
2849 "libxml2 support was not present at compile time.\n");