?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
d3d8: Get rid of the format switching code in d3d8_device_CopyRects().
[wine.git] / dlls / xmllite / reader.c
blobcf6193979f8b5ad89389ad8fd0668f358613031e
1 /*
2 * IXmlReader implementation
3 *
4 * Copyright 2010, 2012-2013 Nikolay Sivov
5 *
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.
10 *
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.
15 *
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
19 */
20
21 #define COBJMACROS
22
23 #include <stdio.h>
24 #include <stdarg.h>
25 #include "windef.h"
26 #include "winbase.h"
27 #include "initguid.h"
28 #include "objbase.h"
29 #include "xmllite.h"
30 #include "xmllite_private.h"
31
32 #include "wine/debug.h"
33 #include "wine/list.h"
34 #include "wine/unicode.h"
35
36 WINE_DEFAULT_DEBUG_CHANNEL(xmllite);
37
38 /* not defined in public headers */
39 DEFINE_GUID(IID_IXmlReaderInput, 0x0b3ccc9b, 0x9214, 0x428b, 0xa2, 0xae, 0xef, 0x3a, 0xa8, 0x71, 0xaf, 0xda);
40
41 typedef enum
42 {
43 XmlReadInState_Initial,
44 XmlReadInState_XmlDecl,
45 XmlReadInState_Misc_DTD,
46 XmlReadInState_DTD,
47 XmlReadInState_DTD_Misc,
48 XmlReadInState_Element,
49 XmlReadInState_Content,
50 XmlReadInState_MiscEnd, /* optional Misc at the end of a document */
51 XmlReadInState_Eof
52 } XmlReaderInternalState;
53
54 /* This state denotes where parsing was interrupted by input problem.
55 Reader resumes parsing using this information. */
56 typedef enum
57 {
58 XmlReadResumeState_Initial,
59 XmlReadResumeState_PITarget,
60 XmlReadResumeState_PIBody,
61 XmlReadResumeState_CDATA,
62 XmlReadResumeState_Comment,
63 XmlReadResumeState_STag,
64 XmlReadResumeState_CharData,
65 XmlReadResumeState_Whitespace
66 } XmlReaderResumeState;
67
68 /* saved pointer index to resume from particular input position */
69 typedef enum
70 {
71 XmlReadResume_Name, /* PITarget, name for NCName, prefix for QName */
72 XmlReadResume_Local, /* local for QName */
73 XmlReadResume_Body, /* PI body, comment text, CDATA text, CharData text */
74 XmlReadResume_Last
75 } XmlReaderResume;
76
77 typedef enum
78 {
79 StringValue_LocalName,
80 StringValue_Prefix,
81 StringValue_QualifiedName,
82 StringValue_Value,
83 StringValue_Last
84 } XmlReaderStringValue;
85
86 static const WCHAR utf16W[] = {'U','T','F','-','1','6',0};
87 static const WCHAR utf8W[] = {'U','T','F','-','8',0};
88
89 static const WCHAR dblquoteW[] = {'\"',0};
90 static const WCHAR quoteW[] = {'\'',0};
91 static const WCHAR ltW[] = {'<',0};
92 static const WCHAR gtW[] = {'>',0};
93 static const WCHAR commentW[] = {'<','!','-','-',0};
94 static const WCHAR piW[] = {'<','?',0};
95
96 static const char *debugstr_nodetype(XmlNodeType nodetype)
97 {
98 static const char * const type_names[] =
99 {
100 "None",
101 "Element",
102 "Attribute",
103 "Text",
104 "CDATA",
105 "",
106 "",
107 "ProcessingInstruction",
108 "Comment",
109 "",
110 "DocumentType",
111 "",
112 "",
113 "Whitespace",
114 "",
115 "EndElement",
116 "",
117 "XmlDeclaration"
118 };
119
120 if (nodetype > _XmlNodeType_Last)
121 return wine_dbg_sprintf("unknown type=%d", nodetype);
122
123 return type_names[nodetype];
124 }
125
126 static const char *debugstr_reader_prop(XmlReaderProperty prop)
127 {
128 static const char * const prop_names[] =
129 {
130 "MultiLanguage",
131 "ConformanceLevel",
132 "RandomAccess",
133 "XmlResolver",
134 "DtdProcessing",
135 "ReadState",
136 "MaxElementDepth",
137 "MaxEntityExpansion"
138 };
139
140 if (prop > _XmlReaderProperty_Last)
141 return wine_dbg_sprintf("unknown property=%d", prop);
142
143 return prop_names[prop];
144 }
145
146 struct xml_encoding_data
147 {
148 const WCHAR *name;
149 xml_encoding enc;
150 UINT cp;
151 };
152
153 static const struct xml_encoding_data xml_encoding_map[] = {
154 { utf16W, XmlEncoding_UTF16, ~0 },
155 { utf8W, XmlEncoding_UTF8, CP_UTF8 }
156 };
157
158 const WCHAR *get_encoding_name(xml_encoding encoding)
159 {
160 return xml_encoding_map[encoding].name;
161 }
162
163 typedef struct
164 {
165 char *data;
166 UINT cur;
167 unsigned int allocated;
168 unsigned int written;
169 } encoded_buffer;
170
171 typedef struct input_buffer input_buffer;
172
173 typedef struct
174 {
175 IXmlReaderInput IXmlReaderInput_iface;
176 LONG ref;
177 /* reference passed on IXmlReaderInput creation, is kept when input is created */
178 IUnknown *input;
179 IMalloc *imalloc;
180 xml_encoding encoding;
181 BOOL hint;
182 WCHAR *baseuri;
183 /* stream reference set after SetInput() call from reader,
184 stored as sequential stream, cause currently
185 optimizations possible with IStream aren't implemented */
186 ISequentialStream *stream;
187 input_buffer *buffer;
188 unsigned int pending : 1;
189 } xmlreaderinput;
190
191 static const struct IUnknownVtbl xmlreaderinputvtbl;
192
193 /* Structure to hold parsed string of specific length.
194
195 Reader stores node value as 'start' pointer, on request
196 a null-terminated version of it is allocated.
197
198 To init a strval variable use reader_init_strval(),
199 to set strval as a reader value use reader_set_strval().
200 */
201 typedef struct
202 {
203 WCHAR *str; /* allocated null-terminated string */
204 UINT len; /* length in WCHARs, altered after ReadValueChunk */
205 UINT start; /* input position where value starts */
206 } strval;
207
208 static WCHAR emptyW[] = {0};
209 static const strval strval_empty = { emptyW };
210
211 struct attribute
212 {
213 struct list entry;
214 strval localname;
215 strval value;
216 };
217
218 struct element
219 {
220 struct list entry;
221 strval qname;
222 strval localname;
223 };
224
225 typedef struct
226 {
227 IXmlReader IXmlReader_iface;
228 LONG ref;
229 xmlreaderinput *input;
230 IMalloc *imalloc;
231 XmlReadState state;
232 XmlReaderInternalState instate;
233 XmlReaderResumeState resumestate;
234 XmlNodeType nodetype;
235 DtdProcessing dtdmode;
236 UINT line, pos; /* reader position in XML stream */
237 struct list attrs; /* attributes list for current node */
238 struct attribute *attr; /* current attribute */
239 UINT attr_count;
240 struct list elements;
241 strval strvalues[StringValue_Last];
242 UINT depth;
243 UINT max_depth;
244 BOOL empty_element;
245 UINT resume[XmlReadResume_Last]; /* offsets used to resume reader */
246 } xmlreader;
247
248 struct input_buffer
249 {
250 encoded_buffer utf16;
251 encoded_buffer encoded;
252 UINT code_page;
253 xmlreaderinput *input;
254 };
255
256 static inline xmlreader *impl_from_IXmlReader(IXmlReader *iface)
257 {
258 return CONTAINING_RECORD(iface, xmlreader, IXmlReader_iface);
259 }
260
261 static inline xmlreaderinput *impl_from_IXmlReaderInput(IXmlReaderInput *iface)
262 {
263 return CONTAINING_RECORD(iface, xmlreaderinput, IXmlReaderInput_iface);
264 }
265
266 /* reader memory allocation functions */
267 static inline void *reader_alloc(xmlreader *reader, size_t len)
268 {
269 return m_alloc(reader->imalloc, len);
270 }
271
272 static inline void reader_free(xmlreader *reader, void *mem)
273 {
274 m_free(reader->imalloc, mem);
275 }
276
277 /* Just return pointer from offset, no attempt to read more. */
278 static inline WCHAR *reader_get_ptr2(const xmlreader *reader, UINT offset)
279 {
280 encoded_buffer *buffer = &reader->input->buffer->utf16;
281 return (WCHAR*)buffer->data + offset;
282 }
283
284 static inline WCHAR *reader_get_strptr(const xmlreader *reader, const strval *v)
285 {
286 return v->str ? v->str : reader_get_ptr2(reader, v->start);
287 }
288
289 static HRESULT reader_strvaldup(xmlreader *reader, const strval *src, strval *dest)
290 {
291 *dest = *src;
292
293 if (src->str != strval_empty.str)
294 {
295 dest->str = reader_alloc(reader, (dest->len+1)*sizeof(WCHAR));
296 if (!dest->str) return E_OUTOFMEMORY;
297 memcpy(dest->str, reader_get_strptr(reader, src), dest->len*sizeof(WCHAR));
298 dest->str[dest->len] = 0;
299 dest->start = 0;
300 }
301
302 return S_OK;
303 }
304
305 /* reader input memory allocation functions */
306 static inline void *readerinput_alloc(xmlreaderinput *input, size_t len)
307 {
308 return m_alloc(input->imalloc, len);
309 }
310
311 static inline void *readerinput_realloc(xmlreaderinput *input, void *mem, size_t len)
312 {
313 return m_realloc(input->imalloc, mem, len);
314 }
315
316 static inline void readerinput_free(xmlreaderinput *input, void *mem)
317 {
318 m_free(input->imalloc, mem);
319 }
320
321 static inline WCHAR *readerinput_strdupW(xmlreaderinput *input, const WCHAR *str)
322 {
323 LPWSTR ret = NULL;
324
325 if(str) {
326 DWORD size;
327
328 size = (strlenW(str)+1)*sizeof(WCHAR);
329 ret = readerinput_alloc(input, size);
330 if (ret) memcpy(ret, str, size);
331 }
332
333 return ret;
334 }
335
336 static void reader_clear_attrs(xmlreader *reader)
337 {
338 struct attribute *attr, *attr2;
339 LIST_FOR_EACH_ENTRY_SAFE(attr, attr2, &reader->attrs, struct attribute, entry)
340 {
341 reader_free(reader, attr);
342 }
343 list_init(&reader->attrs);
344 reader->attr_count = 0;
345 reader->attr = NULL;
346 }
347
348 /* attribute data holds pointers to buffer data, so buffer shrink is not possible
349 while we are on a node with attributes */
350 static HRESULT reader_add_attr(xmlreader *reader, strval *localname, strval *value)
351 {
352 struct attribute *attr;
353
354 attr = reader_alloc(reader, sizeof(*attr));
355 if (!attr) return E_OUTOFMEMORY;
356
357 attr->localname = *localname;
358 attr->value = *value;
359 list_add_tail(&reader->attrs, &attr->entry);
360 reader->attr_count++;
361
362 return S_OK;
363 }
364
365 /* This one frees stored string value if needed */
366 static void reader_free_strvalued(xmlreader *reader, strval *v)
367 {
368 if (v->str != strval_empty.str)
369 {
370 reader_free(reader, v->str);
371 *v = strval_empty;
372 }
373 }
374
375 static inline void reader_init_strvalue(UINT start, UINT len, strval *v)
376 {
377 v->start = start;
378 v->len = len;
379 v->str = NULL;
380 }
381
382 static inline const char* debug_strval(const xmlreader *reader, const strval *v)
383 {
384 return debugstr_wn(reader_get_strptr(reader, v), v->len);
385 }
386
387 /* used to initialize from constant string */
388 static inline void reader_init_cstrvalue(WCHAR *str, UINT len, strval *v)
389 {
390 v->start = 0;
391 v->len = len;
392 v->str = str;
393 }
394
395 static void reader_free_strvalue(xmlreader *reader, XmlReaderStringValue type)
396 {
397 reader_free_strvalued(reader, &reader->strvalues[type]);
398 }
399
400 static void reader_free_strvalues(xmlreader *reader)
401 {
402 int type;
403 for (type = 0; type < StringValue_Last; type++)
404 reader_free_strvalue(reader, type);
405 }
406
407 /* This helper should only be used to test if strings are the same,
408 it doesn't try to sort. */
409 static inline int strval_eq(const xmlreader *reader, const strval *str1, const strval *str2)
410 {
411 if (str1->len != str2->len) return 0;
412 return !memcmp(reader_get_strptr(reader, str1), reader_get_strptr(reader, str2), str1->len*sizeof(WCHAR));
413 }
414
415 static void reader_clear_elements(xmlreader *reader)
416 {
417 struct element *elem, *elem2;
418 LIST_FOR_EACH_ENTRY_SAFE(elem, elem2, &reader->elements, struct element, entry)
419 {
420 reader_free_strvalued(reader, &elem->qname);
421 reader_free(reader, elem);
422 }
423 list_init(&reader->elements);
424 reader->empty_element = FALSE;
425 }
426
427 static HRESULT reader_inc_depth(xmlreader *reader)
428 {
429 if (++reader->depth > reader->max_depth) return SC_E_MAXELEMENTDEPTH;
430 return S_OK;
431 }
432
433 static void reader_dec_depth(xmlreader *reader)
434 {
435 if (reader->depth > 1) reader->depth--;
436 }
437
438 static HRESULT reader_push_element(xmlreader *reader, strval *qname, strval *localname)
439 {
440 struct element *elem;
441 HRESULT hr;
442
443 elem = reader_alloc(reader, sizeof(*elem));
444 if (!elem) return E_OUTOFMEMORY;
445
446 hr = reader_strvaldup(reader, qname, &elem->qname);
447 if (FAILED(hr)) {
448 reader_free(reader, elem);
449 return hr;
450 }
451
452 hr = reader_strvaldup(reader, localname, &elem->localname);
453 if (FAILED(hr))
454 {
455 reader_free_strvalued(reader, &elem->qname);
456 reader_free(reader, elem);
457 return hr;
458 }
459
460 if (!list_empty(&reader->elements))
461 {
462 hr = reader_inc_depth(reader);
463 if (FAILED(hr)) {
464 reader_free(reader, elem);
465 return hr;
466 }
467 }
468
469 list_add_head(&reader->elements, &elem->entry);
470 reader->empty_element = FALSE;
471 return hr;
472 }
473
474 static void reader_pop_element(xmlreader *reader)
475 {
476 struct element *elem = LIST_ENTRY(list_head(&reader->elements), struct element, entry);
477
478 if (elem)
479 {
480 list_remove(&elem->entry);
481 reader_free_strvalued(reader, &elem->qname);
482 reader_free_strvalued(reader, &elem->localname);
483 reader_free(reader, elem);
484 reader_dec_depth(reader);
485 }
486 }
487
488 /* Always make a copy, cause strings are supposed to be null terminated. Null pointer for 'value'
489 means node value is to be determined. */
490 static void reader_set_strvalue(xmlreader *reader, XmlReaderStringValue type, const strval *value)
491 {
492 strval *v = &reader->strvalues[type];
493
494 reader_free_strvalue(reader, type);
495 if (!value)
496 {
497 v->str = NULL;
498 v->start = 0;
499 v->len = 0;
500 return;
501 }
502
503 if (value->str == strval_empty.str)
504 *v = *value;
505 else
506 {
507 if (type == StringValue_Value)
508 {
509 /* defer allocation for value string */
510 v->str = NULL;
511 v->start = value->start;
512 v->len = value->len;
513 }
514 else
515 {
516 v->str = reader_alloc(reader, (value->len + 1)*sizeof(WCHAR));
517 memcpy(v->str, reader_get_strptr(reader, value), value->len*sizeof(WCHAR));
518 v->str[value->len] = 0;
519 v->len = value->len;
520 }
521 }
522 }
523
524 static inline int is_reader_pending(xmlreader *reader)
525 {
526 return reader->input->pending;
527 }
528
529 static HRESULT init_encoded_buffer(xmlreaderinput *input, encoded_buffer *buffer)
530 {
531 const int initial_len = 0x2000;
532 buffer->data = readerinput_alloc(input, initial_len);
533 if (!buffer->data) return E_OUTOFMEMORY;
534
535 memset(buffer->data, 0, 4);
536 buffer->cur = 0;
537 buffer->allocated = initial_len;
538 buffer->written = 0;
539
540 return S_OK;
541 }
542
543 static void free_encoded_buffer(xmlreaderinput *input, encoded_buffer *buffer)
544 {
545 readerinput_free(input, buffer->data);
546 }
547
548 HRESULT get_code_page(xml_encoding encoding, UINT *cp)
549 {
550 if (encoding == XmlEncoding_Unknown)
551 {
552 FIXME("unsupported encoding %d\n", encoding);
553 return E_NOTIMPL;
554 }
555
556 *cp = xml_encoding_map[encoding].cp;
557
558 return S_OK;
559 }
560
561 xml_encoding parse_encoding_name(const WCHAR *name, int len)
562 {
563 int min, max, n, c;
564
565 if (!name) return XmlEncoding_Unknown;
566
567 min = 0;
568 max = sizeof(xml_encoding_map)/sizeof(struct xml_encoding_data) - 1;
569
570 while (min <= max)
571 {
572 n = (min+max)/2;
573
574 if (len != -1)
575 c = strncmpiW(xml_encoding_map[n].name, name, len);
576 else
577 c = strcmpiW(xml_encoding_map[n].name, name);
578 if (!c)
579 return xml_encoding_map[n].enc;
580
581 if (c > 0)
582 max = n-1;
583 else
584 min = n+1;
585 }
586
587 return XmlEncoding_Unknown;
588 }
589
590 static HRESULT alloc_input_buffer(xmlreaderinput *input)
591 {
592 input_buffer *buffer;
593 HRESULT hr;
594
595 input->buffer = NULL;
596
597 buffer = readerinput_alloc(input, sizeof(*buffer));
598 if (!buffer) return E_OUTOFMEMORY;
599
600 buffer->input = input;
601 buffer->code_page = ~0; /* code page is unknown at this point */
602 hr = init_encoded_buffer(input, &buffer->utf16);
603 if (hr != S_OK) {
604 readerinput_free(input, buffer);
605 return hr;
606 }
607
608 hr = init_encoded_buffer(input, &buffer->encoded);
609 if (hr != S_OK) {
610 free_encoded_buffer(input, &buffer->utf16);
611 readerinput_free(input, buffer);
612 return hr;
613 }
614
615 input->buffer = buffer;
616 return S_OK;
617 }
618
619 static void free_input_buffer(input_buffer *buffer)
620 {
621 free_encoded_buffer(buffer->input, &buffer->encoded);
622 free_encoded_buffer(buffer->input, &buffer->utf16);
623 readerinput_free(buffer->input, buffer);
624 }
625
626 static void readerinput_release_stream(xmlreaderinput *readerinput)
627 {
628 if (readerinput->stream) {
629 ISequentialStream_Release(readerinput->stream);
630 readerinput->stream = NULL;
631 }
632 }
633
634 /* Queries already stored interface for IStream/ISequentialStream.
635 Interface supplied on creation will be overwritten */
636 static inline HRESULT readerinput_query_for_stream(xmlreaderinput *readerinput)
637 {
638 HRESULT hr;
639
640 readerinput_release_stream(readerinput);
641 hr = IUnknown_QueryInterface(readerinput->input, &IID_IStream, (void**)&readerinput->stream);
642 if (hr != S_OK)
643 hr = IUnknown_QueryInterface(readerinput->input, &IID_ISequentialStream, (void**)&readerinput->stream);
644
645 return hr;
646 }
647
648 /* reads a chunk to raw buffer */
649 static HRESULT readerinput_growraw(xmlreaderinput *readerinput)
650 {
651 encoded_buffer *buffer = &readerinput->buffer->encoded;
652 /* to make sure aligned length won't exceed allocated length */
653 ULONG len = buffer->allocated - buffer->written - 4;
654 ULONG read;
655 HRESULT hr;
656
657 /* always try to get aligned to 4 bytes, so the only case we can get partially read characters is
658 variable width encodings like UTF-8 */
659 len = (len + 3) & ~3;
660 /* try to use allocated space or grow */
661 if (buffer->allocated - buffer->written < len)
662 {
663 buffer->allocated *= 2;
664 buffer->data = readerinput_realloc(readerinput, buffer->data, buffer->allocated);
665 len = buffer->allocated - buffer->written;
666 }
667
668 read = 0;
669 hr = ISequentialStream_Read(readerinput->stream, buffer->data + buffer->written, len, &read);
670 TRACE("written=%d, alloc=%d, requested=%d, read=%d, ret=0x%08x\n", buffer->written, buffer->allocated, len, read, hr);
671 readerinput->pending = hr == E_PENDING;
672 if (FAILED(hr)) return hr;
673 buffer->written += read;
674
675 return hr;
676 }
677
678 /* grows UTF-16 buffer so it has at least 'length' WCHAR chars free on return */
679 static void readerinput_grow(xmlreaderinput *readerinput, int length)
680 {
681 encoded_buffer *buffer = &readerinput->buffer->utf16;
682
683 length *= sizeof(WCHAR);
684 /* grow if needed, plus 4 bytes to be sure null terminator will fit in */
685 if (buffer->allocated < buffer->written + length + 4)
686 {
687 int grown_size = max(2*buffer->allocated, buffer->allocated + length);
688 buffer->data = readerinput_realloc(readerinput, buffer->data, grown_size);
689 buffer->allocated = grown_size;
690 }
691 }
692
693 static inline BOOL readerinput_is_utf8(xmlreaderinput *readerinput)
694 {
695 static const char startA[] = {'<','?'};
696 static const char commentA[] = {'<','!'};
697 encoded_buffer *buffer = &readerinput->buffer->encoded;
698 unsigned char *ptr = (unsigned char*)buffer->data;
699
700 return !memcmp(buffer->data, startA, sizeof(startA)) ||
701 !memcmp(buffer->data, commentA, sizeof(commentA)) ||
702 /* test start byte */
703 (ptr[0] == '<' &&
704 (
705 (ptr[1] && (ptr[1] <= 0x7f)) ||
706 (buffer->data[1] >> 5) == 0x6 || /* 2 bytes */
707 (buffer->data[1] >> 4) == 0xe || /* 3 bytes */
708 (buffer->data[1] >> 3) == 0x1e) /* 4 bytes */
709 );
710 }
711
712 static HRESULT readerinput_detectencoding(xmlreaderinput *readerinput, xml_encoding *enc)
713 {
714 encoded_buffer *buffer = &readerinput->buffer->encoded;
715 static const WCHAR startW[] = {'<','?'};
716 static const WCHAR commentW[] = {'<','!'};
717 static const char utf8bom[] = {0xef,0xbb,0xbf};
718 static const char utf16lebom[] = {0xff,0xfe};
719
720 *enc = XmlEncoding_Unknown;
721
722 if (buffer->written <= 3)
723 {
724 HRESULT hr = readerinput_growraw(readerinput);
725 if (FAILED(hr)) return hr;
726 if (buffer->written <= 3) return MX_E_INPUTEND;
727 }
728
729 /* try start symbols if we have enough data to do that, input buffer should contain
730 first chunk already */
731 if (readerinput_is_utf8(readerinput))
732 *enc = XmlEncoding_UTF8;
733 else if (!memcmp(buffer->data, startW, sizeof(startW)) ||
734 !memcmp(buffer->data, commentW, sizeof(commentW)))
735 *enc = XmlEncoding_UTF16;
736 /* try with BOM now */
737 else if (!memcmp(buffer->data, utf8bom, sizeof(utf8bom)))
738 {
739 buffer->cur += sizeof(utf8bom);
740 *enc = XmlEncoding_UTF8;
741 }
742 else if (!memcmp(buffer->data, utf16lebom, sizeof(utf16lebom)))
743 {
744 buffer->cur += sizeof(utf16lebom);
745 *enc = XmlEncoding_UTF16;
746 }
747
748 return S_OK;
749 }
750
751 static int readerinput_get_utf8_convlen(xmlreaderinput *readerinput)
752 {
753 encoded_buffer *buffer = &readerinput->buffer->encoded;
754 int len = buffer->written;
755
756 /* complete single byte char */
757 if (!(buffer->data[len-1] & 0x80)) return len;
758
759 /* find start byte of multibyte char */
760 while (--len && !(buffer->data[len] & 0xc0))
761 ;
762
763 return len;
764 }
765
766 /* Returns byte length of complete char sequence for buffer code page,
767 it's relative to current buffer position which is currently used for BOM handling
768 only. */
769 static int readerinput_get_convlen(xmlreaderinput *readerinput)
770 {
771 encoded_buffer *buffer = &readerinput->buffer->encoded;
772 int len;
773
774 if (readerinput->buffer->code_page == CP_UTF8)
775 len = readerinput_get_utf8_convlen(readerinput);
776 else
777 len = buffer->written;
778
779 TRACE("%d\n", len - buffer->cur);
780 return len - buffer->cur;
781 }
782
783 /* It's possible that raw buffer has some leftovers from last conversion - some char
784 sequence that doesn't represent a full code point. Length argument should be calculated with
785 readerinput_get_convlen(), if it's -1 it will be calculated here. */
786 static void readerinput_shrinkraw(xmlreaderinput *readerinput, int len)
787 {
788 encoded_buffer *buffer = &readerinput->buffer->encoded;
789
790 if (len == -1)
791 len = readerinput_get_convlen(readerinput);
792
793 memmove(buffer->data, buffer->data + buffer->cur + (buffer->written - len), len);
794 /* everything below cur is lost too */
795 buffer->written -= len + buffer->cur;
796 /* after this point we don't need cur offset really,
797 it's used only to mark where actual data begins when first chunk is read */
798 buffer->cur = 0;
799 }
800
801 /* note that raw buffer content is kept */
802 static void readerinput_switchencoding(xmlreaderinput *readerinput, xml_encoding enc)
803 {
804 encoded_buffer *src = &readerinput->buffer->encoded;
805 encoded_buffer *dest = &readerinput->buffer->utf16;
806 int len, dest_len;
807 HRESULT hr;
808 WCHAR *ptr;
809 UINT cp;
810
811 hr = get_code_page(enc, &cp);
812 if (FAILED(hr)) return;
813
814 readerinput->buffer->code_page = cp;
815 len = readerinput_get_convlen(readerinput);
816
817 TRACE("switching to cp %d\n", cp);
818
819 /* just copy in this case */
820 if (enc == XmlEncoding_UTF16)
821 {
822 readerinput_grow(readerinput, len);
823 memcpy(dest->data, src->data + src->cur, len);
824 dest->written += len*sizeof(WCHAR);
825 return;
826 }
827
828 dest_len = MultiByteToWideChar(cp, 0, src->data + src->cur, len, NULL, 0);
829 readerinput_grow(readerinput, dest_len);
830 ptr = (WCHAR*)dest->data;
831 MultiByteToWideChar(cp, 0, src->data + src->cur, len, ptr, dest_len);
832 ptr[dest_len] = 0;
833 dest->written += dest_len*sizeof(WCHAR);
834 }
835
836 /* shrinks parsed data a buffer begins with */
837 static void reader_shrink(xmlreader *reader)
838 {
839 encoded_buffer *buffer = &reader->input->buffer->utf16;
840
841 /* avoid to move too often using threshold shrink length */
842 if (buffer->cur*sizeof(WCHAR) > buffer->written / 2)
843 {
844 buffer->written -= buffer->cur*sizeof(WCHAR);
845 memmove(buffer->data, (WCHAR*)buffer->data + buffer->cur, buffer->written);
846 buffer->cur = 0;
847 *(WCHAR*)&buffer->data[buffer->written] = 0;
848 }
849 }
850
851 /* This is a normal way for reader to get new data converted from raw buffer to utf16 buffer.
852 It won't attempt to shrink but will grow destination buffer if needed */
853 static HRESULT reader_more(xmlreader *reader)
854 {
855 xmlreaderinput *readerinput = reader->input;
856 encoded_buffer *src = &readerinput->buffer->encoded;
857 encoded_buffer *dest = &readerinput->buffer->utf16;
858 UINT cp = readerinput->buffer->code_page;
859 int len, dest_len;
860 HRESULT hr;
861 WCHAR *ptr;
862
863 /* get some raw data from stream first */
864 hr = readerinput_growraw(readerinput);
865 len = readerinput_get_convlen(readerinput);
866
867 /* just copy for UTF-16 case */
868 if (cp == ~0)
869 {
870 readerinput_grow(readerinput, len);
871 memcpy(dest->data + dest->written, src->data + src->cur, len);
872 dest->written += len*sizeof(WCHAR);
873 return hr;
874 }
875
876 dest_len = MultiByteToWideChar(cp, 0, src->data + src->cur, len, NULL, 0);
877 readerinput_grow(readerinput, dest_len);
878 ptr = (WCHAR*)(dest->data + dest->written);
879 MultiByteToWideChar(cp, 0, src->data + src->cur, len, ptr, dest_len);
880 ptr[dest_len] = 0;
881 dest->written += dest_len*sizeof(WCHAR);
882 /* get rid of processed data */
883 readerinput_shrinkraw(readerinput, len);
884
885 return hr;
886 }
887
888 static inline UINT reader_get_cur(xmlreader *reader)
889 {
890 return reader->input->buffer->utf16.cur;
891 }
892
893 static inline WCHAR *reader_get_ptr(xmlreader *reader)
894 {
895 encoded_buffer *buffer = &reader->input->buffer->utf16;
896 WCHAR *ptr = (WCHAR*)buffer->data + buffer->cur;
897 if (!*ptr) reader_more(reader);
898 return (WCHAR*)buffer->data + buffer->cur;
899 }
900
901 static int reader_cmp(xmlreader *reader, const WCHAR *str)
902 {
903 const WCHAR *ptr = reader_get_ptr(reader);
904 return strncmpW(str, ptr, strlenW(str));
905 }
906
907 /* moves cursor n WCHARs forward */
908 static void reader_skipn(xmlreader *reader, int n)
909 {
910 encoded_buffer *buffer = &reader->input->buffer->utf16;
911 const WCHAR *ptr = reader_get_ptr(reader);
912
913 while (*ptr++ && n--)
914 {
915 buffer->cur++;
916 reader->pos++;
917 }
918 }
919
920 static inline BOOL is_wchar_space(WCHAR ch)
921 {
922 return ch == ' ' || ch == '\t' || ch == '\r' || ch == '\n';
923 }
924
925 /* [3] S ::= (#x20 | #x9 | #xD | #xA)+ */
926 static int reader_skipspaces(xmlreader *reader)
927 {
928 encoded_buffer *buffer = &reader->input->buffer->utf16;
929 const WCHAR *ptr = reader_get_ptr(reader);
930 UINT start = reader_get_cur(reader);
931
932 while (is_wchar_space(*ptr))
933 {
934 if (*ptr == '\r')
935 reader->pos = 0;
936 else if (*ptr == '\n')
937 {
938 reader->line++;
939 reader->pos = 0;
940 }
941 else
942 reader->pos++;
943
944 buffer->cur++;
945 ptr = reader_get_ptr(reader);
946 }
947
948 return reader_get_cur(reader) - start;
949 }
950
951 /* [26] VersionNum ::= '1.' [0-9]+ */
952 static HRESULT reader_parse_versionnum(xmlreader *reader, strval *val)
953 {
954 static const WCHAR onedotW[] = {'1','.',0};
955 WCHAR *ptr, *ptr2;
956 UINT start;
957
958 if (reader_cmp(reader, onedotW)) return WC_E_XMLDECL;
959
960 start = reader_get_cur(reader);
961 /* skip "1." */
962 reader_skipn(reader, 2);
963
964 ptr2 = ptr = reader_get_ptr(reader);
965 while (*ptr >= '0' && *ptr <= '9')
966 {
967 reader_skipn(reader, 1);
968 ptr = reader_get_ptr(reader);
969 }
970
971 if (ptr2 == ptr) return WC_E_DIGIT;
972 reader_init_strvalue(start, reader_get_cur(reader)-start, val);
973 TRACE("version=%s\n", debug_strval(reader, val));
974 return S_OK;
975 }
976
977 /* [25] Eq ::= S? '=' S? */
978 static HRESULT reader_parse_eq(xmlreader *reader)
979 {
980 static const WCHAR eqW[] = {'=',0};
981 reader_skipspaces(reader);
982 if (reader_cmp(reader, eqW)) return WC_E_EQUAL;
983 /* skip '=' */
984 reader_skipn(reader, 1);
985 reader_skipspaces(reader);
986 return S_OK;
987 }
988
989 /* [24] VersionInfo ::= S 'version' Eq ("'" VersionNum "'" | '"' VersionNum '"') */
990 static HRESULT reader_parse_versioninfo(xmlreader *reader)
991 {
992 static const WCHAR versionW[] = {'v','e','r','s','i','o','n',0};
993 strval val, name;
994 HRESULT hr;
995
996 if (!reader_skipspaces(reader)) return WC_E_WHITESPACE;
997
998 if (reader_cmp(reader, versionW)) return WC_E_XMLDECL;
999 reader_init_strvalue(reader_get_cur(reader), 7, &name);
1000 /* skip 'version' */
1001 reader_skipn(reader, 7);
1002
1003 hr = reader_parse_eq(reader);
1004 if (FAILED(hr)) return hr;
1005
1006 if (reader_cmp(reader, quoteW) && reader_cmp(reader, dblquoteW))
1007 return WC_E_QUOTE;
1008 /* skip "'"|'"' */
1009 reader_skipn(reader, 1);
1010
1011 hr = reader_parse_versionnum(reader, &val);
1012 if (FAILED(hr)) return hr;
1013
1014 if (reader_cmp(reader, quoteW) && reader_cmp(reader, dblquoteW))
1015 return WC_E_QUOTE;
1016
1017 /* skip "'"|'"' */
1018 reader_skipn(reader, 1);
1019
1020 return reader_add_attr(reader, &name, &val);
1021 }
1022
1023 /* ([A-Za-z0-9._] | '-') */
1024 static inline BOOL is_wchar_encname(WCHAR ch)
1025 {
1026 return ((ch >= 'A' && ch <= 'Z') ||
1027 (ch >= 'a' && ch <= 'z') ||
1028 (ch >= '0' && ch <= '9') ||
1029 (ch == '.') || (ch == '_') ||
1030 (ch == '-'));
1031 }
1032
1033 /* [81] EncName ::= [A-Za-z] ([A-Za-z0-9._] | '-')* */
1034 static HRESULT reader_parse_encname(xmlreader *reader, strval *val)
1035 {
1036 WCHAR *start = reader_get_ptr(reader), *ptr;
1037 xml_encoding enc;
1038 int len;
1039
1040 if ((*start < 'A' || *start > 'Z') && (*start < 'a' || *start > 'z'))
1041 return WC_E_ENCNAME;
1042
1043 val->start = reader_get_cur(reader);
1044
1045 ptr = start;
1046 while (is_wchar_encname(*++ptr))
1047 ;
1048
1049 len = ptr - start;
1050 enc = parse_encoding_name(start, len);
1051 TRACE("encoding name %s\n", debugstr_wn(start, len));
1052 val->str = start;
1053 val->len = len;
1054
1055 if (enc == XmlEncoding_Unknown)
1056 return WC_E_ENCNAME;
1057
1058 /* skip encoding name */
1059 reader_skipn(reader, len);
1060 return S_OK;
1061 }
1062
1063 /* [80] EncodingDecl ::= S 'encoding' Eq ('"' EncName '"' | "'" EncName "'" ) */
1064 static HRESULT reader_parse_encdecl(xmlreader *reader)
1065 {
1066 static const WCHAR encodingW[] = {'e','n','c','o','d','i','n','g',0};
1067 strval name, val;
1068 HRESULT hr;
1069
1070 if (!reader_skipspaces(reader)) return S_FALSE;
1071
1072 if (reader_cmp(reader, encodingW)) return S_FALSE;
1073 name.str = reader_get_ptr(reader);
1074 name.start = reader_get_cur(reader);
1075 name.len = 8;
1076 /* skip 'encoding' */
1077 reader_skipn(reader, 8);
1078
1079 hr = reader_parse_eq(reader);
1080 if (FAILED(hr)) return hr;
1081
1082 if (reader_cmp(reader, quoteW) && reader_cmp(reader, dblquoteW))
1083 return WC_E_QUOTE;
1084 /* skip "'"|'"' */
1085 reader_skipn(reader, 1);
1086
1087 hr = reader_parse_encname(reader, &val);
1088 if (FAILED(hr)) return hr;
1089
1090 if (reader_cmp(reader, quoteW) && reader_cmp(reader, dblquoteW))
1091 return WC_E_QUOTE;
1092
1093 /* skip "'"|'"' */
1094 reader_skipn(reader, 1);
1095
1096 return reader_add_attr(reader, &name, &val);
1097 }
1098
1099 /* [32] SDDecl ::= S 'standalone' Eq (("'" ('yes' | 'no') "'") | ('"' ('yes' | 'no') '"')) */
1100 static HRESULT reader_parse_sddecl(xmlreader *reader)
1101 {
1102 static const WCHAR standaloneW[] = {'s','t','a','n','d','a','l','o','n','e',0};
1103 static const WCHAR yesW[] = {'y','e','s',0};
1104 static const WCHAR noW[] = {'n','o',0};
1105 strval name, val;
1106 UINT start;
1107 HRESULT hr;
1108
1109 if (!reader_skipspaces(reader)) return S_FALSE;
1110
1111 if (reader_cmp(reader, standaloneW)) return S_FALSE;
1112 reader_init_strvalue(reader_get_cur(reader), 10, &name);
1113 /* skip 'standalone' */
1114 reader_skipn(reader, 10);
1115
1116 hr = reader_parse_eq(reader);
1117 if (FAILED(hr)) return hr;
1118
1119 if (reader_cmp(reader, quoteW) && reader_cmp(reader, dblquoteW))
1120 return WC_E_QUOTE;
1121 /* skip "'"|'"' */
1122 reader_skipn(reader, 1);
1123
1124 if (reader_cmp(reader, yesW) && reader_cmp(reader, noW))
1125 return WC_E_XMLDECL;
1126
1127 start = reader_get_cur(reader);
1128 /* skip 'yes'|'no' */
1129 reader_skipn(reader, reader_cmp(reader, yesW) ? 2 : 3);
1130 reader_init_strvalue(start, reader_get_cur(reader)-start, &val);
1131 TRACE("standalone=%s\n", debug_strval(reader, &val));
1132
1133 if (reader_cmp(reader, quoteW) && reader_cmp(reader, dblquoteW))
1134 return WC_E_QUOTE;
1135 /* skip "'"|'"' */
1136 reader_skipn(reader, 1);
1137
1138 return reader_add_attr(reader, &name, &val);
1139 }
1140
1141 /* [23] XMLDecl ::= '<?xml' VersionInfo EncodingDecl? SDDecl? S? '?>' */
1142 static HRESULT reader_parse_xmldecl(xmlreader *reader)
1143 {
1144 static const WCHAR xmldeclW[] = {'<','?','x','m','l',' ',0};
1145 static const WCHAR declcloseW[] = {'?','>',0};
1146 HRESULT hr;
1147
1148 /* check if we have "<?xml " */
1149 if (reader_cmp(reader, xmldeclW)) return S_FALSE;
1150
1151 reader_skipn(reader, 5);
1152 hr = reader_parse_versioninfo(reader);
1153 if (FAILED(hr))
1154 return hr;
1155
1156 hr = reader_parse_encdecl(reader);
1157 if (FAILED(hr))
1158 return hr;
1159
1160 hr = reader_parse_sddecl(reader);
1161 if (FAILED(hr))
1162 return hr;
1163
1164 reader_skipspaces(reader);
1165 if (reader_cmp(reader, declcloseW)) return WC_E_XMLDECL;
1166 reader_skipn(reader, 2);
1167
1168 reader_inc_depth(reader);
1169 reader->nodetype = XmlNodeType_XmlDeclaration;
1170 reader_set_strvalue(reader, StringValue_LocalName, &strval_empty);
1171 reader_set_strvalue(reader, StringValue_QualifiedName, &strval_empty);
1172 reader_set_strvalue(reader, StringValue_Value, &strval_empty);
1173
1174 return S_OK;
1175 }
1176
1177 /* [15] Comment ::= '<!--' ((Char - '-') | ('-' (Char - '-')))* '-->' */
1178 static HRESULT reader_parse_comment(xmlreader *reader)
1179 {
1180 WCHAR *ptr;
1181 UINT start;
1182
1183 if (reader->resumestate == XmlReadResumeState_Comment)
1184 {
1185 start = reader->resume[XmlReadResume_Body];
1186 ptr = reader_get_ptr(reader);
1187 }
1188 else
1189 {
1190 /* skip '<!--' */
1191 reader_skipn(reader, 4);
1192 reader_shrink(reader);
1193 ptr = reader_get_ptr(reader);
1194 start = reader_get_cur(reader);
1195 reader->nodetype = XmlNodeType_Comment;
1196 reader->resume[XmlReadResume_Body] = start;
1197 reader->resumestate = XmlReadResumeState_Comment;
1198 reader_set_strvalue(reader, StringValue_LocalName, NULL);
1199 reader_set_strvalue(reader, StringValue_QualifiedName, NULL);
1200 reader_set_strvalue(reader, StringValue_Value, NULL);
1201 }
1202
1203 /* will exit when there's no more data, it won't attempt to
1204 read more from stream */
1205 while (*ptr)
1206 {
1207 if (ptr[0] == '-')
1208 {
1209 if (ptr[1] == '-')
1210 {
1211 if (ptr[2] == '>')
1212 {
1213 strval value;
1214
1215 reader_init_strvalue(start, reader_get_cur(reader)-start, &value);
1216 TRACE("%s\n", debug_strval(reader, &value));
1217
1218 /* skip rest of markup '->' */
1219 reader_skipn(reader, 3);
1220
1221 reader_set_strvalue(reader, StringValue_LocalName, &strval_empty);
1222 reader_set_strvalue(reader, StringValue_QualifiedName, &strval_empty);
1223 reader_set_strvalue(reader, StringValue_Value, &value);
1224 reader->resume[XmlReadResume_Body] = 0;
1225 reader->resumestate = XmlReadResumeState_Initial;
1226 return S_OK;
1227 }
1228 else
1229 return WC_E_COMMENT;
1230 }
1231 }
1232
1233 reader_skipn(reader, 1);
1234 ptr++;
1235 }
1236
1237 return S_OK;
1238 }
1239
1240 /* [2] Char ::= #x9 | #xA | #xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF] */
1241 static inline BOOL is_char(WCHAR ch)
1242 {
1243 return (ch == '\t') || (ch == '\r') || (ch == '\n') ||
1244 (ch >= 0x20 && ch <= 0xd7ff) ||
1245 (ch >= 0xd800 && ch <= 0xdbff) || /* high surrogate */
1246 (ch >= 0xdc00 && ch <= 0xdfff) || /* low surrogate */
1247 (ch >= 0xe000 && ch <= 0xfffd);
1248 }
1249
1250 /* [13] PubidChar ::= #x20 | #xD | #xA | [a-zA-Z0-9] | [-'()+,./:=?;!*#@$_%] */
1251 static inline BOOL is_pubchar(WCHAR ch)
1252 {
1253 return (ch == ' ') ||
1254 (ch >= 'a' && ch <= 'z') ||
1255 (ch >= 'A' && ch <= 'Z') ||
1256 (ch >= '0' && ch <= '9') ||
1257 (ch >= '-' && ch <= ';') || /* '()*+,-./:; */
1258 (ch == '=') || (ch == '?') ||
1259 (ch == '@') || (ch == '!') ||
1260 (ch >= '#' && ch <= '%') || /* #$% */
1261 (ch == '_') || (ch == '\r') || (ch == '\n');
1262 }
1263
1264 static inline BOOL is_namestartchar(WCHAR ch)
1265 {
1266 return (ch == ':') || (ch >= 'A' && ch <= 'Z') ||
1267 (ch == '_') || (ch >= 'a' && ch <= 'z') ||
1268 (ch >= 0xc0 && ch <= 0xd6) ||
1269 (ch >= 0xd8 && ch <= 0xf6) ||
1270 (ch >= 0xf8 && ch <= 0x2ff) ||
1271 (ch >= 0x370 && ch <= 0x37d) ||
1272 (ch >= 0x37f && ch <= 0x1fff) ||
1273 (ch >= 0x200c && ch <= 0x200d) ||
1274 (ch >= 0x2070 && ch <= 0x218f) ||
1275 (ch >= 0x2c00 && ch <= 0x2fef) ||
1276 (ch >= 0x3001 && ch <= 0xd7ff) ||
1277 (ch >= 0xd800 && ch <= 0xdbff) || /* high surrogate */
1278 (ch >= 0xdc00 && ch <= 0xdfff) || /* low surrogate */
1279 (ch >= 0xf900 && ch <= 0xfdcf) ||
1280 (ch >= 0xfdf0 && ch <= 0xfffd);
1281 }
1282
1283 /* [4 NS] NCName ::= Name - (Char* ':' Char*) */
1284 static inline BOOL is_ncnamechar(WCHAR ch)
1285 {
1286 return (ch >= 'A' && ch <= 'Z') ||
1287 (ch == '_') || (ch >= 'a' && ch <= 'z') ||
1288 (ch == '-') || (ch == '.') ||
1289 (ch >= '0' && ch <= '9') ||
1290 (ch == 0xb7) ||
1291 (ch >= 0xc0 && ch <= 0xd6) ||
1292 (ch >= 0xd8 && ch <= 0xf6) ||
1293 (ch >= 0xf8 && ch <= 0x2ff) ||
1294 (ch >= 0x300 && ch <= 0x36f) ||
1295 (ch >= 0x370 && ch <= 0x37d) ||
1296 (ch >= 0x37f && ch <= 0x1fff) ||
1297 (ch >= 0x200c && ch <= 0x200d) ||
1298 (ch >= 0x203f && ch <= 0x2040) ||
1299 (ch >= 0x2070 && ch <= 0x218f) ||
1300 (ch >= 0x2c00 && ch <= 0x2fef) ||
1301 (ch >= 0x3001 && ch <= 0xd7ff) ||
1302 (ch >= 0xd800 && ch <= 0xdbff) || /* high surrogate */
1303 (ch >= 0xdc00 && ch <= 0xdfff) || /* low surrogate */
1304 (ch >= 0xf900 && ch <= 0xfdcf) ||
1305 (ch >= 0xfdf0 && ch <= 0xfffd);
1306 }
1307
1308 static inline BOOL is_namechar(WCHAR ch)
1309 {
1310 return (ch == ':') || is_ncnamechar(ch);
1311 }
1312
1313 static XmlNodeType reader_get_nodetype(const xmlreader *reader)
1314 {
1315 /* When we're on attribute always return attribute type, container node type is kept.
1316 Note that container is not necessarily an element, and attribute doesn't mean it's
1317 an attribute in XML spec terms. */
1318 return reader->attr ? XmlNodeType_Attribute : reader->nodetype;
1319 }
1320
1321 /* [4] NameStartChar ::= ":" | [A-Z] | "_" | [a-z] | [#xC0-#xD6] | [#xD8-#xF6] | [#xF8-#x2FF] | [#x370-#x37D] |
1322 [#x37F-#x1FFF] | [#x200C-#x200D] | [#x2070-#x218F] | [#x2C00-#x2FEF] | [#x3001-#xD7FF] |
1323 [#xF900-#xFDCF] | [#xFDF0-#xFFFD] | [#x10000-#xEFFFF]
1324 [4a] NameChar ::= NameStartChar | "-" | "." | [0-9] | #xB7 | [#x0300-#x036F] | [#x203F-#x2040]
1325 [5] Name ::= NameStartChar (NameChar)* */
1326 static HRESULT reader_parse_name(xmlreader *reader, strval *name)
1327 {
1328 WCHAR *ptr;
1329 UINT start;
1330
1331 if (reader->resume[XmlReadResume_Name])
1332 {
1333 start = reader->resume[XmlReadResume_Name];
1334 ptr = reader_get_ptr(reader);
1335 }
1336 else
1337 {
1338 ptr = reader_get_ptr(reader);
1339 start = reader_get_cur(reader);
1340 if (!is_namestartchar(*ptr)) return WC_E_NAMECHARACTER;
1341 }
1342
1343 while (is_namechar(*ptr))
1344 {
1345 reader_skipn(reader, 1);
1346 ptr = reader_get_ptr(reader);
1347 }
1348
1349 if (is_reader_pending(reader))
1350 {
1351 reader->resume[XmlReadResume_Name] = start;
1352 return E_PENDING;
1353 }
1354 else
1355 reader->resume[XmlReadResume_Name] = 0;
1356
1357 reader_init_strvalue(start, reader_get_cur(reader)-start, name);
1358 TRACE("name %s:%d\n", debug_strval(reader, name), name->len);
1359
1360 return S_OK;
1361 }
1362
1363 /* [17] PITarget ::= Name - (('X' | 'x') ('M' | 'm') ('L' | 'l')) */
1364 static HRESULT reader_parse_pitarget(xmlreader *reader, strval *target)
1365 {
1366 static const WCHAR xmlW[] = {'x','m','l'};
1367 static const strval xmlval = { (WCHAR*)xmlW, 3 };
1368 strval name;
1369 WCHAR *ptr;
1370 HRESULT hr;
1371 UINT i;
1372
1373 hr = reader_parse_name(reader, &name);
1374 if (FAILED(hr)) return is_reader_pending(reader) ? E_PENDING : WC_E_PI;
1375
1376 /* now that we got name check for illegal content */
1377 if (strval_eq(reader, &name, &xmlval))
1378 return WC_E_LEADINGXML;
1379
1380 /* PITarget can't be a qualified name */
1381 ptr = reader_get_strptr(reader, &name);
1382 for (i = 0; i < name.len; i++)
1383 if (ptr[i] == ':')
1384 return i ? NC_E_NAMECOLON : WC_E_PI;
1385
1386 TRACE("pitarget %s:%d\n", debug_strval(reader, &name), name.len);
1387 *target = name;
1388 return S_OK;
1389 }
1390
1391 /* [16] PI ::= '<?' PITarget (S (Char* - (Char* '?>' Char*)))? '?>' */
1392 static HRESULT reader_parse_pi(xmlreader *reader)
1393 {
1394 strval target;
1395 WCHAR *ptr;
1396 UINT start;
1397 HRESULT hr;
1398
1399 switch (reader->resumestate)
1400 {
1401 case XmlReadResumeState_Initial:
1402 /* skip '<?' */
1403 reader_skipn(reader, 2);
1404 reader_shrink(reader);
1405 reader->resumestate = XmlReadResumeState_PITarget;
1406 case XmlReadResumeState_PITarget:
1407 hr = reader_parse_pitarget(reader, &target);
1408 if (FAILED(hr)) return hr;
1409 reader_set_strvalue(reader, StringValue_LocalName, &target);
1410 reader_set_strvalue(reader, StringValue_QualifiedName, &target);
1411 reader_set_strvalue(reader, StringValue_Value, &strval_empty);
1412 reader->resumestate = XmlReadResumeState_PIBody;
1413 reader->resume[XmlReadResume_Body] = reader_get_cur(reader);
1414 default:
1415 ;
1416 }
1417
1418 start = reader->resume[XmlReadResume_Body];
1419 ptr = reader_get_ptr(reader);
1420 while (*ptr)
1421 {
1422 if (ptr[0] == '?')
1423 {
1424 if (ptr[1] == '>')
1425 {
1426 UINT cur = reader_get_cur(reader);
1427 strval value;
1428
1429 /* strip all leading whitespace chars */
1430 while (start < cur)
1431 {
1432 ptr = reader_get_ptr2(reader, start);
1433 if (!is_wchar_space(*ptr)) break;
1434 start++;
1435 }
1436
1437 reader_init_strvalue(start, cur-start, &value);
1438
1439 /* skip '?>' */
1440 reader_skipn(reader, 2);
1441 TRACE("%s\n", debug_strval(reader, &value));
1442 reader->nodetype = XmlNodeType_ProcessingInstruction;
1443 reader->resumestate = XmlReadResumeState_Initial;
1444 reader->resume[XmlReadResume_Body] = 0;
1445 reader_set_strvalue(reader, StringValue_Value, &value);
1446 return S_OK;
1447 }
1448 }
1449
1450 reader_skipn(reader, 1);
1451 ptr = reader_get_ptr(reader);
1452 }
1453
1454 return S_OK;
1455 }
1456
1457 /* This one is used to parse significant whitespace nodes, like in Misc production */
1458 static HRESULT reader_parse_whitespace(xmlreader *reader)
1459 {
1460 switch (reader->resumestate)
1461 {
1462 case XmlReadResumeState_Initial:
1463 reader_shrink(reader);
1464 reader->resumestate = XmlReadResumeState_Whitespace;
1465 reader->resume[XmlReadResume_Body] = reader_get_cur(reader);
1466 reader->nodetype = XmlNodeType_Whitespace;
1467 reader_set_strvalue(reader, StringValue_LocalName, &strval_empty);
1468 reader_set_strvalue(reader, StringValue_QualifiedName, &strval_empty);
1469 reader_set_strvalue(reader, StringValue_Value, &strval_empty);
1470 /* fallthrough */
1471 case XmlReadResumeState_Whitespace:
1472 {
1473 strval value;
1474 UINT start;
1475
1476 reader_skipspaces(reader);
1477 if (is_reader_pending(reader)) return S_OK;
1478
1479 start = reader->resume[XmlReadResume_Body];
1480 reader_init_strvalue(start, reader_get_cur(reader)-start, &value);
1481 reader_set_strvalue(reader, StringValue_Value, &value);
1482 TRACE("%s\n", debug_strval(reader, &value));
1483 reader->resumestate = XmlReadResumeState_Initial;
1484 }
1485 default:
1486 ;
1487 }
1488
1489 return S_OK;
1490 }
1491
1492 /* [27] Misc ::= Comment | PI | S */
1493 static HRESULT reader_parse_misc(xmlreader *reader)
1494 {
1495 HRESULT hr = S_FALSE;
1496
1497 if (reader->resumestate != XmlReadResumeState_Initial)
1498 {
1499 hr = reader_more(reader);
1500 if (FAILED(hr)) return hr;
1501
1502 /* finish current node */
1503 switch (reader->resumestate)
1504 {
1505 case XmlReadResumeState_PITarget:
1506 case XmlReadResumeState_PIBody:
1507 return reader_parse_pi(reader);
1508 case XmlReadResumeState_Comment:
1509 return reader_parse_comment(reader);
1510 case XmlReadResumeState_Whitespace:
1511 return reader_parse_whitespace(reader);
1512 default:
1513 ERR("unknown resume state %d\n", reader->resumestate);
1514 }
1515 }
1516
1517 while (1)
1518 {
1519 const WCHAR *cur = reader_get_ptr(reader);
1520
1521 if (is_wchar_space(*cur))
1522 hr = reader_parse_whitespace(reader);
1523 else if (!reader_cmp(reader, commentW))
1524 hr = reader_parse_comment(reader);
1525 else if (!reader_cmp(reader, piW))
1526 hr = reader_parse_pi(reader);
1527 else
1528 break;
1529
1530 if (hr != S_FALSE) return hr;
1531 }
1532
1533 return hr;
1534 }
1535
1536 /* [11] SystemLiteral ::= ('"' [^"]* '"') | ("'" [^']* "'") */
1537 static HRESULT reader_parse_sys_literal(xmlreader *reader, strval *literal)
1538 {
1539 WCHAR *cur = reader_get_ptr(reader), quote;
1540 UINT start;
1541
1542 if (*cur != '"' && *cur != '\'') return WC_E_QUOTE;
1543
1544 quote = *cur;
1545 reader_skipn(reader, 1);
1546
1547 cur = reader_get_ptr(reader);
1548 start = reader_get_cur(reader);
1549 while (is_char(*cur) && *cur != quote)
1550 {
1551 reader_skipn(reader, 1);
1552 cur = reader_get_ptr(reader);
1553 }
1554 reader_init_strvalue(start, reader_get_cur(reader)-start, literal);
1555 if (*cur == quote) reader_skipn(reader, 1);
1556
1557 TRACE("%s\n", debug_strval(reader, literal));
1558 return S_OK;
1559 }
1560
1561 /* [12] PubidLiteral ::= '"' PubidChar* '"' | "'" (PubidChar - "'")* "'"
1562 [13] PubidChar ::= #x20 | #xD | #xA | [a-zA-Z0-9] | [-'()+,./:=?;!*#@$_%] */
1563 static HRESULT reader_parse_pub_literal(xmlreader *reader, strval *literal)
1564 {
1565 WCHAR *cur = reader_get_ptr(reader), quote;
1566 UINT start;
1567
1568 if (*cur != '"' && *cur != '\'') return WC_E_QUOTE;
1569
1570 quote = *cur;
1571 reader_skipn(reader, 1);
1572
1573 start = reader_get_cur(reader);
1574 cur = reader_get_ptr(reader);
1575 while (is_pubchar(*cur) && *cur != quote)
1576 {
1577 reader_skipn(reader, 1);
1578 cur = reader_get_ptr(reader);
1579 }
1580
1581 reader_init_strvalue(start, reader_get_cur(reader)-start, literal);
1582 TRACE("%s\n", debug_strval(reader, literal));
1583 return S_OK;
1584 }
1585
1586 /* [75] ExternalID ::= 'SYSTEM' S SystemLiteral | 'PUBLIC' S PubidLiteral S SystemLiteral */
1587 static HRESULT reader_parse_externalid(xmlreader *reader)
1588 {
1589 static WCHAR systemW[] = {'S','Y','S','T','E','M',0};
1590 static WCHAR publicW[] = {'P','U','B','L','I','C',0};
1591 strval name;
1592 HRESULT hr;
1593 int cnt;
1594
1595 if (reader_cmp(reader, systemW))
1596 {
1597 if (reader_cmp(reader, publicW))
1598 return S_FALSE;
1599 else
1600 {
1601 strval pub;
1602
1603 /* public id */
1604 reader_skipn(reader, 6);
1605 cnt = reader_skipspaces(reader);
1606 if (!cnt) return WC_E_WHITESPACE;
1607
1608 hr = reader_parse_pub_literal(reader, &pub);
1609 if (FAILED(hr)) return hr;
1610
1611 reader_init_cstrvalue(publicW, strlenW(publicW), &name);
1612 return reader_add_attr(reader, &name, &pub);
1613 }
1614 }
1615 else
1616 {
1617 strval sys;
1618
1619 /* system id */
1620 reader_skipn(reader, 6);
1621 cnt = reader_skipspaces(reader);
1622 if (!cnt) return WC_E_WHITESPACE;
1623
1624 hr = reader_parse_sys_literal(reader, &sys);
1625 if (FAILED(hr)) return hr;
1626
1627 reader_init_cstrvalue(systemW, strlenW(systemW), &name);
1628 return reader_add_attr(reader, &name, &sys);
1629 }
1630
1631 return hr;
1632 }
1633
1634 /* [28] doctypedecl ::= '<!DOCTYPE' S Name (S ExternalID)? S? ('[' intSubset ']' S?)? '>' */
1635 static HRESULT reader_parse_dtd(xmlreader *reader)
1636 {
1637 static const WCHAR doctypeW[] = {'<','!','D','O','C','T','Y','P','E',0};
1638 strval name;
1639 WCHAR *cur;
1640 HRESULT hr;
1641
1642 /* check if we have "<!DOCTYPE" */
1643 if (reader_cmp(reader, doctypeW)) return S_FALSE;
1644 reader_shrink(reader);
1645
1646 /* DTD processing is not allowed by default */
1647 if (reader->dtdmode == DtdProcessing_Prohibit) return WC_E_DTDPROHIBITED;
1648
1649 reader_skipn(reader, 9);
1650 if (!reader_skipspaces(reader)) return WC_E_WHITESPACE;
1651
1652 /* name */
1653 hr = reader_parse_name(reader, &name);
1654 if (FAILED(hr)) return WC_E_DECLDOCTYPE;
1655
1656 reader_skipspaces(reader);
1657
1658 hr = reader_parse_externalid(reader);
1659 if (FAILED(hr)) return hr;
1660
1661 reader_skipspaces(reader);
1662
1663 cur = reader_get_ptr(reader);
1664 if (*cur != '>')
1665 {
1666 FIXME("internal subset parsing not implemented\n");
1667 return E_NOTIMPL;
1668 }
1669
1670 /* skip '>' */
1671 reader_skipn(reader, 1);
1672
1673 reader->nodetype = XmlNodeType_DocumentType;
1674 reader_set_strvalue(reader, StringValue_LocalName, &name);
1675 reader_set_strvalue(reader, StringValue_QualifiedName, &name);
1676
1677 return S_OK;
1678 }
1679
1680 /* [11 NS] LocalPart ::= NCName */
1681 static HRESULT reader_parse_local(xmlreader *reader, strval *local)
1682 {
1683 WCHAR *ptr;
1684 UINT start;
1685
1686 if (reader->resume[XmlReadResume_Local])
1687 {
1688 start = reader->resume[XmlReadResume_Local];
1689 ptr = reader_get_ptr(reader);
1690 }
1691 else
1692 {
1693 ptr = reader_get_ptr(reader);
1694 start = reader_get_cur(reader);
1695 }
1696
1697 while (is_ncnamechar(*ptr))
1698 {
1699 reader_skipn(reader, 1);
1700 ptr = reader_get_ptr(reader);
1701 }
1702
1703 if (is_reader_pending(reader))
1704 {
1705 reader->resume[XmlReadResume_Local] = start;
1706 return E_PENDING;
1707 }
1708 else
1709 reader->resume[XmlReadResume_Local] = 0;
1710
1711 reader_init_strvalue(start, reader_get_cur(reader)-start, local);
1712
1713 return S_OK;
1714 }
1715
1716 /* [7 NS] QName ::= PrefixedName | UnprefixedName
1717 [8 NS] PrefixedName ::= Prefix ':' LocalPart
1718 [9 NS] UnprefixedName ::= LocalPart
1719 [10 NS] Prefix ::= NCName */
1720 static HRESULT reader_parse_qname(xmlreader *reader, strval *prefix, strval *local, strval *qname)
1721 {
1722 WCHAR *ptr;
1723 UINT start;
1724 HRESULT hr;
1725
1726 if (reader->resume[XmlReadResume_Name])
1727 {
1728 start = reader->resume[XmlReadResume_Name];
1729 ptr = reader_get_ptr(reader);
1730 }
1731 else
1732 {
1733 ptr = reader_get_ptr(reader);
1734 start = reader_get_cur(reader);
1735 reader->resume[XmlReadResume_Name] = start;
1736 if (!is_ncnamechar(*ptr)) return NC_E_QNAMECHARACTER;
1737 }
1738
1739 if (reader->resume[XmlReadResume_Local])
1740 {
1741 hr = reader_parse_local(reader, local);
1742 if (FAILED(hr)) return hr;
1743
1744 reader_init_strvalue(reader->resume[XmlReadResume_Name],
1745 local->start - reader->resume[XmlReadResume_Name] - 1,
1746 prefix);
1747 }
1748 else
1749 {
1750 /* skip prefix part */
1751 while (is_ncnamechar(*ptr))
1752 {
1753 reader_skipn(reader, 1);
1754 ptr = reader_get_ptr(reader);
1755 }
1756
1757 if (is_reader_pending(reader)) return E_PENDING;
1758
1759 /* got a qualified name */
1760 if (*ptr == ':')
1761 {
1762 reader_init_strvalue(start, reader_get_cur(reader)-start, prefix);
1763
1764 /* skip ':' */
1765 reader_skipn(reader, 1);
1766 hr = reader_parse_local(reader, local);
1767 if (FAILED(hr)) return hr;
1768 }
1769 else
1770 {
1771 reader_init_strvalue(reader->resume[XmlReadResume_Name], reader_get_cur(reader)-reader->resume[XmlReadResume_Name], local);
1772 reader_init_strvalue(0, 0, prefix);
1773 }
1774 }
1775
1776 reader_init_strvalue(start, reader_get_cur(reader)-start, local);
1777
1778 if (prefix->len)
1779 TRACE("qname %s:%s\n", debug_strval(reader, prefix), debug_strval(reader, local));
1780 else
1781 TRACE("ncname %s\n", debug_strval(reader, local));
1782
1783 reader_init_strvalue(prefix->len ? prefix->start : local->start,
1784 /* count ':' too */
1785 (prefix->len ? prefix->len + 1 : 0) + local->len,
1786 qname);
1787
1788 reader->resume[XmlReadResume_Name] = 0;
1789 reader->resume[XmlReadResume_Local] = 0;
1790
1791 return S_OK;
1792 }
1793
1794 /* Applies normalization rules to a single char, used for attribute values.
1795
1796 Rules include 2 steps:
1797
1798 1) replacing \r\n with a single \n;
1799 2) replacing all whitespace chars with ' '.
1800
1801 */
1802 static void reader_normalize_space(xmlreader *reader, WCHAR *ptr)
1803 {
1804 encoded_buffer *buffer = &reader->input->buffer->utf16;
1805
1806 if (!is_wchar_space(*ptr)) return;
1807
1808 if (*ptr == '\r' && *(ptr+1) == '\n')
1809 {
1810 int len = buffer->written - ((char*)ptr - buffer->data) - 2*sizeof(WCHAR);
1811 memmove(ptr+1, ptr+2, len);
1812 }
1813 *ptr = ' ';
1814 }
1815
1816 static WCHAR get_predefined_entity(const xmlreader *reader, const strval *name)
1817 {
1818 static const WCHAR entltW[] = {'l','t'};
1819 static const WCHAR entgtW[] = {'g','t'};
1820 static const WCHAR entampW[] = {'a','m','p'};
1821 static const WCHAR entaposW[] = {'a','p','o','s'};
1822 static const WCHAR entquotW[] = {'q','u','o','t'};
1823 static const strval lt = { (WCHAR*)entltW, 2 };
1824 static const strval gt = { (WCHAR*)entgtW, 2 };
1825 static const strval amp = { (WCHAR*)entampW, 3 };
1826 static const strval apos = { (WCHAR*)entaposW, 4 };
1827 static const strval quot = { (WCHAR*)entquotW, 4 };
1828 WCHAR *str = reader_get_strptr(reader, name);
1829
1830 switch (*str)
1831 {
1832 case 'l':
1833 if (strval_eq(reader, name, &lt)) return '<';
1834 break;
1835 case 'g':
1836 if (strval_eq(reader, name, &gt)) return '>';
1837 break;
1838 case 'a':
1839 if (strval_eq(reader, name, &amp))
1840 return '&';
1841 else if (strval_eq(reader, name, &apos))
1842 return '\'';
1843 break;
1844 case 'q':
1845 if (strval_eq(reader, name, &quot)) return '\"';
1846 break;
1847 default:
1848 ;
1849 }
1850
1851 return 0;
1852 }
1853
1854 /* [66] CharRef ::= '&#' [0-9]+ ';' | '&#x' [0-9a-fA-F]+ ';'
1855 [67] Reference ::= EntityRef | CharRef
1856 [68] EntityRef ::= '&' Name ';' */
1857 static HRESULT reader_parse_reference(xmlreader *reader)
1858 {
1859 encoded_buffer *buffer = &reader->input->buffer->utf16;
1860 WCHAR *start = reader_get_ptr(reader), *ptr;
1861 UINT cur = reader_get_cur(reader);
1862 WCHAR ch = 0;
1863 int len;
1864
1865 /* skip '&' */
1866 reader_skipn(reader, 1);
1867 ptr = reader_get_ptr(reader);
1868
1869 if (*ptr == '#')
1870 {
1871 reader_skipn(reader, 1);
1872 ptr = reader_get_ptr(reader);
1873
1874 /* hex char or decimal */
1875 if (*ptr == 'x')
1876 {
1877 reader_skipn(reader, 1);
1878 ptr = reader_get_ptr(reader);
1879
1880 while (*ptr != ';')
1881 {
1882 if ((*ptr >= '0' && *ptr <= '9'))
1883 ch = ch*16 + *ptr - '0';
1884 else if ((*ptr >= 'a' && *ptr <= 'f'))
1885 ch = ch*16 + *ptr - 'a' + 10;
1886 else if ((*ptr >= 'A' && *ptr <= 'F'))
1887 ch = ch*16 + *ptr - 'A' + 10;
1888 else
1889 return ch ? WC_E_SEMICOLON : WC_E_HEXDIGIT;
1890 reader_skipn(reader, 1);
1891 ptr = reader_get_ptr(reader);
1892 }
1893 }
1894 else
1895 {
1896 while (*ptr != ';')
1897 {
1898 if ((*ptr >= '0' && *ptr <= '9'))
1899 {
1900 ch = ch*10 + *ptr - '0';
1901 reader_skipn(reader, 1);
1902 ptr = reader_get_ptr(reader);
1903 }
1904 else
1905 return ch ? WC_E_SEMICOLON : WC_E_DIGIT;
1906 }
1907 }
1908
1909 if (!is_char(ch)) return WC_E_XMLCHARACTER;
1910
1911 /* normalize */
1912 if (is_wchar_space(ch)) ch = ' ';
1913
1914 len = buffer->written - ((char*)ptr - buffer->data) - sizeof(WCHAR);
1915 memmove(start+1, ptr+1, len);
1916 buffer->cur = cur + 1;
1917
1918 *start = ch;
1919 }
1920 else
1921 {
1922 strval name;
1923 HRESULT hr;
1924
1925 hr = reader_parse_name(reader, &name);
1926 if (FAILED(hr)) return hr;
1927
1928 ptr = reader_get_ptr(reader);
1929 if (*ptr != ';') return WC_E_SEMICOLON;
1930
1931 /* predefined entities resolve to a single character */
1932 ch = get_predefined_entity(reader, &name);
1933 if (ch)
1934 {
1935 len = buffer->written - ((char*)ptr - buffer->data) - sizeof(WCHAR);
1936 memmove(start+1, ptr+1, len);
1937 buffer->cur = cur + 1;
1938
1939 *start = ch;
1940 }
1941 else
1942 {
1943 FIXME("undeclared entity %s\n", debug_strval(reader, &name));
1944 return WC_E_UNDECLAREDENTITY;
1945 }
1946
1947 }
1948
1949 return S_OK;
1950 }
1951
1952 /* [10 NS] AttValue ::= '"' ([^<&"] | Reference)* '"' | "'" ([^<&'] | Reference)* "'" */
1953 static HRESULT reader_parse_attvalue(xmlreader *reader, strval *value)
1954 {
1955 WCHAR *ptr, quote;
1956 UINT start;
1957
1958 ptr = reader_get_ptr(reader);
1959
1960 /* skip opening quote */
1961 quote = *ptr;
1962 if (quote != '\"' && quote != '\'') return WC_E_QUOTE;
1963 reader_skipn(reader, 1);
1964
1965 ptr = reader_get_ptr(reader);
1966 start = reader_get_cur(reader);
1967 while (*ptr)
1968 {
1969 if (*ptr == '<') return WC_E_LESSTHAN;
1970
1971 if (*ptr == quote)
1972 {
1973 reader_init_strvalue(start, reader_get_cur(reader)-start, value);
1974 /* skip closing quote */
1975 reader_skipn(reader, 1);
1976 return S_OK;
1977 }
1978
1979 if (*ptr == '&')
1980 {
1981 HRESULT hr = reader_parse_reference(reader);
1982 if (FAILED(hr)) return hr;
1983 }
1984 else
1985 {
1986 reader_normalize_space(reader, ptr);
1987 reader_skipn(reader, 1);
1988 }
1989 ptr = reader_get_ptr(reader);
1990 }
1991
1992 return WC_E_QUOTE;
1993 }
1994
1995 /* [1 NS] NSAttName ::= PrefixedAttName | DefaultAttName
1996 [2 NS] PrefixedAttName ::= 'xmlns:' NCName
1997 [3 NS] DefaultAttName ::= 'xmlns'
1998 [15 NS] Attribute ::= NSAttName Eq AttValue | QName Eq AttValue */
1999 static HRESULT reader_parse_attribute(xmlreader *reader)
2000 {
2001 static const WCHAR xmlnsW[] = {'x','m','l','n','s',0};
2002 strval prefix, local, qname, xmlns, value;
2003 HRESULT hr;
2004
2005 hr = reader_parse_qname(reader, &prefix, &local, &qname);
2006 if (FAILED(hr)) return hr;
2007
2008 reader_init_cstrvalue((WCHAR*)xmlnsW, 5, &xmlns);
2009
2010 if (strval_eq(reader, &prefix, &xmlns))
2011 {
2012 FIXME("namespace definitions not supported\n");
2013 return E_NOTIMPL;
2014 }
2015
2016 if (strval_eq(reader, &qname, &xmlns))
2017 FIXME("default namespace definitions not supported\n");
2018
2019 hr = reader_parse_eq(reader);
2020 if (FAILED(hr)) return hr;
2021
2022 hr = reader_parse_attvalue(reader, &value);
2023 if (FAILED(hr)) return hr;
2024
2025 TRACE("%s=%s\n", debug_strval(reader, &local), debug_strval(reader, &value));
2026 return reader_add_attr(reader, &local, &value);
2027 }
2028
2029 /* [12 NS] STag ::= '<' QName (S Attribute)* S? '>'
2030 [14 NS] EmptyElemTag ::= '<' QName (S Attribute)* S? '/>' */
2031 static HRESULT reader_parse_stag(xmlreader *reader, strval *prefix, strval *local, strval *qname, int *empty)
2032 {
2033 HRESULT hr;
2034
2035 hr = reader_parse_qname(reader, prefix, local, qname);
2036 if (FAILED(hr)) return hr;
2037
2038 while (1)
2039 {
2040 static const WCHAR endW[] = {'/','>',0};
2041
2042 reader_skipspaces(reader);
2043
2044 /* empty element */
2045 if ((*empty = !reader_cmp(reader, endW)))
2046 {
2047 /* skip '/>' */
2048 reader_skipn(reader, 2);
2049 reader->empty_element = TRUE;
2050 return S_OK;
2051 }
2052
2053 /* got a start tag */
2054 if (!reader_cmp(reader, gtW))
2055 {
2056 /* skip '>' */
2057 reader_skipn(reader, 1);
2058 return reader_push_element(reader, qname, local);
2059 }
2060
2061 hr = reader_parse_attribute(reader);
2062 if (FAILED(hr)) return hr;
2063 }
2064
2065 return S_OK;
2066 }
2067
2068 /* [39] element ::= EmptyElemTag | STag content ETag */
2069 static HRESULT reader_parse_element(xmlreader *reader)
2070 {
2071 HRESULT hr;
2072
2073 switch (reader->resumestate)
2074 {
2075 case XmlReadResumeState_Initial:
2076 /* check if we are really on element */
2077 if (reader_cmp(reader, ltW)) return S_FALSE;
2078
2079 /* skip '<' */
2080 reader_skipn(reader, 1);
2081
2082 reader_shrink(reader);
2083 reader->resumestate = XmlReadResumeState_STag;
2084 case XmlReadResumeState_STag:
2085 {
2086 strval qname, prefix, local;
2087 int empty = 0;
2088
2089 /* this handles empty elements too */
2090 hr = reader_parse_stag(reader, &prefix, &local, &qname, &empty);
2091 if (FAILED(hr)) return hr;
2092
2093 /* FIXME: need to check for defined namespace to reject invalid prefix,
2094 currently reject all prefixes */
2095 if (prefix.len) return NC_E_UNDECLAREDPREFIX;
2096
2097 /* if we got empty element and stack is empty go straight to Misc */
2098 if (empty && list_empty(&reader->elements))
2099 reader->instate = XmlReadInState_MiscEnd;
2100 else
2101 reader->instate = XmlReadInState_Content;
2102
2103 reader->nodetype = XmlNodeType_Element;
2104 reader->resumestate = XmlReadResumeState_Initial;
2105 reader_set_strvalue(reader, StringValue_LocalName, &local);
2106 reader_set_strvalue(reader, StringValue_Prefix, &prefix);
2107 reader_set_strvalue(reader, StringValue_QualifiedName, &qname);
2108 break;
2109 }
2110 default:
2111 hr = E_FAIL;
2112 }
2113
2114 return hr;
2115 }
2116
2117 /* [13 NS] ETag ::= '</' QName S? '>' */
2118 static HRESULT reader_parse_endtag(xmlreader *reader)
2119 {
2120 strval prefix, local, qname;
2121 struct element *elem;
2122 HRESULT hr;
2123
2124 /* skip '</' */
2125 reader_skipn(reader, 2);
2126
2127 hr = reader_parse_qname(reader, &prefix, &local, &qname);
2128 if (FAILED(hr)) return hr;
2129
2130 reader_skipspaces(reader);
2131
2132 if (reader_cmp(reader, gtW)) return WC_E_GREATERTHAN;
2133
2134 /* skip '>' */
2135 reader_skipn(reader, 1);
2136
2137 /* Element stack should never be empty at this point, cause we shouldn't get to
2138 content parsing if it's empty. */
2139 elem = LIST_ENTRY(list_head(&reader->elements), struct element, entry);
2140 if (!strval_eq(reader, &elem->qname, &qname)) return WC_E_ELEMENTMATCH;
2141
2142 reader_pop_element(reader);
2143
2144 /* It was a root element, the rest is expected as Misc */
2145 if (list_empty(&reader->elements))
2146 reader->instate = XmlReadInState_MiscEnd;
2147
2148 reader->nodetype = XmlNodeType_EndElement;
2149 reader_set_strvalue(reader, StringValue_LocalName, &local);
2150 reader_set_strvalue(reader, StringValue_QualifiedName, &qname);
2151
2152 return S_OK;
2153 }
2154
2155 /* [18] CDSect ::= CDStart CData CDEnd
2156 [19] CDStart ::= '<![CDATA['
2157 [20] CData ::= (Char* - (Char* ']]>' Char*))
2158 [21] CDEnd ::= ']]>' */
2159 static HRESULT reader_parse_cdata(xmlreader *reader)
2160 {
2161 WCHAR *ptr;
2162 UINT start;
2163
2164 if (reader->resumestate == XmlReadResumeState_CDATA)
2165 {
2166 start = reader->resume[XmlReadResume_Body];
2167 ptr = reader_get_ptr(reader);
2168 }
2169 else
2170 {
2171 /* skip markup '<![CDATA[' */
2172 reader_skipn(reader, 9);
2173 reader_shrink(reader);
2174 ptr = reader_get_ptr(reader);
2175 start = reader_get_cur(reader);
2176 reader->nodetype = XmlNodeType_CDATA;
2177 reader->resume[XmlReadResume_Body] = start;
2178 reader->resumestate = XmlReadResumeState_CDATA;
2179 reader_set_strvalue(reader, StringValue_LocalName, NULL);
2180 reader_set_strvalue(reader, StringValue_QualifiedName, NULL);
2181 reader_set_strvalue(reader, StringValue_Value, NULL);
2182 }
2183
2184 while (*ptr)
2185 {
2186 if (*ptr == ']' && *(ptr+1) == ']' && *(ptr+2) == '>')
2187 {
2188 strval value;
2189
2190 reader_init_strvalue(start, reader_get_cur(reader)-start, &value);
2191
2192 /* skip ']]>' */
2193 reader_skipn(reader, 3);
2194 TRACE("%s\n", debug_strval(reader, &value));
2195
2196 reader_set_strvalue(reader, StringValue_LocalName, &strval_empty);
2197 reader_set_strvalue(reader, StringValue_QualifiedName, &strval_empty);
2198 reader_set_strvalue(reader, StringValue_Value, &value);
2199 reader->resume[XmlReadResume_Body] = 0;
2200 reader->resumestate = XmlReadResumeState_Initial;
2201 return S_OK;
2202 }
2203 else
2204 {
2205 /* Value normalization is not fully implemented, rules are:
2206
2207 - single '\r' -> '\n';
2208 - sequence '\r\n' -> '\n', in this case value length changes;
2209 */
2210 if (*ptr == '\r') *ptr = '\n';
2211 reader_skipn(reader, 1);
2212 ptr++;
2213 }
2214 }
2215
2216 return S_OK;
2217 }
2218
2219 /* [14] CharData ::= [^<&]* - ([^<&]* ']]>' [^<&]*) */
2220 static HRESULT reader_parse_chardata(xmlreader *reader)
2221 {
2222 WCHAR *ptr;
2223 UINT start;
2224
2225 if (reader->resumestate == XmlReadResumeState_CharData)
2226 {
2227 start = reader->resume[XmlReadResume_Body];
2228 ptr = reader_get_ptr(reader);
2229 }
2230 else
2231 {
2232 reader_shrink(reader);
2233 ptr = reader_get_ptr(reader);
2234 start = reader_get_cur(reader);
2235 /* There's no text */
2236 if (!*ptr || *ptr == '<') return S_OK;
2237 reader->nodetype = is_wchar_space(*ptr) ? XmlNodeType_Whitespace : XmlNodeType_Text;
2238 reader->resume[XmlReadResume_Body] = start;
2239 reader->resumestate = XmlReadResumeState_CharData;
2240 reader_set_strvalue(reader, StringValue_LocalName, &strval_empty);
2241 reader_set_strvalue(reader, StringValue_QualifiedName, &strval_empty);
2242 reader_set_strvalue(reader, StringValue_Value, NULL);
2243 }
2244
2245 while (*ptr)
2246 {
2247 /* CDATA closing sequence ']]>' is not allowed */
2248 if (ptr[0] == ']' && ptr[1] == ']' && ptr[2] == '>')
2249 return WC_E_CDSECTEND;
2250
2251 /* Found next markup part */
2252 if (ptr[0] == '<')
2253 {
2254 strval value;
2255
2256 reader_init_strvalue(start, reader_get_cur(reader)-start, &value);
2257 reader_set_strvalue(reader, StringValue_Value, &value);
2258 reader->resume[XmlReadResume_Body] = 0;
2259 reader->resumestate = XmlReadResumeState_Initial;
2260 return S_OK;
2261 }
2262
2263 reader_skipn(reader, 1);
2264
2265 /* this covers a case when text has leading whitespace chars */
2266 if (!is_wchar_space(*ptr)) reader->nodetype = XmlNodeType_Text;
2267 ptr++;
2268 }
2269
2270 return S_OK;
2271 }
2272
2273 /* [43] content ::= CharData? ((element | Reference | CDSect | PI | Comment) CharData?)* */
2274 static HRESULT reader_parse_content(xmlreader *reader)
2275 {
2276 static const WCHAR cdstartW[] = {'<','!','[','C','D','A','T','A','[',0};
2277 static const WCHAR etagW[] = {'<','/',0};
2278 static const WCHAR ampW[] = {'&',0};
2279
2280 if (reader->resumestate != XmlReadResumeState_Initial)
2281 {
2282 switch (reader->resumestate)
2283 {
2284 case XmlReadResumeState_CDATA:
2285 return reader_parse_cdata(reader);
2286 case XmlReadResumeState_Comment:
2287 return reader_parse_comment(reader);
2288 case XmlReadResumeState_PIBody:
2289 case XmlReadResumeState_PITarget:
2290 return reader_parse_pi(reader);
2291 case XmlReadResumeState_CharData:
2292 return reader_parse_chardata(reader);
2293 default:
2294 ERR("unknown resume state %d\n", reader->resumestate);
2295 }
2296 }
2297
2298 reader_shrink(reader);
2299
2300 /* handle end tag here, it indicates end of content as well */
2301 if (!reader_cmp(reader, etagW))
2302 return reader_parse_endtag(reader);
2303
2304 if (!reader_cmp(reader, commentW))
2305 return reader_parse_comment(reader);
2306
2307 if (!reader_cmp(reader, piW))
2308 return reader_parse_pi(reader);
2309
2310 if (!reader_cmp(reader, cdstartW))
2311 return reader_parse_cdata(reader);
2312
2313 if (!reader_cmp(reader, ampW))
2314 return reader_parse_reference(reader);
2315
2316 if (!reader_cmp(reader, ltW))
2317 return reader_parse_element(reader);
2318
2319 /* what's left must be CharData */
2320 return reader_parse_chardata(reader);
2321 }
2322
2323 static HRESULT reader_parse_nextnode(xmlreader *reader)
2324 {
2325 HRESULT hr;
2326
2327 if (!is_reader_pending(reader))
2328 reader_clear_attrs(reader);
2329
2330 while (1)
2331 {
2332 switch (reader->instate)
2333 {
2334 /* if it's a first call for a new input we need to detect stream encoding */
2335 case XmlReadInState_Initial:
2336 {
2337 xml_encoding enc;
2338
2339 hr = readerinput_growraw(reader->input);
2340 if (FAILED(hr)) return hr;
2341
2342 /* try to detect encoding by BOM or data and set input code page */
2343 hr = readerinput_detectencoding(reader->input, &enc);
2344 TRACE("detected encoding %s, 0x%08x\n", debugstr_w(xml_encoding_map[enc].name), hr);
2345 if (FAILED(hr)) return hr;
2346
2347 /* always switch first time cause we have to put something in */
2348 readerinput_switchencoding(reader->input, enc);
2349
2350 /* parse xml declaration */
2351 hr = reader_parse_xmldecl(reader);
2352 if (FAILED(hr)) return hr;
2353
2354 readerinput_shrinkraw(reader->input, -1);
2355 reader->instate = XmlReadInState_Misc_DTD;
2356 if (hr == S_OK) return hr;
2357 }
2358 break;
2359 case XmlReadInState_Misc_DTD:
2360 hr = reader_parse_misc(reader);
2361 if (FAILED(hr)) return hr;
2362
2363 if (hr == S_FALSE)
2364 reader->instate = XmlReadInState_DTD;
2365 else
2366 return hr;
2367 break;
2368 case XmlReadInState_DTD:
2369 hr = reader_parse_dtd(reader);
2370 if (FAILED(hr)) return hr;
2371
2372 if (hr == S_OK)
2373 {
2374 reader->instate = XmlReadInState_DTD_Misc;
2375 return hr;
2376 }
2377 else
2378 reader->instate = XmlReadInState_Element;
2379 break;
2380 case XmlReadInState_DTD_Misc:
2381 hr = reader_parse_misc(reader);
2382 if (FAILED(hr)) return hr;
2383
2384 if (hr == S_FALSE)
2385 reader->instate = XmlReadInState_Element;
2386 else
2387 return hr;
2388 break;
2389 case XmlReadInState_Element:
2390 return reader_parse_element(reader);
2391 case XmlReadInState_Content:
2392 return reader_parse_content(reader);
2393 case XmlReadInState_MiscEnd:
2394 hr = reader_parse_misc(reader);
2395 if (FAILED(hr)) return hr;
2396
2397 if (hr == S_FALSE)
2398 reader->instate = XmlReadInState_Eof;
2399 return hr;
2400 case XmlReadInState_Eof:
2401 return S_FALSE;
2402 default:
2403 FIXME("internal state %d not handled\n", reader->instate);
2404 return E_NOTIMPL;
2405 }
2406 }
2407
2408 return E_NOTIMPL;
2409 }
2410
2411 static HRESULT WINAPI xmlreader_QueryInterface(IXmlReader *iface, REFIID riid, void** ppvObject)
2412 {
2413 xmlreader *This = impl_from_IXmlReader(iface);
2414
2415 TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
2416
2417 if (IsEqualGUID(riid, &IID_IUnknown) ||
2418 IsEqualGUID(riid, &IID_IXmlReader))
2419 {
2420 *ppvObject = iface;
2421 }
2422 else
2423 {
2424 FIXME("interface %s not implemented\n", debugstr_guid(riid));
2425 *ppvObject = NULL;
2426 return E_NOINTERFACE;
2427 }
2428
2429 IXmlReader_AddRef(iface);
2430
2431 return S_OK;
2432 }
2433
2434 static ULONG WINAPI xmlreader_AddRef(IXmlReader *iface)
2435 {
2436 xmlreader *This = impl_from_IXmlReader(iface);
2437 ULONG ref = InterlockedIncrement(&This->ref);
2438 TRACE("(%p)->(%d)\n", This, ref);
2439 return ref;
2440 }
2441
2442 static ULONG WINAPI xmlreader_Release(IXmlReader *iface)
2443 {
2444 xmlreader *This = impl_from_IXmlReader(iface);
2445 LONG ref = InterlockedDecrement(&This->ref);
2446
2447 TRACE("(%p)->(%d)\n", This, ref);
2448
2449 if (ref == 0)
2450 {
2451 IMalloc *imalloc = This->imalloc;
2452 if (This->input) IUnknown_Release(&This->input->IXmlReaderInput_iface);
2453 reader_clear_attrs(This);
2454 reader_clear_elements(This);
2455 reader_free_strvalues(This);
2456 reader_free(This, This);
2457 if (imalloc) IMalloc_Release(imalloc);
2458 }
2459
2460 return ref;
2461 }
2462
2463 static HRESULT WINAPI xmlreader_SetInput(IXmlReader* iface, IUnknown *input)
2464 {
2465 xmlreader *This = impl_from_IXmlReader(iface);
2466 IXmlReaderInput *readerinput;
2467 HRESULT hr;
2468
2469 TRACE("(%p)->(%p)\n", This, input);
2470
2471 if (This->input)
2472 {
2473 readerinput_release_stream(This->input);
2474 IUnknown_Release(&This->input->IXmlReaderInput_iface);
2475 This->input = NULL;
2476 }
2477
2478 This->line = This->pos = 0;
2479 reader_clear_elements(This);
2480 This->depth = 0;
2481 This->resumestate = XmlReadResumeState_Initial;
2482 memset(This->resume, 0, sizeof(This->resume));
2483
2484 /* just reset current input */
2485 if (!input)
2486 {
2487 This->state = XmlReadState_Initial;
2488 return S_OK;
2489 }
2490
2491 /* now try IXmlReaderInput, ISequentialStream, IStream */
2492 hr = IUnknown_QueryInterface(input, &IID_IXmlReaderInput, (void**)&readerinput);
2493 if (hr == S_OK)
2494 {
2495 if (readerinput->lpVtbl == &xmlreaderinputvtbl)
2496 This->input = impl_from_IXmlReaderInput(readerinput);
2497 else
2498 {
2499 ERR("got external IXmlReaderInput implementation: %p, vtbl=%p\n",
2500 readerinput, readerinput->lpVtbl);
2501 IUnknown_Release(readerinput);
2502 return E_FAIL;
2503
2504 }
2505 }
2506
2507 if (hr != S_OK || !readerinput)
2508 {
2509 /* create IXmlReaderInput basing on supplied interface */
2510 hr = CreateXmlReaderInputWithEncodingName(input,
2511 This->imalloc, NULL, FALSE, NULL, &readerinput);
2512 if (hr != S_OK) return hr;
2513 This->input = impl_from_IXmlReaderInput(readerinput);
2514 }
2515
2516 /* set stream for supplied IXmlReaderInput */
2517 hr = readerinput_query_for_stream(This->input);
2518 if (hr == S_OK)
2519 {
2520 This->state = XmlReadState_Initial;
2521 This->instate = XmlReadInState_Initial;
2522 }
2523
2524 return hr;
2525 }
2526
2527 static HRESULT WINAPI xmlreader_GetProperty(IXmlReader* iface, UINT property, LONG_PTR *value)
2528 {
2529 xmlreader *This = impl_from_IXmlReader(iface);
2530
2531 TRACE("(%p)->(%s %p)\n", This, debugstr_reader_prop(property), value);
2532
2533 if (!value) return E_INVALIDARG;
2534
2535 switch (property)
2536 {
2537 case XmlReaderProperty_DtdProcessing:
2538 *value = This->dtdmode;
2539 break;
2540 case XmlReaderProperty_ReadState:
2541 *value = This->state;
2542 break;
2543 default:
2544 FIXME("Unimplemented property (%u)\n", property);
2545 return E_NOTIMPL;
2546 }
2547
2548 return S_OK;
2549 }
2550
2551 static HRESULT WINAPI xmlreader_SetProperty(IXmlReader* iface, UINT property, LONG_PTR value)
2552 {
2553 xmlreader *This = impl_from_IXmlReader(iface);
2554
2555 TRACE("(%p)->(%s %lu)\n", This, debugstr_reader_prop(property), value);
2556
2557 switch (property)
2558 {
2559 case XmlReaderProperty_DtdProcessing:
2560 if (value < 0 || value > _DtdProcessing_Last) return E_INVALIDARG;
2561 This->dtdmode = value;
2562 break;
2563 default:
2564 FIXME("Unimplemented property (%u)\n", property);
2565 return E_NOTIMPL;
2566 }
2567
2568 return S_OK;
2569 }
2570
2571 static HRESULT WINAPI xmlreader_Read(IXmlReader* iface, XmlNodeType *nodetype)
2572 {
2573 xmlreader *This = impl_from_IXmlReader(iface);
2574 XmlNodeType oldtype = This->nodetype;
2575 HRESULT hr;
2576
2577 TRACE("(%p)->(%p)\n", This, nodetype);
2578
2579 if (This->state == XmlReadState_Closed) return S_FALSE;
2580
2581 hr = reader_parse_nextnode(This);
2582 if (oldtype == XmlNodeType_None && This->nodetype != oldtype)
2583 This->state = XmlReadState_Interactive;
2584 if (hr == S_OK)
2585 {
2586 TRACE("node type %s\n", debugstr_nodetype(This->nodetype));
2587 *nodetype = This->nodetype;
2588 }
2589
2590 return hr;
2591 }
2592
2593 static HRESULT WINAPI xmlreader_GetNodeType(IXmlReader* iface, XmlNodeType *node_type)
2594 {
2595 xmlreader *This = impl_from_IXmlReader(iface);
2596 TRACE("(%p)->(%p)\n", This, node_type);
2597
2598 *node_type = reader_get_nodetype(This);
2599 return This->state == XmlReadState_Closed ? S_FALSE : S_OK;
2600 }
2601
2602 static HRESULT WINAPI xmlreader_MoveToFirstAttribute(IXmlReader* iface)
2603 {
2604 xmlreader *This = impl_from_IXmlReader(iface);
2605
2606 TRACE("(%p)\n", This);
2607
2608 if (!This->attr_count) return S_FALSE;
2609 This->attr = LIST_ENTRY(list_head(&This->attrs), struct attribute, entry);
2610 reader_set_strvalue(This, StringValue_LocalName, &This->attr->localname);
2611 reader_set_strvalue(This, StringValue_Value, &This->attr->value);
2612
2613 return S_OK;
2614 }
2615
2616 static HRESULT WINAPI xmlreader_MoveToNextAttribute(IXmlReader* iface)
2617 {
2618 xmlreader *This = impl_from_IXmlReader(iface);
2619 const struct list *next;
2620
2621 TRACE("(%p)\n", This);
2622
2623 if (!This->attr_count) return S_FALSE;
2624
2625 if (!This->attr)
2626 return IXmlReader_MoveToFirstAttribute(iface);
2627
2628 next = list_next(&This->attrs, &This->attr->entry);
2629 if (next)
2630 {
2631 This->attr = LIST_ENTRY(next, struct attribute, entry);
2632 reader_set_strvalue(This, StringValue_LocalName, &This->attr->localname);
2633 reader_set_strvalue(This, StringValue_Value, &This->attr->value);
2634 }
2635
2636 return next ? S_OK : S_FALSE;
2637 }
2638
2639 static HRESULT WINAPI xmlreader_MoveToAttributeByName(IXmlReader* iface,
2640 LPCWSTR local_name,
2641 LPCWSTR namespaceUri)
2642 {
2643 FIXME("(%p %p %p): stub\n", iface, local_name, namespaceUri);
2644 return E_NOTIMPL;
2645 }
2646
2647 static HRESULT WINAPI xmlreader_MoveToElement(IXmlReader* iface)
2648 {
2649 xmlreader *This = impl_from_IXmlReader(iface);
2650 struct element *elem;
2651
2652 TRACE("(%p)\n", This);
2653
2654 if (!This->attr_count) return S_FALSE;
2655 This->attr = NULL;
2656
2657 /* FIXME: support other node types with 'attributes' like DTD */
2658 elem = LIST_ENTRY(list_head(&This->elements), struct element, entry);
2659 if (elem)
2660 {
2661 reader_set_strvalue(This, StringValue_QualifiedName, &elem->qname);
2662 reader_set_strvalue(This, StringValue_LocalName, &elem->localname);
2663 }
2664
2665 return S_OK;
2666 }
2667
2668 static HRESULT WINAPI xmlreader_GetQualifiedName(IXmlReader* iface, LPCWSTR *name, UINT *len)
2669 {
2670 xmlreader *This = impl_from_IXmlReader(iface);
2671
2672 TRACE("(%p)->(%p %p)\n", This, name, len);
2673 *name = This->strvalues[StringValue_QualifiedName].str;
2674 *len = This->strvalues[StringValue_QualifiedName].len;
2675 return S_OK;
2676 }
2677
2678 static HRESULT WINAPI xmlreader_GetNamespaceUri(IXmlReader* iface,
2679 LPCWSTR *namespaceUri,
2680 UINT *namespaceUri_length)
2681 {
2682 FIXME("(%p %p %p): stub\n", iface, namespaceUri, namespaceUri_length);
2683 return E_NOTIMPL;
2684 }
2685
2686 static HRESULT WINAPI xmlreader_GetLocalName(IXmlReader* iface, LPCWSTR *name, UINT *len)
2687 {
2688 xmlreader *This = impl_from_IXmlReader(iface);
2689
2690 TRACE("(%p)->(%p %p)\n", This, name, len);
2691 *name = This->strvalues[StringValue_LocalName].str;
2692 if (len) *len = This->strvalues[StringValue_LocalName].len;
2693 return S_OK;
2694 }
2695
2696 static HRESULT WINAPI xmlreader_GetPrefix(IXmlReader* iface, LPCWSTR *prefix, UINT *len)
2697 {
2698 xmlreader *This = impl_from_IXmlReader(iface);
2699
2700 TRACE("(%p)->(%p %p)\n", This, prefix, len);
2701 *prefix = This->strvalues[StringValue_Prefix].str;
2702 if (len) *len = This->strvalues[StringValue_Prefix].len;
2703 return S_OK;
2704 }
2705
2706 static HRESULT WINAPI xmlreader_GetValue(IXmlReader* iface, const WCHAR **value, UINT *len)
2707 {
2708 xmlreader *reader = impl_from_IXmlReader(iface);
2709 strval *val = &reader->strvalues[StringValue_Value];
2710
2711 TRACE("(%p)->(%p %p)\n", reader, value, len);
2712
2713 *value = NULL;
2714
2715 if ((reader->nodetype == XmlNodeType_Comment && !val->str) || is_reader_pending(reader))
2716 {
2717 XmlNodeType type;
2718 HRESULT hr;
2719
2720 hr = IXmlReader_Read(iface, &type);
2721 if (FAILED(hr)) return hr;
2722
2723 /* return if still pending, partially read values are not reported */
2724 if (is_reader_pending(reader)) return E_PENDING;
2725 }
2726
2727 if (!val->str)
2728 {
2729 WCHAR *ptr = reader_alloc(reader, (val->len+1)*sizeof(WCHAR));
2730 if (!ptr) return E_OUTOFMEMORY;
2731 memcpy(ptr, reader_get_strptr(reader, val), val->len*sizeof(WCHAR));
2732 ptr[val->len] = 0;
2733 val->str = ptr;
2734 }
2735
2736 *value = val->str;
2737 if (len) *len = val->len;
2738 return S_OK;
2739 }
2740
2741 static HRESULT WINAPI xmlreader_ReadValueChunk(IXmlReader* iface, WCHAR *buffer, UINT chunk_size, UINT *read)
2742 {
2743 xmlreader *reader = impl_from_IXmlReader(iface);
2744 strval *val = &reader->strvalues[StringValue_Value];
2745 UINT len;
2746
2747 TRACE("(%p)->(%p %u %p)\n", reader, buffer, chunk_size, read);
2748
2749 /* Value is already allocated, chunked reads are not possible. */
2750 if (val->str) return S_FALSE;
2751
2752 if (val->len)
2753 {
2754 len = min(chunk_size, val->len);
2755 memcpy(buffer, reader_get_ptr2(reader, val->start), len);
2756 val->start += len;
2757 val->len -= len;
2758 if (read) *read = len;
2759 }
2760
2761 return S_OK;
2762 }
2763
2764 static HRESULT WINAPI xmlreader_GetBaseUri(IXmlReader* iface,
2765 LPCWSTR *baseUri,
2766 UINT *baseUri_length)
2767 {
2768 FIXME("(%p %p %p): stub\n", iface, baseUri, baseUri_length);
2769 return E_NOTIMPL;
2770 }
2771
2772 static BOOL WINAPI xmlreader_IsDefault(IXmlReader* iface)
2773 {
2774 FIXME("(%p): stub\n", iface);
2775 return FALSE;
2776 }
2777
2778 static BOOL WINAPI xmlreader_IsEmptyElement(IXmlReader* iface)
2779 {
2780 xmlreader *This = impl_from_IXmlReader(iface);
2781 TRACE("(%p)\n", This);
2782 /* Empty elements are not placed in stack, it's stored as a global reader flag that makes sense
2783 when current node is start tag of an element */
2784 return (reader_get_nodetype(This) == XmlNodeType_Element) ? This->empty_element : FALSE;
2785 }
2786
2787 static HRESULT WINAPI xmlreader_GetLineNumber(IXmlReader* iface, UINT *lineNumber)
2788 {
2789 xmlreader *This = impl_from_IXmlReader(iface);
2790
2791 TRACE("(%p %p)\n", This, lineNumber);
2792
2793 if (!lineNumber) return E_INVALIDARG;
2794
2795 *lineNumber = This->line;
2796
2797 return S_OK;
2798 }
2799
2800 static HRESULT WINAPI xmlreader_GetLinePosition(IXmlReader* iface, UINT *linePosition)
2801 {
2802 xmlreader *This = impl_from_IXmlReader(iface);
2803
2804 TRACE("(%p %p)\n", This, linePosition);
2805
2806 if (!linePosition) return E_INVALIDARG;
2807
2808 *linePosition = This->pos;
2809
2810 return S_OK;
2811 }
2812
2813 static HRESULT WINAPI xmlreader_GetAttributeCount(IXmlReader* iface, UINT *count)
2814 {
2815 xmlreader *This = impl_from_IXmlReader(iface);
2816
2817 TRACE("(%p)->(%p)\n", This, count);
2818
2819 if (!count) return E_INVALIDARG;
2820
2821 *count = This->attr_count;
2822 return S_OK;
2823 }
2824
2825 static HRESULT WINAPI xmlreader_GetDepth(IXmlReader* iface, UINT *depth)
2826 {
2827 xmlreader *This = impl_from_IXmlReader(iface);
2828 TRACE("(%p)->(%p)\n", This, depth);
2829 *depth = This->depth;
2830 return S_OK;
2831 }
2832
2833 static BOOL WINAPI xmlreader_IsEOF(IXmlReader* iface)
2834 {
2835 FIXME("(%p): stub\n", iface);
2836 return E_NOTIMPL;
2837 }
2838
2839 static const struct IXmlReaderVtbl xmlreader_vtbl =
2840 {
2841 xmlreader_QueryInterface,
2842 xmlreader_AddRef,
2843 xmlreader_Release,
2844 xmlreader_SetInput,
2845 xmlreader_GetProperty,
2846 xmlreader_SetProperty,
2847 xmlreader_Read,
2848 xmlreader_GetNodeType,
2849 xmlreader_MoveToFirstAttribute,
2850 xmlreader_MoveToNextAttribute,
2851 xmlreader_MoveToAttributeByName,
2852 xmlreader_MoveToElement,
2853 xmlreader_GetQualifiedName,
2854 xmlreader_GetNamespaceUri,
2855 xmlreader_GetLocalName,
2856 xmlreader_GetPrefix,
2857 xmlreader_GetValue,
2858 xmlreader_ReadValueChunk,
2859 xmlreader_GetBaseUri,
2860 xmlreader_IsDefault,
2861 xmlreader_IsEmptyElement,
2862 xmlreader_GetLineNumber,
2863 xmlreader_GetLinePosition,
2864 xmlreader_GetAttributeCount,
2865 xmlreader_GetDepth,
2866 xmlreader_IsEOF
2867 };
2868
2869 /** IXmlReaderInput **/
2870 static HRESULT WINAPI xmlreaderinput_QueryInterface(IXmlReaderInput *iface, REFIID riid, void** ppvObject)
2871 {
2872 xmlreaderinput *This = impl_from_IXmlReaderInput(iface);
2873
2874 TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObject);
2875
2876 if (IsEqualGUID(riid, &IID_IXmlReaderInput) ||
2877 IsEqualGUID(riid, &IID_IUnknown))
2878 {
2879 *ppvObject = iface;
2880 }
2881 else
2882 {
2883 WARN("interface %s not implemented\n", debugstr_guid(riid));
2884 *ppvObject = NULL;
2885 return E_NOINTERFACE;
2886 }
2887
2888 IUnknown_AddRef(iface);
2889
2890 return S_OK;
2891 }
2892
2893 static ULONG WINAPI xmlreaderinput_AddRef(IXmlReaderInput *iface)
2894 {
2895 xmlreaderinput *This = impl_from_IXmlReaderInput(iface);
2896 ULONG ref = InterlockedIncrement(&This->ref);
2897 TRACE("(%p)->(%d)\n", This, ref);
2898 return ref;
2899 }
2900
2901 static ULONG WINAPI xmlreaderinput_Release(IXmlReaderInput *iface)
2902 {
2903 xmlreaderinput *This = impl_from_IXmlReaderInput(iface);
2904 LONG ref = InterlockedDecrement(&This->ref);
2905
2906 TRACE("(%p)->(%d)\n", This, ref);
2907
2908 if (ref == 0)
2909 {
2910 IMalloc *imalloc = This->imalloc;
2911 if (This->input) IUnknown_Release(This->input);
2912 if (This->stream) ISequentialStream_Release(This->stream);
2913 if (This->buffer) free_input_buffer(This->buffer);
2914 readerinput_free(This, This->baseuri);
2915 readerinput_free(This, This);
2916 if (imalloc) IMalloc_Release(imalloc);
2917 }
2918
2919 return ref;
2920 }
2921
2922 static const struct IUnknownVtbl xmlreaderinputvtbl =
2923 {
2924 xmlreaderinput_QueryInterface,
2925 xmlreaderinput_AddRef,
2926 xmlreaderinput_Release
2927 };
2928
2929 HRESULT WINAPI CreateXmlReader(REFIID riid, void **obj, IMalloc *imalloc)
2930 {
2931 xmlreader *reader;
2932 int i;
2933
2934 TRACE("(%s, %p, %p)\n", wine_dbgstr_guid(riid), obj, imalloc);
2935
2936 if (!IsEqualGUID(riid, &IID_IXmlReader))
2937 {
2938 ERR("Unexpected IID requested -> (%s)\n", wine_dbgstr_guid(riid));
2939 return E_FAIL;
2940 }
2941
2942 if (imalloc)
2943 reader = IMalloc_Alloc(imalloc, sizeof(*reader));
2944 else
2945 reader = heap_alloc(sizeof(*reader));
2946 if(!reader) return E_OUTOFMEMORY;
2947
2948 reader->IXmlReader_iface.lpVtbl = &xmlreader_vtbl;
2949 reader->ref = 1;
2950 reader->input = NULL;
2951 reader->state = XmlReadState_Closed;
2952 reader->instate = XmlReadInState_Initial;
2953 reader->resumestate = XmlReadResumeState_Initial;
2954 reader->dtdmode = DtdProcessing_Prohibit;
2955 reader->line = reader->pos = 0;
2956 reader->imalloc = imalloc;
2957 if (imalloc) IMalloc_AddRef(imalloc);
2958 reader->nodetype = XmlNodeType_None;
2959 list_init(&reader->attrs);
2960 reader->attr_count = 0;
2961 reader->attr = NULL;
2962 list_init(&reader->elements);
2963 reader->depth = 0;
2964 reader->max_depth = 256;
2965 reader->empty_element = FALSE;
2966 memset(reader->resume, 0, sizeof(reader->resume));
2967
2968 for (i = 0; i < StringValue_Last; i++)
2969 reader->strvalues[i] = strval_empty;
2970
2971 *obj = &reader->IXmlReader_iface;
2972
2973 TRACE("returning iface %p\n", *obj);
2974
2975 return S_OK;
2976 }
2977
2978 HRESULT WINAPI CreateXmlReaderInputWithEncodingName(IUnknown *stream,
2979 IMalloc *imalloc,
2980 LPCWSTR encoding,
2981 BOOL hint,
2982 LPCWSTR base_uri,
2983 IXmlReaderInput **ppInput)
2984 {
2985 xmlreaderinput *readerinput;
2986 HRESULT hr;
2987
2988 TRACE("%p %p %s %d %s %p\n", stream, imalloc, wine_dbgstr_w(encoding),
2989 hint, wine_dbgstr_w(base_uri), ppInput);
2990
2991 if (!stream || !ppInput) return E_INVALIDARG;
2992
2993 if (imalloc)
2994 readerinput = IMalloc_Alloc(imalloc, sizeof(*readerinput));
2995 else
2996 readerinput = heap_alloc(sizeof(*readerinput));
2997 if(!readerinput) return E_OUTOFMEMORY;
2998
2999 readerinput->IXmlReaderInput_iface.lpVtbl = &xmlreaderinputvtbl;
3000 readerinput->ref = 1;
3001 readerinput->imalloc = imalloc;
3002 readerinput->stream = NULL;
3003 if (imalloc) IMalloc_AddRef(imalloc);
3004 readerinput->encoding = parse_encoding_name(encoding, -1);
3005 readerinput->hint = hint;
3006 readerinput->baseuri = readerinput_strdupW(readerinput, base_uri);
3007 readerinput->pending = 0;
3008
3009 hr = alloc_input_buffer(readerinput);
3010 if (hr != S_OK)
3011 {
3012 readerinput_free(readerinput, readerinput->baseuri);
3013 readerinput_free(readerinput, readerinput);
3014 if (imalloc) IMalloc_Release(imalloc);
3015 return hr;
3016 }
3017 IUnknown_QueryInterface(stream, &IID_IUnknown, (void**)&readerinput->input);
3018
3019 *ppInput = &readerinput->IXmlReaderInput_iface;
3020
3021 TRACE("returning iface %p\n", *ppInput);
3022
3023 return S_OK;
3024 }
Windows API implementation