| Geant4 Cross Reference |
1 /* 90815a2b2c80c03b2b889fe1d427bb2b9e3282aa065 1
2 __ __
3 ___\ \/ /_ __ __ _|
4 / _ \\ /| '_ \ / _` |
5 | __// \| |_) | (_| |
6 \___/_/\_\ .__/ \__,_|
7 |_| XML parse
8
9 Copyright (c) 1997-2000 Thai Open Source So
10 Copyright (c) 2000 Clark Cooper <coope
11 Copyright (c) 2000-2006 Fred L. Drake, Jr.
12 Copyright (c) 2001-2002 Greg Stein <gstein@
13 Copyright (c) 2002-2016 Karl Waclawek <karl
14 Copyright (c) 2005-2009 Steven Solie <steve
15 Copyright (c) 2016 Eric Rahm <erahm@mo
16 Copyright (c) 2016-2022 Sebastian Pipping <
17 Copyright (c) 2016 Gaurav <g.gupta@sam
18 Copyright (c) 2016 Thomas Beutlich <tc
19 Copyright (c) 2016 Gustavo Grieco <gus
20 Copyright (c) 2016 Pascal Cuoq <cuoq@t
21 Copyright (c) 2016 Ed Schouten <ed@nux
22 Copyright (c) 2017-2022 Rhodri James <rhodr
23 Copyright (c) 2017 Václav Slavík <va
24 Copyright (c) 2017 Viktor Szakats <com
25 Copyright (c) 2017 Chanho Park <chanho
26 Copyright (c) 2017 Rolf Eike Beer <eik
27 Copyright (c) 2017 Hans Wennborg <hans
28 Copyright (c) 2018 Anton Maklakov <ant
29 Copyright (c) 2018 Benjamin Peterson <
30 Copyright (c) 2018 Marco Maggi <marco.
31 Copyright (c) 2018 Mariusz Zaborski <o
32 Copyright (c) 2019 David Loffredo <lof
33 Copyright (c) 2019-2020 Ben Wagner <bungema
34 Copyright (c) 2019 Vadim Zeitlin <vadi
35 Copyright (c) 2021 Dong-hee Na <donghe
36 Copyright (c) 2022 Samanta Navarro <fe
37 Copyright (c) 2022 Jeffrey Walton <nol
38 Licensed under the MIT license:
39
40 Permission is hereby granted, free of cha
41 a copy of this software and associat
42 "Software"), to deal in the Software w
43 without limitation the rights to use, c
44 distribute, sublicense, and/or sell copies
45 persons to whom the Software is furnish
46 following conditions:
47
48 The above copyright notice and this permis
49 in all copies or substantial portions of th
50
51 THE SOFTWARE IS PROVIDED "AS IS", WIT
52 EXPRESS OR IMPLIED, INCLUDING BUT NOT L
53 MERCHANTABILITY, FITNESS FOR A PARTICULAR P
54 NO EVENT SHALL THE AUTHORS OR COPYRIGHT HO
55 DAMAGES OR OTHER LIABILITY, WHETHER IN AN
56 OTHERWISE, ARISING FROM, OUT OF OR IN CONNE
57 USE OR OTHER DEALINGS IN THE SOFTWARE.
58 */
59
60 #define XML_BUILDING_EXPAT 1
61
62 #include <expat_config.h>
63
64 #if ! defined(_GNU_SOURCE)
65 # define _GNU_SOURCE 1 /* syscall prototype *
66 #endif
67
68 #ifdef _WIN32
69 /* force stdlib to define rand_s() */
70 # if ! defined(_CRT_RAND_S)
71 # define _CRT_RAND_S
72 # endif
73 #endif
74
75 #include <stddef.h>
76 #include <string.h> /* memset(), memcpy() */
77 #include <assert.h>
78 #include <limits.h> /* UINT_MAX */
79 #include <stdio.h> /* fprintf */
80 #include <stdlib.h> /* getenv, rand_s */
81 #include <stdint.h> /* uintptr_t */
82 #include <math.h> /* isnan */
83
84 #ifdef _WIN32
85 # define getpid GetCurrentProcessId
86 #else
87 # include <sys/time.h> /* gettimeofday() */
88 # include <sys/types.h> /* getpid() */
89 # include <unistd.h> /* getpid() */
90 # include <fcntl.h> /* O_RDONLY */
91 # include <errno.h>
92 #endif
93
94 #ifdef _WIN32
95 # include "winconfig.h"
96 #endif
97
98 #include "ascii.h"
99 #include "expat.h"
100 #include "siphash.h"
101
102 #if defined(HAVE_GETRANDOM) || defined(HAVE_SY
103 # if defined(HAVE_GETRANDOM)
104 # include <sys/random.h> /* getrandom */
105 # else
106 # include <unistd.h> /* syscall */
107 # include <sys/syscall.h> /* SYS_getrandom
108 # endif
109 # if ! defined(GRND_NONBLOCK)
110 # define GRND_NONBLOCK 0x0001
111 # endif /* defined(GRND_NONBLOCK) */
112 #endif /* defined(HAVE_GETRANDOM) || defined
113
114 #if defined(HAVE_LIBBSD)
115 && (defined(HAVE_ARC4RANDOM_BUF) || define
116 # include <bsd/stdlib.h>
117 #endif
118
119 #if defined(_WIN32) && ! defined(LOAD_LIBRARY_
120 # define LOAD_LIBRARY_SEARCH_SYSTEM32 0x00000
121 #endif
122
123 #if ! defined(HAVE_GETRANDOM) && ! defined(HAV
124 && ! defined(HAVE_ARC4RANDOM_BUF) && ! def
125 && ! defined(XML_DEV_URANDOM) && ! defined
126 && ! defined(XML_POOR_ENTROPY)
127 # error You do not have support for any sourc
128 enabled. For end user security, that is p
129 \
130 Your options include: \
131 * Linux >=3.17 + glibc >=2.25 (getrandom
132 * Linux >=3.17 + glibc (including <2.25)
133 * BSD / macOS >=10.7 (arc4random_buf): H
134 * BSD / macOS (including <10.7) (arc4ran
135 * libbsd (arc4random_buf): HAVE_ARC4RAND
136 * libbsd (arc4random): HAVE_ARC4RANDOM +
137 * Linux (including <3.17) / BSD / macOS
138 * Windows >=Vista (rand_s): _WIN32. \
139 \
140 If insist on not using any of these, bypas
141 XML_POOR_ENTROPY; you have been warned. \
142 \
143 If you have reasons to patch this detectio
144 to the build system, please open a bug. T
145 #endif
146
147 #ifdef XML_UNICODE
148 # define XML_ENCODE_MAX XML_UTF16_ENCODE_MAX
149 # define XmlConvert XmlUtf16Convert
150 # define XmlGetInternalEncoding XmlGetUtf16In
151 # define XmlGetInternalEncodingNS XmlGetUtf16
152 # define XmlEncode XmlUtf16Encode
153 # define MUST_CONVERT(enc, s) (! (enc)->isUtf
154 typedef unsigned short ICHAR;
155 #else
156 # define XML_ENCODE_MAX XML_UTF8_ENCODE_MAX
157 # define XmlConvert XmlUtf8Convert
158 # define XmlGetInternalEncoding XmlGetUtf8Int
159 # define XmlGetInternalEncodingNS XmlGetUtf8I
160 # define XmlEncode XmlUtf8Encode
161 # define MUST_CONVERT(enc, s) (! (enc)->isUtf
162 typedef char ICHAR;
163 #endif
164
165 #ifndef XML_NS
166
167 # define XmlInitEncodingNS XmlInitEncoding
168 # define XmlInitUnknownEncodingNS XmlInitUnkn
169 # undef XmlGetInternalEncodingNS
170 # define XmlGetInternalEncodingNS XmlGetInter
171 # define XmlParseXmlDeclNS XmlParseXmlDecl
172
173 #endif
174
175 #ifdef XML_UNICODE
176
177 # ifdef XML_UNICODE_WCHAR_T
178 # define XML_T(x) (const wchar_t) x
179 # define XML_L(x) L##x
180 # else
181 # define XML_T(x) (const unsigned short)x
182 # define XML_L(x) x
183 # endif
184
185 #else
186
187 # define XML_T(x) x
188 # define XML_L(x) x
189
190 #endif
191
192 /* Round up n to be a multiple of sz, where sz
193 #define ROUND_UP(n, sz) (((n) + ((sz)-1)) & ~(
194
195 /* Do safe (NULL-aware) pointer arithmetic */
196 #define EXPAT_SAFE_PTR_DIFF(p, q) (((p) && (q)
197
198 #include "internal.h"
199 #include "xmltok.h"
200 #include "xmlrole.h"
201
202 typedef const XML_Char *KEY;
203
204 typedef struct {
205 KEY name;
206 } NAMED;
207
208 typedef struct {
209 NAMED **v;
210 unsigned char power;
211 size_t size;
212 size_t used;
213 const XML_Memory_Handling_Suite *mem;
214 } HASH_TABLE;
215
216 static size_t keylen(KEY s);
217
218 static void copy_salt_to_sipkey(XML_Parser par
219
220 /* For probing (after a collision) we need a s
221 to the hash table size, which is a power of
222 since we can calculate a second hash value
223 of the first hash value that were discarded
224 index was calculated: index = hash & mask,
225 We limit the maximum step size to table->si
226 it odd, since odd numbers are always relati
227 */
228 #define SECOND_HASH(hash, mask, power)
229 ((((hash) & ~(mask)) >> ((power)-1)) & ((mas
230 #define PROBE_STEP(hash, mask, power)
231 ((unsigned char)((SECOND_HASH(hash, mask, po
232
233 typedef struct {
234 NAMED **p;
235 NAMED **end;
236 } HASH_TABLE_ITER;
237
238 #define INIT_TAG_BUF_SIZE 32 /* must be a mult
239 #define INIT_DATA_BUF_SIZE 1024
240 #define INIT_ATTS_SIZE 16
241 #define INIT_ATTS_VERSION 0xFFFFFFFF
242 #define INIT_BLOCK_SIZE 1024
243 #define INIT_BUFFER_SIZE 1024
244
245 #define EXPAND_SPARE 24
246
247 typedef struct binding {
248 struct prefix *prefix;
249 struct binding *nextTagBinding;
250 struct binding *prevPrefixBinding;
251 const struct attribute_id *attId;
252 XML_Char *uri;
253 int uriLen;
254 int uriAlloc;
255 } BINDING;
256
257 typedef struct prefix {
258 const XML_Char *name;
259 BINDING *binding;
260 } PREFIX;
261
262 typedef struct {
263 const XML_Char *str;
264 const XML_Char *localPart;
265 const XML_Char *prefix;
266 int strLen;
267 int uriLen;
268 int prefixLen;
269 } TAG_NAME;
270
271 /* TAG represents an open element.
272 The name of the element is stored in both t
273 encodings. The memory buffer 'buf' is a se
274 memory area which stores the name. During
275 XMLParseBuffer() when the element is open,
276 version of the name (in the document encodi
277 document buffer. If the element is open ac
278 XML_Parse()/XML_ParseBuffer(), the buffer i
279 contain the 'raw' name as well.
280
281 A parser re-uses these structures, maintain
282 TAG objects in a free list.
283 */
284 typedef struct tag {
285 struct tag *parent; /* parent of this eleme
286 const char *rawName; /* tagName in the origi
287 int rawNameLength;
288 TAG_NAME name; /* tagName in the API encodin
289 char *buf; /* buffer for name components
290 char *bufEnd; /* end of the buffer */
291 BINDING *bindings;
292 } TAG;
293
294 typedef struct {
295 const XML_Char *name;
296 const XML_Char *textPtr;
297 int textLen; /* length in XML_Chars */
298 int processed; /* # of processed bytes - whe
299 const XML_Char *systemId;
300 const XML_Char *base;
301 const XML_Char *publicId;
302 const XML_Char *notation;
303 XML_Bool open;
304 XML_Bool is_param;
305 XML_Bool is_internal; /* true if declared in
306 } ENTITY;
307
308 typedef struct {
309 enum XML_Content_Type type;
310 enum XML_Content_Quant quant;
311 const XML_Char *name;
312 int firstchild;
313 int lastchild;
314 int childcnt;
315 int nextsib;
316 } CONTENT_SCAFFOLD;
317
318 #define INIT_SCAFFOLD_ELEMENTS 32
319
320 typedef struct block {
321 struct block *next;
322 int size;
323 XML_Char s[1];
324 } BLOCK;
325
326 typedef struct {
327 BLOCK *blocks;
328 BLOCK *freeBlocks;
329 const XML_Char *end;
330 XML_Char *ptr;
331 XML_Char *start;
332 const XML_Memory_Handling_Suite *mem;
333 } STRING_POOL;
334
335 /* The XML_Char before the name is used to det
336 an attribute has been specified. */
337 typedef struct attribute_id {
338 XML_Char *name;
339 PREFIX *prefix;
340 XML_Bool maybeTokenized;
341 XML_Bool xmlns;
342 } ATTRIBUTE_ID;
343
344 typedef struct {
345 const ATTRIBUTE_ID *id;
346 XML_Bool isCdata;
347 const XML_Char *value;
348 } DEFAULT_ATTRIBUTE;
349
350 typedef struct {
351 unsigned long version;
352 unsigned long hash;
353 const XML_Char *uriName;
354 } NS_ATT;
355
356 typedef struct {
357 const XML_Char *name;
358 PREFIX *prefix;
359 const ATTRIBUTE_ID *idAtt;
360 int nDefaultAtts;
361 int allocDefaultAtts;
362 DEFAULT_ATTRIBUTE *defaultAtts;
363 } ELEMENT_TYPE;
364
365 typedef struct {
366 HASH_TABLE generalEntities;
367 HASH_TABLE elementTypes;
368 HASH_TABLE attributeIds;
369 HASH_TABLE prefixes;
370 STRING_POOL pool;
371 STRING_POOL entityValuePool;
372 /* false once a parameter entity reference h
373 XML_Bool keepProcessing;
374 /* true once an internal or external PE refe
375 this includes the reference to an externa
376 XML_Bool hasParamEntityRefs;
377 XML_Bool standalone;
378 #ifdef XML_DTD
379 /* indicates if external PE has been read */
380 XML_Bool paramEntityRead;
381 HASH_TABLE paramEntities;
382 #endif /* XML_DTD */
383 PREFIX defaultPrefix;
384 /* === scaffolding for building content mode
385 XML_Bool in_eldecl;
386 CONTENT_SCAFFOLD *scaffold;
387 unsigned contentStringLen;
388 unsigned scaffSize;
389 unsigned scaffCount;
390 int scaffLevel;
391 int *scaffIndex;
392 } DTD;
393
394 typedef struct open_internal_entity {
395 const char *internalEventPtr;
396 const char *internalEventEndPtr;
397 struct open_internal_entity *next;
398 ENTITY *entity;
399 int startTagLevel;
400 XML_Bool betweenDecl; /* WFC: PE Between Dec
401 } OPEN_INTERNAL_ENTITY;
402
403 enum XML_Account {
404 XML_ACCOUNT_DIRECT, /* bytes direc
405 XML_ACCOUNT_ENTITY_EXPANSION, /* intermediat
406 expansion *
407 XML_ACCOUNT_NONE /* i.e. do not
408 };
409
410 #ifdef XML_DTD
411 typedef unsigned long long XmlBigCount;
412 typedef struct accounting {
413 XmlBigCount countBytesDirect;
414 XmlBigCount countBytesIndirect;
415 int debugLevel;
416 float maximumAmplificationFactor; // >=1.0
417 unsigned long long activationThresholdBytes;
418 } ACCOUNTING;
419
420 typedef struct entity_stats {
421 unsigned int countEverOpened;
422 unsigned int currentDepth;
423 unsigned int maximumDepthSeen;
424 int debugLevel;
425 } ENTITY_STATS;
426 #endif /* XML_DTD */
427
428 typedef enum XML_Error PTRCALL Processor(XML_P
429 const
430
431 static Processor prologProcessor;
432 static Processor prologInitProcessor;
433 static Processor contentProcessor;
434 static Processor cdataSectionProcessor;
435 #ifdef XML_DTD
436 static Processor ignoreSectionProcessor;
437 static Processor externalParEntProcessor;
438 static Processor externalParEntInitProcessor;
439 static Processor entityValueProcessor;
440 static Processor entityValueInitProcessor;
441 #endif /* XML_DTD */
442 static Processor epilogProcessor;
443 static Processor errorProcessor;
444 static Processor externalEntityInitProcessor;
445 static Processor externalEntityInitProcessor2;
446 static Processor externalEntityInitProcessor3;
447 static Processor externalEntityContentProcesso
448 static Processor internalEntityProcessor;
449
450 static enum XML_Error handleUnknownEncoding(XM
451 co
452 static enum XML_Error processXmlDecl(XML_Parse
453 const cha
454 static enum XML_Error initializeEncoding(XML_P
455 static enum XML_Error doProlog(XML_Parser pars
456 const char *s,
457 const char *nex
458 XML_Bool haveMo
459 enum XML_Accoun
460 static enum XML_Error processInternalEntity(XM
461 XM
462 static enum XML_Error doContent(XML_Parser par
463 const ENCODING
464 const char *en
465 XML_Bool haveM
466 static enum XML_Error doCdataSection(XML_Parse
467 const cha
468 const cha
469 enum XML_
470 #ifdef XML_DTD
471 static enum XML_Error doIgnoreSection(XML_Pars
472 const ch
473 const ch
474 #endif /* XML_DTD */
475
476 static void freeBindings(XML_Parser parser, BI
477 static enum XML_Error storeAtts(XML_Parser par
478 const char *s,
479 BINDING **bind
480 enum XML_Accou
481 static enum XML_Error addBinding(XML_Parser pa
482 const ATTRIBU
483 BINDING **bin
484 static int defineAttribute(ELEMENT_TYPE *type,
485 XML_Bool isId, cons
486 XML_Parser parser);
487 static enum XML_Error storeAttributeValue(XML_
488 XML_
489 cons
490 enum
491 static enum XML_Error appendAttributeValue(XML
492 XML
493 con
494 enu
495 static ATTRIBUTE_ID *getAttributeId(XML_Parser
496 const char
497 static int setElementTypePrefix(XML_Parser par
498 static enum XML_Error storeEntityValue(XML_Par
499 const c
500 enum XM
501 static int reportProcessingInstruction(XML_Par
502 const c
503 static int reportComment(XML_Parser parser, co
504 const char *start, co
505 static void reportDefault(XML_Parser parser, c
506 const char *start, c
507
508 static const XML_Char *getContext(XML_Parser p
509 static XML_Bool setContext(XML_Parser parser,
510
511 static void FASTCALL normalizePublicId(XML_Cha
512
513 static DTD *dtdCreate(const XML_Memory_Handlin
514 /* do not call if m_parentParser != NULL */
515 static void dtdReset(DTD *p, const XML_Memory_
516 static void dtdDestroy(DTD *p, XML_Bool isDocE
517 const XML_Memory_Handli
518 static int dtdCopy(XML_Parser oldParser, DTD *
519 const XML_Memory_Handling_S
520 static int copyEntityTable(XML_Parser oldParse
521 const HASH_TABLE *)
522 static NAMED *lookup(XML_Parser parser, HASH_T
523 size_t createSize);
524 static void FASTCALL hashTableInit(HASH_TABLE
525 const XML_M
526 static void FASTCALL hashTableClear(HASH_TABLE
527 static void FASTCALL hashTableDestroy(HASH_TAB
528 static void FASTCALL hashTableIterInit(HASH_TA
529 static NAMED *FASTCALL hashTableIterNext(HASH_
530
531 static void FASTCALL poolInit(STRING_POOL *,
532 const XML_Memory
533 static void FASTCALL poolClear(STRING_POOL *);
534 static void FASTCALL poolDestroy(STRING_POOL *
535 static XML_Char *poolAppend(STRING_POOL *pool,
536 const char *ptr, c
537 static XML_Char *poolStoreString(STRING_POOL *
538 const char *p
539 static XML_Bool FASTCALL poolGrow(STRING_POOL
540 static const XML_Char *FASTCALL poolCopyString
541
542 static const XML_Char *poolCopyStringN(STRING_
543 int n);
544 static const XML_Char *FASTCALL poolAppendStri
545
546
547 static int FASTCALL nextScaffoldPart(XML_Parse
548 static XML_Content *build_model(XML_Parser par
549 static ELEMENT_TYPE *getElementType(XML_Parser
550 const char
551
552 static XML_Char *copyString(const XML_Char *s,
553 const XML_Memory_H
554
555 static unsigned long generate_hash_secret_salt
556 static XML_Bool startParsing(XML_Parser parser
557
558 static XML_Parser parserCreate(const XML_Char
559 const XML_Memor
560 const XML_Char
561
562 static void parserInit(XML_Parser parser, cons
563
564 #ifdef XML_DTD
565 static float accountingGetCurrentAmplification
566 static void accountingReportStats(XML_Parser o
567 static void accountingOnAbort(XML_Parser origi
568 static void accountingReportDiff(XML_Parser ro
569 unsigned int
570 const char *b
571 ptrdiff_t byt
572 enum XML_Acco
573 static XML_Bool accountingDiffTolerated(XML_Pa
574 const
575 int so
576 enum X
577
578 static void entityTrackingReportStats(XML_Pars
579 const ch
580 static void entityTrackingOnOpen(XML_Parser pa
581 int sourceLin
582 static void entityTrackingOnClose(XML_Parser p
583 int sourceLi
584
585 static XML_Parser getRootParserOf(XML_Parser p
586 unsigned int
587 #endif /* XML_DTD */
588
589 static unsigned long getDebugLevel(const char
590 unsigned lo
591
592 #define poolStart(pool) ((pool)->start)
593 #define poolEnd(pool) ((pool)->ptr)
594 #define poolLength(pool) ((pool)->ptr - (pool)
595 #define poolChop(pool) ((void)--(pool->ptr))
596 #define poolLastChar(pool) (((pool)->ptr)[-1])
597 #define poolDiscard(pool) ((pool)->ptr = (pool
598 #define poolFinish(pool) ((pool)->start = (poo
599 #define poolAppendChar(pool, c)
600 (((pool)->ptr == (pool)->end && ! poolGrow(p
601 ? 0
602 : ((*((pool)->ptr)++ = c), 1))
603
604 struct XML_ParserStruct {
605 /* The first member must be m_userData so th
606 macro works. */
607 void *m_userData;
608 void *m_handlerArg;
609 char *m_buffer;
610 const XML_Memory_Handling_Suite m_mem;
611 /* first character to be parsed */
612 const char *m_bufferPtr;
613 /* past last character to be parsed */
614 char *m_bufferEnd;
615 /* allocated end of m_buffer */
616 const char *m_bufferLim;
617 XML_Index m_parseEndByteIndex;
618 const char *m_parseEndPtr;
619 XML_Char *m_dataBuf;
620 XML_Char *m_dataBufEnd;
621 XML_StartElementHandler m_startElementHandle
622 XML_EndElementHandler m_endElementHandler;
623 XML_CharacterDataHandler m_characterDataHand
624 XML_ProcessingInstructionHandler m_processin
625 XML_CommentHandler m_commentHandler;
626 XML_StartCdataSectionHandler m_startCdataSec
627 XML_EndCdataSectionHandler m_endCdataSection
628 XML_DefaultHandler m_defaultHandler;
629 XML_StartDoctypeDeclHandler m_startDoctypeDe
630 XML_EndDoctypeDeclHandler m_endDoctypeDeclHa
631 XML_UnparsedEntityDeclHandler m_unparsedEnti
632 XML_NotationDeclHandler m_notationDeclHandle
633 XML_StartNamespaceDeclHandler m_startNamespa
634 XML_EndNamespaceDeclHandler m_endNamespaceDe
635 XML_NotStandaloneHandler m_notStandaloneHand
636 XML_ExternalEntityRefHandler m_externalEntit
637 XML_Parser m_externalEntityRefHandlerArg;
638 XML_SkippedEntityHandler m_skippedEntityHand
639 XML_UnknownEncodingHandler m_unknownEncoding
640 XML_ElementDeclHandler m_elementDeclHandler;
641 XML_AttlistDeclHandler m_attlistDeclHandler;
642 XML_EntityDeclHandler m_entityDeclHandler;
643 XML_XmlDeclHandler m_xmlDeclHandler;
644 const ENCODING *m_encoding;
645 INIT_ENCODING m_initEncoding;
646 const ENCODING *m_internalEncoding;
647 const XML_Char *m_protocolEncodingName;
648 XML_Bool m_ns;
649 XML_Bool m_ns_triplets;
650 void *m_unknownEncodingMem;
651 void *m_unknownEncodingData;
652 void *m_unknownEncodingHandlerData;
653 void(XMLCALL *m_unknownEncodingRelease)(void
654 PROLOG_STATE m_prologState;
655 Processor *m_processor;
656 enum XML_Error m_errorCode;
657 const char *m_eventPtr;
658 const char *m_eventEndPtr;
659 const char *m_positionPtr;
660 OPEN_INTERNAL_ENTITY *m_openInternalEntities
661 OPEN_INTERNAL_ENTITY *m_freeInternalEntities
662 XML_Bool m_defaultExpandInternalEntities;
663 int m_tagLevel;
664 ENTITY *m_declEntity;
665 const XML_Char *m_doctypeName;
666 const XML_Char *m_doctypeSysid;
667 const XML_Char *m_doctypePubid;
668 const XML_Char *m_declAttributeType;
669 const XML_Char *m_declNotationName;
670 const XML_Char *m_declNotationPublicId;
671 ELEMENT_TYPE *m_declElementType;
672 ATTRIBUTE_ID *m_declAttributeId;
673 XML_Bool m_declAttributeIsCdata;
674 XML_Bool m_declAttributeIsId;
675 DTD *m_dtd;
676 const XML_Char *m_curBase;
677 TAG *m_tagStack;
678 TAG *m_freeTagList;
679 BINDING *m_inheritedBindings;
680 BINDING *m_freeBindingList;
681 int m_attsSize;
682 int m_nSpecifiedAtts;
683 int m_idAttIndex;
684 ATTRIBUTE *m_atts;
685 NS_ATT *m_nsAtts;
686 unsigned long m_nsAttsVersion;
687 unsigned char m_nsAttsPower;
688 #ifdef XML_ATTR_INFO
689 XML_AttrInfo *m_attInfo;
690 #endif
691 POSITION m_position;
692 STRING_POOL m_tempPool;
693 STRING_POOL m_temp2Pool;
694 char *m_groupConnector;
695 unsigned int m_groupSize;
696 XML_Char m_namespaceSeparator;
697 XML_Parser m_parentParser;
698 XML_ParsingStatus m_parsingStatus;
699 #ifdef XML_DTD
700 XML_Bool m_isParamEntity;
701 XML_Bool m_useForeignDTD;
702 enum XML_ParamEntityParsing m_paramEntityPar
703 #endif
704 unsigned long m_hash_secret_salt;
705 #ifdef XML_DTD
706 ACCOUNTING m_accounting;
707 ENTITY_STATS m_entity_stats;
708 #endif
709 };
710
711 #define MALLOC(parser, s) (parser->m_mem.mallo
712 #define REALLOC(parser, p, s) (parser->m_mem.r
713 #define FREE(parser, p) (parser->m_mem.free_fc
714
715 XML_Parser XMLCALL
716 XML_ParserCreate(const XML_Char *encodingName)
717 return XML_ParserCreate_MM(encodingName, NUL
718 }
719
720 XML_Parser XMLCALL
721 XML_ParserCreateNS(const XML_Char *encodingNam
722 XML_Char tmp[2] = {nsSep, 0};
723 return XML_ParserCreate_MM(encodingName, NUL
724 }
725
726 // "xml=http://www.w3.org/XML/1998/namespace"
727 static const XML_Char implicitContext[]
728 = {ASCII_x, ASCII_m, ASCII_l,
729 ASCII_t, ASCII_t, ASCII_p,
730 ASCII_SLASH, ASCII_w, ASCII_w,
731 ASCII_w, ASCII_3, ASCII_PERIOD,
732 ASCII_g, ASCII_SLASH, ASCII_X,
733 ASCII_SLASH, ASCII_1, ASCII_9,
734 ASCII_SLASH, ASCII_n, ASCII_a,
735 ASCII_s, ASCII_p, ASCII_a,
736 '\0'};
737
738 /* To avoid warnings about unused functions: *
739 #if ! defined(HAVE_ARC4RANDOM_BUF) && ! define
740
741 # if defined(HAVE_GETRANDOM) || defined(HAVE_
742
743 /* Obtain entropy on Linux 3.17+ */
744 static int
745 writeRandomBytes_getrandom_nonblock(void *targ
746 int success = 0; /* full count bytes written
747 size_t bytesWrittenTotal = 0;
748 const unsigned int getrandomFlags = GRND_NON
749
750 do {
751 void *const currentTarget = (void *)((char
752 const size_t bytesToWrite = count - bytesW
753
754 const int bytesWrittenMore =
755 # if defined(HAVE_GETRANDOM)
756 getrandom(currentTarget, bytesToWrite,
757 # else
758 syscall(SYS_getrandom, currentTarget,
759 # endif
760
761 if (bytesWrittenMore > 0) {
762 bytesWrittenTotal += bytesWrittenMore;
763 if (bytesWrittenTotal >= count)
764 success = 1;
765 }
766 } while (! success && (errno == EINTR));
767
768 return success;
769 }
770
771 # endif /* defined(HAVE_GETRANDOM) || defined
772
773 # if ! defined(_WIN32) && defined(XML_DEV_URA
774
775 /* Extract entropy from /dev/urandom */
776 static int
777 writeRandomBytes_dev_urandom(void *target, siz
778 int success = 0; /* full count bytes written
779 size_t bytesWrittenTotal = 0;
780
781 const int fd = open("/dev/urandom", O_RDONLY
782 if (fd < 0) {
783 return 0;
784 }
785
786 do {
787 void *const currentTarget = (void *)((char
788 const size_t bytesToWrite = count - bytesW
789
790 const ssize_t bytesWrittenMore = read(fd,
791
792 if (bytesWrittenMore > 0) {
793 bytesWrittenTotal += bytesWrittenMore;
794 if (bytesWrittenTotal >= count)
795 success = 1;
796 }
797 } while (! success && (errno == EINTR));
798
799 close(fd);
800 return success;
801 }
802
803 # endif /* ! defined(_WIN32) && defined(XML_D
804
805 #endif /* ! defined(HAVE_ARC4RANDOM_BUF) && !
806
807 #if defined(HAVE_ARC4RANDOM) && ! defined(HAVE
808
809 static void
810 writeRandomBytes_arc4random(void *target, size
811 size_t bytesWrittenTotal = 0;
812
813 while (bytesWrittenTotal < count) {
814 const uint32_t random32 = arc4random();
815 size_t i = 0;
816
817 for (; (i < sizeof(random32)) && (bytesWri
818 i++, bytesWrittenTotal++) {
819 const uint8_t random8 = (uint8_t)(random
820 ((uint8_t *)target)[bytesWrittenTotal] =
821 }
822 }
823 }
824
825 #endif /* defined(HAVE_ARC4RANDOM) && ! define
826
827 #ifdef _WIN32
828
829 /* Provide declaration of rand_s() for MinGW-3
830 as it didn't declare it in its header prior
831 runtime package (mingwrt, containing stdlib
832 was introduced at https://osdn.net/projects
833 # if defined(__MINGW32__) && defined(__MINGW3
834 && __MINGW32_VERSION < 5003000L && ! def
835 __declspec(dllimport) int rand_s(unsigned int
836 # endif
837
838 /* Obtain entropy on Windows using the rand_s(
839 * generates cryptographically secure random n
840 * uses RtlGenRandom API which is present in W
841 */
842 static int
843 writeRandomBytes_rand_s(void *target, size_t c
844 size_t bytesWrittenTotal = 0;
845
846 while (bytesWrittenTotal < count) {
847 unsigned int random32 = 0;
848 size_t i = 0;
849
850 if (rand_s(&random32))
851 return 0; /* failure */
852
853 for (; (i < sizeof(random32)) && (bytesWri
854 i++, bytesWrittenTotal++) {
855 const uint8_t random8 = (uint8_t)(random
856 ((uint8_t *)target)[bytesWrittenTotal] =
857 }
858 }
859 return 1; /* success */
860 }
861
862 #endif /* _WIN32 */
863
864 #if ! defined(HAVE_ARC4RANDOM_BUF) && ! define
865
866 static unsigned long
867 gather_time_entropy(void) {
868 # ifdef _WIN32
869 FILETIME ft;
870 GetSystemTimeAsFileTime(&ft); /* never fails
871 return ft.dwHighDateTime ^ ft.dwLowDateTime;
872 # else
873 struct timeval tv;
874 int gettimeofday_res;
875
876 gettimeofday_res = gettimeofday(&tv, NULL);
877
878 # if defined(NDEBUG)
879 (void)gettimeofday_res;
880 # else
881 assert(gettimeofday_res == 0);
882 # endif /* defined(NDEBUG) */
883
884 /* Microseconds time is <20 bits entropy */
885 return tv.tv_usec;
886 # endif
887 }
888
889 #endif /* ! defined(HAVE_ARC4RANDOM_BUF) && !
890
891 static unsigned long
892 ENTROPY_DEBUG(const char *label, unsigned long
893 if (getDebugLevel("EXPAT_ENTROPY_DEBUG", 0)
894 fprintf(stderr, "expat: Entropy: %s --> 0x
895 (int)sizeof(entropy) * 2, entropy,
896 }
897 return entropy;
898 }
899
900 static unsigned long
901 generate_hash_secret_salt(XML_Parser parser) {
902 unsigned long entropy;
903 (void)parser;
904
905 /* "Failproof" high quality providers: */
906 #if defined(HAVE_ARC4RANDOM_BUF)
907 arc4random_buf(&entropy, sizeof(entropy));
908 return ENTROPY_DEBUG("arc4random_buf", entro
909 #elif defined(HAVE_ARC4RANDOM)
910 writeRandomBytes_arc4random((void *)&entropy
911 return ENTROPY_DEBUG("arc4random", entropy);
912 #else
913 /* Try high quality providers first .. */
914 # ifdef _WIN32
915 if (writeRandomBytes_rand_s((void *)&entropy
916 return ENTROPY_DEBUG("rand_s", entropy);
917 }
918 # elif defined(HAVE_GETRANDOM) || defined(HAV
919 if (writeRandomBytes_getrandom_nonblock((voi
920 return ENTROPY_DEBUG("getrandom", entropy)
921 }
922 # endif
923 # if ! defined(_WIN32) && defined(XML_DEV_URA
924 if (writeRandomBytes_dev_urandom((void *)&en
925 return ENTROPY_DEBUG("/dev/urandom", entro
926 }
927 # endif /* ! defined(_WIN32) && defined(XML_D
928 /* .. and self-made low quality for backup:
929
930 /* Process ID is 0 bits entropy if attacker
931 entropy = gather_time_entropy() ^ getpid();
932
933 /* Factors are 2^31-1 and 2^61-1 (Mersenne p
934 if (sizeof(unsigned long) == 4) {
935 return ENTROPY_DEBUG("fallback(4)", entrop
936 } else {
937 return ENTROPY_DEBUG("fallback(8)",
938 entropy * (unsigned l
939 }
940 #endif
941 }
942
943 static unsigned long
944 get_hash_secret_salt(XML_Parser parser) {
945 if (parser->m_parentParser != NULL)
946 return get_hash_secret_salt(parser->m_pare
947 return parser->m_hash_secret_salt;
948 }
949
950 static XML_Bool /* only valid for root parser
951 startParsing(XML_Parser parser) {
952 /* hash functions must be initialized before
953 if (parser->m_hash_secret_salt == 0)
954 parser->m_hash_secret_salt = generate_hash
955 if (parser->m_ns) {
956 /* implicit context only set for root pars
957 parsers (i.e. external entity parsers)
958 */
959 return setContext(parser, implicitContext)
960 }
961 return XML_TRUE;
962 }
963
964 XML_Parser XMLCALL
965 XML_ParserCreate_MM(const XML_Char *encodingNa
966 const XML_Memory_Handling_
967 const XML_Char *nameSep) {
968 return parserCreate(encodingName, memsuite,
969 }
970
971 static XML_Parser
972 parserCreate(const XML_Char *encodingName,
973 const XML_Memory_Handling_Suite *
974 DTD *dtd) {
975 XML_Parser parser;
976
977 if (memsuite) {
978 XML_Memory_Handling_Suite *mtemp;
979 parser = memsuite->malloc_fcn(sizeof(struc
980 if (parser != NULL) {
981 mtemp = (XML_Memory_Handling_Suite *)&(p
982 mtemp->malloc_fcn = memsuite->malloc_fcn
983 mtemp->realloc_fcn = memsuite->realloc_f
984 mtemp->free_fcn = memsuite->free_fcn;
985 }
986 } else {
987 XML_Memory_Handling_Suite *mtemp;
988 parser = (XML_Parser)malloc(sizeof(struct
989 if (parser != NULL) {
990 mtemp = (XML_Memory_Handling_Suite *)&(p
991 mtemp->malloc_fcn = malloc;
992 mtemp->realloc_fcn = realloc;
993 mtemp->free_fcn = free;
994 }
995 }
996
997 if (! parser)
998 return parser;
999
1000 parser->m_buffer = NULL;
1001 parser->m_bufferLim = NULL;
1002
1003 parser->m_attsSize = INIT_ATTS_SIZE;
1004 parser->m_atts
1005 = (ATTRIBUTE *)MALLOC(parser, parser->m
1006 if (parser->m_atts == NULL) {
1007 FREE(parser, parser);
1008 return NULL;
1009 }
1010 #ifdef XML_ATTR_INFO
1011 parser->m_attInfo = (XML_AttrInfo *)MALLOC(
1012 parser, parser->m_attsSize * sizeof(XML
1013 if (parser->m_attInfo == NULL) {
1014 FREE(parser, parser->m_atts);
1015 FREE(parser, parser);
1016 return NULL;
1017 }
1018 #endif
1019 parser->m_dataBuf
1020 = (XML_Char *)MALLOC(parser, INIT_DATA_
1021 if (parser->m_dataBuf == NULL) {
1022 FREE(parser, parser->m_atts);
1023 #ifdef XML_ATTR_INFO
1024 FREE(parser, parser->m_attInfo);
1025 #endif
1026 FREE(parser, parser);
1027 return NULL;
1028 }
1029 parser->m_dataBufEnd = parser->m_dataBuf +
1030
1031 if (dtd)
1032 parser->m_dtd = dtd;
1033 else {
1034 parser->m_dtd = dtdCreate(&parser->m_mem)
1035 if (parser->m_dtd == NULL) {
1036 FREE(parser, parser->m_dataBuf);
1037 FREE(parser, parser->m_atts);
1038 #ifdef XML_ATTR_INFO
1039 FREE(parser, parser->m_attInfo);
1040 #endif
1041 FREE(parser, parser);
1042 return NULL;
1043 }
1044 }
1045
1046 parser->m_freeBindingList = NULL;
1047 parser->m_freeTagList = NULL;
1048 parser->m_freeInternalEntities = NULL;
1049
1050 parser->m_groupSize = 0;
1051 parser->m_groupConnector = NULL;
1052
1053 parser->m_unknownEncodingHandler = NULL;
1054 parser->m_unknownEncodingHandlerData = NULL
1055
1056 parser->m_namespaceSeparator = ASCII_EXCL;
1057 parser->m_ns = XML_FALSE;
1058 parser->m_ns_triplets = XML_FALSE;
1059
1060 parser->m_nsAtts = NULL;
1061 parser->m_nsAttsVersion = 0;
1062 parser->m_nsAttsPower = 0;
1063
1064 parser->m_protocolEncodingName = NULL;
1065
1066 poolInit(&parser->m_tempPool, &(parser->m_m
1067 poolInit(&parser->m_temp2Pool, &(parser->m_
1068 parserInit(parser, encodingName);
1069
1070 if (encodingName && ! parser->m_protocolEnc
1071 XML_ParserFree(parser);
1072 return NULL;
1073 }
1074
1075 if (nameSep) {
1076 parser->m_ns = XML_TRUE;
1077 parser->m_internalEncoding = XmlGetIntern
1078 parser->m_namespaceSeparator = *nameSep;
1079 } else {
1080 parser->m_internalEncoding = XmlGetIntern
1081 }
1082
1083 return parser;
1084 }
1085
1086 static void
1087 parserInit(XML_Parser parser, const XML_Char
1088 parser->m_processor = prologInitProcessor;
1089 XmlPrologStateInit(&parser->m_prologState);
1090 if (encodingName != NULL) {
1091 parser->m_protocolEncodingName = copyStri
1092 }
1093 parser->m_curBase = NULL;
1094 XmlInitEncoding(&parser->m_initEncoding, &p
1095 parser->m_userData = NULL;
1096 parser->m_handlerArg = NULL;
1097 parser->m_startElementHandler = NULL;
1098 parser->m_endElementHandler = NULL;
1099 parser->m_characterDataHandler = NULL;
1100 parser->m_processingInstructionHandler = NU
1101 parser->m_commentHandler = NULL;
1102 parser->m_startCdataSectionHandler = NULL;
1103 parser->m_endCdataSectionHandler = NULL;
1104 parser->m_defaultHandler = NULL;
1105 parser->m_startDoctypeDeclHandler = NULL;
1106 parser->m_endDoctypeDeclHandler = NULL;
1107 parser->m_unparsedEntityDeclHandler = NULL;
1108 parser->m_notationDeclHandler = NULL;
1109 parser->m_startNamespaceDeclHandler = NULL;
1110 parser->m_endNamespaceDeclHandler = NULL;
1111 parser->m_notStandaloneHandler = NULL;
1112 parser->m_externalEntityRefHandler = NULL;
1113 parser->m_externalEntityRefHandlerArg = par
1114 parser->m_skippedEntityHandler = NULL;
1115 parser->m_elementDeclHandler = NULL;
1116 parser->m_attlistDeclHandler = NULL;
1117 parser->m_entityDeclHandler = NULL;
1118 parser->m_xmlDeclHandler = NULL;
1119 parser->m_bufferPtr = parser->m_buffer;
1120 parser->m_bufferEnd = parser->m_buffer;
1121 parser->m_parseEndByteIndex = 0;
1122 parser->m_parseEndPtr = NULL;
1123 parser->m_declElementType = NULL;
1124 parser->m_declAttributeId = NULL;
1125 parser->m_declEntity = NULL;
1126 parser->m_doctypeName = NULL;
1127 parser->m_doctypeSysid = NULL;
1128 parser->m_doctypePubid = NULL;
1129 parser->m_declAttributeType = NULL;
1130 parser->m_declNotationName = NULL;
1131 parser->m_declNotationPublicId = NULL;
1132 parser->m_declAttributeIsCdata = XML_FALSE;
1133 parser->m_declAttributeIsId = XML_FALSE;
1134 memset(&parser->m_position, 0, sizeof(POSIT
1135 parser->m_errorCode = XML_ERROR_NONE;
1136 parser->m_eventPtr = NULL;
1137 parser->m_eventEndPtr = NULL;
1138 parser->m_positionPtr = NULL;
1139 parser->m_openInternalEntities = NULL;
1140 parser->m_defaultExpandInternalEntities = X
1141 parser->m_tagLevel = 0;
1142 parser->m_tagStack = NULL;
1143 parser->m_inheritedBindings = NULL;
1144 parser->m_nSpecifiedAtts = 0;
1145 parser->m_unknownEncodingMem = NULL;
1146 parser->m_unknownEncodingRelease = NULL;
1147 parser->m_unknownEncodingData = NULL;
1148 parser->m_parentParser = NULL;
1149 parser->m_parsingStatus.parsing = XML_INITI
1150 #ifdef XML_DTD
1151 parser->m_isParamEntity = XML_FALSE;
1152 parser->m_useForeignDTD = XML_FALSE;
1153 parser->m_paramEntityParsing = XML_PARAM_EN
1154 #endif
1155 parser->m_hash_secret_salt = 0;
1156
1157 #ifdef XML_DTD
1158 memset(&parser->m_accounting, 0, sizeof(ACC
1159 parser->m_accounting.debugLevel = getDebugL
1160 parser->m_accounting.maximumAmplificationFa
1161 = EXPAT_BILLION_LAUGHS_ATTACK_PROTECTIO
1162 parser->m_accounting.activationThresholdByt
1163 = EXPAT_BILLION_LAUGHS_ATTACK_PROTECTIO
1164
1165 memset(&parser->m_entity_stats, 0, sizeof(E
1166 parser->m_entity_stats.debugLevel = getDebu
1167 #endif
1168 }
1169
1170 /* moves list of bindings to m_freeBindingLis
1171 static void FASTCALL
1172 moveToFreeBindingList(XML_Parser parser, BIND
1173 while (bindings) {
1174 BINDING *b = bindings;
1175 bindings = bindings->nextTagBinding;
1176 b->nextTagBinding = parser->m_freeBinding
1177 parser->m_freeBindingList = b;
1178 }
1179 }
1180
1181 XML_Bool XMLCALL
1182 XML_ParserReset(XML_Parser parser, const XML_
1183 TAG *tStk;
1184 OPEN_INTERNAL_ENTITY *openEntityList;
1185
1186 if (parser == NULL)
1187 return XML_FALSE;
1188
1189 if (parser->m_parentParser)
1190 return XML_FALSE;
1191 /* move m_tagStack to m_freeTagList */
1192 tStk = parser->m_tagStack;
1193 while (tStk) {
1194 TAG *tag = tStk;
1195 tStk = tStk->parent;
1196 tag->parent = parser->m_freeTagList;
1197 moveToFreeBindingList(parser, tag->bindin
1198 tag->bindings = NULL;
1199 parser->m_freeTagList = tag;
1200 }
1201 /* move m_openInternalEntities to m_freeInt
1202 openEntityList = parser->m_openInternalEnti
1203 while (openEntityList) {
1204 OPEN_INTERNAL_ENTITY *openEntity = openEn
1205 openEntityList = openEntity->next;
1206 openEntity->next = parser->m_freeInternal
1207 parser->m_freeInternalEntities = openEnti
1208 }
1209 moveToFreeBindingList(parser, parser->m_inh
1210 FREE(parser, parser->m_unknownEncodingMem);
1211 if (parser->m_unknownEncodingRelease)
1212 parser->m_unknownEncodingRelease(parser->
1213 poolClear(&parser->m_tempPool);
1214 poolClear(&parser->m_temp2Pool);
1215 FREE(parser, (void *)parser->m_protocolEnco
1216 parser->m_protocolEncodingName = NULL;
1217 parserInit(parser, encodingName);
1218 dtdReset(parser->m_dtd, &parser->m_mem);
1219 return XML_TRUE;
1220 }
1221
1222 enum XML_Status XMLCALL
1223 XML_SetEncoding(XML_Parser parser, const XML_
1224 if (parser == NULL)
1225 return XML_STATUS_ERROR;
1226 /* Block after XML_Parse()/XML_ParseBuffer(
1227 XXX There's no way for the caller to det
1228 XXX possible error cases caused the XML_
1229 */
1230 if (parser->m_parsingStatus.parsing == XML_
1231 || parser->m_parsingStatus.parsing == X
1232 return XML_STATUS_ERROR;
1233
1234 /* Get rid of any previous encoding name */
1235 FREE(parser, (void *)parser->m_protocolEnco
1236
1237 if (encodingName == NULL)
1238 /* No new encoding name */
1239 parser->m_protocolEncodingName = NULL;
1240 else {
1241 /* Copy the new encoding name into alloca
1242 parser->m_protocolEncodingName = copyStri
1243 if (! parser->m_protocolEncodingName)
1244 return XML_STATUS_ERROR;
1245 }
1246 return XML_STATUS_OK;
1247 }
1248
1249 XML_Parser XMLCALL
1250 XML_ExternalEntityParserCreate(XML_Parser old
1251 const XML_Char
1252 XML_Parser parser = oldParser;
1253 DTD *newDtd = NULL;
1254 DTD *oldDtd;
1255 XML_StartElementHandler oldStartElementHand
1256 XML_EndElementHandler oldEndElementHandler;
1257 XML_CharacterDataHandler oldCharacterDataHa
1258 XML_ProcessingInstructionHandler oldProcess
1259 XML_CommentHandler oldCommentHandler;
1260 XML_StartCdataSectionHandler oldStartCdataS
1261 XML_EndCdataSectionHandler oldEndCdataSecti
1262 XML_DefaultHandler oldDefaultHandler;
1263 XML_UnparsedEntityDeclHandler oldUnparsedEn
1264 XML_NotationDeclHandler oldNotationDeclHand
1265 XML_StartNamespaceDeclHandler oldStartNames
1266 XML_EndNamespaceDeclHandler oldEndNamespace
1267 XML_NotStandaloneHandler oldNotStandaloneHa
1268 XML_ExternalEntityRefHandler oldExternalEnt
1269 XML_SkippedEntityHandler oldSkippedEntityHa
1270 XML_UnknownEncodingHandler oldUnknownEncodi
1271 XML_ElementDeclHandler oldElementDeclHandle
1272 XML_AttlistDeclHandler oldAttlistDeclHandle
1273 XML_EntityDeclHandler oldEntityDeclHandler;
1274 XML_XmlDeclHandler oldXmlDeclHandler;
1275 ELEMENT_TYPE *oldDeclElementType;
1276
1277 void *oldUserData;
1278 void *oldHandlerArg;
1279 XML_Bool oldDefaultExpandInternalEntities;
1280 XML_Parser oldExternalEntityRefHandlerArg;
1281 #ifdef XML_DTD
1282 enum XML_ParamEntityParsing oldParamEntityP
1283 int oldInEntityValue;
1284 #endif
1285 XML_Bool oldns_triplets;
1286 /* Note that the new parser shares the same
1287 parser, so that dtdCopy and copyEntityTa
1288 from hash tables associated with either
1289 to worry which hash secrets each table h
1290 */
1291 unsigned long oldhash_secret_salt;
1292
1293 /* Validate the oldParser parameter before
1294 if (oldParser == NULL)
1295 return NULL;
1296
1297 /* Stash the original parser contents on th
1298 oldDtd = parser->m_dtd;
1299 oldStartElementHandler = parser->m_startEle
1300 oldEndElementHandler = parser->m_endElement
1301 oldCharacterDataHandler = parser->m_charact
1302 oldProcessingInstructionHandler = parser->m
1303 oldCommentHandler = parser->m_commentHandle
1304 oldStartCdataSectionHandler = parser->m_sta
1305 oldEndCdataSectionHandler = parser->m_endCd
1306 oldDefaultHandler = parser->m_defaultHandle
1307 oldUnparsedEntityDeclHandler = parser->m_un
1308 oldNotationDeclHandler = parser->m_notation
1309 oldStartNamespaceDeclHandler = parser->m_st
1310 oldEndNamespaceDeclHandler = parser->m_endN
1311 oldNotStandaloneHandler = parser->m_notStan
1312 oldExternalEntityRefHandler = parser->m_ext
1313 oldSkippedEntityHandler = parser->m_skipped
1314 oldUnknownEncodingHandler = parser->m_unkno
1315 oldElementDeclHandler = parser->m_elementDe
1316 oldAttlistDeclHandler = parser->m_attlistDe
1317 oldEntityDeclHandler = parser->m_entityDecl
1318 oldXmlDeclHandler = parser->m_xmlDeclHandle
1319 oldDeclElementType = parser->m_declElementT
1320
1321 oldUserData = parser->m_userData;
1322 oldHandlerArg = parser->m_handlerArg;
1323 oldDefaultExpandInternalEntities = parser->
1324 oldExternalEntityRefHandlerArg = parser->m_
1325 #ifdef XML_DTD
1326 oldParamEntityParsing = parser->m_paramEnti
1327 oldInEntityValue = parser->m_prologState.in
1328 #endif
1329 oldns_triplets = parser->m_ns_triplets;
1330 /* Note that the new parser shares the same
1331 parser, so that dtdCopy and copyEntityTa
1332 from hash tables associated with either
1333 to worry which hash secrets each table h
1334 */
1335 oldhash_secret_salt = parser->m_hash_secret
1336
1337 #ifdef XML_DTD
1338 if (! context)
1339 newDtd = oldDtd;
1340 #endif /* XML_DTD */
1341
1342 /* Note that the magical uses of the pre-pr
1343 access look more like C++ require that `
1344 here. This makes this function more pai
1345 would be otherwise.
1346 */
1347 if (parser->m_ns) {
1348 XML_Char tmp[2] = {parser->m_namespaceSep
1349 parser = parserCreate(encodingName, &pars
1350 } else {
1351 parser = parserCreate(encodingName, &pars
1352 }
1353
1354 if (! parser)
1355 return NULL;
1356
1357 parser->m_startElementHandler = oldStartEle
1358 parser->m_endElementHandler = oldEndElement
1359 parser->m_characterDataHandler = oldCharact
1360 parser->m_processingInstructionHandler = ol
1361 parser->m_commentHandler = oldCommentHandle
1362 parser->m_startCdataSectionHandler = oldSta
1363 parser->m_endCdataSectionHandler = oldEndCd
1364 parser->m_defaultHandler = oldDefaultHandle
1365 parser->m_unparsedEntityDeclHandler = oldUn
1366 parser->m_notationDeclHandler = oldNotation
1367 parser->m_startNamespaceDeclHandler = oldSt
1368 parser->m_endNamespaceDeclHandler = oldEndN
1369 parser->m_notStandaloneHandler = oldNotStan
1370 parser->m_externalEntityRefHandler = oldExt
1371 parser->m_skippedEntityHandler = oldSkipped
1372 parser->m_unknownEncodingHandler = oldUnkno
1373 parser->m_elementDeclHandler = oldElementDe
1374 parser->m_attlistDeclHandler = oldAttlistDe
1375 parser->m_entityDeclHandler = oldEntityDecl
1376 parser->m_xmlDeclHandler = oldXmlDeclHandle
1377 parser->m_declElementType = oldDeclElementT
1378 parser->m_userData = oldUserData;
1379 if (oldUserData == oldHandlerArg)
1380 parser->m_handlerArg = parser->m_userData
1381 else
1382 parser->m_handlerArg = parser;
1383 if (oldExternalEntityRefHandlerArg != oldPa
1384 parser->m_externalEntityRefHandlerArg = o
1385 parser->m_defaultExpandInternalEntities = o
1386 parser->m_ns_triplets = oldns_triplets;
1387 parser->m_hash_secret_salt = oldhash_secret
1388 parser->m_parentParser = oldParser;
1389 #ifdef XML_DTD
1390 parser->m_paramEntityParsing = oldParamEnti
1391 parser->m_prologState.inEntityValue = oldIn
1392 if (context) {
1393 #endif /* XML_DTD */
1394 if (! dtdCopy(oldParser, parser->m_dtd, o
1395 || ! setContext(parser, context)) {
1396 XML_ParserFree(parser);
1397 return NULL;
1398 }
1399 parser->m_processor = externalEntityInitP
1400 #ifdef XML_DTD
1401 } else {
1402 /* The DTD instance referenced by parser-
1403 document's root parser and external PE
1404 need to call setContext. In addition,
1405 setContext, because this would overwri
1406 pointers in parser->m_dtd with ones th
1407 PE parser. This would leave those pref
1408 */
1409 parser->m_isParamEntity = XML_TRUE;
1410 XmlPrologStateInitExternalEntity(&parser-
1411 parser->m_processor = externalParEntInitP
1412 }
1413 #endif /* XML_DTD */
1414 return parser;
1415 }
1416
1417 static void FASTCALL
1418 destroyBindings(BINDING *bindings, XML_Parser
1419 for (;;) {
1420 BINDING *b = bindings;
1421 if (! b)
1422 break;
1423 bindings = b->nextTagBinding;
1424 FREE(parser, b->uri);
1425 FREE(parser, b);
1426 }
1427 }
1428
1429 void XMLCALL
1430 XML_ParserFree(XML_Parser parser) {
1431 TAG *tagList;
1432 OPEN_INTERNAL_ENTITY *entityList;
1433 if (parser == NULL)
1434 return;
1435 /* free m_tagStack and m_freeTagList */
1436 tagList = parser->m_tagStack;
1437 for (;;) {
1438 TAG *p;
1439 if (tagList == NULL) {
1440 if (parser->m_freeTagList == NULL)
1441 break;
1442 tagList = parser->m_freeTagList;
1443 parser->m_freeTagList = NULL;
1444 }
1445 p = tagList;
1446 tagList = tagList->parent;
1447 FREE(parser, p->buf);
1448 destroyBindings(p->bindings, parser);
1449 FREE(parser, p);
1450 }
1451 /* free m_openInternalEntities and m_freeIn
1452 entityList = parser->m_openInternalEntities
1453 for (;;) {
1454 OPEN_INTERNAL_ENTITY *openEntity;
1455 if (entityList == NULL) {
1456 if (parser->m_freeInternalEntities == N
1457 break;
1458 entityList = parser->m_freeInternalEnti
1459 parser->m_freeInternalEntities = NULL;
1460 }
1461 openEntity = entityList;
1462 entityList = entityList->next;
1463 FREE(parser, openEntity);
1464 }
1465
1466 destroyBindings(parser->m_freeBindingList,
1467 destroyBindings(parser->m_inheritedBindings
1468 poolDestroy(&parser->m_tempPool);
1469 poolDestroy(&parser->m_temp2Pool);
1470 FREE(parser, (void *)parser->m_protocolEnco
1471 #ifdef XML_DTD
1472 /* external parameter entity parsers share
1473 parser->m_dtd with the root parser, so w
1474 */
1475 if (! parser->m_isParamEntity && parser->m_
1476 #else
1477 if (parser->m_dtd)
1478 #endif /* XML_DTD */
1479 dtdDestroy(parser->m_dtd, (XML_Bool)! par
1480 &parser->m_mem);
1481 FREE(parser, (void *)parser->m_atts);
1482 #ifdef XML_ATTR_INFO
1483 FREE(parser, (void *)parser->m_attInfo);
1484 #endif
1485 FREE(parser, parser->m_groupConnector);
1486 FREE(parser, parser->m_buffer);
1487 FREE(parser, parser->m_dataBuf);
1488 FREE(parser, parser->m_nsAtts);
1489 FREE(parser, parser->m_unknownEncodingMem);
1490 if (parser->m_unknownEncodingRelease)
1491 parser->m_unknownEncodingRelease(parser->
1492 FREE(parser, parser);
1493 }
1494
1495 void XMLCALL
1496 XML_UseParserAsHandlerArg(XML_Parser parser)
1497 if (parser != NULL)
1498 parser->m_handlerArg = parser;
1499 }
1500
1501 enum XML_Error XMLCALL
1502 XML_UseForeignDTD(XML_Parser parser, XML_Bool
1503 if (parser == NULL)
1504 return XML_ERROR_INVALID_ARGUMENT;
1505 #ifdef XML_DTD
1506 /* block after XML_Parse()/XML_ParseBuffer(
1507 if (parser->m_parsingStatus.parsing == XML_
1508 || parser->m_parsingStatus.parsing == X
1509 return XML_ERROR_CANT_CHANGE_FEATURE_ONCE
1510 parser->m_useForeignDTD = useDTD;
1511 return XML_ERROR_NONE;
1512 #else
1513 UNUSED_P(useDTD);
1514 return XML_ERROR_FEATURE_REQUIRES_XML_DTD;
1515 #endif
1516 }
1517
1518 void XMLCALL
1519 XML_SetReturnNSTriplet(XML_Parser parser, int
1520 if (parser == NULL)
1521 return;
1522 /* block after XML_Parse()/XML_ParseBuffer(
1523 if (parser->m_parsingStatus.parsing == XML_
1524 || parser->m_parsingStatus.parsing == X
1525 return;
1526 parser->m_ns_triplets = do_nst ? XML_TRUE :
1527 }
1528
1529 void XMLCALL
1530 XML_SetUserData(XML_Parser parser, void *p) {
1531 if (parser == NULL)
1532 return;
1533 if (parser->m_handlerArg == parser->m_userD
1534 parser->m_handlerArg = parser->m_userData
1535 else
1536 parser->m_userData = p;
1537 }
1538
1539 enum XML_Status XMLCALL
1540 XML_SetBase(XML_Parser parser, const XML_Char
1541 if (parser == NULL)
1542 return XML_STATUS_ERROR;
1543 if (p) {
1544 p = poolCopyString(&parser->m_dtd->pool,
1545 if (! p)
1546 return XML_STATUS_ERROR;
1547 parser->m_curBase = p;
1548 } else
1549 parser->m_curBase = NULL;
1550 return XML_STATUS_OK;
1551 }
1552
1553 const XML_Char *XMLCALL
1554 XML_GetBase(XML_Parser parser) {
1555 if (parser == NULL)
1556 return NULL;
1557 return parser->m_curBase;
1558 }
1559
1560 int XMLCALL
1561 XML_GetSpecifiedAttributeCount(XML_Parser par
1562 if (parser == NULL)
1563 return -1;
1564 return parser->m_nSpecifiedAtts;
1565 }
1566
1567 int XMLCALL
1568 XML_GetIdAttributeIndex(XML_Parser parser) {
1569 if (parser == NULL)
1570 return -1;
1571 return parser->m_idAttIndex;
1572 }
1573
1574 #ifdef XML_ATTR_INFO
1575 const XML_AttrInfo *XMLCALL
1576 XML_GetAttributeInfo(XML_Parser parser) {
1577 if (parser == NULL)
1578 return NULL;
1579 return parser->m_attInfo;
1580 }
1581 #endif
1582
1583 void XMLCALL
1584 XML_SetElementHandler(XML_Parser parser, XML_
1585 XML_EndElementHandler e
1586 if (parser == NULL)
1587 return;
1588 parser->m_startElementHandler = start;
1589 parser->m_endElementHandler = end;
1590 }
1591
1592 void XMLCALL
1593 XML_SetStartElementHandler(XML_Parser parser,
1594 if (parser != NULL)
1595 parser->m_startElementHandler = start;
1596 }
1597
1598 void XMLCALL
1599 XML_SetEndElementHandler(XML_Parser parser, X
1600 if (parser != NULL)
1601 parser->m_endElementHandler = end;
1602 }
1603
1604 void XMLCALL
1605 XML_SetCharacterDataHandler(XML_Parser parser
1606 XML_CharacterData
1607 if (parser != NULL)
1608 parser->m_characterDataHandler = handler;
1609 }
1610
1611 void XMLCALL
1612 XML_SetProcessingInstructionHandler(XML_Parse
1613 XML_Proce
1614 if (parser != NULL)
1615 parser->m_processingInstructionHandler =
1616 }
1617
1618 void XMLCALL
1619 XML_SetCommentHandler(XML_Parser parser, XML_
1620 if (parser != NULL)
1621 parser->m_commentHandler = handler;
1622 }
1623
1624 void XMLCALL
1625 XML_SetCdataSectionHandler(XML_Parser parser,
1626 XML_StartCdataSect
1627 XML_EndCdataSectio
1628 if (parser == NULL)
1629 return;
1630 parser->m_startCdataSectionHandler = start;
1631 parser->m_endCdataSectionHandler = end;
1632 }
1633
1634 void XMLCALL
1635 XML_SetStartCdataSectionHandler(XML_Parser pa
1636 XML_StartCdat
1637 if (parser != NULL)
1638 parser->m_startCdataSectionHandler = star
1639 }
1640
1641 void XMLCALL
1642 XML_SetEndCdataSectionHandler(XML_Parser pars
1643 XML_EndCdataSec
1644 if (parser != NULL)
1645 parser->m_endCdataSectionHandler = end;
1646 }
1647
1648 void XMLCALL
1649 XML_SetDefaultHandler(XML_Parser parser, XML_
1650 if (parser == NULL)
1651 return;
1652 parser->m_defaultHandler = handler;
1653 parser->m_defaultExpandInternalEntities = X
1654 }
1655
1656 void XMLCALL
1657 XML_SetDefaultHandlerExpand(XML_Parser parser
1658 if (parser == NULL)
1659 return;
1660 parser->m_defaultHandler = handler;
1661 parser->m_defaultExpandInternalEntities = X
1662 }
1663
1664 void XMLCALL
1665 XML_SetDoctypeDeclHandler(XML_Parser parser,
1666 XML_EndDoctypeDeclH
1667 if (parser == NULL)
1668 return;
1669 parser->m_startDoctypeDeclHandler = start;
1670 parser->m_endDoctypeDeclHandler = end;
1671 }
1672
1673 void XMLCALL
1674 XML_SetStartDoctypeDeclHandler(XML_Parser par
1675 XML_StartDocty
1676 if (parser != NULL)
1677 parser->m_startDoctypeDeclHandler = start
1678 }
1679
1680 void XMLCALL
1681 XML_SetEndDoctypeDeclHandler(XML_Parser parse
1682 if (parser != NULL)
1683 parser->m_endDoctypeDeclHandler = end;
1684 }
1685
1686 void XMLCALL
1687 XML_SetUnparsedEntityDeclHandler(XML_Parser p
1688 XML_Unparsed
1689 if (parser != NULL)
1690 parser->m_unparsedEntityDeclHandler = han
1691 }
1692
1693 void XMLCALL
1694 XML_SetNotationDeclHandler(XML_Parser parser,
1695 if (parser != NULL)
1696 parser->m_notationDeclHandler = handler;
1697 }
1698
1699 void XMLCALL
1700 XML_SetNamespaceDeclHandler(XML_Parser parser
1701 XML_StartNamespac
1702 XML_EndNamespaceD
1703 if (parser == NULL)
1704 return;
1705 parser->m_startNamespaceDeclHandler = start
1706 parser->m_endNamespaceDeclHandler = end;
1707 }
1708
1709 void XMLCALL
1710 XML_SetStartNamespaceDeclHandler(XML_Parser p
1711 XML_StartNam
1712 if (parser != NULL)
1713 parser->m_startNamespaceDeclHandler = sta
1714 }
1715
1716 void XMLCALL
1717 XML_SetEndNamespaceDeclHandler(XML_Parser par
1718 XML_EndNamespa
1719 if (parser != NULL)
1720 parser->m_endNamespaceDeclHandler = end;
1721 }
1722
1723 void XMLCALL
1724 XML_SetNotStandaloneHandler(XML_Parser parser
1725 XML_NotStandalone
1726 if (parser != NULL)
1727 parser->m_notStandaloneHandler = handler;
1728 }
1729
1730 void XMLCALL
1731 XML_SetExternalEntityRefHandler(XML_Parser pa
1732 XML_ExternalE
1733 if (parser != NULL)
1734 parser->m_externalEntityRefHandler = hand
1735 }
1736
1737 void XMLCALL
1738 XML_SetExternalEntityRefHandlerArg(XML_Parser
1739 if (parser == NULL)
1740 return;
1741 if (arg)
1742 parser->m_externalEntityRefHandlerArg = (
1743 else
1744 parser->m_externalEntityRefHandlerArg = p
1745 }
1746
1747 void XMLCALL
1748 XML_SetSkippedEntityHandler(XML_Parser parser
1749 XML_SkippedEntity
1750 if (parser != NULL)
1751 parser->m_skippedEntityHandler = handler;
1752 }
1753
1754 void XMLCALL
1755 XML_SetUnknownEncodingHandler(XML_Parser pars
1756 XML_UnknownEnco
1757 if (parser == NULL)
1758 return;
1759 parser->m_unknownEncodingHandler = handler;
1760 parser->m_unknownEncodingHandlerData = data
1761 }
1762
1763 void XMLCALL
1764 XML_SetElementDeclHandler(XML_Parser parser,
1765 if (parser != NULL)
1766 parser->m_elementDeclHandler = eldecl;
1767 }
1768
1769 void XMLCALL
1770 XML_SetAttlistDeclHandler(XML_Parser parser,
1771 if (parser != NULL)
1772 parser->m_attlistDeclHandler = attdecl;
1773 }
1774
1775 void XMLCALL
1776 XML_SetEntityDeclHandler(XML_Parser parser, X
1777 if (parser != NULL)
1778 parser->m_entityDeclHandler = handler;
1779 }
1780
1781 void XMLCALL
1782 XML_SetXmlDeclHandler(XML_Parser parser, XML_
1783 if (parser != NULL)
1784 parser->m_xmlDeclHandler = handler;
1785 }
1786
1787 int XMLCALL
1788 XML_SetParamEntityParsing(XML_Parser parser,
1789 enum XML_ParamEntit
1790 if (parser == NULL)
1791 return 0;
1792 /* block after XML_Parse()/XML_ParseBuffer(
1793 if (parser->m_parsingStatus.parsing == XML_
1794 || parser->m_parsingStatus.parsing == X
1795 return 0;
1796 #ifdef XML_DTD
1797 parser->m_paramEntityParsing = peParsing;
1798 return 1;
1799 #else
1800 return peParsing == XML_PARAM_ENTITY_PARSIN
1801 #endif
1802 }
1803
1804 int XMLCALL
1805 XML_SetHashSalt(XML_Parser parser, unsigned l
1806 if (parser == NULL)
1807 return 0;
1808 if (parser->m_parentParser)
1809 return XML_SetHashSalt(parser->m_parentPa
1810 /* block after XML_Parse()/XML_ParseBuffer(
1811 if (parser->m_parsingStatus.parsing == XML_
1812 || parser->m_parsingStatus.parsing == X
1813 return 0;
1814 parser->m_hash_secret_salt = hash_salt;
1815 return 1;
1816 }
1817
1818 enum XML_Status XMLCALL
1819 XML_Parse(XML_Parser parser, const char *s, i
1820 if ((parser == NULL) || (len < 0) || ((s ==
1821 if (parser != NULL)
1822 parser->m_errorCode = XML_ERROR_INVALID
1823 return XML_STATUS_ERROR;
1824 }
1825 switch (parser->m_parsingStatus.parsing) {
1826 case XML_SUSPENDED:
1827 parser->m_errorCode = XML_ERROR_SUSPENDED
1828 return XML_STATUS_ERROR;
1829 case XML_FINISHED:
1830 parser->m_errorCode = XML_ERROR_FINISHED;
1831 return XML_STATUS_ERROR;
1832 case XML_INITIALIZED:
1833 if (parser->m_parentParser == NULL && ! s
1834 parser->m_errorCode = XML_ERROR_NO_MEMO
1835 return XML_STATUS_ERROR;
1836 }
1837 /* fall through */
1838 default:
1839 parser->m_parsingStatus.parsing = XML_PAR
1840 }
1841
1842 if (len == 0) {
1843 parser->m_parsingStatus.finalBuffer = (XM
1844 if (! isFinal)
1845 return XML_STATUS_OK;
1846 parser->m_positionPtr = parser->m_bufferP
1847 parser->m_parseEndPtr = parser->m_bufferE
1848
1849 /* If data are left over from last buffer
1850 data are the final chunk of input, the
1851 to detect errors based on that fact.
1852 */
1853 parser->m_errorCode
1854 = parser->m_processor(parser, parser-
1855 parser->m_parse
1856
1857 if (parser->m_errorCode == XML_ERROR_NONE
1858 switch (parser->m_parsingStatus.parsing
1859 case XML_SUSPENDED:
1860 /* It is hard to be certain, but it s
1861 * cannot occur. This code is cleani
1862 * with no new data (since len == 0).
1863 * state requires getting to execute
1864 * there doesn't seem to be an opport
1865 * this circumstance.
1866 *
1867 * Given the uncertainty, we retain t
1868 * from coverage tests.
1869 *
1870 * LCOV_EXCL_START
1871 */
1872 XmlUpdatePosition(parser->m_encoding,
1873 parser->m_bufferPtr
1874 parser->m_positionPtr = parser->m_buf
1875 return XML_STATUS_SUSPENDED;
1876 /* LCOV_EXCL_STOP */
1877 case XML_INITIALIZED:
1878 case XML_PARSING:
1879 parser->m_parsingStatus.parsing = XML
1880 /* fall through */
1881 default:
1882 return XML_STATUS_OK;
1883 }
1884 }
1885 parser->m_eventEndPtr = parser->m_eventPt
1886 parser->m_processor = errorProcessor;
1887 return XML_STATUS_ERROR;
1888 }
1889 #ifndef XML_CONTEXT_BYTES
1890 else if (parser->m_bufferPtr == parser->m_b
1891 const char *end;
1892 int nLeftOver;
1893 enum XML_Status result;
1894 /* Detect overflow (a+b > MAX <==> b > MA
1895 if ((XML_Size)len > ((XML_Size)-1) / 2 -
1896 parser->m_errorCode = XML_ERROR_NO_MEMO
1897 parser->m_eventPtr = parser->m_eventEnd
1898 parser->m_processor = errorProcessor;
1899 return XML_STATUS_ERROR;
1900 }
1901 parser->m_parseEndByteIndex += len;
1902 parser->m_positionPtr = s;
1903 parser->m_parsingStatus.finalBuffer = (XM
1904
1905 parser->m_errorCode
1906 = parser->m_processor(parser, s, pars
1907
1908 if (parser->m_errorCode != XML_ERROR_NONE
1909 parser->m_eventEndPtr = parser->m_event
1910 parser->m_processor = errorProcessor;
1911 return XML_STATUS_ERROR;
1912 } else {
1913 switch (parser->m_parsingStatus.parsing
1914 case XML_SUSPENDED:
1915 result = XML_STATUS_SUSPENDED;
1916 break;
1917 case XML_INITIALIZED:
1918 case XML_PARSING:
1919 if (isFinal) {
1920 parser->m_parsingStatus.parsing = X
1921 return XML_STATUS_OK;
1922 }
1923 /* fall through */
1924 default:
1925 result = XML_STATUS_OK;
1926 }
1927 }
1928
1929 XmlUpdatePosition(parser->m_encoding, par
1930 &parser->m_position);
1931 nLeftOver = s + len - end;
1932 if (nLeftOver) {
1933 if (parser->m_buffer == NULL
1934 || nLeftOver > parser->m_bufferLim
1935 /* avoid _signed_ integer overflow */
1936 char *temp = NULL;
1937 const int bytesToAllocate = (int)((un
1938 if (bytesToAllocate > 0) {
1939 temp = (char *)REALLOC(parser, pars
1940 }
1941 if (temp == NULL) {
1942 parser->m_errorCode = XML_ERROR_NO_
1943 parser->m_eventPtr = parser->m_even
1944 parser->m_processor = errorProcesso
1945 return XML_STATUS_ERROR;
1946 }
1947 parser->m_buffer = temp;
1948 parser->m_bufferLim = parser->m_buffe
1949 }
1950 memcpy(parser->m_buffer, end, nLeftOver
1951 }
1952 parser->m_bufferPtr = parser->m_buffer;
1953 parser->m_bufferEnd = parser->m_buffer +
1954 parser->m_positionPtr = parser->m_bufferP
1955 parser->m_parseEndPtr = parser->m_bufferE
1956 parser->m_eventPtr = parser->m_bufferPtr;
1957 parser->m_eventEndPtr = parser->m_bufferP
1958 return result;
1959 }
1960 #endif /* not defined XML_CONTEXT_BYTES */
1961 else {
1962 void *buff = XML_GetBuffer(parser, len);
1963 if (buff == NULL)
1964 return XML_STATUS_ERROR;
1965 else {
1966 memcpy(buff, s, len);
1967 return XML_ParseBuffer(parser, len, isF
1968 }
1969 }
1970 }
1971
1972 enum XML_Status XMLCALL
1973 XML_ParseBuffer(XML_Parser parser, int len, i
1974 const char *start;
1975 enum XML_Status result = XML_STATUS_OK;
1976
1977 if (parser == NULL)
1978 return XML_STATUS_ERROR;
1979 switch (parser->m_parsingStatus.parsing) {
1980 case XML_SUSPENDED:
1981 parser->m_errorCode = XML_ERROR_SUSPENDED
1982 return XML_STATUS_ERROR;
1983 case XML_FINISHED:
1984 parser->m_errorCode = XML_ERROR_FINISHED;
1985 return XML_STATUS_ERROR;
1986 case XML_INITIALIZED:
1987 /* Has someone called XML_GetBuffer succe
1988 if (! parser->m_bufferPtr) {
1989 parser->m_errorCode = XML_ERROR_NO_BUFF
1990 return XML_STATUS_ERROR;
1991 }
1992
1993 if (parser->m_parentParser == NULL && ! s
1994 parser->m_errorCode = XML_ERROR_NO_MEMO
1995 return XML_STATUS_ERROR;
1996 }
1997 /* fall through */
1998 default:
1999 parser->m_parsingStatus.parsing = XML_PAR
2000 }
2001
2002 start = parser->m_bufferPtr;
2003 parser->m_positionPtr = start;
2004 parser->m_bufferEnd += len;
2005 parser->m_parseEndPtr = parser->m_bufferEnd
2006 parser->m_parseEndByteIndex += len;
2007 parser->m_parsingStatus.finalBuffer = (XML_
2008
2009 parser->m_errorCode = parser->m_processor(
2010 parser, start, parser->m_parseEndPtr, &
2011
2012 if (parser->m_errorCode != XML_ERROR_NONE)
2013 parser->m_eventEndPtr = parser->m_eventPt
2014 parser->m_processor = errorProcessor;
2015 return XML_STATUS_ERROR;
2016 } else {
2017 switch (parser->m_parsingStatus.parsing)
2018 case XML_SUSPENDED:
2019 result = XML_STATUS_SUSPENDED;
2020 break;
2021 case XML_INITIALIZED:
2022 case XML_PARSING:
2023 if (isFinal) {
2024 parser->m_parsingStatus.parsing = XML
2025 return result;
2026 }
2027 default:; /* should not happen */
2028 }
2029 }
2030
2031 XmlUpdatePosition(parser->m_encoding, parse
2032 parser->m_bufferPtr, &par
2033 parser->m_positionPtr = parser->m_bufferPtr
2034 return result;
2035 }
2036
2037 void *XMLCALL
2038 XML_GetBuffer(XML_Parser parser, int len) {
2039 if (parser == NULL)
2040 return NULL;
2041 if (len < 0) {
2042 parser->m_errorCode = XML_ERROR_NO_MEMORY
2043 return NULL;
2044 }
2045 switch (parser->m_parsingStatus.parsing) {
2046 case XML_SUSPENDED:
2047 parser->m_errorCode = XML_ERROR_SUSPENDED
2048 return NULL;
2049 case XML_FINISHED:
2050 parser->m_errorCode = XML_ERROR_FINISHED;
2051 return NULL;
2052 default:;
2053 }
2054
2055 if (len > EXPAT_SAFE_PTR_DIFF(parser->m_buf
2056 #ifdef XML_CONTEXT_BYTES
2057 int keep;
2058 #endif /* defined XML_CONTEXT_BYTES */
2059 /* Do not invoke signed arithmetic overfl
2060 int neededSize = (int)((unsigned)len
2061 + (unsigned)EXPAT_
2062 parser->m_buff
2063 if (neededSize < 0) {
2064 parser->m_errorCode = XML_ERROR_NO_MEMO
2065 return NULL;
2066 }
2067 #ifdef XML_CONTEXT_BYTES
2068 keep = (int)EXPAT_SAFE_PTR_DIFF(parser->m
2069 if (keep > XML_CONTEXT_BYTES)
2070 keep = XML_CONTEXT_BYTES;
2071 /* Detect and prevent integer overflow */
2072 if (keep > INT_MAX - neededSize) {
2073 parser->m_errorCode = XML_ERROR_NO_MEMO
2074 return NULL;
2075 }
2076 neededSize += keep;
2077 #endif /* defined XML_CONTEXT_BYTES */
2078 if (neededSize
2079 <= EXPAT_SAFE_PTR_DIFF(parser->m_buff
2080 #ifdef XML_CONTEXT_BYTES
2081 if (keep < EXPAT_SAFE_PTR_DIFF(parser->
2082 int offset
2083 = (int)EXPAT_SAFE_PTR_DIFF(parser
2084 - keep;
2085 /* The buffer pointers cannot be NULL
2086 * in the buffer */
2087 memmove(parser->m_buffer, &parser->m_
2088 parser->m_bufferEnd - parser-
2089 parser->m_bufferEnd -= offset;
2090 parser->m_bufferPtr -= offset;
2091 }
2092 #else
2093 if (parser->m_buffer && parser->m_buffe
2094 memmove(parser->m_buffer, parser->m_b
2095 EXPAT_SAFE_PTR_DIFF(parser->m
2096 parser->m_bufferEnd
2097 = parser->m_buffer
2098 + EXPAT_SAFE_PTR_DIFF(parser->m
2099 parser->m_bufferPtr = parser->m_buffe
2100 }
2101 #endif /* not defined XML_CONTEXT_BYTES */
2102 } else {
2103 char *newBuf;
2104 int bufferSize
2105 = (int)EXPAT_SAFE_PTR_DIFF(parser->
2106 if (bufferSize == 0)
2107 bufferSize = INIT_BUFFER_SIZE;
2108 do {
2109 /* Do not invoke signed arithmetic ov
2110 bufferSize = (int)(2U * (unsigned)buf
2111 } while (bufferSize < neededSize && buf
2112 if (bufferSize <= 0) {
2113 parser->m_errorCode = XML_ERROR_NO_ME
2114 return NULL;
2115 }
2116 newBuf = (char *)MALLOC(parser, bufferS
2117 if (newBuf == 0) {
2118 parser->m_errorCode = XML_ERROR_NO_ME
2119 return NULL;
2120 }
2121 parser->m_bufferLim = newBuf + bufferSi
2122 #ifdef XML_CONTEXT_BYTES
2123 if (parser->m_bufferPtr) {
2124 memcpy(newBuf, &parser->m_bufferPtr[-
2125 EXPAT_SAFE_PTR_DIFF(parser->m_
2126 + keep);
2127 FREE(parser, parser->m_buffer);
2128 parser->m_buffer = newBuf;
2129 parser->m_bufferEnd
2130 = parser->m_buffer
2131 + EXPAT_SAFE_PTR_DIFF(parser->m
2132 + keep;
2133 parser->m_bufferPtr = parser->m_buffe
2134 } else {
2135 /* This must be a brand new buffer wi
2136 parser->m_bufferEnd = newBuf;
2137 parser->m_bufferPtr = parser->m_buffe
2138 }
2139 #else
2140 if (parser->m_bufferPtr) {
2141 memcpy(newBuf, parser->m_bufferPtr,
2142 EXPAT_SAFE_PTR_DIFF(parser->m_
2143 FREE(parser, parser->m_buffer);
2144 parser->m_bufferEnd
2145 = newBuf
2146 + EXPAT_SAFE_PTR_DIFF(parser->m
2147 } else {
2148 /* This must be a brand new buffer wi
2149 parser->m_bufferEnd = newBuf;
2150 }
2151 parser->m_bufferPtr = parser->m_buffer
2152 #endif /* not defined XML_CONTEXT_BYTES */
2153 }
2154 parser->m_eventPtr = parser->m_eventEndPt
2155 parser->m_positionPtr = NULL;
2156 }
2157 return parser->m_bufferEnd;
2158 }
2159
2160 enum XML_Status XMLCALL
2161 XML_StopParser(XML_Parser parser, XML_Bool re
2162 if (parser == NULL)
2163 return XML_STATUS_ERROR;
2164 switch (parser->m_parsingStatus.parsing) {
2165 case XML_SUSPENDED:
2166 if (resumable) {
2167 parser->m_errorCode = XML_ERROR_SUSPEND
2168 return XML_STATUS_ERROR;
2169 }
2170 parser->m_parsingStatus.parsing = XML_FIN
2171 break;
2172 case XML_FINISHED:
2173 parser->m_errorCode = XML_ERROR_FINISHED;
2174 return XML_STATUS_ERROR;
2175 default:
2176 if (resumable) {
2177 #ifdef XML_DTD
2178 if (parser->m_isParamEntity) {
2179 parser->m_errorCode = XML_ERROR_SUSPE
2180 return XML_STATUS_ERROR;
2181 }
2182 #endif
2183 parser->m_parsingStatus.parsing = XML_S
2184 } else
2185 parser->m_parsingStatus.parsing = XML_F
2186 }
2187 return XML_STATUS_OK;
2188 }
2189
2190 enum XML_Status XMLCALL
2191 XML_ResumeParser(XML_Parser parser) {
2192 enum XML_Status result = XML_STATUS_OK;
2193
2194 if (parser == NULL)
2195 return XML_STATUS_ERROR;
2196 if (parser->m_parsingStatus.parsing != XML_
2197 parser->m_errorCode = XML_ERROR_NOT_SUSPE
2198 return XML_STATUS_ERROR;
2199 }
2200 parser->m_parsingStatus.parsing = XML_PARSI
2201
2202 parser->m_errorCode = parser->m_processor(
2203 parser, parser->m_bufferPtr, parser->m_
2204
2205 if (parser->m_errorCode != XML_ERROR_NONE)
2206 parser->m_eventEndPtr = parser->m_eventPt
2207 parser->m_processor = errorProcessor;
2208 return XML_STATUS_ERROR;
2209 } else {
2210 switch (parser->m_parsingStatus.parsing)
2211 case XML_SUSPENDED:
2212 result = XML_STATUS_SUSPENDED;
2213 break;
2214 case XML_INITIALIZED:
2215 case XML_PARSING:
2216 if (parser->m_parsingStatus.finalBuffer
2217 parser->m_parsingStatus.parsing = XML
2218 return result;
2219 }
2220 default:;
2221 }
2222 }
2223
2224 XmlUpdatePosition(parser->m_encoding, parse
2225 parser->m_bufferPtr, &par
2226 parser->m_positionPtr = parser->m_bufferPtr
2227 return result;
2228 }
2229
2230 void XMLCALL
2231 XML_GetParsingStatus(XML_Parser parser, XML_P
2232 if (parser == NULL)
2233 return;
2234 assert(status != NULL);
2235 *status = parser->m_parsingStatus;
2236 }
2237
2238 enum XML_Error XMLCALL
2239 XML_GetErrorCode(XML_Parser parser) {
2240 if (parser == NULL)
2241 return XML_ERROR_INVALID_ARGUMENT;
2242 return parser->m_errorCode;
2243 }
2244
2245 XML_Index XMLCALL
2246 XML_GetCurrentByteIndex(XML_Parser parser) {
2247 if (parser == NULL)
2248 return -1;
2249 if (parser->m_eventPtr)
2250 return (XML_Index)(parser->m_parseEndByte
2251 - (parser->m_parseEndP
2252 return -1;
2253 }
2254
2255 int XMLCALL
2256 XML_GetCurrentByteCount(XML_Parser parser) {
2257 if (parser == NULL)
2258 return 0;
2259 if (parser->m_eventEndPtr && parser->m_even
2260 return (int)(parser->m_eventEndPtr - pars
2261 return 0;
2262 }
2263
2264 const char *XMLCALL
2265 XML_GetInputContext(XML_Parser parser, int *o
2266 #ifdef XML_CONTEXT_BYTES
2267 if (parser == NULL)
2268 return NULL;
2269 if (parser->m_eventPtr && parser->m_buffer)
2270 if (offset != NULL)
2271 *offset = (int)(parser->m_eventPtr - pa
2272 if (size != NULL)
2273 *size = (int)(parser->m_bufferEnd - par
2274 return parser->m_buffer;
2275 }
2276 #else
2277 (void)parser;
2278 (void)offset;
2279 (void)size;
2280 #endif /* defined XML_CONTEXT_BYTES */
2281 return (const char *)0;
2282 }
2283
2284 XML_Size XMLCALL
2285 XML_GetCurrentLineNumber(XML_Parser parser) {
2286 if (parser == NULL)
2287 return 0;
2288 if (parser->m_eventPtr && parser->m_eventPt
2289 XmlUpdatePosition(parser->m_encoding, par
2290 parser->m_eventPtr, &pa
2291 parser->m_positionPtr = parser->m_eventPt
2292 }
2293 return parser->m_position.lineNumber + 1;
2294 }
2295
2296 XML_Size XMLCALL
2297 XML_GetCurrentColumnNumber(XML_Parser parser)
2298 if (parser == NULL)
2299 return 0;
2300 if (parser->m_eventPtr && parser->m_eventPt
2301 XmlUpdatePosition(parser->m_encoding, par
2302 parser->m_eventPtr, &pa
2303 parser->m_positionPtr = parser->m_eventPt
2304 }
2305 return parser->m_position.columnNumber;
2306 }
2307
2308 void XMLCALL
2309 XML_FreeContentModel(XML_Parser parser, XML_C
2310 if (parser != NULL)
2311 FREE(parser, model);
2312 }
2313
2314 void *XMLCALL
2315 XML_MemMalloc(XML_Parser parser, size_t size)
2316 if (parser == NULL)
2317 return NULL;
2318 return MALLOC(parser, size);
2319 }
2320
2321 void *XMLCALL
2322 XML_MemRealloc(XML_Parser parser, void *ptr,
2323 if (parser == NULL)
2324 return NULL;
2325 return REALLOC(parser, ptr, size);
2326 }
2327
2328 void XMLCALL
2329 XML_MemFree(XML_Parser parser, void *ptr) {
2330 if (parser != NULL)
2331 FREE(parser, ptr);
2332 }
2333
2334 void XMLCALL
2335 XML_DefaultCurrent(XML_Parser parser) {
2336 if (parser == NULL)
2337 return;
2338 if (parser->m_defaultHandler) {
2339 if (parser->m_openInternalEntities)
2340 reportDefault(parser, parser->m_interna
2341 parser->m_openInternalEnt
2342 parser->m_openInternalEnt
2343 else
2344 reportDefault(parser, parser->m_encodin
2345 parser->m_eventEndPtr);
2346 }
2347 }
2348
2349 const XML_LChar *XMLCALL
2350 XML_ErrorString(enum XML_Error code) {
2351 switch (code) {
2352 case XML_ERROR_NONE:
2353 return NULL;
2354 case XML_ERROR_NO_MEMORY:
2355 return XML_L("out of memory");
2356 case XML_ERROR_SYNTAX:
2357 return XML_L("syntax error");
2358 case XML_ERROR_NO_ELEMENTS:
2359 return XML_L("no element found");
2360 case XML_ERROR_INVALID_TOKEN:
2361 return XML_L("not well-formed (invalid to
2362 case XML_ERROR_UNCLOSED_TOKEN:
2363 return XML_L("unclosed token");
2364 case XML_ERROR_PARTIAL_CHAR:
2365 return XML_L("partial character");
2366 case XML_ERROR_TAG_MISMATCH:
2367 return XML_L("mismatched tag");
2368 case XML_ERROR_DUPLICATE_ATTRIBUTE:
2369 return XML_L("duplicate attribute");
2370 case XML_ERROR_JUNK_AFTER_DOC_ELEMENT:
2371 return XML_L("junk after document element
2372 case XML_ERROR_PARAM_ENTITY_REF:
2373 return XML_L("illegal parameter entity re
2374 case XML_ERROR_UNDEFINED_ENTITY:
2375 return XML_L("undefined entity");
2376 case XML_ERROR_RECURSIVE_ENTITY_REF:
2377 return XML_L("recursive entity reference"
2378 case XML_ERROR_ASYNC_ENTITY:
2379 return XML_L("asynchronous entity");
2380 case XML_ERROR_BAD_CHAR_REF:
2381 return XML_L("reference to invalid charac
2382 case XML_ERROR_BINARY_ENTITY_REF:
2383 return XML_L("reference to binary entity"
2384 case XML_ERROR_ATTRIBUTE_EXTERNAL_ENTITY_RE
2385 return XML_L("reference to external entit
2386 case XML_ERROR_MISPLACED_XML_PI:
2387 return XML_L("XML or text declaration not
2388 case XML_ERROR_UNKNOWN_ENCODING:
2389 return XML_L("unknown encoding");
2390 case XML_ERROR_INCORRECT_ENCODING:
2391 return XML_L("encoding specified in XML d
2392 case XML_ERROR_UNCLOSED_CDATA_SECTION:
2393 return XML_L("unclosed CDATA section");
2394 case XML_ERROR_EXTERNAL_ENTITY_HANDLING:
2395 return XML_L("error in processing externa
2396 case XML_ERROR_NOT_STANDALONE:
2397 return XML_L("document is not standalone"
2398 case XML_ERROR_UNEXPECTED_STATE:
2399 return XML_L("unexpected parser state - p
2400 case XML_ERROR_ENTITY_DECLARED_IN_PE:
2401 return XML_L("entity declared in paramete
2402 case XML_ERROR_FEATURE_REQUIRES_XML_DTD:
2403 return XML_L("requested feature requires
2404 case XML_ERROR_CANT_CHANGE_FEATURE_ONCE_PAR
2405 return XML_L("cannot change setting once
2406 /* Added in 1.95.7. */
2407 case XML_ERROR_UNBOUND_PREFIX:
2408 return XML_L("unbound prefix");
2409 /* Added in 1.95.8. */
2410 case XML_ERROR_UNDECLARING_PREFIX:
2411 return XML_L("must not undeclare prefix")
2412 case XML_ERROR_INCOMPLETE_PE:
2413 return XML_L("incomplete markup in parame
2414 case XML_ERROR_XML_DECL:
2415 return XML_L("XML declaration not well-fo
2416 case XML_ERROR_TEXT_DECL:
2417 return XML_L("text declaration not well-f
2418 case XML_ERROR_PUBLICID:
2419 return XML_L("illegal character(s) in pub
2420 case XML_ERROR_SUSPENDED:
2421 return XML_L("parser suspended");
2422 case XML_ERROR_NOT_SUSPENDED:
2423 return XML_L("parser not suspended");
2424 case XML_ERROR_ABORTED:
2425 return XML_L("parsing aborted");
2426 case XML_ERROR_FINISHED:
2427 return XML_L("parsing finished");
2428 case XML_ERROR_SUSPEND_PE:
2429 return XML_L("cannot suspend in external
2430 /* Added in 2.0.0. */
2431 case XML_ERROR_RESERVED_PREFIX_XML:
2432 return XML_L(
2433 "reserved prefix (xml) must not be un
2434 case XML_ERROR_RESERVED_PREFIX_XMLNS:
2435 return XML_L("reserved prefix (xmlns) mus
2436 case XML_ERROR_RESERVED_NAMESPACE_URI:
2437 return XML_L(
2438 "prefix must not be bound to one of t
2439 /* Added in 2.2.5. */
2440 case XML_ERROR_INVALID_ARGUMENT: /* Constan
2441 return XML_L("invalid argument");
2442 /* Added in 2.3.0. */
2443 case XML_ERROR_NO_BUFFER:
2444 return XML_L(
2445 "a successful prior call to function
2446 /* Added in 2.4.0. */
2447 case XML_ERROR_AMPLIFICATION_LIMIT_BREACH:
2448 return XML_L(
2449 "limit on input amplification factor
2450 }
2451 return NULL;
2452 }
2453
2454 const XML_LChar *XMLCALL
2455 XML_ExpatVersion(void) {
2456 /* V1 is used to string-ize the version num
2457 string-ize the actual version macro *nam
2458 substituted before being passed to V1. C
2459 a macro, then rescan for more expansions
2460 the version macros, then CPP will expand
2461 with the correct numerals. */
2462 /* ### I'm assuming cpp is portable in this
2463
2464 #define V1(a, b, c) XML_L(#a) XML_L(".") XML_
2465 #define V2(a, b, c) XML_L("expat_") V1(a, b,
2466
2467 return V2(XML_MAJOR_VERSION, XML_MINOR_VERS
2468
2469 #undef V1
2470 #undef V2
2471 }
2472
2473 XML_Expat_Version XMLCALL
2474 XML_ExpatVersionInfo(void) {
2475 XML_Expat_Version version;
2476
2477 version.major = XML_MAJOR_VERSION;
2478 version.minor = XML_MINOR_VERSION;
2479 version.micro = XML_MICRO_VERSION;
2480
2481 return version;
2482 }
2483
2484 const XML_Feature *XMLCALL
2485 XML_GetFeatureList(void) {
2486 static const XML_Feature features[] = {
2487 {XML_FEATURE_SIZEOF_XML_CHAR, XML_L("si
2488 sizeof(XML_Char)},
2489 {XML_FEATURE_SIZEOF_XML_LCHAR, XML_L("s
2490 sizeof(XML_LChar)},
2491 #ifdef XML_UNICODE
2492 {XML_FEATURE_UNICODE, XML_L("XML_UNICOD
2493 #endif
2494 #ifdef XML_UNICODE_WCHAR_T
2495 {XML_FEATURE_UNICODE_WCHAR_T, XML_L("XM
2496 #endif
2497 #ifdef XML_DTD
2498 {XML_FEATURE_DTD, XML_L("XML_DTD"), 0},
2499 #endif
2500 #ifdef XML_CONTEXT_BYTES
2501 {XML_FEATURE_CONTEXT_BYTES, XML_L("XML_
2502 XML_CONTEXT_BYTES},
2503 #endif
2504 #ifdef XML_MIN_SIZE
2505 {XML_FEATURE_MIN_SIZE, XML_L("XML_MIN_S
2506 #endif
2507 #ifdef XML_NS
2508 {XML_FEATURE_NS, XML_L("XML_NS"), 0},
2509 #endif
2510 #ifdef XML_LARGE_SIZE
2511 {XML_FEATURE_LARGE_SIZE, XML_L("XML_LAR
2512 #endif
2513 #ifdef XML_ATTR_INFO
2514 {XML_FEATURE_ATTR_INFO, XML_L("XML_ATTR
2515 #endif
2516 #ifdef XML_DTD
2517 /* Added in Expat 2.4.0. */
2518 {XML_FEATURE_BILLION_LAUGHS_ATTACK_PROT
2519 XML_L("XML_BLAP_MAX_AMP"),
2520 (long int)
2521 EXPAT_BILLION_LAUGHS_ATTACK_PROTEC
2522 {XML_FEATURE_BILLION_LAUGHS_ATTACK_PROT
2523 XML_L("XML_BLAP_ACT_THRES"),
2524 EXPAT_BILLION_LAUGHS_ATTACK_PROTECTION
2525 #endif
2526 {XML_FEATURE_END, NULL, 0}};
2527
2528 return features;
2529 }
2530
2531 #ifdef XML_DTD
2532 XML_Bool XMLCALL
2533 XML_SetBillionLaughsAttackProtectionMaximumAm
2534 XML_Parser parser, float maximumAmplifica
2535 if ((parser == NULL) || (parser->m_parentPa
2536 || isnan(maximumAmplificationFactor)
2537 || (maximumAmplificationFactor < 1.0f))
2538 return XML_FALSE;
2539 }
2540 parser->m_accounting.maximumAmplificationFa
2541 return XML_TRUE;
2542 }
2543
2544 XML_Bool XMLCALL
2545 XML_SetBillionLaughsAttackProtectionActivatio
2546 XML_Parser parser, unsigned long long act
2547 if ((parser == NULL) || (parser->m_parentPa
2548 return XML_FALSE;
2549 }
2550 parser->m_accounting.activationThresholdByt
2551 return XML_TRUE;
2552 }
2553 #endif /* XML_DTD */
2554
2555 /* Initially tag->rawName always points into
2556 for those TAG instances opened while the c
2557 processed, and not yet closed, we need to
2558 permanent location, since the parse buffer
2559 */
2560 static XML_Bool
2561 storeRawNames(XML_Parser parser) {
2562 TAG *tag = parser->m_tagStack;
2563 while (tag) {
2564 int bufSize;
2565 int nameLen = sizeof(XML_Char) * (tag->na
2566 size_t rawNameLen;
2567 char *rawNameBuf = tag->buf + nameLen;
2568 /* Stop if already stored. Since m_tagSt
2569 at the first entry that has already be
2570 below it in the stack is already been
2571 previous call to this function.
2572 */
2573 if (tag->rawName == rawNameBuf)
2574 break;
2575 /* For re-use purposes we need to ensure
2576 size of tag->buf is a multiple of size
2577 */
2578 rawNameLen = ROUND_UP(tag->rawNameLength,
2579 /* Detect and prevent integer overflow. *
2580 if (rawNameLen > (size_t)INT_MAX - nameLe
2581 return XML_FALSE;
2582 bufSize = nameLen + (int)rawNameLen;
2583 if (bufSize > tag->bufEnd - tag->buf) {
2584 char *temp = (char *)REALLOC(parser, ta
2585 if (temp == NULL)
2586 return XML_FALSE;
2587 /* if tag->name.str points to tag->buf
2588 processing is off) then we have to u
2589 */
2590 if (tag->name.str == (XML_Char *)tag->b
2591 tag->name.str = (XML_Char *)temp;
2592 /* if tag->name.localPart is set (when
2593 then update it as well, since it wil
2594 */
2595 if (tag->name.localPart)
2596 tag->name.localPart
2597 = (XML_Char *)temp + (tag->name.l
2598 tag->buf = temp;
2599 tag->bufEnd = temp + bufSize;
2600 rawNameBuf = temp + nameLen;
2601 }
2602 memcpy(rawNameBuf, tag->rawName, tag->raw
2603 tag->rawName = rawNameBuf;
2604 tag = tag->parent;
2605 }
2606 return XML_TRUE;
2607 }
2608
2609 static enum XML_Error PTRCALL
2610 contentProcessor(XML_Parser parser, const cha
2611 const char **endPtr) {
2612 enum XML_Error result = doContent(
2613 parser, 0, parser->m_encoding, start, e
2614 (XML_Bool)! parser->m_parsingStatus.fin
2615 if (result == XML_ERROR_NONE) {
2616 if (! storeRawNames(parser))
2617 return XML_ERROR_NO_MEMORY;
2618 }
2619 return result;
2620 }
2621
2622 static enum XML_Error PTRCALL
2623 externalEntityInitProcessor(XML_Parser parser
2624 const char *end,
2625 enum XML_Error result = initializeEncoding(
2626 if (result != XML_ERROR_NONE)
2627 return result;
2628 parser->m_processor = externalEntityInitPro
2629 return externalEntityInitProcessor2(parser,
2630 }
2631
2632 static enum XML_Error PTRCALL
2633 externalEntityInitProcessor2(XML_Parser parse
2634 const char *end,
2635 const char *next = start; /* XmlContentTok
2636 int tok = XmlContentTok(parser->m_encoding,
2637 switch (tok) {
2638 case XML_TOK_BOM:
2639 #ifdef XML_DTD
2640 if (! accountingDiffTolerated(parser, tok
2641 XML_ACCOUNT
2642 accountingOnAbort(parser);
2643 return XML_ERROR_AMPLIFICATION_LIMIT_BR
2644 }
2645 #endif /* XML_DTD */
2646
2647 /* If we are at the end of the buffer, th
2648 i.e. externalEntityInitProcessor3, to
2649 doContent (by detecting XML_TOK_NONE)
2650 declaration - causing the error XML_ER
2651 */
2652 if (next == end && ! parser->m_parsingSta
2653 *endPtr = next;
2654 return XML_ERROR_NONE;
2655 }
2656 start = next;
2657 break;
2658 case XML_TOK_PARTIAL:
2659 if (! parser->m_parsingStatus.finalBuffer
2660 *endPtr = start;
2661 return XML_ERROR_NONE;
2662 }
2663 parser->m_eventPtr = start;
2664 return XML_ERROR_UNCLOSED_TOKEN;
2665 case XML_TOK_PARTIAL_CHAR:
2666 if (! parser->m_parsingStatus.finalBuffer
2667 *endPtr = start;
2668 return XML_ERROR_NONE;
2669 }
2670 parser->m_eventPtr = start;
2671 return XML_ERROR_PARTIAL_CHAR;
2672 }
2673 parser->m_processor = externalEntityInitPro
2674 return externalEntityInitProcessor3(parser,
2675 }
2676
2677 static enum XML_Error PTRCALL
2678 externalEntityInitProcessor3(XML_Parser parse
2679 const char *end,
2680 int tok;
2681 const char *next = start; /* XmlContentTok
2682 parser->m_eventPtr = start;
2683 tok = XmlContentTok(parser->m_encoding, sta
2684 /* Note: These bytes are accounted later in
2685 - processXmlDecl
2686 - externalEntityContentProcessor
2687 */
2688 parser->m_eventEndPtr = next;
2689
2690 switch (tok) {
2691 case XML_TOK_XML_DECL: {
2692 enum XML_Error result;
2693 result = processXmlDecl(parser, 1, start,
2694 if (result != XML_ERROR_NONE)
2695 return result;
2696 switch (parser->m_parsingStatus.parsing)
2697 case XML_SUSPENDED:
2698 *endPtr = next;
2699 return XML_ERROR_NONE;
2700 case XML_FINISHED:
2701 return XML_ERROR_ABORTED;
2702 default:
2703 start = next;
2704 }
2705 } break;
2706 case XML_TOK_PARTIAL:
2707 if (! parser->m_parsingStatus.finalBuffer
2708 *endPtr = start;
2709 return XML_ERROR_NONE;
2710 }
2711 return XML_ERROR_UNCLOSED_TOKEN;
2712 case XML_TOK_PARTIAL_CHAR:
2713 if (! parser->m_parsingStatus.finalBuffer
2714 *endPtr = start;
2715 return XML_ERROR_NONE;
2716 }
2717 return XML_ERROR_PARTIAL_CHAR;
2718 }
2719 parser->m_processor = externalEntityContent
2720 parser->m_tagLevel = 1;
2721 return externalEntityContentProcessor(parse
2722 }
2723
2724 static enum XML_Error PTRCALL
2725 externalEntityContentProcessor(XML_Parser par
2726 const char *en
2727 enum XML_Error result
2728 = doContent(parser, 1, parser->m_encodi
2729 (XML_Bool)! parser->m_parsi
2730 XML_ACCOUNT_ENTITY_EXPANSIO
2731 if (result == XML_ERROR_NONE) {
2732 if (! storeRawNames(parser))
2733 return XML_ERROR_NO_MEMORY;
2734 }
2735 return result;
2736 }
2737
2738 static enum XML_Error
2739 doContent(XML_Parser parser, int startTagLeve
2740 const char *s, const char *end, con
2741 XML_Bool haveMore, enum XML_Account
2742 /* save one level of indirection */
2743 DTD *const dtd = parser->m_dtd;
2744
2745 const char **eventPP;
2746 const char **eventEndPP;
2747 if (enc == parser->m_encoding) {
2748 eventPP = &parser->m_eventPtr;
2749 eventEndPP = &parser->m_eventEndPtr;
2750 } else {
2751 eventPP = &(parser->m_openInternalEntitie
2752 eventEndPP = &(parser->m_openInternalEnti
2753 }
2754 *eventPP = s;
2755
2756 for (;;) {
2757 const char *next = s; /* XmlContentTok do
2758 int tok = XmlContentTok(enc, s, end, &nex
2759 #ifdef XML_DTD
2760 const char *accountAfter
2761 = ((tok == XML_TOK_TRAILING_RSQB) ||
2762 ? (haveMore ? s /* i.e. 0 bytes
2763 : next;
2764 if (! accountingDiffTolerated(parser, tok
2765 account)) {
2766 accountingOnAbort(parser);
2767 return XML_ERROR_AMPLIFICATION_LIMIT_BR
2768 }
2769 #endif
2770 *eventEndPP = next;
2771 switch (tok) {
2772 case XML_TOK_TRAILING_CR:
2773 if (haveMore) {
2774 *nextPtr = s;
2775 return XML_ERROR_NONE;
2776 }
2777 *eventEndPP = end;
2778 if (parser->m_characterDataHandler) {
2779 XML_Char c = 0xA;
2780 parser->m_characterDataHandler(parser
2781 } else if (parser->m_defaultHandler)
2782 reportDefault(parser, enc, s, end);
2783 /* We are at the end of the final buffe
2784 XML_SUSPENDED, XML_FINISHED?
2785 */
2786 if (startTagLevel == 0)
2787 return XML_ERROR_NO_ELEMENTS;
2788 if (parser->m_tagLevel != startTagLevel
2789 return XML_ERROR_ASYNC_ENTITY;
2790 *nextPtr = end;
2791 return XML_ERROR_NONE;
2792 case XML_TOK_NONE:
2793 if (haveMore) {
2794 *nextPtr = s;
2795 return XML_ERROR_NONE;
2796 }
2797 if (startTagLevel > 0) {
2798 if (parser->m_tagLevel != startTagLev
2799 return XML_ERROR_ASYNC_ENTITY;
2800 *nextPtr = s;
2801 return XML_ERROR_NONE;
2802 }
2803 return XML_ERROR_NO_ELEMENTS;
2804 case XML_TOK_INVALID:
2805 *eventPP = next;
2806 return XML_ERROR_INVALID_TOKEN;
2807 case XML_TOK_PARTIAL:
2808 if (haveMore) {
2809 *nextPtr = s;
2810 return XML_ERROR_NONE;
2811 }
2812 return XML_ERROR_UNCLOSED_TOKEN;
2813 case XML_TOK_PARTIAL_CHAR:
2814 if (haveMore) {
2815 *nextPtr = s;
2816 return XML_ERROR_NONE;
2817 }
2818 return XML_ERROR_PARTIAL_CHAR;
2819 case XML_TOK_ENTITY_REF: {
2820 const XML_Char *name;
2821 ENTITY *entity;
2822 XML_Char ch = (XML_Char)XmlPredefinedEn
2823 enc, s + enc->minBytesPerChar, next
2824 if (ch) {
2825 #ifdef XML_DTD
2826 /* NOTE: We are replacing 4-6 charact
2827 * so there is no amplification
2828 * protection. */
2829 accountingDiffTolerated(parser, tok,
2830 ((char *)&ch)
2831 XML_ACCOUNT_E
2832 #endif /* XML_DTD */
2833 if (parser->m_characterDataHandler)
2834 parser->m_characterDataHandler(pars
2835 else if (parser->m_defaultHandler)
2836 reportDefault(parser, enc, s, next)
2837 break;
2838 }
2839 name = poolStoreString(&dtd->pool, enc,
2840 next - enc->minB
2841 if (! name)
2842 return XML_ERROR_NO_MEMORY;
2843 entity = (ENTITY *)lookup(parser, &dtd-
2844 poolDiscard(&dtd->pool);
2845 /* First, determine if a check for an e
2846 if yes, check that the entity exists
2847 otherwise call the skipped entity or
2848 */
2849 if (! dtd->hasParamEntityRefs || dtd->s
2850 if (! entity)
2851 return XML_ERROR_UNDEFINED_ENTITY;
2852 else if (! entity->is_internal)
2853 return XML_ERROR_ENTITY_DECLARED_IN
2854 } else if (! entity) {
2855 if (parser->m_skippedEntityHandler)
2856 parser->m_skippedEntityHandler(pars
2857 else if (parser->m_defaultHandler)
2858 reportDefault(parser, enc, s, next)
2859 break;
2860 }
2861 if (entity->open)
2862 return XML_ERROR_RECURSIVE_ENTITY_REF
2863 if (entity->notation)
2864 return XML_ERROR_BINARY_ENTITY_REF;
2865 if (entity->textPtr) {
2866 enum XML_Error result;
2867 if (! parser->m_defaultExpandInternal
2868 if (parser->m_skippedEntityHandler)
2869 parser->m_skippedEntityHandler(pa
2870 0)
2871 else if (parser->m_defaultHandler)
2872 reportDefault(parser, enc, s, nex
2873 break;
2874 }
2875 result = processInternalEntity(parser
2876 if (result != XML_ERROR_NONE)
2877 return result;
2878 } else if (parser->m_externalEntityRefH
2879 const XML_Char *context;
2880 entity->open = XML_TRUE;
2881 context = getContext(parser);
2882 entity->open = XML_FALSE;
2883 if (! context)
2884 return XML_ERROR_NO_MEMORY;
2885 if (! parser->m_externalEntityRefHand
2886 parser->m_externalEntityRefHa
2887 entity->systemId, entity->pub
2888 return XML_ERROR_EXTERNAL_ENTITY_HA
2889 poolDiscard(&parser->m_tempPool);
2890 } else if (parser->m_defaultHandler)
2891 reportDefault(parser, enc, s, next);
2892 break;
2893 }
2894 case XML_TOK_START_TAG_NO_ATTS:
2895 /* fall through */
2896 case XML_TOK_START_TAG_WITH_ATTS: {
2897 TAG *tag;
2898 enum XML_Error result;
2899 XML_Char *toPtr;
2900 if (parser->m_freeTagList) {
2901 tag = parser->m_freeTagList;
2902 parser->m_freeTagList = parser->m_fre
2903 } else {
2904 tag = (TAG *)MALLOC(parser, sizeof(TA
2905 if (! tag)
2906 return XML_ERROR_NO_MEMORY;
2907 tag->buf = (char *)MALLOC(parser, INI
2908 if (! tag->buf) {
2909 FREE(parser, tag);
2910 return XML_ERROR_NO_MEMORY;
2911 }
2912 tag->bufEnd = tag->buf + INIT_TAG_BUF
2913 }
2914 tag->bindings = NULL;
2915 tag->parent = parser->m_tagStack;
2916 parser->m_tagStack = tag;
2917 tag->name.localPart = NULL;
2918 tag->name.prefix = NULL;
2919 tag->rawName = s + enc->minBytesPerChar
2920 tag->rawNameLength = XmlNameLength(enc,
2921 ++parser->m_tagLevel;
2922 {
2923 const char *rawNameEnd = tag->rawName
2924 const char *fromPtr = tag->rawName;
2925 toPtr = (XML_Char *)tag->buf;
2926 for (;;) {
2927 int bufSize;
2928 int convLen;
2929 const enum XML_Convert_Result conve
2930 = XmlConvert(enc, &fromPtr, raw
2931 (ICHAR *)tag->bufE
2932 convLen = (int)(toPtr - (XML_Char *
2933 if ((fromPtr >= rawNameEnd)
2934 || (convert_res == XML_CONVERT_
2935 tag->name.strLen = convLen;
2936 break;
2937 }
2938 bufSize = (int)(tag->bufEnd - tag->
2939 {
2940 char *temp = (char *)REALLOC(pars
2941 if (temp == NULL)
2942 return XML_ERROR_NO_MEMORY;
2943 tag->buf = temp;
2944 tag->bufEnd = temp + bufSize;
2945 toPtr = (XML_Char *)temp + convLe
2946 }
2947 }
2948 }
2949 tag->name.str = (XML_Char *)tag->buf;
2950 *toPtr = XML_T('\0');
2951 result
2952 = storeAtts(parser, enc, s, &(tag->
2953 if (result)
2954 return result;
2955 if (parser->m_startElementHandler)
2956 parser->m_startElementHandler(parser-
2957 (const
2958 else if (parser->m_defaultHandler)
2959 reportDefault(parser, enc, s, next);
2960 poolClear(&parser->m_tempPool);
2961 break;
2962 }
2963 case XML_TOK_EMPTY_ELEMENT_NO_ATTS:
2964 /* fall through */
2965 case XML_TOK_EMPTY_ELEMENT_WITH_ATTS: {
2966 const char *rawName = s + enc->minBytes
2967 enum XML_Error result;
2968 BINDING *bindings = NULL;
2969 XML_Bool noElmHandlers = XML_TRUE;
2970 TAG_NAME name;
2971 name.str = poolStoreString(&parser->m_t
2972 rawName + Xm
2973 if (! name.str)
2974 return XML_ERROR_NO_MEMORY;
2975 poolFinish(&parser->m_tempPool);
2976 result = storeAtts(parser, enc, s, &nam
2977 XML_ACCOUNT_NONE /*
2978 if (result != XML_ERROR_NONE) {
2979 freeBindings(parser, bindings);
2980 return result;
2981 }
2982 poolFinish(&parser->m_tempPool);
2983 if (parser->m_startElementHandler) {
2984 parser->m_startElementHandler(parser-
2985 (const
2986 noElmHandlers = XML_FALSE;
2987 }
2988 if (parser->m_endElementHandler) {
2989 if (parser->m_startElementHandler)
2990 *eventPP = *eventEndPP;
2991 parser->m_endElementHandler(parser->m
2992 noElmHandlers = XML_FALSE;
2993 }
2994 if (noElmHandlers && parser->m_defaultH
2995 reportDefault(parser, enc, s, next);
2996 poolClear(&parser->m_tempPool);
2997 freeBindings(parser, bindings);
2998 }
2999 if ((parser->m_tagLevel == 0)
3000 && (parser->m_parsingStatus.parsing
3001 if (parser->m_parsingStatus.parsing =
3002 parser->m_processor = epilogProcess
3003 else
3004 return epilogProcessor(parser, next
3005 }
3006 break;
3007 case XML_TOK_END_TAG:
3008 if (parser->m_tagLevel == startTagLevel
3009 return XML_ERROR_ASYNC_ENTITY;
3010 else {
3011 int len;
3012 const char *rawName;
3013 TAG *tag = parser->m_tagStack;
3014 parser->m_tagStack = tag->parent;
3015 tag->parent = parser->m_freeTagList;
3016 parser->m_freeTagList = tag;
3017 rawName = s + enc->minBytesPerChar *
3018 len = XmlNameLength(enc, rawName);
3019 if (len != tag->rawNameLength
3020 || memcmp(tag->rawName, rawName,
3021 *eventPP = rawName;
3022 return XML_ERROR_TAG_MISMATCH;
3023 }
3024 --parser->m_tagLevel;
3025 if (parser->m_endElementHandler) {
3026 const XML_Char *localPart;
3027 const XML_Char *prefix;
3028 XML_Char *uri;
3029 localPart = tag->name.localPart;
3030 if (parser->m_ns && localPart) {
3031 /* localPart and prefix may have
3032 tag->name.str, since this poin
3033 buffer which gets re-used; so
3034 */
3035 uri = (XML_Char *)tag->name.str +
3036 /* don't need to check for space
3037 while (*localPart)
3038 *uri++ = *localPart++;
3039 prefix = (XML_Char *)tag->name.pr
3040 if (parser->m_ns_triplets && pref
3041 *uri++ = parser->m_namespaceSep
3042 while (*prefix)
3043 *uri++ = *prefix++;
3044 }
3045 *uri = XML_T('\0');
3046 }
3047 parser->m_endElementHandler(parser-
3048 } else if (parser->m_defaultHandler)
3049 reportDefault(parser, enc, s, next)
3050 while (tag->bindings) {
3051 BINDING *b = tag->bindings;
3052 if (parser->m_endNamespaceDeclHandl
3053 parser->m_endNamespaceDeclHandler
3054
3055 tag->bindings = tag->bindings->next
3056 b->nextTagBinding = parser->m_freeB
3057 parser->m_freeBindingList = b;
3058 b->prefix->binding = b->prevPrefixB
3059 }
3060 if ((parser->m_tagLevel == 0)
3061 && (parser->m_parsingStatus.parsi
3062 if (parser->m_parsingStatus.parsing
3063 parser->m_processor = epilogProce
3064 else
3065 return epilogProcessor(parser, ne
3066 }
3067 }
3068 break;
3069 case XML_TOK_CHAR_REF: {
3070 int n = XmlCharRefNumber(enc, s);
3071 if (n < 0)
3072 return XML_ERROR_BAD_CHAR_REF;
3073 if (parser->m_characterDataHandler) {
3074 XML_Char buf[XML_ENCODE_MAX];
3075 parser->m_characterDataHandler(parser
3076 XmlEnc
3077 } else if (parser->m_defaultHandler)
3078 reportDefault(parser, enc, s, next);
3079 } break;
3080 case XML_TOK_XML_DECL:
3081 return XML_ERROR_MISPLACED_XML_PI;
3082 case XML_TOK_DATA_NEWLINE:
3083 if (parser->m_characterDataHandler) {
3084 XML_Char c = 0xA;
3085 parser->m_characterDataHandler(parser
3086 } else if (parser->m_defaultHandler)
3087 reportDefault(parser, enc, s, next);
3088 break;
3089 case XML_TOK_CDATA_SECT_OPEN: {
3090 enum XML_Error result;
3091 if (parser->m_startCdataSectionHandler)
3092 parser->m_startCdataSectionHandler(pa
3093 /* BEGIN disabled code */
3094 /* Suppose you doing a transformation o
3095 changing only the character data. Y
3096 and a characterDataHandler. The def
3097 characters through. The characterDa
3098 transformation and writes the charac
3099 necessary. This case will fail to w
3100 following two lines (because & and <
3101 be incorrectly escaped).
3102
3103 However, now we have a start/endCdat
3104 easier to let the user deal with thi
3105 */
3106 else if (0 && parser->m_characterDataHa
3107 parser->m_characterDataHandler(parser
3108 0);
3109 /* END disabled code */
3110 else if (parser->m_defaultHandler)
3111 reportDefault(parser, enc, s, next);
3112 result
3113 = doCdataSection(parser, enc, &next
3114 if (result != XML_ERROR_NONE)
3115 return result;
3116 else if (! next) {
3117 parser->m_processor = cdataSectionPro
3118 return result;
3119 }
3120 } break;
3121 case XML_TOK_TRAILING_RSQB:
3122 if (haveMore) {
3123 *nextPtr = s;
3124 return XML_ERROR_NONE;
3125 }
3126 if (parser->m_characterDataHandler) {
3127 if (MUST_CONVERT(enc, s)) {
3128 ICHAR *dataPtr = (ICHAR *)parser->m
3129 XmlConvert(enc, &s, end, &dataPtr,
3130 parser->m_characterDataHandler(
3131 parser->m_handlerArg, parser->m
3132 (int)(dataPtr - (ICHAR *)parser
3133 } else
3134 parser->m_characterDataHandler(
3135 parser->m_handlerArg, (XML_Char
3136 (int)((XML_Char *)end - (XML_Ch
3137 } else if (parser->m_defaultHandler)
3138 reportDefault(parser, enc, s, end);
3139 /* We are at the end of the final buffe
3140 XML_SUSPENDED, XML_FINISHED?
3141 */
3142 if (startTagLevel == 0) {
3143 *eventPP = end;
3144 return XML_ERROR_NO_ELEMENTS;
3145 }
3146 if (parser->m_tagLevel != startTagLevel
3147 *eventPP = end;
3148 return XML_ERROR_ASYNC_ENTITY;
3149 }
3150 *nextPtr = end;
3151 return XML_ERROR_NONE;
3152 case XML_TOK_DATA_CHARS: {
3153 XML_CharacterDataHandler charDataHandle
3154 if (charDataHandler) {
3155 if (MUST_CONVERT(enc, s)) {
3156 for (;;) {
3157 ICHAR *dataPtr = (ICHAR *)parser-
3158 const enum XML_Convert_Result con
3159 enc, &s, next, &dataPtr, (ICH
3160 *eventEndPP = s;
3161 charDataHandler(parser->m_handler
3162 (int)(dataPtr - (
3163 if ((convert_res == XML_CONVERT_C
3164 || (convert_res == XML_CONVER
3165 break;
3166 *eventPP = s;
3167 }
3168 } else
3169 charDataHandler(parser->m_handlerAr
3170 (int)((XML_Char *)n
3171 } else if (parser->m_defaultHandler)
3172 reportDefault(parser, enc, s, next);
3173 } break;
3174 case XML_TOK_PI:
3175 if (! reportProcessingInstruction(parse
3176 return XML_ERROR_NO_MEMORY;
3177 break;
3178 case XML_TOK_COMMENT:
3179 if (! reportComment(parser, enc, s, nex
3180 return XML_ERROR_NO_MEMORY;
3181 break;
3182 default:
3183 /* All of the tokens produced by XmlCon
3184 * explicit cases, so this default is n
3185 * However it is a useful safety net, s
3186 * simply exclude it from the coverage
3187 *
3188 * LCOV_EXCL_START
3189 */
3190 if (parser->m_defaultHandler)
3191 reportDefault(parser, enc, s, next);
3192 break;
3193 /* LCOV_EXCL_STOP */
3194 }
3195 *eventPP = s = next;
3196 switch (parser->m_parsingStatus.parsing)
3197 case XML_SUSPENDED:
3198 *nextPtr = next;
3199 return XML_ERROR_NONE;
3200 case XML_FINISHED:
3201 return XML_ERROR_ABORTED;
3202 default:;
3203 }
3204 }
3205 /* not reached */
3206 }
3207
3208 /* This function does not call free() on the
3209 * moving it to the parser's m_freeBindingLis
3210 * reused as appropriate.
3211 */
3212 static void
3213 freeBindings(XML_Parser parser, BINDING *bind
3214 while (bindings) {
3215 BINDING *b = bindings;
3216
3217 /* m_startNamespaceDeclHandler will have
3218 * binding in addBindings(), so call the
3219 */
3220 if (parser->m_endNamespaceDeclHandler)
3221 parser->m_endNamespaceDeclHandler(parse
3222
3223 bindings = bindings->nextTagBinding;
3224 b->nextTagBinding = parser->m_freeBinding
3225 parser->m_freeBindingList = b;
3226 b->prefix->binding = b->prevPrefixBinding
3227 }
3228 }
3229
3230 /* Precondition: all arguments must be non-NU
3231 Purpose:
3232 - normalize attributes
3233 - check attributes for well-formedness
3234 - generate namespace aware attribute names
3235 - build list of attributes for startElemen
3236 - default attributes
3237 - process namespace declarations (check an
3238 - generate namespace aware element name (U
3239 */
3240 static enum XML_Error
3241 storeAtts(XML_Parser parser, const ENCODING *
3242 TAG_NAME *tagNamePtr, BINDING **bin
3243 enum XML_Account account) {
3244 DTD *const dtd = parser->m_dtd; /* save one
3245 ELEMENT_TYPE *elementType;
3246 int nDefaultAtts;
3247 const XML_Char **appAtts; /* the attribute
3248 int attIndex = 0;
3249 int prefixLen;
3250 int i;
3251 int n;
3252 XML_Char *uri;
3253 int nPrefixes = 0;
3254 BINDING *binding;
3255 const XML_Char *localPart;
3256
3257 /* lookup the element type name */
3258 elementType
3259 = (ELEMENT_TYPE *)lookup(parser, &dtd->
3260 if (! elementType) {
3261 const XML_Char *name = poolCopyString(&dt
3262 if (! name)
3263 return XML_ERROR_NO_MEMORY;
3264 elementType = (ELEMENT_TYPE *)lookup(pars
3265 size
3266 if (! elementType)
3267 return XML_ERROR_NO_MEMORY;
3268 if (parser->m_ns && ! setElementTypePrefi
3269 return XML_ERROR_NO_MEMORY;
3270 }
3271 nDefaultAtts = elementType->nDefaultAtts;
3272
3273 /* get the attributes from the tokenizer */
3274 n = XmlGetAttributes(enc, attStr, parser->m
3275
3276 /* Detect and prevent integer overflow */
3277 if (n > INT_MAX - nDefaultAtts) {
3278 return XML_ERROR_NO_MEMORY;
3279 }
3280
3281 if (n + nDefaultAtts > parser->m_attsSize)
3282 int oldAttsSize = parser->m_attsSize;
3283 ATTRIBUTE *temp;
3284 #ifdef XML_ATTR_INFO
3285 XML_AttrInfo *temp2;
3286 #endif
3287
3288 /* Detect and prevent integer overflow */
3289 if ((nDefaultAtts > INT_MAX - INIT_ATTS_S
3290 || (n > INT_MAX - (nDefaultAtts + INI
3291 return XML_ERROR_NO_MEMORY;
3292 }
3293
3294 parser->m_attsSize = n + nDefaultAtts + I
3295
3296 /* Detect and prevent integer overflow.
3297 * The preprocessor guard addresses the "
3298 * from -Wtype-limits on platforms where
3299 * sizeof(unsigned int) < sizeof(size_t),
3300 #if UINT_MAX >= SIZE_MAX
3301 if ((unsigned)parser->m_attsSize > (size_
3302 parser->m_attsSize = oldAttsSize;
3303 return XML_ERROR_NO_MEMORY;
3304 }
3305 #endif
3306
3307 temp = (ATTRIBUTE *)REALLOC(parser, (void
3308 parser->m_att
3309 if (temp == NULL) {
3310 parser->m_attsSize = oldAttsSize;
3311 return XML_ERROR_NO_MEMORY;
3312 }
3313 parser->m_atts = temp;
3314 #ifdef XML_ATTR_INFO
3315 /* Detect and prevent integer overflow.
3316 * The preprocessor guard addresses the "
3317 * from -Wtype-limits on platforms where
3318 * sizeof(unsigned int) < sizeof(size_t),
3319 # if UINT_MAX >= SIZE_MAX
3320 if ((unsigned)parser->m_attsSize > (size_
3321 parser->m_attsSize = oldAttsSize;
3322 return XML_ERROR_NO_MEMORY;
3323 }
3324 # endif
3325
3326 temp2 = (XML_AttrInfo *)REALLOC(parser, (
3327 parser->m
3328 if (temp2 == NULL) {
3329 parser->m_attsSize = oldAttsSize;
3330 return XML_ERROR_NO_MEMORY;
3331 }
3332 parser->m_attInfo = temp2;
3333 #endif
3334 if (n > oldAttsSize)
3335 XmlGetAttributes(enc, attStr, n, parser
3336 }
3337
3338 appAtts = (const XML_Char **)parser->m_atts
3339 for (i = 0; i < n; i++) {
3340 ATTRIBUTE *currAtt = &parser->m_atts[i];
3341 #ifdef XML_ATTR_INFO
3342 XML_AttrInfo *currAttInfo = &parser->m_at
3343 #endif
3344 /* add the name and value to the attribut
3345 ATTRIBUTE_ID *attId
3346 = getAttributeId(parser, enc, currAtt
3347 currAtt->name + XmlN
3348 if (! attId)
3349 return XML_ERROR_NO_MEMORY;
3350 #ifdef XML_ATTR_INFO
3351 currAttInfo->nameStart
3352 = parser->m_parseEndByteIndex - (pars
3353 currAttInfo->nameEnd
3354 = currAttInfo->nameStart + XmlNameLen
3355 currAttInfo->valueStart = parser->m_parse
3356 - (parser->m_pa
3357 currAttInfo->valueEnd = parser->m_parseEn
3358 - (parser->m_pars
3359 #endif
3360 /* Detect duplicate attributes by their Q
3361 namespace processing is turned on and
3362 namespace are used. For this case we h
3363 */
3364 if ((attId->name)[-1]) {
3365 if (enc == parser->m_encoding)
3366 parser->m_eventPtr = parser->m_atts[i
3367 return XML_ERROR_DUPLICATE_ATTRIBUTE;
3368 }
3369 (attId->name)[-1] = 1;
3370 appAtts[attIndex++] = attId->name;
3371 if (! parser->m_atts[i].normalized) {
3372 enum XML_Error result;
3373 XML_Bool isCdata = XML_TRUE;
3374
3375 /* figure out whether declared as other
3376 if (attId->maybeTokenized) {
3377 int j;
3378 for (j = 0; j < nDefaultAtts; j++) {
3379 if (attId == elementType->defaultAt
3380 isCdata = elementType->defaultAtt
3381 break;
3382 }
3383 }
3384 }
3385
3386 /* normalize the attribute value */
3387 result = storeAttributeValue(
3388 parser, enc, isCdata, parser->m_att
3389 parser->m_atts[i].valueEnd, &parser
3390 if (result)
3391 return result;
3392 appAtts[attIndex] = poolStart(&parser->
3393 poolFinish(&parser->m_tempPool);
3394 } else {
3395 /* the value did not need normalizing *
3396 appAtts[attIndex] = poolStoreString(&pa
3397 par
3398 par
3399 if (appAtts[attIndex] == 0)
3400 return XML_ERROR_NO_MEMORY;
3401 poolFinish(&parser->m_tempPool);
3402 }
3403 /* handle prefixed attribute names */
3404 if (attId->prefix) {
3405 if (attId->xmlns) {
3406 /* deal with namespace declarations h
3407 enum XML_Error result = addBinding(pa
3408 ap
3409 if (result)
3410 return result;
3411 --attIndex;
3412 } else {
3413 /* deal with other prefixed names lat
3414 attIndex++;
3415 nPrefixes++;
3416 (attId->name)[-1] = 2;
3417 }
3418 } else
3419 attIndex++;
3420 }
3421
3422 /* set-up for XML_GetSpecifiedAttributeCoun
3423 parser->m_nSpecifiedAtts = attIndex;
3424 if (elementType->idAtt && (elementType->idA
3425 for (i = 0; i < attIndex; i += 2)
3426 if (appAtts[i] == elementType->idAtt->n
3427 parser->m_idAttIndex = i;
3428 break;
3429 }
3430 } else
3431 parser->m_idAttIndex = -1;
3432
3433 /* do attribute defaulting */
3434 for (i = 0; i < nDefaultAtts; i++) {
3435 const DEFAULT_ATTRIBUTE *da = elementType
3436 if (! (da->id->name)[-1] && da->value) {
3437 if (da->id->prefix) {
3438 if (da->id->xmlns) {
3439 enum XML_Error result = addBinding(
3440
3441 if (result)
3442 return result;
3443 } else {
3444 (da->id->name)[-1] = 2;
3445 nPrefixes++;
3446 appAtts[attIndex++] = da->id->name;
3447 appAtts[attIndex++] = da->value;
3448 }
3449 } else {
3450 (da->id->name)[-1] = 1;
3451 appAtts[attIndex++] = da->id->name;
3452 appAtts[attIndex++] = da->value;
3453 }
3454 }
3455 }
3456 appAtts[attIndex] = 0;
3457
3458 /* expand prefixed attribute names, check f
3459 and clear flags that say whether attribu
3460 i = 0;
3461 if (nPrefixes) {
3462 int j; /* hash table index */
3463 unsigned long version = parser->m_nsAttsV
3464
3465 /* Detect and prevent invalid shift */
3466 if (parser->m_nsAttsPower >= sizeof(unsig
3467 return XML_ERROR_NO_MEMORY;
3468 }
3469
3470 unsigned int nsAttsSize = 1u << parser->m
3471 unsigned char oldNsAttsPower = parser->m_
3472 /* size of hash table must be at least 2
3473 if ((nPrefixes << 1)
3474 >> parser->m_nsAttsPower) { /* true f
3475 NS_ATT *temp;
3476 /* hash table size must also be a power
3477 while (nPrefixes >> parser->m_nsAttsPow
3478 ;
3479 if (parser->m_nsAttsPower < 3)
3480 parser->m_nsAttsPower = 3;
3481
3482 /* Detect and prevent invalid shift */
3483 if (parser->m_nsAttsPower >= sizeof(nsA
3484 /* Restore actual size of memory in m
3485 parser->m_nsAttsPower = oldNsAttsPowe
3486 return XML_ERROR_NO_MEMORY;
3487 }
3488
3489 nsAttsSize = 1u << parser->m_nsAttsPowe
3490
3491 /* Detect and prevent integer overflow.
3492 * The preprocessor guard addresses the
3493 * from -Wtype-limits on platforms wher
3494 * sizeof(unsigned int) < sizeof(size_t
3495 #if UINT_MAX >= SIZE_MAX
3496 if (nsAttsSize > (size_t)(-1) / sizeof(
3497 /* Restore actual size of memory in m
3498 parser->m_nsAttsPower = oldNsAttsPowe
3499 return XML_ERROR_NO_MEMORY;
3500 }
3501 #endif
3502
3503 temp = (NS_ATT *)REALLOC(parser, parser
3504 nsAttsSize * s
3505 if (! temp) {
3506 /* Restore actual size of memory in m
3507 parser->m_nsAttsPower = oldNsAttsPowe
3508 return XML_ERROR_NO_MEMORY;
3509 }
3510 parser->m_nsAtts = temp;
3511 version = 0; /* force re-initialization
3512 }
3513 /* using a version flag saves us from ini
3514 if (! version) { /* initialize version fl
3515 version = INIT_ATTS_VERSION;
3516 for (j = nsAttsSize; j != 0;)
3517 parser->m_nsAtts[--j].version = versi
3518 }
3519 parser->m_nsAttsVersion = --version;
3520
3521 /* expand prefixed names and check for du
3522 for (; i < attIndex; i += 2) {
3523 const XML_Char *s = appAtts[i];
3524 if (s[-1] == 2) { /* prefixed */
3525 ATTRIBUTE_ID *id;
3526 const BINDING *b;
3527 unsigned long uriHash;
3528 struct siphash sip_state;
3529 struct sipkey sip_key;
3530
3531 copy_salt_to_sipkey(parser, &sip_key)
3532 sip24_init(&sip_state, &sip_key);
3533
3534 ((XML_Char *)s)[-1] = 0; /* clear fla
3535 id = (ATTRIBUTE_ID *)lookup(parser, &
3536 if (! id || ! id->prefix) {
3537 /* This code is walking through the
3538 * with (in this case) a prefixed a
3539 * the array, the attribute must ha
3540 * has to have passed through the h
3541 * already. That implies that an e
3542 * exists, so the lookup above will
3543 * already allocated memory. There
3544 * the allocator to fail, so the co
3545 * fulfilled.
3546 *
3547 * Since it is difficult to be cert
3548 * analysis is complete, we retain
3549 * remove the code from coverage te
3550 */
3551 return XML_ERROR_NO_MEMORY; /* LCOV
3552 }
3553 b = id->prefix->binding;
3554 if (! b)
3555 return XML_ERROR_UNBOUND_PREFIX;
3556
3557 for (j = 0; j < b->uriLen; j++) {
3558 const XML_Char c = b->uri[j];
3559 if (! poolAppendChar(&parser->m_tem
3560 return XML_ERROR_NO_MEMORY;
3561 }
3562
3563 sip24_update(&sip_state, b->uri, b->u
3564
3565 while (*s++ != XML_T(ASCII_COLON))
3566 ;
3567
3568 sip24_update(&sip_state, s, keylen(s)
3569
3570 do { /* copies null terminator */
3571 if (! poolAppendChar(&parser->m_tem
3572 return XML_ERROR_NO_MEMORY;
3573 } while (*s++);
3574
3575 uriHash = (unsigned long)sip24_final(
3576
3577 { /* Check hash table for duplicate o
3578 Derived from code in lookup(pars
3579 */
3580 unsigned char step = 0;
3581 unsigned long mask = nsAttsSize - 1
3582 j = uriHash & mask; /* index into h
3583 while (parser->m_nsAtts[j].version
3584 /* for speed we compare stored ha
3585 if (uriHash == parser->m_nsAtts[j
3586 const XML_Char *s1 = poolStart(
3587 const XML_Char *s2 = parser->m_
3588 /* s1 is null terminated, but n
3589 for (; *s1 == *s2 && *s1 != 0;
3590 ;
3591 if (*s1 == 0)
3592 return XML_ERROR_DUPLICATE_AT
3593 }
3594 if (! step)
3595 step = PROBE_STEP(uriHash, mask
3596 j < step ? (j += nsAttsSize - ste
3597 }
3598 }
3599
3600 if (parser->m_ns_triplets) { /* appen
3601 parser->m_tempPool.ptr[-1] = parser
3602 s = b->prefix->name;
3603 do {
3604 if (! poolAppendChar(&parser->m_t
3605 return XML_ERROR_NO_MEMORY;
3606 } while (*s++);
3607 }
3608
3609 /* store expanded name in attribute l
3610 s = poolStart(&parser->m_tempPool);
3611 poolFinish(&parser->m_tempPool);
3612 appAtts[i] = s;
3613
3614 /* fill empty slot with new version,
3615 parser->m_nsAtts[j].version = version
3616 parser->m_nsAtts[j].hash = uriHash;
3617 parser->m_nsAtts[j].uriName = s;
3618
3619 if (! --nPrefixes) {
3620 i += 2;
3621 break;
3622 }
3623 } else /* not prefi
3624 ((XML_Char *)s)[-1] = 0; /* clear fla
3625 }
3626 }
3627 /* clear flags for the remaining attributes
3628 for (; i < attIndex; i += 2)
3629 ((XML_Char *)(appAtts[i]))[-1] = 0;
3630 for (binding = *bindingsPtr; binding; bindi
3631 binding->attId->name[-1] = 0;
3632
3633 if (! parser->m_ns)
3634 return XML_ERROR_NONE;
3635
3636 /* expand the element type name */
3637 if (elementType->prefix) {
3638 binding = elementType->prefix->binding;
3639 if (! binding)
3640 return XML_ERROR_UNBOUND_PREFIX;
3641 localPart = tagNamePtr->str;
3642 while (*localPart++ != XML_T(ASCII_COLON)
3643 ;
3644 } else if (dtd->defaultPrefix.binding) {
3645 binding = dtd->defaultPrefix.binding;
3646 localPart = tagNamePtr->str;
3647 } else
3648 return XML_ERROR_NONE;
3649 prefixLen = 0;
3650 if (parser->m_ns_triplets && binding->prefi
3651 for (; binding->prefix->name[prefixLen++]
3652 ; /* prefixLen includes null terminator
3653 }
3654 tagNamePtr->localPart = localPart;
3655 tagNamePtr->uriLen = binding->uriLen;
3656 tagNamePtr->prefix = binding->prefix->name;
3657 tagNamePtr->prefixLen = prefixLen;
3658 for (i = 0; localPart[i++];)
3659 ; /* i includes null terminator */
3660
3661 /* Detect and prevent integer overflow */
3662 if (binding->uriLen > INT_MAX - prefixLen
3663 || i > INT_MAX - (binding->uriLen + pre
3664 return XML_ERROR_NO_MEMORY;
3665 }
3666
3667 n = i + binding->uriLen + prefixLen;
3668 if (n > binding->uriAlloc) {
3669 TAG *p;
3670
3671 /* Detect and prevent integer overflow */
3672 if (n > INT_MAX - EXPAND_SPARE) {
3673 return XML_ERROR_NO_MEMORY;
3674 }
3675 /* Detect and prevent integer overflow.
3676 * The preprocessor guard addresses the "
3677 * from -Wtype-limits on platforms where
3678 * sizeof(unsigned int) < sizeof(size_t),
3679 #if UINT_MAX >= SIZE_MAX
3680 if ((unsigned)(n + EXPAND_SPARE) > (size_
3681 return XML_ERROR_NO_MEMORY;
3682 }
3683 #endif
3684
3685 uri = (XML_Char *)MALLOC(parser, (n + EXP
3686 if (! uri)
3687 return XML_ERROR_NO_MEMORY;
3688 binding->uriAlloc = n + EXPAND_SPARE;
3689 memcpy(uri, binding->uri, binding->uriLen
3690 for (p = parser->m_tagStack; p; p = p->pa
3691 if (p->name.str == binding->uri)
3692 p->name.str = uri;
3693 FREE(parser, binding->uri);
3694 binding->uri = uri;
3695 }
3696 /* if m_namespaceSeparator != '\0' then uri
3697 uri = binding->uri + binding->uriLen;
3698 memcpy(uri, localPart, i * sizeof(XML_Char)
3699 /* we always have a namespace separator bet
3700 if (prefixLen) {
3701 uri += i - 1;
3702 *uri = parser->m_namespaceSeparator; /* r
3703 memcpy(uri + 1, binding->prefix->name, pr
3704 }
3705 tagNamePtr->str = binding->uri;
3706 return XML_ERROR_NONE;
3707 }
3708
3709 static XML_Bool
3710 is_rfc3986_uri_char(XML_Char candidate) {
3711 // For the RFC 3986 ANBF grammar see
3712 // https://datatracker.ietf.org/doc/html/rf
3713
3714 switch (candidate) {
3715 // From rule "ALPHA" (uppercase half)
3716 case 'A':
3717 case 'B':
3718 case 'C':
3719 case 'D':
3720 case 'E':
3721 case 'F':
3722 case 'G':
3723 case 'H':
3724 case 'I':
3725 case 'J':
3726 case 'K':
3727 case 'L':
3728 case 'M':
3729 case 'N':
3730 case 'O':
3731 case 'P':
3732 case 'Q':
3733 case 'R':
3734 case 'S':
3735 case 'T':
3736 case 'U':
3737 case 'V':
3738 case 'W':
3739 case 'X':
3740 case 'Y':
3741 case 'Z':
3742
3743 // From rule "ALPHA" (lowercase half)
3744 case 'a':
3745 case 'b':
3746 case 'c':
3747 case 'd':
3748 case 'e':
3749 case 'f':
3750 case 'g':
3751 case 'h':
3752 case 'i':
3753 case 'j':
3754 case 'k':
3755 case 'l':
3756 case 'm':
3757 case 'n':
3758 case 'o':
3759 case 'p':
3760 case 'q':
3761 case 'r':
3762 case 's':
3763 case 't':
3764 case 'u':
3765 case 'v':
3766 case 'w':
3767 case 'x':
3768 case 'y':
3769 case 'z':
3770
3771 // From rule "DIGIT"
3772 case '0':
3773 case '1':
3774 case '2':
3775 case '3':
3776 case '4':
3777 case '5':
3778 case '6':
3779 case '7':
3780 case '8':
3781 case '9':
3782
3783 // From rule "pct-encoded"
3784 case '%':
3785
3786 // From rule "unreserved"
3787 case '-':
3788 case '.':
3789 case '_':
3790 case '~':
3791
3792 // From rule "gen-delims"
3793 case ':':
3794 case '/':
3795 case '?':
3796 case '#':
3797 case '[':
3798 case ']':
3799 case '@':
3800
3801 // From rule "sub-delims"
3802 case '!':
3803 case '$':
3804 case '&':
3805 case '\'':
3806 case '(':
3807 case ')':
3808 case '*':
3809 case '+':
3810 case ',':
3811 case ';':
3812 case '=':
3813 return XML_TRUE;
3814
3815 default:
3816 return XML_FALSE;
3817 }
3818 }
3819
3820 /* addBinding() overwrites the value of prefi
3821 Therefore one must keep track of the old v
3822 */
3823 static enum XML_Error
3824 addBinding(XML_Parser parser, PREFIX *prefix,
3825 const XML_Char *uri, BINDING **bin
3826 // "http://www.w3.org/XML/1998/namespace"
3827 static const XML_Char xmlNamespace[]
3828 = {ASCII_h, ASCII_t, ASCII_t,
3829 ASCII_SLASH, ASCII_SLASH, ASCII_w,
3830 ASCII_PERIOD, ASCII_w, ASCII_3,
3831 ASCII_r, ASCII_g, ASCII_SLA
3832 ASCII_L, ASCII_SLASH, ASCII_1,
3833 ASCII_8, ASCII_SLASH, ASCII_n,
3834 ASCII_e, ASCII_s, ASCII_p,
3835 ASCII_e, '\0'};
3836 static const int xmlLen = (int)sizeof(xmlNa
3837 // "http://www.w3.org/2000/xmlns/"
3838 static const XML_Char xmlnsNamespace[]
3839 = {ASCII_h, ASCII_t, ASCII_t,
3840 ASCII_SLASH, ASCII_w, ASCII_w,
3841 ASCII_3, ASCII_PERIOD, ASCII_o,
3842 ASCII_2, ASCII_0, ASCII_0,
3843 ASCII_m, ASCII_l, ASCII_n,
3844 static const int xmlnsLen
3845 = (int)sizeof(xmlnsNamespace) / sizeof(
3846
3847 XML_Bool mustBeXML = XML_FALSE;
3848 XML_Bool isXML = XML_TRUE;
3849 XML_Bool isXMLNS = XML_TRUE;
3850
3851 BINDING *b;
3852 int len;
3853
3854 /* empty URI is only valid for default name
3855 if (*uri == XML_T('\0') && prefix->name)
3856 return XML_ERROR_UNDECLARING_PREFIX;
3857
3858 if (prefix->name && prefix->name[0] == XML_
3859 && prefix->name[1] == XML_T(ASCII_m)
3860 && prefix->name[2] == XML_T(ASCII_l)) {
3861 /* Not allowed to bind xmlns */
3862 if (prefix->name[3] == XML_T(ASCII_n) &&
3863 && prefix->name[5] == XML_T('\0'))
3864 return XML_ERROR_RESERVED_PREFIX_XMLNS;
3865
3866 if (prefix->name[3] == XML_T('\0'))
3867 mustBeXML = XML_TRUE;
3868 }
3869
3870 for (len = 0; uri[len]; len++) {
3871 if (isXML && (len > xmlLen || uri[len] !=
3872 isXML = XML_FALSE;
3873
3874 if (! mustBeXML && isXMLNS
3875 && (len > xmlnsLen || uri[len] != xml
3876 isXMLNS = XML_FALSE;
3877
3878 // NOTE: While Expat does not validate na
3879 // today (and is not REQUIRED to do
3880 // namespaces specification) we hav
3881 // the application on top of Expat
3882 // element names ("qualified names"
3883 // "[uri sep] local [sep prefix] '\
3884 // in its element handler code) can
3885 // putting additional namespace sep
3886 // declarations. That would be amb
3887 //
3888 // While the HTML API docs of funct
3889 // advising against use of a namesp
3890 // appear in a URI for >20 years no
3891 // are using URI characters (':' (c
3892 // namespace separator, in practice
3893 // functional, we only reject names
3894 // application-chosen namespace sep
3895 // is a non-URI character with rega
3896 if (parser->m_ns && (uri[len] == parser->
3897 && ! is_rfc3986_uri_char(uri[len])) {
3898 return XML_ERROR_SYNTAX;
3899 }
3900 }
3901 isXML = isXML && len == xmlLen;
3902 isXMLNS = isXMLNS && len == xmlnsLen;
3903
3904 if (mustBeXML != isXML)
3905 return mustBeXML ? XML_ERROR_RESERVED_PRE
3906 : XML_ERROR_RESERVED_NAM
3907
3908 if (isXMLNS)
3909 return XML_ERROR_RESERVED_NAMESPACE_URI;
3910
3911 if (parser->m_namespaceSeparator)
3912 len++;
3913 if (parser->m_freeBindingList) {
3914 b = parser->m_freeBindingList;
3915 if (len > b->uriAlloc) {
3916 /* Detect and prevent integer overflow
3917 if (len > INT_MAX - EXPAND_SPARE) {
3918 return XML_ERROR_NO_MEMORY;
3919 }
3920
3921 /* Detect and prevent integer overflow.
3922 * The preprocessor guard addresses the
3923 * from -Wtype-limits on platforms wher
3924 * sizeof(unsigned int) < sizeof(size_t
3925 #if UINT_MAX >= SIZE_MAX
3926 if ((unsigned)(len + EXPAND_SPARE) > (s
3927 return XML_ERROR_NO_MEMORY;
3928 }
3929 #endif
3930
3931 XML_Char *temp = (XML_Char *)REALLOC(
3932 parser, b->uri, sizeof(XML_Char) *
3933 if (temp == NULL)
3934 return XML_ERROR_NO_MEMORY;
3935 b->uri = temp;
3936 b->uriAlloc = len + EXPAND_SPARE;
3937 }
3938 parser->m_freeBindingList = b->nextTagBin
3939 } else {
3940 b = (BINDING *)MALLOC(parser, sizeof(BIND
3941 if (! b)
3942 return XML_ERROR_NO_MEMORY;
3943
3944 /* Detect and prevent integer overflow */
3945 if (len > INT_MAX - EXPAND_SPARE) {
3946 return XML_ERROR_NO_MEMORY;
3947 }
3948 /* Detect and prevent integer overflow.
3949 * The preprocessor guard addresses the "
3950 * from -Wtype-limits on platforms where
3951 * sizeof(unsigned int) < sizeof(size_t),
3952 #if UINT_MAX >= SIZE_MAX
3953 if ((unsigned)(len + EXPAND_SPARE) > (siz
3954 return XML_ERROR_NO_MEMORY;
3955 }
3956 #endif
3957
3958 b->uri
3959 = (XML_Char *)MALLOC(parser, sizeof(X
3960 if (! b->uri) {
3961 FREE(parser, b);
3962 return XML_ERROR_NO_MEMORY;
3963 }
3964 b->uriAlloc = len + EXPAND_SPARE;
3965 }
3966 b->uriLen = len;
3967 memcpy(b->uri, uri, len * sizeof(XML_Char))
3968 if (parser->m_namespaceSeparator)
3969 b->uri[len - 1] = parser->m_namespaceSepa
3970 b->prefix = prefix;
3971 b->attId = attId;
3972 b->prevPrefixBinding = prefix->binding;
3973 /* NULL binding when default namespace unde
3974 if (*uri == XML_T('\0') && prefix == &parse
3975 prefix->binding = NULL;
3976 else
3977 prefix->binding = b;
3978 b->nextTagBinding = *bindingsPtr;
3979 *bindingsPtr = b;
3980 /* if attId == NULL then we are not startin
3981 if (attId && parser->m_startNamespaceDeclHa
3982 parser->m_startNamespaceDeclHandler(parse
3983 prefi
3984 return XML_ERROR_NONE;
3985 }
3986
3987 /* The idea here is to avoid using stack for
3988 the whole file is parsed with one call.
3989 */
3990 static enum XML_Error PTRCALL
3991 cdataSectionProcessor(XML_Parser parser, cons
3992 const char **endPtr) {
3993 enum XML_Error result = doCdataSection(
3994 parser, parser->m_encoding, &start, end
3995 (XML_Bool)! parser->m_parsingStatus.fin
3996 if (result != XML_ERROR_NONE)
3997 return result;
3998 if (start) {
3999 if (parser->m_parentParser) { /* we are p
4000 parser->m_processor = externalEntityCon
4001 return externalEntityContentProcessor(p
4002 } else {
4003 parser->m_processor = contentProcessor;
4004 return contentProcessor(parser, start,
4005 }
4006 }
4007 return result;
4008 }
4009
4010 /* startPtr gets set to non-null if the secti
4011 the section is not yet closed.
4012 */
4013 static enum XML_Error
4014 doCdataSection(XML_Parser parser, const ENCOD
4015 const char *end, const char **
4016 enum XML_Account account) {
4017 const char *s = *startPtr;
4018 const char **eventPP;
4019 const char **eventEndPP;
4020 if (enc == parser->m_encoding) {
4021 eventPP = &parser->m_eventPtr;
4022 *eventPP = s;
4023 eventEndPP = &parser->m_eventEndPtr;
4024 } else {
4025 eventPP = &(parser->m_openInternalEntitie
4026 eventEndPP = &(parser->m_openInternalEnti
4027 }
4028 *eventPP = s;
4029 *startPtr = NULL;
4030
4031 for (;;) {
4032 const char *next = s; /* in case of XML_T
4033 int tok = XmlCdataSectionTok(enc, s, end,
4034 #ifdef XML_DTD
4035 if (! accountingDiffTolerated(parser, tok
4036 accountingOnAbort(parser);
4037 return XML_ERROR_AMPLIFICATION_LIMIT_BR
4038 }
4039 #else
4040 UNUSED_P(account);
4041 #endif
4042 *eventEndPP = next;
4043 switch (tok) {
4044 case XML_TOK_CDATA_SECT_CLOSE:
4045 if (parser->m_endCdataSectionHandler)
4046 parser->m_endCdataSectionHandler(pars
4047 /* BEGIN disabled code */
4048 /* see comment under XML_TOK_CDATA_SECT
4049 else if (0 && parser->m_characterDataHa
4050 parser->m_characterDataHandler(parser
4051 0);
4052 /* END disabled code */
4053 else if (parser->m_defaultHandler)
4054 reportDefault(parser, enc, s, next);
4055 *startPtr = next;
4056 *nextPtr = next;
4057 if (parser->m_parsingStatus.parsing ==
4058 return XML_ERROR_ABORTED;
4059 else
4060 return XML_ERROR_NONE;
4061 case XML_TOK_DATA_NEWLINE:
4062 if (parser->m_characterDataHandler) {
4063 XML_Char c = 0xA;
4064 parser->m_characterDataHandler(parser
4065 } else if (parser->m_defaultHandler)
4066 reportDefault(parser, enc, s, next);
4067 break;
4068 case XML_TOK_DATA_CHARS: {
4069 XML_CharacterDataHandler charDataHandle
4070 if (charDataHandler) {
4071 if (MUST_CONVERT(enc, s)) {
4072 for (;;) {
4073 ICHAR *dataPtr = (ICHAR *)parser-
4074 const enum XML_Convert_Result con
4075 enc, &s, next, &dataPtr, (ICH
4076 *eventEndPP = next;
4077 charDataHandler(parser->m_handler
4078 (int)(dataPtr - (
4079 if ((convert_res == XML_CONVERT_C
4080 || (convert_res == XML_CONVER
4081 break;
4082 *eventPP = s;
4083 }
4084 } else
4085 charDataHandler(parser->m_handlerAr
4086 (int)((XML_Char *)n
4087 } else if (parser->m_defaultHandler)
4088 reportDefault(parser, enc, s, next);
4089 } break;
4090 case XML_TOK_INVALID:
4091 *eventPP = next;
4092 return XML_ERROR_INVALID_TOKEN;
4093 case XML_TOK_PARTIAL_CHAR:
4094 if (haveMore) {
4095 *nextPtr = s;
4096 return XML_ERROR_NONE;
4097 }
4098 return XML_ERROR_PARTIAL_CHAR;
4099 case XML_TOK_PARTIAL:
4100 case XML_TOK_NONE:
4101 if (haveMore) {
4102 *nextPtr = s;
4103 return XML_ERROR_NONE;
4104 }
4105 return XML_ERROR_UNCLOSED_CDATA_SECTION
4106 default:
4107 /* Every token returned by XmlCdataSect
4108 * explicit case, so this default case
4109 * We retain it as a safety net and exc
4110 * statistics.
4111 *
4112 * LCOV_EXCL_START
4113 */
4114 *eventPP = next;
4115 return XML_ERROR_UNEXPECTED_STATE;
4116 /* LCOV_EXCL_STOP */
4117 }
4118
4119 *eventPP = s = next;
4120 switch (parser->m_parsingStatus.parsing)
4121 case XML_SUSPENDED:
4122 *nextPtr = next;
4123 return XML_ERROR_NONE;
4124 case XML_FINISHED:
4125 return XML_ERROR_ABORTED;
4126 default:;
4127 }
4128 }
4129 /* not reached */
4130 }
4131
4132 #ifdef XML_DTD
4133
4134 /* The idea here is to avoid using stack for
4135 the whole file is parsed with one call.
4136 */
4137 static enum XML_Error PTRCALL
4138 ignoreSectionProcessor(XML_Parser parser, con
4139 const char **endPtr) {
4140 enum XML_Error result
4141 = doIgnoreSection(parser, parser->m_enc
4142 (XML_Bool)! parser->m
4143 if (result != XML_ERROR_NONE)
4144 return result;
4145 if (start) {
4146 parser->m_processor = prologProcessor;
4147 return prologProcessor(parser, start, end
4148 }
4149 return result;
4150 }
4151
4152 /* startPtr gets set to non-null is the secti
4153 if the section is not yet closed.
4154 */
4155 static enum XML_Error
4156 doIgnoreSection(XML_Parser parser, const ENCO
4157 const char *end, const char *
4158 const char *next = *startPtr; /* in case of
4159 int tok;
4160 const char *s = *startPtr;
4161 const char **eventPP;
4162 const char **eventEndPP;
4163 if (enc == parser->m_encoding) {
4164 eventPP = &parser->m_eventPtr;
4165 *eventPP = s;
4166 eventEndPP = &parser->m_eventEndPtr;
4167 } else {
4168 /* It's not entirely clear, but it seems
4169 * of code cannot be executed. The only
4170 * is not 'encoding' are when this functi
4171 * from the internal entity processing, a
4172 * error in internal entities.
4173 *
4174 * Since it really isn't clear that this
4175 * and just remove it from our coverage t
4176 *
4177 * LCOV_EXCL_START
4178 */
4179 eventPP = &(parser->m_openInternalEntitie
4180 eventEndPP = &(parser->m_openInternalEnti
4181 /* LCOV_EXCL_STOP */
4182 }
4183 *eventPP = s;
4184 *startPtr = NULL;
4185 tok = XmlIgnoreSectionTok(enc, s, end, &nex
4186 # ifdef XML_DTD
4187 if (! accountingDiffTolerated(parser, tok,
4188 XML_ACCOUNT_D
4189 accountingOnAbort(parser);
4190 return XML_ERROR_AMPLIFICATION_LIMIT_BREA
4191 }
4192 # endif
4193 *eventEndPP = next;
4194 switch (tok) {
4195 case XML_TOK_IGNORE_SECT:
4196 if (parser->m_defaultHandler)
4197 reportDefault(parser, enc, s, next);
4198 *startPtr = next;
4199 *nextPtr = next;
4200 if (parser->m_parsingStatus.parsing == XM
4201 return XML_ERROR_ABORTED;
4202 else
4203 return XML_ERROR_NONE;
4204 case XML_TOK_INVALID:
4205 *eventPP = next;
4206 return XML_ERROR_INVALID_TOKEN;
4207 case XML_TOK_PARTIAL_CHAR:
4208 if (haveMore) {
4209 *nextPtr = s;
4210 return XML_ERROR_NONE;
4211 }
4212 return XML_ERROR_PARTIAL_CHAR;
4213 case XML_TOK_PARTIAL:
4214 case XML_TOK_NONE:
4215 if (haveMore) {
4216 *nextPtr = s;
4217 return XML_ERROR_NONE;
4218 }
4219 return XML_ERROR_SYNTAX; /* XML_ERROR_UNC
4220 default:
4221 /* All of the tokens that XmlIgnoreSectio
4222 * explicit cases to handle them, so this
4223 * executed. We keep it as a safety net
4224 * from our test coverage statistics.
4225 *
4226 * LCOV_EXCL_START
4227 */
4228 *eventPP = next;
4229 return XML_ERROR_UNEXPECTED_STATE;
4230 /* LCOV_EXCL_STOP */
4231 }
4232 /* not reached */
4233 }
4234
4235 #endif /* XML_DTD */
4236
4237 static enum XML_Error
4238 initializeEncoding(XML_Parser parser) {
4239 const char *s;
4240 #ifdef XML_UNICODE
4241 char encodingBuf[128];
4242 /* See comments about `protocolEncodingName
4243 if (! parser->m_protocolEncodingName)
4244 s = NULL;
4245 else {
4246 int i;
4247 for (i = 0; parser->m_protocolEncodingNam
4248 if (i == sizeof(encodingBuf) - 1
4249 || (parser->m_protocolEncodingName[
4250 encodingBuf[0] = '\0';
4251 break;
4252 }
4253 encodingBuf[i] = (char)parser->m_protoc
4254 }
4255 encodingBuf[i] = '\0';
4256 s = encodingBuf;
4257 }
4258 #else
4259 s = parser->m_protocolEncodingName;
4260 #endif
4261 if ((parser->m_ns ? XmlInitEncodingNS : Xml
4262 &parser->m_initEncoding, &parser->m
4263 return XML_ERROR_NONE;
4264 return handleUnknownEncoding(parser, parser
4265 }
4266
4267 static enum XML_Error
4268 processXmlDecl(XML_Parser parser, int isGener
4269 const char *next) {
4270 const char *encodingName = NULL;
4271 const XML_Char *storedEncName = NULL;
4272 const ENCODING *newEncoding = NULL;
4273 const char *version = NULL;
4274 const char *versionend = NULL;
4275 const XML_Char *storedversion = NULL;
4276 int standalone = -1;
4277
4278 #ifdef XML_DTD
4279 if (! accountingDiffTolerated(parser, XML_T
4280 XML_ACCOUNT_D
4281 accountingOnAbort(parser);
4282 return XML_ERROR_AMPLIFICATION_LIMIT_BREA
4283 }
4284 #endif
4285
4286 if (! (parser->m_ns ? XmlParseXmlDeclNS : X
4287 isGeneralTextEntity, parser->m_enco
4288 &version, &versionend, &encodingNam
4289 if (isGeneralTextEntity)
4290 return XML_ERROR_TEXT_DECL;
4291 else
4292 return XML_ERROR_XML_DECL;
4293 }
4294 if (! isGeneralTextEntity && standalone ==
4295 parser->m_dtd->standalone = XML_TRUE;
4296 #ifdef XML_DTD
4297 if (parser->m_paramEntityParsing
4298 == XML_PARAM_ENTITY_PARSING_UNLESS_ST
4299 parser->m_paramEntityParsing = XML_PARA
4300 #endif /* XML_DTD */
4301 }
4302 if (parser->m_xmlDeclHandler) {
4303 if (encodingName != NULL) {
4304 storedEncName = poolStoreString(
4305 &parser->m_temp2Pool, parser->m_enc
4306 encodingName + XmlNameLength(parser
4307 if (! storedEncName)
4308 return XML_ERROR_NO_MEMORY;
4309 poolFinish(&parser->m_temp2Pool);
4310 }
4311 if (version) {
4312 storedversion
4313 = poolStoreString(&parser->m_temp2P
4314 versionend - pars
4315 if (! storedversion)
4316 return XML_ERROR_NO_MEMORY;
4317 }
4318 parser->m_xmlDeclHandler(parser->m_handle
4319 standalone);
4320 } else if (parser->m_defaultHandler)
4321 reportDefault(parser, parser->m_encoding,
4322 if (parser->m_protocolEncodingName == NULL)
4323 if (newEncoding) {
4324 /* Check that the specified encoding do
4325 * the parser has already deduced. Do
4326 * of bytes in the smallest representat
4327 * this is UTF-16, is it the same endia
4328 */
4329 if (newEncoding->minBytesPerChar != par
4330 || (newEncoding->minBytesPerChar ==
4331 && newEncoding != parser->m_enc
4332 parser->m_eventPtr = encodingName;
4333 return XML_ERROR_INCORRECT_ENCODING;
4334 }
4335 parser->m_encoding = newEncoding;
4336 } else if (encodingName) {
4337 enum XML_Error result;
4338 if (! storedEncName) {
4339 storedEncName = poolStoreString(
4340 &parser->m_temp2Pool, parser->m_e
4341 encodingName + XmlNameLength(pars
4342 if (! storedEncName)
4343 return XML_ERROR_NO_MEMORY;
4344 }
4345 result = handleUnknownEncoding(parser,
4346 poolClear(&parser->m_temp2Pool);
4347 if (result == XML_ERROR_UNKNOWN_ENCODIN
4348 parser->m_eventPtr = encodingName;
4349 return result;
4350 }
4351 }
4352
4353 if (storedEncName || storedversion)
4354 poolClear(&parser->m_temp2Pool);
4355
4356 return XML_ERROR_NONE;
4357 }
4358
4359 static enum XML_Error
4360 handleUnknownEncoding(XML_Parser parser, cons
4361 if (parser->m_unknownEncodingHandler) {
4362 XML_Encoding info;
4363 int i;
4364 for (i = 0; i < 256; i++)
4365 info.map[i] = -1;
4366 info.convert = NULL;
4367 info.data = NULL;
4368 info.release = NULL;
4369 if (parser->m_unknownEncodingHandler(pars
4370 enco
4371 ENCODING *enc;
4372 parser->m_unknownEncodingMem = MALLOC(p
4373 if (! parser->m_unknownEncodingMem) {
4374 if (info.release)
4375 info.release(info.data);
4376 return XML_ERROR_NO_MEMORY;
4377 }
4378 enc = (parser->m_ns ? XmlInitUnknownEnc
4379 parser->m_unknownEncodingMem, info.
4380 if (enc) {
4381 parser->m_unknownEncodingData = info.
4382 parser->m_unknownEncodingRelease = in
4383 parser->m_encoding = enc;
4384 return XML_ERROR_NONE;
4385 }
4386 }
4387 if (info.release != NULL)
4388 info.release(info.data);
4389 }
4390 return XML_ERROR_UNKNOWN_ENCODING;
4391 }
4392
4393 static enum XML_Error PTRCALL
4394 prologInitProcessor(XML_Parser parser, const
4395 const char **nextPtr) {
4396 enum XML_Error result = initializeEncoding(
4397 if (result != XML_ERROR_NONE)
4398 return result;
4399 parser->m_processor = prologProcessor;
4400 return prologProcessor(parser, s, end, next
4401 }
4402
4403 #ifdef XML_DTD
4404
4405 static enum XML_Error PTRCALL
4406 externalParEntInitProcessor(XML_Parser parser
4407 const char **next
4408 enum XML_Error result = initializeEncoding(
4409 if (result != XML_ERROR_NONE)
4410 return result;
4411
4412 /* we know now that XML_Parse(Buffer) has b
4413 so we consider the external parameter en
4414 parser->m_dtd->paramEntityRead = XML_TRUE;
4415
4416 if (parser->m_prologState.inEntityValue) {
4417 parser->m_processor = entityValueInitProc
4418 return entityValueInitProcessor(parser, s
4419 } else {
4420 parser->m_processor = externalParEntProce
4421 return externalParEntProcessor(parser, s,
4422 }
4423 }
4424
4425 static enum XML_Error PTRCALL
4426 entityValueInitProcessor(XML_Parser parser, c
4427 const char **nextPtr
4428 int tok;
4429 const char *start = s;
4430 const char *next = start;
4431 parser->m_eventPtr = start;
4432
4433 for (;;) {
4434 tok = XmlPrologTok(parser->m_encoding, st
4435 /* Note: Except for XML_TOK_BOM below, th
4436 - storeEntityValue
4437 - processXmlDecl
4438 */
4439 parser->m_eventEndPtr = next;
4440 if (tok <= 0) {
4441 if (! parser->m_parsingStatus.finalBuff
4442 *nextPtr = s;
4443 return XML_ERROR_NONE;
4444 }
4445 switch (tok) {
4446 case XML_TOK_INVALID:
4447 return XML_ERROR_INVALID_TOKEN;
4448 case XML_TOK_PARTIAL:
4449 return XML_ERROR_UNCLOSED_TOKEN;
4450 case XML_TOK_PARTIAL_CHAR:
4451 return XML_ERROR_PARTIAL_CHAR;
4452 case XML_TOK_NONE: /* start == end */
4453 default:
4454 break;
4455 }
4456 /* found end of entity value - can stor
4457 return storeEntityValue(parser, parser-
4458 XML_ACCOUNT_DIR
4459 } else if (tok == XML_TOK_XML_DECL) {
4460 enum XML_Error result;
4461 result = processXmlDecl(parser, 0, star
4462 if (result != XML_ERROR_NONE)
4463 return result;
4464 /* At this point, m_parsingStatus.parsi
4465 * that to happen, a parameter entity p
4466 * to suspend the parser, which fails a
4467 * be aborted, but can't be suspended.
4468 */
4469 if (parser->m_parsingStatus.parsing ==
4470 return XML_ERROR_ABORTED;
4471 *nextPtr = next;
4472 /* stop scanning for text declaration -
4473 parser->m_processor = entityValueProces
4474 return entityValueProcessor(parser, nex
4475 }
4476 /* If we are at the end of the buffer, th
4477 return XML_TOK_NONE on the next call,
4478 function to exit with *nextPtr set to
4479 tokens, but not for the BOM - we would
4480 then, when this routine is entered the
4481 return XML_TOK_INVALID, since the BOM
4482 */
4483 else if (tok == XML_TOK_BOM && next == en
4484 && ! parser->m_parsingStatus.fin
4485 # ifdef XML_DTD
4486 if (! accountingDiffTolerated(parser, t
4487 XML_ACCOU
4488 accountingOnAbort(parser);
4489 return XML_ERROR_AMPLIFICATION_LIMIT_
4490 }
4491 # endif
4492
4493 *nextPtr = next;
4494 return XML_ERROR_NONE;
4495 }
4496 /* If we get this token, we have the star
4497 normal tag, but not a declaration (i.e
4498 "<!"). In a DTD context, that isn't l
4499 */
4500 else if (tok == XML_TOK_INSTANCE_START) {
4501 *nextPtr = next;
4502 return XML_ERROR_SYNTAX;
4503 }
4504 start = next;
4505 parser->m_eventPtr = start;
4506 }
4507 }
4508
4509 static enum XML_Error PTRCALL
4510 externalParEntProcessor(XML_Parser parser, co
4511 const char **nextPtr)
4512 const char *next = s;
4513 int tok;
4514
4515 tok = XmlPrologTok(parser->m_encoding, s, e
4516 if (tok <= 0) {
4517 if (! parser->m_parsingStatus.finalBuffer
4518 *nextPtr = s;
4519 return XML_ERROR_NONE;
4520 }
4521 switch (tok) {
4522 case XML_TOK_INVALID:
4523 return XML_ERROR_INVALID_TOKEN;
4524 case XML_TOK_PARTIAL:
4525 return XML_ERROR_UNCLOSED_TOKEN;
4526 case XML_TOK_PARTIAL_CHAR:
4527 return XML_ERROR_PARTIAL_CHAR;
4528 case XML_TOK_NONE: /* start == end */
4529 default:
4530 break;
4531 }
4532 }
4533 /* This would cause the next stage, i.e. do
4534 However, when parsing an external subset
4535 as valid, and report a syntax error, so
4536 account for the BOM bytes.
4537 */
4538 else if (tok == XML_TOK_BOM) {
4539 if (! accountingDiffTolerated(parser, tok
4540 XML_ACCOUNT
4541 accountingOnAbort(parser);
4542 return XML_ERROR_AMPLIFICATION_LIMIT_BR
4543 }
4544
4545 s = next;
4546 tok = XmlPrologTok(parser->m_encoding, s,
4547 }
4548
4549 parser->m_processor = prologProcessor;
4550 return doProlog(parser, parser->m_encoding,
4551 (XML_Bool)! parser->m_parsi
4552 XML_ACCOUNT_DIRECT);
4553 }
4554
4555 static enum XML_Error PTRCALL
4556 entityValueProcessor(XML_Parser parser, const
4557 const char **nextPtr) {
4558 const char *start = s;
4559 const char *next = s;
4560 const ENCODING *enc = parser->m_encoding;
4561 int tok;
4562
4563 for (;;) {
4564 tok = XmlPrologTok(enc, start, end, &next
4565 /* Note: These bytes are accounted later
4566 - storeEntityValue
4567 */
4568 if (tok <= 0) {
4569 if (! parser->m_parsingStatus.finalBuff
4570 *nextPtr = s;
4571 return XML_ERROR_NONE;
4572 }
4573 switch (tok) {
4574 case XML_TOK_INVALID:
4575 return XML_ERROR_INVALID_TOKEN;
4576 case XML_TOK_PARTIAL:
4577 return XML_ERROR_UNCLOSED_TOKEN;
4578 case XML_TOK_PARTIAL_CHAR:
4579 return XML_ERROR_PARTIAL_CHAR;
4580 case XML_TOK_NONE: /* start == end */
4581 default:
4582 break;
4583 }
4584 /* found end of entity value - can stor
4585 return storeEntityValue(parser, enc, s,
4586 }
4587 start = next;
4588 }
4589 }
4590
4591 #endif /* XML_DTD */
4592
4593 static enum XML_Error PTRCALL
4594 prologProcessor(XML_Parser parser, const char
4595 const char **nextPtr) {
4596 const char *next = s;
4597 int tok = XmlPrologTok(parser->m_encoding,
4598 return doProlog(parser, parser->m_encoding,
4599 (XML_Bool)! parser->m_parsi
4600 XML_ACCOUNT_DIRECT);
4601 }
4602
4603 static enum XML_Error
4604 doProlog(XML_Parser parser, const ENCODING *e
4605 int tok, const char *next, const cha
4606 XML_Bool allowClosingDoctype, enum X
4607 #ifdef XML_DTD
4608 static const XML_Char externalSubsetName[]
4609 #endif /* XML_DTD */
4610 static const XML_Char atypeCDATA[]
4611 = {ASCII_C, ASCII_D, ASCII_A, ASCII_T,
4612 static const XML_Char atypeID[] = {ASCII_I,
4613 static const XML_Char atypeIDREF[]
4614 = {ASCII_I, ASCII_D, ASCII_R, ASCII_E,
4615 static const XML_Char atypeIDREFS[]
4616 = {ASCII_I, ASCII_D, ASCII_R, ASCII_E,
4617 static const XML_Char atypeENTITY[]
4618 = {ASCII_E, ASCII_N, ASCII_T, ASCII_I,
4619 static const XML_Char atypeENTITIES[]
4620 = {ASCII_E, ASCII_N, ASCII_T, ASCII_I,
4621 ASCII_I, ASCII_E, ASCII_S, '\0'};
4622 static const XML_Char atypeNMTOKEN[]
4623 = {ASCII_N, ASCII_M, ASCII_T, ASCII_O,
4624 static const XML_Char atypeNMTOKENS[]
4625 = {ASCII_N, ASCII_M, ASCII_T, ASCII_O,
4626 ASCII_E, ASCII_N, ASCII_S, '\0'};
4627 static const XML_Char notationPrefix[]
4628 = {ASCII_N, ASCII_O, ASCII_T, ASCII_A,
4629 ASCII_I, ASCII_O, ASCII_N, ASCII_LPA
4630 static const XML_Char enumValueSep[] = {ASC
4631 static const XML_Char enumValueStart[] = {A
4632
4633 #ifndef XML_DTD
4634 UNUSED_P(account);
4635 #endif
4636
4637 /* save one level of indirection */
4638 DTD *const dtd = parser->m_dtd;
4639
4640 const char **eventPP;
4641 const char **eventEndPP;
4642 enum XML_Content_Quant quant;
4643
4644 if (enc == parser->m_encoding) {
4645 eventPP = &parser->m_eventPtr;
4646 eventEndPP = &parser->m_eventEndPtr;
4647 } else {
4648 eventPP = &(parser->m_openInternalEntitie
4649 eventEndPP = &(parser->m_openInternalEnti
4650 }
4651
4652 for (;;) {
4653 int role;
4654 XML_Bool handleDefault = XML_TRUE;
4655 *eventPP = s;
4656 *eventEndPP = next;
4657 if (tok <= 0) {
4658 if (haveMore && tok != XML_TOK_INVALID)
4659 *nextPtr = s;
4660 return XML_ERROR_NONE;
4661 }
4662 switch (tok) {
4663 case XML_TOK_INVALID:
4664 *eventPP = next;
4665 return XML_ERROR_INVALID_TOKEN;
4666 case XML_TOK_PARTIAL:
4667 return XML_ERROR_UNCLOSED_TOKEN;
4668 case XML_TOK_PARTIAL_CHAR:
4669 return XML_ERROR_PARTIAL_CHAR;
4670 case -XML_TOK_PROLOG_S:
4671 tok = -tok;
4672 break;
4673 case XML_TOK_NONE:
4674 #ifdef XML_DTD
4675 /* for internal PE NOT referenced bet
4676 if (enc != parser->m_encoding
4677 && ! parser->m_openInternalEntiti
4678 *nextPtr = s;
4679 return XML_ERROR_NONE;
4680 }
4681 /* WFC: PE Between Declarations - mus
4682 complete markup, not only for exte
4683 internal PEs if the reference occu
4684 */
4685 if (parser->m_isParamEntity || enc !=
4686 if (XmlTokenRole(&parser->m_prologS
4687 == XML_ROLE_ERROR)
4688 return XML_ERROR_INCOMPLETE_PE;
4689 *nextPtr = s;
4690 return XML_ERROR_NONE;
4691 }
4692 #endif /* XML_DTD */
4693 return XML_ERROR_NO_ELEMENTS;
4694 default:
4695 tok = -tok;
4696 next = end;
4697 break;
4698 }
4699 }
4700 role = XmlTokenRole(&parser->m_prologStat
4701 #ifdef XML_DTD
4702 switch (role) {
4703 case XML_ROLE_INSTANCE_START: // bytes ac
4704 case XML_ROLE_XML_DECL: // bytes ac
4705 case XML_ROLE_TEXT_DECL: // bytes ac
4706 break;
4707 default:
4708 if (! accountingDiffTolerated(parser, t
4709 accountingOnAbort(parser);
4710 return XML_ERROR_AMPLIFICATION_LIMIT_
4711 }
4712 }
4713 #endif
4714 switch (role) {
4715 case XML_ROLE_XML_DECL: {
4716 enum XML_Error result = processXmlDecl(
4717 if (result != XML_ERROR_NONE)
4718 return result;
4719 enc = parser->m_encoding;
4720 handleDefault = XML_FALSE;
4721 } break;
4722 case XML_ROLE_DOCTYPE_NAME:
4723 if (parser->m_startDoctypeDeclHandler)
4724 parser->m_doctypeName
4725 = poolStoreString(&parser->m_temp
4726 if (! parser->m_doctypeName)
4727 return XML_ERROR_NO_MEMORY;
4728 poolFinish(&parser->m_tempPool);
4729 parser->m_doctypePubid = NULL;
4730 handleDefault = XML_FALSE;
4731 }
4732 parser->m_doctypeSysid = NULL; /* alway
4733 break;
4734 case XML_ROLE_DOCTYPE_INTERNAL_SUBSET:
4735 if (parser->m_startDoctypeDeclHandler)
4736 parser->m_startDoctypeDeclHandler(
4737 parser->m_handlerArg, parser->m_d
4738 parser->m_doctypePubid, 1);
4739 parser->m_doctypeName = NULL;
4740 poolClear(&parser->m_tempPool);
4741 handleDefault = XML_FALSE;
4742 }
4743 break;
4744 #ifdef XML_DTD
4745 case XML_ROLE_TEXT_DECL: {
4746 enum XML_Error result = processXmlDecl(
4747 if (result != XML_ERROR_NONE)
4748 return result;
4749 enc = parser->m_encoding;
4750 handleDefault = XML_FALSE;
4751 } break;
4752 #endif /* XML_DTD */
4753 case XML_ROLE_DOCTYPE_PUBLIC_ID:
4754 #ifdef XML_DTD
4755 parser->m_useForeignDTD = XML_FALSE;
4756 parser->m_declEntity = (ENTITY *)lookup
4757 parser, &dtd->paramEntities, extern
4758 if (! parser->m_declEntity)
4759 return XML_ERROR_NO_MEMORY;
4760 #endif /* XML_DTD */
4761 dtd->hasParamEntityRefs = XML_TRUE;
4762 if (parser->m_startDoctypeDeclHandler)
4763 XML_Char *pubId;
4764 if (! XmlIsPublicId(enc, s, next, eve
4765 return XML_ERROR_PUBLICID;
4766 pubId = poolStoreString(&parser->m_te
4767 s + enc->minB
4768 next - enc->m
4769 if (! pubId)
4770 return XML_ERROR_NO_MEMORY;
4771 normalizePublicId(pubId);
4772 poolFinish(&parser->m_tempPool);
4773 parser->m_doctypePubid = pubId;
4774 handleDefault = XML_FALSE;
4775 goto alreadyChecked;
4776 }
4777 /* fall through */
4778 case XML_ROLE_ENTITY_PUBLIC_ID:
4779 if (! XmlIsPublicId(enc, s, next, event
4780 return XML_ERROR_PUBLICID;
4781 alreadyChecked:
4782 if (dtd->keepProcessing && parser->m_de
4783 XML_Char *tem
4784 = poolStoreString(&dtd->pool, enc
4785 next - enc->min
4786 if (! tem)
4787 return XML_ERROR_NO_MEMORY;
4788 normalizePublicId(tem);
4789 parser->m_declEntity->publicId = tem;
4790 poolFinish(&dtd->pool);
4791 /* Don't suppress the default handler
4792 * the XML_ROLE_DOCTYPE_PUBLIC_ID cas
4793 */
4794 if (parser->m_entityDeclHandler && ro
4795 handleDefault = XML_FALSE;
4796 }
4797 break;
4798 case XML_ROLE_DOCTYPE_CLOSE:
4799 if (allowClosingDoctype != XML_TRUE) {
4800 /* Must not close doctype from within
4801 return XML_ERROR_INVALID_TOKEN;
4802 }
4803
4804 if (parser->m_doctypeName) {
4805 parser->m_startDoctypeDeclHandler(
4806 parser->m_handlerArg, parser->m_d
4807 parser->m_doctypePubid, 0);
4808 poolClear(&parser->m_tempPool);
4809 handleDefault = XML_FALSE;
4810 }
4811 /* parser->m_doctypeSysid will be non-N
4812 XML_ROLE_DOCTYPE_SYSTEM_ID, even if
4813 was not set, indicating an external
4814 */
4815 #ifdef XML_DTD
4816 if (parser->m_doctypeSysid || parser->m
4817 XML_Bool hadParamEntityRefs = dtd->ha
4818 dtd->hasParamEntityRefs = XML_TRUE;
4819 if (parser->m_paramEntityParsing
4820 && parser->m_externalEntityRefHan
4821 ENTITY *entity = (ENTITY *)lookup(p
4822 e
4823 if (! entity) {
4824 /* The external subset name "#" w
4825 * inserted into the hash table a
4826 * external entity parsing, so no
4827 * and lookup() cannot fail.
4828 */
4829 return XML_ERROR_NO_MEMORY; /* LC
4830 }
4831 if (parser->m_useForeignDTD)
4832 entity->base = parser->m_curBase;
4833 dtd->paramEntityRead = XML_FALSE;
4834 if (! parser->m_externalEntityRefHa
4835 parser->m_externalEntityRef
4836 entity->systemId, entity->p
4837 return XML_ERROR_EXTERNAL_ENTITY_
4838 if (dtd->paramEntityRead) {
4839 if (! dtd->standalone && parser->
4840 && ! parser->m_notStandaloneH
4841 return XML_ERROR_NOT_STANDALONE
4842 }
4843 /* if we didn't read the foreign DT
4844 is no external subset and we mus
4845 */
4846 else if (! parser->m_doctypeSysid)
4847 dtd->hasParamEntityRefs = hadPara
4848 /* end of DTD - no need to update d
4849 }
4850 parser->m_useForeignDTD = XML_FALSE;
4851 }
4852 #endif /* XML_DTD */
4853 if (parser->m_endDoctypeDeclHandler) {
4854 parser->m_endDoctypeDeclHandler(parse
4855 handleDefault = XML_FALSE;
4856 }
4857 break;
4858 case XML_ROLE_INSTANCE_START:
4859 #ifdef XML_DTD
4860 /* if there is no DOCTYPE declaration t
4861 last chance to read the foreign DTD
4862 */
4863 if (parser->m_useForeignDTD) {
4864 XML_Bool hadParamEntityRefs = dtd->ha
4865 dtd->hasParamEntityRefs = XML_TRUE;
4866 if (parser->m_paramEntityParsing
4867 && parser->m_externalEntityRefHan
4868 ENTITY *entity = (ENTITY *)lookup(p
4869 e
4870 if (! entity)
4871 return XML_ERROR_NO_MEMORY;
4872 entity->base = parser->m_curBase;
4873 dtd->paramEntityRead = XML_FALSE;
4874 if (! parser->m_externalEntityRefHa
4875 parser->m_externalEntityRef
4876 entity->systemId, entity->p
4877 return XML_ERROR_EXTERNAL_ENTITY_
4878 if (dtd->paramEntityRead) {
4879 if (! dtd->standalone && parser->
4880 && ! parser->m_notStandaloneH
4881 return XML_ERROR_NOT_STANDALONE
4882 }
4883 /* if we didn't read the foreign DT
4884 is no external subset and we mus
4885 */
4886 else
4887 dtd->hasParamEntityRefs = hadPara
4888 /* end of DTD - no need to update d
4889 }
4890 }
4891 #endif /* XML_DTD */
4892 parser->m_processor = contentProcessor;
4893 return contentProcessor(parser, s, end,
4894 case XML_ROLE_ATTLIST_ELEMENT_NAME:
4895 parser->m_declElementType = getElementT
4896 if (! parser->m_declElementType)
4897 return XML_ERROR_NO_MEMORY;
4898 goto checkAttListDeclHandler;
4899 case XML_ROLE_ATTRIBUTE_NAME:
4900 parser->m_declAttributeId = getAttribut
4901 if (! parser->m_declAttributeId)
4902 return XML_ERROR_NO_MEMORY;
4903 parser->m_declAttributeIsCdata = XML_FA
4904 parser->m_declAttributeType = NULL;
4905 parser->m_declAttributeIsId = XML_FALSE
4906 goto checkAttListDeclHandler;
4907 case XML_ROLE_ATTRIBUTE_TYPE_CDATA:
4908 parser->m_declAttributeIsCdata = XML_TR
4909 parser->m_declAttributeType = atypeCDAT
4910 goto checkAttListDeclHandler;
4911 case XML_ROLE_ATTRIBUTE_TYPE_ID:
4912 parser->m_declAttributeIsId = XML_TRUE;
4913 parser->m_declAttributeType = atypeID;
4914 goto checkAttListDeclHandler;
4915 case XML_ROLE_ATTRIBUTE_TYPE_IDREF:
4916 parser->m_declAttributeType = atypeIDRE
4917 goto checkAttListDeclHandler;
4918 case XML_ROLE_ATTRIBUTE_TYPE_IDREFS:
4919 parser->m_declAttributeType = atypeIDRE
4920 goto checkAttListDeclHandler;
4921 case XML_ROLE_ATTRIBUTE_TYPE_ENTITY:
4922 parser->m_declAttributeType = atypeENTI
4923 goto checkAttListDeclHandler;
4924 case XML_ROLE_ATTRIBUTE_TYPE_ENTITIES:
4925 parser->m_declAttributeType = atypeENTI
4926 goto checkAttListDeclHandler;
4927 case XML_ROLE_ATTRIBUTE_TYPE_NMTOKEN:
4928 parser->m_declAttributeType = atypeNMTO
4929 goto checkAttListDeclHandler;
4930 case XML_ROLE_ATTRIBUTE_TYPE_NMTOKENS:
4931 parser->m_declAttributeType = atypeNMTO
4932 checkAttListDeclHandler:
4933 if (dtd->keepProcessing && parser->m_at
4934 handleDefault = XML_FALSE;
4935 break;
4936 case XML_ROLE_ATTRIBUTE_ENUM_VALUE:
4937 case XML_ROLE_ATTRIBUTE_NOTATION_VALUE:
4938 if (dtd->keepProcessing && parser->m_at
4939 const XML_Char *prefix;
4940 if (parser->m_declAttributeType) {
4941 prefix = enumValueSep;
4942 } else {
4943 prefix = (role == XML_ROLE_ATTRIBUT
4944
4945 }
4946 if (! poolAppendString(&parser->m_tem
4947 return XML_ERROR_NO_MEMORY;
4948 if (! poolAppend(&parser->m_tempPool,
4949 return XML_ERROR_NO_MEMORY;
4950 parser->m_declAttributeType = parser-
4951 handleDefault = XML_FALSE;
4952 }
4953 break;
4954 case XML_ROLE_IMPLIED_ATTRIBUTE_VALUE:
4955 case XML_ROLE_REQUIRED_ATTRIBUTE_VALUE:
4956 if (dtd->keepProcessing) {
4957 if (! defineAttribute(parser->m_declE
4958 parser->m_declA
4959 parser->m_declA
4960 parser->m_declA
4961 return XML_ERROR_NO_MEMORY;
4962 if (parser->m_attlistDeclHandler && p
4963 if (*parser->m_declAttributeType ==
4964 || (*parser->m_declAttributeTyp
4965 && parser->m_declAttributeT
4966 /* Enumerated or Notation type */
4967 if (! poolAppendChar(&parser->m_t
4968 || ! poolAppendChar(&parser->
4969 return XML_ERROR_NO_MEMORY;
4970 parser->m_declAttributeType = par
4971 poolFinish(&parser->m_tempPool);
4972 }
4973 *eventEndPP = s;
4974 parser->m_attlistDeclHandler(
4975 parser->m_handlerArg, parser->m
4976 parser->m_declAttributeId->name
4977 role == XML_ROLE_REQUIRED_ATTRI
4978 poolClear(&parser->m_tempPool);
4979 handleDefault = XML_FALSE;
4980 }
4981 }
4982 break;
4983 case XML_ROLE_DEFAULT_ATTRIBUTE_VALUE:
4984 case XML_ROLE_FIXED_ATTRIBUTE_VALUE:
4985 if (dtd->keepProcessing) {
4986 const XML_Char *attVal;
4987 enum XML_Error result = storeAttribut
4988 parser, enc, parser->m_declAttrib
4989 s + enc->minBytesPerChar, next -
4990 XML_ACCOUNT_NONE);
4991 if (result)
4992 return result;
4993 attVal = poolStart(&dtd->pool);
4994 poolFinish(&dtd->pool);
4995 /* ID attributes aren't allowed to ha
4996 if (! defineAttribute(
4997 parser->m_declElementType, pa
4998 parser->m_declAttributeIsCdat
4999 return XML_ERROR_NO_MEMORY;
5000 if (parser->m_attlistDeclHandler && p
5001 if (*parser->m_declAttributeType ==
5002 || (*parser->m_declAttributeTyp
5003 && parser->m_declAttributeT
5004 /* Enumerated or Notation type */
5005 if (! poolAppendChar(&parser->m_t
5006 || ! poolAppendChar(&parser->
5007 return XML_ERROR_NO_MEMORY;
5008 parser->m_declAttributeType = par
5009 poolFinish(&parser->m_tempPool);
5010 }
5011 *eventEndPP = s;
5012 parser->m_attlistDeclHandler(
5013 parser->m_handlerArg, parser->m
5014 parser->m_declAttributeId->name
5015 attVal, role == XML_ROLE_FIXED_
5016 poolClear(&parser->m_tempPool);
5017 handleDefault = XML_FALSE;
5018 }
5019 }
5020 break;
5021 case XML_ROLE_ENTITY_VALUE:
5022 if (dtd->keepProcessing) {
5023 enum XML_Error result
5024 = storeEntityValue(parser, enc, s
5025 next - enc->mi
5026 if (parser->m_declEntity) {
5027 parser->m_declEntity->textPtr = poo
5028 parser->m_declEntity->textLen
5029 = (int)(poolLength(&dtd->entity
5030 poolFinish(&dtd->entityValuePool);
5031 if (parser->m_entityDeclHandler) {
5032 *eventEndPP = s;
5033 parser->m_entityDeclHandler(
5034 parser->m_handlerArg, parser-
5035 parser->m_declEntity->is_para
5036 parser->m_declEntity->textLen
5037 handleDefault = XML_FALSE;
5038 }
5039 } else
5040 poolDiscard(&dtd->entityValuePool);
5041 if (result != XML_ERROR_NONE)
5042 return result;
5043 }
5044 break;
5045 case XML_ROLE_DOCTYPE_SYSTEM_ID:
5046 #ifdef XML_DTD
5047 parser->m_useForeignDTD = XML_FALSE;
5048 #endif /* XML_DTD */
5049 dtd->hasParamEntityRefs = XML_TRUE;
5050 if (parser->m_startDoctypeDeclHandler)
5051 parser->m_doctypeSysid = poolStoreStr
5052
5053
5054 if (parser->m_doctypeSysid == NULL)
5055 return XML_ERROR_NO_MEMORY;
5056 poolFinish(&parser->m_tempPool);
5057 handleDefault = XML_FALSE;
5058 }
5059 #ifdef XML_DTD
5060 else
5061 /* use externalSubsetName to make par
5062 for the case where no parser->m_st
5063 parser->m_doctypeSysid = externalSubs
5064 #endif /* XML_DTD */
5065 if (! dtd->standalone
5066 #ifdef XML_DTD
5067 && ! parser->m_paramEntityParsing
5068 #endif /* XML_DTD */
5069 && parser->m_notStandaloneHandler
5070 && ! parser->m_notStandaloneHandler
5071 return XML_ERROR_NOT_STANDALONE;
5072 #ifndef XML_DTD
5073 break;
5074 #else /* XML_DTD */
5075 if (! parser->m_declEntity) {
5076 parser->m_declEntity = (ENTITY *)look
5077 parser, &dtd->paramEntities, exte
5078 if (! parser->m_declEntity)
5079 return XML_ERROR_NO_MEMORY;
5080 parser->m_declEntity->publicId = NULL
5081 }
5082 #endif /* XML_DTD */
5083 /* fall through */
5084 case XML_ROLE_ENTITY_SYSTEM_ID:
5085 if (dtd->keepProcessing && parser->m_de
5086 parser->m_declEntity->systemId
5087 = poolStoreString(&dtd->pool, enc
5088 next - enc->min
5089 if (! parser->m_declEntity->systemId)
5090 return XML_ERROR_NO_MEMORY;
5091 parser->m_declEntity->base = parser->
5092 poolFinish(&dtd->pool);
5093 /* Don't suppress the default handler
5094 * the XML_ROLE_DOCTYPE_SYSTEM_ID cas
5095 */
5096 if (parser->m_entityDeclHandler && ro
5097 handleDefault = XML_FALSE;
5098 }
5099 break;
5100 case XML_ROLE_ENTITY_COMPLETE:
5101 if (dtd->keepProcessing && parser->m_de
5102 && parser->m_entityDeclHandler) {
5103 *eventEndPP = s;
5104 parser->m_entityDeclHandler(
5105 parser->m_handlerArg, parser->m_d
5106 parser->m_declEntity->is_param, 0
5107 parser->m_declEntity->systemId, p
5108 handleDefault = XML_FALSE;
5109 }
5110 break;
5111 case XML_ROLE_ENTITY_NOTATION_NAME:
5112 if (dtd->keepProcessing && parser->m_de
5113 parser->m_declEntity->notation
5114 = poolStoreString(&dtd->pool, enc
5115 if (! parser->m_declEntity->notation)
5116 return XML_ERROR_NO_MEMORY;
5117 poolFinish(&dtd->pool);
5118 if (parser->m_unparsedEntityDeclHandl
5119 *eventEndPP = s;
5120 parser->m_unparsedEntityDeclHandler
5121 parser->m_handlerArg, parser->m
5122 parser->m_declEntity->base, par
5123 parser->m_declEntity->publicId,
5124 handleDefault = XML_FALSE;
5125 } else if (parser->m_entityDeclHandle
5126 *eventEndPP = s;
5127 parser->m_entityDeclHandler(
5128 parser->m_handlerArg, parser->m
5129 parser->m_declEntity->base, par
5130 parser->m_declEntity->publicId,
5131 handleDefault = XML_FALSE;
5132 }
5133 }
5134 break;
5135 case XML_ROLE_GENERAL_ENTITY_NAME: {
5136 if (XmlPredefinedEntityName(enc, s, nex
5137 parser->m_declEntity = NULL;
5138 break;
5139 }
5140 if (dtd->keepProcessing) {
5141 const XML_Char *name = poolStoreStrin
5142 if (! name)
5143 return XML_ERROR_NO_MEMORY;
5144 parser->m_declEntity = (ENTITY *)look
5145
5146 if (! parser->m_declEntity)
5147 return XML_ERROR_NO_MEMORY;
5148 if (parser->m_declEntity->name != nam
5149 poolDiscard(&dtd->pool);
5150 parser->m_declEntity = NULL;
5151 } else {
5152 poolFinish(&dtd->pool);
5153 parser->m_declEntity->publicId = NU
5154 parser->m_declEntity->is_param = XM
5155 /* if we have a parent parser or ar
5156 entity, then the entity declarat
5157 */
5158 parser->m_declEntity->is_internal
5159 = ! (parser->m_parentParser ||
5160 if (parser->m_entityDeclHandler)
5161 handleDefault = XML_FALSE;
5162 }
5163 } else {
5164 poolDiscard(&dtd->pool);
5165 parser->m_declEntity = NULL;
5166 }
5167 } break;
5168 case XML_ROLE_PARAM_ENTITY_NAME:
5169 #ifdef XML_DTD
5170 if (dtd->keepProcessing) {
5171 const XML_Char *name = poolStoreStrin
5172 if (! name)
5173 return XML_ERROR_NO_MEMORY;
5174 parser->m_declEntity = (ENTITY *)look
5175
5176 if (! parser->m_declEntity)
5177 return XML_ERROR_NO_MEMORY;
5178 if (parser->m_declEntity->name != nam
5179 poolDiscard(&dtd->pool);
5180 parser->m_declEntity = NULL;
5181 } else {
5182 poolFinish(&dtd->pool);
5183 parser->m_declEntity->publicId = NU
5184 parser->m_declEntity->is_param = XM
5185 /* if we have a parent parser or ar
5186 entity, then the entity declarat
5187 */
5188 parser->m_declEntity->is_internal
5189 = ! (parser->m_parentParser ||
5190 if (parser->m_entityDeclHandler)
5191 handleDefault = XML_FALSE;
5192 }
5193 } else {
5194 poolDiscard(&dtd->pool);
5195 parser->m_declEntity = NULL;
5196 }
5197 #else /* not XML_DTD */
5198 parser->m_declEntity = NULL;
5199 #endif /* XML_DTD */
5200 break;
5201 case XML_ROLE_NOTATION_NAME:
5202 parser->m_declNotationPublicId = NULL;
5203 parser->m_declNotationName = NULL;
5204 if (parser->m_notationDeclHandler) {
5205 parser->m_declNotationName
5206 = poolStoreString(&parser->m_temp
5207 if (! parser->m_declNotationName)
5208 return XML_ERROR_NO_MEMORY;
5209 poolFinish(&parser->m_tempPool);
5210 handleDefault = XML_FALSE;
5211 }
5212 break;
5213 case XML_ROLE_NOTATION_PUBLIC_ID:
5214 if (! XmlIsPublicId(enc, s, next, event
5215 return XML_ERROR_PUBLICID;
5216 if (parser
5217 ->m_declNotationName) { /* mean
5218 XML_Char *tem = poolStoreString(&pars
5219 s + e
5220 next
5221 if (! tem)
5222 return XML_ERROR_NO_MEMORY;
5223 normalizePublicId(tem);
5224 parser->m_declNotationPublicId = tem;
5225 poolFinish(&parser->m_tempPool);
5226 handleDefault = XML_FALSE;
5227 }
5228 break;
5229 case XML_ROLE_NOTATION_SYSTEM_ID:
5230 if (parser->m_declNotationName && parse
5231 const XML_Char *systemId = poolStoreS
5232
5233
5234 if (! systemId)
5235 return XML_ERROR_NO_MEMORY;
5236 *eventEndPP = s;
5237 parser->m_notationDeclHandler(
5238 parser->m_handlerArg, parser->m_d
5239 systemId, parser->m_declNotationP
5240 handleDefault = XML_FALSE;
5241 }
5242 poolClear(&parser->m_tempPool);
5243 break;
5244 case XML_ROLE_NOTATION_NO_SYSTEM_ID:
5245 if (parser->m_declNotationPublicId && p
5246 *eventEndPP = s;
5247 parser->m_notationDeclHandler(
5248 parser->m_handlerArg, parser->m_d
5249 0, parser->m_declNotationPublicId
5250 handleDefault = XML_FALSE;
5251 }
5252 poolClear(&parser->m_tempPool);
5253 break;
5254 case XML_ROLE_ERROR:
5255 switch (tok) {
5256 case XML_TOK_PARAM_ENTITY_REF:
5257 /* PE references in internal subset a
5258 not allowed within declarations. *
5259 return XML_ERROR_PARAM_ENTITY_REF;
5260 case XML_TOK_XML_DECL:
5261 return XML_ERROR_MISPLACED_XML_PI;
5262 default:
5263 return XML_ERROR_SYNTAX;
5264 }
5265 #ifdef XML_DTD
5266 case XML_ROLE_IGNORE_SECT: {
5267 enum XML_Error result;
5268 if (parser->m_defaultHandler)
5269 reportDefault(parser, enc, s, next);
5270 handleDefault = XML_FALSE;
5271 result = doIgnoreSection(parser, enc, &
5272 if (result != XML_ERROR_NONE)
5273 return result;
5274 else if (! next) {
5275 parser->m_processor = ignoreSectionPr
5276 return result;
5277 }
5278 } break;
5279 #endif /* XML_DTD */
5280 case XML_ROLE_GROUP_OPEN:
5281 if (parser->m_prologState.level >= pars
5282 if (parser->m_groupSize) {
5283 {
5284 /* Detect and prevent integer ove
5285 if (parser->m_groupSize > (unsign
5286 return XML_ERROR_NO_MEMORY;
5287 }
5288
5289 char *const new_connector = (char
5290 parser, parser->m_groupConnec
5291 if (new_connector == NULL) {
5292 parser->m_groupSize /= 2;
5293 return XML_ERROR_NO_MEMORY;
5294 }
5295 parser->m_groupConnector = new_co
5296 }
5297
5298 if (dtd->scaffIndex) {
5299 /* Detect and prevent integer ove
5300 * The preprocessor guard address
5301 * from -Wtype-limits on platform
5302 * sizeof(unsigned int) < sizeof(
5303 #if UINT_MAX >= SIZE_MAX
5304 if (parser->m_groupSize > (size_t
5305 return XML_ERROR_NO_MEMORY;
5306 }
5307 #endif
5308
5309 int *const new_scaff_index = (int
5310 parser, dtd->scaffIndex, pars
5311 if (new_scaff_index == NULL)
5312 return XML_ERROR_NO_MEMORY;
5313 dtd->scaffIndex = new_scaff_index
5314 }
5315 } else {
5316 parser->m_groupConnector
5317 = (char *)MALLOC(parser, parser
5318 if (! parser->m_groupConnector) {
5319 parser->m_groupSize = 0;
5320 return XML_ERROR_NO_MEMORY;
5321 }
5322 }
5323 }
5324 parser->m_groupConnector[parser->m_prol
5325 if (dtd->in_eldecl) {
5326 int myindex = nextScaffoldPart(parser
5327 if (myindex < 0)
5328 return XML_ERROR_NO_MEMORY;
5329 assert(dtd->scaffIndex != NULL);
5330 dtd->scaffIndex[dtd->scaffLevel] = my
5331 dtd->scaffLevel++;
5332 dtd->scaffold[myindex].type = XML_CTY
5333 if (parser->m_elementDeclHandler)
5334 handleDefault = XML_FALSE;
5335 }
5336 break;
5337 case XML_ROLE_GROUP_SEQUENCE:
5338 if (parser->m_groupConnector[parser->m_
5339 return XML_ERROR_SYNTAX;
5340 parser->m_groupConnector[parser->m_prol
5341 if (dtd->in_eldecl && parser->m_element
5342 handleDefault = XML_FALSE;
5343 break;
5344 case XML_ROLE_GROUP_CHOICE:
5345 if (parser->m_groupConnector[parser->m_
5346 return XML_ERROR_SYNTAX;
5347 if (dtd->in_eldecl
5348 && ! parser->m_groupConnector[parse
5349 && (dtd->scaffold[dtd->scaffIndex[d
5350 != XML_CTYPE_MIXED)) {
5351 dtd->scaffold[dtd->scaffIndex[dtd->sc
5352 = XML_CTYPE_CHOICE;
5353 if (parser->m_elementDeclHandler)
5354 handleDefault = XML_FALSE;
5355 }
5356 parser->m_groupConnector[parser->m_prol
5357 break;
5358 case XML_ROLE_PARAM_ENTITY_REF:
5359 #ifdef XML_DTD
5360 case XML_ROLE_INNER_PARAM_ENTITY_REF:
5361 dtd->hasParamEntityRefs = XML_TRUE;
5362 if (! parser->m_paramEntityParsing)
5363 dtd->keepProcessing = dtd->standalone
5364 else {
5365 const XML_Char *name;
5366 ENTITY *entity;
5367 name = poolStoreString(&dtd->pool, en
5368 next - enc->mi
5369 if (! name)
5370 return XML_ERROR_NO_MEMORY;
5371 entity = (ENTITY *)lookup(parser, &dt
5372 poolDiscard(&dtd->pool);
5373 /* first, determine if a check for an
5374 if yes, check that the entity exis
5375 otherwise call the skipped entity
5376 */
5377 if (parser->m_prologState.documentEnt
5378 && (dtd->standalone ? ! parser->m
5379 : ! dtd->hasP
5380 if (! entity)
5381 return XML_ERROR_UNDEFINED_ENTITY
5382 else if (! entity->is_internal) {
5383 /* It's hard to exhaustively sear
5384 * but there doesn't seem to be a
5385 * following line. There are two
5386 *
5387 * If 'standalone' is false, the
5388 * parameter entities or we would
5389 * 'if' statement. That means th
5390 * table is the external subset n
5391 * given as a parameter entity na
5392 * lookup must have returned NULL
5393 * the test for an internal entit
5394 *
5395 * If 'standalone' is true, it do
5396 * possible to create entities ta
5397 * are not internal entities, so
5398 *
5399 * Because this analysis is very
5400 * being left in place and merely
5401 * coverage test statistics.
5402 */
5403 return XML_ERROR_ENTITY_DECLARED_
5404 }
5405 } else if (! entity) {
5406 dtd->keepProcessing = dtd->standalo
5407 /* cannot report skipped entities i
5408 if ((role == XML_ROLE_PARAM_ENTITY_
5409 && parser->m_skippedEntityHandl
5410 parser->m_skippedEntityHandler(pa
5411 handleDefault = XML_FALSE;
5412 }
5413 break;
5414 }
5415 if (entity->open)
5416 return XML_ERROR_RECURSIVE_ENTITY_R
5417 if (entity->textPtr) {
5418 enum XML_Error result;
5419 XML_Bool betweenDecl
5420 = (role == XML_ROLE_PARAM_ENTIT
5421 result = processInternalEntity(pars
5422 if (result != XML_ERROR_NONE)
5423 return result;
5424 handleDefault = XML_FALSE;
5425 break;
5426 }
5427 if (parser->m_externalEntityRefHandle
5428 dtd->paramEntityRead = XML_FALSE;
5429 entity->open = XML_TRUE;
5430 entityTrackingOnOpen(parser, entity
5431 if (! parser->m_externalEntityRefHa
5432 parser->m_externalEntityRef
5433 entity->systemId, entity->p
5434 entityTrackingOnClose(parser, ent
5435 entity->open = XML_FALSE;
5436 return XML_ERROR_EXTERNAL_ENTITY_
5437 }
5438 entityTrackingOnClose(parser, entit
5439 entity->open = XML_FALSE;
5440 handleDefault = XML_FALSE;
5441 if (! dtd->paramEntityRead) {
5442 dtd->keepProcessing = dtd->standa
5443 break;
5444 }
5445 } else {
5446 dtd->keepProcessing = dtd->standalo
5447 break;
5448 }
5449 }
5450 #endif /* XML_DTD */
5451 if (! dtd->standalone && parser->m_notS
5452 && ! parser->m_notStandaloneHandler
5453 return XML_ERROR_NOT_STANDALONE;
5454 break;
5455
5456 /* Element declaration stuff */
5457
5458 case XML_ROLE_ELEMENT_NAME:
5459 if (parser->m_elementDeclHandler) {
5460 parser->m_declElementType = getElemen
5461 if (! parser->m_declElementType)
5462 return XML_ERROR_NO_MEMORY;
5463 dtd->scaffLevel = 0;
5464 dtd->scaffCount = 0;
5465 dtd->in_eldecl = XML_TRUE;
5466 handleDefault = XML_FALSE;
5467 }
5468 break;
5469
5470 case XML_ROLE_CONTENT_ANY:
5471 case XML_ROLE_CONTENT_EMPTY:
5472 if (dtd->in_eldecl) {
5473 if (parser->m_elementDeclHandler) {
5474 XML_Content *content
5475 = (XML_Content *)MALLOC(parser,
5476 if (! content)
5477 return XML_ERROR_NO_MEMORY;
5478 content->quant = XML_CQUANT_NONE;
5479 content->name = NULL;
5480 content->numchildren = 0;
5481 content->children = NULL;
5482 content->type = ((role == XML_ROLE_
5483
5484 *eventEndPP = s;
5485 parser->m_elementDeclHandler(
5486 parser->m_handlerArg, parser->m
5487 handleDefault = XML_FALSE;
5488 }
5489 dtd->in_eldecl = XML_FALSE;
5490 }
5491 break;
5492
5493 case XML_ROLE_CONTENT_PCDATA:
5494 if (dtd->in_eldecl) {
5495 dtd->scaffold[dtd->scaffIndex[dtd->sc
5496 = XML_CTYPE_MIXED;
5497 if (parser->m_elementDeclHandler)
5498 handleDefault = XML_FALSE;
5499 }
5500 break;
5501
5502 case XML_ROLE_CONTENT_ELEMENT:
5503 quant = XML_CQUANT_NONE;
5504 goto elementContent;
5505 case XML_ROLE_CONTENT_ELEMENT_OPT:
5506 quant = XML_CQUANT_OPT;
5507 goto elementContent;
5508 case XML_ROLE_CONTENT_ELEMENT_REP:
5509 quant = XML_CQUANT_REP;
5510 goto elementContent;
5511 case XML_ROLE_CONTENT_ELEMENT_PLUS:
5512 quant = XML_CQUANT_PLUS;
5513 elementContent:
5514 if (dtd->in_eldecl) {
5515 ELEMENT_TYPE *el;
5516 const XML_Char *name;
5517 size_t nameLen;
5518 const char *nxt
5519 = (quant == XML_CQUANT_NONE ? nex
5520 int myindex = nextScaffoldPart(parser
5521 if (myindex < 0)
5522 return XML_ERROR_NO_MEMORY;
5523 dtd->scaffold[myindex].type = XML_CTY
5524 dtd->scaffold[myindex].quant = quant;
5525 el = getElementType(parser, enc, s, n
5526 if (! el)
5527 return XML_ERROR_NO_MEMORY;
5528 name = el->name;
5529 dtd->scaffold[myindex].name = name;
5530 nameLen = 0;
5531 for (; name[nameLen++];)
5532 ;
5533
5534 /* Detect and prevent integer overflo
5535 if (nameLen > UINT_MAX - dtd->content
5536 return XML_ERROR_NO_MEMORY;
5537 }
5538
5539 dtd->contentStringLen += (unsigned)na
5540 if (parser->m_elementDeclHandler)
5541 handleDefault = XML_FALSE;
5542 }
5543 break;
5544
5545 case XML_ROLE_GROUP_CLOSE:
5546 quant = XML_CQUANT_NONE;
5547 goto closeGroup;
5548 case XML_ROLE_GROUP_CLOSE_OPT:
5549 quant = XML_CQUANT_OPT;
5550 goto closeGroup;
5551 case XML_ROLE_GROUP_CLOSE_REP:
5552 quant = XML_CQUANT_REP;
5553 goto closeGroup;
5554 case XML_ROLE_GROUP_CLOSE_PLUS:
5555 quant = XML_CQUANT_PLUS;
5556 closeGroup:
5557 if (dtd->in_eldecl) {
5558 if (parser->m_elementDeclHandler)
5559 handleDefault = XML_FALSE;
5560 dtd->scaffLevel--;
5561 dtd->scaffold[dtd->scaffIndex[dtd->sc
5562 if (dtd->scaffLevel == 0) {
5563 if (! handleDefault) {
5564 XML_Content *model = build_model(
5565 if (! model)
5566 return XML_ERROR_NO_MEMORY;
5567 *eventEndPP = s;
5568 parser->m_elementDeclHandler(
5569 parser->m_handlerArg, parser-
5570 }
5571 dtd->in_eldecl = XML_FALSE;
5572 dtd->contentStringLen = 0;
5573 }
5574 }
5575 break;
5576 /* End element declaration stuff */
5577
5578 case XML_ROLE_PI:
5579 if (! reportProcessingInstruction(parse
5580 return XML_ERROR_NO_MEMORY;
5581 handleDefault = XML_FALSE;
5582 break;
5583 case XML_ROLE_COMMENT:
5584 if (! reportComment(parser, enc, s, nex
5585 return XML_ERROR_NO_MEMORY;
5586 handleDefault = XML_FALSE;
5587 break;
5588 case XML_ROLE_NONE:
5589 switch (tok) {
5590 case XML_TOK_BOM:
5591 handleDefault = XML_FALSE;
5592 break;
5593 }
5594 break;
5595 case XML_ROLE_DOCTYPE_NONE:
5596 if (parser->m_startDoctypeDeclHandler)
5597 handleDefault = XML_FALSE;
5598 break;
5599 case XML_ROLE_ENTITY_NONE:
5600 if (dtd->keepProcessing && parser->m_en
5601 handleDefault = XML_FALSE;
5602 break;
5603 case XML_ROLE_NOTATION_NONE:
5604 if (parser->m_notationDeclHandler)
5605 handleDefault = XML_FALSE;
5606 break;
5607 case XML_ROLE_ATTLIST_NONE:
5608 if (dtd->keepProcessing && parser->m_at
5609 handleDefault = XML_FALSE;
5610 break;
5611 case XML_ROLE_ELEMENT_NONE:
5612 if (parser->m_elementDeclHandler)
5613 handleDefault = XML_FALSE;
5614 break;
5615 } /* end of big switch */
5616
5617 if (handleDefault && parser->m_defaultHan
5618 reportDefault(parser, enc, s, next);
5619
5620 switch (parser->m_parsingStatus.parsing)
5621 case XML_SUSPENDED:
5622 *nextPtr = next;
5623 return XML_ERROR_NONE;
5624 case XML_FINISHED:
5625 return XML_ERROR_ABORTED;
5626 default:
5627 s = next;
5628 tok = XmlPrologTok(enc, s, end, &next);
5629 }
5630 }
5631 /* not reached */
5632 }
5633
5634 static enum XML_Error PTRCALL
5635 epilogProcessor(XML_Parser parser, const char
5636 const char **nextPtr) {
5637 parser->m_processor = epilogProcessor;
5638 parser->m_eventPtr = s;
5639 for (;;) {
5640 const char *next = NULL;
5641 int tok = XmlPrologTok(parser->m_encoding
5642 #ifdef XML_DTD
5643 if (! accountingDiffTolerated(parser, tok
5644 XML_ACCOUNT
5645 accountingOnAbort(parser);
5646 return XML_ERROR_AMPLIFICATION_LIMIT_BR
5647 }
5648 #endif
5649 parser->m_eventEndPtr = next;
5650 switch (tok) {
5651 /* report partial linebreak - it might be
5652 case -XML_TOK_PROLOG_S:
5653 if (parser->m_defaultHandler) {
5654 reportDefault(parser, parser->m_encod
5655 if (parser->m_parsingStatus.parsing =
5656 return XML_ERROR_ABORTED;
5657 }
5658 *nextPtr = next;
5659 return XML_ERROR_NONE;
5660 case XML_TOK_NONE:
5661 *nextPtr = s;
5662 return XML_ERROR_NONE;
5663 case XML_TOK_PROLOG_S:
5664 if (parser->m_defaultHandler)
5665 reportDefault(parser, parser->m_encod
5666 break;
5667 case XML_TOK_PI:
5668 if (! reportProcessingInstruction(parse
5669 return XML_ERROR_NO_MEMORY;
5670 break;
5671 case XML_TOK_COMMENT:
5672 if (! reportComment(parser, parser->m_e
5673 return XML_ERROR_NO_MEMORY;
5674 break;
5675 case XML_TOK_INVALID:
5676 parser->m_eventPtr = next;
5677 return XML_ERROR_INVALID_TOKEN;
5678 case XML_TOK_PARTIAL:
5679 if (! parser->m_parsingStatus.finalBuff
5680 *nextPtr = s;
5681 return XML_ERROR_NONE;
5682 }
5683 return XML_ERROR_UNCLOSED_TOKEN;
5684 case XML_TOK_PARTIAL_CHAR:
5685 if (! parser->m_parsingStatus.finalBuff
5686 *nextPtr = s;
5687 return XML_ERROR_NONE;
5688 }
5689 return XML_ERROR_PARTIAL_CHAR;
5690 default:
5691 return XML_ERROR_JUNK_AFTER_DOC_ELEMENT
5692 }
5693 parser->m_eventPtr = s = next;
5694 switch (parser->m_parsingStatus.parsing)
5695 case XML_SUSPENDED:
5696 *nextPtr = next;
5697 return XML_ERROR_NONE;
5698 case XML_FINISHED:
5699 return XML_ERROR_ABORTED;
5700 default:;
5701 }
5702 }
5703 }
5704
5705 static enum XML_Error
5706 processInternalEntity(XML_Parser parser, ENTI
5707 const char *textStart, *textEnd;
5708 const char *next;
5709 enum XML_Error result;
5710 OPEN_INTERNAL_ENTITY *openEntity;
5711
5712 if (parser->m_freeInternalEntities) {
5713 openEntity = parser->m_freeInternalEntiti
5714 parser->m_freeInternalEntities = openEnti
5715 } else {
5716 openEntity
5717 = (OPEN_INTERNAL_ENTITY *)MALLOC(pars
5718 if (! openEntity)
5719 return XML_ERROR_NO_MEMORY;
5720 }
5721 entity->open = XML_TRUE;
5722 #ifdef XML_DTD
5723 entityTrackingOnOpen(parser, entity, __LINE
5724 #endif
5725 entity->processed = 0;
5726 openEntity->next = parser->m_openInternalEn
5727 parser->m_openInternalEntities = openEntity
5728 openEntity->entity = entity;
5729 openEntity->startTagLevel = parser->m_tagLe
5730 openEntity->betweenDecl = betweenDecl;
5731 openEntity->internalEventPtr = NULL;
5732 openEntity->internalEventEndPtr = NULL;
5733 textStart = (const char *)entity->textPtr;
5734 textEnd = (const char *)(entity->textPtr +
5735 /* Set a safe default value in case 'next'
5736 next = textStart;
5737
5738 #ifdef XML_DTD
5739 if (entity->is_param) {
5740 int tok
5741 = XmlPrologTok(parser->m_internalEnco
5742 result = doProlog(parser, parser->m_inter
5743 tok, next, &next, XML_F
5744 XML_ACCOUNT_ENTITY_EXPA
5745 } else
5746 #endif /* XML_DTD */
5747 result = doContent(parser, parser->m_tagL
5748 textStart, textEnd, &n
5749 XML_ACCOUNT_ENTITY_EXP
5750
5751 if (result == XML_ERROR_NONE) {
5752 if (textEnd != next && parser->m_parsingS
5753 entity->processed = (int)(next - textSt
5754 parser->m_processor = internalEntityPro
5755 } else {
5756 #ifdef XML_DTD
5757 entityTrackingOnClose(parser, entity, _
5758 #endif /* XML_DTD */
5759 entity->open = XML_FALSE;
5760 parser->m_openInternalEntities = openEn
5761 /* put openEntity back in list of free
5762 openEntity->next = parser->m_freeIntern
5763 parser->m_freeInternalEntities = openEn
5764 }
5765 }
5766 return result;
5767 }
5768
5769 static enum XML_Error PTRCALL
5770 internalEntityProcessor(XML_Parser parser, co
5771 const char **nextPtr)
5772 ENTITY *entity;
5773 const char *textStart, *textEnd;
5774 const char *next;
5775 enum XML_Error result;
5776 OPEN_INTERNAL_ENTITY *openEntity = parser->
5777 if (! openEntity)
5778 return XML_ERROR_UNEXPECTED_STATE;
5779
5780 entity = openEntity->entity;
5781 textStart = ((const char *)entity->textPtr)
5782 textEnd = (const char *)(entity->textPtr +
5783 /* Set a safe default value in case 'next'
5784 next = textStart;
5785
5786 #ifdef XML_DTD
5787 if (entity->is_param) {
5788 int tok
5789 = XmlPrologTok(parser->m_internalEnco
5790 result = doProlog(parser, parser->m_inter
5791 tok, next, &next, XML_F
5792 XML_ACCOUNT_ENTITY_EXPA
5793 } else
5794 #endif /* XML_DTD */
5795 result = doContent(parser, openEntity->st
5796 parser->m_internalEnco
5797 XML_FALSE, XML_ACCOUNT
5798
5799 if (result != XML_ERROR_NONE)
5800 return result;
5801 else if (textEnd != next
5802 && parser->m_parsingStatus.parsing
5803 entity->processed = (int)(next - (const c
5804 return result;
5805 } else {
5806 #ifdef XML_DTD
5807 entityTrackingOnClose(parser, entity, __L
5808 #endif
5809 entity->open = XML_FALSE;
5810 parser->m_openInternalEntities = openEnti
5811 /* put openEntity back in list of free in
5812 openEntity->next = parser->m_freeInternal
5813 parser->m_freeInternalEntities = openEnti
5814 }
5815
5816 #ifdef XML_DTD
5817 if (entity->is_param) {
5818 int tok;
5819 parser->m_processor = prologProcessor;
5820 tok = XmlPrologTok(parser->m_encoding, s,
5821 return doProlog(parser, parser->m_encodin
5822 (XML_Bool)! parser->m_par
5823 XML_ACCOUNT_DIRECT);
5824 } else
5825 #endif /* XML_DTD */
5826 {
5827 parser->m_processor = contentProcessor;
5828 /* see externalEntityContentProcessor vs
5829 result = doContent(parser, parser->m_pare
5830 parser->m_encoding, s,
5831 (XML_Bool)! parser->m_
5832 XML_ACCOUNT_DIRECT);
5833 if (result == XML_ERROR_NONE) {
5834 if (! storeRawNames(parser))
5835 return XML_ERROR_NO_MEMORY;
5836 }
5837 return result;
5838 }
5839 }
5840
5841 static enum XML_Error PTRCALL
5842 errorProcessor(XML_Parser parser, const char
5843 const char **nextPtr) {
5844 UNUSED_P(s);
5845 UNUSED_P(end);
5846 UNUSED_P(nextPtr);
5847 return parser->m_errorCode;
5848 }
5849
5850 static enum XML_Error
5851 storeAttributeValue(XML_Parser parser, const
5852 const char *ptr, const ch
5853 enum XML_Account account)
5854 enum XML_Error result
5855 = appendAttributeValue(parser, enc, isC
5856 if (result)
5857 return result;
5858 if (! isCdata && poolLength(pool) && poolLa
5859 poolChop(pool);
5860 if (! poolAppendChar(pool, XML_T('\0')))
5861 return XML_ERROR_NO_MEMORY;
5862 return XML_ERROR_NONE;
5863 }
5864
5865 static enum XML_Error
5866 appendAttributeValue(XML_Parser parser, const
5867 const char *ptr, const c
5868 enum XML_Account account
5869 DTD *const dtd = parser->m_dtd; /* save one
5870 #ifndef XML_DTD
5871 UNUSED_P(account);
5872 #endif
5873
5874 for (;;) {
5875 const char *next
5876 = ptr; /* XmlAttributeValueTok doesn'
5877 int tok = XmlAttributeValueTok(enc, ptr,
5878 #ifdef XML_DTD
5879 if (! accountingDiffTolerated(parser, tok
5880 accountingOnAbort(parser);
5881 return XML_ERROR_AMPLIFICATION_LIMIT_BR
5882 }
5883 #endif
5884 switch (tok) {
5885 case XML_TOK_NONE:
5886 return XML_ERROR_NONE;
5887 case XML_TOK_INVALID:
5888 if (enc == parser->m_encoding)
5889 parser->m_eventPtr = next;
5890 return XML_ERROR_INVALID_TOKEN;
5891 case XML_TOK_PARTIAL:
5892 if (enc == parser->m_encoding)
5893 parser->m_eventPtr = ptr;
5894 return XML_ERROR_INVALID_TOKEN;
5895 case XML_TOK_CHAR_REF: {
5896 XML_Char buf[XML_ENCODE_MAX];
5897 int i;
5898 int n = XmlCharRefNumber(enc, ptr);
5899 if (n < 0) {
5900 if (enc == parser->m_encoding)
5901 parser->m_eventPtr = ptr;
5902 return XML_ERROR_BAD_CHAR_REF;
5903 }
5904 if (! isCdata && n == 0x20 /* space */
5905 && (poolLength(pool) == 0 || poolLa
5906 break;
5907 n = XmlEncode(n, (ICHAR *)buf);
5908 /* The XmlEncode() functions can never
5909 * error return happens if the code poi
5910 * negative or greater than or equal to
5911 * XmlCharRefNumber() functions will al
5912 * strictly less than 0x110000 or a neg
5913 * occurred. The negative value is int
5914 * XmlEncode() is never passed a value
5915 * error for.
5916 */
5917 for (i = 0; i < n; i++) {
5918 if (! poolAppendChar(pool, buf[i]))
5919 return XML_ERROR_NO_MEMORY;
5920 }
5921 } break;
5922 case XML_TOK_DATA_CHARS:
5923 if (! poolAppend(pool, enc, ptr, next))
5924 return XML_ERROR_NO_MEMORY;
5925 break;
5926 case XML_TOK_TRAILING_CR:
5927 next = ptr + enc->minBytesPerChar;
5928 /* fall through */
5929 case XML_TOK_ATTRIBUTE_VALUE_S:
5930 case XML_TOK_DATA_NEWLINE:
5931 if (! isCdata && (poolLength(pool) == 0
5932 break;
5933 if (! poolAppendChar(pool, 0x20))
5934 return XML_ERROR_NO_MEMORY;
5935 break;
5936 case XML_TOK_ENTITY_REF: {
5937 const XML_Char *name;
5938 ENTITY *entity;
5939 char checkEntityDecl;
5940 XML_Char ch = (XML_Char)XmlPredefinedEn
5941 enc, ptr + enc->minBytesPerChar, ne
5942 if (ch) {
5943 #ifdef XML_DTD
5944 /* NOTE: We are replacing 4-6 charact
5945 * so there is no amplification
5946 * protection. */
5947 accountingDiffTolerated(parser, tok,
5948 ((char *)&ch)
5949 XML_ACCOUNT_E
5950 #endif /* XML_DTD */
5951 if (! poolAppendChar(pool, ch))
5952 return XML_ERROR_NO_MEMORY;
5953 break;
5954 }
5955 name = poolStoreString(&parser->m_temp2
5956 ptr + enc->minBy
5957 next - enc->minB
5958 if (! name)
5959 return XML_ERROR_NO_MEMORY;
5960 entity = (ENTITY *)lookup(parser, &dtd-
5961 poolDiscard(&parser->m_temp2Pool);
5962 /* First, determine if a check for an e
5963 if yes, check that the entity exists
5964 */
5965 if (pool == &dtd->pool) /* are we calle
5966 checkEntityDecl =
5967 #ifdef XML_DTD
5968 parser->m_prologState.documentEnt
5969 #endif /* XML_DTD */
5970 (dtd->standalone ? ! parser->m_op
5971 : ! dtd->hasPara
5972 else /* if (pool == &parser->m_tempPool
5973 checkEntityDecl = ! dtd->hasParamEnti
5974 if (checkEntityDecl) {
5975 if (! entity)
5976 return XML_ERROR_UNDEFINED_ENTITY;
5977 else if (! entity->is_internal)
5978 return XML_ERROR_ENTITY_DECLARED_IN
5979 } else if (! entity) {
5980 /* Cannot report skipped entity here
5981 parser->m_skippedEntityHandler.
5982 if (parser->m_skippedEntityHandler)
5983 parser->m_skippedEntityHandler(pars
5984 */
5985 /* Cannot call the default handler be
5986 out of sync with the call to the s
5987 if ((pool == &parser->m_tempPool) &&
5988 reportDefault(parser, enc, ptr, nex
5989 */
5990 break;
5991 }
5992 if (entity->open) {
5993 if (enc == parser->m_encoding) {
5994 /* It does not appear that this lin
5995 *
5996 * The "if (entity->open)" check ca
5997 * definitions. In order to be cal
5998 * entity, it must have gone throug
5999 * been through the recursive call
6000 * appendAttributeValue() some line
6001 * sets the local encoding ("enc")
6002 * internal encoding (internal_utf8
6003 * which can never be the same as t
6004 * It doesn't appear there is anoth
6005 * here with entity->open being TRU
6006 *
6007 * Since it is not certain that thi
6008 * we keep the line and merely excl
6009 * tests.
6010 */
6011 parser->m_eventPtr = ptr; /* LCOV_E
6012 }
6013 return XML_ERROR_RECURSIVE_ENTITY_REF
6014 }
6015 if (entity->notation) {
6016 if (enc == parser->m_encoding)
6017 parser->m_eventPtr = ptr;
6018 return XML_ERROR_BINARY_ENTITY_REF;
6019 }
6020 if (! entity->textPtr) {
6021 if (enc == parser->m_encoding)
6022 parser->m_eventPtr = ptr;
6023 return XML_ERROR_ATTRIBUTE_EXTERNAL_E
6024 } else {
6025 enum XML_Error result;
6026 const XML_Char *textEnd = entity->tex
6027 entity->open = XML_TRUE;
6028 #ifdef XML_DTD
6029 entityTrackingOnOpen(parser, entity,
6030 #endif
6031 result = appendAttributeValue(parser,
6032 isCdata
6033 (const
6034 XML_ACC
6035 #ifdef XML_DTD
6036 entityTrackingOnClose(parser, entity,
6037 #endif
6038 entity->open = XML_FALSE;
6039 if (result)
6040 return result;
6041 }
6042 } break;
6043 default:
6044 /* The only token returned by XmlAttrib
6045 * not have an explicit case here is XM
6046 * Getting that would require an entity
6047 * incomplete XML character (e.g. \xE2\
6048 * tokenisers will have already recogni
6049 * names before XmlAttributeValueTok()
6050 * default case should be retained as a
6051 * excluded from coverage tests.
6052 *
6053 * LCOV_EXCL_START
6054 */
6055 if (enc == parser->m_encoding)
6056 parser->m_eventPtr = ptr;
6057 return XML_ERROR_UNEXPECTED_STATE;
6058 /* LCOV_EXCL_STOP */
6059 }
6060 ptr = next;
6061 }
6062 /* not reached */
6063 }
6064
6065 static enum XML_Error
6066 storeEntityValue(XML_Parser parser, const ENC
6067 const char *entityTextPtr, c
6068 enum XML_Account account) {
6069 DTD *const dtd = parser->m_dtd; /* save one
6070 STRING_POOL *pool = &(dtd->entityValuePool)
6071 enum XML_Error result = XML_ERROR_NONE;
6072 #ifdef XML_DTD
6073 int oldInEntityValue = parser->m_prologStat
6074 parser->m_prologState.inEntityValue = 1;
6075 #else
6076 UNUSED_P(account);
6077 #endif /* XML_DTD */
6078 /* never return Null for the value argument
6079 since this would indicate an external en
6080 have to make sure that entityValuePool.s
6081 if (! pool->blocks) {
6082 if (! poolGrow(pool))
6083 return XML_ERROR_NO_MEMORY;
6084 }
6085
6086 for (;;) {
6087 const char *next
6088 = entityTextPtr; /* XmlEntityValueTok
6089 int tok = XmlEntityValueTok(enc, entityTe
6090
6091 #ifdef XML_DTD
6092 if (! accountingDiffTolerated(parser, tok
6093 account)) {
6094 accountingOnAbort(parser);
6095 result = XML_ERROR_AMPLIFICATION_LIMIT_
6096 goto endEntityValue;
6097 }
6098 #endif
6099
6100 switch (tok) {
6101 case XML_TOK_PARAM_ENTITY_REF:
6102 #ifdef XML_DTD
6103 if (parser->m_isParamEntity || enc != p
6104 const XML_Char *name;
6105 ENTITY *entity;
6106 name = poolStoreString(&parser->m_tem
6107 entityTextPtr
6108 next - enc->mi
6109 if (! name) {
6110 result = XML_ERROR_NO_MEMORY;
6111 goto endEntityValue;
6112 }
6113 entity = (ENTITY *)lookup(parser, &dt
6114 poolDiscard(&parser->m_tempPool);
6115 if (! entity) {
6116 /* not a well-formedness error - se
6117 /* cannot report skipped entity her
6118 parser->m_skippedEntityHandler
6119 if (parser->m_skippedEntityHandler)
6120 parser->m_skippedEntityHandler(pa
6121 */
6122 dtd->keepProcessing = dtd->standalo
6123 goto endEntityValue;
6124 }
6125 if (entity->open) {
6126 if (enc == parser->m_encoding)
6127 parser->m_eventPtr = entityTextPt
6128 result = XML_ERROR_RECURSIVE_ENTITY
6129 goto endEntityValue;
6130 }
6131 if (entity->systemId) {
6132 if (parser->m_externalEntityRefHand
6133 dtd->paramEntityRead = XML_FALSE;
6134 entity->open = XML_TRUE;
6135 entityTrackingOnOpen(parser, enti
6136 if (! parser->m_externalEntityRef
6137 parser->m_externalEntityR
6138 entity->systemId, entity-
6139 entityTrackingOnClose(parser, e
6140 entity->open = XML_FALSE;
6141 result = XML_ERROR_EXTERNAL_ENT
6142 goto endEntityValue;
6143 }
6144 entityTrackingOnClose(parser, ent
6145 entity->open = XML_FALSE;
6146 if (! dtd->paramEntityRead)
6147 dtd->keepProcessing = dtd->stan
6148 } else
6149 dtd->keepProcessing = dtd->standa
6150 } else {
6151 entity->open = XML_TRUE;
6152 entityTrackingOnOpen(parser, entity
6153 result = storeEntityValue(
6154 parser, parser->m_internalEncod
6155 (const char *)(entity->textPtr
6156 XML_ACCOUNT_ENTITY_EXPANSION);
6157 entityTrackingOnClose(parser, entit
6158 entity->open = XML_FALSE;
6159 if (result)
6160 goto endEntityValue;
6161 }
6162 break;
6163 }
6164 #endif /* XML_DTD */
6165 /* In the internal subset, PE reference
6166 within markup declarations, e.g enti
6167 parser->m_eventPtr = entityTextPtr;
6168 result = XML_ERROR_PARAM_ENTITY_REF;
6169 goto endEntityValue;
6170 case XML_TOK_NONE:
6171 result = XML_ERROR_NONE;
6172 goto endEntityValue;
6173 case XML_TOK_ENTITY_REF:
6174 case XML_TOK_DATA_CHARS:
6175 if (! poolAppend(pool, enc, entityTextP
6176 result = XML_ERROR_NO_MEMORY;
6177 goto endEntityValue;
6178 }
6179 break;
6180 case XML_TOK_TRAILING_CR:
6181 next = entityTextPtr + enc->minBytesPer
6182 /* fall through */
6183 case XML_TOK_DATA_NEWLINE:
6184 if (pool->end == pool->ptr && ! poolGro
6185 result = XML_ERROR_NO_MEMORY;
6186 goto endEntityValue;
6187 }
6188 *(pool->ptr)++ = 0xA;
6189 break;
6190 case XML_TOK_CHAR_REF: {
6191 XML_Char buf[XML_ENCODE_MAX];
6192 int i;
6193 int n = XmlCharRefNumber(enc, entityTex
6194 if (n < 0) {
6195 if (enc == parser->m_encoding)
6196 parser->m_eventPtr = entityTextPtr;
6197 result = XML_ERROR_BAD_CHAR_REF;
6198 goto endEntityValue;
6199 }
6200 n = XmlEncode(n, (ICHAR *)buf);
6201 /* The XmlEncode() functions can never
6202 * error return happens if the code poi
6203 * negative or greater than or equal to
6204 * XmlCharRefNumber() functions will al
6205 * strictly less than 0x110000 or a neg
6206 * occurred. The negative value is int
6207 * XmlEncode() is never passed a value
6208 * error for.
6209 */
6210 for (i = 0; i < n; i++) {
6211 if (pool->end == pool->ptr && ! poolG
6212 result = XML_ERROR_NO_MEMORY;
6213 goto endEntityValue;
6214 }
6215 *(pool->ptr)++ = buf[i];
6216 }
6217 } break;
6218 case XML_TOK_PARTIAL:
6219 if (enc == parser->m_encoding)
6220 parser->m_eventPtr = entityTextPtr;
6221 result = XML_ERROR_INVALID_TOKEN;
6222 goto endEntityValue;
6223 case XML_TOK_INVALID:
6224 if (enc == parser->m_encoding)
6225 parser->m_eventPtr = next;
6226 result = XML_ERROR_INVALID_TOKEN;
6227 goto endEntityValue;
6228 default:
6229 /* This default case should be unnecess
6230 * that XmlEntityValueTok() can return
6231 * cases -- but should be retained for
6232 * exclude it from the coverage statist
6233 *
6234 * LCOV_EXCL_START
6235 */
6236 if (enc == parser->m_encoding)
6237 parser->m_eventPtr = entityTextPtr;
6238 result = XML_ERROR_UNEXPECTED_STATE;
6239 goto endEntityValue;
6240 /* LCOV_EXCL_STOP */
6241 }
6242 entityTextPtr = next;
6243 }
6244 endEntityValue:
6245 #ifdef XML_DTD
6246 parser->m_prologState.inEntityValue = oldIn
6247 #endif /* XML_DTD */
6248 return result;
6249 }
6250
6251 static void FASTCALL
6252 normalizeLines(XML_Char *s) {
6253 XML_Char *p;
6254 for (;; s++) {
6255 if (*s == XML_T('\0'))
6256 return;
6257 if (*s == 0xD)
6258 break;
6259 }
6260 p = s;
6261 do {
6262 if (*s == 0xD) {
6263 *p++ = 0xA;
6264 if (*++s == 0xA)
6265 s++;
6266 } else
6267 *p++ = *s++;
6268 } while (*s);
6269 *p = XML_T('\0');
6270 }
6271
6272 static int
6273 reportProcessingInstruction(XML_Parser parser
6274 const char *start
6275 const XML_Char *target;
6276 XML_Char *data;
6277 const char *tem;
6278 if (! parser->m_processingInstructionHandle
6279 if (parser->m_defaultHandler)
6280 reportDefault(parser, enc, start, end);
6281 return 1;
6282 }
6283 start += enc->minBytesPerChar * 2;
6284 tem = start + XmlNameLength(enc, start);
6285 target = poolStoreString(&parser->m_tempPoo
6286 if (! target)
6287 return 0;
6288 poolFinish(&parser->m_tempPool);
6289 data = poolStoreString(&parser->m_tempPool,
6290 end - enc->minBytesP
6291 if (! data)
6292 return 0;
6293 normalizeLines(data);
6294 parser->m_processingInstructionHandler(pars
6295 poolClear(&parser->m_tempPool);
6296 return 1;
6297 }
6298
6299 static int
6300 reportComment(XML_Parser parser, const ENCODI
6301 const char *end) {
6302 XML_Char *data;
6303 if (! parser->m_commentHandler) {
6304 if (parser->m_defaultHandler)
6305 reportDefault(parser, enc, start, end);
6306 return 1;
6307 }
6308 data = poolStoreString(&parser->m_tempPool,
6309 start + enc->minByte
6310 end - enc->minBytesP
6311 if (! data)
6312 return 0;
6313 normalizeLines(data);
6314 parser->m_commentHandler(parser->m_handlerA
6315 poolClear(&parser->m_tempPool);
6316 return 1;
6317 }
6318
6319 static void
6320 reportDefault(XML_Parser parser, const ENCODI
6321 const char *end) {
6322 if (MUST_CONVERT(enc, s)) {
6323 enum XML_Convert_Result convert_res;
6324 const char **eventPP;
6325 const char **eventEndPP;
6326 if (enc == parser->m_encoding) {
6327 eventPP = &parser->m_eventPtr;
6328 eventEndPP = &parser->m_eventEndPtr;
6329 } else {
6330 /* To get here, two things must be true
6331 * using a character encoding that is n
6332 * encoding passed in, and the encoding
6333 * conversion to the internal format (U
6334 * is defined). The only occasions on
6335 * in is not the same as the parser's e
6336 * the internal encoding (e.g. a previo
6337 * entity, already converted to interna
6338 * definition doesn't need conversion,
6339 * gets executed.
6340 *
6341 * For safety's sake we don't delete th
6342 * exclude them from coverage statistic
6343 *
6344 * LCOV_EXCL_START
6345 */
6346 eventPP = &(parser->m_openInternalEntit
6347 eventEndPP = &(parser->m_openInternalEn
6348 /* LCOV_EXCL_STOP */
6349 }
6350 do {
6351 ICHAR *dataPtr = (ICHAR *)parser->m_dat
6352 convert_res
6353 = XmlConvert(enc, &s, end, &dataPtr
6354 *eventEndPP = s;
6355 parser->m_defaultHandler(parser->m_hand
6356 (int)(dataPtr
6357 *eventPP = s;
6358 } while ((convert_res != XML_CONVERT_COMP
6359 && (convert_res != XML_CONVERT_I
6360 } else
6361 parser->m_defaultHandler(parser->m_handle
6362 (int)((XML_Char
6363 }
6364
6365 static int
6366 defineAttribute(ELEMENT_TYPE *type, ATTRIBUTE
6367 XML_Bool isId, const XML_Char
6368 DEFAULT_ATTRIBUTE *att;
6369 if (value || isId) {
6370 /* The handling of default attributes get
6371 a default which duplicates a non-defau
6372 int i;
6373 for (i = 0; i < type->nDefaultAtts; i++)
6374 if (attId == type->defaultAtts[i].id)
6375 return 1;
6376 if (isId && ! type->idAtt && ! attId->xml
6377 type->idAtt = attId;
6378 }
6379 if (type->nDefaultAtts == type->allocDefaul
6380 if (type->allocDefaultAtts == 0) {
6381 type->allocDefaultAtts = 8;
6382 type->defaultAtts = (DEFAULT_ATTRIBUTE
6383 parser, type->allocDefaultAtts * si
6384 if (! type->defaultAtts) {
6385 type->allocDefaultAtts = 0;
6386 return 0;
6387 }
6388 } else {
6389 DEFAULT_ATTRIBUTE *temp;
6390
6391 /* Detect and prevent integer overflow
6392 if (type->allocDefaultAtts > INT_MAX /
6393 return 0;
6394 }
6395
6396 int count = type->allocDefaultAtts * 2;
6397
6398 /* Detect and prevent integer overflow.
6399 * The preprocessor guard addresses the
6400 * from -Wtype-limits on platforms wher
6401 * sizeof(unsigned int) < sizeof(size_t
6402 #if UINT_MAX >= SIZE_MAX
6403 if ((unsigned)count > (size_t)(-1) / si
6404 return 0;
6405 }
6406 #endif
6407
6408 temp = (DEFAULT_ATTRIBUTE *)REALLOC(par
6409 (co
6410 if (temp == NULL)
6411 return 0;
6412 type->allocDefaultAtts = count;
6413 type->defaultAtts = temp;
6414 }
6415 }
6416 att = type->defaultAtts + type->nDefaultAtt
6417 att->id = attId;
6418 att->value = value;
6419 att->isCdata = isCdata;
6420 if (! isCdata)
6421 attId->maybeTokenized = XML_TRUE;
6422 type->nDefaultAtts += 1;
6423 return 1;
6424 }
6425
6426 static int
6427 setElementTypePrefix(XML_Parser parser, ELEME
6428 DTD *const dtd = parser->m_dtd; /* save one
6429 const XML_Char *name;
6430 for (name = elementType->name; *name; name+
6431 if (*name == XML_T(ASCII_COLON)) {
6432 PREFIX *prefix;
6433 const XML_Char *s;
6434 for (s = elementType->name; s != name;
6435 if (! poolAppendChar(&dtd->pool, *s))
6436 return 0;
6437 }
6438 if (! poolAppendChar(&dtd->pool, XML_T(
6439 return 0;
6440 prefix = (PREFIX *)lookup(parser, &dtd-
6441 sizeof(PREFIX
6442 if (! prefix)
6443 return 0;
6444 if (prefix->name == poolStart(&dtd->poo
6445 poolFinish(&dtd->pool);
6446 else
6447 poolDiscard(&dtd->pool);
6448 elementType->prefix = prefix;
6449 break;
6450 }
6451 }
6452 return 1;
6453 }
6454
6455 static ATTRIBUTE_ID *
6456 getAttributeId(XML_Parser parser, const ENCOD
6457 const char *end) {
6458 DTD *const dtd = parser->m_dtd; /* save one
6459 ATTRIBUTE_ID *id;
6460 const XML_Char *name;
6461 if (! poolAppendChar(&dtd->pool, XML_T('\0'
6462 return NULL;
6463 name = poolStoreString(&dtd->pool, enc, sta
6464 if (! name)
6465 return NULL;
6466 /* skip quotation mark - its storage will b
6467 ++name;
6468 id = (ATTRIBUTE_ID *)lookup(parser, &dtd->a
6469 sizeof(ATTRIBUT
6470 if (! id)
6471 return NULL;
6472 if (id->name != name)
6473 poolDiscard(&dtd->pool);
6474 else {
6475 poolFinish(&dtd->pool);
6476 if (! parser->m_ns)
6477 ;
6478 else if (name[0] == XML_T(ASCII_x) && nam
6479 && name[2] == XML_T(ASCII_l) &&
6480 && name[4] == XML_T(ASCII_s)
6481 && (name[5] == XML_T('\0') || na
6482 if (name[5] == XML_T('\0'))
6483 id->prefix = &dtd->defaultPrefix;
6484 else
6485 id->prefix = (PREFIX *)lookup(parser,
6486 sizeof(
6487 id->xmlns = XML_TRUE;
6488 } else {
6489 int i;
6490 for (i = 0; name[i]; i++) {
6491 /* attributes without prefix are *not
6492 if (name[i] == XML_T(ASCII_COLON)) {
6493 int j;
6494 for (j = 0; j < i; j++) {
6495 if (! poolAppendChar(&dtd->pool,
6496 return NULL;
6497 }
6498 if (! poolAppendChar(&dtd->pool, XM
6499 return NULL;
6500 id->prefix = (PREFIX *)lookup(parse
6501 poolS
6502 if (! id->prefix)
6503 return NULL;
6504 if (id->prefix->name == poolStart(&
6505 poolFinish(&dtd->pool);
6506 else
6507 poolDiscard(&dtd->pool);
6508 break;
6509 }
6510 }
6511 }
6512 }
6513 return id;
6514 }
6515
6516 #define CONTEXT_SEP XML_T(ASCII_FF)
6517
6518 static const XML_Char *
6519 getContext(XML_Parser parser) {
6520 DTD *const dtd = parser->m_dtd; /* save one
6521 HASH_TABLE_ITER iter;
6522 XML_Bool needSep = XML_FALSE;
6523
6524 if (dtd->defaultPrefix.binding) {
6525 int i;
6526 int len;
6527 if (! poolAppendChar(&parser->m_tempPool,
6528 return NULL;
6529 len = dtd->defaultPrefix.binding->uriLen;
6530 if (parser->m_namespaceSeparator)
6531 len--;
6532 for (i = 0; i < len; i++) {
6533 if (! poolAppendChar(&parser->m_tempPoo
6534 dtd->defaultPrefix
6535 /* Because of memory caching, I don't
6536 * executed.
6537 *
6538 * This is part of a loop copying the
6539 * URI into the parser's temporary st
6540 * that URI was copied into the same
6541 * terminating NUL character, as part
6542 * the pool was cleared, that leaves
6543 * enough to hold the URI on the free
6544 * The URI copy in getContext() there
6545 * memory.
6546 *
6547 * If the pool is used between the se
6548 * getContext() calls, the worst it c
6549 * block on the front of the free lis
6550 * all somewhat inobvious and program
6551 * don't delete the line but we do ex
6552 * coverage statistics.
6553 */
6554 return NULL; /* LCOV_EXCL_LINE */
6555 }
6556 }
6557 needSep = XML_TRUE;
6558 }
6559
6560 hashTableIterInit(&iter, &(dtd->prefixes));
6561 for (;;) {
6562 int i;
6563 int len;
6564 const XML_Char *s;
6565 PREFIX *prefix = (PREFIX *)hashTableIterN
6566 if (! prefix)
6567 break;
6568 if (! prefix->binding) {
6569 /* This test appears to be (justifiable
6570 * not seem to be a way of injecting a
6571 * that doesn't get errored long before
6572 * The test should remain for safety's
6573 * exclude the following line from the
6574 */
6575 continue; /* LCOV_EXCL_LINE */
6576 }
6577 if (needSep && ! poolAppendChar(&parser->
6578 return NULL;
6579 for (s = prefix->name; *s; s++)
6580 if (! poolAppendChar(&parser->m_tempPoo
6581 return NULL;
6582 if (! poolAppendChar(&parser->m_tempPool,
6583 return NULL;
6584 len = prefix->binding->uriLen;
6585 if (parser->m_namespaceSeparator)
6586 len--;
6587 for (i = 0; i < len; i++)
6588 if (! poolAppendChar(&parser->m_tempPoo
6589 return NULL;
6590 needSep = XML_TRUE;
6591 }
6592
6593 hashTableIterInit(&iter, &(dtd->generalEnti
6594 for (;;) {
6595 const XML_Char *s;
6596 ENTITY *e = (ENTITY *)hashTableIterNext(&
6597 if (! e)
6598 break;
6599 if (! e->open)
6600 continue;
6601 if (needSep && ! poolAppendChar(&parser->
6602 return NULL;
6603 for (s = e->name; *s; s++)
6604 if (! poolAppendChar(&parser->m_tempPoo
6605 return 0;
6606 needSep = XML_TRUE;
6607 }
6608
6609 if (! poolAppendChar(&parser->m_tempPool, X
6610 return NULL;
6611 return parser->m_tempPool.start;
6612 }
6613
6614 static XML_Bool
6615 setContext(XML_Parser parser, const XML_Char
6616 DTD *const dtd = parser->m_dtd; /* save one
6617 const XML_Char *s = context;
6618
6619 while (*context != XML_T('\0')) {
6620 if (*s == CONTEXT_SEP || *s == XML_T('\0'
6621 ENTITY *e;
6622 if (! poolAppendChar(&parser->m_tempPoo
6623 return XML_FALSE;
6624 e = (ENTITY *)lookup(parser, &dtd->gene
6625 poolStart(&parser-
6626 if (e)
6627 e->open = XML_TRUE;
6628 if (*s != XML_T('\0'))
6629 s++;
6630 context = s;
6631 poolDiscard(&parser->m_tempPool);
6632 } else if (*s == XML_T(ASCII_EQUALS)) {
6633 PREFIX *prefix;
6634 if (poolLength(&parser->m_tempPool) ==
6635 prefix = &dtd->defaultPrefix;
6636 else {
6637 if (! poolAppendChar(&parser->m_tempP
6638 return XML_FALSE;
6639 prefix
6640 = (PREFIX *)lookup(parser, &dtd->
6641 poolStart(&par
6642 if (! prefix)
6643 return XML_FALSE;
6644 if (prefix->name == poolStart(&parser
6645 prefix->name = poolCopyString(&dtd-
6646 if (! prefix->name)
6647 return XML_FALSE;
6648 }
6649 poolDiscard(&parser->m_tempPool);
6650 }
6651 for (context = s + 1; *context != CONTE
6652 context++)
6653 if (! poolAppendChar(&parser->m_tempP
6654 return XML_FALSE;
6655 if (! poolAppendChar(&parser->m_tempPoo
6656 return XML_FALSE;
6657 if (addBinding(parser, prefix, NULL, po
6658 &parser->m_inheritedBind
6659 != XML_ERROR_NONE)
6660 return XML_FALSE;
6661 poolDiscard(&parser->m_tempPool);
6662 if (*context != XML_T('\0'))
6663 ++context;
6664 s = context;
6665 } else {
6666 if (! poolAppendChar(&parser->m_tempPoo
6667 return XML_FALSE;
6668 s++;
6669 }
6670 }
6671 return XML_TRUE;
6672 }
6673
6674 static void FASTCALL
6675 normalizePublicId(XML_Char *publicId) {
6676 XML_Char *p = publicId;
6677 XML_Char *s;
6678 for (s = publicId; *s; s++) {
6679 switch (*s) {
6680 case 0x20:
6681 case 0xD:
6682 case 0xA:
6683 if (p != publicId && p[-1] != 0x20)
6684 *p++ = 0x20;
6685 break;
6686 default:
6687 *p++ = *s;
6688 }
6689 }
6690 if (p != publicId && p[-1] == 0x20)
6691 --p;
6692 *p = XML_T('\0');
6693 }
6694
6695 static DTD *
6696 dtdCreate(const XML_Memory_Handling_Suite *ms
6697 DTD *p = ms->malloc_fcn(sizeof(DTD));
6698 if (p == NULL)
6699 return p;
6700 poolInit(&(p->pool), ms);
6701 poolInit(&(p->entityValuePool), ms);
6702 hashTableInit(&(p->generalEntities), ms);
6703 hashTableInit(&(p->elementTypes), ms);
6704 hashTableInit(&(p->attributeIds), ms);
6705 hashTableInit(&(p->prefixes), ms);
6706 #ifdef XML_DTD
6707 p->paramEntityRead = XML_FALSE;
6708 hashTableInit(&(p->paramEntities), ms);
6709 #endif /* XML_DTD */
6710 p->defaultPrefix.name = NULL;
6711 p->defaultPrefix.binding = NULL;
6712
6713 p->in_eldecl = XML_FALSE;
6714 p->scaffIndex = NULL;
6715 p->scaffold = NULL;
6716 p->scaffLevel = 0;
6717 p->scaffSize = 0;
6718 p->scaffCount = 0;
6719 p->contentStringLen = 0;
6720
6721 p->keepProcessing = XML_TRUE;
6722 p->hasParamEntityRefs = XML_FALSE;
6723 p->standalone = XML_FALSE;
6724 return p;
6725 }
6726
6727 static void
6728 dtdReset(DTD *p, const XML_Memory_Handling_Su
6729 HASH_TABLE_ITER iter;
6730 hashTableIterInit(&iter, &(p->elementTypes)
6731 for (;;) {
6732 ELEMENT_TYPE *e = (ELEMENT_TYPE *)hashTab
6733 if (! e)
6734 break;
6735 if (e->allocDefaultAtts != 0)
6736 ms->free_fcn(e->defaultAtts);
6737 }
6738 hashTableClear(&(p->generalEntities));
6739 #ifdef XML_DTD
6740 p->paramEntityRead = XML_FALSE;
6741 hashTableClear(&(p->paramEntities));
6742 #endif /* XML_DTD */
6743 hashTableClear(&(p->elementTypes));
6744 hashTableClear(&(p->attributeIds));
6745 hashTableClear(&(p->prefixes));
6746 poolClear(&(p->pool));
6747 poolClear(&(p->entityValuePool));
6748 p->defaultPrefix.name = NULL;
6749 p->defaultPrefix.binding = NULL;
6750
6751 p->in_eldecl = XML_FALSE;
6752
6753 ms->free_fcn(p->scaffIndex);
6754 p->scaffIndex = NULL;
6755 ms->free_fcn(p->scaffold);
6756 p->scaffold = NULL;
6757
6758 p->scaffLevel = 0;
6759 p->scaffSize = 0;
6760 p->scaffCount = 0;
6761 p->contentStringLen = 0;
6762
6763 p->keepProcessing = XML_TRUE;
6764 p->hasParamEntityRefs = XML_FALSE;
6765 p->standalone = XML_FALSE;
6766 }
6767
6768 static void
6769 dtdDestroy(DTD *p, XML_Bool isDocEntity, cons
6770 HASH_TABLE_ITER iter;
6771 hashTableIterInit(&iter, &(p->elementTypes)
6772 for (;;) {
6773 ELEMENT_TYPE *e = (ELEMENT_TYPE *)hashTab
6774 if (! e)
6775 break;
6776 if (e->allocDefaultAtts != 0)
6777 ms->free_fcn(e->defaultAtts);
6778 }
6779 hashTableDestroy(&(p->generalEntities));
6780 #ifdef XML_DTD
6781 hashTableDestroy(&(p->paramEntities));
6782 #endif /* XML_DTD */
6783 hashTableDestroy(&(p->elementTypes));
6784 hashTableDestroy(&(p->attributeIds));
6785 hashTableDestroy(&(p->prefixes));
6786 poolDestroy(&(p->pool));
6787 poolDestroy(&(p->entityValuePool));
6788 if (isDocEntity) {
6789 ms->free_fcn(p->scaffIndex);
6790 ms->free_fcn(p->scaffold);
6791 }
6792 ms->free_fcn(p);
6793 }
6794
6795 /* Do a deep copy of the DTD. Return 0 for ou
6796 The new DTD has already been initialized.
6797 */
6798 static int
6799 dtdCopy(XML_Parser oldParser, DTD *newDtd, co
6800 const XML_Memory_Handling_Suite *ms)
6801 HASH_TABLE_ITER iter;
6802
6803 /* Copy the prefix table. */
6804
6805 hashTableIterInit(&iter, &(oldDtd->prefixes
6806 for (;;) {
6807 const XML_Char *name;
6808 const PREFIX *oldP = (PREFIX *)hashTableI
6809 if (! oldP)
6810 break;
6811 name = poolCopyString(&(newDtd->pool), ol
6812 if (! name)
6813 return 0;
6814 if (! lookup(oldParser, &(newDtd->prefixe
6815 return 0;
6816 }
6817
6818 hashTableIterInit(&iter, &(oldDtd->attribut
6819
6820 /* Copy the attribute id table. */
6821
6822 for (;;) {
6823 ATTRIBUTE_ID *newA;
6824 const XML_Char *name;
6825 const ATTRIBUTE_ID *oldA = (ATTRIBUTE_ID
6826
6827 if (! oldA)
6828 break;
6829 /* Remember to allocate the scratch byte
6830 if (! poolAppendChar(&(newDtd->pool), XML
6831 return 0;
6832 name = poolCopyString(&(newDtd->pool), ol
6833 if (! name)
6834 return 0;
6835 ++name;
6836 newA = (ATTRIBUTE_ID *)lookup(oldParser,
6837 sizeof(ATTR
6838 if (! newA)
6839 return 0;
6840 newA->maybeTokenized = oldA->maybeTokeniz
6841 if (oldA->prefix) {
6842 newA->xmlns = oldA->xmlns;
6843 if (oldA->prefix == &oldDtd->defaultPre
6844 newA->prefix = &newDtd->defaultPrefix
6845 else
6846 newA->prefix = (PREFIX *)lookup(oldPa
6847 oldA-
6848 }
6849 }
6850
6851 /* Copy the element type table. */
6852
6853 hashTableIterInit(&iter, &(oldDtd->elementT
6854
6855 for (;;) {
6856 int i;
6857 ELEMENT_TYPE *newE;
6858 const XML_Char *name;
6859 const ELEMENT_TYPE *oldE = (ELEMENT_TYPE
6860 if (! oldE)
6861 break;
6862 name = poolCopyString(&(newDtd->pool), ol
6863 if (! name)
6864 return 0;
6865 newE = (ELEMENT_TYPE *)lookup(oldParser,
6866 sizeof(ELEM
6867 if (! newE)
6868 return 0;
6869 if (oldE->nDefaultAtts) {
6870 newE->defaultAtts
6871 = ms->malloc_fcn(oldE->nDefaultAtts
6872 if (! newE->defaultAtts) {
6873 return 0;
6874 }
6875 }
6876 if (oldE->idAtt)
6877 newE->idAtt = (ATTRIBUTE_ID *)lookup(ol
6878 ol
6879 newE->allocDefaultAtts = newE->nDefaultAt
6880 if (oldE->prefix)
6881 newE->prefix = (PREFIX *)lookup(oldPars
6882 oldE->p
6883 for (i = 0; i < newE->nDefaultAtts; i++)
6884 newE->defaultAtts[i].id = (ATTRIBUTE_ID
6885 oldParser, &(newDtd->attributeIds),
6886 newE->defaultAtts[i].isCdata = oldE->de
6887 if (oldE->defaultAtts[i].value) {
6888 newE->defaultAtts[i].value
6889 = poolCopyString(&(newDtd->pool),
6890 if (! newE->defaultAtts[i].value)
6891 return 0;
6892 } else
6893 newE->defaultAtts[i].value = NULL;
6894 }
6895 }
6896
6897 /* Copy the entity tables. */
6898 if (! copyEntityTable(oldParser, &(newDtd->
6899 &(oldDtd->generalEnti
6900 return 0;
6901
6902 #ifdef XML_DTD
6903 if (! copyEntityTable(oldParser, &(newDtd->
6904 &(oldDtd->paramEntiti
6905 return 0;
6906 newDtd->paramEntityRead = oldDtd->paramEnti
6907 #endif /* XML_DTD */
6908
6909 newDtd->keepProcessing = oldDtd->keepProces
6910 newDtd->hasParamEntityRefs = oldDtd->hasPar
6911 newDtd->standalone = oldDtd->standalone;
6912
6913 /* Don't want deep copying for scaffolding
6914 newDtd->in_eldecl = oldDtd->in_eldecl;
6915 newDtd->scaffold = oldDtd->scaffold;
6916 newDtd->contentStringLen = oldDtd->contentS
6917 newDtd->scaffSize = oldDtd->scaffSize;
6918 newDtd->scaffLevel = oldDtd->scaffLevel;
6919 newDtd->scaffIndex = oldDtd->scaffIndex;
6920
6921 return 1;
6922 } /* End dtdCopy */
6923
6924 static int
6925 copyEntityTable(XML_Parser oldParser, HASH_TA
6926 STRING_POOL *newPool, const H
6927 HASH_TABLE_ITER iter;
6928 const XML_Char *cachedOldBase = NULL;
6929 const XML_Char *cachedNewBase = NULL;
6930
6931 hashTableIterInit(&iter, oldTable);
6932
6933 for (;;) {
6934 ENTITY *newE;
6935 const XML_Char *name;
6936 const ENTITY *oldE = (ENTITY *)hashTableI
6937 if (! oldE)
6938 break;
6939 name = poolCopyString(newPool, oldE->name
6940 if (! name)
6941 return 0;
6942 newE = (ENTITY *)lookup(oldParser, newTab
6943 if (! newE)
6944 return 0;
6945 if (oldE->systemId) {
6946 const XML_Char *tem = poolCopyString(ne
6947 if (! tem)
6948 return 0;
6949 newE->systemId = tem;
6950 if (oldE->base) {
6951 if (oldE->base == cachedOldBase)
6952 newE->base = cachedNewBase;
6953 else {
6954 cachedOldBase = oldE->base;
6955 tem = poolCopyString(newPool, cache
6956 if (! tem)
6957 return 0;
6958 cachedNewBase = newE->base = tem;
6959 }
6960 }
6961 if (oldE->publicId) {
6962 tem = poolCopyString(newPool, oldE->p
6963 if (! tem)
6964 return 0;
6965 newE->publicId = tem;
6966 }
6967 } else {
6968 const XML_Char *tem
6969 = poolCopyStringN(newPool, oldE->te
6970 if (! tem)
6971 return 0;
6972 newE->textPtr = tem;
6973 newE->textLen = oldE->textLen;
6974 }
6975 if (oldE->notation) {
6976 const XML_Char *tem = poolCopyString(ne
6977 if (! tem)
6978 return 0;
6979 newE->notation = tem;
6980 }
6981 newE->is_param = oldE->is_param;
6982 newE->is_internal = oldE->is_internal;
6983 }
6984 return 1;
6985 }
6986
6987 #define INIT_POWER 6
6988
6989 static XML_Bool FASTCALL
6990 keyeq(KEY s1, KEY s2) {
6991 for (; *s1 == *s2; s1++, s2++)
6992 if (*s1 == 0)
6993 return XML_TRUE;
6994 return XML_FALSE;
6995 }
6996
6997 static size_t
6998 keylen(KEY s) {
6999 size_t len = 0;
7000 for (; *s; s++, len++)
7001 ;
7002 return len;
7003 }
7004
7005 static void
7006 copy_salt_to_sipkey(XML_Parser parser, struct
7007 key->k[0] = 0;
7008 key->k[1] = get_hash_secret_salt(parser);
7009 }
7010
7011 static unsigned long FASTCALL
7012 hash(XML_Parser parser, KEY s) {
7013 struct siphash state;
7014 struct sipkey key;
7015 (void)sip24_valid;
7016 copy_salt_to_sipkey(parser, &key);
7017 sip24_init(&state, &key);
7018 sip24_update(&state, s, keylen(s) * sizeof(
7019 return (unsigned long)sip24_final(&state);
7020 }
7021
7022 static NAMED *
7023 lookup(XML_Parser parser, HASH_TABLE *table,
7024 size_t i;
7025 if (table->size == 0) {
7026 size_t tsize;
7027 if (! createSize)
7028 return NULL;
7029 table->power = INIT_POWER;
7030 /* table->size is a power of 2 */
7031 table->size = (size_t)1 << INIT_POWER;
7032 tsize = table->size * sizeof(NAMED *);
7033 table->v = table->mem->malloc_fcn(tsize);
7034 if (! table->v) {
7035 table->size = 0;
7036 return NULL;
7037 }
7038 memset(table->v, 0, tsize);
7039 i = hash(parser, name) & ((unsigned long)
7040 } else {
7041 unsigned long h = hash(parser, name);
7042 unsigned long mask = (unsigned long)table
7043 unsigned char step = 0;
7044 i = h & mask;
7045 while (table->v[i]) {
7046 if (keyeq(name, table->v[i]->name))
7047 return table->v[i];
7048 if (! step)
7049 step = PROBE_STEP(h, mask, table->pow
7050 i < step ? (i += table->size - step) :
7051 }
7052 if (! createSize)
7053 return NULL;
7054
7055 /* check for overflow (table is half full
7056 if (table->used >> (table->power - 1)) {
7057 unsigned char newPower = table->power +
7058
7059 /* Detect and prevent invalid shift */
7060 if (newPower >= sizeof(unsigned long) *
7061 return NULL;
7062 }
7063
7064 size_t newSize = (size_t)1 << newPower;
7065 unsigned long newMask = (unsigned long)
7066
7067 /* Detect and prevent integer overflow
7068 if (newSize > (size_t)(-1) / sizeof(NAM
7069 return NULL;
7070 }
7071
7072 size_t tsize = newSize * sizeof(NAMED *
7073 NAMED **newV = table->mem->malloc_fcn(t
7074 if (! newV)
7075 return NULL;
7076 memset(newV, 0, tsize);
7077 for (i = 0; i < table->size; i++)
7078 if (table->v[i]) {
7079 unsigned long newHash = hash(parser
7080 size_t j = newHash & newMask;
7081 step = 0;
7082 while (newV[j]) {
7083 if (! step)
7084 step = PROBE_STEP(newHash, newM
7085 j < step ? (j += newSize - step)
7086 }
7087 newV[j] = table->v[i];
7088 }
7089 table->mem->free_fcn(table->v);
7090 table->v = newV;
7091 table->power = newPower;
7092 table->size = newSize;
7093 i = h & newMask;
7094 step = 0;
7095 while (table->v[i]) {
7096 if (! step)
7097 step = PROBE_STEP(h, newMask, newPo
7098 i < step ? (i += newSize - step) : (i
7099 }
7100 }
7101 }
7102 table->v[i] = table->mem->malloc_fcn(create
7103 if (! table->v[i])
7104 return NULL;
7105 memset(table->v[i], 0, createSize);
7106 table->v[i]->name = name;
7107 (table->used)++;
7108 return table->v[i];
7109 }
7110
7111 static void FASTCALL
7112 hashTableClear(HASH_TABLE *table) {
7113 size_t i;
7114 for (i = 0; i < table->size; i++) {
7115 table->mem->free_fcn(table->v[i]);
7116 table->v[i] = NULL;
7117 }
7118 table->used = 0;
7119 }
7120
7121 static void FASTCALL
7122 hashTableDestroy(HASH_TABLE *table) {
7123 size_t i;
7124 for (i = 0; i < table->size; i++)
7125 table->mem->free_fcn(table->v[i]);
7126 table->mem->free_fcn(table->v);
7127 }
7128
7129 static void FASTCALL
7130 hashTableInit(HASH_TABLE *p, const XML_Memory
7131 p->power = 0;
7132 p->size = 0;
7133 p->used = 0;
7134 p->v = NULL;
7135 p->mem = ms;
7136 }
7137
7138 static void FASTCALL
7139 hashTableIterInit(HASH_TABLE_ITER *iter, cons
7140 iter->p = table->v;
7141 iter->end = iter->p ? iter->p + table->size
7142 }
7143
7144 static NAMED *FASTCALL
7145 hashTableIterNext(HASH_TABLE_ITER *iter) {
7146 while (iter->p != iter->end) {
7147 NAMED *tem = *(iter->p)++;
7148 if (tem)
7149 return tem;
7150 }
7151 return NULL;
7152 }
7153
7154 static void FASTCALL
7155 poolInit(STRING_POOL *pool, const XML_Memory_
7156 pool->blocks = NULL;
7157 pool->freeBlocks = NULL;
7158 pool->start = NULL;
7159 pool->ptr = NULL;
7160 pool->end = NULL;
7161 pool->mem = ms;
7162 }
7163
7164 static void FASTCALL
7165 poolClear(STRING_POOL *pool) {
7166 if (! pool->freeBlocks)
7167 pool->freeBlocks = pool->blocks;
7168 else {
7169 BLOCK *p = pool->blocks;
7170 while (p) {
7171 BLOCK *tem = p->next;
7172 p->next = pool->freeBlocks;
7173 pool->freeBlocks = p;
7174 p = tem;
7175 }
7176 }
7177 pool->blocks = NULL;
7178 pool->start = NULL;
7179 pool->ptr = NULL;
7180 pool->end = NULL;
7181 }
7182
7183 static void FASTCALL
7184 poolDestroy(STRING_POOL *pool) {
7185 BLOCK *p = pool->blocks;
7186 while (p) {
7187 BLOCK *tem = p->next;
7188 pool->mem->free_fcn(p);
7189 p = tem;
7190 }
7191 p = pool->freeBlocks;
7192 while (p) {
7193 BLOCK *tem = p->next;
7194 pool->mem->free_fcn(p);
7195 p = tem;
7196 }
7197 }
7198
7199 static XML_Char *
7200 poolAppend(STRING_POOL *pool, const ENCODING
7201 const char *end) {
7202 if (! pool->ptr && ! poolGrow(pool))
7203 return NULL;
7204 for (;;) {
7205 const enum XML_Convert_Result convert_res
7206 enc, &ptr, end, (ICHAR **)&(pool->ptr
7207 if ((convert_res == XML_CONVERT_COMPLETED
7208 || (convert_res == XML_CONVERT_INPUT_
7209 break;
7210 if (! poolGrow(pool))
7211 return NULL;
7212 }
7213 return pool->start;
7214 }
7215
7216 static const XML_Char *FASTCALL
7217 poolCopyString(STRING_POOL *pool, const XML_C
7218 do {
7219 if (! poolAppendChar(pool, *s))
7220 return NULL;
7221 } while (*s++);
7222 s = pool->start;
7223 poolFinish(pool);
7224 return s;
7225 }
7226
7227 static const XML_Char *
7228 poolCopyStringN(STRING_POOL *pool, const XML_
7229 if (! pool->ptr && ! poolGrow(pool)) {
7230 /* The following line is unreachable give
7231 * poolCopyStringN(). Currently it is ca
7232 * place to copy the text of a simple gen
7233 * point, the name of the entity is alrea
7234 * pool->ptr cannot be NULL.
7235 *
7236 * If poolCopyStringN() is used elsewhere
7237 * this line may well become executable a
7238 * sort of check shouldn't be removed lig
7239 * it from the coverage statistics.
7240 */
7241 return NULL; /* LCOV_EXCL_LINE */
7242 }
7243 for (; n > 0; --n, s++) {
7244 if (! poolAppendChar(pool, *s))
7245 return NULL;
7246 }
7247 s = pool->start;
7248 poolFinish(pool);
7249 return s;
7250 }
7251
7252 static const XML_Char *FASTCALL
7253 poolAppendString(STRING_POOL *pool, const XML
7254 while (*s) {
7255 if (! poolAppendChar(pool, *s))
7256 return NULL;
7257 s++;
7258 }
7259 return pool->start;
7260 }
7261
7262 static XML_Char *
7263 poolStoreString(STRING_POOL *pool, const ENCO
7264 const char *end) {
7265 if (! poolAppend(pool, enc, ptr, end))
7266 return NULL;
7267 if (pool->ptr == pool->end && ! poolGrow(po
7268 return NULL;
7269 *(pool->ptr)++ = 0;
7270 return pool->start;
7271 }
7272
7273 static size_t
7274 poolBytesToAllocateFor(int blockSize) {
7275 /* Unprotected math would be:
7276 ** return offsetof(BLOCK, s) + blockSize *
7277 **
7278 ** Detect overflow, avoiding _signed_ overf
7279 ** For a + b * c we check b * c in isolatio
7280 ** on top has no chance of making us accept
7281 */
7282 const size_t stretch = sizeof(XML_Char); /*
7283
7284 if (blockSize <= 0)
7285 return 0;
7286
7287 if (blockSize > (int)(INT_MAX / stretch))
7288 return 0;
7289
7290 {
7291 const int stretchedBlockSize = blockSize
7292 const int bytesToAllocate
7293 = (int)(offsetof(BLOCK, s) + (unsigne
7294 if (bytesToAllocate < 0)
7295 return 0;
7296
7297 return (size_t)bytesToAllocate;
7298 }
7299 }
7300
7301 static XML_Bool FASTCALL
7302 poolGrow(STRING_POOL *pool) {
7303 if (pool->freeBlocks) {
7304 if (pool->start == 0) {
7305 pool->blocks = pool->freeBlocks;
7306 pool->freeBlocks = pool->freeBlocks->ne
7307 pool->blocks->next = NULL;
7308 pool->start = pool->blocks->s;
7309 pool->end = pool->start + pool->blocks-
7310 pool->ptr = pool->start;
7311 return XML_TRUE;
7312 }
7313 if (pool->end - pool->start < pool->freeB
7314 BLOCK *tem = pool->freeBlocks->next;
7315 pool->freeBlocks->next = pool->blocks;
7316 pool->blocks = pool->freeBlocks;
7317 pool->freeBlocks = tem;
7318 memcpy(pool->blocks->s, pool->start,
7319 (pool->end - pool->start) * size
7320 pool->ptr = pool->blocks->s + (pool->pt
7321 pool->start = pool->blocks->s;
7322 pool->end = pool->start + pool->blocks-
7323 return XML_TRUE;
7324 }
7325 }
7326 if (pool->blocks && pool->start == pool->bl
7327 BLOCK *temp;
7328 int blockSize = (int)((unsigned)(pool->en
7329 size_t bytesToAllocate;
7330
7331 /* NOTE: Needs to be calculated prior to
7332 to avoid dangling pointers: */
7333 const ptrdiff_t offsetInsideBlock = pool-
7334
7335 if (blockSize < 0) {
7336 /* This condition traps a situation whe
7337 * INT_MAX/2 bytes have already been al
7338 * readily testable, since it is unlike
7339 * machine will have that much memory,
7340 * coverage statistics.
7341 */
7342 return XML_FALSE; /* LCOV_EXCL_LINE */
7343 }
7344
7345 bytesToAllocate = poolBytesToAllocateFor(
7346 if (bytesToAllocate == 0)
7347 return XML_FALSE;
7348
7349 temp = (BLOCK *)pool->mem->realloc_fcn(po
7350 (u
7351 if (temp == NULL)
7352 return XML_FALSE;
7353 pool->blocks = temp;
7354 pool->blocks->size = blockSize;
7355 pool->ptr = pool->blocks->s + offsetInsid
7356 pool->start = pool->blocks->s;
7357 pool->end = pool->start + blockSize;
7358 } else {
7359 BLOCK *tem;
7360 int blockSize = (int)(pool->end - pool->s
7361 size_t bytesToAllocate;
7362
7363 if (blockSize < 0) {
7364 /* This condition traps a situation whe
7365 * INT_MAX bytes have already been allo
7366 * by various pieces of program logic,
7367 * mind the unlikelihood of actually ha
7368 * the pool control fields have been co
7369 * conceivably happen in an extremely b
7370 * function). Either way it isn't read
7371 * exclude it from the coverage statist
7372 */
7373 return XML_FALSE; /* LCOV_EXCL_LINE */
7374 }
7375
7376 if (blockSize < INIT_BLOCK_SIZE)
7377 blockSize = INIT_BLOCK_SIZE;
7378 else {
7379 /* Detect overflow, avoiding _signed_ o
7380 if ((int)((unsigned)blockSize * 2U) < 0
7381 return XML_FALSE;
7382 }
7383 blockSize *= 2;
7384 }
7385
7386 bytesToAllocate = poolBytesToAllocateFor(
7387 if (bytesToAllocate == 0)
7388 return XML_FALSE;
7389
7390 tem = pool->mem->malloc_fcn(bytesToAlloca
7391 if (! tem)
7392 return XML_FALSE;
7393 tem->size = blockSize;
7394 tem->next = pool->blocks;
7395 pool->blocks = tem;
7396 if (pool->ptr != pool->start)
7397 memcpy(tem->s, pool->start, (pool->ptr
7398 pool->ptr = tem->s + (pool->ptr - pool->s
7399 pool->start = tem->s;
7400 pool->end = tem->s + blockSize;
7401 }
7402 return XML_TRUE;
7403 }
7404
7405 static int FASTCALL
7406 nextScaffoldPart(XML_Parser parser) {
7407 DTD *const dtd = parser->m_dtd; /* save one
7408 CONTENT_SCAFFOLD *me;
7409 int next;
7410
7411 if (! dtd->scaffIndex) {
7412 dtd->scaffIndex = (int *)MALLOC(parser, p
7413 if (! dtd->scaffIndex)
7414 return -1;
7415 dtd->scaffIndex[0] = 0;
7416 }
7417
7418 if (dtd->scaffCount >= dtd->scaffSize) {
7419 CONTENT_SCAFFOLD *temp;
7420 if (dtd->scaffold) {
7421 /* Detect and prevent integer overflow
7422 if (dtd->scaffSize > UINT_MAX / 2u) {
7423 return -1;
7424 }
7425 /* Detect and prevent integer overflow.
7426 * The preprocessor guard addresses the
7427 * from -Wtype-limits on platforms wher
7428 * sizeof(unsigned int) < sizeof(size_t
7429 #if UINT_MAX >= SIZE_MAX
7430 if (dtd->scaffSize > (size_t)(-1) / 2u
7431 return -1;
7432 }
7433 #endif
7434
7435 temp = (CONTENT_SCAFFOLD *)REALLOC(
7436 parser, dtd->scaffold, dtd->scaffSi
7437 if (temp == NULL)
7438 return -1;
7439 dtd->scaffSize *= 2;
7440 } else {
7441 temp = (CONTENT_SCAFFOLD *)MALLOC(parse
7442
7443 if (temp == NULL)
7444 return -1;
7445 dtd->scaffSize = INIT_SCAFFOLD_ELEMENTS
7446 }
7447 dtd->scaffold = temp;
7448 }
7449 next = dtd->scaffCount++;
7450 me = &dtd->scaffold[next];
7451 if (dtd->scaffLevel) {
7452 CONTENT_SCAFFOLD *parent
7453 = &dtd->scaffold[dtd->scaffIndex[dtd-
7454 if (parent->lastchild) {
7455 dtd->scaffold[parent->lastchild].nextsi
7456 }
7457 if (! parent->childcnt)
7458 parent->firstchild = next;
7459 parent->lastchild = next;
7460 parent->childcnt++;
7461 }
7462 me->firstchild = me->lastchild = me->childc
7463 return next;
7464 }
7465
7466 static XML_Content *
7467 build_model(XML_Parser parser) {
7468 /* Function build_model transforms the exis
7469 * array of CONTENT_SCAFFOLD tree nodes int
7470 * XML_Content tree nodes followed by a gap
7471 * strings. */
7472 DTD *const dtd = parser->m_dtd; /* save one
7473 XML_Content *ret;
7474 XML_Char *str; /* the current string writin
7475
7476 /* Detect and prevent integer overflow.
7477 * The preprocessor guard addresses the "al
7478 * from -Wtype-limits on platforms where
7479 * sizeof(unsigned int) < sizeof(size_t), e
7480 #if UINT_MAX >= SIZE_MAX
7481 if (dtd->scaffCount > (size_t)(-1) / sizeof
7482 return NULL;
7483 }
7484 if (dtd->contentStringLen > (size_t)(-1) /
7485 return NULL;
7486 }
7487 #endif
7488 if (dtd->scaffCount * sizeof(XML_Content)
7489 > (size_t)(-1) - dtd->contentStringLen
7490 return NULL;
7491 }
7492
7493 const size_t allocsize = (dtd->scaffCount *
7494 + (dtd->contentSt
7495
7496 ret = (XML_Content *)MALLOC(parser, allocsi
7497 if (! ret)
7498 return NULL;
7499
7500 /* What follows is an iterative implementat
7501 * recursively in a dedicated function call
7502 * build_node could be forced into stack ex
7503 * few megabyte, and so that was a security
7504 * stack is avoided now by resolving recurs
7505 *
7506 * The iterative approach works as follows:
7507 *
7508 * - We have two writing pointers, both wal
7509 * the work, the other creates "jobs" for
7510 * the way:
7511 *
7512 * - The faster one, pointer jobDest, alw
7513 * to do" by the other, once they reach
7514 * array: leader "jobDest" stores the s
7515 * to array dtd->scaffold) in field "nu
7516 *
7517 * - The slower one, pointer dest, looks
7518 * "numchildren" field (which actually
7519 * at that time) and puts the real data
7520 *
7521 * - Before the loop starts, jobDest writes
7522 * (where the root node is located) so th
7523 * when it starts operation.
7524 *
7525 * - Whenever nodes with children are encou
7526 * them as new jobs, in order. As a resu
7527 * adjacent in the resulting array, for e
7528 *
7529 * [0] root, has two children
7530 * [1] first child of 0, has three ch
7531 * [3] first child of 1, does not h
7532 * [4] second child of 1, does not
7533 * [5] third child of 1, does not h
7534 * [2] second child of 0, does not ha
7535 *
7536 * Or (the same data) presented in flat a
7537 *
7538 * [0] root, has two children
7539 *
7540 * [1] first child of 0, has three chil
7541 * [2] second child of 0, does not have
7542 *
7543 * [3] first child of 1, does not have
7544 * [4] second child of 1, does not have
7545 * [5] third child of 1, does not have
7546 *
7547 * - The algorithm repeats until all target
7548 */
7549 XML_Content *dest = ret; /* tree node writi
7550 XML_Content *const destLimit = &ret[dtd->sc
7551 XML_Content *jobDest = ret; /* next free wr
7552 str = (XML_Char *)&ret[dtd->scaffCount];
7553
7554 /* Add the starting job, the root node (ind
7555 (jobDest++)->numchildren = 0;
7556
7557 for (; dest < destLimit; dest++) {
7558 /* Retrieve source tree array index from
7559 const int src_node = (int)dest->numchildr
7560
7561 /* Convert item */
7562 dest->type = dtd->scaffold[src_node].type
7563 dest->quant = dtd->scaffold[src_node].qua
7564 if (dest->type == XML_CTYPE_NAME) {
7565 const XML_Char *src;
7566 dest->name = str;
7567 src = dtd->scaffold[src_node].name;
7568 for (;;) {
7569 *str++ = *src;
7570 if (! *src)
7571 break;
7572 src++;
7573 }
7574 dest->numchildren = 0;
7575 dest->children = NULL;
7576 } else {
7577 unsigned int i;
7578 int cn;
7579 dest->name = NULL;
7580 dest->numchildren = dtd->scaffold[src_n
7581 dest->children = jobDest;
7582
7583 /* Append scaffold indices of children
7584 for (i = 0, cn = dtd->scaffold[src_node
7585 i < dest->numchildren; i++, cn = d
7586 (jobDest++)->numchildren = (unsigned
7587 }
7588 }
7589
7590 return ret;
7591 }
7592
7593 static ELEMENT_TYPE *
7594 getElementType(XML_Parser parser, const ENCOD
7595 const char *end) {
7596 DTD *const dtd = parser->m_dtd; /* save one
7597 const XML_Char *name = poolStoreString(&dtd
7598 ELEMENT_TYPE *ret;
7599
7600 if (! name)
7601 return NULL;
7602 ret = (ELEMENT_TYPE *)lookup(parser, &dtd->
7603 sizeof(ELEMENT
7604 if (! ret)
7605 return NULL;
7606 if (ret->name != name)
7607 poolDiscard(&dtd->pool);
7608 else {
7609 poolFinish(&dtd->pool);
7610 if (! setElementTypePrefix(parser, ret))
7611 return NULL;
7612 }
7613 return ret;
7614 }
7615
7616 static XML_Char *
7617 copyString(const XML_Char *s, const XML_Memor
7618 size_t charsRequired = 0;
7619 XML_Char *result;
7620
7621 /* First determine how long the string is *
7622 while (s[charsRequired] != 0) {
7623 charsRequired++;
7624 }
7625 /* Include the terminator */
7626 charsRequired++;
7627
7628 /* Now allocate space for the copy */
7629 result = memsuite->malloc_fcn(charsRequired
7630 if (result == NULL)
7631 return NULL;
7632 /* Copy the original into place */
7633 memcpy(result, s, charsRequired * sizeof(XM
7634 return result;
7635 }
7636
7637 #ifdef XML_DTD
7638
7639 static float
7640 accountingGetCurrentAmplification(XML_Parser
7641 const XmlBigCount countBytesOutput
7642 = rootParser->m_accounting.countBytesDi
7643 + rootParser->m_accounting.countBytes
7644 const float amplificationFactor
7645 = rootParser->m_accounting.countBytesDi
7646 ? (countBytesOutput
7647 / (float)(rootParser->m_accoun
7648 : 1.0f;
7649 assert(! rootParser->m_parentParser);
7650 return amplificationFactor;
7651 }
7652
7653 static void
7654 accountingReportStats(XML_Parser originParser
7655 const XML_Parser rootParser = getRootParser
7656 assert(! rootParser->m_parentParser);
7657
7658 if (rootParser->m_accounting.debugLevel < 1
7659 return;
7660 }
7661
7662 const float amplificationFactor
7663 = accountingGetCurrentAmplification(roo
7664 fprintf(stderr,
7665 "expat: Accounting(%p): Direct " EX
7666 "10") ", indirect " EXPAT_FMT_U
7667 (void *)rootParser, rootParser->m_a
7668 rootParser->m_accounting.countBytes
7669 (double)amplificationFactor, epilog
7670 }
7671
7672 static void
7673 accountingOnAbort(XML_Parser originParser) {
7674 accountingReportStats(originParser, " ABORT
7675 }
7676
7677 static void
7678 accountingReportDiff(XML_Parser rootParser,
7679 unsigned int levelsAwayF
7680 const char *after, ptrdi
7681 enum XML_Account account
7682 assert(! rootParser->m_parentParser);
7683
7684 fprintf(stderr,
7685 " (+" EXPAT_FMT_PTRDIFF_T("6") " by
7686 bytesMore, (account == XML_ACCOUNT_
7687 levelsAwayFromRootParser, source_li
7688
7689 const char ellipis[] = "[..]";
7690 const size_t ellipsisLength = sizeof(ellipi
7691 const unsigned int contextLength = 10;
7692
7693 /* Note: Performance is of no concern here
7694 const char *walker = before;
7695 if ((rootParser->m_accounting.debugLevel >=
7696 || (after - before)
7697 <= (ptrdiff_t)(contextLength + e
7698 for (; walker < after; walker++) {
7699 fprintf(stderr, "%s", unsignedCharToPri
7700 }
7701 } else {
7702 for (; walker < before + contextLength; w
7703 fprintf(stderr, "%s", unsignedCharToPri
7704 }
7705 fprintf(stderr, ellipis);
7706 walker = after - contextLength;
7707 for (; walker < after; walker++) {
7708 fprintf(stderr, "%s", unsignedCharToPri
7709 }
7710 }
7711 fprintf(stderr, "\"\n");
7712 }
7713
7714 static XML_Bool
7715 accountingDiffTolerated(XML_Parser originPars
7716 const char *after, in
7717 enum XML_Account acco
7718 /* Note: We need to check the token type *f
7719 * we can even access variable <after
7720 * E.g. for XML_TOK_NONE <after> may
7721 switch (tok) {
7722 case XML_TOK_INVALID:
7723 case XML_TOK_PARTIAL:
7724 case XML_TOK_PARTIAL_CHAR:
7725 case XML_TOK_NONE:
7726 return XML_TRUE;
7727 }
7728
7729 if (account == XML_ACCOUNT_NONE)
7730 return XML_TRUE; /* because these bytes h
7731
7732 unsigned int levelsAwayFromRootParser;
7733 const XML_Parser rootParser
7734 = getRootParserOf(originParser, &levels
7735 assert(! rootParser->m_parentParser);
7736
7737 const int isDirect
7738 = (account == XML_ACCOUNT_DIRECT) && (o
7739 const ptrdiff_t bytesMore = after - before;
7740
7741 XmlBigCount *const additionTarget
7742 = isDirect ? &rootParser->m_accounting.
7743 : &rootParser->m_accounting.
7744
7745 /* Detect and avoid integer overflow */
7746 if (*additionTarget > (XmlBigCount)(-1) - (
7747 return XML_FALSE;
7748 *additionTarget += bytesMore;
7749
7750 const XmlBigCount countBytesOutput
7751 = rootParser->m_accounting.countBytesDi
7752 + rootParser->m_accounting.countBytes
7753 const float amplificationFactor
7754 = accountingGetCurrentAmplification(roo
7755 const XML_Bool tolerated
7756 = (countBytesOutput < rootParser->m_acc
7757 || (amplificationFactor
7758 <= rootParser->m_accounting.maxim
7759
7760 if (rootParser->m_accounting.debugLevel >=
7761 accountingReportStats(rootParser, "");
7762 accountingReportDiff(rootParser, levelsAw
7763 bytesMore, source_li
7764 }
7765
7766 return tolerated;
7767 }
7768
7769 unsigned long long
7770 testingAccountingGetCountBytesDirect(XML_Pars
7771 if (! parser)
7772 return 0;
7773 return parser->m_accounting.countBytesDirec
7774 }
7775
7776 unsigned long long
7777 testingAccountingGetCountBytesIndirect(XML_Pa
7778 if (! parser)
7779 return 0;
7780 return parser->m_accounting.countBytesIndir
7781 }
7782
7783 static void
7784 entityTrackingReportStats(XML_Parser rootPars
7785 const char *action,
7786 assert(! rootParser->m_parentParser);
7787 if (rootParser->m_entity_stats.debugLevel <
7788 return;
7789
7790 # if defined(XML_UNICODE)
7791 const char *const entityName = "[..]";
7792 # else
7793 const char *const entityName = entity->name
7794 # endif
7795
7796 fprintf(
7797 stderr,
7798 "expat: Entities(%p): Count %9d, depth
7799 (void *)rootParser, rootParser->m_entit
7800 rootParser->m_entity_stats.currentDepth
7801 rootParser->m_entity_stats.maximumDepth
7802 (rootParser->m_entity_stats.currentDept
7803 entity->is_param ? "%" : "&", entityNam
7804 sourceLine);
7805 }
7806
7807 static void
7808 entityTrackingOnOpen(XML_Parser originParser,
7809 const XML_Parser rootParser = getRootParser
7810 assert(! rootParser->m_parentParser);
7811
7812 rootParser->m_entity_stats.countEverOpened+
7813 rootParser->m_entity_stats.currentDepth++;
7814 if (rootParser->m_entity_stats.currentDepth
7815 > rootParser->m_entity_stats.maximumDep
7816 rootParser->m_entity_stats.maximumDepthSe
7817 }
7818
7819 entityTrackingReportStats(rootParser, entit
7820 }
7821
7822 static void
7823 entityTrackingOnClose(XML_Parser originParser
7824 const XML_Parser rootParser = getRootParser
7825 assert(! rootParser->m_parentParser);
7826
7827 entityTrackingReportStats(rootParser, entit
7828 rootParser->m_entity_stats.currentDepth--;
7829 }
7830
7831 static XML_Parser
7832 getRootParserOf(XML_Parser parser, unsigned i
7833 XML_Parser rootParser = parser;
7834 unsigned int stepsTakenUpwards = 0;
7835 while (rootParser->m_parentParser) {
7836 rootParser = rootParser->m_parentParser;
7837 stepsTakenUpwards++;
7838 }
7839 assert(! rootParser->m_parentParser);
7840 if (outLevelDiff != NULL) {
7841 *outLevelDiff = stepsTakenUpwards;
7842 }
7843 return rootParser;
7844 }
7845
7846 const char *
7847 unsignedCharToPrintable(unsigned char c) {
7848 switch (c) {
7849 case 0:
7850 return "\\0";
7851 case 1:
7852 return "\\x1";
7853 case 2:
7854 return "\\x2";
7855 case 3:
7856 return "\\x3";
7857 case 4:
7858 return "\\x4";
7859 case 5:
7860 return "\\x5";
7861 case 6:
7862 return "\\x6";
7863 case 7:
7864 return "\\x7";
7865 case 8:
7866 return "\\x8";
7867 case 9:
7868 return "\\t";
7869 case 10:
7870 return "\\n";
7871 case 11:
7872 return "\\xB";
7873 case 12:
7874 return "\\xC";
7875 case 13:
7876 return "\\r";
7877 case 14:
7878 return "\\xE";
7879 case 15:
7880 return "\\xF";
7881 case 16:
7882 return "\\x10";
7883 case 17:
7884 return "\\x11";
7885 case 18:
7886 return "\\x12";
7887 case 19:
7888 return "\\x13";
7889 case 20:
7890 return "\\x14";
7891 case 21:
7892 return "\\x15";
7893 case 22:
7894 return "\\x16";
7895 case 23:
7896 return "\\x17";
7897 case 24:
7898 return "\\x18";
7899 case 25:
7900 return "\\x19";
7901 case 26:
7902 return "\\x1A";
7903 case 27:
7904 return "\\x1B";
7905 case 28:
7906 return "\\x1C";
7907 case 29:
7908 return "\\x1D";
7909 case 30:
7910 return "\\x1E";
7911 case 31:
7912 return "\\x1F";
7913 case 32:
7914 return " ";
7915 case 33:
7916 return "!";
7917 case 34:
7918 return "\\\"";
7919 case 35:
7920 return "#";
7921 case 36:
7922 return "$";
7923 case 37:
7924 return "%";
7925 case 38:
7926 return "&";
7927 case 39:
7928 return "'";
7929 case 40:
7930 return "(";
7931 case 41:
7932 return ")";
7933 case 42:
7934 return "*";
7935 case 43:
7936 return "+";
7937 case 44:
7938 return ",";
7939 case 45:
7940 return "-";
7941 case 46:
7942 return ".";
7943 case 47:
7944 return "/";
7945 case 48:
7946 return "0";
7947 case 49:
7948 return "1";
7949 case 50:
7950 return "2";
7951 case 51:
7952 return "3";
7953 case 52:
7954 return "4";
7955 case 53:
7956 return "5";
7957 case 54:
7958 return "6";
7959 case 55:
7960 return "7";
7961 case 56:
7962 return "8";
7963 case 57:
7964 return "9";
7965 case 58:
7966 return ":";
7967 case 59:
7968 return ";";
7969 case 60:
7970 return "<";
7971 case 61:
7972 return "=";
7973 case 62:
7974 return ">";
7975 case 63:
7976 return "?";
7977 case 64:
7978 return "@";
7979 case 65:
7980 return "A";
7981 case 66:
7982 return "B";
7983 case 67:
7984 return "C";
7985 case 68:
7986 return "D";
7987 case 69:
7988 return "E";
7989 case 70:
7990 return "F";
7991 case 71:
7992 return "G";
7993 case 72:
7994 return "H";
7995 case 73:
7996 return "I";
7997 case 74:
7998 return "J";
7999 case 75:
8000 return "K";
8001 case 76:
8002 return "L";
8003 case 77:
8004 return "M";
8005 case 78:
8006 return "N";
8007 case 79:
8008 return "O";
8009 case 80:
8010 return "P";
8011 case 81:
8012 return "Q";
8013 case 82:
8014 return "R";
8015 case 83:
8016 return "S";
8017 case 84:
8018 return "T";
8019 case 85:
8020 return "U";
8021 case 86:
8022 return "V";
8023 case 87:
8024 return "W";
8025 case 88:
8026 return "X";
8027 case 89:
8028 return "Y";
8029 case 90:
8030 return "Z";
8031 case 91:
8032 return "[";
8033 case 92:
8034 return "\\\\";
8035 case 93:
8036 return "]";
8037 case 94:
8038 return "^";
8039 case 95:
8040 return "_";
8041 case 96:
8042 return "`";
8043 case 97:
8044 return "a";
8045 case 98:
8046 return "b";
8047 case 99:
8048 return "c";
8049 case 100:
8050 return "d";
8051 case 101:
8052 return "e";
8053 case 102:
8054 return "f";
8055 case 103:
8056 return "g";
8057 case 104:
8058 return "h";
8059 case 105:
8060 return "i";
8061 case 106:
8062 return "j";
8063 case 107:
8064 return "k";
8065 case 108:
8066 return "l";
8067 case 109:
8068 return "m";
8069 case 110:
8070 return "n";
8071 case 111:
8072 return "o";
8073 case 112:
8074 return "p";
8075 case 113:
8076 return "q";
8077 case 114:
8078 return "r";
8079 case 115:
8080 return "s";
8081 case 116:
8082 return "t";
8083 case 117:
8084 return "u";
8085 case 118:
8086 return "v";
8087 case 119:
8088 return "w";
8089 case 120:
8090 return "x";
8091 case 121:
8092 return "y";
8093 case 122:
8094 return "z";
8095 case 123:
8096 return "{";
8097 case 124:
8098 return "|";
8099 case 125:
8100 return "}";
8101 case 126:
8102 return "~";
8103 case 127:
8104 return "\\x7F";
8105 case 128:
8106 return "\\x80";
8107 case 129:
8108 return "\\x81";
8109 case 130:
8110 return "\\x82";
8111 case 131:
8112 return "\\x83";
8113 case 132:
8114 return "\\x84";
8115 case 133:
8116 return "\\x85";
8117 case 134:
8118 return "\\x86";
8119 case 135:
8120 return "\\x87";
8121 case 136:
8122 return "\\x88";
8123 case 137:
8124 return "\\x89";
8125 case 138:
8126 return "\\x8A";
8127 case 139:
8128 return "\\x8B";
8129 case 140:
8130 return "\\x8C";
8131 case 141:
8132 return "\\x8D";
8133 case 142:
8134 return "\\x8E";
8135 case 143:
8136 return "\\x8F";
8137 case 144:
8138 return "\\x90";
8139 case 145:
8140 return "\\x91";
8141 case 146:
8142 return "\\x92";
8143 case 147:
8144 return "\\x93";
8145 case 148:
8146 return "\\x94";
8147 case 149:
8148 return "\\x95";
8149 case 150:
8150 return "\\x96";
8151 case 151:
8152 return "\\x97";
8153 case 152:
8154 return "\\x98";
8155 case 153:
8156 return "\\x99";
8157 case 154:
8158 return "\\x9A";
8159 case 155:
8160 return "\\x9B";
8161 case 156:
8162 return "\\x9C";
8163 case 157:
8164 return "\\x9D";
8165 case 158:
8166 return "\\x9E";
8167 case 159:
8168 return "\\x9F";
8169 case 160:
8170 return "\\xA0";
8171 case 161:
8172 return "\\xA1";
8173 case 162:
8174 return "\\xA2";
8175 case 163:
8176 return "\\xA3";
8177 case 164:
8178 return "\\xA4";
8179 case 165:
8180 return "\\xA5";
8181 case 166:
8182 return "\\xA6";
8183 case 167:
8184 return "\\xA7";
8185 case 168:
8186 return "\\xA8";
8187 case 169:
8188 return "\\xA9";
8189 case 170:
8190 return "\\xAA";
8191 case 171:
8192 return "\\xAB";
8193 case 172:
8194 return "\\xAC";
8195 case 173:
8196 return "\\xAD";
8197 case 174:
8198 return "\\xAE";
8199 case 175:
8200 return "\\xAF";
8201 case 176:
8202 return "\\xB0";
8203 case 177:
8204 return "\\xB1";
8205 case 178:
8206 return "\\xB2";
8207 case 179:
8208 return "\\xB3";
8209 case 180:
8210 return "\\xB4";
8211 case 181:
8212 return "\\xB5";
8213 case 182:
8214 return "\\xB6";
8215 case 183:
8216 return "\\xB7";
8217 case 184:
8218 return "\\xB8";
8219 case 185:
8220 return "\\xB9";
8221 case 186:
8222 return "\\xBA";
8223 case 187:
8224 return "\\xBB";
8225 case 188:
8226 return "\\xBC";
8227 case 189:
8228 return "\\xBD";
8229 case 190:
8230 return "\\xBE";
8231 case 191:
8232 return "\\xBF";
8233 case 192:
8234 return "\\xC0";
8235 case 193:
8236 return "\\xC1";
8237 case 194:
8238 return "\\xC2";
8239 case 195:
8240 return "\\xC3";
8241 case 196:
8242 return "\\xC4";
8243 case 197:
8244 return "\\xC5";
8245 case 198:
8246 return "\\xC6";
8247 case 199:
8248 return "\\xC7";
8249 case 200:
8250 return "\\xC8";
8251 case 201:
8252 return "\\xC9";
8253 case 202:
8254 return "\\xCA";
8255 case 203:
8256 return "\\xCB";
8257 case 204:
8258 return "\\xCC";
8259 case 205:
8260 return "\\xCD";
8261 case 206:
8262 return "\\xCE";
8263 case 207:
8264 return "\\xCF";
8265 case 208:
8266 return "\\xD0";
8267 case 209:
8268 return "\\xD1";
8269 case 210:
8270 return "\\xD2";
8271 case 211:
8272 return "\\xD3";
8273 case 212:
8274 return "\\xD4";
8275 case 213:
8276 return "\\xD5";
8277 case 214:
8278 return "\\xD6";
8279 case 215:
8280 return "\\xD7";
8281 case 216:
8282 return "\\xD8";
8283 case 217:
8284 return "\\xD9";
8285 case 218:
8286 return "\\xDA";
8287 case 219:
8288 return "\\xDB";
8289 case 220:
8290 return "\\xDC";
8291 case 221:
8292 return "\\xDD";
8293 case 222:
8294 return "\\xDE";
8295 case 223:
8296 return "\\xDF";
8297 case 224:
8298 return "\\xE0";
8299 case 225:
8300 return "\\xE1";
8301 case 226:
8302 return "\\xE2";
8303 case 227:
8304 return "\\xE3";
8305 case 228:
8306 return "\\xE4";
8307 case 229:
8308 return "\\xE5";
8309 case 230:
8310 return "\\xE6";
8311 case 231:
8312 return "\\xE7";
8313 case 232:
8314 return "\\xE8";
8315 case 233:
8316 return "\\xE9";
8317 case 234:
8318 return "\\xEA";
8319 case 235:
8320 return "\\xEB";
8321 case 236:
8322 return "\\xEC";
8323 case 237:
8324 return "\\xED";
8325 case 238:
8326 return "\\xEE";
8327 case 239:
8328 return "\\xEF";
8329 case 240:
8330 return "\\xF0";
8331 case 241:
8332 return "\\xF1";
8333 case 242:
8334 return "\\xF2";
8335 case 243:
8336 return "\\xF3";
8337 case 244:
8338 return "\\xF4";
8339 case 245:
8340 return "\\xF5";
8341 case 246:
8342 return "\\xF6";
8343 case 247:
8344 return "\\xF7";
8345 case 248:
8346 return "\\xF8";
8347 case 249:
8348 return "\\xF9";
8349 case 250:
8350 return "\\xFA";
8351 case 251:
8352 return "\\xFB";
8353 case 252:
8354 return "\\xFC";
8355 case 253:
8356 return "\\xFD";
8357 case 254:
8358 return "\\xFE";
8359 case 255:
8360 return "\\xFF";
8361 default:
8362 assert(0); /* never gets here */
8363 return "dead code";
8364 }
8365 assert(0); /* never gets here */
8366 }
8367
8368 #endif /* XML_DTD */
8369
8370 static unsigned long
8371 getDebugLevel(const char *variableName, unsig
8372 const char *const valueOrNull = getenv(vari
8373 if (valueOrNull == NULL) {
8374 return defaultDebugLevel;
8375 }
8376 const char *const value = valueOrNull;
8377
8378 errno = 0;
8379 char *afterValue = (char *)value;
8380 unsigned long debugLevel = strtoul(value, &
8381 if ((errno != 0) || (afterValue[0] != '\0')
8382 errno = 0;
8383 return defaultDebugLevel;
8384 }
8385
8386 return debugLevel;
8387 }
8388