parser.c@ 41752

最後變更在這個檔案從41752是 39921,由 vboxsync 提交於 13 年前
libxml-2.6.31 upstream fixes
屬性 svn:eol-style 設為 `native`
檔案大小: 373.3 KB

行
1	/*
2	* parser.c : an XML 1.0 parser, namespaces and validity support are mostly
3	* implemented on top of the SAX interfaces
4	*
5	* References:
6	* The XML specification:
7	* http://www.w3.org/TR/REC-xml
8	* Original 1.0 version:
9	* http://www.w3.org/TR/1998/REC-xml-19980210
10	* XML second edition working draft
11	* http://www.w3.org/TR/2000/WD-xml-2e-20000814
12	*
13	* Okay this is a big file, the parser core is around 7000 lines, then it
14	* is followed by the progressive parser top routines, then the various
15	* high level APIs to call the parser and a few miscellaneous functions.
16	* A number of helper functions and deprecated ones have been moved to
17	* parserInternals.c to reduce this file size.
18	* As much as possible the functions are associated with their relative
19	* production in the XML specification. A few productions defining the
20	* different ranges of character are actually implanted either in
21	* parserInternals.h or parserInternals.c
22	* The DOM tree build is realized from the default SAX callbacks in
23	* the module SAX.c.
24	* The routines doing the validation checks are in valid.c and called either
25	* from the SAX callbacks or as standalone functions using a preparsed
26	* document.
27	*
28	* See Copyright for the status of this software.
29	*
30	* [email protected]
31	*/
32
33	#define IN_LIBXML
34	#include "libxml.h"
35
36	#if defined(WIN32) && !defined (__CYGWIN__)
37	#define XML_DIR_SEP '\\'
38	#else
39	#define XML_DIR_SEP '/'
40	#endif
41
42	#include <stdlib.h>
43	#include <string.h>
44	#include <stdarg.h>
45	#include <libxml/xmlmemory.h>
46	#include <libxml/threads.h>
47	#include <libxml/globals.h>
48	#include <libxml/tree.h>
49	#include <libxml/parser.h>
50	#include <libxml/parserInternals.h>
51	#include <libxml/valid.h>
52	#include <libxml/entities.h>
53	#include <libxml/xmlerror.h>
54	#include <libxml/encoding.h>
55	#include <libxml/xmlIO.h>
56	#include <libxml/uri.h>
57	#ifdef LIBXML_CATALOG_ENABLED
58	#include <libxml/catalog.h>
59	#endif
60	#ifdef LIBXML_SCHEMAS_ENABLED
61	#include <libxml/xmlschemastypes.h>
62	#include <libxml/relaxng.h>
63	#endif
64	#ifdef HAVE_CTYPE_H
65	#include <ctype.h>
66	#endif
67	#ifdef HAVE_STDLIB_H
68	#include <stdlib.h>
69	#endif
70	#ifdef HAVE_SYS_STAT_H
71	#include <sys/stat.h>
72	#endif
73	#ifdef HAVE_FCNTL_H
74	#include <fcntl.h>
75	#endif
76	#ifdef HAVE_UNISTD_H
77	#include <unistd.h>
78	#endif
79	#ifdef HAVE_ZLIB_H
80	#include <zlib.h>
81	#endif
82
83	static void
84	xmlFatalErr(xmlParserCtxtPtr ctxt, xmlParserErrors error, const char *info);
85
86	/************************************************************************
87	* *
88	* Arbitrary limits set in the parser. *
89	* *
90	************************************************************************/
91
92	#define XML_PARSER_BIG_ENTITY 1000
93	#define XML_PARSER_LOT_ENTITY 5000
94
95	/*
96	* XML_PARSER_NON_LINEAR is the threshold where the ratio of parsed entity
97	* replacement over the size in byte of the input indicates that you have
98	* and eponential behaviour. A value of 10 correspond to at least 3 entity
99	* replacement per byte of input.
100	*/
101	#define XML_PARSER_NON_LINEAR 10
102
103	/*
104	* xmlParserEntityCheck
105	*
106	* Function to check non-linear entity expansion behaviour
107	* This is here to detect and stop exponential linear entity expansion
108	* This is not a limitation of the parser but a safety
109	* boundary feature.
110	*/
111	static int
112	xmlParserEntityCheck(xmlParserCtxtPtr ctxt, unsigned long size,
113	xmlEntityPtr ent)
114	{
115	unsigned long consumed = 0;
116
117	if (ctxt == NULL)
118	return (0);
119	if (ctxt->lastError.code == XML_ERR_ENTITY_LOOP)
120	return (1);
121	if (size != 0) {
122	/*
123	* Do the check based on the replacement size of the entity
124	*/
125	if (size < XML_PARSER_BIG_ENTITY)
126	return(0);
127
128	/*
129	* A limit on the amount of text data reasonably used
130	*/
131	if (ctxt->input != NULL) {
132	consumed = ctxt->input->consumed +
133	(ctxt->input->cur - ctxt->input->base);
134	}
135	consumed += ctxt->sizeentities;
136
137	if ((size < XML_PARSER_NON_LINEAR * consumed) &&
138	(ctxt->nbentities * 3 < XML_PARSER_NON_LINEAR * consumed))
139	return (0);
140	} else if (ent != NULL) {
141	/*
142	* use the number of parsed entities in the replacement
143	*/
144	size = ent->owner;
145
146	/*
147	* The amount of data parsed counting entities size only once
148	*/
149	if (ctxt->input != NULL) {
150	consumed = ctxt->input->consumed +
151	(ctxt->input->cur - ctxt->input->base);
152	}
153	consumed += ctxt->sizeentities;
154
155	/*
156	* Check the density of entities for the amount of data
157	* knowing an entity reference will take at least 3 bytes
158	*/
159	if (size * 3 < consumed * XML_PARSER_NON_LINEAR)
160	return (0);
161	} else {
162	/*
163	* strange we got no data for checking just return
164	*/
165	return (0);
166	}
167
168	xmlFatalErr(ctxt, XML_ERR_ENTITY_LOOP, NULL);
169	return (1);
170	}
171
172	/**
173	* xmlParserMaxDepth:
174	*
175	* arbitrary depth limit for the XML documents that we allow to
176	* process. This is not a limitation of the parser but a safety
177	* boundary feature.
178	*/
179	unsigned int xmlParserMaxDepth = 1024;
180
181	#define SAX2 1
182
183	#define XML_PARSER_BIG_BUFFER_SIZE 300
184	#define XML_PARSER_BUFFER_SIZE 100
185
186	#define SAX_COMPAT_MODE BAD_CAST "SAX compatibility mode document"
187
188	/*
189	* List of XML prefixed PI allowed by W3C specs
190	*/
191
192	static const char *xmlW3CPIs[] = {
193	"xml-stylesheet",
194	NULL
195	};
196
197
198	/* DEPR void xmlParserHandleReference(xmlParserCtxtPtr ctxt); */
199	xmlEntityPtr xmlParseStringPEReference(xmlParserCtxtPtr ctxt,
200	const xmlChar **str);
201
202	static xmlParserErrors
203	xmlParseExternalEntityPrivate(xmlDocPtr doc, xmlParserCtxtPtr oldctxt,
204	xmlSAXHandlerPtr sax,
205	void user_data, int depth, const xmlChar URL,
206	const xmlChar ID, xmlNodePtr list);
207
208	#ifdef LIBXML_LEGACY_ENABLED
209	static void
210	xmlAddEntityReference(xmlEntityPtr ent, xmlNodePtr firstNode,
211	xmlNodePtr lastNode);
212	#endif /* LIBXML_LEGACY_ENABLED */
213
214	static xmlParserErrors
215	xmlParseBalancedChunkMemoryInternal(xmlParserCtxtPtr oldctxt,
216	const xmlChar string, void user_data, xmlNodePtr *lst);
217
218	/************************************************************************
219	* *
220	* Some factorized error routines *
221	* *
222	************************************************************************/
223
224	/**
225	* xmlErrAttributeDup:
226	* @ctxt: an XML parser context
227	* @prefix: the attribute prefix
228	* @localname: the attribute localname
229	*
230	* Handle a redefinition of attribute error
231	*/
232	static void
233	xmlErrAttributeDup(xmlParserCtxtPtr ctxt, const xmlChar * prefix,
234	const xmlChar * localname)
235	{
236	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
237	(ctxt->instate == XML_PARSER_EOF))
238	return;
239	if (ctxt != NULL)
240	ctxt->errNo = XML_ERR_ATTRIBUTE_REDEFINED;
241	if (prefix == NULL)
242	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL, XML_FROM_PARSER,
243	ctxt->errNo, XML_ERR_FATAL, NULL, 0,
244	(const char *) localname, NULL, NULL, 0, 0,
245	"Attribute %s redefined\n", localname);
246	else
247	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL, XML_FROM_PARSER,
248	ctxt->errNo, XML_ERR_FATAL, NULL, 0,
249	(const char ) prefix, (const char ) localname,
250	NULL, 0, 0, "Attribute %s:%s redefined\n", prefix,
251	localname);
252	if (ctxt != NULL) {
253	ctxt->wellFormed = 0;
254	if (ctxt->recovery == 0)
255	ctxt->disableSAX = 1;
256	}
257	}
258
259	/**
260	* xmlFatalErr:
261	* @ctxt: an XML parser context
262	* @error: the error number
263	* @extra: extra information string
264	*
265	* Handle a fatal parser error, i.e. violating Well-Formedness constraints
266	*/
267	static void
268	xmlFatalErr(xmlParserCtxtPtr ctxt, xmlParserErrors error, const char *info)
269	{
270	const char *errmsg;
271
272	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
273	(ctxt->instate == XML_PARSER_EOF))
274	return;
275	switch (error) {
276	case XML_ERR_INVALID_HEX_CHARREF:
277	errmsg = "CharRef: invalid hexadecimal value\n";
278	break;
279	case XML_ERR_INVALID_DEC_CHARREF:
280	errmsg = "CharRef: invalid decimal value\n";
281	break;
282	case XML_ERR_INVALID_CHARREF:
283	errmsg = "CharRef: invalid value\n";
284	break;
285	case XML_ERR_INTERNAL_ERROR:
286	errmsg = "internal error";
287	break;
288	case XML_ERR_PEREF_AT_EOF:
289	errmsg = "PEReference at end of document\n";
290	break;
291	case XML_ERR_PEREF_IN_PROLOG:
292	errmsg = "PEReference in prolog\n";
293	break;
294	case XML_ERR_PEREF_IN_EPILOG:
295	errmsg = "PEReference in epilog\n";
296	break;
297	case XML_ERR_PEREF_NO_NAME:
298	errmsg = "PEReference: no name\n";
299	break;
300	case XML_ERR_PEREF_SEMICOL_MISSING:
301	errmsg = "PEReference: expecting ';'\n";
302	break;
303	case XML_ERR_ENTITY_LOOP:
304	errmsg = "Detected an entity reference loop\n";
305	break;
306	case XML_ERR_ENTITY_NOT_STARTED:
307	errmsg = "EntityValue: \" or ' expected\n";
308	break;
309	case XML_ERR_ENTITY_PE_INTERNAL:
310	errmsg = "PEReferences forbidden in internal subset\n";
311	break;
312	case XML_ERR_ENTITY_NOT_FINISHED:
313	errmsg = "EntityValue: \" or ' expected\n";
314	break;
315	case XML_ERR_ATTRIBUTE_NOT_STARTED:
316	errmsg = "AttValue: \" or ' expected\n";
317	break;
318	case XML_ERR_LT_IN_ATTRIBUTE:
319	errmsg = "Unescaped '<' not allowed in attributes values\n";
320	break;
321	case XML_ERR_LITERAL_NOT_STARTED:
322	errmsg = "SystemLiteral \" or ' expected\n";
323	break;
324	case XML_ERR_LITERAL_NOT_FINISHED:
325	errmsg = "Unfinished System or Public ID \" or ' expected\n";
326	break;
327	case XML_ERR_MISPLACED_CDATA_END:
328	errmsg = "Sequence ']]>' not allowed in content\n";
329	break;
330	case XML_ERR_URI_REQUIRED:
331	errmsg = "SYSTEM or PUBLIC, the URI is missing\n";
332	break;
333	case XML_ERR_PUBID_REQUIRED:
334	errmsg = "PUBLIC, the Public Identifier is missing\n";
335	break;
336	case XML_ERR_HYPHEN_IN_COMMENT:
337	errmsg = "Comment must not contain '--' (double-hyphen)\n";
338	break;
339	case XML_ERR_PI_NOT_STARTED:
340	errmsg = "xmlParsePI : no target name\n";
341	break;
342	case XML_ERR_RESERVED_XML_NAME:
343	errmsg = "Invalid PI name\n";
344	break;
345	case XML_ERR_NOTATION_NOT_STARTED:
346	errmsg = "NOTATION: Name expected here\n";
347	break;
348	case XML_ERR_NOTATION_NOT_FINISHED:
349	errmsg = "'>' required to close NOTATION declaration\n";
350	break;
351	case XML_ERR_VALUE_REQUIRED:
352	errmsg = "Entity value required\n";
353	break;
354	case XML_ERR_URI_FRAGMENT:
355	errmsg = "Fragment not allowed";
356	break;
357	case XML_ERR_ATTLIST_NOT_STARTED:
358	errmsg = "'(' required to start ATTLIST enumeration\n";
359	break;
360	case XML_ERR_NMTOKEN_REQUIRED:
361	errmsg = "NmToken expected in ATTLIST enumeration\n";
362	break;
363	case XML_ERR_ATTLIST_NOT_FINISHED:
364	errmsg = "')' required to finish ATTLIST enumeration\n";
365	break;
366	case XML_ERR_MIXED_NOT_STARTED:
367	errmsg = "MixedContentDecl : '\|' or ')*' expected\n";
368	break;
369	case XML_ERR_PCDATA_REQUIRED:
370	errmsg = "MixedContentDecl : '#PCDATA' expected\n";
371	break;
372	case XML_ERR_ELEMCONTENT_NOT_STARTED:
373	errmsg = "ContentDecl : Name or '(' expected\n";
374	break;
375	case XML_ERR_ELEMCONTENT_NOT_FINISHED:
376	errmsg = "ContentDecl : ',' '\|' or ')' expected\n";
377	break;
378	case XML_ERR_PEREF_IN_INT_SUBSET:
379	errmsg =
380	"PEReference: forbidden within markup decl in internal subset\n";
381	break;
382	case XML_ERR_GT_REQUIRED:
383	errmsg = "expected '>'\n";
384	break;
385	case XML_ERR_CONDSEC_INVALID:
386	errmsg = "XML conditional section '[' expected\n";
387	break;
388	case XML_ERR_EXT_SUBSET_NOT_FINISHED:
389	errmsg = "Content error in the external subset\n";
390	break;
391	case XML_ERR_CONDSEC_INVALID_KEYWORD:
392	errmsg =
393	"conditional section INCLUDE or IGNORE keyword expected\n";
394	break;
395	case XML_ERR_CONDSEC_NOT_FINISHED:
396	errmsg = "XML conditional section not closed\n";
397	break;
398	case XML_ERR_XMLDECL_NOT_STARTED:
399	errmsg = "Text declaration '<?xml' required\n";
400	break;
401	case XML_ERR_XMLDECL_NOT_FINISHED:
402	errmsg = "parsing XML declaration: '?>' expected\n";
403	break;
404	case XML_ERR_EXT_ENTITY_STANDALONE:
405	errmsg = "external parsed entities cannot be standalone\n";
406	break;
407	case XML_ERR_ENTITYREF_SEMICOL_MISSING:
408	errmsg = "EntityRef: expecting ';'\n";
409	break;
410	case XML_ERR_DOCTYPE_NOT_FINISHED:
411	errmsg = "DOCTYPE improperly terminated\n";
412	break;
413	case XML_ERR_LTSLASH_REQUIRED:
414	errmsg = "EndTag: '</' not found\n";
415	break;
416	case XML_ERR_EQUAL_REQUIRED:
417	errmsg = "expected '='\n";
418	break;
419	case XML_ERR_STRING_NOT_CLOSED:
420	errmsg = "String not closed expecting \" or '\n";
421	break;
422	case XML_ERR_STRING_NOT_STARTED:
423	errmsg = "String not started expecting ' or \"\n";
424	break;
425	case XML_ERR_ENCODING_NAME:
426	errmsg = "Invalid XML encoding name\n";
427	break;
428	case XML_ERR_STANDALONE_VALUE:
429	errmsg = "standalone accepts only 'yes' or 'no'\n";
430	break;
431	case XML_ERR_DOCUMENT_EMPTY:
432	errmsg = "Document is empty\n";
433	break;
434	case XML_ERR_DOCUMENT_END:
435	errmsg = "Extra content at the end of the document\n";
436	break;
437	case XML_ERR_NOT_WELL_BALANCED:
438	errmsg = "chunk is not well balanced\n";
439	break;
440	case XML_ERR_EXTRA_CONTENT:
441	errmsg = "extra content at the end of well balanced chunk\n";
442	break;
443	case XML_ERR_VERSION_MISSING:
444	errmsg = "Malformed declaration expecting version\n";
445	break;
446	#if 0
447	case:
448	errmsg = "\n";
449	break;
450	#endif
451	default:
452	errmsg = "Unregistered error message\n";
453	}
454	if (ctxt != NULL)
455	ctxt->errNo = error;
456	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL, XML_FROM_PARSER, error,
457	XML_ERR_FATAL, NULL, 0, info, NULL, NULL, 0, 0, errmsg,
458	info);
459	if (ctxt != NULL) {
460	ctxt->wellFormed = 0;
461	if (ctxt->recovery == 0)
462	ctxt->disableSAX = 1;
463	}
464	}
465
466	/**
467	* xmlFatalErrMsg:
468	* @ctxt: an XML parser context
469	* @error: the error number
470	* @msg: the error message
471	*
472	* Handle a fatal parser error, i.e. violating Well-Formedness constraints
473	*/
474	static void
475	xmlFatalErrMsg(xmlParserCtxtPtr ctxt, xmlParserErrors error,
476	const char *msg)
477	{
478	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
479	(ctxt->instate == XML_PARSER_EOF))
480	return;
481	if (ctxt != NULL)
482	ctxt->errNo = error;
483	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL, XML_FROM_PARSER, error,
484	XML_ERR_FATAL, NULL, 0, NULL, NULL, NULL, 0, 0, msg);
485	if (ctxt != NULL) {
486	ctxt->wellFormed = 0;
487	if (ctxt->recovery == 0)
488	ctxt->disableSAX = 1;
489	}
490	}
491
492	/**
493	* xmlWarningMsg:
494	* @ctxt: an XML parser context
495	* @error: the error number
496	* @msg: the error message
497	* @str1: extra data
498	* @str2: extra data
499	*
500	* Handle a warning.
501	*/
502	static void
503	xmlWarningMsg(xmlParserCtxtPtr ctxt, xmlParserErrors error,
504	const char msg, const xmlChar str1, const xmlChar *str2)
505	{
506	xmlStructuredErrorFunc schannel = NULL;
507
508	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
509	(ctxt->instate == XML_PARSER_EOF))
510	return;
511	if ((ctxt != NULL) && (ctxt->sax != NULL) &&
512	(ctxt->sax->initialized == XML_SAX2_MAGIC))
513	schannel = ctxt->sax->serror;
514	__xmlRaiseError(schannel,
515	(ctxt->sax) ? ctxt->sax->warning : NULL,
516	ctxt->userData,
517	ctxt, NULL, XML_FROM_PARSER, error,
518	XML_ERR_WARNING, NULL, 0,
519	(const char ) str1, (const char ) str2, NULL, 0, 0,
520	msg, (const char ) str1, (const char ) str2);
521	}
522
523	/**
524	* xmlValidityError:
525	* @ctxt: an XML parser context
526	* @error: the error number
527	* @msg: the error message
528	* @str1: extra data
529	*
530	* Handle a validity error.
531	*/
532	static void
533	xmlValidityError(xmlParserCtxtPtr ctxt, xmlParserErrors error,
534	const char msg, const xmlChar str1)
535	{
536	xmlStructuredErrorFunc schannel = NULL;
537
538	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
539	(ctxt->instate == XML_PARSER_EOF))
540	return;
541	if (ctxt != NULL) {
542	ctxt->errNo = error;
543	if ((ctxt->sax != NULL) && (ctxt->sax->initialized == XML_SAX2_MAGIC))
544	schannel = ctxt->sax->serror;
545	}
546	__xmlRaiseError(schannel,
547	ctxt->vctxt.error, ctxt->vctxt.userData,
548	ctxt, NULL, XML_FROM_DTD, error,
549	XML_ERR_ERROR, NULL, 0, (const char *) str1,
550	NULL, NULL, 0, 0,
551	msg, (const char *) str1);
552	if (ctxt != NULL) {
553	ctxt->valid = 0;
554	}
555	}
556
557	/**
558	* xmlFatalErrMsgInt:
559	* @ctxt: an XML parser context
560	* @error: the error number
561	* @msg: the error message
562	* @val: an integer value
563	*
564	* Handle a fatal parser error, i.e. violating Well-Formedness constraints
565	*/
566	static void
567	xmlFatalErrMsgInt(xmlParserCtxtPtr ctxt, xmlParserErrors error,
568	const char *msg, int val)
569	{
570	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
571	(ctxt->instate == XML_PARSER_EOF))
572	return;
573	if (ctxt != NULL)
574	ctxt->errNo = error;
575	__xmlRaiseError(NULL, NULL, NULL,
576	ctxt, NULL, XML_FROM_PARSER, error, XML_ERR_FATAL,
577	NULL, 0, NULL, NULL, NULL, val, 0, msg, val);
578	if (ctxt != NULL) {
579	ctxt->wellFormed = 0;
580	if (ctxt->recovery == 0)
581	ctxt->disableSAX = 1;
582	}
583	}
584
585	/**
586	* xmlFatalErrMsgStrIntStr:
587	* @ctxt: an XML parser context
588	* @error: the error number
589	* @msg: the error message
590	* @str1: an string info
591	* @val: an integer value
592	* @str2: an string info
593	*
594	* Handle a fatal parser error, i.e. violating Well-Formedness constraints
595	*/
596	static void
597	xmlFatalErrMsgStrIntStr(xmlParserCtxtPtr ctxt, xmlParserErrors error,
598	const char msg, const xmlChar str1, int val,
599	const xmlChar *str2)
600	{
601	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
602	(ctxt->instate == XML_PARSER_EOF))
603	return;
604	if (ctxt != NULL)
605	ctxt->errNo = error;
606	__xmlRaiseError(NULL, NULL, NULL,
607	ctxt, NULL, XML_FROM_PARSER, error, XML_ERR_FATAL,
608	NULL, 0, (const char ) str1, (const char ) str2,
609	NULL, val, 0, msg, str1, val, str2);
610	if (ctxt != NULL) {
611	ctxt->wellFormed = 0;
612	if (ctxt->recovery == 0)
613	ctxt->disableSAX = 1;
614	}
615	}
616
617	/**
618	* xmlFatalErrMsgStr:
619	* @ctxt: an XML parser context
620	* @error: the error number
621	* @msg: the error message
622	* @val: a string value
623	*
624	* Handle a fatal parser error, i.e. violating Well-Formedness constraints
625	*/
626	static void
627	xmlFatalErrMsgStr(xmlParserCtxtPtr ctxt, xmlParserErrors error,
628	const char msg, const xmlChar val)
629	{
630	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
631	(ctxt->instate == XML_PARSER_EOF))
632	return;
633	if (ctxt != NULL)
634	ctxt->errNo = error;
635	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL,
636	XML_FROM_PARSER, error, XML_ERR_FATAL,
637	NULL, 0, (const char *) val, NULL, NULL, 0, 0, msg,
638	val);
639	if (ctxt != NULL) {
640	ctxt->wellFormed = 0;
641	if (ctxt->recovery == 0)
642	ctxt->disableSAX = 1;
643	}
644	}
645
646	/**
647	* xmlErrMsgStr:
648	* @ctxt: an XML parser context
649	* @error: the error number
650	* @msg: the error message
651	* @val: a string value
652	*
653	* Handle a non fatal parser error
654	*/
655	static void
656	xmlErrMsgStr(xmlParserCtxtPtr ctxt, xmlParserErrors error,
657	const char msg, const xmlChar val)
658	{
659	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
660	(ctxt->instate == XML_PARSER_EOF))
661	return;
662	if (ctxt != NULL)
663	ctxt->errNo = error;
664	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL,
665	XML_FROM_PARSER, error, XML_ERR_ERROR,
666	NULL, 0, (const char *) val, NULL, NULL, 0, 0, msg,
667	val);
668	}
669
670	/**
671	* xmlNsErr:
672	* @ctxt: an XML parser context
673	* @error: the error number
674	* @msg: the message
675	* @info1: extra information string
676	* @info2: extra information string
677	*
678	* Handle a fatal parser error, i.e. violating Well-Formedness constraints
679	*/
680	static void
681	xmlNsErr(xmlParserCtxtPtr ctxt, xmlParserErrors error,
682	const char *msg,
683	const xmlChar * info1, const xmlChar * info2,
684	const xmlChar * info3)
685	{
686	if ((ctxt != NULL) && (ctxt->disableSAX != 0) &&
687	(ctxt->instate == XML_PARSER_EOF))
688	return;
689	if (ctxt != NULL)
690	ctxt->errNo = error;
691	__xmlRaiseError(NULL, NULL, NULL, ctxt, NULL, XML_FROM_NAMESPACE, error,
692	XML_ERR_ERROR, NULL, 0, (const char *) info1,
693	(const char ) info2, (const char ) info3, 0, 0, msg,
694	info1, info2, info3);
695	if (ctxt != NULL)
696	ctxt->nsWellFormed = 0;
697	}
698
699	/************************************************************************
700	* *
701	* Library wide options *
702	* *
703	************************************************************************/
704
705	/**
706	* xmlHasFeature:
707	* @feature: the feature to be examined
708	*
709	* Examines if the library has been compiled with a given feature.
710	*
711	* Returns a non-zero value if the feature exist, otherwise zero.
712	* Returns zero (0) if the feature does not exist or an unknown
713	* unknown feature is requested, non-zero otherwise.
714	*/
715	int
716	xmlHasFeature(xmlFeature feature)
717	{
718	switch (feature) {
719	case XML_WITH_THREAD:
720	#ifdef LIBXML_THREAD_ENABLED
721	return(1);
722	#else
723	return(0);
724	#endif
725	case XML_WITH_TREE:
726	#ifdef LIBXML_TREE_ENABLED
727	return(1);
728	#else
729	return(0);
730	#endif
731	case XML_WITH_OUTPUT:
732	#ifdef LIBXML_OUTPUT_ENABLED
733	return(1);
734	#else
735	return(0);
736	#endif
737	case XML_WITH_PUSH:
738	#ifdef LIBXML_PUSH_ENABLED
739	return(1);
740	#else
741	return(0);
742	#endif
743	case XML_WITH_READER:
744	#ifdef LIBXML_READER_ENABLED
745	return(1);
746	#else
747	return(0);
748	#endif
749	case XML_WITH_PATTERN:
750	#ifdef LIBXML_PATTERN_ENABLED
751	return(1);
752	#else
753	return(0);
754	#endif
755	case XML_WITH_WRITER:
756	#ifdef LIBXML_WRITER_ENABLED
757	return(1);
758	#else
759	return(0);
760	#endif
761	case XML_WITH_SAX1:
762	#ifdef LIBXML_SAX1_ENABLED
763	return(1);
764	#else
765	return(0);
766	#endif
767	case XML_WITH_FTP:
768	#ifdef LIBXML_FTP_ENABLED
769	return(1);
770	#else
771	return(0);
772	#endif
773	case XML_WITH_HTTP:
774	#ifdef LIBXML_HTTP_ENABLED
775	return(1);
776	#else
777	return(0);
778	#endif
779	case XML_WITH_VALID:
780	#ifdef LIBXML_VALID_ENABLED
781	return(1);
782	#else
783	return(0);
784	#endif
785	case XML_WITH_HTML:
786	#ifdef LIBXML_HTML_ENABLED
787	return(1);
788	#else
789	return(0);
790	#endif
791	case XML_WITH_LEGACY:
792	#ifdef LIBXML_LEGACY_ENABLED
793	return(1);
794	#else
795	return(0);
796	#endif
797	case XML_WITH_C14N:
798	#ifdef LIBXML_C14N_ENABLED
799	return(1);
800	#else
801	return(0);
802	#endif
803	case XML_WITH_CATALOG:
804	#ifdef LIBXML_CATALOG_ENABLED
805	return(1);
806	#else
807	return(0);
808	#endif
809	case XML_WITH_XPATH:
810	#ifdef LIBXML_XPATH_ENABLED
811	return(1);
812	#else
813	return(0);
814	#endif
815	case XML_WITH_XPTR:
816	#ifdef LIBXML_XPTR_ENABLED
817	return(1);
818	#else
819	return(0);
820	#endif
821	case XML_WITH_XINCLUDE:
822	#ifdef LIBXML_XINCLUDE_ENABLED
823	return(1);
824	#else
825	return(0);
826	#endif
827	case XML_WITH_ICONV:
828	#ifdef LIBXML_ICONV_ENABLED
829	return(1);
830	#else
831	return(0);
832	#endif
833	case XML_WITH_ISO8859X:
834	#ifdef LIBXML_ISO8859X_ENABLED
835	return(1);
836	#else
837	return(0);
838	#endif
839	case XML_WITH_UNICODE:
840	#ifdef LIBXML_UNICODE_ENABLED
841	return(1);
842	#else
843	return(0);
844	#endif
845	case XML_WITH_REGEXP:
846	#ifdef LIBXML_REGEXP_ENABLED
847	return(1);
848	#else
849	return(0);
850	#endif
851	case XML_WITH_AUTOMATA:
852	#ifdef LIBXML_AUTOMATA_ENABLED
853	return(1);
854	#else
855	return(0);
856	#endif
857	case XML_WITH_EXPR:
858	#ifdef LIBXML_EXPR_ENABLED
859	return(1);
860	#else
861	return(0);
862	#endif
863	case XML_WITH_SCHEMAS:
864	#ifdef LIBXML_SCHEMAS_ENABLED
865	return(1);
866	#else
867	return(0);
868	#endif
869	case XML_WITH_SCHEMATRON:
870	#ifdef LIBXML_SCHEMATRON_ENABLED
871	return(1);
872	#else
873	return(0);
874	#endif
875	case XML_WITH_MODULES:
876	#ifdef LIBXML_MODULES_ENABLED
877	return(1);
878	#else
879	return(0);
880	#endif
881	case XML_WITH_DEBUG:
882	#ifdef LIBXML_DEBUG_ENABLED
883	return(1);
884	#else
885	return(0);
886	#endif
887	case XML_WITH_DEBUG_MEM:
888	#ifdef DEBUG_MEMORY_LOCATION
889	return(1);
890	#else
891	return(0);
892	#endif
893	case XML_WITH_DEBUG_RUN:
894	#ifdef LIBXML_DEBUG_RUNTIME
895	return(1);
896	#else
897	return(0);
898	#endif
899	case XML_WITH_ZLIB:
900	#ifdef LIBXML_ZLIB_ENABLED
901	return(1);
902	#else
903	return(0);
904	#endif
905	default:
906	break;
907	}
908	return(0);
909	}
910
911	/************************************************************************
912	* *
913	* SAX2 defaulted attributes handling *
914	* *
915	************************************************************************/
916
917	/**
918	* xmlDetectSAX2:
919	* @ctxt: an XML parser context
920	*
921	* Do the SAX2 detection and specific intialization
922	*/
923	static void
924	xmlDetectSAX2(xmlParserCtxtPtr ctxt) {
925	if (ctxt == NULL) return;
926	#ifdef LIBXML_SAX1_ENABLED
927	if ((ctxt->sax) && (ctxt->sax->initialized == XML_SAX2_MAGIC) &&
928	((ctxt->sax->startElementNs != NULL) \|\|
929	(ctxt->sax->endElementNs != NULL))) ctxt->sax2 = 1;
930	#else
931	ctxt->sax2 = 1;
932	#endif /* LIBXML_SAX1_ENABLED */
933
934	ctxt->str_xml = xmlDictLookup(ctxt->dict, BAD_CAST "xml", 3);
935	ctxt->str_xmlns = xmlDictLookup(ctxt->dict, BAD_CAST "xmlns", 5);
936	ctxt->str_xml_ns = xmlDictLookup(ctxt->dict, XML_XML_NAMESPACE, 36);
937	if ((ctxt->str_xml==NULL) \|\| (ctxt->str_xmlns==NULL) \|\|
938	(ctxt->str_xml_ns == NULL)) {
939	xmlErrMemory(ctxt, NULL);
940	}
941	}
942
943	typedef struct _xmlDefAttrs xmlDefAttrs;
944	typedef xmlDefAttrs *xmlDefAttrsPtr;
945	struct _xmlDefAttrs {
946	int nbAttrs; /* number of defaulted attributes on that element */
947	int maxAttrs; /* the size of the array */
948	const xmlChar values[4]; / array of localname/prefix/values */
949	};
950
951	/**
952	* xmlAddDefAttrs:
953	* @ctxt: an XML parser context
954	* @fullname: the element fullname
955	* @fullattr: the attribute fullname
956	* @value: the attribute value
957	*
958	* Add a defaulted attribute for an element
959	*/
960	static void
961	xmlAddDefAttrs(xmlParserCtxtPtr ctxt,
962	const xmlChar *fullname,
963	const xmlChar *fullattr,
964	const xmlChar *value) {
965	xmlDefAttrsPtr defaults;
966	int len;
967	const xmlChar *name;
968	const xmlChar *prefix;
969
970	if (ctxt->attsDefault == NULL) {
971	ctxt->attsDefault = xmlHashCreateDict(10, ctxt->dict);
972	if (ctxt->attsDefault == NULL)
973	goto mem_error;
974	}
975
976	/*
977	* split the element name into prefix:localname , the string found
978	* are within the DTD and then not associated to namespace names.
979	*/
980	name = xmlSplitQName3(fullname, &len);
981	if (name == NULL) {
982	name = xmlDictLookup(ctxt->dict, fullname, -1);
983	prefix = NULL;
984	} else {
985	name = xmlDictLookup(ctxt->dict, name, -1);
986	prefix = xmlDictLookup(ctxt->dict, fullname, len);
987	}
988
989	/*
990	* make sure there is some storage
991	*/
992	defaults = xmlHashLookup2(ctxt->attsDefault, name, prefix);
993	if (defaults == NULL) {
994	defaults = (xmlDefAttrsPtr) xmlMalloc(sizeof(xmlDefAttrs) +
995	(4 * 4) * sizeof(const xmlChar *));
996	if (defaults == NULL)
997	goto mem_error;
998	defaults->nbAttrs = 0;
999	defaults->maxAttrs = 4;
1000	xmlHashUpdateEntry2(ctxt->attsDefault, name, prefix, defaults, NULL);
1001	} else if (defaults->nbAttrs >= defaults->maxAttrs) {
1002	xmlDefAttrsPtr temp;
1003
1004	temp = (xmlDefAttrsPtr) xmlRealloc(defaults, sizeof(xmlDefAttrs) +
1005	(2 * defaults->maxAttrs * 4) * sizeof(const xmlChar *));
1006	if (temp == NULL)
1007	goto mem_error;
1008	defaults = temp;
1009	defaults->maxAttrs *= 2;
1010	xmlHashUpdateEntry2(ctxt->attsDefault, name, prefix, defaults, NULL);
1011	}
1012
1013	/*
1014	* Split the element name into prefix:localname , the string found
1015	* are within the DTD and hen not associated to namespace names.
1016	*/
1017	name = xmlSplitQName3(fullattr, &len);
1018	if (name == NULL) {
1019	name = xmlDictLookup(ctxt->dict, fullattr, -1);
1020	prefix = NULL;
1021	} else {
1022	name = xmlDictLookup(ctxt->dict, name, -1);
1023	prefix = xmlDictLookup(ctxt->dict, fullattr, len);
1024	}
1025
1026	defaults->values[4 * defaults->nbAttrs] = name;
1027	defaults->values[4 * defaults->nbAttrs + 1] = prefix;
1028	/* intern the string and precompute the end */
1029	len = xmlStrlen(value);
1030	value = xmlDictLookup(ctxt->dict, value, len);
1031	defaults->values[4 * defaults->nbAttrs + 2] = value;
1032	defaults->values[4 * defaults->nbAttrs + 3] = value + len;
1033	defaults->nbAttrs++;
1034
1035	return;
1036
1037	mem_error:
1038	xmlErrMemory(ctxt, NULL);
1039	return;
1040	}
1041
1042	/**
1043	* xmlAddSpecialAttr:
1044	* @ctxt: an XML parser context
1045	* @fullname: the element fullname
1046	* @fullattr: the attribute fullname
1047	* @type: the attribute type
1048	*
1049	* Register this attribute type
1050	*/
1051	static void
1052	xmlAddSpecialAttr(xmlParserCtxtPtr ctxt,
1053	const xmlChar *fullname,
1054	const xmlChar *fullattr,
1055	int type)
1056	{
1057	if (ctxt->attsSpecial == NULL) {
1058	ctxt->attsSpecial = xmlHashCreateDict(10, ctxt->dict);
1059	if (ctxt->attsSpecial == NULL)
1060	goto mem_error;
1061	}
1062
1063	if (xmlHashLookup2(ctxt->attsSpecial, fullname, fullattr) != NULL)
1064	return;
1065
1066	xmlHashAddEntry2(ctxt->attsSpecial, fullname, fullattr,
1067	(void *) (long) type);
1068	return;
1069
1070	mem_error:
1071	xmlErrMemory(ctxt, NULL);
1072	return;
1073	}
1074
1075	/**
1076	* xmlCleanSpecialAttrCallback:
1077	*
1078	* Removes CDATA attributes from the special attribute table
1079	*/
1080	static void
1081	xmlCleanSpecialAttrCallback(void payload, void data,
1082	const xmlChar fullname, const xmlChar fullattr,
1083	const xmlChar *unused ATTRIBUTE_UNUSED) {
1084	xmlParserCtxtPtr ctxt = (xmlParserCtxtPtr) data;
1085
1086	if (((long) payload) == XML_ATTRIBUTE_CDATA) {
1087	xmlHashRemoveEntry2(ctxt->attsSpecial, fullname, fullattr, NULL);
1088	}
1089	}
1090
1091	/**
1092	* xmlCleanSpecialAttr:
1093	* @ctxt: an XML parser context
1094	*
1095	* Trim the list of attributes defined to remove all those of type
1096	* CDATA as they are not special. This call should be done when finishing
1097	* to parse the DTD and before starting to parse the document root.
1098	*/
1099	static void
1100	xmlCleanSpecialAttr(xmlParserCtxtPtr ctxt)
1101	{
1102	if (ctxt->attsSpecial == NULL)
1103	return;
1104
1105	xmlHashScanFull(ctxt->attsSpecial, xmlCleanSpecialAttrCallback, ctxt);
1106
1107	if (xmlHashSize(ctxt->attsSpecial) == 0) {
1108	xmlHashFree(ctxt->attsSpecial, NULL);
1109	ctxt->attsSpecial = NULL;
1110	}
1111	return;
1112	}
1113
1114	/**
1115	* xmlCheckLanguageID:
1116	* @lang: pointer to the string value
1117	*
1118	* Checks that the value conforms to the LanguageID production:
1119	*
1120	* NOTE: this is somewhat deprecated, those productions were removed from
1121	* the XML Second edition.
1122	*
1123	* [33] LanguageID ::= Langcode ('-' Subcode)*
1124	* [34] Langcode ::= ISO639Code \| IanaCode \| UserCode
1125	* [35] ISO639Code ::= ([a-z] \| [A-Z]) ([a-z] \| [A-Z])
1126	* [36] IanaCode ::= ('i' \| 'I') '-' ([a-z] \| [A-Z])+
1127	* [37] UserCode ::= ('x' \| 'X') '-' ([a-z] \| [A-Z])+
1128	* [38] Subcode ::= ([a-z] \| [A-Z])+
1129	*
1130	* Returns 1 if correct 0 otherwise
1131	**/
1132	int
1133	xmlCheckLanguageID(const xmlChar * lang)
1134	{
1135	const xmlChar *cur = lang;
1136
1137	if (cur == NULL)
1138	return (0);
1139	if (((cur[0] == 'i') && (cur[1] == '-')) \|\|
1140	((cur[0] == 'I') && (cur[1] == '-'))) {
1141	/*
1142	* IANA code
1143	*/
1144	cur += 2;
1145	while (((cur[0] >= 'A') && (cur[0] <= 'Z')) \|\| /* non input consuming */
1146	((cur[0] >= 'a') && (cur[0] <= 'z')))
1147	cur++;
1148	} else if (((cur[0] == 'x') && (cur[1] == '-')) \|\|
1149	((cur[0] == 'X') && (cur[1] == '-'))) {
1150	/*
1151	* User code
1152	*/
1153	cur += 2;
1154	while (((cur[0] >= 'A') && (cur[0] <= 'Z')) \|\| /* non input consuming */
1155	((cur[0] >= 'a') && (cur[0] <= 'z')))
1156	cur++;
1157	} else if (((cur[0] >= 'A') && (cur[0] <= 'Z')) \|\|
1158	((cur[0] >= 'a') && (cur[0] <= 'z'))) {
1159	/*
1160	* ISO639
1161	*/
1162	cur++;
1163	if (((cur[0] >= 'A') && (cur[0] <= 'Z')) \|\|
1164	((cur[0] >= 'a') && (cur[0] <= 'z')))
1165	cur++;
1166	else
1167	return (0);
1168	} else
1169	return (0);
1170	while (cur[0] != 0) { /* non input consuming */
1171	if (cur[0] != '-')
1172	return (0);
1173	cur++;
1174	if (((cur[0] >= 'A') && (cur[0] <= 'Z')) \|\|
1175	((cur[0] >= 'a') && (cur[0] <= 'z')))
1176	cur++;
1177	else
1178	return (0);
1179	while (((cur[0] >= 'A') && (cur[0] <= 'Z')) \|\| /* non input consuming */
1180	((cur[0] >= 'a') && (cur[0] <= 'z')))
1181	cur++;
1182	}
1183	return (1);
1184	}
1185
1186	/************************************************************************
1187	* *
1188	* Parser stacks related functions and macros *
1189	* *
1190	************************************************************************/
1191
1192	xmlEntityPtr xmlParseStringEntityRef(xmlParserCtxtPtr ctxt,
1193	const xmlChar ** str);
1194
1195	#ifdef SAX2
1196	/**
1197	* nsPush:
1198	* @ctxt: an XML parser context
1199	* @prefix: the namespace prefix or NULL
1200	* @URL: the namespace name
1201	*
1202	* Pushes a new parser namespace on top of the ns stack
1203	*
1204	* Returns -1 in case of error, -2 if the namespace should be discarded
1205	* and the index in the stack otherwise.
1206	*/
1207	static int
1208	nsPush(xmlParserCtxtPtr ctxt, const xmlChar prefix, const xmlChar URL)
1209	{
1210	if (ctxt->options & XML_PARSE_NSCLEAN) {
1211	int i;
1212	for (i = 0;i < ctxt->nsNr;i += 2) {
1213	if (ctxt->nsTab[i] == prefix) {
1214	/* in scope */
1215	if (ctxt->nsTab[i + 1] == URL)
1216	return(-2);
1217	/* out of scope keep it */
1218	break;
1219	}
1220	}
1221	}
1222	if ((ctxt->nsMax == 0) \|\| (ctxt->nsTab == NULL)) {
1223	ctxt->nsMax = 10;
1224	ctxt->nsNr = 0;
1225	ctxt->nsTab = (const xmlChar **)
1226	xmlMalloc(ctxt->nsMax * sizeof(xmlChar *));
1227	if (ctxt->nsTab == NULL) {
1228	xmlErrMemory(ctxt, NULL);
1229	ctxt->nsMax = 0;
1230	return (-1);
1231	}
1232	} else if (ctxt->nsNr >= ctxt->nsMax) {
1233	ctxt->nsMax *= 2;
1234	ctxt->nsTab = (const xmlChar **)
1235	xmlRealloc((char *) ctxt->nsTab,
1236	ctxt->nsMax * sizeof(ctxt->nsTab[0]));
1237	if (ctxt->nsTab == NULL) {
1238	xmlErrMemory(ctxt, NULL);
1239	ctxt->nsMax /= 2;
1240	return (-1);
1241	}
1242	}
1243	ctxt->nsTab[ctxt->nsNr++] = prefix;
1244	ctxt->nsTab[ctxt->nsNr++] = URL;
1245	return (ctxt->nsNr);
1246	}
1247	/**
1248	* nsPop:
1249	* @ctxt: an XML parser context
1250	* @nr: the number to pop
1251	*
1252	* Pops the top @nr parser prefix/namespace from the ns stack
1253	*
1254	* Returns the number of namespaces removed
1255	*/
1256	static int
1257	nsPop(xmlParserCtxtPtr ctxt, int nr)
1258	{
1259	int i;
1260
1261	if (ctxt->nsTab == NULL) return(0);
1262	if (ctxt->nsNr < nr) {
1263	xmlGenericError(xmlGenericErrorContext, "Pbm popping %d NS\n", nr);
1264	nr = ctxt->nsNr;
1265	}
1266	if (ctxt->nsNr <= 0)
1267	return (0);
1268
1269	for (i = 0;i < nr;i++) {
1270	ctxt->nsNr--;
1271	ctxt->nsTab[ctxt->nsNr] = NULL;
1272	}
1273	return(nr);
1274	}
1275	#endif
1276
1277	static int
1278	xmlCtxtGrowAttrs(xmlParserCtxtPtr ctxt, int nr) {
1279	const xmlChar **atts;
1280	int *attallocs;
1281	int maxatts;
1282
1283	if (ctxt->atts == NULL) {
1284	maxatts = 55; /* allow for 10 attrs by default */
1285	atts = (const xmlChar **)
1286	xmlMalloc(maxatts * sizeof(xmlChar *));
1287	if (atts == NULL) goto mem_error;
1288	ctxt->atts = atts;
1289	attallocs = (int ) xmlMalloc((maxatts / 5) sizeof(int));
1290	if (attallocs == NULL) goto mem_error;
1291	ctxt->attallocs = attallocs;
1292	ctxt->maxatts = maxatts;
1293	} else if (nr + 5 > ctxt->maxatts) {
1294	maxatts = (nr + 5) * 2;
1295	atts = (const xmlChar *) xmlRealloc((void ) ctxt->atts,
1296	maxatts * sizeof(const xmlChar *));
1297	if (atts == NULL) goto mem_error;
1298	ctxt->atts = atts;
1299	attallocs = (int ) xmlRealloc((void ) ctxt->attallocs,
1300	(maxatts / 5) * sizeof(int));
1301	if (attallocs == NULL) goto mem_error;
1302	ctxt->attallocs = attallocs;
1303	ctxt->maxatts = maxatts;
1304	}
1305	return(ctxt->maxatts);
1306	mem_error:
1307	xmlErrMemory(ctxt, NULL);
1308	return(-1);
1309	}
1310
1311	/**
1312	* inputPush:
1313	* @ctxt: an XML parser context
1314	* @value: the parser input
1315	*
1316	* Pushes a new parser input on top of the input stack
1317	*
1318	* Returns 0 in case of error, the index in the stack otherwise
1319	*/
1320	int
1321	inputPush(xmlParserCtxtPtr ctxt, xmlParserInputPtr value)
1322	{
1323	if ((ctxt == NULL) \|\| (value == NULL))
1324	return(0);
1325	if (ctxt->inputNr >= ctxt->inputMax) {
1326	ctxt->inputMax *= 2;
1327	ctxt->inputTab =
1328	(xmlParserInputPtr *) xmlRealloc(ctxt->inputTab,
1329	ctxt->inputMax *
1330	sizeof(ctxt->inputTab[0]));
1331	if (ctxt->inputTab == NULL) {
1332	xmlErrMemory(ctxt, NULL);
1333	return (0);
1334	}
1335	}
1336	ctxt->inputTab[ctxt->inputNr] = value;
1337	ctxt->input = value;
1338	return (ctxt->inputNr++);
1339	}
1340	/**
1341	* inputPop:
1342	* @ctxt: an XML parser context
1343	*
1344	* Pops the top parser input from the input stack
1345	*
1346	* Returns the input just removed
1347	*/
1348	xmlParserInputPtr
1349	inputPop(xmlParserCtxtPtr ctxt)
1350	{
1351	xmlParserInputPtr ret;
1352
1353	if (ctxt == NULL)
1354	return(NULL);
1355	if (ctxt->inputNr <= 0)
1356	return (NULL);
1357	ctxt->inputNr--;
1358	if (ctxt->inputNr > 0)
1359	ctxt->input = ctxt->inputTab[ctxt->inputNr - 1];
1360	else
1361	ctxt->input = NULL;
1362	ret = ctxt->inputTab[ctxt->inputNr];
1363	ctxt->inputTab[ctxt->inputNr] = NULL;
1364	return (ret);
1365	}
1366	/**
1367	* nodePush:
1368	* @ctxt: an XML parser context
1369	* @value: the element node
1370	*
1371	* Pushes a new element node on top of the node stack
1372	*
1373	* Returns 0 in case of error, the index in the stack otherwise
1374	*/
1375	int
1376	nodePush(xmlParserCtxtPtr ctxt, xmlNodePtr value)
1377	{
1378	if (ctxt == NULL) return(0);
1379	if (ctxt->nodeNr >= ctxt->nodeMax) {
1380	xmlNodePtr *tmp;
1381
1382	tmp = (xmlNodePtr *) xmlRealloc(ctxt->nodeTab,
1383	ctxt->nodeMax * 2 *
1384	sizeof(ctxt->nodeTab[0]));
1385	if (tmp == NULL) {
1386	xmlErrMemory(ctxt, NULL);
1387	return (0);
1388	}
1389	ctxt->nodeTab = tmp;
1390	ctxt->nodeMax *= 2;
1391	}
1392	if (((unsigned int) ctxt->nodeNr) > xmlParserMaxDepth) {
1393	xmlFatalErrMsgInt(ctxt, XML_ERR_INTERNAL_ERROR,
1394	"Excessive depth in document: change xmlParserMaxDepth = %d\n",
1395	xmlParserMaxDepth);
1396	ctxt->instate = XML_PARSER_EOF;
1397	return(0);
1398	}
1399	ctxt->nodeTab[ctxt->nodeNr] = value;
1400	ctxt->node = value;
1401	return (ctxt->nodeNr++);
1402	}
1403	/**
1404	* nodePop:
1405	* @ctxt: an XML parser context
1406	*
1407	* Pops the top element node from the node stack
1408	*
1409	* Returns the node just removed
1410	*/
1411	xmlNodePtr
1412	nodePop(xmlParserCtxtPtr ctxt)
1413	{
1414	xmlNodePtr ret;
1415
1416	if (ctxt == NULL) return(NULL);
1417	if (ctxt->nodeNr <= 0)
1418	return (NULL);
1419	ctxt->nodeNr--;
1420	if (ctxt->nodeNr > 0)
1421	ctxt->node = ctxt->nodeTab[ctxt->nodeNr - 1];
1422	else
1423	ctxt->node = NULL;
1424	ret = ctxt->nodeTab[ctxt->nodeNr];
1425	ctxt->nodeTab[ctxt->nodeNr] = NULL;
1426	return (ret);
1427	}
1428
1429	#ifdef LIBXML_PUSH_ENABLED
1430	/**
1431	* nameNsPush:
1432	* @ctxt: an XML parser context
1433	* @value: the element name
1434	* @prefix: the element prefix
1435	* @URI: the element namespace name
1436	*
1437	* Pushes a new element name/prefix/URL on top of the name stack
1438	*
1439	* Returns -1 in case of error, the index in the stack otherwise
1440	*/
1441	static int
1442	nameNsPush(xmlParserCtxtPtr ctxt, const xmlChar * value,
1443	const xmlChar prefix, const xmlChar URI, int nsNr)
1444	{
1445	if (ctxt->nameNr >= ctxt->nameMax) {
1446	const xmlChar * *tmp;
1447	void **tmp2;
1448	ctxt->nameMax *= 2;
1449	tmp = (const xmlChar * ) xmlRealloc((xmlChar *)ctxt->nameTab,
1450	ctxt->nameMax *
1451	sizeof(ctxt->nameTab[0]));
1452	if (tmp == NULL) {
1453	ctxt->nameMax /= 2;
1454	goto mem_error;
1455	}
1456	ctxt->nameTab = tmp;
1457	tmp2 = (void *) xmlRealloc((void *)ctxt->pushTab,
1458	ctxt->nameMax * 3 *
1459	sizeof(ctxt->pushTab[0]));
1460	if (tmp2 == NULL) {
1461	ctxt->nameMax /= 2;
1462	goto mem_error;
1463	}
1464	ctxt->pushTab = tmp2;
1465	}
1466	ctxt->nameTab[ctxt->nameNr] = value;
1467	ctxt->name = value;
1468	ctxt->pushTab[ctxt->nameNr * 3] = (void *) prefix;
1469	ctxt->pushTab[ctxt->nameNr * 3 + 1] = (void *) URI;
1470	ctxt->pushTab[ctxt->nameNr * 3 + 2] = (void *) (long) nsNr;
1471	return (ctxt->nameNr++);
1472	mem_error:
1473	xmlErrMemory(ctxt, NULL);
1474	return (-1);
1475	}
1476	/**
1477	* nameNsPop:
1478	* @ctxt: an XML parser context
1479	*
1480	* Pops the top element/prefix/URI name from the name stack
1481	*
1482	* Returns the name just removed
1483	*/
1484	static const xmlChar *
1485	nameNsPop(xmlParserCtxtPtr ctxt)
1486	{
1487	const xmlChar *ret;
1488
1489	if (ctxt->nameNr <= 0)
1490	return (NULL);
1491	ctxt->nameNr--;
1492	if (ctxt->nameNr > 0)
1493	ctxt->name = ctxt->nameTab[ctxt->nameNr - 1];
1494	else
1495	ctxt->name = NULL;
1496	ret = ctxt->nameTab[ctxt->nameNr];
1497	ctxt->nameTab[ctxt->nameNr] = NULL;
1498	return (ret);
1499	}
1500	#endif /* LIBXML_PUSH_ENABLED */
1501
1502	/**
1503	* namePush:
1504	* @ctxt: an XML parser context
1505	* @value: the element name
1506	*
1507	* Pushes a new element name on top of the name stack
1508	*
1509	* Returns -1 in case of error, the index in the stack otherwise
1510	*/
1511	int
1512	namePush(xmlParserCtxtPtr ctxt, const xmlChar * value)
1513	{
1514	if (ctxt == NULL) return (-1);
1515
1516	if (ctxt->nameNr >= ctxt->nameMax) {
1517	const xmlChar * *tmp;
1518	ctxt->nameMax *= 2;
1519	tmp = (const xmlChar * ) xmlRealloc((xmlChar *)ctxt->nameTab,
1520	ctxt->nameMax *
1521	sizeof(ctxt->nameTab[0]));
1522	if (tmp == NULL) {
1523	ctxt->nameMax /= 2;
1524	goto mem_error;
1525	}
1526	ctxt->nameTab = tmp;
1527	}
1528	ctxt->nameTab[ctxt->nameNr] = value;
1529	ctxt->name = value;
1530	return (ctxt->nameNr++);
1531	mem_error:
1532	xmlErrMemory(ctxt, NULL);
1533	return (-1);
1534	}
1535	/**
1536	* namePop:
1537	* @ctxt: an XML parser context
1538	*
1539	* Pops the top element name from the name stack
1540	*
1541	* Returns the name just removed
1542	*/
1543	const xmlChar *
1544	namePop(xmlParserCtxtPtr ctxt)
1545	{
1546	const xmlChar *ret;
1547
1548	if ((ctxt == NULL) \|\| (ctxt->nameNr <= 0))
1549	return (NULL);
1550	ctxt->nameNr--;
1551	if (ctxt->nameNr > 0)
1552	ctxt->name = ctxt->nameTab[ctxt->nameNr - 1];
1553	else
1554	ctxt->name = NULL;
1555	ret = ctxt->nameTab[ctxt->nameNr];
1556	ctxt->nameTab[ctxt->nameNr] = NULL;
1557	return (ret);
1558	}
1559
1560	static int spacePush(xmlParserCtxtPtr ctxt, int val) {
1561	if (ctxt->spaceNr >= ctxt->spaceMax) {
1562	ctxt->spaceMax *= 2;
1563	ctxt->spaceTab = (int *) xmlRealloc(ctxt->spaceTab,
1564	ctxt->spaceMax * sizeof(ctxt->spaceTab[0]));
1565	if (ctxt->spaceTab == NULL) {
1566	xmlErrMemory(ctxt, NULL);
1567	return(0);
1568	}
1569	}
1570	ctxt->spaceTab[ctxt->spaceNr] = val;
1571	ctxt->space = &ctxt->spaceTab[ctxt->spaceNr];
1572	return(ctxt->spaceNr++);
1573	}
1574
1575	static int spacePop(xmlParserCtxtPtr ctxt) {
1576	int ret;
1577	if (ctxt->spaceNr <= 0) return(0);
1578	ctxt->spaceNr--;
1579	if (ctxt->spaceNr > 0)
1580	ctxt->space = &ctxt->spaceTab[ctxt->spaceNr - 1];
1581	else
1582	ctxt->space = &ctxt->spaceTab[0];
1583	ret = ctxt->spaceTab[ctxt->spaceNr];
1584	ctxt->spaceTab[ctxt->spaceNr] = -1;
1585	return(ret);
1586	}
1587
1588	/*
1589	* Macros for accessing the content. Those should be used only by the parser,
1590	* and not exported.
1591	*
1592	* Dirty macros, i.e. one often need to make assumption on the context to
1593	* use them
1594	*
1595	* CUR_PTR return the current pointer to the xmlChar to be parsed.
1596	* To be used with extreme caution since operations consuming
1597	* characters may move the input buffer to a different location !
1598	* CUR returns the current xmlChar value, i.e. a 8 bit value if compiled
1599	* This should be used internally by the parser
1600	* only to compare to ASCII values otherwise it would break when
1601	* running with UTF-8 encoding.
1602	* RAW same as CUR but in the input buffer, bypass any token
1603	* extraction that may have been done
1604	* NXT(n) returns the n'th next xmlChar. Same as CUR is should be used only
1605	* to compare on ASCII based substring.
1606	* SKIP(n) Skip n xmlChar, and must also be used only to skip ASCII defined
1607	* strings without newlines within the parser.
1608	* NEXT1(l) Skip 1 xmlChar, and must also be used only to skip 1 non-newline ASCII
1609	* defined char within the parser.
1610	* Clean macros, not dependent of an ASCII context, expect UTF-8 encoding
1611	*
1612	* NEXT Skip to the next character, this does the proper decoding
1613	* in UTF-8 mode. It also pop-up unfinished entities on the fly.
1614	* NEXTL(l) Skip the current unicode character of l xmlChars long.
1615	* CUR_CHAR(l) returns the current unicode character (int), set l
1616	* to the number of xmlChars used for the encoding [0-5].
1617	* CUR_SCHAR same but operate on a string instead of the context
1618	* COPY_BUF copy the current unicode char to the target buffer, increment
1619	* the index
1620	* GROW, SHRINK handling of input buffers
1621	*/
1622
1623	#define RAW (*ctxt->input->cur)
1624	#define CUR (*ctxt->input->cur)
1625	#define NXT(val) ctxt->input->cur[(val)]
1626	#define CUR_PTR ctxt->input->cur
1627
1628	#define CMP4( s, c1, c2, c3, c4 ) \
1629	( ((unsigned char ) s)[ 0 ] == c1 && ((unsigned char ) s)[ 1 ] == c2 && \
1630	((unsigned char ) s)[ 2 ] == c3 && ((unsigned char ) s)[ 3 ] == c4 )
1631	#define CMP5( s, c1, c2, c3, c4, c5 ) \
1632	( CMP4( s, c1, c2, c3, c4 ) && ((unsigned char *) s)[ 4 ] == c5 )
1633	#define CMP6( s, c1, c2, c3, c4, c5, c6 ) \
1634	( CMP5( s, c1, c2, c3, c4, c5 ) && ((unsigned char *) s)[ 5 ] == c6 )
1635	#define CMP7( s, c1, c2, c3, c4, c5, c6, c7 ) \
1636	( CMP6( s, c1, c2, c3, c4, c5, c6 ) && ((unsigned char *) s)[ 6 ] == c7 )
1637	#define CMP8( s, c1, c2, c3, c4, c5, c6, c7, c8 ) \
1638	( CMP7( s, c1, c2, c3, c4, c5, c6, c7 ) && ((unsigned char *) s)[ 7 ] == c8 )
1639	#define CMP9( s, c1, c2, c3, c4, c5, c6, c7, c8, c9 ) \
1640	( CMP8( s, c1, c2, c3, c4, c5, c6, c7, c8 ) && \
1641	((unsigned char *) s)[ 8 ] == c9 )
1642	#define CMP10( s, c1, c2, c3, c4, c5, c6, c7, c8, c9, c10 ) \
1643	( CMP9( s, c1, c2, c3, c4, c5, c6, c7, c8, c9 ) && \
1644	((unsigned char *) s)[ 9 ] == c10 )
1645
1646	#define SKIP(val) do { \
1647	ctxt->nbChars += (val),ctxt->input->cur += (val),ctxt->input->col+=(val); \
1648	if (*ctxt->input->cur == '%') xmlParserHandlePEReference(ctxt); \
1649	if ((*ctxt->input->cur == 0) && \
1650	(xmlParserInputGrow(ctxt->input, INPUT_CHUNK) <= 0)) \
1651	xmlPopInput(ctxt); \
1652	} while (0)
1653
1654	#define SKIPL(val) do { \
1655	int skipl; \
1656	for(skipl=0; skipl<val; skipl++) { \
1657	if (*(ctxt->input->cur) == '\n') { \
1658	ctxt->input->line++; ctxt->input->col = 1; \
1659	} else ctxt->input->col++; \
1660	ctxt->nbChars++; \
1661	ctxt->input->cur++; \
1662	} \
1663	if (*ctxt->input->cur == '%') xmlParserHandlePEReference(ctxt); \
1664	if ((*ctxt->input->cur == 0) && \
1665	(xmlParserInputGrow(ctxt->input, INPUT_CHUNK) <= 0)) \
1666	xmlPopInput(ctxt); \
1667	} while (0)
1668
1669	#define SHRINK if ((ctxt->progressive == 0) && \
1670	(ctxt->input->cur - ctxt->input->base > 2 * INPUT_CHUNK) && \
1671	(ctxt->input->end - ctxt->input->cur < 2 * INPUT_CHUNK)) \
1672	xmlSHRINK (ctxt);
1673
1674	static void xmlSHRINK (xmlParserCtxtPtr ctxt) {
1675	xmlParserInputShrink(ctxt->input);
1676	if ((*ctxt->input->cur == 0) &&
1677	(xmlParserInputGrow(ctxt->input, INPUT_CHUNK) <= 0))
1678	xmlPopInput(ctxt);
1679	}
1680
1681	#define GROW if ((ctxt->progressive == 0) && \
1682	(ctxt->input->end - ctxt->input->cur < INPUT_CHUNK)) \
1683	xmlGROW (ctxt);
1684
1685	static void xmlGROW (xmlParserCtxtPtr ctxt) {
1686	xmlParserInputGrow(ctxt->input, INPUT_CHUNK);
1687	if ((*ctxt->input->cur == 0) &&
1688	(xmlParserInputGrow(ctxt->input, INPUT_CHUNK) <= 0))
1689	xmlPopInput(ctxt);
1690	}
1691
1692	#define SKIP_BLANKS xmlSkipBlankChars(ctxt)
1693
1694	#define NEXT xmlNextChar(ctxt)
1695
1696	#define NEXT1 { \
1697	ctxt->input->col++; \
1698	ctxt->input->cur++; \
1699	ctxt->nbChars++; \
1700	if (*ctxt->input->cur == 0) \
1701	xmlParserInputGrow(ctxt->input, INPUT_CHUNK); \
1702	}
1703
1704	#define NEXTL(l) do { \
1705	if (*(ctxt->input->cur) == '\n') { \
1706	ctxt->input->line++; ctxt->input->col = 1; \
1707	} else ctxt->input->col++; \
1708	ctxt->input->cur += l; \
1709	if (*ctxt->input->cur == '%') xmlParserHandlePEReference(ctxt); \
1710	} while (0)
1711
1712	#define CUR_CHAR(l) xmlCurrentChar(ctxt, &l)
1713	#define CUR_SCHAR(s, l) xmlStringCurrentChar(ctxt, s, &l)
1714
1715	#define COPY_BUF(l,b,i,v) \
1716	if (l == 1) b[i++] = (xmlChar) v; \
1717	else i += xmlCopyCharMultiByte(&b[i],v)
1718
1719	/**
1720	* xmlSkipBlankChars:
1721	* @ctxt: the XML parser context
1722	*
1723	* skip all blanks character found at that point in the input streams.
1724	* It pops up finished entities in the process if allowable at that point.
1725	*
1726	* Returns the number of space chars skipped
1727	*/
1728
1729	int
1730	xmlSkipBlankChars(xmlParserCtxtPtr ctxt) {
1731	int res = 0;
1732
1733	/*
1734	* It's Okay to use CUR/NEXT here since all the blanks are on
1735	* the ASCII range.
1736	*/
1737	if ((ctxt->inputNr == 1) && (ctxt->instate != XML_PARSER_DTD)) {
1738	const xmlChar *cur;
1739	/*
1740	* if we are in the document content, go really fast
1741	*/
1742	cur = ctxt->input->cur;
1743	while (IS_BLANK_CH(*cur)) {
1744	if (*cur == '\n') {
1745	ctxt->input->line++; ctxt->input->col = 1;
1746	}
1747	cur++;
1748	res++;
1749	if (*cur == 0) {
1750	ctxt->input->cur = cur;
1751	xmlParserInputGrow(ctxt->input, INPUT_CHUNK);
1752	cur = ctxt->input->cur;
1753	}
1754	}
1755	ctxt->input->cur = cur;
1756	} else {
1757	int cur;
1758	do {
1759	cur = CUR;
1760	while (IS_BLANK_CH(cur)) { /* CHECKED tstblanks.xml */
1761	NEXT;
1762	cur = CUR;
1763	res++;
1764	}
1765	while ((cur == 0) && (ctxt->inputNr > 1) &&
1766	(ctxt->instate != XML_PARSER_COMMENT)) {
1767	xmlPopInput(ctxt);
1768	cur = CUR;
1769	}
1770	/*
1771	* Need to handle support of entities branching here
1772	*/
1773	if (*ctxt->input->cur == '%') xmlParserHandlePEReference(ctxt);
1774	} while (IS_BLANK(cur)); /* CHECKED tstblanks.xml */
1775	}
1776	return(res);
1777	}
1778
1779	/************************************************************************
1780	* *
1781	* Commodity functions to handle entities *
1782	* *
1783	************************************************************************/
1784
1785	/**
1786	* xmlPopInput:
1787	* @ctxt: an XML parser context
1788	*
1789	* xmlPopInput: the current input pointed by ctxt->input came to an end
1790	* pop it and return the next char.
1791	*
1792	* Returns the current xmlChar in the parser context
1793	*/
1794	xmlChar
1795	xmlPopInput(xmlParserCtxtPtr ctxt) {
1796	if ((ctxt == NULL) \|\| (ctxt->inputNr <= 1)) return(0);
1797	if (xmlParserDebugEntities)
1798	xmlGenericError(xmlGenericErrorContext,
1799	"Popping input %d\n", ctxt->inputNr);
1800	xmlFreeInputStream(inputPop(ctxt));
1801	if ((*ctxt->input->cur == 0) &&
1802	(xmlParserInputGrow(ctxt->input, INPUT_CHUNK) <= 0))
1803	return(xmlPopInput(ctxt));
1804	return(CUR);
1805	}
1806
1807	/**
1808	* xmlPushInput:
1809	* @ctxt: an XML parser context
1810	* @input: an XML parser input fragment (entity, XML fragment ...).
1811	*
1812	* xmlPushInput: switch to a new input stream which is stacked on top
1813	* of the previous one(s).
1814	*/
1815	void
1816	xmlPushInput(xmlParserCtxtPtr ctxt, xmlParserInputPtr input) {
1817	if (input == NULL) return;
1818
1819	if (xmlParserDebugEntities) {
1820	if ((ctxt->input != NULL) && (ctxt->input->filename))
1821	xmlGenericError(xmlGenericErrorContext,
1822	"%s(%d): ", ctxt->input->filename,
1823	ctxt->input->line);
1824	xmlGenericError(xmlGenericErrorContext,
1825	"Pushing input %d : %.30s\n", ctxt->inputNr+1, input->cur);
1826	}
1827	inputPush(ctxt, input);
1828	GROW;
1829	}
1830
1831	/**
1832	* xmlParseCharRef:
1833	* @ctxt: an XML parser context
1834	*
1835	* parse Reference declarations
1836	*
1837	* [66] CharRef ::= '&#' [0-9]+ ';' \|
1838	* '&#x' [0-9a-fA-F]+ ';'
1839	*
1840	* [ WFC: Legal Character ]
1841	* Characters referred to using character references must match the
1842	* production for Char.
1843	*
1844	* Returns the value parsed (as an int), 0 in case of error
1845	*/
1846	int
1847	xmlParseCharRef(xmlParserCtxtPtr ctxt) {
1848	unsigned int val = 0;
1849	int count = 0;
1850	unsigned int outofrange = 0;
1851
1852	/*
1853	* Using RAW/CUR/NEXT is okay since we are working on ASCII range here
1854	*/
1855	if ((RAW == '&') && (NXT(1) == '#') &&
1856	(NXT(2) == 'x')) {
1857	SKIP(3);
1858	GROW;
1859	while (RAW != ';') { /* loop blocked by count */
1860	if (count++ > 20) {
1861	count = 0;
1862	GROW;
1863	}
1864	if ((RAW >= '0') && (RAW <= '9'))
1865	val = val * 16 + (CUR - '0');
1866	else if ((RAW >= 'a') && (RAW <= 'f') && (count < 20))
1867	val = val * 16 + (CUR - 'a') + 10;
1868	else if ((RAW >= 'A') && (RAW <= 'F') && (count < 20))
1869	val = val * 16 + (CUR - 'A') + 10;
1870	else {
1871	xmlFatalErr(ctxt, XML_ERR_INVALID_HEX_CHARREF, NULL);
1872	val = 0;
1873	break;
1874	}
1875	if (val > 0x10FFFF)
1876	outofrange = val;
1877
1878	NEXT;
1879	count++;
1880	}
1881	if (RAW == ';') {
1882	/* on purpose to avoid reentrancy problems with NEXT and SKIP */
1883	ctxt->input->col++;
1884	ctxt->nbChars ++;
1885	ctxt->input->cur++;
1886	}
1887	} else if ((RAW == '&') && (NXT(1) == '#')) {
1888	SKIP(2);
1889	GROW;
1890	while (RAW != ';') { /* loop blocked by count */
1891	if (count++ > 20) {
1892	count = 0;
1893	GROW;
1894	}
1895	if ((RAW >= '0') && (RAW <= '9'))
1896	val = val * 10 + (CUR - '0');
1897	else {
1898	xmlFatalErr(ctxt, XML_ERR_INVALID_DEC_CHARREF, NULL);
1899	val = 0;
1900	break;
1901	}
1902	if (val > 0x10FFFF)
1903	outofrange = val;
1904
1905	NEXT;
1906	count++;
1907	}
1908	if (RAW == ';') {
1909	/* on purpose to avoid reentrancy problems with NEXT and SKIP */
1910	ctxt->input->col++;
1911	ctxt->nbChars ++;
1912	ctxt->input->cur++;
1913	}
1914	} else {
1915	xmlFatalErr(ctxt, XML_ERR_INVALID_CHARREF, NULL);
1916	}
1917
1918	/*
1919	* [ WFC: Legal Character ]
1920	* Characters referred to using character references must match the
1921	* production for Char.
1922	*/
1923	if ((IS_CHAR(val) && (outofrange == 0))) {
1924	return(val);
1925	} else {
1926	xmlFatalErrMsgInt(ctxt, XML_ERR_INVALID_CHAR,
1927	"xmlParseCharRef: invalid xmlChar value %d\n",
1928	val);
1929	}
1930	return(0);
1931	}
1932
1933	/**
1934	* xmlParseStringCharRef:
1935	* @ctxt: an XML parser context
1936	* @str: a pointer to an index in the string
1937	*
1938	* parse Reference declarations, variant parsing from a string rather
1939	* than an an input flow.
1940	*
1941	* [66] CharRef ::= '&#' [0-9]+ ';' \|
1942	* '&#x' [0-9a-fA-F]+ ';'
1943	*
1944	* [ WFC: Legal Character ]
1945	* Characters referred to using character references must match the
1946	* production for Char.
1947	*
1948	* Returns the value parsed (as an int), 0 in case of error, str will be
1949	* updated to the current value of the index
1950	*/
1951	static int
1952	xmlParseStringCharRef(xmlParserCtxtPtr ctxt, const xmlChar **str) {
1953	const xmlChar *ptr;
1954	xmlChar cur;
1955	unsigned int val = 0;
1956	unsigned int outofrange = 0;
1957
1958	if ((str == NULL) \|\| (*str == NULL)) return(0);
1959	ptr = *str;
1960	cur = *ptr;
1961	if ((cur == '&') && (ptr[1] == '#') && (ptr[2] == 'x')) {
1962	ptr += 3;
1963	cur = *ptr;
1964	while (cur != ';') { /* Non input consuming loop */
1965	if ((cur >= '0') && (cur <= '9'))
1966	val = val * 16 + (cur - '0');
1967	else if ((cur >= 'a') && (cur <= 'f'))
1968	val = val * 16 + (cur - 'a') + 10;
1969	else if ((cur >= 'A') && (cur <= 'F'))
1970	val = val * 16 + (cur - 'A') + 10;
1971	else {
1972	xmlFatalErr(ctxt, XML_ERR_INVALID_HEX_CHARREF, NULL);
1973	val = 0;
1974	break;
1975	}
1976	if (val > 0x10FFFF)
1977	outofrange = val;
1978
1979	ptr++;
1980	cur = *ptr;
1981	}
1982	if (cur == ';')
1983	ptr++;
1984	} else if ((cur == '&') && (ptr[1] == '#')){
1985	ptr += 2;
1986	cur = *ptr;
1987	while (cur != ';') { /* Non input consuming loops */
1988	if ((cur >= '0') && (cur <= '9'))
1989	val = val * 10 + (cur - '0');
1990	else {
1991	xmlFatalErr(ctxt, XML_ERR_INVALID_DEC_CHARREF, NULL);
1992	val = 0;
1993	break;
1994	}
1995	if (val > 0x10FFFF)
1996	outofrange = val;
1997
1998	ptr++;
1999	cur = *ptr;
2000	}
2001	if (cur == ';')
2002	ptr++;
2003	} else {
2004	xmlFatalErr(ctxt, XML_ERR_INVALID_CHARREF, NULL);
2005	return(0);
2006	}
2007	*str = ptr;
2008
2009	/*
2010	* [ WFC: Legal Character ]
2011	* Characters referred to using character references must match the
2012	* production for Char.
2013	*/
2014	if ((IS_CHAR(val) && (outofrange == 0))) {
2015	return(val);
2016	} else {
2017	xmlFatalErrMsgInt(ctxt, XML_ERR_INVALID_CHAR,
2018	"xmlParseStringCharRef: invalid xmlChar value %d\n",
2019	val);
2020	}
2021	return(0);
2022	}
2023
2024	/**
2025	* xmlNewBlanksWrapperInputStream:
2026	* @ctxt: an XML parser context
2027	* @entity: an Entity pointer
2028	*
2029	* Create a new input stream for wrapping
2030	* blanks around a PEReference
2031	*
2032	* Returns the new input stream or NULL
2033	*/
2034
2035	static void deallocblankswrapper (xmlChar *str) {xmlFree(str);}
2036
2037	static xmlParserInputPtr
2038	xmlNewBlanksWrapperInputStream(xmlParserCtxtPtr ctxt, xmlEntityPtr entity) {
2039	xmlParserInputPtr input;
2040	xmlChar *buffer;
2041	size_t length;
2042	if (entity == NULL) {
2043	xmlFatalErr(ctxt, XML_ERR_INTERNAL_ERROR,
2044	"xmlNewBlanksWrapperInputStream entity\n");
2045	return(NULL);
2046	}
2047	if (xmlParserDebugEntities)
2048	xmlGenericError(xmlGenericErrorContext,
2049	"new blanks wrapper for entity: %s\n", entity->name);
2050	input = xmlNewInputStream(ctxt);
2051	if (input == NULL) {
2052	return(NULL);
2053	}
2054	length = xmlStrlen(entity->name) + 5;
2055	buffer = xmlMallocAtomic(length);
2056	if (buffer == NULL) {
2057	xmlErrMemory(ctxt, NULL);
2058	return(NULL);
2059	}
2060	buffer [0] = ' ';
2061	buffer [1] = '%';
2062	buffer [length-3] = ';';
2063	buffer [length-2] = ' ';
2064	buffer [length-1] = 0;
2065	memcpy(buffer + 2, entity->name, length - 5);
2066	input->free = deallocblankswrapper;
2067	input->base = buffer;
2068	input->cur = buffer;
2069	input->length = length;
2070	input->end = &buffer[length];
2071	return(input);
2072	}
2073
2074	/**
2075	* xmlParserHandlePEReference:
2076	* @ctxt: the parser context
2077	*
2078	* [69] PEReference ::= '%' Name ';'
2079	*
2080	* [ WFC: No Recursion ]
2081	* A parsed entity must not contain a recursive
2082	* reference to itself, either directly or indirectly.
2083	*
2084	* [ WFC: Entity Declared ]
2085	* In a document without any DTD, a document with only an internal DTD
2086	* subset which contains no parameter entity references, or a document
2087	* with "standalone='yes'", ... ... The declaration of a parameter
2088	* entity must precede any reference to it...
2089	*
2090	* [ VC: Entity Declared ]
2091	* In a document with an external subset or external parameter entities
2092	* with "standalone='no'", ... ... The declaration of a parameter entity
2093	* must precede any reference to it...
2094	*
2095	* [ WFC: In DTD ]
2096	* Parameter-entity references may only appear in the DTD.
2097	* NOTE: misleading but this is handled.
2098	*
2099	* A PEReference may have been detected in the current input stream
2100	* the handling is done accordingly to
2101	* http://www.w3.org/TR/REC-xml#entproc
2102	* i.e.
2103	* - Included in literal in entity values
2104	* - Included as Parameter Entity reference within DTDs
2105	*/
2106	void
2107	xmlParserHandlePEReference(xmlParserCtxtPtr ctxt) {
2108	const xmlChar *name;
2109	xmlEntityPtr entity = NULL;
2110	xmlParserInputPtr input;
2111
2112	if (RAW != '%') return;
2113	switch(ctxt->instate) {
2114	case XML_PARSER_CDATA_SECTION:
2115	return;
2116	case XML_PARSER_COMMENT:
2117	return;
2118	case XML_PARSER_START_TAG:
2119	return;
2120	case XML_PARSER_END_TAG:
2121	return;
2122	case XML_PARSER_EOF:
2123	xmlFatalErr(ctxt, XML_ERR_PEREF_AT_EOF, NULL);
2124	return;
2125	case XML_PARSER_PROLOG:
2126	case XML_PARSER_START:
2127	case XML_PARSER_MISC:
2128	xmlFatalErr(ctxt, XML_ERR_PEREF_IN_PROLOG, NULL);
2129	return;
2130	case XML_PARSER_ENTITY_DECL:
2131	case XML_PARSER_CONTENT:
2132	case XML_PARSER_ATTRIBUTE_VALUE:
2133	case XML_PARSER_PI:
2134	case XML_PARSER_SYSTEM_LITERAL:
2135	case XML_PARSER_PUBLIC_LITERAL:
2136	/* we just ignore it there */
2137	return;
2138	case XML_PARSER_EPILOG:
2139	xmlFatalErr(ctxt, XML_ERR_PEREF_IN_EPILOG, NULL);
2140	return;
2141	case XML_PARSER_ENTITY_VALUE:
2142	/*
2143	* NOTE: in the case of entity values, we don't do the
2144	* substitution here since we need the literal
2145	* entity value to be able to save the internal
2146	* subset of the document.
2147	* This will be handled by xmlStringDecodeEntities
2148	*/
2149	return;
2150	case XML_PARSER_DTD:
2151	/*
2152	* [WFC: Well-Formedness Constraint: PEs in Internal Subset]
2153	* In the internal DTD subset, parameter-entity references
2154	* can occur only where markup declarations can occur, not
2155	* within markup declarations.
2156	* In that case this is handled in xmlParseMarkupDecl
2157	*/
2158	if ((ctxt->external == 0) && (ctxt->inputNr == 1))
2159	return;
2160	if (IS_BLANK_CH(NXT(1)) \|\| NXT(1) == 0)
2161	return;
2162	break;
2163	case XML_PARSER_IGNORE:
2164	return;
2165	}
2166
2167	NEXT;
2168	name = xmlParseName(ctxt);
2169	if (xmlParserDebugEntities)
2170	xmlGenericError(xmlGenericErrorContext,
2171	"PEReference: %s\n", name);
2172	if (name == NULL) {
2173	xmlFatalErr(ctxt, XML_ERR_PEREF_NO_NAME, NULL);
2174	} else {
2175	if (RAW == ';') {
2176	NEXT;
2177	if ((ctxt->sax != NULL) && (ctxt->sax->getParameterEntity != NULL))
2178	entity = ctxt->sax->getParameterEntity(ctxt->userData, name);
2179	if (entity == NULL) {
2180
2181	/*
2182	* [ WFC: Entity Declared ]
2183	* In a document without any DTD, a document with only an
2184	* internal DTD subset which contains no parameter entity
2185	* references, or a document with "standalone='yes'", ...
2186	* ... The declaration of a parameter entity must precede
2187	* any reference to it...
2188	*/
2189	if ((ctxt->standalone == 1) \|\|
2190	((ctxt->hasExternalSubset == 0) &&
2191	(ctxt->hasPErefs == 0))) {
2192	xmlFatalErrMsgStr(ctxt, XML_ERR_UNDECLARED_ENTITY,
2193	"PEReference: %%%s; not found\n", name);
2194	} else {
2195	/*
2196	* [ VC: Entity Declared ]
2197	* In a document with an external subset or external
2198	* parameter entities with "standalone='no'", ...
2199	* ... The declaration of a parameter entity must precede
2200	* any reference to it...
2201	*/
2202	if ((ctxt->validate) && (ctxt->vctxt.error != NULL)) {
2203	xmlValidityError(ctxt, XML_WAR_UNDECLARED_ENTITY,
2204	"PEReference: %%%s; not found\n",
2205	name);
2206	} else
2207	xmlWarningMsg(ctxt, XML_WAR_UNDECLARED_ENTITY,
2208	"PEReference: %%%s; not found\n",
2209	name, NULL);
2210	ctxt->valid = 0;
2211	}
2212	} else if (ctxt->input->free != deallocblankswrapper) {
2213	input = xmlNewBlanksWrapperInputStream(ctxt, entity);
2214	xmlPushInput(ctxt, input);
2215	} else {
2216	if ((entity->etype == XML_INTERNAL_PARAMETER_ENTITY) \|\|
2217	(entity->etype == XML_EXTERNAL_PARAMETER_ENTITY)) {
2218	xmlChar start[4];
2219	xmlCharEncoding enc;
2220
2221	/*
2222	* handle the extra spaces added before and after
2223	* c.f. http://www.w3.org/TR/REC-xml#as-PE
2224	* this is done independently.
2225	*/
2226	input = xmlNewEntityInputStream(ctxt, entity);
2227	xmlPushInput(ctxt, input);
2228
2229	/*
2230	* Get the 4 first bytes and decode the charset
2231	* if enc != XML_CHAR_ENCODING_NONE
2232	* plug some encoding conversion routines.
2233	* Note that, since we may have some non-UTF8
2234	* encoding (like UTF16, bug 135229), the 'length'
2235	* is not known, but we can calculate based upon
2236	* the amount of data in the buffer.
2237	*/
2238	GROW
2239	if ((ctxt->input->end - ctxt->input->cur)>=4) {
2240	start[0] = RAW;
2241	start[1] = NXT(1);
2242	start[2] = NXT(2);
2243	start[3] = NXT(3);
2244	enc = xmlDetectCharEncoding(start, 4);
2245	if (enc != XML_CHAR_ENCODING_NONE) {
2246	xmlSwitchEncoding(ctxt, enc);
2247	}
2248	}
2249
2250	if ((entity->etype == XML_EXTERNAL_PARAMETER_ENTITY) &&
2251	(CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l' )) &&
2252	(IS_BLANK_CH(NXT(5)))) {
2253	xmlParseTextDecl(ctxt);
2254	}
2255	} else {
2256	xmlFatalErrMsgStr(ctxt, XML_ERR_ENTITY_IS_PARAMETER,
2257	"PEReference: %s is not a parameter entity\n",
2258	name);
2259	}
2260	}
2261	} else {
2262	xmlFatalErr(ctxt, XML_ERR_PEREF_SEMICOL_MISSING, NULL);
2263	}
2264	}
2265	}
2266
2267	/*
2268	* Macro used to grow the current buffer.
2269	*/
2270	#define growBuffer(buffer, n) { \
2271	xmlChar *tmp; \
2272	buffer##_size *= 2; \
2273	buffer##_size += n; \
2274	tmp = (xmlChar *) \
2275	xmlRealloc(buffer, buffer##_size * sizeof(xmlChar)); \
2276	if (tmp == NULL) goto mem_error; \
2277	buffer = tmp; \
2278	}
2279
2280	/**
2281	* xmlStringLenDecodeEntities:
2282	* @ctxt: the parser context
2283	* @str: the input string
2284	* @len: the string length
2285	* @what: combination of XML_SUBSTITUTE_REF and XML_SUBSTITUTE_PEREF
2286	* @end: an end marker xmlChar, 0 if none
2287	* @end2: an end marker xmlChar, 0 if none
2288	* @end3: an end marker xmlChar, 0 if none
2289	*
2290	* Takes a entity string content and process to do the adequate substitutions.
2291	*
2292	* [67] Reference ::= EntityRef \| CharRef
2293	*
2294	* [69] PEReference ::= '%' Name ';'
2295	*
2296	* Returns A newly allocated string with the substitution done. The caller
2297	* must deallocate it !
2298	*/
2299	xmlChar *
2300	xmlStringLenDecodeEntities(xmlParserCtxtPtr ctxt, const xmlChar *str, int len,
2301	int what, xmlChar end, xmlChar end2, xmlChar end3) {
2302	xmlChar *buffer = NULL;
2303	int buffer_size = 0;
2304
2305	xmlChar *current = NULL;
2306	const xmlChar *last;
2307	xmlEntityPtr ent;
2308	int c,l;
2309	int nbchars = 0;
2310
2311	if ((ctxt == NULL) \|\| (str == NULL) \|\| (len < 0))
2312	return(NULL);
2313	last = str + len;
2314
2315	if (ctxt->depth > 40) {
2316	xmlFatalErr(ctxt, XML_ERR_ENTITY_LOOP, NULL);
2317	return(NULL);
2318	}
2319
2320	/*
2321	* allocate a translation buffer.
2322	*/
2323	buffer_size = XML_PARSER_BIG_BUFFER_SIZE;
2324	buffer = (xmlChar ) xmlMallocAtomic(buffer_size sizeof(xmlChar));
2325	if (buffer == NULL) goto mem_error;
2326
2327	/*
2328	* OK loop until we reach one of the ending char or a size limit.
2329	* we are operating on already parsed values.
2330	*/
2331	if (str < last)
2332	c = CUR_SCHAR(str, l);
2333	else
2334	c = 0;
2335	while ((c != 0) && (c != end) && /* non input consuming loop */
2336	(c != end2) && (c != end3)) {
2337
2338	if (c == 0) break;
2339	if ((c == '&') && (str[1] == '#')) {
2340	int val = xmlParseStringCharRef(ctxt, &str);
2341	if (val != 0) {
2342	COPY_BUF(0,buffer,nbchars,val);
2343	}
2344	if (nbchars > buffer_size - XML_PARSER_BUFFER_SIZE) {
2345	growBuffer(buffer, XML_PARSER_BUFFER_SIZE);
2346	}
2347	} else if ((c == '&') && (what & XML_SUBSTITUTE_REF)) {
2348	if (xmlParserDebugEntities)
2349	xmlGenericError(xmlGenericErrorContext,
2350	"String decoding Entity Reference: %.30s\n",
2351	str);
2352	ent = xmlParseStringEntityRef(ctxt, &str);
2353	if (ctxt->lastError.code == XML_ERR_ENTITY_LOOP)
2354	goto int_error;
2355	if (ent != NULL)
2356	ctxt->nbentities += ent->owner;
2357	if ((ent != NULL) &&
2358	(ent->etype == XML_INTERNAL_PREDEFINED_ENTITY)) {
2359	if (ent->content != NULL) {
2360	COPY_BUF(0,buffer,nbchars,ent->content[0]);
2361	if (nbchars > buffer_size - XML_PARSER_BUFFER_SIZE) {
2362	growBuffer(buffer, XML_PARSER_BUFFER_SIZE);
2363	}
2364	} else {
2365	xmlFatalErrMsg(ctxt, XML_ERR_INTERNAL_ERROR,
2366	"predefined entity has no content\n");
2367	}
2368	} else if ((ent != NULL) && (ent->content != NULL)) {
2369	xmlChar *rep;
2370
2371	ctxt->depth++;
2372	rep = xmlStringDecodeEntities(ctxt, ent->content, what,
2373	0, 0, 0);
2374	ctxt->depth--;
2375	if (rep != NULL) {
2376	current = rep;
2377	while (current != 0) { / non input consuming loop */
2378	buffer[nbchars++] = *current++;
2379	if (nbchars >
2380	buffer_size - XML_PARSER_BUFFER_SIZE) {
2381	if (xmlParserEntityCheck(ctxt, nbchars, ent)) {
2382	xmlFree(rep);
2383	goto int_error;
2384	}
2385	growBuffer(buffer, XML_PARSER_BUFFER_SIZE);
2386	}
2387	}
2388	xmlFree(rep);
2389	}
2390	} else if (ent != NULL) {
2391	int i = xmlStrlen(ent->name);
2392	const xmlChar *cur = ent->name;
2393
2394	buffer[nbchars++] = '&';
2395	if (nbchars > buffer_size - i - XML_PARSER_BUFFER_SIZE) {
2396	growBuffer(buffer, i + XML_PARSER_BUFFER_SIZE);
2397	}
2398	for (;i > 0;i--)
2399	buffer[nbchars++] = *cur++;
2400	buffer[nbchars++] = ';';
2401	}
2402	} else if (c == '%' && (what & XML_SUBSTITUTE_PEREF)) {
2403	if (xmlParserDebugEntities)
2404	xmlGenericError(xmlGenericErrorContext,
2405	"String decoding PE Reference: %.30s\n", str);
2406	ent = xmlParseStringPEReference(ctxt, &str);
2407	if (ctxt->lastError.code == XML_ERR_ENTITY_LOOP)
2408	goto int_error;
2409	if (ent != NULL)
2410	ctxt->nbentities += ent->owner;
2411	if (ent != NULL) {
2412	xmlChar *rep;
2413
2414	ctxt->depth++;
2415	rep = xmlStringDecodeEntities(ctxt, ent->content, what,
2416	0, 0, 0);
2417	ctxt->depth--;
2418	if (rep != NULL) {
2419	current = rep;
2420	while (current != 0) { / non input consuming loop */
2421	buffer[nbchars++] = *current++;
2422	if (nbchars >
2423	buffer_size - XML_PARSER_BUFFER_SIZE) {
2424	if (xmlParserEntityCheck(ctxt, nbchars, ent)) {
2425	xmlFree(rep);
2426	goto int_error;
2427	}
2428	growBuffer(buffer, XML_PARSER_BUFFER_SIZE);
2429	}
2430	}
2431	xmlFree(rep);
2432	}
2433	}
2434	} else {
2435	COPY_BUF(l,buffer,nbchars,c);
2436	str += l;
2437	if (nbchars > buffer_size - XML_PARSER_BUFFER_SIZE) {
2438	growBuffer(buffer, XML_PARSER_BUFFER_SIZE);
2439	}
2440	}
2441	if (str < last)
2442	c = CUR_SCHAR(str, l);
2443	else
2444	c = 0;
2445	}
2446	buffer[nbchars++] = 0;
2447	return(buffer);
2448
2449	mem_error:
2450	xmlErrMemory(ctxt, NULL);
2451	int_error:
2452	if (buffer != NULL)
2453	xmlFree(buffer);
2454	return(NULL);
2455	}
2456
2457	/**
2458	* xmlStringDecodeEntities:
2459	* @ctxt: the parser context
2460	* @str: the input string
2461	* @what: combination of XML_SUBSTITUTE_REF and XML_SUBSTITUTE_PEREF
2462	* @end: an end marker xmlChar, 0 if none
2463	* @end2: an end marker xmlChar, 0 if none
2464	* @end3: an end marker xmlChar, 0 if none
2465	*
2466	* Takes a entity string content and process to do the adequate substitutions.
2467	*
2468	* [67] Reference ::= EntityRef \| CharRef
2469	*
2470	* [69] PEReference ::= '%' Name ';'
2471	*
2472	* Returns A newly allocated string with the substitution done. The caller
2473	* must deallocate it !
2474	*/
2475	xmlChar *
2476	xmlStringDecodeEntities(xmlParserCtxtPtr ctxt, const xmlChar *str, int what,
2477	xmlChar end, xmlChar end2, xmlChar end3) {
2478	if ((ctxt == NULL) \|\| (str == NULL)) return(NULL);
2479	return(xmlStringLenDecodeEntities(ctxt, str, xmlStrlen(str), what,
2480	end, end2, end3));
2481	}
2482
2483	/************************************************************************
2484	* *
2485	* Commodity functions, cleanup needed ? *
2486	* *
2487	************************************************************************/
2488
2489	/**
2490	* areBlanks:
2491	* @ctxt: an XML parser context
2492	* @str: a xmlChar *
2493	* @len: the size of @str
2494	* @blank_chars: we know the chars are blanks
2495	*
2496	* Is this a sequence of blank chars that one can ignore ?
2497	*
2498	* Returns 1 if ignorable 0 otherwise.
2499	*/
2500
2501	static int areBlanks(xmlParserCtxtPtr ctxt, const xmlChar *str, int len,
2502	int blank_chars) {
2503	int i, ret;
2504	xmlNodePtr lastChild;
2505
2506	/*
2507	* Don't spend time trying to differentiate them, the same callback is
2508	* used !
2509	*/
2510	if (ctxt->sax->ignorableWhitespace == ctxt->sax->characters)
2511	return(0);
2512
2513	/*
2514	* Check for xml:space value.
2515	*/
2516	if ((ctxt->space == NULL) \|\| (*(ctxt->space) == 1) \|\|
2517	(*(ctxt->space) == -2))
2518	return(0);
2519
2520	/*
2521	* Check that the string is made of blanks
2522	*/
2523	if (blank_chars == 0) {
2524	for (i = 0;i < len;i++)
2525	if (!(IS_BLANK_CH(str[i]))) return(0);
2526	}
2527
2528	/*
2529	* Look if the element is mixed content in the DTD if available
2530	*/
2531	if (ctxt->node == NULL) return(0);
2532	if (ctxt->myDoc != NULL) {
2533	ret = xmlIsMixedElement(ctxt->myDoc, ctxt->node->name);
2534	if (ret == 0) return(1);
2535	if (ret == 1) return(0);
2536	}
2537
2538	/*
2539	* Otherwise, heuristic :-\
2540	*/
2541	if ((RAW != '<') && (RAW != 0xD)) return(0);
2542	if ((ctxt->node->children == NULL) &&
2543	(RAW == '<') && (NXT(1) == '/')) return(0);
2544
2545	lastChild = xmlGetLastChild(ctxt->node);
2546	if (lastChild == NULL) {
2547	if ((ctxt->node->type != XML_ELEMENT_NODE) &&
2548	(ctxt->node->content != NULL)) return(0);
2549	} else if (xmlNodeIsText(lastChild))
2550	return(0);
2551	else if ((ctxt->node->children != NULL) &&
2552	(xmlNodeIsText(ctxt->node->children)))
2553	return(0);
2554	return(1);
2555	}
2556
2557	/************************************************************************
2558	* *
2559	* Extra stuff for namespace support *
2560	* Relates to http://www.w3.org/TR/WD-xml-names *
2561	* *
2562	************************************************************************/
2563
2564	/**
2565	* xmlSplitQName:
2566	* @ctxt: an XML parser context
2567	* @name: an XML parser context
2568	* @prefix: a xmlChar **
2569	*
2570	* parse an UTF8 encoded XML qualified name string
2571	*
2572	* [NS 5] QName ::= (Prefix ':')? LocalPart
2573	*
2574	* [NS 6] Prefix ::= NCName
2575	*
2576	* [NS 7] LocalPart ::= NCName
2577	*
2578	* Returns the local part, and prefix is updated
2579	* to get the Prefix if any.
2580	*/
2581
2582	xmlChar *
2583	xmlSplitQName(xmlParserCtxtPtr ctxt, const xmlChar name, xmlChar *prefix) {
2584	xmlChar buf[XML_MAX_NAMELEN + 5];
2585	xmlChar *buffer = NULL;
2586	int len = 0;
2587	int max = XML_MAX_NAMELEN;
2588	xmlChar *ret = NULL;
2589	const xmlChar *cur = name;
2590	int c;
2591
2592	if (prefix == NULL) return(NULL);
2593	*prefix = NULL;
2594
2595	if (cur == NULL) return(NULL);
2596
2597	#ifndef XML_XML_NAMESPACE
2598	/* xml: prefix is not really a namespace */
2599	if ((cur[0] == 'x') && (cur[1] == 'm') &&
2600	(cur[2] == 'l') && (cur[3] == ':'))
2601	return(xmlStrdup(name));
2602	#endif
2603
2604	/* nasty but well=formed */
2605	if (cur[0] == ':')
2606	return(xmlStrdup(name));
2607
2608	c = *cur++;
2609	while ((c != 0) && (c != ':') && (len < max)) { /* tested bigname.xml */
2610	buf[len++] = c;
2611	c = *cur++;
2612	}
2613	if (len >= max) {
2614	/*
2615	* Okay someone managed to make a huge name, so he's ready to pay
2616	* for the processing speed.
2617	*/
2618	max = len * 2;
2619
2620	buffer = (xmlChar ) xmlMallocAtomic(max sizeof(xmlChar));
2621	if (buffer == NULL) {
2622	xmlErrMemory(ctxt, NULL);
2623	return(NULL);
2624	}
2625	memcpy(buffer, buf, len);
2626	while ((c != 0) && (c != ':')) { /* tested bigname.xml */
2627	if (len + 10 > max) {
2628	xmlChar *tmp;
2629
2630	max *= 2;
2631	tmp = (xmlChar *) xmlRealloc(buffer,
2632	max * sizeof(xmlChar));
2633	if (tmp == NULL) {
2634	xmlFree(tmp);
2635	xmlErrMemory(ctxt, NULL);
2636	return(NULL);
2637	}
2638	buffer = tmp;
2639	}
2640	buffer[len++] = c;
2641	c = *cur++;
2642	}
2643	buffer[len] = 0;
2644	}
2645
2646	if ((c == ':') && (*cur == 0)) {
2647	if (buffer != NULL)
2648	xmlFree(buffer);
2649	*prefix = NULL;
2650	return(xmlStrdup(name));
2651	}
2652
2653	if (buffer == NULL)
2654	ret = xmlStrndup(buf, len);
2655	else {
2656	ret = buffer;
2657	buffer = NULL;
2658	max = XML_MAX_NAMELEN;
2659	}
2660
2661
2662	if (c == ':') {
2663	c = *cur;
2664	*prefix = ret;
2665	if (c == 0) {
2666	return(xmlStrndup(BAD_CAST "", 0));
2667	}
2668	len = 0;
2669
2670	/*
2671	* Check that the first character is proper to start
2672	* a new name
2673	*/
2674	if (!(((c >= 0x61) && (c <= 0x7A)) \|\|
2675	((c >= 0x41) && (c <= 0x5A)) \|\|
2676	(c == '_') \|\| (c == ':'))) {
2677	int l;
2678	int first = CUR_SCHAR(cur, l);
2679
2680	if (!IS_LETTER(first) && (first != '_')) {
2681	xmlFatalErrMsgStr(ctxt, XML_NS_ERR_QNAME,
2682	"Name %s is not XML Namespace compliant\n",
2683	name);
2684	}
2685	}
2686	cur++;
2687
2688	while ((c != 0) && (len < max)) { /* tested bigname2.xml */
2689	buf[len++] = c;
2690	c = *cur++;
2691	}
2692	if (len >= max) {
2693	/*
2694	* Okay someone managed to make a huge name, so he's ready to pay
2695	* for the processing speed.
2696	*/
2697	max = len * 2;
2698
2699	buffer = (xmlChar ) xmlMallocAtomic(max sizeof(xmlChar));
2700	if (buffer == NULL) {
2701	xmlErrMemory(ctxt, NULL);
2702	return(NULL);
2703	}
2704	memcpy(buffer, buf, len);
2705	while (c != 0) { /* tested bigname2.xml */
2706	if (len + 10 > max) {
2707	xmlChar *tmp;
2708
2709	max *= 2;
2710	tmp = (xmlChar *) xmlRealloc(buffer,
2711	max * sizeof(xmlChar));
2712	if (tmp == NULL) {
2713	xmlErrMemory(ctxt, NULL);
2714	xmlFree(buffer);
2715	return(NULL);
2716	}
2717	buffer = tmp;
2718	}
2719	buffer[len++] = c;
2720	c = *cur++;
2721	}
2722	buffer[len] = 0;
2723	}
2724
2725	if (buffer == NULL)
2726	ret = xmlStrndup(buf, len);
2727	else {
2728	ret = buffer;
2729	}
2730	}
2731
2732	return(ret);
2733	}
2734
2735	/************************************************************************
2736	* *
2737	* The parser itself *
2738	* Relates to http://www.w3.org/TR/REC-xml *
2739	* *
2740	************************************************************************/
2741
2742	static const xmlChar * xmlParseNameComplex(xmlParserCtxtPtr ctxt);
2743	static xmlChar * xmlParseAttValueInternal(xmlParserCtxtPtr ctxt,
2744	int len, int alloc, int normalize);
2745
2746	/**
2747	* xmlParseName:
2748	* @ctxt: an XML parser context
2749	*
2750	* parse an XML name.
2751	*
2752	* [4] NameChar ::= Letter \| Digit \| '.' \| '-' \| '_' \| ':' \|
2753	* CombiningChar \| Extender
2754	*
2755	* [5] Name ::= (Letter \| '_' \| ':') (NameChar)*
2756	*
2757	* [6] Names ::= Name (#x20 Name)*
2758	*
2759	* Returns the Name parsed or NULL
2760	*/
2761
2762	const xmlChar *
2763	xmlParseName(xmlParserCtxtPtr ctxt) {
2764	const xmlChar *in;
2765	const xmlChar *ret;
2766	int count = 0;
2767
2768	GROW;
2769
2770	/*
2771	* Accelerator for simple ASCII names
2772	*/
2773	in = ctxt->input->cur;
2774	if (((in >= 0x61) && (in <= 0x7A)) \|\|
2775	((in >= 0x41) && (in <= 0x5A)) \|\|
2776	(in == '_') \|\| (in == ':')) {
2777	in++;
2778	while (((in >= 0x61) && (in <= 0x7A)) \|\|
2779	((in >= 0x41) && (in <= 0x5A)) \|\|
2780	((in >= 0x30) && (in <= 0x39)) \|\|
2781	(in == '_') \|\| (in == '-') \|\|
2782	(in == ':') \|\| (in == '.'))
2783	in++;
2784	if ((in > 0) && (in < 0x80)) {
2785	count = in - ctxt->input->cur;
2786	ret = xmlDictLookup(ctxt->dict, ctxt->input->cur, count);
2787	ctxt->input->cur = in;
2788	ctxt->nbChars += count;
2789	ctxt->input->col += count;
2790	if (ret == NULL)
2791	xmlErrMemory(ctxt, NULL);
2792	return(ret);
2793	}
2794	}
2795	return(xmlParseNameComplex(ctxt));
2796	}
2797
2798	/**
2799	* xmlParseNameAndCompare:
2800	* @ctxt: an XML parser context
2801	*
2802	* parse an XML name and compares for match
2803	* (specialized for endtag parsing)
2804	*
2805	* Returns NULL for an illegal name, (xmlChar*) 1 for success
2806	* and the name for mismatch
2807	*/
2808
2809	static const xmlChar *
2810	xmlParseNameAndCompare(xmlParserCtxtPtr ctxt, xmlChar const *other) {
2811	register const xmlChar *cmp = other;
2812	register const xmlChar *in;
2813	const xmlChar *ret;
2814
2815	GROW;
2816
2817	in = ctxt->input->cur;
2818	while (in != 0 && in == *cmp) {
2819	++in;
2820	++cmp;
2821	ctxt->input->col++;
2822	}
2823	if (cmp == 0 && (in == '>' \|\| IS_BLANK_CH (*in))) {
2824	/* success */
2825	ctxt->input->cur = in;
2826	return (const xmlChar*) 1;
2827	}
2828	/* failure (or end of input buffer), check with full function */
2829	ret = xmlParseName (ctxt);
2830	/* strings coming from the dictionnary direct compare possible */
2831	if (ret == other) {
2832	return (const xmlChar*) 1;
2833	}
2834	return ret;
2835	}
2836
2837	static const xmlChar *
2838	xmlParseNameComplex(xmlParserCtxtPtr ctxt) {
2839	int len = 0, l;
2840	int c;
2841	int count = 0;
2842
2843	/*
2844	* Handler for more complex cases
2845	*/
2846	GROW;
2847	c = CUR_CHAR(l);
2848	if ((c == ' ') \|\| (c == '>') \|\| (c == '/') \|\| /* accelerators */
2849	(!IS_LETTER(c) && (c != '_') &&
2850	(c != ':'))) {
2851	return(NULL);
2852	}
2853
2854	while ((c != ' ') && (c != '>') && (c != '/') && /* test bigname.xml */
2855	((IS_LETTER(c)) \|\| (IS_DIGIT(c)) \|\|
2856	(c == '.') \|\| (c == '-') \|\|
2857	(c == '_') \|\| (c == ':') \|\|
2858	(IS_COMBINING(c)) \|\|
2859	(IS_EXTENDER(c)))) {
2860	if (count++ > 100) {
2861	count = 0;
2862	GROW;
2863	}
2864	len += l;
2865	NEXTL(l);
2866	c = CUR_CHAR(l);
2867	}
2868	if ((*ctxt->input->cur == '\n') && (ctxt->input->cur[-1] == '\r'))
2869	return(xmlDictLookup(ctxt->dict, ctxt->input->cur - (len + 1), len));
2870	return(xmlDictLookup(ctxt->dict, ctxt->input->cur - len, len));
2871	}
2872
2873	/**
2874	* xmlParseStringName:
2875	* @ctxt: an XML parser context
2876	* @str: a pointer to the string pointer (IN/OUT)
2877	*
2878	* parse an XML name.
2879	*
2880	* [4] NameChar ::= Letter \| Digit \| '.' \| '-' \| '_' \| ':' \|
2881	* CombiningChar \| Extender
2882	*
2883	* [5] Name ::= (Letter \| '_' \| ':') (NameChar)*
2884	*
2885	* [6] Names ::= Name (#x20 Name)*
2886	*
2887	* Returns the Name parsed or NULL. The @str pointer
2888	* is updated to the current location in the string.
2889	*/
2890
2891	static xmlChar *
2892	xmlParseStringName(xmlParserCtxtPtr ctxt, const xmlChar** str) {
2893	xmlChar buf[XML_MAX_NAMELEN + 5];
2894	const xmlChar cur = str;
2895	int len = 0, l;
2896	int c;
2897
2898	c = CUR_SCHAR(cur, l);
2899	if (!IS_LETTER(c) && (c != '_') &&
2900	(c != ':')) {
2901	return(NULL);
2902	}
2903
2904	while ((IS_LETTER(c)) \|\| (IS_DIGIT(c)) \|\| /* test bigentname.xml */
2905	(c == '.') \|\| (c == '-') \|\|
2906	(c == '_') \|\| (c == ':') \|\|
2907	(IS_COMBINING(c)) \|\|
2908	(IS_EXTENDER(c))) {
2909	COPY_BUF(l,buf,len,c);
2910	cur += l;
2911	c = CUR_SCHAR(cur, l);
2912	if (len >= XML_MAX_NAMELEN) { /* test bigentname.xml */
2913	/*
2914	* Okay someone managed to make a huge name, so he's ready to pay
2915	* for the processing speed.
2916	*/
2917	xmlChar *buffer;
2918	int max = len * 2;
2919
2920	buffer = (xmlChar ) xmlMallocAtomic(max sizeof(xmlChar));
2921	if (buffer == NULL) {
2922	xmlErrMemory(ctxt, NULL);
2923	return(NULL);
2924	}
2925	memcpy(buffer, buf, len);
2926	while ((IS_LETTER(c)) \|\| (IS_DIGIT(c)) \|\|
2927	/* test bigentname.xml */
2928	(c == '.') \|\| (c == '-') \|\|
2929	(c == '_') \|\| (c == ':') \|\|
2930	(IS_COMBINING(c)) \|\|
2931	(IS_EXTENDER(c))) {
2932	if (len + 10 > max) {
2933	xmlChar *tmp;
2934	max *= 2;
2935	tmp = (xmlChar *) xmlRealloc(buffer,
2936	max * sizeof(xmlChar));
2937	if (tmp == NULL) {
2938	xmlErrMemory(ctxt, NULL);
2939	xmlFree(buffer);
2940	return(NULL);
2941	}
2942	buffer = tmp;
2943	}
2944	COPY_BUF(l,buffer,len,c);
2945	cur += l;
2946	c = CUR_SCHAR(cur, l);
2947	}
2948	buffer[len] = 0;
2949	*str = cur;
2950	return(buffer);
2951	}
2952	}
2953	*str = cur;
2954	return(xmlStrndup(buf, len));
2955	}
2956
2957	/**
2958	* xmlParseNmtoken:
2959	* @ctxt: an XML parser context
2960	*
2961	* parse an XML Nmtoken.
2962	*
2963	* [7] Nmtoken ::= (NameChar)+
2964	*
2965	* [8] Nmtokens ::= Nmtoken (#x20 Nmtoken)*
2966	*
2967	* Returns the Nmtoken parsed or NULL
2968	*/
2969
2970	xmlChar *
2971	xmlParseNmtoken(xmlParserCtxtPtr ctxt) {
2972	xmlChar buf[XML_MAX_NAMELEN + 5];
2973	int len = 0, l;
2974	int c;
2975	int count = 0;
2976
2977	GROW;
2978	c = CUR_CHAR(l);
2979
2980	while ((IS_LETTER(c)) \|\| (IS_DIGIT(c)) \|\| /* test bigtoken.xml */
2981	(c == '.') \|\| (c == '-') \|\|
2982	(c == '_') \|\| (c == ':') \|\|
2983	(IS_COMBINING(c)) \|\|
2984	(IS_EXTENDER(c))) {
2985	if (count++ > 100) {
2986	count = 0;
2987	GROW;
2988	}
2989	COPY_BUF(l,buf,len,c);
2990	NEXTL(l);
2991	c = CUR_CHAR(l);
2992	if (len >= XML_MAX_NAMELEN) {
2993	/*
2994	* Okay someone managed to make a huge token, so he's ready to pay
2995	* for the processing speed.
2996	*/
2997	xmlChar *buffer;
2998	int max = len * 2;
2999
3000	buffer = (xmlChar ) xmlMallocAtomic(max sizeof(xmlChar));
3001	if (buffer == NULL) {
3002	xmlErrMemory(ctxt, NULL);
3003	return(NULL);
3004	}
3005	memcpy(buffer, buf, len);
3006	while ((IS_LETTER(c)) \|\| (IS_DIGIT(c)) \|\| /* test bigtoken.xml */
3007	(c == '.') \|\| (c == '-') \|\|
3008	(c == '_') \|\| (c == ':') \|\|
3009	(IS_COMBINING(c)) \|\|
3010	(IS_EXTENDER(c))) {
3011	if (count++ > 100) {
3012	count = 0;
3013	GROW;
3014	}
3015	if (len + 10 > max) {
3016	xmlChar *tmp;
3017
3018	max *= 2;
3019	tmp = (xmlChar *) xmlRealloc(buffer,
3020	max * sizeof(xmlChar));
3021	if (tmp == NULL) {
3022	xmlErrMemory(ctxt, NULL);
3023	xmlFree(buffer);
3024	return(NULL);
3025	}
3026	buffer = tmp;
3027	}
3028	COPY_BUF(l,buffer,len,c);
3029	NEXTL(l);
3030	c = CUR_CHAR(l);
3031	}
3032	buffer[len] = 0;
3033	return(buffer);
3034	}
3035	}
3036	if (len == 0)
3037	return(NULL);
3038	return(xmlStrndup(buf, len));
3039	}
3040
3041	/**
3042	* xmlParseEntityValue:
3043	* @ctxt: an XML parser context
3044	* @orig: if non-NULL store a copy of the original entity value
3045	*
3046	* parse a value for ENTITY declarations
3047	*
3048	* [9] EntityValue ::= '"' ([^%&"] \| PEReference \| Reference)* '"' \|
3049	* "'" ([^%&'] \| PEReference \| Reference)* "'"
3050	*
3051	* Returns the EntityValue parsed with reference substituted or NULL
3052	*/
3053
3054	xmlChar *
3055	xmlParseEntityValue(xmlParserCtxtPtr ctxt, xmlChar **orig) {
3056	xmlChar *buf = NULL;
3057	int len = 0;
3058	int size = XML_PARSER_BUFFER_SIZE;
3059	int c, l;
3060	xmlChar stop;
3061	xmlChar *ret = NULL;
3062	const xmlChar *cur = NULL;
3063	xmlParserInputPtr input;
3064
3065	if (RAW == '"') stop = '"';
3066	else if (RAW == '\'') stop = '\'';
3067	else {
3068	xmlFatalErr(ctxt, XML_ERR_ENTITY_NOT_STARTED, NULL);
3069	return(NULL);
3070	}
3071	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
3072	if (buf == NULL) {
3073	xmlErrMemory(ctxt, NULL);
3074	return(NULL);
3075	}
3076
3077	/*
3078	* The content of the entity definition is copied in a buffer.
3079	*/
3080
3081	ctxt->instate = XML_PARSER_ENTITY_VALUE;
3082	input = ctxt->input;
3083	GROW;
3084	NEXT;
3085	c = CUR_CHAR(l);
3086	/*
3087	* NOTE: 4.4.5 Included in Literal
3088	* When a parameter entity reference appears in a literal entity
3089	* value, ... a single or double quote character in the replacement
3090	* text is always treated as a normal data character and will not
3091	* terminate the literal.
3092	* In practice it means we stop the loop only when back at parsing
3093	* the initial entity and the quote is found
3094	*/
3095	while ((IS_CHAR(c)) && ((c != stop) \|\| /* checked */
3096	(ctxt->input != input))) {
3097	if (len + 5 >= size) {
3098	xmlChar *tmp;
3099
3100	size *= 2;
3101	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
3102	if (tmp == NULL) {
3103	xmlErrMemory(ctxt, NULL);
3104	xmlFree(buf);
3105	return(NULL);
3106	}
3107	buf = tmp;
3108	}
3109	COPY_BUF(l,buf,len,c);
3110	NEXTL(l);
3111	/*
3112	* Pop-up of finished entities.
3113	*/
3114	while ((RAW == 0) && (ctxt->inputNr > 1)) /* non input consuming */
3115	xmlPopInput(ctxt);
3116
3117	GROW;
3118	c = CUR_CHAR(l);
3119	if (c == 0) {
3120	GROW;
3121	c = CUR_CHAR(l);
3122	}
3123	}
3124	buf[len] = 0;
3125
3126	/*
3127	* Raise problem w.r.t. '&' and '%' being used in non-entities
3128	* reference constructs. Note Charref will be handled in
3129	* xmlStringDecodeEntities()
3130	*/
3131	cur = buf;
3132	while (cur != 0) { / non input consuming */
3133	if ((cur == '%') \|\| ((cur == '&') && (cur[1] != '#'))) {
3134	xmlChar *name;
3135	xmlChar tmp = *cur;
3136
3137	cur++;
3138	name = xmlParseStringName(ctxt, &cur);
3139	if ((name == NULL) \|\| (*cur != ';')) {
3140	xmlFatalErrMsgInt(ctxt, XML_ERR_ENTITY_CHAR_ERROR,
3141	"EntityValue: '%c' forbidden except for entities references\n",
3142	tmp);
3143	}
3144	if ((tmp == '%') && (ctxt->inSubset == 1) &&
3145	(ctxt->inputNr == 1)) {
3146	xmlFatalErr(ctxt, XML_ERR_ENTITY_PE_INTERNAL, NULL);
3147	}
3148	if (name != NULL)
3149	xmlFree(name);
3150	if (*cur == 0)
3151	break;
3152	}
3153	cur++;
3154	}
3155
3156	/*
3157	* Then PEReference entities are substituted.
3158	*/
3159	if (c != stop) {
3160	xmlFatalErr(ctxt, XML_ERR_ENTITY_NOT_FINISHED, NULL);
3161	xmlFree(buf);
3162	} else {
3163	NEXT;
3164	/*
3165	* NOTE: 4.4.7 Bypassed
3166	* When a general entity reference appears in the EntityValue in
3167	* an entity declaration, it is bypassed and left as is.
3168	* so XML_SUBSTITUTE_REF is not set here.
3169	*/
3170	ret = xmlStringDecodeEntities(ctxt, buf, XML_SUBSTITUTE_PEREF,
3171	0, 0, 0);
3172	if (orig != NULL)
3173	*orig = buf;
3174	else
3175	xmlFree(buf);
3176	}
3177
3178	return(ret);
3179	}
3180
3181	/**
3182	* xmlParseAttValueComplex:
3183	* @ctxt: an XML parser context
3184	* @len: the resulting attribute len
3185	* @normalize: wether to apply the inner normalization
3186	*
3187	* parse a value for an attribute, this is the fallback function
3188	* of xmlParseAttValue() when the attribute parsing requires handling
3189	* of non-ASCII characters, or normalization compaction.
3190	*
3191	* Returns the AttValue parsed or NULL. The value has to be freed by the caller.
3192	*/
3193	static xmlChar *
3194	xmlParseAttValueComplex(xmlParserCtxtPtr ctxt, int *attlen, int normalize) {
3195	xmlChar limit = 0;
3196	xmlChar *buf = NULL;
3197	int len = 0;
3198	int buf_size = 0;
3199	int c, l, in_space = 0;
3200	xmlChar *current = NULL;
3201	xmlEntityPtr ent;
3202
3203	if (NXT(0) == '"') {
3204	ctxt->instate = XML_PARSER_ATTRIBUTE_VALUE;
3205	limit = '"';
3206	NEXT;
3207	} else if (NXT(0) == '\'') {
3208	limit = '\'';
3209	ctxt->instate = XML_PARSER_ATTRIBUTE_VALUE;
3210	NEXT;
3211	} else {
3212	xmlFatalErr(ctxt, XML_ERR_ATTRIBUTE_NOT_STARTED, NULL);
3213	return(NULL);
3214	}
3215
3216	/*
3217	* allocate a translation buffer.
3218	*/
3219	buf_size = XML_PARSER_BUFFER_SIZE;
3220	buf = (xmlChar ) xmlMallocAtomic(buf_size sizeof(xmlChar));
3221	if (buf == NULL) goto mem_error;
3222
3223	/*
3224	* OK loop until we reach one of the ending char or a size limit.
3225	*/
3226	c = CUR_CHAR(l);
3227	while ((NXT(0) != limit) && /* checked */
3228	(IS_CHAR(c)) && (c != '<')) {
3229	if (c == 0) break;
3230	if (c == '&') {
3231	in_space = 0;
3232	if (NXT(1) == '#') {
3233	int val = xmlParseCharRef(ctxt);
3234
3235	if (val == '&') {
3236	if (ctxt->replaceEntities) {
3237	if (len > buf_size - 10) {
3238	growBuffer(buf, 10);
3239	}
3240	buf[len++] = '&';
3241	} else {
3242	/*
3243	* The reparsing will be done in xmlStringGetNodeList()
3244	* called by the attribute() function in SAX.c
3245	*/
3246	if (len > buf_size - 10) {
3247	growBuffer(buf, 10);
3248	}
3249	buf[len++] = '&';
3250	buf[len++] = '#';
3251	buf[len++] = '3';
3252	buf[len++] = '8';
3253	buf[len++] = ';';
3254	}
3255	} else {
3256	if (len > buf_size - 10) {
3257	growBuffer(buf, 10);
3258	}
3259	len += xmlCopyChar(0, &buf[len], val);
3260	}
3261	} else {
3262	ent = xmlParseEntityRef(ctxt);
3263	ctxt->nbentities++;
3264	if (ent != NULL)
3265	ctxt->nbentities += ent->owner;
3266	if ((ent != NULL) &&
3267	(ent->etype == XML_INTERNAL_PREDEFINED_ENTITY)) {
3268	if (len > buf_size - 10) {
3269	growBuffer(buf, 10);
3270	}
3271	if ((ctxt->replaceEntities == 0) &&
3272	(ent->content[0] == '&')) {
3273	buf[len++] = '&';
3274	buf[len++] = '#';
3275	buf[len++] = '3';
3276	buf[len++] = '8';
3277	buf[len++] = ';';
3278	} else {
3279	buf[len++] = ent->content[0];
3280	}
3281	} else if ((ent != NULL) &&
3282	(ctxt->replaceEntities != 0)) {
3283	xmlChar *rep;
3284
3285	if (ent->etype != XML_INTERNAL_PREDEFINED_ENTITY) {
3286	rep = xmlStringDecodeEntities(ctxt, ent->content,
3287	XML_SUBSTITUTE_REF,
3288	0, 0, 0);
3289	if (rep != NULL) {
3290	current = rep;
3291	while (current != 0) { / non input consuming */
3292	buf[len++] = *current++;
3293	if (len > buf_size - 10) {
3294	growBuffer(buf, 10);
3295	}
3296	}
3297	xmlFree(rep);
3298	}
3299	} else {
3300	if (len > buf_size - 10) {
3301	growBuffer(buf, 10);
3302	}
3303	if (ent->content != NULL)
3304	buf[len++] = ent->content[0];
3305	}
3306	} else if (ent != NULL) {
3307	int i = xmlStrlen(ent->name);
3308	const xmlChar *cur = ent->name;
3309
3310	/*
3311	* This may look absurd but is needed to detect
3312	* entities problems
3313	*/
3314	if ((ent->etype != XML_INTERNAL_PREDEFINED_ENTITY) &&
3315	(ent->content != NULL)) {
3316	xmlChar *rep;
3317	rep = xmlStringDecodeEntities(ctxt, ent->content,
3318	XML_SUBSTITUTE_REF, 0, 0, 0);
3319	if (rep != NULL)
3320	xmlFree(rep);
3321	}
3322
3323	/*
3324	* Just output the reference
3325	*/
3326	buf[len++] = '&';
3327	while (len > buf_size - i - 10) {
3328	growBuffer(buf, i + 10);
3329	}
3330	for (;i > 0;i--)
3331	buf[len++] = *cur++;
3332	buf[len++] = ';';
3333	}
3334	}
3335	} else {
3336	if ((c == 0x20) \|\| (c == 0xD) \|\| (c == 0xA) \|\| (c == 0x9)) {
3337	if ((len != 0) \|\| (!normalize)) {
3338	if ((!normalize) \|\| (!in_space)) {
3339	COPY_BUF(l,buf,len,0x20);
3340	if (len > buf_size - 10) {
3341	growBuffer(buf, 10);
3342	}
3343	}
3344	in_space = 1;
3345	}
3346	} else {
3347	in_space = 0;
3348	COPY_BUF(l,buf,len,c);
3349	if (len > buf_size - 10) {
3350	growBuffer(buf, 10);
3351	}
3352	}
3353	NEXTL(l);
3354	}
3355	GROW;
3356	c = CUR_CHAR(l);
3357	}
3358	if ((in_space) && (normalize)) {
3359	while (buf[len - 1] == 0x20) len--;
3360	}
3361	buf[len] = 0;
3362	if (RAW == '<') {
3363	xmlFatalErr(ctxt, XML_ERR_LT_IN_ATTRIBUTE, NULL);
3364	} else if (RAW != limit) {
3365	if ((c != 0) && (!IS_CHAR(c))) {
3366	xmlFatalErrMsg(ctxt, XML_ERR_INVALID_CHAR,
3367	"invalid character in attribute value\n");
3368	} else {
3369	xmlFatalErrMsg(ctxt, XML_ERR_ATTRIBUTE_NOT_FINISHED,
3370	"AttValue: ' expected\n");
3371	}
3372	} else
3373	NEXT;
3374	if (attlen != NULL) *attlen = len;
3375	return(buf);
3376
3377	mem_error:
3378	xmlErrMemory(ctxt, NULL);
3379	return(NULL);
3380	}
3381
3382	/**
3383	* xmlParseAttValue:
3384	* @ctxt: an XML parser context
3385	*
3386	* parse a value for an attribute
3387	* Note: the parser won't do substitution of entities here, this
3388	* will be handled later in xmlStringGetNodeList
3389	*
3390	* [10] AttValue ::= '"' ([^<&"] \| Reference)* '"' \|
3391	* "'" ([^<&'] \| Reference)* "'"
3392	*
3393	* 3.3.3 Attribute-Value Normalization:
3394	* Before the value of an attribute is passed to the application or
3395	* checked for validity, the XML processor must normalize it as follows:
3396	* - a character reference is processed by appending the referenced
3397	* character to the attribute value
3398	* - an entity reference is processed by recursively processing the
3399	* replacement text of the entity
3400	* - a whitespace character (#x20, #xD, #xA, #x9) is processed by
3401	* appending #x20 to the normalized value, except that only a single
3402	* #x20 is appended for a "#xD#xA" sequence that is part of an external
3403	* parsed entity or the literal entity value of an internal parsed entity
3404	* - other characters are processed by appending them to the normalized value
3405	* If the declared value is not CDATA, then the XML processor must further
3406	* process the normalized attribute value by discarding any leading and
3407	* trailing space (#x20) characters, and by replacing sequences of space
3408	* (#x20) characters by a single space (#x20) character.
3409	* All attributes for which no declaration has been read should be treated
3410	* by a non-validating parser as if declared CDATA.
3411	*
3412	* Returns the AttValue parsed or NULL. The value has to be freed by the caller.
3413	*/
3414
3415
3416	xmlChar *
3417	xmlParseAttValue(xmlParserCtxtPtr ctxt) {
3418	if ((ctxt == NULL) \|\| (ctxt->input == NULL)) return(NULL);
3419	return(xmlParseAttValueInternal(ctxt, NULL, NULL, 0));
3420	}
3421
3422	/**
3423	* xmlParseSystemLiteral:
3424	* @ctxt: an XML parser context
3425	*
3426	* parse an XML Literal
3427	*
3428	* [11] SystemLiteral ::= ('"' [^"]* '"') \| ("'" [^']* "'")
3429	*
3430	* Returns the SystemLiteral parsed or NULL
3431	*/
3432
3433	xmlChar *
3434	xmlParseSystemLiteral(xmlParserCtxtPtr ctxt) {
3435	xmlChar *buf = NULL;
3436	int len = 0;
3437	int size = XML_PARSER_BUFFER_SIZE;
3438	int cur, l;
3439	xmlChar stop;
3440	int state = ctxt->instate;
3441	int count = 0;
3442
3443	SHRINK;
3444	if (RAW == '"') {
3445	NEXT;
3446	stop = '"';
3447	} else if (RAW == '\'') {
3448	NEXT;
3449	stop = '\'';
3450	} else {
3451	xmlFatalErr(ctxt, XML_ERR_LITERAL_NOT_STARTED, NULL);
3452	return(NULL);
3453	}
3454
3455	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
3456	if (buf == NULL) {
3457	xmlErrMemory(ctxt, NULL);
3458	return(NULL);
3459	}
3460	ctxt->instate = XML_PARSER_SYSTEM_LITERAL;
3461	cur = CUR_CHAR(l);
3462	while ((IS_CHAR(cur)) && (cur != stop)) { /* checked */
3463	if (len + 5 >= size) {
3464	xmlChar *tmp;
3465
3466	size *= 2;
3467	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
3468	if (tmp == NULL) {
3469	xmlFree(buf);
3470	xmlErrMemory(ctxt, NULL);
3471	ctxt->instate = (xmlParserInputState) state;
3472	return(NULL);
3473	}
3474	buf = tmp;
3475	}
3476	count++;
3477	if (count > 50) {
3478	GROW;
3479	count = 0;
3480	}
3481	COPY_BUF(l,buf,len,cur);
3482	NEXTL(l);
3483	cur = CUR_CHAR(l);
3484	if (cur == 0) {
3485	GROW;
3486	SHRINK;
3487	cur = CUR_CHAR(l);
3488	}
3489	}
3490	buf[len] = 0;
3491	ctxt->instate = (xmlParserInputState) state;
3492	if (!IS_CHAR(cur)) {
3493	xmlFatalErr(ctxt, XML_ERR_LITERAL_NOT_FINISHED, NULL);
3494	} else {
3495	NEXT;
3496	}
3497	return(buf);
3498	}
3499
3500	/**
3501	* xmlParsePubidLiteral:
3502	* @ctxt: an XML parser context
3503	*
3504	* parse an XML public literal
3505	*
3506	* [12] PubidLiteral ::= '"' PubidChar* '"' \| "'" (PubidChar - "'")* "'"
3507	*
3508	* Returns the PubidLiteral parsed or NULL.
3509	*/
3510
3511	xmlChar *
3512	xmlParsePubidLiteral(xmlParserCtxtPtr ctxt) {
3513	xmlChar *buf = NULL;
3514	int len = 0;
3515	int size = XML_PARSER_BUFFER_SIZE;
3516	xmlChar cur;
3517	xmlChar stop;
3518	int count = 0;
3519	xmlParserInputState oldstate = ctxt->instate;
3520
3521	SHRINK;
3522	if (RAW == '"') {
3523	NEXT;
3524	stop = '"';
3525	} else if (RAW == '\'') {
3526	NEXT;
3527	stop = '\'';
3528	} else {
3529	xmlFatalErr(ctxt, XML_ERR_LITERAL_NOT_STARTED, NULL);
3530	return(NULL);
3531	}
3532	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
3533	if (buf == NULL) {
3534	xmlErrMemory(ctxt, NULL);
3535	return(NULL);
3536	}
3537	ctxt->instate = XML_PARSER_PUBLIC_LITERAL;
3538	cur = CUR;
3539	while ((IS_PUBIDCHAR_CH(cur)) && (cur != stop)) { /* checked */
3540	if (len + 1 >= size) {
3541	xmlChar *tmp;
3542
3543	size *= 2;
3544	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
3545	if (tmp == NULL) {
3546	xmlErrMemory(ctxt, NULL);
3547	xmlFree(buf);
3548	return(NULL);
3549	}
3550	buf = tmp;
3551	}
3552	buf[len++] = cur;
3553	count++;
3554	if (count > 50) {
3555	GROW;
3556	count = 0;
3557	}
3558	NEXT;
3559	cur = CUR;
3560	if (cur == 0) {
3561	GROW;
3562	SHRINK;
3563	cur = CUR;
3564	}
3565	}
3566	buf[len] = 0;
3567	if (cur != stop) {
3568	xmlFatalErr(ctxt, XML_ERR_LITERAL_NOT_FINISHED, NULL);
3569	} else {
3570	NEXT;
3571	}
3572	ctxt->instate = oldstate;
3573	return(buf);
3574	}
3575
3576	void xmlParseCharDataComplex(xmlParserCtxtPtr ctxt, int cdata);
3577
3578	/*
3579	* used for the test in the inner loop of the char data testing
3580	*/
3581	static const unsigned char test_char_data[256] = {
3582	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3583	0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0x9, CR/LF separated */
3584	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3585	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3586	0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x00, 0x27, /* & */
3587	0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E, 0x2F,
3588	0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
3589	0x38, 0x39, 0x3A, 0x3B, 0x00, 0x3D, 0x3E, 0x3F, /* < */
3590	0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
3591	0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F,
3592	0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
3593	0x58, 0x59, 0x5A, 0x5B, 0x5C, 0x00, 0x5E, 0x5F, /* ] */
3594	0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
3595	0x68, 0x69, 0x6A, 0x6B, 0x6C, 0x6D, 0x6E, 0x6F,
3596	0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77,
3597	0x78, 0x79, 0x7A, 0x7B, 0x7C, 0x7D, 0x7E, 0x7F,
3598	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* non-ascii */
3599	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3600	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3601	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3602	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3603	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3604	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3605	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3606	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3607	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3608	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3609	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3610	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3611	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3612	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
3613	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
3614	};
3615
3616	/**
3617	* xmlParseCharData:
3618	* @ctxt: an XML parser context
3619	* @cdata: int indicating whether we are within a CDATA section
3620	*
3621	* parse a CharData section.
3622	* if we are within a CDATA section ']]>' marks an end of section.
3623	*
3624	* The right angle bracket (>) may be represented using the string ">",
3625	* and must, for compatibility, be escaped using ">" or a character
3626	* reference when it appears in the string "]]>" in content, when that
3627	* string is not marking the end of a CDATA section.
3628	*
3629	* [14] CharData ::= [^<&]* - ([^<&]* ']]>' [^<&]*)
3630	*/
3631
3632	void
3633	xmlParseCharData(xmlParserCtxtPtr ctxt, int cdata) {
3634	const xmlChar *in;
3635	int nbchar = 0;
3636	int line = ctxt->input->line;
3637	int col = ctxt->input->col;
3638	int ccol;
3639
3640	SHRINK;
3641	GROW;
3642	/*
3643	* Accelerated common case where input don't need to be
3644	* modified before passing it to the handler.
3645	*/
3646	if (!cdata) {
3647	in = ctxt->input->cur;
3648	do {
3649	get_more_space:
3650	while (*in == 0x20) { in++; ctxt->input->col++; }
3651	if (*in == 0xA) {
3652	do {
3653	ctxt->input->line++; ctxt->input->col = 1;
3654	in++;
3655	} while (*in == 0xA);
3656	goto get_more_space;
3657	}
3658	if (*in == '<') {
3659	nbchar = in - ctxt->input->cur;
3660	if (nbchar > 0) {
3661	const xmlChar *tmp = ctxt->input->cur;
3662	ctxt->input->cur = in;
3663
3664	if ((ctxt->sax != NULL) &&
3665	(ctxt->sax->ignorableWhitespace !=
3666	ctxt->sax->characters)) {
3667	if (areBlanks(ctxt, tmp, nbchar, 1)) {
3668	if (ctxt->sax->ignorableWhitespace != NULL)
3669	ctxt->sax->ignorableWhitespace(ctxt->userData,
3670	tmp, nbchar);
3671	} else {
3672	if (ctxt->sax->characters != NULL)
3673	ctxt->sax->characters(ctxt->userData,
3674	tmp, nbchar);
3675	if (*ctxt->space == -1)
3676	*ctxt->space = -2;
3677	}
3678	} else if ((ctxt->sax != NULL) &&
3679	(ctxt->sax->characters != NULL)) {
3680	ctxt->sax->characters(ctxt->userData,
3681	tmp, nbchar);
3682	}
3683	}
3684	return;
3685	}
3686
3687	get_more:
3688	ccol = ctxt->input->col;
3689	while (test_char_data[*in]) {
3690	in++;
3691	ccol++;
3692	}
3693	ctxt->input->col = ccol;
3694	if (*in == 0xA) {
3695	do {
3696	ctxt->input->line++; ctxt->input->col = 1;
3697	in++;
3698	} while (*in == 0xA);
3699	goto get_more;
3700	}
3701	if (*in == ']') {
3702	if ((in[1] == ']') && (in[2] == '>')) {
3703	xmlFatalErr(ctxt, XML_ERR_MISPLACED_CDATA_END, NULL);
3704	ctxt->input->cur = in;
3705	return;
3706	}
3707	in++;
3708	ctxt->input->col++;
3709	goto get_more;
3710	}
3711	nbchar = in - ctxt->input->cur;
3712	if (nbchar > 0) {
3713	if ((ctxt->sax != NULL) &&
3714	(ctxt->sax->ignorableWhitespace !=
3715	ctxt->sax->characters) &&
3716	(IS_BLANK_CH(*ctxt->input->cur))) {
3717	const xmlChar *tmp = ctxt->input->cur;
3718	ctxt->input->cur = in;
3719
3720	if (areBlanks(ctxt, tmp, nbchar, 0)) {
3721	if (ctxt->sax->ignorableWhitespace != NULL)
3722	ctxt->sax->ignorableWhitespace(ctxt->userData,
3723	tmp, nbchar);
3724	} else {
3725	if (ctxt->sax->characters != NULL)
3726	ctxt->sax->characters(ctxt->userData,
3727	tmp, nbchar);
3728	if (*ctxt->space == -1)
3729	*ctxt->space = -2;
3730	}
3731	line = ctxt->input->line;
3732	col = ctxt->input->col;
3733	} else if (ctxt->sax != NULL) {
3734	if (ctxt->sax->characters != NULL)
3735	ctxt->sax->characters(ctxt->userData,
3736	ctxt->input->cur, nbchar);
3737	line = ctxt->input->line;
3738	col = ctxt->input->col;
3739	}
3740	}
3741	ctxt->input->cur = in;
3742	if (*in == 0xD) {
3743	in++;
3744	if (*in == 0xA) {
3745	ctxt->input->cur = in;
3746	in++;
3747	ctxt->input->line++; ctxt->input->col = 1;
3748	continue; /* while */
3749	}
3750	in--;
3751	}
3752	if (*in == '<') {
3753	return;
3754	}
3755	if (*in == '&') {
3756	return;
3757	}
3758	SHRINK;
3759	GROW;
3760	in = ctxt->input->cur;
3761	} while (((in >= 0x20) && (in <= 0x7F)) \|\| (*in == 0x09));
3762	nbchar = 0;
3763	}
3764	ctxt->input->line = line;
3765	ctxt->input->col = col;
3766	xmlParseCharDataComplex(ctxt, cdata);
3767	}
3768
3769	/**
3770	* xmlParseCharDataComplex:
3771	* @ctxt: an XML parser context
3772	* @cdata: int indicating whether we are within a CDATA section
3773	*
3774	* parse a CharData section.this is the fallback function
3775	* of xmlParseCharData() when the parsing requires handling
3776	* of non-ASCII characters.
3777	*/
3778	void
3779	xmlParseCharDataComplex(xmlParserCtxtPtr ctxt, int cdata) {
3780	xmlChar buf[XML_PARSER_BIG_BUFFER_SIZE + 5];
3781	int nbchar = 0;
3782	int cur, l;
3783	int count = 0;
3784
3785	SHRINK;
3786	GROW;
3787	cur = CUR_CHAR(l);
3788	while ((cur != '<') && /* checked */
3789	(cur != '&') &&
3790	(IS_CHAR(cur))) /* test also done in xmlCurrentChar() */ {
3791	if ((cur == ']') && (NXT(1) == ']') &&
3792	(NXT(2) == '>')) {
3793	if (cdata) break;
3794	else {
3795	xmlFatalErr(ctxt, XML_ERR_MISPLACED_CDATA_END, NULL);
3796	}
3797	}
3798	COPY_BUF(l,buf,nbchar,cur);
3799	if (nbchar >= XML_PARSER_BIG_BUFFER_SIZE) {
3800	buf[nbchar] = 0;
3801
3802	/*
3803	* OK the segment is to be consumed as chars.
3804	*/
3805	if ((ctxt->sax != NULL) && (!ctxt->disableSAX)) {
3806	if (areBlanks(ctxt, buf, nbchar, 0)) {
3807	if (ctxt->sax->ignorableWhitespace != NULL)
3808	ctxt->sax->ignorableWhitespace(ctxt->userData,
3809	buf, nbchar);
3810	} else {
3811	if (ctxt->sax->characters != NULL)
3812	ctxt->sax->characters(ctxt->userData, buf, nbchar);
3813	if ((ctxt->sax->characters !=
3814	ctxt->sax->ignorableWhitespace) &&
3815	(*ctxt->space == -1))
3816	*ctxt->space = -2;
3817	}
3818	}
3819	nbchar = 0;
3820	}
3821	count++;
3822	if (count > 50) {
3823	GROW;
3824	count = 0;
3825	}
3826	NEXTL(l);
3827	cur = CUR_CHAR(l);
3828	}
3829	if (nbchar != 0) {
3830	buf[nbchar] = 0;
3831	/*
3832	* OK the segment is to be consumed as chars.
3833	*/
3834	if ((ctxt->sax != NULL) && (!ctxt->disableSAX)) {
3835	if (areBlanks(ctxt, buf, nbchar, 0)) {
3836	if (ctxt->sax->ignorableWhitespace != NULL)
3837	ctxt->sax->ignorableWhitespace(ctxt->userData, buf, nbchar);
3838	} else {
3839	if (ctxt->sax->characters != NULL)
3840	ctxt->sax->characters(ctxt->userData, buf, nbchar);
3841	if ((ctxt->sax->characters != ctxt->sax->ignorableWhitespace) &&
3842	(*ctxt->space == -1))
3843	*ctxt->space = -2;
3844	}
3845	}
3846	}
3847	if ((cur != 0) && (!IS_CHAR(cur))) {
3848	/* Generate the error and skip the offending character */
3849	xmlFatalErrMsgInt(ctxt, XML_ERR_INVALID_CHAR,
3850	"PCDATA invalid Char value %d\n",
3851	cur);
3852	NEXTL(l);
3853	}
3854	}
3855
3856	/**
3857	* xmlParseExternalID:
3858	* @ctxt: an XML parser context
3859	* @publicID: a xmlChar** receiving PubidLiteral
3860	* @strict: indicate whether we should restrict parsing to only
3861	* production [75], see NOTE below
3862	*
3863	* Parse an External ID or a Public ID
3864	*
3865	* NOTE: Productions [75] and [83] interact badly since [75] can generate
3866	* 'PUBLIC' S PubidLiteral S SystemLiteral
3867	*
3868	* [75] ExternalID ::= 'SYSTEM' S SystemLiteral
3869	* \| 'PUBLIC' S PubidLiteral S SystemLiteral
3870	*
3871	* [83] PublicID ::= 'PUBLIC' S PubidLiteral
3872	*
3873	* Returns the function returns SystemLiteral and in the second
3874	* case publicID receives PubidLiteral, is strict is off
3875	* it is possible to return NULL and have publicID set.
3876	*/
3877
3878	xmlChar *
3879	xmlParseExternalID(xmlParserCtxtPtr ctxt, xmlChar **publicID, int strict) {
3880	xmlChar *URI = NULL;
3881
3882	SHRINK;
3883
3884	*publicID = NULL;
3885	if (CMP6(CUR_PTR, 'S', 'Y', 'S', 'T', 'E', 'M')) {
3886	SKIP(6);
3887	if (!IS_BLANK_CH(CUR)) {
3888	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
3889	"Space required after 'SYSTEM'\n");
3890	}
3891	SKIP_BLANKS;
3892	URI = xmlParseSystemLiteral(ctxt);
3893	if (URI == NULL) {
3894	xmlFatalErr(ctxt, XML_ERR_URI_REQUIRED, NULL);
3895	}
3896	} else if (CMP6(CUR_PTR, 'P', 'U', 'B', 'L', 'I', 'C')) {
3897	SKIP(6);
3898	if (!IS_BLANK_CH(CUR)) {
3899	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
3900	"Space required after 'PUBLIC'\n");
3901	}
3902	SKIP_BLANKS;
3903	*publicID = xmlParsePubidLiteral(ctxt);
3904	if (*publicID == NULL) {
3905	xmlFatalErr(ctxt, XML_ERR_PUBID_REQUIRED, NULL);
3906	}
3907	if (strict) {
3908	/*
3909	* We don't handle [83] so "S SystemLiteral" is required.
3910	*/
3911	if (!IS_BLANK_CH(CUR)) {
3912	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
3913	"Space required after the Public Identifier\n");
3914	}
3915	} else {
3916	/*
3917	* We handle [83] so we return immediately, if
3918	* "S SystemLiteral" is not detected. From a purely parsing
3919	* point of view that's a nice mess.
3920	*/
3921	const xmlChar *ptr;
3922	GROW;
3923
3924	ptr = CUR_PTR;
3925	if (!IS_BLANK_CH(*ptr)) return(NULL);
3926
3927	while (IS_BLANK_CH(ptr)) ptr++; / TODO: dangerous, fix ! */
3928	if ((ptr != '\'') && (ptr != '"')) return(NULL);
3929	}
3930	SKIP_BLANKS;
3931	URI = xmlParseSystemLiteral(ctxt);
3932	if (URI == NULL) {
3933	xmlFatalErr(ctxt, XML_ERR_URI_REQUIRED, NULL);
3934	}
3935	}
3936	return(URI);
3937	}
3938
3939	/**
3940	* xmlParseCommentComplex:
3941	* @ctxt: an XML parser context
3942	* @buf: the already parsed part of the buffer
3943	* @len: number of bytes filles in the buffer
3944	* @size: allocated size of the buffer
3945	*
3946	* Skip an XML (SGML) comment <!-- .... -->
3947	* The spec says that "For compatibility, the string "--" (double-hyphen)
3948	* must not occur within comments. "
3949	* This is the slow routine in case the accelerator for ascii didn't work
3950	*
3951	* [15] Comment ::= '<!--' ((Char - '-') \| ('-' (Char - '-')))* '-->'
3952	*/
3953	static void
3954	xmlParseCommentComplex(xmlParserCtxtPtr ctxt, xmlChar *buf, int len, int size) {
3955	int q, ql;
3956	int r, rl;
3957	int cur, l;
3958	xmlParserInputPtr input = ctxt->input;
3959	int count = 0;
3960
3961	if (buf == NULL) {
3962	len = 0;
3963	size = XML_PARSER_BUFFER_SIZE;
3964	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
3965	if (buf == NULL) {
3966	xmlErrMemory(ctxt, NULL);
3967	return;
3968	}
3969	}
3970	GROW; /* Assure there's enough input data */
3971	q = CUR_CHAR(ql);
3972	if (q == 0)
3973	goto not_terminated;
3974	if (!IS_CHAR(q)) {
3975	xmlFatalErrMsgInt(ctxt, XML_ERR_INVALID_CHAR,
3976	"xmlParseComment: invalid xmlChar value %d\n",
3977	q);
3978	xmlFree (buf);
3979	return;
3980	}
3981	NEXTL(ql);
3982	r = CUR_CHAR(rl);
3983	if (r == 0)
3984	goto not_terminated;
3985	if (!IS_CHAR(r)) {
3986	xmlFatalErrMsgInt(ctxt, XML_ERR_INVALID_CHAR,
3987	"xmlParseComment: invalid xmlChar value %d\n",
3988	q);
3989	xmlFree (buf);
3990	return;
3991	}
3992	NEXTL(rl);
3993	cur = CUR_CHAR(l);
3994	if (cur == 0)
3995	goto not_terminated;
3996	while (IS_CHAR(cur) && /* checked */
3997	((cur != '>') \|\|
3998	(r != '-') \|\| (q != '-'))) {
3999	if ((r == '-') && (q == '-')) {
4000	xmlFatalErr(ctxt, XML_ERR_HYPHEN_IN_COMMENT, NULL);
4001	}
4002	if (len + 5 >= size) {
4003	xmlChar *new_buf;
4004	size *= 2;
4005	new_buf = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
4006	if (new_buf == NULL) {
4007	xmlFree (buf);
4008	xmlErrMemory(ctxt, NULL);
4009	return;
4010	}
4011	buf = new_buf;
4012	}
4013	COPY_BUF(ql,buf,len,q);
4014	q = r;
4015	ql = rl;
4016	r = cur;
4017	rl = l;
4018
4019	count++;
4020	if (count > 50) {
4021	GROW;
4022	count = 0;
4023	}
4024	NEXTL(l);
4025	cur = CUR_CHAR(l);
4026	if (cur == 0) {
4027	SHRINK;
4028	GROW;
4029	cur = CUR_CHAR(l);
4030	}
4031	}
4032	buf[len] = 0;
4033	if (cur == 0) {
4034	xmlFatalErrMsgStr(ctxt, XML_ERR_COMMENT_NOT_FINISHED,
4035	"Comment not terminated \n<!--%.50s\n", buf);
4036	} else if (!IS_CHAR(cur)) {
4037	xmlFatalErrMsgInt(ctxt, XML_ERR_INVALID_CHAR,
4038	"xmlParseComment: invalid xmlChar value %d\n",
4039	cur);
4040	} else {
4041	if (input != ctxt->input) {
4042	xmlFatalErrMsg(ctxt, XML_ERR_ENTITY_BOUNDARY,
4043	"Comment doesn't start and stop in the same entity\n");
4044	}
4045	NEXT;
4046	if ((ctxt->sax != NULL) && (ctxt->sax->comment != NULL) &&
4047	(!ctxt->disableSAX))
4048	ctxt->sax->comment(ctxt->userData, buf);
4049	}
4050	xmlFree(buf);
4051	return;
4052	not_terminated:
4053	xmlFatalErrMsgStr(ctxt, XML_ERR_COMMENT_NOT_FINISHED,
4054	"Comment not terminated\n", NULL);
4055	xmlFree(buf);
4056	return;
4057	}
4058
4059	/**
4060	* xmlParseComment:
4061	* @ctxt: an XML parser context
4062	*
4063	* Skip an XML (SGML) comment <!-- .... -->
4064	* The spec says that "For compatibility, the string "--" (double-hyphen)
4065	* must not occur within comments. "
4066	*
4067	* [15] Comment ::= '<!--' ((Char - '-') \| ('-' (Char - '-')))* '-->'
4068	*/
4069	void
4070	xmlParseComment(xmlParserCtxtPtr ctxt) {
4071	xmlChar *buf = NULL;
4072	int size = XML_PARSER_BUFFER_SIZE;
4073	int len = 0;
4074	xmlParserInputState state;
4075	const xmlChar *in;
4076	int nbchar = 0, ccol;
4077
4078	/*
4079	* Check that there is a comment right here.
4080	*/
4081	if ((RAW != '<') \|\| (NXT(1) != '!') \|\|
4082	(NXT(2) != '-') \|\| (NXT(3) != '-')) return;
4083
4084	state = ctxt->instate;
4085	ctxt->instate = XML_PARSER_COMMENT;
4086	SKIP(4);
4087	SHRINK;
4088	GROW;
4089
4090	/*
4091	* Accelerated common case where input don't need to be
4092	* modified before passing it to the handler.
4093	*/
4094	in = ctxt->input->cur;
4095	do {
4096	if (*in == 0xA) {
4097	do {
4098	ctxt->input->line++; ctxt->input->col = 1;
4099	in++;
4100	} while (*in == 0xA);
4101	}
4102	get_more:
4103	ccol = ctxt->input->col;
4104	while (((in > '-') && (in <= 0x7F)) \|\|
4105	((in >= 0x20) && (in < '-')) \|\|
4106	(*in == 0x09)) {
4107	in++;
4108	ccol++;
4109	}
4110	ctxt->input->col = ccol;
4111	if (*in == 0xA) {
4112	do {
4113	ctxt->input->line++; ctxt->input->col = 1;
4114	in++;
4115	} while (*in == 0xA);
4116	goto get_more;
4117	}
4118	nbchar = in - ctxt->input->cur;
4119	/*
4120	* save current set of data
4121	*/
4122	if (nbchar > 0) {
4123	if ((ctxt->sax != NULL) &&
4124	(ctxt->sax->comment != NULL)) {
4125	if (buf == NULL) {
4126	if ((*in == '-') && (in[1] == '-'))
4127	size = nbchar + 1;
4128	else
4129	size = XML_PARSER_BUFFER_SIZE + nbchar;
4130	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
4131	if (buf == NULL) {
4132	xmlErrMemory(ctxt, NULL);
4133	ctxt->instate = state;
4134	return;
4135	}
4136	len = 0;
4137	} else if (len + nbchar + 1 >= size) {
4138	xmlChar *new_buf;
4139	size += len + nbchar + XML_PARSER_BUFFER_SIZE;
4140	new_buf = (xmlChar *) xmlRealloc(buf,
4141	size * sizeof(xmlChar));
4142	if (new_buf == NULL) {
4143	xmlFree (buf);
4144	xmlErrMemory(ctxt, NULL);
4145	ctxt->instate = state;
4146	return;
4147	}
4148	buf = new_buf;
4149	}
4150	memcpy(&buf[len], ctxt->input->cur, nbchar);
4151	len += nbchar;
4152	buf[len] = 0;
4153	}
4154	}
4155	ctxt->input->cur = in;
4156	if (*in == 0xA) {
4157	in++;
4158	ctxt->input->line++; ctxt->input->col = 1;
4159	}
4160	if (*in == 0xD) {
4161	in++;
4162	if (*in == 0xA) {
4163	ctxt->input->cur = in;
4164	in++;
4165	ctxt->input->line++; ctxt->input->col = 1;
4166	continue; /* while */
4167	}
4168	in--;
4169	}
4170	SHRINK;
4171	GROW;
4172	in = ctxt->input->cur;
4173	if (*in == '-') {
4174	if (in[1] == '-') {
4175	if (in[2] == '>') {
4176	SKIP(3);
4177	if ((ctxt->sax != NULL) && (ctxt->sax->comment != NULL) &&
4178	(!ctxt->disableSAX)) {
4179	if (buf != NULL)
4180	ctxt->sax->comment(ctxt->userData, buf);
4181	else
4182	ctxt->sax->comment(ctxt->userData, BAD_CAST "");
4183	}
4184	if (buf != NULL)
4185	xmlFree(buf);
4186	ctxt->instate = state;
4187	return;
4188	}
4189	if (buf != NULL)
4190	xmlFatalErrMsgStr(ctxt, XML_ERR_COMMENT_NOT_FINISHED,
4191	"Comment not terminated \n<!--%.50s\n",
4192	buf);
4193	else
4194	xmlFatalErrMsgStr(ctxt, XML_ERR_COMMENT_NOT_FINISHED,
4195	"Comment not terminated \n", NULL);
4196	in++;
4197	ctxt->input->col++;
4198	}
4199	in++;
4200	ctxt->input->col++;
4201	goto get_more;
4202	}
4203	} while (((in >= 0x20) && (in <= 0x7F)) \|\| (*in == 0x09));
4204	xmlParseCommentComplex(ctxt, buf, len, size);
4205	ctxt->instate = state;
4206	return;
4207	}
4208
4209
4210	/**
4211	* xmlParsePITarget:
4212	* @ctxt: an XML parser context
4213	*
4214	* parse the name of a PI
4215	*
4216	* [17] PITarget ::= Name - (('X' \| 'x') ('M' \| 'm') ('L' \| 'l'))
4217	*
4218	* Returns the PITarget name or NULL
4219	*/
4220
4221	const xmlChar *
4222	xmlParsePITarget(xmlParserCtxtPtr ctxt) {
4223	const xmlChar *name;
4224
4225	name = xmlParseName(ctxt);
4226	if ((name != NULL) &&
4227	((name[0] == 'x') \|\| (name[0] == 'X')) &&
4228	((name[1] == 'm') \|\| (name[1] == 'M')) &&
4229	((name[2] == 'l') \|\| (name[2] == 'L'))) {
4230	int i;
4231	if ((name[0] == 'x') && (name[1] == 'm') &&
4232	(name[2] == 'l') && (name[3] == 0)) {
4233	xmlFatalErrMsg(ctxt, XML_ERR_RESERVED_XML_NAME,
4234	"XML declaration allowed only at the start of the document\n");
4235	return(name);
4236	} else if (name[3] == 0) {
4237	xmlFatalErr(ctxt, XML_ERR_RESERVED_XML_NAME, NULL);
4238	return(name);
4239	}
4240	for (i = 0;;i++) {
4241	if (xmlW3CPIs[i] == NULL) break;
4242	if (xmlStrEqual(name, (const xmlChar *)xmlW3CPIs[i]))
4243	return(name);
4244	}
4245	xmlWarningMsg(ctxt, XML_ERR_RESERVED_XML_NAME,
4246	"xmlParsePITarget: invalid name prefix 'xml'\n",
4247	NULL, NULL);
4248	}
4249	return(name);
4250	}
4251
4252	#ifdef LIBXML_CATALOG_ENABLED
4253	/**
4254	* xmlParseCatalogPI:
4255	* @ctxt: an XML parser context
4256	* @catalog: the PI value string
4257	*
4258	* parse an XML Catalog Processing Instruction.
4259	*
4260	* <?oasis-xml-catalog catalog="http://example.com/catalog.xml"?>
4261	*
4262	* Occurs only if allowed by the user and if happening in the Misc
4263	* part of the document before any doctype informations
4264	* This will add the given catalog to the parsing context in order
4265	* to be used if there is a resolution need further down in the document
4266	*/
4267
4268	static void
4269	xmlParseCatalogPI(xmlParserCtxtPtr ctxt, const xmlChar *catalog) {
4270	xmlChar *URL = NULL;
4271	const xmlChar tmp, base;
4272	xmlChar marker;
4273
4274	tmp = catalog;
4275	while (IS_BLANK_CH(*tmp)) tmp++;
4276	if (xmlStrncmp(tmp, BAD_CAST"catalog", 7))
4277	goto error;
4278	tmp += 7;
4279	while (IS_BLANK_CH(*tmp)) tmp++;
4280	if (*tmp != '=') {
4281	return;
4282	}
4283	tmp++;
4284	while (IS_BLANK_CH(*tmp)) tmp++;
4285	marker = *tmp;
4286	if ((marker != '\'') && (marker != '"'))
4287	goto error;
4288	tmp++;
4289	base = tmp;
4290	while ((tmp != 0) && (tmp != marker)) tmp++;
4291	if (*tmp == 0)
4292	goto error;
4293	URL = xmlStrndup(base, tmp - base);
4294	tmp++;
4295	while (IS_BLANK_CH(*tmp)) tmp++;
4296	if (*tmp != 0)
4297	goto error;
4298
4299	if (URL != NULL) {
4300	ctxt->catalogs = xmlCatalogAddLocal(ctxt->catalogs, URL);
4301	xmlFree(URL);
4302	}
4303	return;
4304
4305	error:
4306	xmlWarningMsg(ctxt, XML_WAR_CATALOG_PI,
4307	"Catalog PI syntax error: %s\n",
4308	catalog, NULL);
4309	if (URL != NULL)
4310	xmlFree(URL);
4311	}
4312	#endif
4313
4314	/**
4315	* xmlParsePI:
4316	* @ctxt: an XML parser context
4317	*
4318	* parse an XML Processing Instruction.
4319	*
4320	* [16] PI ::= '<?' PITarget (S (Char* - (Char* '?>' Char*)))? '?>'
4321	*
4322	* The processing is transfered to SAX once parsed.
4323	*/
4324
4325	void
4326	xmlParsePI(xmlParserCtxtPtr ctxt) {
4327	xmlChar *buf = NULL;
4328	int len = 0;
4329	int size = XML_PARSER_BUFFER_SIZE;
4330	int cur, l;
4331	const xmlChar *target;
4332	xmlParserInputState state;
4333	int count = 0;
4334
4335	if ((RAW == '<') && (NXT(1) == '?')) {
4336	xmlParserInputPtr input = ctxt->input;
4337	state = ctxt->instate;
4338	ctxt->instate = XML_PARSER_PI;
4339	/*
4340	* this is a Processing Instruction.
4341	*/
4342	SKIP(2);
4343	SHRINK;
4344
4345	/*
4346	* Parse the target name and check for special support like
4347	* namespace.
4348	*/
4349	target = xmlParsePITarget(ctxt);
4350	if (target != NULL) {
4351	if ((RAW == '?') && (NXT(1) == '>')) {
4352	if (input != ctxt->input) {
4353	xmlFatalErrMsg(ctxt, XML_ERR_ENTITY_BOUNDARY,
4354	"PI declaration doesn't start and stop in the same entity\n");
4355	}
4356	SKIP(2);
4357
4358	/*
4359	* SAX: PI detected.
4360	*/
4361	if ((ctxt->sax) && (!ctxt->disableSAX) &&
4362	(ctxt->sax->processingInstruction != NULL))
4363	ctxt->sax->processingInstruction(ctxt->userData,
4364	target, NULL);
4365	if (ctxt->instate != XML_PARSER_EOF)
4366	ctxt->instate = state;
4367	return;
4368	}
4369	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
4370	if (buf == NULL) {
4371	xmlErrMemory(ctxt, NULL);
4372	ctxt->instate = state;
4373	return;
4374	}
4375	cur = CUR;
4376	if (!IS_BLANK(cur)) {
4377	xmlFatalErrMsgStr(ctxt, XML_ERR_SPACE_REQUIRED,
4378	"ParsePI: PI %s space expected\n", target);
4379	}
4380	SKIP_BLANKS;
4381	cur = CUR_CHAR(l);
4382	while (IS_CHAR(cur) && /* checked */
4383	((cur != '?') \|\| (NXT(1) != '>'))) {
4384	if (len + 5 >= size) {
4385	xmlChar *tmp;
4386
4387	size *= 2;
4388	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
4389	if (tmp == NULL) {
4390	xmlErrMemory(ctxt, NULL);
4391	xmlFree(buf);
4392	ctxt->instate = state;
4393	return;
4394	}
4395	buf = tmp;
4396	}
4397	count++;
4398	if (count > 50) {
4399	GROW;
4400	count = 0;
4401	}
4402	COPY_BUF(l,buf,len,cur);
4403	NEXTL(l);
4404	cur = CUR_CHAR(l);
4405	if (cur == 0) {
4406	SHRINK;
4407	GROW;
4408	cur = CUR_CHAR(l);
4409	}
4410	}
4411	buf[len] = 0;
4412	if (cur != '?') {
4413	xmlFatalErrMsgStr(ctxt, XML_ERR_PI_NOT_FINISHED,
4414	"ParsePI: PI %s never end ...\n", target);
4415	} else {
4416	if (input != ctxt->input) {
4417	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4418	"PI declaration doesn't start and stop in the same entity\n");
4419	}
4420	SKIP(2);
4421
4422	#ifdef LIBXML_CATALOG_ENABLED
4423	if (((state == XML_PARSER_MISC) \|\|
4424	(state == XML_PARSER_START)) &&
4425	(xmlStrEqual(target, XML_CATALOG_PI))) {
4426	xmlCatalogAllow allow = xmlCatalogGetDefaults();
4427	if ((allow == XML_CATA_ALLOW_DOCUMENT) \|\|
4428	(allow == XML_CATA_ALLOW_ALL))
4429	xmlParseCatalogPI(ctxt, buf);
4430	}
4431	#endif
4432
4433
4434	/*
4435	* SAX: PI detected.
4436	*/
4437	if ((ctxt->sax) && (!ctxt->disableSAX) &&
4438	(ctxt->sax->processingInstruction != NULL))
4439	ctxt->sax->processingInstruction(ctxt->userData,
4440	target, buf);
4441	}
4442	xmlFree(buf);
4443	} else {
4444	xmlFatalErr(ctxt, XML_ERR_PI_NOT_STARTED, NULL);
4445	}
4446	if (ctxt->instate != XML_PARSER_EOF)
4447	ctxt->instate = state;
4448	}
4449	}
4450
4451	/**
4452	* xmlParseNotationDecl:
4453	* @ctxt: an XML parser context
4454	*
4455	* parse a notation declaration
4456	*
4457	* [82] NotationDecl ::= '<!NOTATION' S Name S (ExternalID \| PublicID) S? '>'
4458	*
4459	* Hence there is actually 3 choices:
4460	* 'PUBLIC' S PubidLiteral
4461	* 'PUBLIC' S PubidLiteral S SystemLiteral
4462	* and 'SYSTEM' S SystemLiteral
4463	*
4464	* See the NOTE on xmlParseExternalID().
4465	*/
4466
4467	void
4468	xmlParseNotationDecl(xmlParserCtxtPtr ctxt) {
4469	const xmlChar *name;
4470	xmlChar *Pubid;
4471	xmlChar *Systemid;
4472
4473	if (CMP10(CUR_PTR, '<', '!', 'N', 'O', 'T', 'A', 'T', 'I', 'O', 'N')) {
4474	xmlParserInputPtr input = ctxt->input;
4475	SHRINK;
4476	SKIP(10);
4477	if (!IS_BLANK_CH(CUR)) {
4478	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4479	"Space required after '<!NOTATION'\n");
4480	return;
4481	}
4482	SKIP_BLANKS;
4483
4484	name = xmlParseName(ctxt);
4485	if (name == NULL) {
4486	xmlFatalErr(ctxt, XML_ERR_NOTATION_NOT_STARTED, NULL);
4487	return;
4488	}
4489	if (!IS_BLANK_CH(CUR)) {
4490	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4491	"Space required after the NOTATION name'\n");
4492	return;
4493	}
4494	SKIP_BLANKS;
4495
4496	/*
4497	* Parse the IDs.
4498	*/
4499	Systemid = xmlParseExternalID(ctxt, &Pubid, 0);
4500	SKIP_BLANKS;
4501
4502	if (RAW == '>') {
4503	if (input != ctxt->input) {
4504	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4505	"Notation declaration doesn't start and stop in the same entity\n");
4506	}
4507	NEXT;
4508	if ((ctxt->sax != NULL) && (!ctxt->disableSAX) &&
4509	(ctxt->sax->notationDecl != NULL))
4510	ctxt->sax->notationDecl(ctxt->userData, name, Pubid, Systemid);
4511	} else {
4512	xmlFatalErr(ctxt, XML_ERR_NOTATION_NOT_FINISHED, NULL);
4513	}
4514	if (Systemid != NULL) xmlFree(Systemid);
4515	if (Pubid != NULL) xmlFree(Pubid);
4516	}
4517	}
4518
4519	/**
4520	* xmlParseEntityDecl:
4521	* @ctxt: an XML parser context
4522	*
4523	* parse <!ENTITY declarations
4524	*
4525	* [70] EntityDecl ::= GEDecl \| PEDecl
4526	*
4527	* [71] GEDecl ::= '<!ENTITY' S Name S EntityDef S? '>'
4528	*
4529	* [72] PEDecl ::= '<!ENTITY' S '%' S Name S PEDef S? '>'
4530	*
4531	* [73] EntityDef ::= EntityValue \| (ExternalID NDataDecl?)
4532	*
4533	* [74] PEDef ::= EntityValue \| ExternalID
4534	*
4535	* [76] NDataDecl ::= S 'NDATA' S Name
4536	*
4537	* [ VC: Notation Declared ]
4538	* The Name must match the declared name of a notation.
4539	*/
4540
4541	void
4542	xmlParseEntityDecl(xmlParserCtxtPtr ctxt) {
4543	const xmlChar *name = NULL;
4544	xmlChar *value = NULL;
4545	xmlChar URI = NULL, literal = NULL;
4546	const xmlChar *ndata = NULL;
4547	int isParameter = 0;
4548	xmlChar *orig = NULL;
4549	int skipped;
4550	unsigned long oldnbent = ctxt->nbentities;
4551
4552	/* GROW; done in the caller */
4553	if (CMP8(CUR_PTR, '<', '!', 'E', 'N', 'T', 'I', 'T', 'Y')) {
4554	xmlParserInputPtr input = ctxt->input;
4555	SHRINK;
4556	SKIP(8);
4557	skipped = SKIP_BLANKS;
4558	if (skipped == 0) {
4559	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4560	"Space required after '<!ENTITY'\n");
4561	}
4562
4563	if (RAW == '%') {
4564	NEXT;
4565	skipped = SKIP_BLANKS;
4566	if (skipped == 0) {
4567	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4568	"Space required after '%'\n");
4569	}
4570	isParameter = 1;
4571	}
4572
4573	name = xmlParseName(ctxt);
4574	if (name == NULL) {
4575	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
4576	"xmlParseEntityDecl: no name\n");
4577	return;
4578	}
4579	skipped = SKIP_BLANKS;
4580	if (skipped == 0) {
4581	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4582	"Space required after the entity name\n");
4583	}
4584
4585	ctxt->instate = XML_PARSER_ENTITY_DECL;
4586	/*
4587	* handle the various case of definitions...
4588	*/
4589	if (isParameter) {
4590	if ((RAW == '"') \|\| (RAW == '\'')) {
4591	value = xmlParseEntityValue(ctxt, &orig);
4592	if (value) {
4593	if ((ctxt->sax != NULL) &&
4594	(!ctxt->disableSAX) && (ctxt->sax->entityDecl != NULL))
4595	ctxt->sax->entityDecl(ctxt->userData, name,
4596	XML_INTERNAL_PARAMETER_ENTITY,
4597	NULL, NULL, value);
4598	}
4599	} else {
4600	URI = xmlParseExternalID(ctxt, &literal, 1);
4601	if ((URI == NULL) && (literal == NULL)) {
4602	xmlFatalErr(ctxt, XML_ERR_VALUE_REQUIRED, NULL);
4603	}
4604	if (URI) {
4605	xmlURIPtr uri;
4606
4607	uri = xmlParseURI((const char *) URI);
4608	if (uri == NULL) {
4609	xmlErrMsgStr(ctxt, XML_ERR_INVALID_URI,
4610	"Invalid URI: %s\n", URI);
4611	/*
4612	* This really ought to be a well formedness error
4613	* but the XML Core WG decided otherwise c.f. issue
4614	* E26 of the XML erratas.
4615	*/
4616	} else {
4617	if (uri->fragment != NULL) {
4618	/*
4619	* Okay this is foolish to block those but not
4620	* invalid URIs.
4621	*/
4622	xmlFatalErr(ctxt, XML_ERR_URI_FRAGMENT, NULL);
4623	} else {
4624	if ((ctxt->sax != NULL) &&
4625	(!ctxt->disableSAX) &&
4626	(ctxt->sax->entityDecl != NULL))
4627	ctxt->sax->entityDecl(ctxt->userData, name,
4628	XML_EXTERNAL_PARAMETER_ENTITY,
4629	literal, URI, NULL);
4630	}
4631	xmlFreeURI(uri);
4632	}
4633	}
4634	}
4635	} else {
4636	if ((RAW == '"') \|\| (RAW == '\'')) {
4637	value = xmlParseEntityValue(ctxt, &orig);
4638	if ((ctxt->sax != NULL) &&
4639	(!ctxt->disableSAX) && (ctxt->sax->entityDecl != NULL))
4640	ctxt->sax->entityDecl(ctxt->userData, name,
4641	XML_INTERNAL_GENERAL_ENTITY,
4642	NULL, NULL, value);
4643	/*
4644	* For expat compatibility in SAX mode.
4645	*/
4646	if ((ctxt->myDoc == NULL) \|\|
4647	(xmlStrEqual(ctxt->myDoc->version, SAX_COMPAT_MODE))) {
4648	if (ctxt->myDoc == NULL) {
4649	ctxt->myDoc = xmlNewDoc(SAX_COMPAT_MODE);
4650	}
4651	if (ctxt->myDoc->intSubset == NULL)
4652	ctxt->myDoc->intSubset = xmlNewDtd(ctxt->myDoc,
4653	BAD_CAST "fake", NULL, NULL);
4654
4655	xmlSAX2EntityDecl(ctxt, name, XML_INTERNAL_GENERAL_ENTITY,
4656	NULL, NULL, value);
4657	}
4658	} else {
4659	URI = xmlParseExternalID(ctxt, &literal, 1);
4660	if ((URI == NULL) && (literal == NULL)) {
4661	xmlFatalErr(ctxt, XML_ERR_VALUE_REQUIRED, NULL);
4662	}
4663	if (URI) {
4664	xmlURIPtr uri;
4665
4666	uri = xmlParseURI((const char *)URI);
4667	if (uri == NULL) {
4668	xmlErrMsgStr(ctxt, XML_ERR_INVALID_URI,
4669	"Invalid URI: %s\n", URI);
4670	/*
4671	* This really ought to be a well formedness error
4672	* but the XML Core WG decided otherwise c.f. issue
4673	* E26 of the XML erratas.
4674	*/
4675	} else {
4676	if (uri->fragment != NULL) {
4677	/*
4678	* Okay this is foolish to block those but not
4679	* invalid URIs.
4680	*/
4681	xmlFatalErr(ctxt, XML_ERR_URI_FRAGMENT, NULL);
4682	}
4683	xmlFreeURI(uri);
4684	}
4685	}
4686	if ((RAW != '>') && (!IS_BLANK_CH(CUR))) {
4687	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4688	"Space required before 'NDATA'\n");
4689	}
4690	SKIP_BLANKS;
4691	if (CMP5(CUR_PTR, 'N', 'D', 'A', 'T', 'A')) {
4692	SKIP(5);
4693	if (!IS_BLANK_CH(CUR)) {
4694	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4695	"Space required after 'NDATA'\n");
4696	}
4697	SKIP_BLANKS;
4698	ndata = xmlParseName(ctxt);
4699	if ((ctxt->sax != NULL) && (!ctxt->disableSAX) &&
4700	(ctxt->sax->unparsedEntityDecl != NULL))
4701	ctxt->sax->unparsedEntityDecl(ctxt->userData, name,
4702	literal, URI, ndata);
4703	} else {
4704	if ((ctxt->sax != NULL) &&
4705	(!ctxt->disableSAX) && (ctxt->sax->entityDecl != NULL))
4706	ctxt->sax->entityDecl(ctxt->userData, name,
4707	XML_EXTERNAL_GENERAL_PARSED_ENTITY,
4708	literal, URI, NULL);
4709	/*
4710	* For expat compatibility in SAX mode.
4711	* assuming the entity repalcement was asked for
4712	*/
4713	if ((ctxt->replaceEntities != 0) &&
4714	((ctxt->myDoc == NULL) \|\|
4715	(xmlStrEqual(ctxt->myDoc->version, SAX_COMPAT_MODE)))) {
4716	if (ctxt->myDoc == NULL) {
4717	ctxt->myDoc = xmlNewDoc(SAX_COMPAT_MODE);
4718	}
4719
4720	if (ctxt->myDoc->intSubset == NULL)
4721	ctxt->myDoc->intSubset = xmlNewDtd(ctxt->myDoc,
4722	BAD_CAST "fake", NULL, NULL);
4723	xmlSAX2EntityDecl(ctxt, name,
4724	XML_EXTERNAL_GENERAL_PARSED_ENTITY,
4725	literal, URI, NULL);
4726	}
4727	}
4728	}
4729	}
4730	SKIP_BLANKS;
4731	if (RAW != '>') {
4732	xmlFatalErrMsgStr(ctxt, XML_ERR_ENTITY_NOT_FINISHED,
4733	"xmlParseEntityDecl: entity %s not terminated\n", name);
4734	} else {
4735	if (input != ctxt->input) {
4736	xmlFatalErrMsg(ctxt, XML_ERR_ENTITY_BOUNDARY,
4737	"Entity declaration doesn't start and stop in the same entity\n");
4738	}
4739	NEXT;
4740	}
4741	if (orig != NULL) {
4742	/*
4743	* Ugly mechanism to save the raw entity value.
4744	*/
4745	xmlEntityPtr cur = NULL;
4746
4747	if (isParameter) {
4748	if ((ctxt->sax != NULL) &&
4749	(ctxt->sax->getParameterEntity != NULL))
4750	cur = ctxt->sax->getParameterEntity(ctxt->userData, name);
4751	} else {
4752	if ((ctxt->sax != NULL) &&
4753	(ctxt->sax->getEntity != NULL))
4754	cur = ctxt->sax->getEntity(ctxt->userData, name);
4755	if ((cur == NULL) && (ctxt->userData==ctxt)) {
4756	cur = xmlSAX2GetEntity(ctxt, name);
4757	}
4758	}
4759	if (cur != NULL) {
4760	if ((cur->owner != 0) \|\| (cur->children == NULL)) {
4761	cur->owner = ctxt->nbentities - oldnbent;
4762	if (cur->owner == 0)
4763	cur->owner = 1;
4764	}
4765	if (cur->orig != NULL)
4766	xmlFree(orig);
4767	else
4768	cur->orig = orig;
4769	} else
4770	xmlFree(orig);
4771	}
4772	if (value != NULL) xmlFree(value);
4773	if (URI != NULL) xmlFree(URI);
4774	if (literal != NULL) xmlFree(literal);
4775	}
4776	}
4777
4778	/**
4779	* xmlParseDefaultDecl:
4780	* @ctxt: an XML parser context
4781	* @value: Receive a possible fixed default value for the attribute
4782	*
4783	* Parse an attribute default declaration
4784	*
4785	* [60] DefaultDecl ::= '#REQUIRED' \| '#IMPLIED' \| (('#FIXED' S)? AttValue)
4786	*
4787	* [ VC: Required Attribute ]
4788	* if the default declaration is the keyword #REQUIRED, then the
4789	* attribute must be specified for all elements of the type in the
4790	* attribute-list declaration.
4791	*
4792	* [ VC: Attribute Default Legal ]
4793	* The declared default value must meet the lexical constraints of
4794	* the declared attribute type c.f. xmlValidateAttributeDecl()
4795	*
4796	* [ VC: Fixed Attribute Default ]
4797	* if an attribute has a default value declared with the #FIXED
4798	* keyword, instances of that attribute must match the default value.
4799	*
4800	* [ WFC: No < in Attribute Values ]
4801	* handled in xmlParseAttValue()
4802	*
4803	* returns: XML_ATTRIBUTE_NONE, XML_ATTRIBUTE_REQUIRED, XML_ATTRIBUTE_IMPLIED
4804	* or XML_ATTRIBUTE_FIXED.
4805	*/
4806
4807	int
4808	xmlParseDefaultDecl(xmlParserCtxtPtr ctxt, xmlChar **value) {
4809	int val;
4810	xmlChar *ret;
4811
4812	*value = NULL;
4813	if (CMP9(CUR_PTR, '#', 'R', 'E', 'Q', 'U', 'I', 'R', 'E', 'D')) {
4814	SKIP(9);
4815	return(XML_ATTRIBUTE_REQUIRED);
4816	}
4817	if (CMP8(CUR_PTR, '#', 'I', 'M', 'P', 'L', 'I', 'E', 'D')) {
4818	SKIP(8);
4819	return(XML_ATTRIBUTE_IMPLIED);
4820	}
4821	val = XML_ATTRIBUTE_NONE;
4822	if (CMP6(CUR_PTR, '#', 'F', 'I', 'X', 'E', 'D')) {
4823	SKIP(6);
4824	val = XML_ATTRIBUTE_FIXED;
4825	if (!IS_BLANK_CH(CUR)) {
4826	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4827	"Space required after '#FIXED'\n");
4828	}
4829	SKIP_BLANKS;
4830	}
4831	ret = xmlParseAttValue(ctxt);
4832	ctxt->instate = XML_PARSER_DTD;
4833	if (ret == NULL) {
4834	xmlFatalErrMsg(ctxt, (xmlParserErrors)ctxt->errNo,
4835	"Attribute default value declaration error\n");
4836	} else
4837	*value = ret;
4838	return(val);
4839	}
4840
4841	/**
4842	* xmlParseNotationType:
4843	* @ctxt: an XML parser context
4844	*
4845	* parse an Notation attribute type.
4846	*
4847	* Note: the leading 'NOTATION' S part has already being parsed...
4848	*
4849	* [58] NotationType ::= 'NOTATION' S '(' S? Name (S? '\|' S? Name)* S? ')'
4850	*
4851	* [ VC: Notation Attributes ]
4852	* Values of this type must match one of the notation names included
4853	* in the declaration; all notation names in the declaration must be declared.
4854	*
4855	* Returns: the notation attribute tree built while parsing
4856	*/
4857
4858	xmlEnumerationPtr
4859	xmlParseNotationType(xmlParserCtxtPtr ctxt) {
4860	const xmlChar *name;
4861	xmlEnumerationPtr ret = NULL, last = NULL, cur;
4862
4863	if (RAW != '(') {
4864	xmlFatalErr(ctxt, XML_ERR_NOTATION_NOT_STARTED, NULL);
4865	return(NULL);
4866	}
4867	SHRINK;
4868	do {
4869	NEXT;
4870	SKIP_BLANKS;
4871	name = xmlParseName(ctxt);
4872	if (name == NULL) {
4873	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
4874	"Name expected in NOTATION declaration\n");
4875	xmlFreeEnumeration(ret);
4876	return(NULL);
4877	}
4878	cur = xmlCreateEnumeration(name);
4879	if (cur == NULL) {
4880	xmlFreeEnumeration(ret);
4881	return(NULL);
4882	}
4883	if (last == NULL) ret = last = cur;
4884	else {
4885	last->next = cur;
4886	last = cur;
4887	}
4888	SKIP_BLANKS;
4889	} while (RAW == '\|');
4890	if (RAW != ')') {
4891	xmlFatalErr(ctxt, XML_ERR_NOTATION_NOT_FINISHED, NULL);
4892	xmlFreeEnumeration(ret);
4893	return(NULL);
4894	}
4895	NEXT;
4896	return(ret);
4897	}
4898
4899	/**
4900	* xmlParseEnumerationType:
4901	* @ctxt: an XML parser context
4902	*
4903	* parse an Enumeration attribute type.
4904	*
4905	* [59] Enumeration ::= '(' S? Nmtoken (S? '\|' S? Nmtoken)* S? ')'
4906	*
4907	* [ VC: Enumeration ]
4908	* Values of this type must match one of the Nmtoken tokens in
4909	* the declaration
4910	*
4911	* Returns: the enumeration attribute tree built while parsing
4912	*/
4913
4914	xmlEnumerationPtr
4915	xmlParseEnumerationType(xmlParserCtxtPtr ctxt) {
4916	xmlChar *name;
4917	xmlEnumerationPtr ret = NULL, last = NULL, cur;
4918
4919	if (RAW != '(') {
4920	xmlFatalErr(ctxt, XML_ERR_ATTLIST_NOT_STARTED, NULL);
4921	return(NULL);
4922	}
4923	SHRINK;
4924	do {
4925	NEXT;
4926	SKIP_BLANKS;
4927	name = xmlParseNmtoken(ctxt);
4928	if (name == NULL) {
4929	xmlFatalErr(ctxt, XML_ERR_NMTOKEN_REQUIRED, NULL);
4930	return(ret);
4931	}
4932	cur = xmlCreateEnumeration(name);
4933	xmlFree(name);
4934	if (cur == NULL) {
4935	xmlFreeEnumeration(ret);
4936	return(NULL);
4937	}
4938	if (last == NULL) ret = last = cur;
4939	else {
4940	last->next = cur;
4941	last = cur;
4942	}
4943	SKIP_BLANKS;
4944	} while (RAW == '\|');
4945	if (RAW != ')') {
4946	xmlFatalErr(ctxt, XML_ERR_ATTLIST_NOT_FINISHED, NULL);
4947	return(ret);
4948	}
4949	NEXT;
4950	return(ret);
4951	}
4952
4953	/**
4954	* xmlParseEnumeratedType:
4955	* @ctxt: an XML parser context
4956	* @tree: the enumeration tree built while parsing
4957	*
4958	* parse an Enumerated attribute type.
4959	*
4960	* [57] EnumeratedType ::= NotationType \| Enumeration
4961	*
4962	* [58] NotationType ::= 'NOTATION' S '(' S? Name (S? '\|' S? Name)* S? ')'
4963	*
4964	*
4965	* Returns: XML_ATTRIBUTE_ENUMERATION or XML_ATTRIBUTE_NOTATION
4966	*/
4967
4968	int
4969	xmlParseEnumeratedType(xmlParserCtxtPtr ctxt, xmlEnumerationPtr *tree) {
4970	if (CMP8(CUR_PTR, 'N', 'O', 'T', 'A', 'T', 'I', 'O', 'N')) {
4971	SKIP(8);
4972	if (!IS_BLANK_CH(CUR)) {
4973	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
4974	"Space required after 'NOTATION'\n");
4975	return(0);
4976	}
4977	SKIP_BLANKS;
4978	*tree = xmlParseNotationType(ctxt);
4979	if (*tree == NULL) return(0);
4980	return(XML_ATTRIBUTE_NOTATION);
4981	}
4982	*tree = xmlParseEnumerationType(ctxt);
4983	if (*tree == NULL) return(0);
4984	return(XML_ATTRIBUTE_ENUMERATION);
4985	}
4986
4987	/**
4988	* xmlParseAttributeType:
4989	* @ctxt: an XML parser context
4990	* @tree: the enumeration tree built while parsing
4991	*
4992	* parse the Attribute list def for an element
4993	*
4994	* [54] AttType ::= StringType \| TokenizedType \| EnumeratedType
4995	*
4996	* [55] StringType ::= 'CDATA'
4997	*
4998	* [56] TokenizedType ::= 'ID' \| 'IDREF' \| 'IDREFS' \| 'ENTITY' \|
4999	* 'ENTITIES' \| 'NMTOKEN' \| 'NMTOKENS'
5000	*
5001	* Validity constraints for attribute values syntax are checked in
5002	* xmlValidateAttributeValue()
5003	*
5004	* [ VC: ID ]
5005	* Values of type ID must match the Name production. A name must not
5006	* appear more than once in an XML document as a value of this type;
5007	* i.e., ID values must uniquely identify the elements which bear them.
5008	*
5009	* [ VC: One ID per Element Type ]
5010	* No element type may have more than one ID attribute specified.
5011	*
5012	* [ VC: ID Attribute Default ]
5013	* An ID attribute must have a declared default of #IMPLIED or #REQUIRED.
5014	*
5015	* [ VC: IDREF ]
5016	* Values of type IDREF must match the Name production, and values
5017	* of type IDREFS must match Names; each IDREF Name must match the value
5018	* of an ID attribute on some element in the XML document; i.e. IDREF
5019	* values must match the value of some ID attribute.
5020	*
5021	* [ VC: Entity Name ]
5022	* Values of type ENTITY must match the Name production, values
5023	* of type ENTITIES must match Names; each Entity Name must match the
5024	* name of an unparsed entity declared in the DTD.
5025	*
5026	* [ VC: Name Token ]
5027	* Values of type NMTOKEN must match the Nmtoken production; values
5028	* of type NMTOKENS must match Nmtokens.
5029	*
5030	* Returns the attribute type
5031	*/
5032	int
5033	xmlParseAttributeType(xmlParserCtxtPtr ctxt, xmlEnumerationPtr *tree) {
5034	SHRINK;
5035	if (CMP5(CUR_PTR, 'C', 'D', 'A', 'T', 'A')) {
5036	SKIP(5);
5037	return(XML_ATTRIBUTE_CDATA);
5038	} else if (CMP6(CUR_PTR, 'I', 'D', 'R', 'E', 'F', 'S')) {
5039	SKIP(6);
5040	return(XML_ATTRIBUTE_IDREFS);
5041	} else if (CMP5(CUR_PTR, 'I', 'D', 'R', 'E', 'F')) {
5042	SKIP(5);
5043	return(XML_ATTRIBUTE_IDREF);
5044	} else if ((RAW == 'I') && (NXT(1) == 'D')) {
5045	SKIP(2);
5046	return(XML_ATTRIBUTE_ID);
5047	} else if (CMP6(CUR_PTR, 'E', 'N', 'T', 'I', 'T', 'Y')) {
5048	SKIP(6);
5049	return(XML_ATTRIBUTE_ENTITY);
5050	} else if (CMP8(CUR_PTR, 'E', 'N', 'T', 'I', 'T', 'I', 'E', 'S')) {
5051	SKIP(8);
5052	return(XML_ATTRIBUTE_ENTITIES);
5053	} else if (CMP8(CUR_PTR, 'N', 'M', 'T', 'O', 'K', 'E', 'N', 'S')) {
5054	SKIP(8);
5055	return(XML_ATTRIBUTE_NMTOKENS);
5056	} else if (CMP7(CUR_PTR, 'N', 'M', 'T', 'O', 'K', 'E', 'N')) {
5057	SKIP(7);
5058	return(XML_ATTRIBUTE_NMTOKEN);
5059	}
5060	return(xmlParseEnumeratedType(ctxt, tree));
5061	}
5062
5063	/**
5064	* xmlParseAttributeListDecl:
5065	* @ctxt: an XML parser context
5066	*
5067	* : parse the Attribute list def for an element
5068	*
5069	* [52] AttlistDecl ::= '<!ATTLIST' S Name AttDef* S? '>'
5070	*
5071	* [53] AttDef ::= S Name S AttType S DefaultDecl
5072	*
5073	*/
5074	void
5075	xmlParseAttributeListDecl(xmlParserCtxtPtr ctxt) {
5076	const xmlChar *elemName;
5077	const xmlChar *attrName;
5078	xmlEnumerationPtr tree;
5079
5080	if (CMP9(CUR_PTR, '<', '!', 'A', 'T', 'T', 'L', 'I', 'S', 'T')) {
5081	xmlParserInputPtr input = ctxt->input;
5082
5083	SKIP(9);
5084	if (!IS_BLANK_CH(CUR)) {
5085	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5086	"Space required after '<!ATTLIST'\n");
5087	}
5088	SKIP_BLANKS;
5089	elemName = xmlParseName(ctxt);
5090	if (elemName == NULL) {
5091	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
5092	"ATTLIST: no name for Element\n");
5093	return;
5094	}
5095	SKIP_BLANKS;
5096	GROW;
5097	while (RAW != '>') {
5098	const xmlChar *check = CUR_PTR;
5099	int type;
5100	int def;
5101	xmlChar *defaultValue = NULL;
5102
5103	GROW;
5104	tree = NULL;
5105	attrName = xmlParseName(ctxt);
5106	if (attrName == NULL) {
5107	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
5108	"ATTLIST: no name for Attribute\n");
5109	break;
5110	}
5111	GROW;
5112	if (!IS_BLANK_CH(CUR)) {
5113	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5114	"Space required after the attribute name\n");
5115	break;
5116	}
5117	SKIP_BLANKS;
5118
5119	type = xmlParseAttributeType(ctxt, &tree);
5120	if (type <= 0) {
5121	break;
5122	}
5123
5124	GROW;
5125	if (!IS_BLANK_CH(CUR)) {
5126	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5127	"Space required after the attribute type\n");
5128	if (tree != NULL)
5129	xmlFreeEnumeration(tree);
5130	break;
5131	}
5132	SKIP_BLANKS;
5133
5134	def = xmlParseDefaultDecl(ctxt, &defaultValue);
5135	if (def <= 0) {
5136	if (defaultValue != NULL)
5137	xmlFree(defaultValue);
5138	if (tree != NULL)
5139	xmlFreeEnumeration(tree);
5140	break;
5141	}
5142
5143	GROW;
5144	if (RAW != '>') {
5145	if (!IS_BLANK_CH(CUR)) {
5146	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5147	"Space required after the attribute default value\n");
5148	if (defaultValue != NULL)
5149	xmlFree(defaultValue);
5150	if (tree != NULL)
5151	xmlFreeEnumeration(tree);
5152	break;
5153	}
5154	SKIP_BLANKS;
5155	}
5156	if (check == CUR_PTR) {
5157	xmlFatalErr(ctxt, XML_ERR_INTERNAL_ERROR,
5158	"in xmlParseAttributeListDecl\n");
5159	if (defaultValue != NULL)
5160	xmlFree(defaultValue);
5161	if (tree != NULL)
5162	xmlFreeEnumeration(tree);
5163	break;
5164	}
5165	if ((ctxt->sax != NULL) && (!ctxt->disableSAX) &&
5166	(ctxt->sax->attributeDecl != NULL))
5167	ctxt->sax->attributeDecl(ctxt->userData, elemName, attrName,
5168	type, def, defaultValue, tree);
5169	else if (tree != NULL)
5170	xmlFreeEnumeration(tree);
5171
5172	if ((ctxt->sax2) && (defaultValue != NULL) &&
5173	(def != XML_ATTRIBUTE_IMPLIED) &&
5174	(def != XML_ATTRIBUTE_REQUIRED)) {
5175	xmlAddDefAttrs(ctxt, elemName, attrName, defaultValue);
5176	}
5177	if (ctxt->sax2) {
5178	xmlAddSpecialAttr(ctxt, elemName, attrName, type);
5179	}
5180	if (defaultValue != NULL)
5181	xmlFree(defaultValue);
5182	GROW;
5183	}
5184	if (RAW == '>') {
5185	if (input != ctxt->input) {
5186	xmlFatalErrMsg(ctxt, XML_ERR_ENTITY_BOUNDARY,
5187	"Attribute list declaration doesn't start and stop in the same entity\n");
5188	}
5189	NEXT;
5190	}
5191	}
5192	}
5193
5194	/**
5195	* xmlParseElementMixedContentDecl:
5196	* @ctxt: an XML parser context
5197	* @inputchk: the input used for the current entity, needed for boundary checks
5198	*
5199	* parse the declaration for a Mixed Element content
5200	* The leading '(' and spaces have been skipped in xmlParseElementContentDecl
5201	*
5202	* [51] Mixed ::= '(' S? '#PCDATA' (S? '\|' S? Name)* S? ')*' \|
5203	* '(' S? '#PCDATA' S? ')'
5204	*
5205	* [ VC: Proper Group/PE Nesting ] applies to [51] too (see [49])
5206	*
5207	* [ VC: No Duplicate Types ]
5208	* The same name must not appear more than once in a single
5209	* mixed-content declaration.
5210	*
5211	* returns: the list of the xmlElementContentPtr describing the element choices
5212	*/
5213	xmlElementContentPtr
5214	xmlParseElementMixedContentDecl(xmlParserCtxtPtr ctxt, int inputchk) {
5215	xmlElementContentPtr ret = NULL, cur = NULL, n;
5216	const xmlChar *elem = NULL;
5217
5218	GROW;
5219	if (CMP7(CUR_PTR, '#', 'P', 'C', 'D', 'A', 'T', 'A')) {
5220	SKIP(7);
5221	SKIP_BLANKS;
5222	SHRINK;
5223	if (RAW == ')') {
5224	if ((ctxt->validate) && (ctxt->input->id != inputchk)) {
5225	xmlValidityError(ctxt, XML_ERR_ENTITY_BOUNDARY,
5226	"Element content declaration doesn't start and stop in the same entity\n",
5227	NULL);
5228	}
5229	NEXT;
5230	ret = xmlNewDocElementContent(ctxt->myDoc, NULL, XML_ELEMENT_CONTENT_PCDATA);
5231	if (RAW == '*') {
5232	ret->ocur = XML_ELEMENT_CONTENT_MULT;
5233	NEXT;
5234	}
5235	return(ret);
5236	}
5237	if ((RAW == '(') \|\| (RAW == '\|')) {
5238	ret = cur = xmlNewDocElementContent(ctxt->myDoc, NULL, XML_ELEMENT_CONTENT_PCDATA);
5239	if (ret == NULL) return(NULL);
5240	}
5241	while (RAW == '\|') {
5242	NEXT;
5243	if (elem == NULL) {
5244	ret = xmlNewDocElementContent(ctxt->myDoc, NULL, XML_ELEMENT_CONTENT_OR);
5245	if (ret == NULL) return(NULL);
5246	ret->c1 = cur;
5247	if (cur != NULL)
5248	cur->parent = ret;
5249	cur = ret;
5250	} else {
5251	n = xmlNewDocElementContent(ctxt->myDoc, NULL, XML_ELEMENT_CONTENT_OR);
5252	if (n == NULL) return(NULL);
5253	n->c1 = xmlNewDocElementContent(ctxt->myDoc, elem, XML_ELEMENT_CONTENT_ELEMENT);
5254	if (n->c1 != NULL)
5255	n->c1->parent = n;
5256	cur->c2 = n;
5257	if (n != NULL)
5258	n->parent = cur;
5259	cur = n;
5260	}
5261	SKIP_BLANKS;
5262	elem = xmlParseName(ctxt);
5263	if (elem == NULL) {
5264	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
5265	"xmlParseElementMixedContentDecl : Name expected\n");
5266	xmlFreeDocElementContent(ctxt->myDoc, cur);
5267	return(NULL);
5268	}
5269	SKIP_BLANKS;
5270	GROW;
5271	}
5272	if ((RAW == ')') && (NXT(1) == '*')) {
5273	if (elem != NULL) {
5274	cur->c2 = xmlNewDocElementContent(ctxt->myDoc, elem,
5275	XML_ELEMENT_CONTENT_ELEMENT);
5276	if (cur->c2 != NULL)
5277	cur->c2->parent = cur;
5278	}
5279	ret->ocur = XML_ELEMENT_CONTENT_MULT;
5280	if ((ctxt->validate) && (ctxt->input->id != inputchk)) {
5281	xmlValidityError(ctxt, XML_ERR_ENTITY_BOUNDARY,
5282	"Element content declaration doesn't start and stop in the same entity\n",
5283	NULL);
5284	}
5285	SKIP(2);
5286	} else {
5287	xmlFreeDocElementContent(ctxt->myDoc, ret);
5288	xmlFatalErr(ctxt, XML_ERR_MIXED_NOT_STARTED, NULL);
5289	return(NULL);
5290	}
5291
5292	} else {
5293	xmlFatalErr(ctxt, XML_ERR_PCDATA_REQUIRED, NULL);
5294	}
5295	return(ret);
5296	}
5297
5298	/**
5299	* xmlParseElementChildrenContentDecl:
5300	* @ctxt: an XML parser context
5301	* @inputchk: the input used for the current entity, needed for boundary checks
5302	*
5303	* parse the declaration for a Mixed Element content
5304	* The leading '(' and spaces have been skipped in xmlParseElementContentDecl
5305	*
5306	*
5307	* [47] children ::= (choice \| seq) ('?' \| '*' \| '+')?
5308	*
5309	* [48] cp ::= (Name \| choice \| seq) ('?' \| '*' \| '+')?
5310	*
5311	* [49] choice ::= '(' S? cp ( S? '\|' S? cp )* S? ')'
5312	*
5313	* [50] seq ::= '(' S? cp ( S? ',' S? cp )* S? ')'
5314	*
5315	* [ VC: Proper Group/PE Nesting ] applies to [49] and [50]
5316	* TODO Parameter-entity replacement text must be properly nested
5317	* with parenthesized groups. That is to say, if either of the
5318	* opening or closing parentheses in a choice, seq, or Mixed
5319	* construct is contained in the replacement text for a parameter
5320	* entity, both must be contained in the same replacement text. For
5321	* interoperability, if a parameter-entity reference appears in a
5322	* choice, seq, or Mixed construct, its replacement text should not
5323	* be empty, and neither the first nor last non-blank character of
5324	* the replacement text should be a connector (\| or ,).
5325	*
5326	* Returns the tree of xmlElementContentPtr describing the element
5327	* hierarchy.
5328	*/
5329	xmlElementContentPtr
5330	xmlParseElementChildrenContentDecl (xmlParserCtxtPtr ctxt, int inputchk) {
5331	xmlElementContentPtr ret = NULL, cur = NULL, last = NULL, op = NULL;
5332	const xmlChar *elem;
5333	xmlChar type = 0;
5334
5335	if (ctxt->depth > 128) {
5336	xmlFatalErrMsgInt(ctxt, XML_ERR_ELEMCONTENT_NOT_FINISHED,
5337	"xmlParseElementChildrenContentDecl : depth %d too deep\n",
5338	ctxt->depth);
5339	return(NULL);
5340	}
5341	SKIP_BLANKS;
5342	GROW;
5343	if (RAW == '(') {
5344	int inputid = ctxt->input->id;
5345
5346	/* Recurse on first child */
5347	NEXT;
5348	SKIP_BLANKS;
5349	ctxt->depth++;
5350	cur = ret = xmlParseElementChildrenContentDecl(ctxt, inputid);
5351	ctxt->depth--;
5352	SKIP_BLANKS;
5353	GROW;
5354	} else {
5355	elem = xmlParseName(ctxt);
5356	if (elem == NULL) {
5357	xmlFatalErr(ctxt, XML_ERR_ELEMCONTENT_NOT_STARTED, NULL);
5358	return(NULL);
5359	}
5360	cur = ret = xmlNewDocElementContent(ctxt->myDoc, elem, XML_ELEMENT_CONTENT_ELEMENT);
5361	if (cur == NULL) {
5362	xmlErrMemory(ctxt, NULL);
5363	return(NULL);
5364	}
5365	GROW;
5366	if (RAW == '?') {
5367	cur->ocur = XML_ELEMENT_CONTENT_OPT;
5368	NEXT;
5369	} else if (RAW == '*') {
5370	cur->ocur = XML_ELEMENT_CONTENT_MULT;
5371	NEXT;
5372	} else if (RAW == '+') {
5373	cur->ocur = XML_ELEMENT_CONTENT_PLUS;
5374	NEXT;
5375	} else {
5376	cur->ocur = XML_ELEMENT_CONTENT_ONCE;
5377	}
5378	GROW;
5379	}
5380	SKIP_BLANKS;
5381	SHRINK;
5382	while (RAW != ')') {
5383	/*
5384	* Each loop we parse one separator and one element.
5385	*/
5386	if (RAW == ',') {
5387	if (type == 0) type = CUR;
5388
5389	/*
5390	* Detect "Name \| Name , Name" error
5391	*/
5392	else if (type != CUR) {
5393	xmlFatalErrMsgInt(ctxt, XML_ERR_SEPARATOR_REQUIRED,
5394	"xmlParseElementChildrenContentDecl : '%c' expected\n",
5395	type);
5396	if ((last != NULL) && (last != ret))
5397	xmlFreeDocElementContent(ctxt->myDoc, last);
5398	if (ret != NULL)
5399	xmlFreeDocElementContent(ctxt->myDoc, ret);
5400	return(NULL);
5401	}
5402	NEXT;
5403
5404	op = xmlNewDocElementContent(ctxt->myDoc, NULL, XML_ELEMENT_CONTENT_SEQ);
5405	if (op == NULL) {
5406	if ((last != NULL) && (last != ret))
5407	xmlFreeDocElementContent(ctxt->myDoc, last);
5408	xmlFreeDocElementContent(ctxt->myDoc, ret);
5409	return(NULL);
5410	}
5411	if (last == NULL) {
5412	op->c1 = ret;
5413	if (ret != NULL)
5414	ret->parent = op;
5415	ret = cur = op;
5416	} else {
5417	cur->c2 = op;
5418	if (op != NULL)
5419	op->parent = cur;
5420	op->c1 = last;
5421	if (last != NULL)
5422	last->parent = op;
5423	cur =op;
5424	last = NULL;
5425	}
5426	} else if (RAW == '\|') {
5427	if (type == 0) type = CUR;
5428
5429	/*
5430	* Detect "Name , Name \| Name" error
5431	*/
5432	else if (type != CUR) {
5433	xmlFatalErrMsgInt(ctxt, XML_ERR_SEPARATOR_REQUIRED,
5434	"xmlParseElementChildrenContentDecl : '%c' expected\n",
5435	type);
5436	if ((last != NULL) && (last != ret))
5437	xmlFreeDocElementContent(ctxt->myDoc, last);
5438	if (ret != NULL)
5439	xmlFreeDocElementContent(ctxt->myDoc, ret);
5440	return(NULL);
5441	}
5442	NEXT;
5443
5444	op = xmlNewDocElementContent(ctxt->myDoc, NULL, XML_ELEMENT_CONTENT_OR);
5445	if (op == NULL) {
5446	if ((last != NULL) && (last != ret))
5447	xmlFreeDocElementContent(ctxt->myDoc, last);
5448	if (ret != NULL)
5449	xmlFreeDocElementContent(ctxt->myDoc, ret);
5450	return(NULL);
5451	}
5452	if (last == NULL) {
5453	op->c1 = ret;
5454	if (ret != NULL)
5455	ret->parent = op;
5456	ret = cur = op;
5457	} else {
5458	cur->c2 = op;
5459	if (op != NULL)
5460	op->parent = cur;
5461	op->c1 = last;
5462	if (last != NULL)
5463	last->parent = op;
5464	cur =op;
5465	last = NULL;
5466	}
5467	} else {
5468	xmlFatalErr(ctxt, XML_ERR_ELEMCONTENT_NOT_FINISHED, NULL);
5469	if (ret != NULL)
5470	xmlFreeDocElementContent(ctxt->myDoc, ret);
5471	return(NULL);
5472	}
5473	GROW;
5474	SKIP_BLANKS;
5475	GROW;
5476	if (RAW == '(') {
5477	int inputid = ctxt->input->id;
5478	/* Recurse on second child */
5479	NEXT;
5480	SKIP_BLANKS;
5481	ctxt->depth++;
5482	last = xmlParseElementChildrenContentDecl(ctxt, inputid);
5483	ctxt->depth--;
5484	SKIP_BLANKS;
5485	} else {
5486	elem = xmlParseName(ctxt);
5487	if (elem == NULL) {
5488	xmlFatalErr(ctxt, XML_ERR_ELEMCONTENT_NOT_STARTED, NULL);
5489	if (ret != NULL)
5490	xmlFreeDocElementContent(ctxt->myDoc, ret);
5491	return(NULL);
5492	}
5493	last = xmlNewDocElementContent(ctxt->myDoc, elem, XML_ELEMENT_CONTENT_ELEMENT);
5494	if (RAW == '?') {
5495	last->ocur = XML_ELEMENT_CONTENT_OPT;
5496	NEXT;
5497	} else if (RAW == '*') {
5498	last->ocur = XML_ELEMENT_CONTENT_MULT;
5499	NEXT;
5500	} else if (RAW == '+') {
5501	last->ocur = XML_ELEMENT_CONTENT_PLUS;
5502	NEXT;
5503	} else {
5504	last->ocur = XML_ELEMENT_CONTENT_ONCE;
5505	}
5506	}
5507	SKIP_BLANKS;
5508	GROW;
5509	}
5510	if ((cur != NULL) && (last != NULL)) {
5511	cur->c2 = last;
5512	if (last != NULL)
5513	last->parent = cur;
5514	}
5515	if ((ctxt->validate) && (ctxt->input->id != inputchk)) {
5516	xmlValidityError(ctxt, XML_ERR_ENTITY_BOUNDARY,
5517	"Element content declaration doesn't start and stop in the same entity\n",
5518	NULL);
5519	}
5520	NEXT;
5521	if (RAW == '?') {
5522	if (ret != NULL) {
5523	if ((ret->ocur == XML_ELEMENT_CONTENT_PLUS) \|\|
5524	(ret->ocur == XML_ELEMENT_CONTENT_MULT))
5525	ret->ocur = XML_ELEMENT_CONTENT_MULT;
5526	else
5527	ret->ocur = XML_ELEMENT_CONTENT_OPT;
5528	}
5529	NEXT;
5530	} else if (RAW == '*') {
5531	if (ret != NULL) {
5532	ret->ocur = XML_ELEMENT_CONTENT_MULT;
5533	cur = ret;
5534	/*
5535	* Some normalization:
5536	* (a \| b* \| c?)* == (a \| b \| c)*
5537	*/
5538	while ((cur != NULL) && (cur->type == XML_ELEMENT_CONTENT_OR)) {
5539	if ((cur->c1 != NULL) &&
5540	((cur->c1->ocur == XML_ELEMENT_CONTENT_OPT) \|\|
5541	(cur->c1->ocur == XML_ELEMENT_CONTENT_MULT)))
5542	cur->c1->ocur = XML_ELEMENT_CONTENT_ONCE;
5543	if ((cur->c2 != NULL) &&
5544	((cur->c2->ocur == XML_ELEMENT_CONTENT_OPT) \|\|
5545	(cur->c2->ocur == XML_ELEMENT_CONTENT_MULT)))
5546	cur->c2->ocur = XML_ELEMENT_CONTENT_ONCE;
5547	cur = cur->c2;
5548	}
5549	}
5550	NEXT;
5551	} else if (RAW == '+') {
5552	if (ret != NULL) {
5553	int found = 0;
5554
5555	if ((ret->ocur == XML_ELEMENT_CONTENT_OPT) \|\|
5556	(ret->ocur == XML_ELEMENT_CONTENT_MULT))
5557	ret->ocur = XML_ELEMENT_CONTENT_MULT;
5558	else
5559	ret->ocur = XML_ELEMENT_CONTENT_PLUS;
5560	/*
5561	* Some normalization:
5562	* (a \| b)+ == (a \| b)
5563	* (a \| b?)+ == (a \| b)*
5564	*/
5565	while ((cur != NULL) && (cur->type == XML_ELEMENT_CONTENT_OR)) {
5566	if ((cur->c1 != NULL) &&
5567	((cur->c1->ocur == XML_ELEMENT_CONTENT_OPT) \|\|
5568	(cur->c1->ocur == XML_ELEMENT_CONTENT_MULT))) {
5569	cur->c1->ocur = XML_ELEMENT_CONTENT_ONCE;
5570	found = 1;
5571	}
5572	if ((cur->c2 != NULL) &&
5573	((cur->c2->ocur == XML_ELEMENT_CONTENT_OPT) \|\|
5574	(cur->c2->ocur == XML_ELEMENT_CONTENT_MULT))) {
5575	cur->c2->ocur = XML_ELEMENT_CONTENT_ONCE;
5576	found = 1;
5577	}
5578	cur = cur->c2;
5579	}
5580	if (found)
5581	ret->ocur = XML_ELEMENT_CONTENT_MULT;
5582	}
5583	NEXT;
5584	}
5585	return(ret);
5586	}
5587
5588	/**
5589	* xmlParseElementContentDecl:
5590	* @ctxt: an XML parser context
5591	* @name: the name of the element being defined.
5592	* @result: the Element Content pointer will be stored here if any
5593	*
5594	* parse the declaration for an Element content either Mixed or Children,
5595	* the cases EMPTY and ANY are handled directly in xmlParseElementDecl
5596	*
5597	* [46] contentspec ::= 'EMPTY' \| 'ANY' \| Mixed \| children
5598	*
5599	* returns: the type of element content XML_ELEMENT_TYPE_xxx
5600	*/
5601
5602	int
5603	xmlParseElementContentDecl(xmlParserCtxtPtr ctxt, const xmlChar *name,
5604	xmlElementContentPtr *result) {
5605
5606	xmlElementContentPtr tree = NULL;
5607	int inputid = ctxt->input->id;
5608	int res;
5609
5610	*result = NULL;
5611
5612	if (RAW != '(') {
5613	xmlFatalErrMsgStr(ctxt, XML_ERR_ELEMCONTENT_NOT_STARTED,
5614	"xmlParseElementContentDecl : %s '(' expected\n", name);
5615	return(-1);
5616	}
5617	NEXT;
5618	GROW;
5619	SKIP_BLANKS;
5620	if (CMP7(CUR_PTR, '#', 'P', 'C', 'D', 'A', 'T', 'A')) {
5621	tree = xmlParseElementMixedContentDecl(ctxt, inputid);
5622	res = XML_ELEMENT_TYPE_MIXED;
5623	} else {
5624	tree = xmlParseElementChildrenContentDecl(ctxt, inputid);
5625	res = XML_ELEMENT_TYPE_ELEMENT;
5626	}
5627	SKIP_BLANKS;
5628	*result = tree;
5629	return(res);
5630	}
5631
5632	/**
5633	* xmlParseElementDecl:
5634	* @ctxt: an XML parser context
5635	*
5636	* parse an Element declaration.
5637	*
5638	* [45] elementdecl ::= '<!ELEMENT' S Name S contentspec S? '>'
5639	*
5640	* [ VC: Unique Element Type Declaration ]
5641	* No element type may be declared more than once
5642	*
5643	* Returns the type of the element, or -1 in case of error
5644	*/
5645	int
5646	xmlParseElementDecl(xmlParserCtxtPtr ctxt) {
5647	const xmlChar *name;
5648	int ret = -1;
5649	xmlElementContentPtr content = NULL;
5650
5651	/* GROW; done in the caller */
5652	if (CMP9(CUR_PTR, '<', '!', 'E', 'L', 'E', 'M', 'E', 'N', 'T')) {
5653	xmlParserInputPtr input = ctxt->input;
5654
5655	SKIP(9);
5656	if (!IS_BLANK_CH(CUR)) {
5657	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5658	"Space required after 'ELEMENT'\n");
5659	}
5660	SKIP_BLANKS;
5661	name = xmlParseName(ctxt);
5662	if (name == NULL) {
5663	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
5664	"xmlParseElementDecl: no name for Element\n");
5665	return(-1);
5666	}
5667	while ((RAW == 0) && (ctxt->inputNr > 1))
5668	xmlPopInput(ctxt);
5669	if (!IS_BLANK_CH(CUR)) {
5670	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5671	"Space required after the element name\n");
5672	}
5673	SKIP_BLANKS;
5674	if (CMP5(CUR_PTR, 'E', 'M', 'P', 'T', 'Y')) {
5675	SKIP(5);
5676	/*
5677	* Element must always be empty.
5678	*/
5679	ret = XML_ELEMENT_TYPE_EMPTY;
5680	} else if ((RAW == 'A') && (NXT(1) == 'N') &&
5681	(NXT(2) == 'Y')) {
5682	SKIP(3);
5683	/*
5684	* Element is a generic container.
5685	*/
5686	ret = XML_ELEMENT_TYPE_ANY;
5687	} else if (RAW == '(') {
5688	ret = xmlParseElementContentDecl(ctxt, name, &content);
5689	} else {
5690	/*
5691	* [ WFC: PEs in Internal Subset ] error handling.
5692	*/
5693	if ((RAW == '%') && (ctxt->external == 0) &&
5694	(ctxt->inputNr == 1)) {
5695	xmlFatalErrMsg(ctxt, XML_ERR_PEREF_IN_INT_SUBSET,
5696	"PEReference: forbidden within markup decl in internal subset\n");
5697	} else {
5698	xmlFatalErrMsg(ctxt, XML_ERR_ELEMCONTENT_NOT_STARTED,
5699	"xmlParseElementDecl: 'EMPTY', 'ANY' or '(' expected\n");
5700	}
5701	return(-1);
5702	}
5703
5704	SKIP_BLANKS;
5705	/*
5706	* Pop-up of finished entities.
5707	*/
5708	while ((RAW == 0) && (ctxt->inputNr > 1))
5709	xmlPopInput(ctxt);
5710	SKIP_BLANKS;
5711
5712	if (RAW != '>') {
5713	xmlFatalErr(ctxt, XML_ERR_GT_REQUIRED, NULL);
5714	if (content != NULL) {
5715	xmlFreeDocElementContent(ctxt->myDoc, content);
5716	}
5717	} else {
5718	if (input != ctxt->input) {
5719	xmlFatalErrMsg(ctxt, XML_ERR_ENTITY_BOUNDARY,
5720	"Element declaration doesn't start and stop in the same entity\n");
5721	}
5722
5723	NEXT;
5724	if ((ctxt->sax != NULL) && (!ctxt->disableSAX) &&
5725	(ctxt->sax->elementDecl != NULL)) {
5726	if (content != NULL)
5727	content->parent = NULL;
5728	ctxt->sax->elementDecl(ctxt->userData, name, ret,
5729	content);
5730	if ((content != NULL) && (content->parent == NULL)) {
5731	/*
5732	* this is a trick: if xmlAddElementDecl is called,
5733	* instead of copying the full tree it is plugged directly
5734	* if called from the parser. Avoid duplicating the
5735	* interfaces or change the API/ABI
5736	*/
5737	xmlFreeDocElementContent(ctxt->myDoc, content);
5738	}
5739	} else if (content != NULL) {
5740	xmlFreeDocElementContent(ctxt->myDoc, content);
5741	}
5742	}
5743	}
5744	return(ret);
5745	}
5746
5747	/**
5748	* xmlParseConditionalSections
5749	* @ctxt: an XML parser context
5750	*
5751	* [61] conditionalSect ::= includeSect \| ignoreSect
5752	* [62] includeSect ::= '<![' S? 'INCLUDE' S? '[' extSubsetDecl ']]>'
5753	* [63] ignoreSect ::= '<![' S? 'IGNORE' S? '[' ignoreSectContents* ']]>'
5754	* [64] ignoreSectContents ::= Ignore ('<![' ignoreSectContents ']]>' Ignore)*
5755	* [65] Ignore ::= Char* - (Char* ('<![' \| ']]>') Char*)
5756	*/
5757
5758	static void
5759	xmlParseConditionalSections(xmlParserCtxtPtr ctxt) {
5760	SKIP(3);
5761	SKIP_BLANKS;
5762	if (CMP7(CUR_PTR, 'I', 'N', 'C', 'L', 'U', 'D', 'E')) {
5763	SKIP(7);
5764	SKIP_BLANKS;
5765	if (RAW != '[') {
5766	xmlFatalErr(ctxt, XML_ERR_CONDSEC_INVALID, NULL);
5767	} else {
5768	NEXT;
5769	}
5770	if (xmlParserDebugEntities) {
5771	if ((ctxt->input != NULL) && (ctxt->input->filename))
5772	xmlGenericError(xmlGenericErrorContext,
5773	"%s(%d): ", ctxt->input->filename,
5774	ctxt->input->line);
5775	xmlGenericError(xmlGenericErrorContext,
5776	"Entering INCLUDE Conditional Section\n");
5777	}
5778
5779	while ((RAW != 0) && ((RAW != ']') \|\| (NXT(1) != ']') \|\|
5780	(NXT(2) != '>'))) {
5781	const xmlChar *check = CUR_PTR;
5782	unsigned int cons = ctxt->input->consumed;
5783
5784	if ((RAW == '<') && (NXT(1) == '!') && (NXT(2) == '[')) {
5785	xmlParseConditionalSections(ctxt);
5786	} else if (IS_BLANK_CH(CUR)) {
5787	NEXT;
5788	} else if (RAW == '%') {
5789	xmlParsePEReference(ctxt);
5790	} else
5791	xmlParseMarkupDecl(ctxt);
5792
5793	/*
5794	* Pop-up of finished entities.
5795	*/
5796	while ((RAW == 0) && (ctxt->inputNr > 1))
5797	xmlPopInput(ctxt);
5798
5799	if ((CUR_PTR == check) && (cons == ctxt->input->consumed)) {
5800	xmlFatalErr(ctxt, XML_ERR_EXT_SUBSET_NOT_FINISHED, NULL);
5801	break;
5802	}
5803	}
5804	if (xmlParserDebugEntities) {
5805	if ((ctxt->input != NULL) && (ctxt->input->filename))
5806	xmlGenericError(xmlGenericErrorContext,
5807	"%s(%d): ", ctxt->input->filename,
5808	ctxt->input->line);
5809	xmlGenericError(xmlGenericErrorContext,
5810	"Leaving INCLUDE Conditional Section\n");
5811	}
5812
5813	} else if (CMP6(CUR_PTR, 'I', 'G', 'N', 'O', 'R', 'E')) {
5814	int state;
5815	xmlParserInputState instate;
5816	int depth = 0;
5817
5818	SKIP(6);
5819	SKIP_BLANKS;
5820	if (RAW != '[') {
5821	xmlFatalErr(ctxt, XML_ERR_CONDSEC_INVALID, NULL);
5822	} else {
5823	NEXT;
5824	}
5825	if (xmlParserDebugEntities) {
5826	if ((ctxt->input != NULL) && (ctxt->input->filename))
5827	xmlGenericError(xmlGenericErrorContext,
5828	"%s(%d): ", ctxt->input->filename,
5829	ctxt->input->line);
5830	xmlGenericError(xmlGenericErrorContext,
5831	"Entering IGNORE Conditional Section\n");
5832	}
5833
5834	/*
5835	* Parse up to the end of the conditional section
5836	* But disable SAX event generating DTD building in the meantime
5837	*/
5838	state = ctxt->disableSAX;
5839	instate = ctxt->instate;
5840	if (ctxt->recovery == 0) ctxt->disableSAX = 1;
5841	ctxt->instate = XML_PARSER_IGNORE;
5842
5843	while ((depth >= 0) && (RAW != 0)) {
5844	if ((RAW == '<') && (NXT(1) == '!') && (NXT(2) == '[')) {
5845	depth++;
5846	SKIP(3);
5847	continue;
5848	}
5849	if ((RAW == ']') && (NXT(1) == ']') && (NXT(2) == '>')) {
5850	if (--depth >= 0) SKIP(3);
5851	continue;
5852	}
5853	NEXT;
5854	continue;
5855	}
5856
5857	ctxt->disableSAX = state;
5858	ctxt->instate = instate;
5859
5860	if (xmlParserDebugEntities) {
5861	if ((ctxt->input != NULL) && (ctxt->input->filename))
5862	xmlGenericError(xmlGenericErrorContext,
5863	"%s(%d): ", ctxt->input->filename,
5864	ctxt->input->line);
5865	xmlGenericError(xmlGenericErrorContext,
5866	"Leaving IGNORE Conditional Section\n");
5867	}
5868
5869	} else {
5870	xmlFatalErr(ctxt, XML_ERR_CONDSEC_INVALID_KEYWORD, NULL);
5871	}
5872
5873	if (RAW == 0)
5874	SHRINK;
5875
5876	if (RAW == 0) {
5877	xmlFatalErr(ctxt, XML_ERR_CONDSEC_NOT_FINISHED, NULL);
5878	} else {
5879	SKIP(3);
5880	}
5881	}
5882
5883	/**
5884	* xmlParseMarkupDecl:
5885	* @ctxt: an XML parser context
5886	*
5887	* parse Markup declarations
5888	*
5889	* [29] markupdecl ::= elementdecl \| AttlistDecl \| EntityDecl \|
5890	* NotationDecl \| PI \| Comment
5891	*
5892	* [ VC: Proper Declaration/PE Nesting ]
5893	* Parameter-entity replacement text must be properly nested with
5894	* markup declarations. That is to say, if either the first character
5895	* or the last character of a markup declaration (markupdecl above) is
5896	* contained in the replacement text for a parameter-entity reference,
5897	* both must be contained in the same replacement text.
5898	*
5899	* [ WFC: PEs in Internal Subset ]
5900	* In the internal DTD subset, parameter-entity references can occur
5901	* only where markup declarations can occur, not within markup declarations.
5902	* (This does not apply to references that occur in external parameter
5903	* entities or to the external subset.)
5904	*/
5905	void
5906	xmlParseMarkupDecl(xmlParserCtxtPtr ctxt) {
5907	GROW;
5908	if (CUR == '<') {
5909	if (NXT(1) == '!') {
5910	switch (NXT(2)) {
5911	case 'E':
5912	if (NXT(3) == 'L')
5913	xmlParseElementDecl(ctxt);
5914	else if (NXT(3) == 'N')
5915	xmlParseEntityDecl(ctxt);
5916	break;
5917	case 'A':
5918	xmlParseAttributeListDecl(ctxt);
5919	break;
5920	case 'N':
5921	xmlParseNotationDecl(ctxt);
5922	break;
5923	case '-':
5924	xmlParseComment(ctxt);
5925	break;
5926	default:
5927	/* there is an error but it will be detected later */
5928	break;
5929	}
5930	} else if (NXT(1) == '?') {
5931	xmlParsePI(ctxt);
5932	}
5933	}
5934	/*
5935	* This is only for internal subset. On external entities,
5936	* the replacement is done before parsing stage
5937	*/
5938	if ((ctxt->external == 0) && (ctxt->inputNr == 1))
5939	xmlParsePEReference(ctxt);
5940
5941	/*
5942	* Conditional sections are allowed from entities included
5943	* by PE References in the internal subset.
5944	*/
5945	if ((ctxt->external == 0) && (ctxt->inputNr > 1)) {
5946	if ((RAW == '<') && (NXT(1) == '!') && (NXT(2) == '[')) {
5947	xmlParseConditionalSections(ctxt);
5948	}
5949	}
5950
5951	ctxt->instate = XML_PARSER_DTD;
5952	}
5953
5954	/**
5955	* xmlParseTextDecl:
5956	* @ctxt: an XML parser context
5957	*
5958	* parse an XML declaration header for external entities
5959	*
5960	* [77] TextDecl ::= '<?xml' VersionInfo? EncodingDecl S? '?>'
5961	*
5962	* Question: Seems that EncodingDecl is mandatory ? Is that a typo ?
5963	*/
5964
5965	void
5966	xmlParseTextDecl(xmlParserCtxtPtr ctxt) {
5967	xmlChar *version;
5968	const xmlChar *encoding;
5969
5970	/*
5971	* We know that '<?xml' is here.
5972	*/
5973	if ((CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) && (IS_BLANK_CH(NXT(5)))) {
5974	SKIP(5);
5975	} else {
5976	xmlFatalErr(ctxt, XML_ERR_XMLDECL_NOT_STARTED, NULL);
5977	return;
5978	}
5979
5980	if (!IS_BLANK_CH(CUR)) {
5981	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5982	"Space needed after '<?xml'\n");
5983	}
5984	SKIP_BLANKS;
5985
5986	/*
5987	* We may have the VersionInfo here.
5988	*/
5989	version = xmlParseVersionInfo(ctxt);
5990	if (version == NULL)
5991	version = xmlCharStrdup(XML_DEFAULT_VERSION);
5992	else {
5993	if (!IS_BLANK_CH(CUR)) {
5994	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
5995	"Space needed here\n");
5996	}
5997	}
5998	ctxt->input->version = version;
5999
6000	/*
6001	* We must have the encoding declaration
6002	*/
6003	encoding = xmlParseEncodingDecl(ctxt);
6004	if (ctxt->errNo == XML_ERR_UNSUPPORTED_ENCODING) {
6005	/*
6006	* The XML REC instructs us to stop parsing right here
6007	*/
6008	return;
6009	}
6010	if ((encoding == NULL) && (ctxt->errNo == XML_ERR_OK)) {
6011	xmlFatalErrMsg(ctxt, XML_ERR_MISSING_ENCODING,
6012	"Missing encoding in text declaration\n");
6013	}
6014
6015	SKIP_BLANKS;
6016	if ((RAW == '?') && (NXT(1) == '>')) {
6017	SKIP(2);
6018	} else if (RAW == '>') {
6019	/* Deprecated old WD ... */
6020	xmlFatalErr(ctxt, XML_ERR_XMLDECL_NOT_FINISHED, NULL);
6021	NEXT;
6022	} else {
6023	xmlFatalErr(ctxt, XML_ERR_XMLDECL_NOT_FINISHED, NULL);
6024	MOVETO_ENDTAG(CUR_PTR);
6025	NEXT;
6026	}
6027	}
6028
6029	/**
6030	* xmlParseExternalSubset:
6031	* @ctxt: an XML parser context
6032	* @ExternalID: the external identifier
6033	* @SystemID: the system identifier (or URL)
6034	*
6035	* parse Markup declarations from an external subset
6036	*
6037	* [30] extSubset ::= textDecl? extSubsetDecl
6038	*
6039	* [31] extSubsetDecl ::= (markupdecl \| conditionalSect \| PEReference \| S) *
6040	*/
6041	void
6042	xmlParseExternalSubset(xmlParserCtxtPtr ctxt, const xmlChar *ExternalID,
6043	const xmlChar *SystemID) {
6044	xmlDetectSAX2(ctxt);
6045	GROW;
6046	if (CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) {
6047	xmlParseTextDecl(ctxt);
6048	if (ctxt->errNo == XML_ERR_UNSUPPORTED_ENCODING) {
6049	/*
6050	* The XML REC instructs us to stop parsing right here
6051	*/
6052	ctxt->instate = XML_PARSER_EOF;
6053	return;
6054	}
6055	}
6056	if (ctxt->myDoc == NULL) {
6057	ctxt->myDoc = xmlNewDoc(BAD_CAST "1.0");
6058	}
6059	if ((ctxt->myDoc != NULL) && (ctxt->myDoc->intSubset == NULL))
6060	xmlCreateIntSubset(ctxt->myDoc, NULL, ExternalID, SystemID);
6061
6062	ctxt->instate = XML_PARSER_DTD;
6063	ctxt->external = 1;
6064	while (((RAW == '<') && (NXT(1) == '?')) \|\|
6065	((RAW == '<') && (NXT(1) == '!')) \|\|
6066	(RAW == '%') \|\| IS_BLANK_CH(CUR)) {
6067	const xmlChar *check = CUR_PTR;
6068	unsigned int cons = ctxt->input->consumed;
6069
6070	GROW;
6071	if ((RAW == '<') && (NXT(1) == '!') && (NXT(2) == '[')) {
6072	xmlParseConditionalSections(ctxt);
6073	} else if (IS_BLANK_CH(CUR)) {
6074	NEXT;
6075	} else if (RAW == '%') {
6076	xmlParsePEReference(ctxt);
6077	} else
6078	xmlParseMarkupDecl(ctxt);
6079
6080	/*
6081	* Pop-up of finished entities.
6082	*/
6083	while ((RAW == 0) && (ctxt->inputNr > 1))
6084	xmlPopInput(ctxt);
6085
6086	if ((CUR_PTR == check) && (cons == ctxt->input->consumed)) {
6087	xmlFatalErr(ctxt, XML_ERR_EXT_SUBSET_NOT_FINISHED, NULL);
6088	break;
6089	}
6090	}
6091
6092	if (RAW != 0) {
6093	xmlFatalErr(ctxt, XML_ERR_EXT_SUBSET_NOT_FINISHED, NULL);
6094	}
6095
6096	}
6097
6098	/**
6099	* xmlParseReference:
6100	* @ctxt: an XML parser context
6101	*
6102	* parse and handle entity references in content, depending on the SAX
6103	* interface, this may end-up in a call to character() if this is a
6104	* CharRef, a predefined entity, if there is no reference() callback.
6105	* or if the parser was asked to switch to that mode.
6106	*
6107	* [67] Reference ::= EntityRef \| CharRef
6108	*/
6109	void
6110	xmlParseReference(xmlParserCtxtPtr ctxt) {
6111	xmlEntityPtr ent;
6112	xmlChar *val;
6113	if (RAW != '&') return;
6114
6115	if (NXT(1) == '#') {
6116	int i = 0;
6117	xmlChar out[10];
6118	int hex = NXT(2);
6119	int value = xmlParseCharRef(ctxt);
6120
6121	if (ctxt->charset != XML_CHAR_ENCODING_UTF8) {
6122	/*
6123	* So we are using non-UTF-8 buffers
6124	* Check that the char fit on 8bits, if not
6125	* generate a CharRef.
6126	*/
6127	if (value <= 0xFF) {
6128	out[0] = value;
6129	out[1] = 0;
6130	if ((ctxt->sax != NULL) && (ctxt->sax->characters != NULL) &&
6131	(!ctxt->disableSAX))
6132	ctxt->sax->characters(ctxt->userData, out, 1);
6133	} else {
6134	if ((hex == 'x') \|\| (hex == 'X'))
6135	snprintf((char *)out, sizeof(out), "#x%X", value);
6136	else
6137	snprintf((char *)out, sizeof(out), "#%d", value);
6138	if ((ctxt->sax != NULL) && (ctxt->sax->reference != NULL) &&
6139	(!ctxt->disableSAX))
6140	ctxt->sax->reference(ctxt->userData, out);
6141	}
6142	} else {
6143	/*
6144	* Just encode the value in UTF-8
6145	*/
6146	COPY_BUF(0 ,out, i, value);
6147	out[i] = 0;
6148	if ((ctxt->sax != NULL) && (ctxt->sax->characters != NULL) &&
6149	(!ctxt->disableSAX))
6150	ctxt->sax->characters(ctxt->userData, out, i);
6151	}
6152	} else {
6153	int was_checked;
6154
6155	ent = xmlParseEntityRef(ctxt);
6156	if (ent == NULL) return;
6157	if (!ctxt->wellFormed)
6158	return;
6159	was_checked = ent->checked;
6160	if ((ent->name != NULL) &&
6161	(ent->etype != XML_INTERNAL_PREDEFINED_ENTITY)) {
6162	xmlNodePtr list = NULL;
6163	xmlParserErrors ret = XML_ERR_OK;
6164
6165
6166	/*
6167	* The first reference to the entity trigger a parsing phase
6168	* where the ent->children is filled with the result from
6169	* the parsing.
6170	*/
6171	if (ent->checked == 0) {
6172	xmlChar *value;
6173
6174	value = ent->content;
6175
6176	/*
6177	* Check that this entity is well formed
6178	*/
6179	if ((value != NULL) && (value[0] != 0) &&
6180	(value[1] == 0) && (value[0] == '<') &&
6181	(xmlStrEqual(ent->name, BAD_CAST "lt"))) {
6182	/*
6183	* DONE: get definite answer on this !!!
6184	* Lots of entity decls are used to declare a single
6185	* char
6186	* <!ENTITY lt "<">
6187	* Which seems to be valid since
6188	* 2.4: The ampersand character (&) and the left angle
6189	* bracket (<) may appear in their literal form only
6190	* when used ... They are also legal within the literal
6191	* entity value of an internal entity declaration;i
6192	* see "4.3.2 Well-Formed Parsed Entities".
6193	* IMHO 2.4 and 4.3.2 are directly in contradiction.
6194	* Looking at the OASIS test suite and James Clark
6195	* tests, this is broken. However the XML REC uses
6196	* it. Is the XML REC not well-formed ????
6197	* This is a hack to avoid this problem
6198	*
6199	* ANSWER: since lt gt amp .. are already defined,
6200	* this is a redefinition and hence the fact that the
6201	* content is not well balanced is not a Wf error, this
6202	* is lousy but acceptable.
6203	*/
6204	list = xmlNewDocText(ctxt->myDoc, value);
6205	if (list != NULL) {
6206	if ((ent->etype == XML_INTERNAL_GENERAL_ENTITY) &&
6207	(ent->children == NULL)) {
6208	ent->children = list;
6209	ent->last = list;
6210	if (ent->owner == 0)
6211	ent->owner = 1;
6212	list->parent = (xmlNodePtr) ent;
6213	} else {
6214	xmlFreeNodeList(list);
6215	}
6216	} else if (list != NULL) {
6217	xmlFreeNodeList(list);
6218	}
6219	} else {
6220	unsigned long oldnbent = ctxt->nbentities;
6221	/*
6222	* 4.3.2: An internal general parsed entity is well-formed
6223	* if its replacement text matches the production labeled
6224	* content.
6225	*/
6226
6227	void *user_data;
6228	/*
6229	* This is a bit hackish but this seems the best
6230	* way to make sure both SAX and DOM entity support
6231	* behaves okay.
6232	*/
6233	if (ctxt->userData == ctxt)
6234	user_data = NULL;
6235	else
6236	user_data = ctxt->userData;
6237
6238	if (ent->etype == XML_INTERNAL_GENERAL_ENTITY) {
6239	ctxt->depth++;
6240	ret = xmlParseBalancedChunkMemoryInternal(ctxt,
6241	value, user_data, &list);
6242	ctxt->depth--;
6243
6244	} else if (ent->etype ==
6245	XML_EXTERNAL_GENERAL_PARSED_ENTITY) {
6246	ctxt->depth++;
6247	ret = xmlParseExternalEntityPrivate(ctxt->myDoc, ctxt,
6248	ctxt->sax, user_data, ctxt->depth,
6249	ent->URI, ent->ExternalID, &list);
6250	ctxt->depth--;
6251	} else {
6252	ret = XML_ERR_ENTITY_PE_INTERNAL;
6253	xmlErrMsgStr(ctxt, XML_ERR_INTERNAL_ERROR,
6254	"invalid entity type found\n", NULL);
6255	}
6256	/*
6257	* Store the number of entities needing parsing for entity
6258	* content and do checkings
6259	*/
6260	if ((ent->owner != 0) \|\| (ent->children == NULL)) {
6261	ent->owner = ctxt->nbentities - oldnbent;
6262	if (ent->owner == 0)
6263	ent->owner = 1;
6264	}
6265	if (ret == XML_ERR_ENTITY_LOOP) {
6266	xmlFatalErr(ctxt, XML_ERR_ENTITY_LOOP, NULL);
6267	xmlFreeNodeList(list);
6268	return;
6269	}
6270	if (xmlParserEntityCheck(ctxt, 0, ent)) {
6271	xmlFreeNodeList(list);
6272	return;
6273	}
6274	if (ret == XML_ERR_ENTITY_LOOP) {
6275	xmlFatalErr(ctxt, XML_ERR_ENTITY_LOOP, NULL);
6276	return;
6277	} else if ((ret == XML_ERR_OK) && (list != NULL)) {
6278	if (((ent->etype == XML_INTERNAL_GENERAL_ENTITY) \|\|
6279	(ent->etype == XML_EXTERNAL_GENERAL_PARSED_ENTITY))&&
6280	(ent->children == NULL)) {
6281	ent->children = list;
6282	if (ctxt->replaceEntities) {
6283	/*
6284	* Prune it directly in the generated document
6285	* except for single text nodes.
6286	*/
6287	if (((list->type == XML_TEXT_NODE) &&
6288	(list->next == NULL)) \|\|
6289	(ctxt->parseMode == XML_PARSE_READER)) {
6290	list->parent = (xmlNodePtr) ent;
6291	list = NULL;
6292	if (ent->owner == 0)
6293	ent->owner = 1;
6294	} else {
6295	ent->owner = 0;
6296	while (list != NULL) {
6297	list->parent = (xmlNodePtr) ctxt->node;
6298	list->doc = ctxt->myDoc;
6299	if (list->next == NULL)
6300	ent->last = list;
6301	list = list->next;
6302	}
6303	list = ent->children;
6304	#ifdef LIBXML_LEGACY_ENABLED
6305	if (ent->etype == XML_EXTERNAL_GENERAL_PARSED_ENTITY)
6306	xmlAddEntityReference(ent, list, NULL);
6307	#endif /* LIBXML_LEGACY_ENABLED */
6308	}
6309	} else {
6310	if (ent->owner == 0)
6311	ent->owner = 1;
6312	while (list != NULL) {
6313	list->parent = (xmlNodePtr) ent;
6314	if (list->next == NULL)
6315	ent->last = list;
6316	list = list->next;
6317	}
6318	}
6319	} else {
6320	xmlFreeNodeList(list);
6321	list = NULL;
6322	}
6323	} else if ((ret != XML_ERR_OK) &&
6324	(ret != XML_WAR_UNDECLARED_ENTITY)) {
6325	xmlFatalErrMsgStr(ctxt, XML_ERR_UNDECLARED_ENTITY,
6326	"Entity '%s' failed to parse\n", ent->name);
6327	} else if (list != NULL) {
6328	xmlFreeNodeList(list);
6329	list = NULL;
6330	} else if (ent->owner != 1) {
6331	ctxt->nbentities += ent->owner;
6332	}
6333	}
6334	ent->checked = 1;
6335	}
6336
6337	if (ent->children == NULL) {
6338	/*
6339	* Probably running in SAX mode and the callbacks don't
6340	* build the entity content. So unless we already went
6341	* though parsing for first checking go though the entity
6342	* content to generate callbacks associated to the entity
6343	*/
6344	if (was_checked == 1) {
6345	void *user_data;
6346	/*
6347	* This is a bit hackish but this seems the best
6348	* way to make sure both SAX and DOM entity support
6349	* behaves okay.
6350	*/
6351	if (ctxt->userData == ctxt)
6352	user_data = NULL;
6353	else
6354	user_data = ctxt->userData;
6355
6356	if (ent->etype == XML_INTERNAL_GENERAL_ENTITY) {
6357	ctxt->depth++;
6358	ret = xmlParseBalancedChunkMemoryInternal(ctxt,
6359	ent->content, user_data, NULL);
6360	ctxt->depth--;
6361	} else if (ent->etype ==
6362	XML_EXTERNAL_GENERAL_PARSED_ENTITY) {
6363	ctxt->depth++;
6364	ret = xmlParseExternalEntityPrivate(ctxt->myDoc, ctxt,
6365	ctxt->sax, user_data, ctxt->depth,
6366	ent->URI, ent->ExternalID, NULL);
6367	ctxt->depth--;
6368	} else {
6369	ret = XML_ERR_ENTITY_PE_INTERNAL;
6370	xmlErrMsgStr(ctxt, XML_ERR_INTERNAL_ERROR,
6371	"invalid entity type found\n", NULL);
6372	}
6373	if (ret == XML_ERR_ENTITY_LOOP) {
6374	xmlFatalErr(ctxt, XML_ERR_ENTITY_LOOP, NULL);
6375	return;
6376	}
6377	}
6378	if ((ctxt->sax != NULL) && (ctxt->sax->reference != NULL) &&
6379	(ctxt->replaceEntities == 0) && (!ctxt->disableSAX)) {
6380	/*
6381	* Entity reference callback comes second, it's somewhat
6382	* superfluous but a compatibility to historical behaviour
6383	*/
6384	ctxt->sax->reference(ctxt->userData, ent->name);
6385	}
6386	return;
6387	}
6388	if ((ctxt->sax != NULL) && (ctxt->sax->reference != NULL) &&
6389	(ctxt->replaceEntities == 0) && (!ctxt->disableSAX)) {
6390	/*
6391	* Create a node.
6392	*/
6393	ctxt->sax->reference(ctxt->userData, ent->name);
6394	return;
6395	}
6396	if ((ctxt->replaceEntities) \|\| (ent->children == NULL)) {
6397	/*
6398	* There is a problem on the handling of _private for entities
6399	* (bug 155816): Should we copy the content of the field from
6400	* the entity (possibly overwriting some value set by the user
6401	* when a copy is created), should we leave it alone, or should
6402	* we try to take care of different situations? The problem
6403	* is exacerbated by the usage of this field by the xmlReader.
6404	* To fix this bug, we look at _private on the created node
6405	* and, if it's NULL, we copy in whatever was in the entity.
6406	* If it's not NULL we leave it alone. This is somewhat of a
6407	* hack - maybe we should have further tests to determine
6408	* what to do.
6409	*/
6410	if ((ctxt->node != NULL) && (ent->children != NULL)) {
6411	/*
6412	* Seems we are generating the DOM content, do
6413	* a simple tree copy for all references except the first
6414	* In the first occurrence list contains the replacement.
6415	* progressive == 2 means we are operating on the Reader
6416	* and since nodes are discarded we must copy all the time.
6417	*/
6418	if (((list == NULL) && (ent->owner == 0)) \|\|
6419	(ctxt->parseMode == XML_PARSE_READER)) {
6420	xmlNodePtr nw = NULL, cur, firstChild = NULL;
6421
6422	/*
6423	* when operating on a reader, the entities definitions
6424	* are always owning the entities subtree.
6425	if (ctxt->parseMode == XML_PARSE_READER)
6426	ent->owner = 1;
6427	*/
6428
6429	cur = ent->children;
6430	while (cur != NULL) {
6431	nw = xmlDocCopyNode(cur, ctxt->myDoc, 1);
6432	if (nw != NULL) {
6433	if (nw->_private == NULL)
6434	nw->_private = cur->_private;
6435	if (firstChild == NULL){
6436	firstChild = nw;
6437	}
6438	nw = xmlAddChild(ctxt->node, nw);
6439	}
6440	if (cur == ent->last) {
6441	/*
6442	* needed to detect some strange empty
6443	* node cases in the reader tests
6444	*/
6445	if ((ctxt->parseMode == XML_PARSE_READER) &&
6446	(nw != NULL) &&
6447	(nw->type == XML_ELEMENT_NODE) &&
6448	(nw->children == NULL))
6449	nw->extra = 1;
6450
6451	break;
6452	}
6453	cur = cur->next;
6454	}
6455	#ifdef LIBXML_LEGACY_ENABLED
6456	if (ent->etype == XML_EXTERNAL_GENERAL_PARSED_ENTITY)
6457	xmlAddEntityReference(ent, firstChild, nw);
6458	#endif /* LIBXML_LEGACY_ENABLED */
6459	} else if (list == NULL) {
6460	xmlNodePtr nw = NULL, cur, next, last,
6461	firstChild = NULL;
6462	/*
6463	* Copy the entity child list and make it the new
6464	* entity child list. The goal is to make sure any
6465	* ID or REF referenced will be the one from the
6466	* document content and not the entity copy.
6467	*/
6468	cur = ent->children;
6469	ent->children = NULL;
6470	last = ent->last;
6471	ent->last = NULL;
6472	while (cur != NULL) {
6473	next = cur->next;
6474	cur->next = NULL;
6475	cur->parent = NULL;
6476	nw = xmlDocCopyNode(cur, ctxt->myDoc, 1);
6477	if (nw != NULL) {
6478	if (nw->_private == NULL)
6479	nw->_private = cur->_private;
6480	if (firstChild == NULL){
6481	firstChild = cur;
6482	}
6483	xmlAddChild((xmlNodePtr) ent, nw);
6484	xmlAddChild(ctxt->node, cur);
6485	}
6486	if (cur == last)
6487	break;
6488	cur = next;
6489	}
6490	if (ent->owner == 0)
6491	ent->owner = 1;
6492	#ifdef LIBXML_LEGACY_ENABLED
6493	if (ent->etype == XML_EXTERNAL_GENERAL_PARSED_ENTITY)
6494	xmlAddEntityReference(ent, firstChild, nw);
6495	#endif /* LIBXML_LEGACY_ENABLED */
6496	} else {
6497	const xmlChar *nbktext;
6498
6499	/*
6500	* the name change is to avoid coalescing of the
6501	* node with a possible previous text one which
6502	* would make ent->children a dangling pointer
6503	*/
6504	nbktext = xmlDictLookup(ctxt->dict, BAD_CAST "nbktext",
6505	-1);
6506	if (ent->children->type == XML_TEXT_NODE)
6507	ent->children->name = nbktext;
6508	if ((ent->last != ent->children) &&
6509	(ent->last->type == XML_TEXT_NODE))
6510	ent->last->name = nbktext;
6511	xmlAddChildList(ctxt->node, ent->children);
6512	}
6513
6514	/*
6515	* This is to avoid a nasty side effect, see
6516	* characters() in SAX.c
6517	*/
6518	ctxt->nodemem = 0;
6519	ctxt->nodelen = 0;
6520	return;
6521	}
6522	}
6523	} else {
6524	val = ent->content;
6525	if (val == NULL) return;
6526	/*
6527	* inline the entity.
6528	*/
6529	if ((ctxt->sax != NULL) && (ctxt->sax->characters != NULL) &&
6530	(!ctxt->disableSAX))
6531	ctxt->sax->characters(ctxt->userData, val, xmlStrlen(val));
6532	}
6533	}
6534	}
6535
6536	/**
6537	* xmlParseEntityRef:
6538	* @ctxt: an XML parser context
6539	*
6540	* parse ENTITY references declarations
6541	*
6542	* [68] EntityRef ::= '&' Name ';'
6543	*
6544	* [ WFC: Entity Declared ]
6545	* In a document without any DTD, a document with only an internal DTD
6546	* subset which contains no parameter entity references, or a document
6547	* with "standalone='yes'", the Name given in the entity reference
6548	* must match that in an entity declaration, except that well-formed
6549	* documents need not declare any of the following entities: amp, lt,
6550	* gt, apos, quot. The declaration of a parameter entity must precede
6551	* any reference to it. Similarly, the declaration of a general entity
6552	* must precede any reference to it which appears in a default value in an
6553	* attribute-list declaration. Note that if entities are declared in the
6554	* external subset or in external parameter entities, a non-validating
6555	* processor is not obligated to read and process their declarations;
6556	* for such documents, the rule that an entity must be declared is a
6557	* well-formedness constraint only if standalone='yes'.
6558	*
6559	* [ WFC: Parsed Entity ]
6560	* An entity reference must not contain the name of an unparsed entity
6561	*
6562	* Returns the xmlEntityPtr if found, or NULL otherwise.
6563	*/
6564	xmlEntityPtr
6565	xmlParseEntityRef(xmlParserCtxtPtr ctxt) {
6566	const xmlChar *name;
6567	xmlEntityPtr ent = NULL;
6568
6569	GROW;
6570
6571	if (RAW == '&') {
6572	NEXT;
6573	name = xmlParseName(ctxt);
6574	if (name == NULL) {
6575	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
6576	"xmlParseEntityRef: no name\n");
6577	} else {
6578	if (RAW == ';') {
6579	NEXT;
6580	/*
6581	* Increase the number of entity references parsed
6582	*/
6583	ctxt->nbentities++;
6584
6585	/*
6586	* Ask first SAX for entity resolution, otherwise try the
6587	* predefined set.
6588	*/
6589	if (ctxt->sax != NULL) {
6590	if (ctxt->sax->getEntity != NULL)
6591	ent = ctxt->sax->getEntity(ctxt->userData, name);
6592	if ((ctxt->wellFormed == 1 ) && (ent == NULL))
6593	ent = xmlGetPredefinedEntity(name);
6594	if ((ctxt->wellFormed == 1 ) && (ent == NULL) &&
6595	(ctxt->userData==ctxt)) {
6596	ent = xmlSAX2GetEntity(ctxt, name);
6597	}
6598	}
6599	/*
6600	* [ WFC: Entity Declared ]
6601	* In a document without any DTD, a document with only an
6602	* internal DTD subset which contains no parameter entity
6603	* references, or a document with "standalone='yes'", the
6604	* Name given in the entity reference must match that in an
6605	* entity declaration, except that well-formed documents
6606	* need not declare any of the following entities: amp, lt,
6607	* gt, apos, quot.
6608	* The declaration of a parameter entity must precede any
6609	* reference to it.
6610	* Similarly, the declaration of a general entity must
6611	* precede any reference to it which appears in a default
6612	* value in an attribute-list declaration. Note that if
6613	* entities are declared in the external subset or in
6614	* external parameter entities, a non-validating processor
6615	* is not obligated to read and process their declarations;
6616	* for such documents, the rule that an entity must be
6617	* declared is a well-formedness constraint only if
6618	* standalone='yes'.
6619	*/
6620	if (ent == NULL) {
6621	if ((ctxt->standalone == 1) \|\|
6622	((ctxt->hasExternalSubset == 0) &&
6623	(ctxt->hasPErefs == 0))) {
6624	xmlFatalErrMsgStr(ctxt, XML_ERR_UNDECLARED_ENTITY,
6625	"Entity '%s' not defined\n", name);
6626	} else {
6627	xmlErrMsgStr(ctxt, XML_WAR_UNDECLARED_ENTITY,
6628	"Entity '%s' not defined\n", name);
6629	if ((ctxt->inSubset == 0) &&
6630	(ctxt->sax != NULL) &&
6631	(ctxt->sax->reference != NULL)) {
6632	ctxt->sax->reference(ctxt->userData, name);
6633	}
6634	}
6635	ctxt->valid = 0;
6636	}
6637
6638	/*
6639	* [ WFC: Parsed Entity ]
6640	* An entity reference must not contain the name of an
6641	* unparsed entity
6642	*/
6643	else if (ent->etype == XML_EXTERNAL_GENERAL_UNPARSED_ENTITY) {
6644	xmlFatalErrMsgStr(ctxt, XML_ERR_UNPARSED_ENTITY,
6645	"Entity reference to unparsed entity %s\n", name);
6646	}
6647
6648	/*
6649	* [ WFC: No External Entity References ]
6650	* Attribute values cannot contain direct or indirect
6651	* entity references to external entities.
6652	*/
6653	else if ((ctxt->instate == XML_PARSER_ATTRIBUTE_VALUE) &&
6654	(ent->etype == XML_EXTERNAL_GENERAL_PARSED_ENTITY)) {
6655	xmlFatalErrMsgStr(ctxt, XML_ERR_ENTITY_IS_EXTERNAL,
6656	"Attribute references external entity '%s'\n", name);
6657	}
6658	/*
6659	* [ WFC: No < in Attribute Values ]
6660	* The replacement text of any entity referred to directly or
6661	* indirectly in an attribute value (other than "<") must
6662	* not contain a <.
6663	*/
6664	else if ((ctxt->instate == XML_PARSER_ATTRIBUTE_VALUE) &&
6665	(ent != NULL) &&
6666	(!xmlStrEqual(ent->name, BAD_CAST "lt")) &&
6667	(ent->content != NULL) &&
6668	(xmlStrchr(ent->content, '<'))) {
6669	xmlFatalErrMsgStr(ctxt, XML_ERR_LT_IN_ATTRIBUTE,
6670	"'<' in entity '%s' is not allowed in attributes values\n", name);
6671	}
6672
6673	/*
6674	* Internal check, no parameter entities here ...
6675	*/
6676	else {
6677	switch (ent->etype) {
6678	case XML_INTERNAL_PARAMETER_ENTITY:
6679	case XML_EXTERNAL_PARAMETER_ENTITY:
6680	xmlFatalErrMsgStr(ctxt, XML_ERR_ENTITY_IS_PARAMETER,
6681	"Attempt to reference the parameter entity '%s'\n",
6682	name);
6683	break;
6684	default:
6685	break;
6686	}
6687	}
6688
6689	/*
6690	* [ WFC: No Recursion ]
6691	* A parsed entity must not contain a recursive reference
6692	* to itself, either directly or indirectly.
6693	* Done somewhere else
6694	*/
6695
6696	} else {
6697	xmlFatalErr(ctxt, XML_ERR_ENTITYREF_SEMICOL_MISSING, NULL);
6698	}
6699	}
6700	}
6701	return(ent);
6702	}
6703
6704	/**
6705	* xmlParseStringEntityRef:
6706	* @ctxt: an XML parser context
6707	* @str: a pointer to an index in the string
6708	*
6709	* parse ENTITY references declarations, but this version parses it from
6710	* a string value.
6711	*
6712	* [68] EntityRef ::= '&' Name ';'
6713	*
6714	* [ WFC: Entity Declared ]
6715	* In a document without any DTD, a document with only an internal DTD
6716	* subset which contains no parameter entity references, or a document
6717	* with "standalone='yes'", the Name given in the entity reference
6718	* must match that in an entity declaration, except that well-formed
6719	* documents need not declare any of the following entities: amp, lt,
6720	* gt, apos, quot. The declaration of a parameter entity must precede
6721	* any reference to it. Similarly, the declaration of a general entity
6722	* must precede any reference to it which appears in a default value in an
6723	* attribute-list declaration. Note that if entities are declared in the
6724	* external subset or in external parameter entities, a non-validating
6725	* processor is not obligated to read and process their declarations;
6726	* for such documents, the rule that an entity must be declared is a
6727	* well-formedness constraint only if standalone='yes'.
6728	*
6729	* [ WFC: Parsed Entity ]
6730	* An entity reference must not contain the name of an unparsed entity
6731	*
6732	* Returns the xmlEntityPtr if found, or NULL otherwise. The str pointer
6733	* is updated to the current location in the string.
6734	*/
6735	xmlEntityPtr
6736	xmlParseStringEntityRef(xmlParserCtxtPtr ctxt, const xmlChar ** str) {
6737	xmlChar *name;
6738	const xmlChar *ptr;
6739	xmlChar cur;
6740	xmlEntityPtr ent = NULL;
6741
6742	if ((str == NULL) \|\| (*str == NULL))
6743	return(NULL);
6744	ptr = *str;
6745	cur = *ptr;
6746	if (cur == '&') {
6747	ptr++;
6748	cur = *ptr;
6749	name = xmlParseStringName(ctxt, &ptr);
6750	if (name == NULL) {
6751	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
6752	"xmlParseStringEntityRef: no name\n");
6753	} else {
6754	if (*ptr == ';') {
6755	ptr++;
6756	/*
6757	* Increase the number of entity references parsed
6758	*/
6759	ctxt->nbentities++;
6760	/*
6761	* Ask first SAX for entity resolution, otherwise try the
6762	* predefined set.
6763	*/
6764	if (ctxt->sax != NULL) {
6765	if (ctxt->sax->getEntity != NULL)
6766	ent = ctxt->sax->getEntity(ctxt->userData, name);
6767	if (ent == NULL)
6768	ent = xmlGetPredefinedEntity(name);
6769	if ((ent == NULL) && (ctxt->userData==ctxt)) {
6770	ent = xmlSAX2GetEntity(ctxt, name);
6771	}
6772	}
6773	/*
6774	* [ WFC: Entity Declared ]
6775	* In a document without any DTD, a document with only an
6776	* internal DTD subset which contains no parameter entity
6777	* references, or a document with "standalone='yes'", the
6778	* Name given in the entity reference must match that in an
6779	* entity declaration, except that well-formed documents
6780	* need not declare any of the following entities: amp, lt,
6781	* gt, apos, quot.
6782	* The declaration of a parameter entity must precede any
6783	* reference to it.
6784	* Similarly, the declaration of a general entity must
6785	* precede any reference to it which appears in a default
6786	* value in an attribute-list declaration. Note that if
6787	* entities are declared in the external subset or in
6788	* external parameter entities, a non-validating processor
6789	* is not obligated to read and process their declarations;
6790	* for such documents, the rule that an entity must be
6791	* declared is a well-formedness constraint only if
6792	* standalone='yes'.
6793	*/
6794	if (ent == NULL) {
6795	if ((ctxt->standalone == 1) \|\|
6796	((ctxt->hasExternalSubset == 0) &&
6797	(ctxt->hasPErefs == 0))) {
6798	xmlFatalErrMsgStr(ctxt, XML_ERR_UNDECLARED_ENTITY,
6799	"Entity '%s' not defined\n", name);
6800	} else {
6801	xmlErrMsgStr(ctxt, XML_WAR_UNDECLARED_ENTITY,
6802	"Entity '%s' not defined\n",
6803	name);
6804	}
6805	/* TODO ? check regressions ctxt->valid = 0; */
6806	}
6807
6808	/*
6809	* [ WFC: Parsed Entity ]
6810	* An entity reference must not contain the name of an
6811	* unparsed entity
6812	*/
6813	else if (ent->etype == XML_EXTERNAL_GENERAL_UNPARSED_ENTITY) {
6814	xmlFatalErrMsgStr(ctxt, XML_ERR_UNPARSED_ENTITY,
6815	"Entity reference to unparsed entity %s\n", name);
6816	}
6817
6818	/*
6819	* [ WFC: No External Entity References ]
6820	* Attribute values cannot contain direct or indirect
6821	* entity references to external entities.
6822	*/
6823	else if ((ctxt->instate == XML_PARSER_ATTRIBUTE_VALUE) &&
6824	(ent->etype == XML_EXTERNAL_GENERAL_PARSED_ENTITY)) {
6825	xmlFatalErrMsgStr(ctxt, XML_ERR_ENTITY_IS_EXTERNAL,
6826	"Attribute references external entity '%s'\n", name);
6827	}
6828	/*
6829	* [ WFC: No < in Attribute Values ]
6830	* The replacement text of any entity referred to directly or
6831	* indirectly in an attribute value (other than "<") must
6832	* not contain a <.
6833	*/
6834	else if ((ctxt->instate == XML_PARSER_ATTRIBUTE_VALUE) &&
6835	(ent != NULL) &&
6836	(!xmlStrEqual(ent->name, BAD_CAST "lt")) &&
6837	(ent->content != NULL) &&
6838	(xmlStrchr(ent->content, '<'))) {
6839	xmlFatalErrMsgStr(ctxt, XML_ERR_LT_IN_ATTRIBUTE,
6840	"'<' in entity '%s' is not allowed in attributes values\n",
6841	name);
6842	}
6843
6844	/*
6845	* Internal check, no parameter entities here ...
6846	*/
6847	else {
6848	switch (ent->etype) {
6849	case XML_INTERNAL_PARAMETER_ENTITY:
6850	case XML_EXTERNAL_PARAMETER_ENTITY:
6851	xmlFatalErrMsgStr(ctxt, XML_ERR_ENTITY_IS_PARAMETER,
6852	"Attempt to reference the parameter entity '%s'\n",
6853	name);
6854	break;
6855	default:
6856	break;
6857	}
6858	}
6859
6860	/*
6861	* [ WFC: No Recursion ]
6862	* A parsed entity must not contain a recursive reference
6863	* to itself, either directly or indirectly.
6864	* Done somewhere else
6865	*/
6866
6867	} else {
6868	xmlFatalErr(ctxt, XML_ERR_ENTITYREF_SEMICOL_MISSING, NULL);
6869	}
6870	xmlFree(name);
6871	}
6872	}
6873	*str = ptr;
6874	return(ent);
6875	}
6876
6877	/**
6878	* xmlParsePEReference:
6879	* @ctxt: an XML parser context
6880	*
6881	* parse PEReference declarations
6882	* The entity content is handled directly by pushing it's content as
6883	* a new input stream.
6884	*
6885	* [69] PEReference ::= '%' Name ';'
6886	*
6887	* [ WFC: No Recursion ]
6888	* A parsed entity must not contain a recursive
6889	* reference to itself, either directly or indirectly.
6890	*
6891	* [ WFC: Entity Declared ]
6892	* In a document without any DTD, a document with only an internal DTD
6893	* subset which contains no parameter entity references, or a document
6894	* with "standalone='yes'", ... ... The declaration of a parameter
6895	* entity must precede any reference to it...
6896	*
6897	* [ VC: Entity Declared ]
6898	* In a document with an external subset or external parameter entities
6899	* with "standalone='no'", ... ... The declaration of a parameter entity
6900	* must precede any reference to it...
6901	*
6902	* [ WFC: In DTD ]
6903	* Parameter-entity references may only appear in the DTD.
6904	* NOTE: misleading but this is handled.
6905	*/
6906	void
6907	xmlParsePEReference(xmlParserCtxtPtr ctxt)
6908	{
6909	const xmlChar *name;
6910	xmlEntityPtr entity = NULL;
6911	xmlParserInputPtr input;
6912
6913	if (RAW == '%') {
6914	NEXT;
6915	name = xmlParseName(ctxt);
6916	if (name == NULL) {
6917	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
6918	"xmlParsePEReference: no name\n");
6919	} else {
6920	if (RAW == ';') {
6921	NEXT;
6922	/*
6923	* Increase the number of entity references parsed
6924	*/
6925	ctxt->nbentities++;
6926
6927	if ((ctxt->sax != NULL) &&
6928	(ctxt->sax->getParameterEntity != NULL))
6929	entity = ctxt->sax->getParameterEntity(ctxt->userData,
6930	name);
6931	if (entity == NULL) {
6932	/*
6933	* [ WFC: Entity Declared ]
6934	* In a document without any DTD, a document with only an
6935	* internal DTD subset which contains no parameter entity
6936	* references, or a document with "standalone='yes'", ...
6937	* ... The declaration of a parameter entity must precede
6938	* any reference to it...
6939	*/
6940	if ((ctxt->standalone == 1) \|\|
6941	((ctxt->hasExternalSubset == 0) &&
6942	(ctxt->hasPErefs == 0))) {
6943	xmlFatalErrMsgStr(ctxt, XML_ERR_UNDECLARED_ENTITY,
6944	"PEReference: %%%s; not found\n",
6945	name);
6946	} else {
6947	/*
6948	* [ VC: Entity Declared ]
6949	* In a document with an external subset or external
6950	* parameter entities with "standalone='no'", ...
6951	* ... The declaration of a parameter entity must
6952	* precede any reference to it...
6953	*/
6954	xmlWarningMsg(ctxt, XML_WAR_UNDECLARED_ENTITY,
6955	"PEReference: %%%s; not found\n",
6956	name, NULL);
6957	ctxt->valid = 0;
6958	}
6959	} else {
6960	/*
6961	* Internal checking in case the entity quest barfed
6962	*/
6963	if ((entity->etype != XML_INTERNAL_PARAMETER_ENTITY) &&
6964	(entity->etype != XML_EXTERNAL_PARAMETER_ENTITY)) {
6965	xmlWarningMsg(ctxt, XML_WAR_UNDECLARED_ENTITY,
6966	"Internal: %%%s; is not a parameter entity\n",
6967	name, NULL);
6968	} else if (ctxt->input->free != deallocblankswrapper) {
6969	input =
6970	xmlNewBlanksWrapperInputStream(ctxt, entity);
6971	xmlPushInput(ctxt, input);
6972	} else {
6973	/*
6974	* TODO !!!
6975	* handle the extra spaces added before and after
6976	* c.f. http://www.w3.org/TR/REC-xml#as-PE
6977	*/
6978	input = xmlNewEntityInputStream(ctxt, entity);
6979	xmlPushInput(ctxt, input);
6980	if ((entity->etype == XML_EXTERNAL_PARAMETER_ENTITY) &&
6981	(CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) &&
6982	(IS_BLANK_CH(NXT(5)))) {
6983	xmlParseTextDecl(ctxt);
6984	if (ctxt->errNo ==
6985	XML_ERR_UNSUPPORTED_ENCODING) {
6986	/*
6987	* The XML REC instructs us to stop parsing
6988	* right here
6989	*/
6990	ctxt->instate = XML_PARSER_EOF;
6991	return;
6992	}
6993	}
6994	}
6995	}
6996	ctxt->hasPErefs = 1;
6997	} else {
6998	xmlFatalErr(ctxt, XML_ERR_ENTITYREF_SEMICOL_MISSING, NULL);
6999	}
7000	}
7001	}
7002	}
7003
7004	/**
7005	* xmlParseStringPEReference:
7006	* @ctxt: an XML parser context
7007	* @str: a pointer to an index in the string
7008	*
7009	* parse PEReference declarations
7010	*
7011	* [69] PEReference ::= '%' Name ';'
7012	*
7013	* [ WFC: No Recursion ]
7014	* A parsed entity must not contain a recursive
7015	* reference to itself, either directly or indirectly.
7016	*
7017	* [ WFC: Entity Declared ]
7018	* In a document without any DTD, a document with only an internal DTD
7019	* subset which contains no parameter entity references, or a document
7020	* with "standalone='yes'", ... ... The declaration of a parameter
7021	* entity must precede any reference to it...
7022	*
7023	* [ VC: Entity Declared ]
7024	* In a document with an external subset or external parameter entities
7025	* with "standalone='no'", ... ... The declaration of a parameter entity
7026	* must precede any reference to it...
7027	*
7028	* [ WFC: In DTD ]
7029	* Parameter-entity references may only appear in the DTD.
7030	* NOTE: misleading but this is handled.
7031	*
7032	* Returns the string of the entity content.
7033	* str is updated to the current value of the index
7034	*/
7035	xmlEntityPtr
7036	xmlParseStringPEReference(xmlParserCtxtPtr ctxt, const xmlChar **str) {
7037	const xmlChar *ptr;
7038	xmlChar cur;
7039	xmlChar *name;
7040	xmlEntityPtr entity = NULL;
7041
7042	if ((str == NULL) \|\| (*str == NULL)) return(NULL);
7043	ptr = *str;
7044	cur = *ptr;
7045	if (cur == '%') {
7046	ptr++;
7047	cur = *ptr;
7048	name = xmlParseStringName(ctxt, &ptr);
7049	if (name == NULL) {
7050	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
7051	"xmlParseStringPEReference: no name\n");
7052	} else {
7053	cur = *ptr;
7054	if (cur == ';') {
7055	ptr++;
7056	cur = *ptr;
7057	/*
7058	* Increase the number of entity references parsed
7059	*/
7060	ctxt->nbentities++;
7061
7062	if ((ctxt->sax != NULL) &&
7063	(ctxt->sax->getParameterEntity != NULL))
7064	entity = ctxt->sax->getParameterEntity(ctxt->userData,
7065	name);
7066	if (entity == NULL) {
7067	/*
7068	* [ WFC: Entity Declared ]
7069	* In a document without any DTD, a document with only an
7070	* internal DTD subset which contains no parameter entity
7071	* references, or a document with "standalone='yes'", ...
7072	* ... The declaration of a parameter entity must precede
7073	* any reference to it...
7074	*/
7075	if ((ctxt->standalone == 1) \|\|
7076	((ctxt->hasExternalSubset == 0) &&
7077	(ctxt->hasPErefs == 0))) {
7078	xmlFatalErrMsgStr(ctxt, XML_ERR_UNDECLARED_ENTITY,
7079	"PEReference: %%%s; not found\n", name);
7080	} else {
7081	/*
7082	* [ VC: Entity Declared ]
7083	* In a document with an external subset or external
7084	* parameter entities with "standalone='no'", ...
7085	* ... The declaration of a parameter entity must
7086	* precede any reference to it...
7087	*/
7088	xmlWarningMsg(ctxt, XML_WAR_UNDECLARED_ENTITY,
7089	"PEReference: %%%s; not found\n",
7090	name, NULL);
7091	ctxt->valid = 0;
7092	}
7093	} else {
7094	/*
7095	* Internal checking in case the entity quest barfed
7096	*/
7097	if ((entity->etype != XML_INTERNAL_PARAMETER_ENTITY) &&
7098	(entity->etype != XML_EXTERNAL_PARAMETER_ENTITY)) {
7099	xmlWarningMsg(ctxt, XML_WAR_UNDECLARED_ENTITY,
7100	"%%%s; is not a parameter entity\n",
7101	name, NULL);
7102	}
7103	}
7104	ctxt->hasPErefs = 1;
7105	} else {
7106	xmlFatalErr(ctxt, XML_ERR_ENTITYREF_SEMICOL_MISSING, NULL);
7107	}
7108	xmlFree(name);
7109	}
7110	}
7111	*str = ptr;
7112	return(entity);
7113	}
7114
7115	/**
7116	* xmlParseDocTypeDecl:
7117	* @ctxt: an XML parser context
7118	*
7119	* parse a DOCTYPE declaration
7120	*
7121	* [28] doctypedecl ::= '<!DOCTYPE' S Name (S ExternalID)? S?
7122	* ('[' (markupdecl \| PEReference \| S)* ']' S?)? '>'
7123	*
7124	* [ VC: Root Element Type ]
7125	* The Name in the document type declaration must match the element
7126	* type of the root element.
7127	*/
7128
7129	void
7130	xmlParseDocTypeDecl(xmlParserCtxtPtr ctxt) {
7131	const xmlChar *name = NULL;
7132	xmlChar *ExternalID = NULL;
7133	xmlChar *URI = NULL;
7134
7135	/*
7136	* We know that '<!DOCTYPE' has been detected.
7137	*/
7138	SKIP(9);
7139
7140	SKIP_BLANKS;
7141
7142	/*
7143	* Parse the DOCTYPE name.
7144	*/
7145	name = xmlParseName(ctxt);
7146	if (name == NULL) {
7147	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
7148	"xmlParseDocTypeDecl : no DOCTYPE name !\n");
7149	}
7150	ctxt->intSubName = name;
7151
7152	SKIP_BLANKS;
7153
7154	/*
7155	* Check for SystemID and ExternalID
7156	*/
7157	URI = xmlParseExternalID(ctxt, &ExternalID, 1);
7158
7159	if ((URI != NULL) \|\| (ExternalID != NULL)) {
7160	ctxt->hasExternalSubset = 1;
7161	}
7162	ctxt->extSubURI = URI;
7163	ctxt->extSubSystem = ExternalID;
7164
7165	SKIP_BLANKS;
7166
7167	/*
7168	* Create and update the internal subset.
7169	*/
7170	if ((ctxt->sax != NULL) && (ctxt->sax->internalSubset != NULL) &&
7171	(!ctxt->disableSAX))
7172	ctxt->sax->internalSubset(ctxt->userData, name, ExternalID, URI);
7173
7174	/*
7175	* Is there any internal subset declarations ?
7176	* they are handled separately in xmlParseInternalSubset()
7177	*/
7178	if (RAW == '[')
7179	return;
7180
7181	/*
7182	* We should be at the end of the DOCTYPE declaration.
7183	*/
7184	if (RAW != '>') {
7185	xmlFatalErr(ctxt, XML_ERR_DOCTYPE_NOT_FINISHED, NULL);
7186	}
7187	NEXT;
7188	}
7189
7190	/**
7191	* xmlParseInternalSubset:
7192	* @ctxt: an XML parser context
7193	*
7194	* parse the internal subset declaration
7195	*
7196	* [28 end] ('[' (markupdecl \| PEReference \| S)* ']' S?)? '>'
7197	*/
7198
7199	static void
7200	xmlParseInternalSubset(xmlParserCtxtPtr ctxt) {
7201	/*
7202	* Is there any DTD definition ?
7203	*/
7204	if (RAW == '[') {
7205	ctxt->instate = XML_PARSER_DTD;
7206	NEXT;
7207	/*
7208	* Parse the succession of Markup declarations and
7209	* PEReferences.
7210	* Subsequence (markupdecl \| PEReference \| S)*
7211	*/
7212	while (RAW != ']') {
7213	const xmlChar *check = CUR_PTR;
7214	unsigned int cons = ctxt->input->consumed;
7215
7216	SKIP_BLANKS;
7217	xmlParseMarkupDecl(ctxt);
7218	xmlParsePEReference(ctxt);
7219
7220	/*
7221	* Pop-up of finished entities.
7222	*/
7223	while ((RAW == 0) && (ctxt->inputNr > 1))
7224	xmlPopInput(ctxt);
7225
7226	if ((CUR_PTR == check) && (cons == ctxt->input->consumed)) {
7227	xmlFatalErr(ctxt, XML_ERR_INTERNAL_ERROR,
7228	"xmlParseInternalSubset: error detected in Markup declaration\n");
7229	break;
7230	}
7231	}
7232	if (RAW == ']') {
7233	NEXT;
7234	SKIP_BLANKS;
7235	}
7236	}
7237
7238	/*
7239	* We should be at the end of the DOCTYPE declaration.
7240	*/
7241	if (RAW != '>') {
7242	xmlFatalErr(ctxt, XML_ERR_DOCTYPE_NOT_FINISHED, NULL);
7243	}
7244	NEXT;
7245	}
7246
7247	#ifdef LIBXML_SAX1_ENABLED
7248	/**
7249	* xmlParseAttribute:
7250	* @ctxt: an XML parser context
7251	* @value: a xmlChar ** used to store the value of the attribute
7252	*
7253	* parse an attribute
7254	*
7255	* [41] Attribute ::= Name Eq AttValue
7256	*
7257	* [ WFC: No External Entity References ]
7258	* Attribute values cannot contain direct or indirect entity references
7259	* to external entities.
7260	*
7261	* [ WFC: No < in Attribute Values ]
7262	* The replacement text of any entity referred to directly or indirectly in
7263	* an attribute value (other than "<") must not contain a <.
7264	*
7265	* [ VC: Attribute Value Type ]
7266	* The attribute must have been declared; the value must be of the type
7267	* declared for it.
7268	*
7269	* [25] Eq ::= S? '=' S?
7270	*
7271	* With namespace:
7272	*
7273	* [NS 11] Attribute ::= QName Eq AttValue
7274	*
7275	* Also the case QName == xmlns:??? is handled independently as a namespace
7276	* definition.
7277	*
7278	* Returns the attribute name, and the value in *value.
7279	*/
7280
7281	const xmlChar *
7282	xmlParseAttribute(xmlParserCtxtPtr ctxt, xmlChar **value) {
7283	const xmlChar *name;
7284	xmlChar *val;
7285
7286	*value = NULL;
7287	GROW;
7288	name = xmlParseName(ctxt);
7289	if (name == NULL) {
7290	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
7291	"error parsing attribute name\n");
7292	return(NULL);
7293	}
7294
7295	/*
7296	* read the value
7297	*/
7298	SKIP_BLANKS;
7299	if (RAW == '=') {
7300	NEXT;
7301	SKIP_BLANKS;
7302	val = xmlParseAttValue(ctxt);
7303	ctxt->instate = XML_PARSER_CONTENT;
7304	} else {
7305	xmlFatalErrMsgStr(ctxt, XML_ERR_ATTRIBUTE_WITHOUT_VALUE,
7306	"Specification mandate value for attribute %s\n", name);
7307	return(NULL);
7308	}
7309
7310	/*
7311	* Check that xml:lang conforms to the specification
7312	* No more registered as an error, just generate a warning now
7313	* since this was deprecated in XML second edition
7314	*/
7315	if ((ctxt->pedantic) && (xmlStrEqual(name, BAD_CAST "xml:lang"))) {
7316	if (!xmlCheckLanguageID(val)) {
7317	xmlWarningMsg(ctxt, XML_WAR_LANG_VALUE,
7318	"Malformed value for xml:lang : %s\n",
7319	val, NULL);
7320	}
7321	}
7322
7323	/*
7324	* Check that xml:space conforms to the specification
7325	*/
7326	if (xmlStrEqual(name, BAD_CAST "xml:space")) {
7327	if (xmlStrEqual(val, BAD_CAST "default"))
7328	*(ctxt->space) = 0;
7329	else if (xmlStrEqual(val, BAD_CAST "preserve"))
7330	*(ctxt->space) = 1;
7331	else {
7332	xmlWarningMsg(ctxt, XML_WAR_SPACE_VALUE,
7333	"Invalid value \"%s\" for xml:space : \"default\" or \"preserve\" expected\n",
7334	val, NULL);
7335	}
7336	}
7337
7338	*value = val;
7339	return(name);
7340	}
7341
7342	/**
7343	* xmlParseStartTag:
7344	* @ctxt: an XML parser context
7345	*
7346	* parse a start of tag either for rule element or
7347	* EmptyElement. In both case we don't parse the tag closing chars.
7348	*
7349	* [40] STag ::= '<' Name (S Attribute)* S? '>'
7350	*
7351	* [ WFC: Unique Att Spec ]
7352	* No attribute name may appear more than once in the same start-tag or
7353	* empty-element tag.
7354	*
7355	* [44] EmptyElemTag ::= '<' Name (S Attribute)* S? '/>'
7356	*
7357	* [ WFC: Unique Att Spec ]
7358	* No attribute name may appear more than once in the same start-tag or
7359	* empty-element tag.
7360	*
7361	* With namespace:
7362	*
7363	* [NS 8] STag ::= '<' QName (S Attribute)* S? '>'
7364	*
7365	* [NS 10] EmptyElement ::= '<' QName (S Attribute)* S? '/>'
7366	*
7367	* Returns the element name parsed
7368	*/
7369
7370	const xmlChar *
7371	xmlParseStartTag(xmlParserCtxtPtr ctxt) {
7372	const xmlChar *name;
7373	const xmlChar *attname;
7374	xmlChar *attvalue;
7375	const xmlChar **atts = ctxt->atts;
7376	int nbatts = 0;
7377	int maxatts = ctxt->maxatts;
7378	int i;
7379
7380	if (RAW != '<') return(NULL);
7381	NEXT1;
7382
7383	name = xmlParseName(ctxt);
7384	if (name == NULL) {
7385	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
7386	"xmlParseStartTag: invalid element name\n");
7387	return(NULL);
7388	}
7389
7390	/*
7391	* Now parse the attributes, it ends up with the ending
7392	*
7393	* (S Attribute)* S?
7394	*/
7395	SKIP_BLANKS;
7396	GROW;
7397
7398	while ((RAW != '>') &&
7399	((RAW != '/') \|\| (NXT(1) != '>')) &&
7400	(IS_BYTE_CHAR(RAW))) {
7401	const xmlChar *q = CUR_PTR;
7402	unsigned int cons = ctxt->input->consumed;
7403
7404	attname = xmlParseAttribute(ctxt, &attvalue);
7405	if ((attname != NULL) && (attvalue != NULL)) {
7406	/*
7407	* [ WFC: Unique Att Spec ]
7408	* No attribute name may appear more than once in the same
7409	* start-tag or empty-element tag.
7410	*/
7411	for (i = 0; i < nbatts;i += 2) {
7412	if (xmlStrEqual(atts[i], attname)) {
7413	xmlErrAttributeDup(ctxt, NULL, attname);
7414	xmlFree(attvalue);
7415	goto failed;
7416	}
7417	}
7418	/*
7419	* Add the pair to atts
7420	*/
7421	if (atts == NULL) {
7422	maxatts = 22; /* allow for 10 attrs by default */
7423	atts = (const xmlChar **)
7424	xmlMalloc(maxatts * sizeof(xmlChar *));
7425	if (atts == NULL) {
7426	xmlErrMemory(ctxt, NULL);
7427	if (attvalue != NULL)
7428	xmlFree(attvalue);
7429	goto failed;
7430	}
7431	ctxt->atts = atts;
7432	ctxt->maxatts = maxatts;
7433	} else if (nbatts + 4 > maxatts) {
7434	const xmlChar **n;
7435
7436	maxatts *= 2;
7437	n = (const xmlChar *) xmlRealloc((void ) atts,
7438	maxatts * sizeof(const xmlChar *));
7439	if (n == NULL) {
7440	xmlErrMemory(ctxt, NULL);
7441	if (attvalue != NULL)
7442	xmlFree(attvalue);
7443	goto failed;
7444	}
7445	atts = n;
7446	ctxt->atts = atts;
7447	ctxt->maxatts = maxatts;
7448	}
7449	atts[nbatts++] = attname;
7450	atts[nbatts++] = attvalue;
7451	atts[nbatts] = NULL;
7452	atts[nbatts + 1] = NULL;
7453	} else {
7454	if (attvalue != NULL)
7455	xmlFree(attvalue);
7456	}
7457
7458	failed:
7459
7460	GROW
7461	if ((RAW == '>') \|\| (((RAW == '/') && (NXT(1) == '>'))))
7462	break;
7463	if (!IS_BLANK_CH(RAW)) {
7464	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
7465	"attributes construct error\n");
7466	}
7467	SKIP_BLANKS;
7468	if ((cons == ctxt->input->consumed) && (q == CUR_PTR) &&
7469	(attname == NULL) && (attvalue == NULL)) {
7470	xmlFatalErrMsg(ctxt, XML_ERR_INTERNAL_ERROR,
7471	"xmlParseStartTag: problem parsing attributes\n");
7472	break;
7473	}
7474	SHRINK;
7475	GROW;
7476	}
7477
7478	/*
7479	* SAX: Start of Element !
7480	*/
7481	if ((ctxt->sax != NULL) && (ctxt->sax->startElement != NULL) &&
7482	(!ctxt->disableSAX)) {
7483	if (nbatts > 0)
7484	ctxt->sax->startElement(ctxt->userData, name, atts);
7485	else
7486	ctxt->sax->startElement(ctxt->userData, name, NULL);
7487	}
7488
7489	if (atts != NULL) {
7490	/* Free only the content strings */
7491	for (i = 1;i < nbatts;i+=2)
7492	if (atts[i] != NULL)
7493	xmlFree((xmlChar *) atts[i]);
7494	}
7495	return(name);
7496	}
7497
7498	/**
7499	* xmlParseEndTag1:
7500	* @ctxt: an XML parser context
7501	* @line: line of the start tag
7502	* @nsNr: number of namespaces on the start tag
7503	*
7504	* parse an end of tag
7505	*
7506	* [42] ETag ::= '</' Name S? '>'
7507	*
7508	* With namespace
7509	*
7510	* [NS 9] ETag ::= '</' QName S? '>'
7511	*/
7512
7513	static void
7514	xmlParseEndTag1(xmlParserCtxtPtr ctxt, int line) {
7515	const xmlChar *name;
7516
7517	GROW;
7518	if ((RAW != '<') \|\| (NXT(1) != '/')) {
7519	xmlFatalErrMsg(ctxt, XML_ERR_LTSLASH_REQUIRED,
7520	"xmlParseEndTag: '</' not found\n");
7521	return;
7522	}
7523	SKIP(2);
7524
7525	name = xmlParseNameAndCompare(ctxt,ctxt->name);
7526
7527	/*
7528	* We should definitely be at the ending "S? '>'" part
7529	*/
7530	GROW;
7531	SKIP_BLANKS;
7532	if ((!IS_BYTE_CHAR(RAW)) \|\| (RAW != '>')) {
7533	xmlFatalErr(ctxt, XML_ERR_GT_REQUIRED, NULL);
7534	} else
7535	NEXT1;
7536
7537	/*
7538	* [ WFC: Element Type Match ]
7539	* The Name in an element's end-tag must match the element type in the
7540	* start-tag.
7541	*
7542	*/
7543	if (name != (xmlChar*)1) {
7544	if (name == NULL) name = BAD_CAST "unparseable";
7545	xmlFatalErrMsgStrIntStr(ctxt, XML_ERR_TAG_NAME_MISMATCH,
7546	"Opening and ending tag mismatch: %s line %d and %s\n",
7547	ctxt->name, line, name);
7548	}
7549
7550	/*
7551	* SAX: End of Tag
7552	*/
7553	if ((ctxt->sax != NULL) && (ctxt->sax->endElement != NULL) &&
7554	(!ctxt->disableSAX))
7555	ctxt->sax->endElement(ctxt->userData, ctxt->name);
7556
7557	namePop(ctxt);
7558	spacePop(ctxt);
7559	return;
7560	}
7561
7562	/**
7563	* xmlParseEndTag:
7564	* @ctxt: an XML parser context
7565	*
7566	* parse an end of tag
7567	*
7568	* [42] ETag ::= '</' Name S? '>'
7569	*
7570	* With namespace
7571	*
7572	* [NS 9] ETag ::= '</' QName S? '>'
7573	*/
7574
7575	void
7576	xmlParseEndTag(xmlParserCtxtPtr ctxt) {
7577	xmlParseEndTag1(ctxt, 0);
7578	}
7579	#endif /* LIBXML_SAX1_ENABLED */
7580
7581	/************************************************************************
7582	* *
7583	* SAX 2 specific operations *
7584	* *
7585	************************************************************************/
7586
7587	static const xmlChar *
7588	xmlParseNCNameComplex(xmlParserCtxtPtr ctxt) {
7589	int len = 0, l;
7590	int c;
7591	int count = 0;
7592
7593	/*
7594	* Handler for more complex cases
7595	*/
7596	GROW;
7597	c = CUR_CHAR(l);
7598	if ((c == ' ') \|\| (c == '>') \|\| (c == '/') \|\| /* accelerators */
7599	(!IS_LETTER(c) && (c != '_'))) {
7600	return(NULL);
7601	}
7602
7603	while ((c != ' ') && (c != '>') && (c != '/') && /* test bigname.xml */
7604	((IS_LETTER(c)) \|\| (IS_DIGIT(c)) \|\|
7605	(c == '.') \|\| (c == '-') \|\| (c == '_') \|\|
7606	(IS_COMBINING(c)) \|\|
7607	(IS_EXTENDER(c)))) {
7608	if (count++ > 100) {
7609	count = 0;
7610	GROW;
7611	}
7612	len += l;
7613	NEXTL(l);
7614	c = CUR_CHAR(l);
7615	}
7616	return(xmlDictLookup(ctxt->dict, ctxt->input->cur - len, len));
7617	}
7618
7619	/*
7620	* xmlGetNamespace:
7621	* @ctxt: an XML parser context
7622	* @prefix: the prefix to lookup
7623	*
7624	* Lookup the namespace name for the @prefix (which ca be NULL)
7625	* The prefix must come from the @ctxt->dict dictionnary
7626	*
7627	* Returns the namespace name or NULL if not bound
7628	*/
7629	static const xmlChar *
7630	xmlGetNamespace(xmlParserCtxtPtr ctxt, const xmlChar *prefix) {
7631	int i;
7632
7633	if (prefix == ctxt->str_xml) return(ctxt->str_xml_ns);
7634	for (i = ctxt->nsNr - 2;i >= 0;i-=2)
7635	if (ctxt->nsTab[i] == prefix) {
7636	if ((prefix == NULL) && (*ctxt->nsTab[i + 1] == 0))
7637	return(NULL);
7638	return(ctxt->nsTab[i + 1]);
7639	}
7640	return(NULL);
7641	}
7642
7643	/**
7644	* xmlParseNCName:
7645	* @ctxt: an XML parser context
7646	* @len: lenght of the string parsed
7647	*
7648	* parse an XML name.
7649	*
7650	* [4NS] NCNameChar ::= Letter \| Digit \| '.' \| '-' \| '_' \|
7651	* CombiningChar \| Extender
7652	*
7653	* [5NS] NCName ::= (Letter \| '_') (NCNameChar)*
7654	*
7655	* Returns the Name parsed or NULL
7656	*/
7657
7658	static const xmlChar *
7659	xmlParseNCName(xmlParserCtxtPtr ctxt) {
7660	const xmlChar *in;
7661	const xmlChar *ret;
7662	int count = 0;
7663
7664	/*
7665	* Accelerator for simple ASCII names
7666	*/
7667	in = ctxt->input->cur;
7668	if (((in >= 0x61) && (in <= 0x7A)) \|\|
7669	((in >= 0x41) && (in <= 0x5A)) \|\|
7670	(*in == '_')) {
7671	in++;
7672	while (((in >= 0x61) && (in <= 0x7A)) \|\|
7673	((in >= 0x41) && (in <= 0x5A)) \|\|
7674	((in >= 0x30) && (in <= 0x39)) \|\|
7675	(in == '_') \|\| (in == '-') \|\|
7676	(*in == '.'))
7677	in++;
7678	if ((in > 0) && (in < 0x80)) {
7679	count = in - ctxt->input->cur;
7680	ret = xmlDictLookup(ctxt->dict, ctxt->input->cur, count);
7681	ctxt->input->cur = in;
7682	ctxt->nbChars += count;
7683	ctxt->input->col += count;
7684	if (ret == NULL) {
7685	xmlErrMemory(ctxt, NULL);
7686	}
7687	return(ret);
7688	}
7689	}
7690	return(xmlParseNCNameComplex(ctxt));
7691	}
7692
7693	/**
7694	* xmlParseQName:
7695	* @ctxt: an XML parser context
7696	* @prefix: pointer to store the prefix part
7697	*
7698	* parse an XML Namespace QName
7699	*
7700	* [6] QName ::= (Prefix ':')? LocalPart
7701	* [7] Prefix ::= NCName
7702	* [8] LocalPart ::= NCName
7703	*
7704	* Returns the Name parsed or NULL
7705	*/
7706
7707	static const xmlChar *
7708	xmlParseQName(xmlParserCtxtPtr ctxt, const xmlChar **prefix) {
7709	const xmlChar l, p;
7710
7711	GROW;
7712
7713	l = xmlParseNCName(ctxt);
7714	if (l == NULL) {
7715	if (CUR == ':') {
7716	l = xmlParseName(ctxt);
7717	if (l != NULL) {
7718	xmlNsErr(ctxt, XML_NS_ERR_QNAME,
7719	"Failed to parse QName '%s'\n", l, NULL, NULL);
7720	*prefix = NULL;
7721	return(l);
7722	}
7723	}
7724	return(NULL);
7725	}
7726	if (CUR == ':') {
7727	NEXT;
7728	p = l;
7729	l = xmlParseNCName(ctxt);
7730	if (l == NULL) {
7731	xmlChar *tmp;
7732
7733	xmlNsErr(ctxt, XML_NS_ERR_QNAME,
7734	"Failed to parse QName '%s:'\n", p, NULL, NULL);
7735	tmp = xmlBuildQName(BAD_CAST "", p, NULL, 0);
7736	p = xmlDictLookup(ctxt->dict, tmp, -1);
7737	if (tmp != NULL) xmlFree(tmp);
7738	*prefix = NULL;
7739	return(p);
7740	}
7741	if (CUR == ':') {
7742	xmlChar *tmp;
7743
7744	xmlNsErr(ctxt, XML_NS_ERR_QNAME,
7745	"Failed to parse QName '%s:%s:'\n", p, l, NULL);
7746	NEXT;
7747	tmp = (xmlChar *) xmlParseName(ctxt);
7748	if (tmp != NULL) {
7749	tmp = xmlBuildQName(tmp, l, NULL, 0);
7750	l = xmlDictLookup(ctxt->dict, tmp, -1);
7751	if (tmp != NULL) xmlFree(tmp);
7752	*prefix = p;
7753	return(l);
7754	}
7755	tmp = xmlBuildQName(BAD_CAST "", l, NULL, 0);
7756	l = xmlDictLookup(ctxt->dict, tmp, -1);
7757	if (tmp != NULL) xmlFree(tmp);
7758	*prefix = p;
7759	return(l);
7760	}
7761	*prefix = p;
7762	} else
7763	*prefix = NULL;
7764	return(l);
7765	}
7766
7767	/**
7768	* xmlParseQNameAndCompare:
7769	* @ctxt: an XML parser context
7770	* @name: the localname
7771	* @prefix: the prefix, if any.
7772	*
7773	* parse an XML name and compares for match
7774	* (specialized for endtag parsing)
7775	*
7776	* Returns NULL for an illegal name, (xmlChar*) 1 for success
7777	* and the name for mismatch
7778	*/
7779
7780	static const xmlChar *
7781	xmlParseQNameAndCompare(xmlParserCtxtPtr ctxt, xmlChar const *name,
7782	xmlChar const *prefix) {
7783	const xmlChar *cmp = name;
7784	const xmlChar *in;
7785	const xmlChar *ret;
7786	const xmlChar *prefix2;
7787
7788	if (prefix == NULL) return(xmlParseNameAndCompare(ctxt, name));
7789
7790	GROW;
7791	in = ctxt->input->cur;
7792
7793	cmp = prefix;
7794	while (in != 0 && in == *cmp) {
7795	++in;
7796	++cmp;
7797	}
7798	if ((cmp == 0) && (in == ':')) {
7799	in++;
7800	cmp = name;
7801	while (in != 0 && in == *cmp) {
7802	++in;
7803	++cmp;
7804	}
7805	if (cmp == 0 && (in == '>' \|\| IS_BLANK_CH (*in))) {
7806	/* success */
7807	ctxt->input->cur = in;
7808	return((const xmlChar*) 1);
7809	}
7810	}
7811	/*
7812	* all strings coms from the dictionary, equality can be done directly
7813	*/
7814	ret = xmlParseQName (ctxt, &prefix2);
7815	if ((ret == name) && (prefix == prefix2))
7816	return((const xmlChar*) 1);
7817	return ret;
7818	}
7819
7820	/**
7821	* xmlParseAttValueInternal:
7822	* @ctxt: an XML parser context
7823	* @len: attribute len result
7824	* @alloc: whether the attribute was reallocated as a new string
7825	* @normalize: if 1 then further non-CDATA normalization must be done
7826	*
7827	* parse a value for an attribute.
7828	* NOTE: if no normalization is needed, the routine will return pointers
7829	* directly from the data buffer.
7830	*
7831	* 3.3.3 Attribute-Value Normalization:
7832	* Before the value of an attribute is passed to the application or
7833	* checked for validity, the XML processor must normalize it as follows:
7834	* - a character reference is processed by appending the referenced
7835	* character to the attribute value
7836	* - an entity reference is processed by recursively processing the
7837	* replacement text of the entity
7838	* - a whitespace character (#x20, #xD, #xA, #x9) is processed by
7839	* appending #x20 to the normalized value, except that only a single
7840	* #x20 is appended for a "#xD#xA" sequence that is part of an external
7841	* parsed entity or the literal entity value of an internal parsed entity
7842	* - other characters are processed by appending them to the normalized value
7843	* If the declared value is not CDATA, then the XML processor must further
7844	* process the normalized attribute value by discarding any leading and
7845	* trailing space (#x20) characters, and by replacing sequences of space
7846	* (#x20) characters by a single space (#x20) character.
7847	* All attributes for which no declaration has been read should be treated
7848	* by a non-validating parser as if declared CDATA.
7849	*
7850	* Returns the AttValue parsed or NULL. The value has to be freed by the
7851	* caller if it was copied, this can be detected by val[*len] == 0.
7852	*/
7853
7854	static xmlChar *
7855	xmlParseAttValueInternal(xmlParserCtxtPtr ctxt, int len, int alloc,
7856	int normalize)
7857	{
7858	xmlChar limit = 0;
7859	const xmlChar in = NULL, start, end, last;
7860	xmlChar *ret = NULL;
7861
7862	GROW;
7863	in = (xmlChar *) CUR_PTR;
7864	if (in != '"' && in != '\'') {
7865	xmlFatalErr(ctxt, XML_ERR_ATTRIBUTE_NOT_STARTED, NULL);
7866	return (NULL);
7867	}
7868	ctxt->instate = XML_PARSER_ATTRIBUTE_VALUE;
7869
7870	/*
7871	* try to handle in this routine the most common case where no
7872	* allocation of a new string is required and where content is
7873	* pure ASCII.
7874	*/
7875	limit = *in++;
7876	end = ctxt->input->end;
7877	start = in;
7878	if (in >= end) {
7879	const xmlChar *oldbase = ctxt->input->base;
7880	GROW;
7881	if (oldbase != ctxt->input->base) {
7882	long delta = ctxt->input->base - oldbase;
7883	start = start + delta;
7884	in = in + delta;
7885	}
7886	end = ctxt->input->end;
7887	}
7888	if (normalize) {
7889	/*
7890	* Skip any leading spaces
7891	*/
7892	while ((in < end) && (*in != limit) &&
7893	((in == 0x20) \|\| (in == 0x9) \|\|
7894	(in == 0xA) \|\| (in == 0xD))) {
7895	in++;
7896	start = in;
7897	if (in >= end) {
7898	const xmlChar *oldbase = ctxt->input->base;
7899	GROW;
7900	if (oldbase != ctxt->input->base) {
7901	long delta = ctxt->input->base - oldbase;
7902	start = start + delta;
7903	in = in + delta;
7904	}
7905	end = ctxt->input->end;
7906	}
7907	}
7908	while ((in < end) && (in != limit) && (in >= 0x20) &&
7909	(in <= 0x7f) && (in != '&') && (*in != '<')) {
7910	if ((in++ == 0x20) && (in == 0x20)) break;
7911	if (in >= end) {
7912	const xmlChar *oldbase = ctxt->input->base;
7913	GROW;
7914	if (oldbase != ctxt->input->base) {
7915	long delta = ctxt->input->base - oldbase;
7916	start = start + delta;
7917	in = in + delta;
7918	}
7919	end = ctxt->input->end;
7920	}
7921	}
7922	last = in;
7923	/*
7924	* skip the trailing blanks
7925	*/
7926	while ((last[-1] == 0x20) && (last > start)) last--;
7927	while ((in < end) && (*in != limit) &&
7928	((in == 0x20) \|\| (in == 0x9) \|\|
7929	(in == 0xA) \|\| (in == 0xD))) {
7930	in++;
7931	if (in >= end) {
7932	const xmlChar *oldbase = ctxt->input->base;
7933	GROW;
7934	if (oldbase != ctxt->input->base) {
7935	long delta = ctxt->input->base - oldbase;
7936	start = start + delta;
7937	in = in + delta;
7938	last = last + delta;
7939	}
7940	end = ctxt->input->end;
7941	}
7942	}
7943	if (*in != limit) goto need_complex;
7944	} else {
7945	while ((in < end) && (in != limit) && (in >= 0x20) &&
7946	(in <= 0x7f) && (in != '&') && (*in != '<')) {
7947	in++;
7948	if (in >= end) {
7949	const xmlChar *oldbase = ctxt->input->base;
7950	GROW;
7951	if (oldbase != ctxt->input->base) {
7952	long delta = ctxt->input->base - oldbase;
7953	start = start + delta;
7954	in = in + delta;
7955	}
7956	end = ctxt->input->end;
7957	}
7958	}
7959	last = in;
7960	if (*in != limit) goto need_complex;
7961	}
7962	in++;
7963	if (len != NULL) {
7964	*len = last - start;
7965	ret = (xmlChar *) start;
7966	} else {
7967	if (alloc) *alloc = 1;
7968	ret = xmlStrndup(start, last - start);
7969	}
7970	CUR_PTR = in;
7971	if (alloc) *alloc = 0;
7972	return ret;
7973	need_complex:
7974	if (alloc) *alloc = 1;
7975	return xmlParseAttValueComplex(ctxt, len, normalize);
7976	}
7977
7978	/**
7979	* xmlParseAttribute2:
7980	* @ctxt: an XML parser context
7981	* @pref: the element prefix
7982	* @elem: the element name
7983	* @prefix: a xmlChar ** used to store the value of the attribute prefix
7984	* @value: a xmlChar ** used to store the value of the attribute
7985	* @len: an int * to save the length of the attribute
7986	* @alloc: an int * to indicate if the attribute was allocated
7987	*
7988	* parse an attribute in the new SAX2 framework.
7989	*
7990	* Returns the attribute name, and the value in *value, .
7991	*/
7992
7993	static const xmlChar *
7994	xmlParseAttribute2(xmlParserCtxtPtr ctxt,
7995	const xmlChar pref, const xmlChar elem,
7996	const xmlChar prefix, xmlChar value,
7997	int len, int alloc) {
7998	const xmlChar *name;
7999	xmlChar val, internal_val = NULL;
8000	int normalize = 0;
8001
8002	*value = NULL;
8003	GROW;
8004	name = xmlParseQName(ctxt, prefix);
8005	if (name == NULL) {
8006	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
8007	"error parsing attribute name\n");
8008	return(NULL);
8009	}
8010
8011	/*
8012	* get the type if needed
8013	*/
8014	if (ctxt->attsSpecial != NULL) {
8015	int type;
8016
8017	type = (int) (long) xmlHashQLookup2(ctxt->attsSpecial,
8018	pref, elem, *prefix, name);
8019	if (type != 0) normalize = 1;
8020	}
8021
8022	/*
8023	* read the value
8024	*/
8025	SKIP_BLANKS;
8026	if (RAW == '=') {
8027	NEXT;
8028	SKIP_BLANKS;
8029	val = xmlParseAttValueInternal(ctxt, len, alloc, normalize);
8030	ctxt->instate = XML_PARSER_CONTENT;
8031	} else {
8032	xmlFatalErrMsgStr(ctxt, XML_ERR_ATTRIBUTE_WITHOUT_VALUE,
8033	"Specification mandate value for attribute %s\n", name);
8034	return(NULL);
8035	}
8036
8037	if (*prefix == ctxt->str_xml) {
8038	/*
8039	* Check that xml:lang conforms to the specification
8040	* No more registered as an error, just generate a warning now
8041	* since this was deprecated in XML second edition
8042	*/
8043	if ((ctxt->pedantic) && (xmlStrEqual(name, BAD_CAST "lang"))) {
8044	internal_val = xmlStrndup(val, *len);
8045	if (!xmlCheckLanguageID(internal_val)) {
8046	xmlWarningMsg(ctxt, XML_WAR_LANG_VALUE,
8047	"Malformed value for xml:lang : %s\n",
8048	internal_val, NULL);
8049	}
8050	}
8051
8052	/*
8053	* Check that xml:space conforms to the specification
8054	*/
8055	if (xmlStrEqual(name, BAD_CAST "space")) {
8056	internal_val = xmlStrndup(val, *len);
8057	if (xmlStrEqual(internal_val, BAD_CAST "default"))
8058	*(ctxt->space) = 0;
8059	else if (xmlStrEqual(internal_val, BAD_CAST "preserve"))
8060	*(ctxt->space) = 1;
8061	else {
8062	xmlWarningMsg(ctxt, XML_WAR_SPACE_VALUE,
8063	"Invalid value \"%s\" for xml:space : \"default\" or \"preserve\" expected\n",
8064	internal_val, NULL);
8065	}
8066	}
8067	if (internal_val) {
8068	xmlFree(internal_val);
8069	}
8070	}
8071
8072	*value = val;
8073	return(name);
8074	}
8075
8076	/**
8077	* xmlParseStartTag2:
8078	* @ctxt: an XML parser context
8079	*
8080	* parse a start of tag either for rule element or
8081	* EmptyElement. In both case we don't parse the tag closing chars.
8082	* This routine is called when running SAX2 parsing
8083	*
8084	* [40] STag ::= '<' Name (S Attribute)* S? '>'
8085	*
8086	* [ WFC: Unique Att Spec ]
8087	* No attribute name may appear more than once in the same start-tag or
8088	* empty-element tag.
8089	*
8090	* [44] EmptyElemTag ::= '<' Name (S Attribute)* S? '/>'
8091	*
8092	* [ WFC: Unique Att Spec ]
8093	* No attribute name may appear more than once in the same start-tag or
8094	* empty-element tag.
8095	*
8096	* With namespace:
8097	*
8098	* [NS 8] STag ::= '<' QName (S Attribute)* S? '>'
8099	*
8100	* [NS 10] EmptyElement ::= '<' QName (S Attribute)* S? '/>'
8101	*
8102	* Returns the element name parsed
8103	*/
8104
8105	static const xmlChar *
8106	xmlParseStartTag2(xmlParserCtxtPtr ctxt, const xmlChar **pref,
8107	const xmlChar *URI, int tlen) {
8108	const xmlChar *localname;
8109	const xmlChar *prefix;
8110	const xmlChar *attname;
8111	const xmlChar *aprefix;
8112	const xmlChar *nsname;
8113	xmlChar *attvalue;
8114	const xmlChar **atts = ctxt->atts;
8115	int maxatts = ctxt->maxatts;
8116	int nratts, nbatts, nbdef;
8117	int i, j, nbNs, attval, oldline, oldcol;
8118	const xmlChar *base;
8119	unsigned long cur;
8120	int nsNr = ctxt->nsNr;
8121
8122	if (RAW != '<') return(NULL);
8123	NEXT1;
8124
8125	/*
8126	* NOTE: it is crucial with the SAX2 API to never call SHRINK beyond that
8127	* point since the attribute values may be stored as pointers to
8128	* the buffer and calling SHRINK would destroy them !
8129	* The Shrinking is only possible once the full set of attribute
8130	* callbacks have been done.
8131	*/
8132	reparse:
8133	SHRINK;
8134	base = ctxt->input->base;
8135	cur = ctxt->input->cur - ctxt->input->base;
8136	oldline = ctxt->input->line;
8137	oldcol = ctxt->input->col;
8138	nbatts = 0;
8139	nratts = 0;
8140	nbdef = 0;
8141	nbNs = 0;
8142	attval = 0;
8143	/* Forget any namespaces added during an earlier parse of this element. */
8144	ctxt->nsNr = nsNr;
8145
8146	localname = xmlParseQName(ctxt, &prefix);
8147	if (localname == NULL) {
8148	xmlFatalErrMsg(ctxt, XML_ERR_NAME_REQUIRED,
8149	"StartTag: invalid element name\n");
8150	return(NULL);
8151	}
8152	*tlen = ctxt->input->cur - ctxt->input->base - cur;
8153
8154	/*
8155	* Now parse the attributes, it ends up with the ending
8156	*
8157	* (S Attribute)* S?
8158	*/
8159	SKIP_BLANKS;
8160	GROW;
8161	if (ctxt->input->base != base) goto base_changed;
8162
8163	while ((RAW != '>') &&
8164	((RAW != '/') \|\| (NXT(1) != '>')) &&
8165	(IS_BYTE_CHAR(RAW))) {
8166	const xmlChar *q = CUR_PTR;
8167	unsigned int cons = ctxt->input->consumed;
8168	int len = -1, alloc = 0;
8169
8170	attname = xmlParseAttribute2(ctxt, prefix, localname,
8171	&aprefix, &attvalue, &len, &alloc);
8172	if (ctxt->input->base != base) {
8173	if ((attvalue != NULL) && (alloc != 0))
8174	xmlFree(attvalue);
8175	attvalue = NULL;
8176	goto base_changed;
8177	}
8178	if ((attname != NULL) && (attvalue != NULL)) {
8179	if (len < 0) len = xmlStrlen(attvalue);
8180	if ((attname == ctxt->str_xmlns) && (aprefix == NULL)) {
8181	const xmlChar *URL = xmlDictLookup(ctxt->dict, attvalue, len);
8182	xmlURIPtr uri;
8183
8184	if (*URL != 0) {
8185	uri = xmlParseURI((const char *) URL);
8186	if (uri == NULL) {
8187	xmlWarningMsg(ctxt, XML_WAR_NS_URI,
8188	"xmlns: %s not a valid URI\n",
8189	URL, NULL);
8190	} else {
8191	if (uri->scheme == NULL) {
8192	xmlWarningMsg(ctxt, XML_WAR_NS_URI_RELATIVE,
8193	"xmlns: URI %s is not absolute\n",
8194	URL, NULL);
8195	}
8196	xmlFreeURI(uri);
8197	}
8198	}
8199	/*
8200	* check that it's not a defined namespace
8201	*/
8202	for (j = 1;j <= nbNs;j++)
8203	if (ctxt->nsTab[ctxt->nsNr - 2 * j] == NULL)
8204	break;
8205	if (j <= nbNs)
8206	xmlErrAttributeDup(ctxt, NULL, attname);
8207	else
8208	if (nsPush(ctxt, NULL, URL) > 0) nbNs++;
8209	if (alloc != 0) xmlFree(attvalue);
8210	SKIP_BLANKS;
8211	continue;
8212	}
8213	if (aprefix == ctxt->str_xmlns) {
8214	const xmlChar *URL = xmlDictLookup(ctxt->dict, attvalue, len);
8215	xmlURIPtr uri;
8216
8217	if (attname == ctxt->str_xml) {
8218	if (URL != ctxt->str_xml_ns) {
8219	xmlNsErr(ctxt, XML_NS_ERR_XML_NAMESPACE,
8220	"xml namespace prefix mapped to wrong URI\n",
8221	NULL, NULL, NULL);
8222	}
8223	/*
8224	* Do not keep a namespace definition node
8225	*/
8226	if (alloc != 0) xmlFree(attvalue);
8227	SKIP_BLANKS;
8228	continue;
8229	}
8230	uri = xmlParseURI((const char *) URL);
8231	if (uri == NULL) {
8232	xmlWarningMsg(ctxt, XML_WAR_NS_URI,
8233	"xmlns:%s: '%s' is not a valid URI\n",
8234	attname, URL);
8235	} else {
8236	if ((ctxt->pedantic) && (uri->scheme == NULL)) {
8237	xmlWarningMsg(ctxt, XML_WAR_NS_URI_RELATIVE,
8238	"xmlns:%s: URI %s is not absolute\n",
8239	attname, URL);
8240	}
8241	xmlFreeURI(uri);
8242	}
8243
8244	/*
8245	* check that it's not a defined namespace
8246	*/
8247	for (j = 1;j <= nbNs;j++)
8248	if (ctxt->nsTab[ctxt->nsNr - 2 * j] == attname)
8249	break;
8250	if (j <= nbNs)
8251	xmlErrAttributeDup(ctxt, aprefix, attname);
8252	else
8253	if (nsPush(ctxt, attname, URL) > 0) nbNs++;
8254	if (alloc != 0) xmlFree(attvalue);
8255	SKIP_BLANKS;
8256	if (ctxt->input->base != base) goto base_changed;
8257	continue;
8258	}
8259
8260	/*
8261	* Add the pair to atts
8262	*/
8263	if ((atts == NULL) \|\| (nbatts + 5 > maxatts)) {
8264	if (xmlCtxtGrowAttrs(ctxt, nbatts + 5) < 0) {
8265	if (attvalue[len] == 0)
8266	xmlFree(attvalue);
8267	goto failed;
8268	}
8269	maxatts = ctxt->maxatts;
8270	atts = ctxt->atts;
8271	}
8272	ctxt->attallocs[nratts++] = alloc;
8273	atts[nbatts++] = attname;
8274	atts[nbatts++] = aprefix;
8275	atts[nbatts++] = NULL; /* the URI will be fetched later */
8276	atts[nbatts++] = attvalue;
8277	attvalue += len;
8278	atts[nbatts++] = attvalue;
8279	/*
8280	* tag if some deallocation is needed
8281	*/
8282	if (alloc != 0) attval = 1;
8283	} else {
8284	if ((attvalue != NULL) && (attvalue[len] == 0))
8285	xmlFree(attvalue);
8286	}
8287
8288	failed:
8289
8290	GROW
8291	if (ctxt->input->base != base) goto base_changed;
8292	if ((RAW == '>') \|\| (((RAW == '/') && (NXT(1) == '>'))))
8293	break;
8294	if (!IS_BLANK_CH(RAW)) {
8295	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
8296	"attributes construct error\n");
8297	break;
8298	}
8299	SKIP_BLANKS;
8300	if ((cons == ctxt->input->consumed) && (q == CUR_PTR) &&
8301	(attname == NULL) && (attvalue == NULL)) {
8302	xmlFatalErr(ctxt, XML_ERR_INTERNAL_ERROR,
8303	"xmlParseStartTag: problem parsing attributes\n");
8304	break;
8305	}
8306	GROW;
8307	if (ctxt->input->base != base) goto base_changed;
8308	}
8309
8310	/*
8311	* The attributes defaulting
8312	*/
8313	if (ctxt->attsDefault != NULL) {
8314	xmlDefAttrsPtr defaults;
8315
8316	defaults = xmlHashLookup2(ctxt->attsDefault, localname, prefix);
8317	if (defaults != NULL) {
8318	for (i = 0;i < defaults->nbAttrs;i++) {
8319	attname = defaults->values[4 * i];
8320	aprefix = defaults->values[4 * i + 1];
8321
8322	/*
8323	* special work for namespaces defaulted defs
8324	*/
8325	if ((attname == ctxt->str_xmlns) && (aprefix == NULL)) {
8326	/*
8327	* check that it's not a defined namespace
8328	*/
8329	for (j = 1;j <= nbNs;j++)
8330	if (ctxt->nsTab[ctxt->nsNr - 2 * j] == NULL)
8331	break;
8332	if (j <= nbNs) continue;
8333
8334	nsname = xmlGetNamespace(ctxt, NULL);
8335	if (nsname != defaults->values[4 * i + 2]) {
8336	if (nsPush(ctxt, NULL,
8337	defaults->values[4 * i + 2]) > 0)
8338	nbNs++;
8339	}
8340	} else if (aprefix == ctxt->str_xmlns) {
8341	/*
8342	* check that it's not a defined namespace
8343	*/
8344	for (j = 1;j <= nbNs;j++)
8345	if (ctxt->nsTab[ctxt->nsNr - 2 * j] == attname)
8346	break;
8347	if (j <= nbNs) continue;
8348
8349	nsname = xmlGetNamespace(ctxt, attname);
8350	if (nsname != defaults->values[2]) {
8351	if (nsPush(ctxt, attname,
8352	defaults->values[4 * i + 2]) > 0)
8353	nbNs++;
8354	}
8355	} else {
8356	/*
8357	* check that it's not a defined attribute
8358	*/
8359	for (j = 0;j < nbatts;j+=5) {
8360	if ((attname == atts[j]) && (aprefix == atts[j+1]))
8361	break;
8362	}
8363	if (j < nbatts) continue;
8364
8365	if ((atts == NULL) \|\| (nbatts + 5 > maxatts)) {
8366	if (xmlCtxtGrowAttrs(ctxt, nbatts + 5) < 0) {
8367	return(NULL);
8368	}
8369	maxatts = ctxt->maxatts;
8370	atts = ctxt->atts;
8371	}
8372	atts[nbatts++] = attname;
8373	atts[nbatts++] = aprefix;
8374	if (aprefix == NULL)
8375	atts[nbatts++] = NULL;
8376	else
8377	atts[nbatts++] = xmlGetNamespace(ctxt, aprefix);
8378	atts[nbatts++] = defaults->values[4 * i + 2];
8379	atts[nbatts++] = defaults->values[4 * i + 3];
8380	nbdef++;
8381	}
8382	}
8383	}
8384	}
8385
8386	/*
8387	* The attributes checkings
8388	*/
8389	for (i = 0; i < nbatts;i += 5) {
8390	/*
8391	* The default namespace does not apply to attribute names.
8392	*/
8393	if (atts[i + 1] != NULL) {
8394	nsname = xmlGetNamespace(ctxt, atts[i + 1]);
8395	if (nsname == NULL) {
8396	xmlNsErr(ctxt, XML_NS_ERR_UNDEFINED_NAMESPACE,
8397	"Namespace prefix %s for %s on %s is not defined\n",
8398	atts[i + 1], atts[i], localname);
8399	}
8400	atts[i + 2] = nsname;
8401	} else
8402	nsname = NULL;
8403	/*
8404	* [ WFC: Unique Att Spec ]
8405	* No attribute name may appear more than once in the same
8406	* start-tag or empty-element tag.
8407	* As extended by the Namespace in XML REC.
8408	*/
8409	for (j = 0; j < i;j += 5) {
8410	if (atts[i] == atts[j]) {
8411	if (atts[i+1] == atts[j+1]) {
8412	xmlErrAttributeDup(ctxt, atts[i+1], atts[i]);
8413	break;
8414	}
8415	if ((nsname != NULL) && (atts[j + 2] == nsname)) {
8416	xmlNsErr(ctxt, XML_NS_ERR_ATTRIBUTE_REDEFINED,
8417	"Namespaced Attribute %s in '%s' redefined\n",
8418	atts[i], nsname, NULL);
8419	break;
8420	}
8421	}
8422	}
8423	}
8424
8425	nsname = xmlGetNamespace(ctxt, prefix);
8426	if ((prefix != NULL) && (nsname == NULL)) {
8427	xmlNsErr(ctxt, XML_NS_ERR_UNDEFINED_NAMESPACE,
8428	"Namespace prefix %s on %s is not defined\n",
8429	prefix, localname, NULL);
8430	}
8431	*pref = prefix;
8432	*URI = nsname;
8433
8434	/*
8435	* SAX: Start of Element !
8436	*/
8437	if ((ctxt->sax != NULL) && (ctxt->sax->startElementNs != NULL) &&
8438	(!ctxt->disableSAX)) {
8439	if (nbNs > 0)
8440	ctxt->sax->startElementNs(ctxt->userData, localname, prefix,
8441	nsname, nbNs, &ctxt->nsTab[ctxt->nsNr - 2 * nbNs],
8442	nbatts / 5, nbdef, atts);
8443	else
8444	ctxt->sax->startElementNs(ctxt->userData, localname, prefix,
8445	nsname, 0, NULL, nbatts / 5, nbdef, atts);
8446	}
8447
8448	/*
8449	* Free up attribute allocated strings if needed
8450	*/
8451	if (attval != 0) {
8452	for (i = 3,j = 0; j < nratts;i += 5,j++)
8453	if ((ctxt->attallocs[j] != 0) && (atts[i] != NULL))
8454	xmlFree((xmlChar *) atts[i]);
8455	}
8456
8457	return(localname);
8458
8459	base_changed:
8460	/*
8461	* the attribute strings are valid iif the base didn't changed
8462	*/
8463	if (attval != 0) {
8464	for (i = 3,j = 0; j < nratts;i += 5,j++)
8465	if ((ctxt->attallocs[j] != 0) && (atts[i] != NULL))
8466	xmlFree((xmlChar *) atts[i]);
8467	}
8468	ctxt->input->cur = ctxt->input->base + cur;
8469	ctxt->input->line = oldline;
8470	ctxt->input->col = oldcol;
8471	if (ctxt->wellFormed == 1) {
8472	goto reparse;
8473	}
8474	return(NULL);
8475	}
8476
8477	/**
8478	* xmlParseEndTag2:
8479	* @ctxt: an XML parser context
8480	* @line: line of the start tag
8481	* @nsNr: number of namespaces on the start tag
8482	*
8483	* parse an end of tag
8484	*
8485	* [42] ETag ::= '</' Name S? '>'
8486	*
8487	* With namespace
8488	*
8489	* [NS 9] ETag ::= '</' QName S? '>'
8490	*/
8491
8492	static void
8493	xmlParseEndTag2(xmlParserCtxtPtr ctxt, const xmlChar *prefix,
8494	const xmlChar *URI, int line, int nsNr, int tlen) {
8495	const xmlChar *name;
8496
8497	GROW;
8498	if ((RAW != '<') \|\| (NXT(1) != '/')) {
8499	xmlFatalErr(ctxt, XML_ERR_LTSLASH_REQUIRED, NULL);
8500	return;
8501	}
8502	SKIP(2);
8503
8504	if ((tlen > 0) && (xmlStrncmp(ctxt->input->cur, ctxt->name, tlen) == 0)) {
8505	if (ctxt->input->cur[tlen] == '>') {
8506	ctxt->input->cur += tlen + 1;
8507	goto done;
8508	}
8509	ctxt->input->cur += tlen;
8510	name = (xmlChar*)1;
8511	} else {
8512	if (prefix == NULL)
8513	name = xmlParseNameAndCompare(ctxt, ctxt->name);
8514	else
8515	name = xmlParseQNameAndCompare(ctxt, ctxt->name, prefix);
8516	}
8517
8518	/*
8519	* We should definitely be at the ending "S? '>'" part
8520	*/
8521	GROW;
8522	SKIP_BLANKS;
8523	if ((!IS_BYTE_CHAR(RAW)) \|\| (RAW != '>')) {
8524	xmlFatalErr(ctxt, XML_ERR_GT_REQUIRED, NULL);
8525	} else
8526	NEXT1;
8527
8528	/*
8529	* [ WFC: Element Type Match ]
8530	* The Name in an element's end-tag must match the element type in the
8531	* start-tag.
8532	*
8533	*/
8534	if (name != (xmlChar*)1) {
8535	if (name == NULL) name = BAD_CAST "unparseable";
8536	xmlFatalErrMsgStrIntStr(ctxt, XML_ERR_TAG_NAME_MISMATCH,
8537	"Opening and ending tag mismatch: %s line %d and %s\n",
8538	ctxt->name, line, name);
8539	}
8540
8541	/*
8542	* SAX: End of Tag
8543	*/
8544	done:
8545	if ((ctxt->sax != NULL) && (ctxt->sax->endElementNs != NULL) &&
8546	(!ctxt->disableSAX))
8547	ctxt->sax->endElementNs(ctxt->userData, ctxt->name, prefix, URI);
8548
8549	spacePop(ctxt);
8550	if (nsNr != 0)
8551	nsPop(ctxt, nsNr);
8552	return;
8553	}
8554
8555	/**
8556	* xmlParseCDSect:
8557	* @ctxt: an XML parser context
8558	*
8559	* Parse escaped pure raw content.
8560	*
8561	* [18] CDSect ::= CDStart CData CDEnd
8562	*
8563	* [19] CDStart ::= '<![CDATA['
8564	*
8565	* [20] Data ::= (Char* - (Char* ']]>' Char*))
8566	*
8567	* [21] CDEnd ::= ']]>'
8568	*/
8569	void
8570	xmlParseCDSect(xmlParserCtxtPtr ctxt) {
8571	xmlChar *buf = NULL;
8572	int len = 0;
8573	int size = XML_PARSER_BUFFER_SIZE;
8574	int r, rl;
8575	int s, sl;
8576	int cur, l;
8577	int count = 0;
8578
8579	/* Check 2.6.0 was NXT(0) not RAW */
8580	if (CMP9(CUR_PTR, '<', '!', '[', 'C', 'D', 'A', 'T', 'A', '[')) {
8581	SKIP(9);
8582	} else
8583	return;
8584
8585	ctxt->instate = XML_PARSER_CDATA_SECTION;
8586	r = CUR_CHAR(rl);
8587	if (!IS_CHAR(r)) {
8588	xmlFatalErr(ctxt, XML_ERR_CDATA_NOT_FINISHED, NULL);
8589	ctxt->instate = XML_PARSER_CONTENT;
8590	return;
8591	}
8592	NEXTL(rl);
8593	s = CUR_CHAR(sl);
8594	if (!IS_CHAR(s)) {
8595	xmlFatalErr(ctxt, XML_ERR_CDATA_NOT_FINISHED, NULL);
8596	ctxt->instate = XML_PARSER_CONTENT;
8597	return;
8598	}
8599	NEXTL(sl);
8600	cur = CUR_CHAR(l);
8601	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
8602	if (buf == NULL) {
8603	xmlErrMemory(ctxt, NULL);
8604	return;
8605	}
8606	while (IS_CHAR(cur) &&
8607	((r != ']') \|\| (s != ']') \|\| (cur != '>'))) {
8608	if (len + 5 >= size) {
8609	xmlChar *tmp;
8610
8611	size *= 2;
8612	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
8613	if (tmp == NULL) {
8614	xmlFree(buf);
8615	xmlErrMemory(ctxt, NULL);
8616	return;
8617	}
8618	buf = tmp;
8619	}
8620	COPY_BUF(rl,buf,len,r);
8621	r = s;
8622	rl = sl;
8623	s = cur;
8624	sl = l;
8625	count++;
8626	if (count > 50) {
8627	GROW;
8628	count = 0;
8629	}
8630	NEXTL(l);
8631	cur = CUR_CHAR(l);
8632	}
8633	buf[len] = 0;
8634	ctxt->instate = XML_PARSER_CONTENT;
8635	if (cur != '>') {
8636	xmlFatalErrMsgStr(ctxt, XML_ERR_CDATA_NOT_FINISHED,
8637	"CData section not finished\n%.50s\n", buf);
8638	xmlFree(buf);
8639	return;
8640	}
8641	NEXTL(l);
8642
8643	/*
8644	* OK the buffer is to be consumed as cdata.
8645	*/
8646	if ((ctxt->sax != NULL) && (!ctxt->disableSAX)) {
8647	if (ctxt->sax->cdataBlock != NULL)
8648	ctxt->sax->cdataBlock(ctxt->userData, buf, len);
8649	else if (ctxt->sax->characters != NULL)
8650	ctxt->sax->characters(ctxt->userData, buf, len);
8651	}
8652	xmlFree(buf);
8653	}
8654
8655	/**
8656	* xmlParseContent:
8657	* @ctxt: an XML parser context
8658	*
8659	* Parse a content:
8660	*
8661	* [43] content ::= (element \| CharData \| Reference \| CDSect \| PI \| Comment)*
8662	*/
8663
8664	void
8665	xmlParseContent(xmlParserCtxtPtr ctxt) {
8666	GROW;
8667	while ((RAW != 0) &&
8668	((RAW != '<') \|\| (NXT(1) != '/')) &&
8669	(ctxt->instate != XML_PARSER_EOF)) {
8670	const xmlChar *test = CUR_PTR;
8671	unsigned int cons = ctxt->input->consumed;
8672	const xmlChar *cur = ctxt->input->cur;
8673
8674	/*
8675	* First case : a Processing Instruction.
8676	*/
8677	if ((*cur == '<') && (cur[1] == '?')) {
8678	xmlParsePI(ctxt);
8679	}
8680
8681	/*
8682	* Second case : a CDSection
8683	*/
8684	/* 2.6.0 test was cur not RAW /
8685	else if (CMP9(CUR_PTR, '<', '!', '[', 'C', 'D', 'A', 'T', 'A', '[')) {
8686	xmlParseCDSect(ctxt);
8687	}
8688
8689	/*
8690	* Third case : a comment
8691	*/
8692	else if ((*cur == '<') && (NXT(1) == '!') &&
8693	(NXT(2) == '-') && (NXT(3) == '-')) {
8694	xmlParseComment(ctxt);
8695	ctxt->instate = XML_PARSER_CONTENT;
8696	}
8697
8698	/*
8699	* Fourth case : a sub-element.
8700	*/
8701	else if (*cur == '<') {
8702	xmlParseElement(ctxt);
8703	}
8704
8705	/*
8706	* Fifth case : a reference. If if has not been resolved,
8707	* parsing returns it's Name, create the node
8708	*/
8709
8710	else if (*cur == '&') {
8711	xmlParseReference(ctxt);
8712	}
8713
8714	/*
8715	* Last case, text. Note that References are handled directly.
8716	*/
8717	else {
8718	xmlParseCharData(ctxt, 0);
8719	}
8720
8721	GROW;
8722	/*
8723	* Pop-up of finished entities.
8724	*/
8725	while ((RAW == 0) && (ctxt->inputNr > 1))
8726	xmlPopInput(ctxt);
8727	SHRINK;
8728
8729	if ((cons == ctxt->input->consumed) && (test == CUR_PTR)) {
8730	xmlFatalErr(ctxt, XML_ERR_INTERNAL_ERROR,
8731	"detected an error in element content\n");
8732	ctxt->instate = XML_PARSER_EOF;
8733	break;
8734	}
8735	}
8736	}
8737
8738	/**
8739	* xmlParseElement:
8740	* @ctxt: an XML parser context
8741	*
8742	* parse an XML element, this is highly recursive
8743	*
8744	* [39] element ::= EmptyElemTag \| STag content ETag
8745	*
8746	* [ WFC: Element Type Match ]
8747	* The Name in an element's end-tag must match the element type in the
8748	* start-tag.
8749	*
8750	*/
8751
8752	void
8753	xmlParseElement(xmlParserCtxtPtr ctxt) {
8754	const xmlChar *name;
8755	const xmlChar *prefix;
8756	const xmlChar *URI;
8757	xmlParserNodeInfo node_info;
8758	int line, tlen;
8759	xmlNodePtr ret;
8760	int nsNr = ctxt->nsNr;
8761
8762	if ((unsigned int) ctxt->nameNr > xmlParserMaxDepth) {
8763	xmlFatalErrMsgInt(ctxt, XML_ERR_INTERNAL_ERROR,
8764	"Excessive depth in document: change xmlParserMaxDepth = %d\n",
8765	xmlParserMaxDepth);
8766	ctxt->instate = XML_PARSER_EOF;
8767	return;
8768	}
8769
8770	/* Capture start position */
8771	if (ctxt->record_info) {
8772	node_info.begin_pos = ctxt->input->consumed +
8773	(CUR_PTR - ctxt->input->base);
8774	node_info.begin_line = ctxt->input->line;
8775	}
8776
8777	if (ctxt->spaceNr == 0)
8778	spacePush(ctxt, -1);
8779	else if (*ctxt->space == -2)
8780	spacePush(ctxt, -1);
8781	else
8782	spacePush(ctxt, *ctxt->space);
8783
8784	line = ctxt->input->line;
8785	#ifdef LIBXML_SAX1_ENABLED
8786	if (ctxt->sax2)
8787	#endif /* LIBXML_SAX1_ENABLED */
8788	name = xmlParseStartTag2(ctxt, &prefix, &URI, &tlen);
8789	#ifdef LIBXML_SAX1_ENABLED
8790	else
8791	name = xmlParseStartTag(ctxt);
8792	#endif /* LIBXML_SAX1_ENABLED */
8793	if (ctxt->instate == XML_PARSER_EOF)
8794	return;
8795	if (name == NULL) {
8796	spacePop(ctxt);
8797	return;
8798	}
8799	namePush(ctxt, name);
8800	ret = ctxt->node;
8801
8802	#ifdef LIBXML_VALID_ENABLED
8803	/*
8804	* [ VC: Root Element Type ]
8805	* The Name in the document type declaration must match the element
8806	* type of the root element.
8807	*/
8808	if (ctxt->validate && ctxt->wellFormed && ctxt->myDoc &&
8809	ctxt->node && (ctxt->node == ctxt->myDoc->children))
8810	ctxt->valid &= xmlValidateRoot(&ctxt->vctxt, ctxt->myDoc);
8811	#endif /* LIBXML_VALID_ENABLED */
8812
8813	/*
8814	* Check for an Empty Element.
8815	*/
8816	if ((RAW == '/') && (NXT(1) == '>')) {
8817	SKIP(2);
8818	if (ctxt->sax2) {
8819	if ((ctxt->sax != NULL) && (ctxt->sax->endElementNs != NULL) &&
8820	(!ctxt->disableSAX))
8821	ctxt->sax->endElementNs(ctxt->userData, name, prefix, URI);
8822	#ifdef LIBXML_SAX1_ENABLED
8823	} else {
8824	if ((ctxt->sax != NULL) && (ctxt->sax->endElement != NULL) &&
8825	(!ctxt->disableSAX))
8826	ctxt->sax->endElement(ctxt->userData, name);
8827	#endif /* LIBXML_SAX1_ENABLED */
8828	}
8829	namePop(ctxt);
8830	spacePop(ctxt);
8831	if (nsNr != ctxt->nsNr)
8832	nsPop(ctxt, ctxt->nsNr - nsNr);
8833	if ( ret != NULL && ctxt->record_info ) {
8834	node_info.end_pos = ctxt->input->consumed +
8835	(CUR_PTR - ctxt->input->base);
8836	node_info.end_line = ctxt->input->line;
8837	node_info.node = ret;
8838	xmlParserAddNodeInfo(ctxt, &node_info);
8839	}
8840	return;
8841	}
8842	if (RAW == '>') {
8843	NEXT1;
8844	} else {
8845	xmlFatalErrMsgStrIntStr(ctxt, XML_ERR_GT_REQUIRED,
8846	"Couldn't find end of Start Tag %s line %d\n",
8847	name, line, NULL);
8848
8849	/*
8850	* end of parsing of this node.
8851	*/
8852	nodePop(ctxt);
8853	namePop(ctxt);
8854	spacePop(ctxt);
8855	if (nsNr != ctxt->nsNr)
8856	nsPop(ctxt, ctxt->nsNr - nsNr);
8857
8858	/*
8859	* Capture end position and add node
8860	*/
8861	if ( ret != NULL && ctxt->record_info ) {
8862	node_info.end_pos = ctxt->input->consumed +
8863	(CUR_PTR - ctxt->input->base);
8864	node_info.end_line = ctxt->input->line;
8865	node_info.node = ret;
8866	xmlParserAddNodeInfo(ctxt, &node_info);
8867	}
8868	return;
8869	}
8870
8871	/*
8872	* Parse the content of the element:
8873	*/
8874	xmlParseContent(ctxt);
8875	if (!IS_BYTE_CHAR(RAW)) {
8876	xmlFatalErrMsgStrIntStr(ctxt, XML_ERR_TAG_NOT_FINISHED,
8877	"Premature end of data in tag %s line %d\n",
8878	name, line, NULL);
8879
8880	/*
8881	* end of parsing of this node.
8882	*/
8883	nodePop(ctxt);
8884	namePop(ctxt);
8885	spacePop(ctxt);
8886	if (nsNr != ctxt->nsNr)
8887	nsPop(ctxt, ctxt->nsNr - nsNr);
8888	return;
8889	}
8890
8891	/*
8892	* parse the end of tag: '</' should be here.
8893	*/
8894	if (ctxt->sax2) {
8895	xmlParseEndTag2(ctxt, prefix, URI, line, ctxt->nsNr - nsNr, tlen);
8896	namePop(ctxt);
8897	}
8898	#ifdef LIBXML_SAX1_ENABLED
8899	else
8900	xmlParseEndTag1(ctxt, line);
8901	#endif /* LIBXML_SAX1_ENABLED */
8902
8903	/*
8904	* Capture end position and add node
8905	*/
8906	if ( ret != NULL && ctxt->record_info ) {
8907	node_info.end_pos = ctxt->input->consumed +
8908	(CUR_PTR - ctxt->input->base);
8909	node_info.end_line = ctxt->input->line;
8910	node_info.node = ret;
8911	xmlParserAddNodeInfo(ctxt, &node_info);
8912	}
8913	}
8914
8915	/**
8916	* xmlParseVersionNum:
8917	* @ctxt: an XML parser context
8918	*
8919	* parse the XML version value.
8920	*
8921	* [26] VersionNum ::= ([a-zA-Z0-9_.:] \| '-')+
8922	*
8923	* Returns the string giving the XML version number, or NULL
8924	*/
8925	xmlChar *
8926	xmlParseVersionNum(xmlParserCtxtPtr ctxt) {
8927	xmlChar *buf = NULL;
8928	int len = 0;
8929	int size = 10;
8930	xmlChar cur;
8931
8932	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
8933	if (buf == NULL) {
8934	xmlErrMemory(ctxt, NULL);
8935	return(NULL);
8936	}
8937	cur = CUR;
8938	while (((cur >= 'a') && (cur <= 'z')) \|\|
8939	((cur >= 'A') && (cur <= 'Z')) \|\|
8940	((cur >= '0') && (cur <= '9')) \|\|
8941	(cur == '_') \|\| (cur == '.') \|\|
8942	(cur == ':') \|\| (cur == '-')) {
8943	if (len + 1 >= size) {
8944	xmlChar *tmp;
8945
8946	size *= 2;
8947	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
8948	if (tmp == NULL) {
8949	xmlErrMemory(ctxt, NULL);
8950	return(NULL);
8951	}
8952	buf = tmp;
8953	}
8954	buf[len++] = cur;
8955	NEXT;
8956	cur=CUR;
8957	}
8958	buf[len] = 0;
8959	return(buf);
8960	}
8961
8962	/**
8963	* xmlParseVersionInfo:
8964	* @ctxt: an XML parser context
8965	*
8966	* parse the XML version.
8967	*
8968	* [24] VersionInfo ::= S 'version' Eq (' VersionNum ' \| " VersionNum ")
8969	*
8970	* [25] Eq ::= S? '=' S?
8971	*
8972	* Returns the version string, e.g. "1.0"
8973	*/
8974
8975	xmlChar *
8976	xmlParseVersionInfo(xmlParserCtxtPtr ctxt) {
8977	xmlChar *version = NULL;
8978
8979	if (CMP7(CUR_PTR, 'v', 'e', 'r', 's', 'i', 'o', 'n')) {
8980	SKIP(7);
8981	SKIP_BLANKS;
8982	if (RAW != '=') {
8983	xmlFatalErr(ctxt, XML_ERR_EQUAL_REQUIRED, NULL);
8984	return(NULL);
8985	}
8986	NEXT;
8987	SKIP_BLANKS;
8988	if (RAW == '"') {
8989	NEXT;
8990	version = xmlParseVersionNum(ctxt);
8991	if (RAW != '"') {
8992	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_CLOSED, NULL);
8993	} else
8994	NEXT;
8995	} else if (RAW == '\''){
8996	NEXT;
8997	version = xmlParseVersionNum(ctxt);
8998	if (RAW != '\'') {
8999	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_CLOSED, NULL);
9000	} else
9001	NEXT;
9002	} else {
9003	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_STARTED, NULL);
9004	}
9005	}
9006	return(version);
9007	}
9008
9009	/**
9010	* xmlParseEncName:
9011	* @ctxt: an XML parser context
9012	*
9013	* parse the XML encoding name
9014	*
9015	* [81] EncName ::= [A-Za-z] ([A-Za-z0-9._] \| '-')*
9016	*
9017	* Returns the encoding name value or NULL
9018	*/
9019	xmlChar *
9020	xmlParseEncName(xmlParserCtxtPtr ctxt) {
9021	xmlChar *buf = NULL;
9022	int len = 0;
9023	int size = 10;
9024	xmlChar cur;
9025
9026	cur = CUR;
9027	if (((cur >= 'a') && (cur <= 'z')) \|\|
9028	((cur >= 'A') && (cur <= 'Z'))) {
9029	buf = (xmlChar ) xmlMallocAtomic(size sizeof(xmlChar));
9030	if (buf == NULL) {
9031	xmlErrMemory(ctxt, NULL);
9032	return(NULL);
9033	}
9034
9035	buf[len++] = cur;
9036	NEXT;
9037	cur = CUR;
9038	while (((cur >= 'a') && (cur <= 'z')) \|\|
9039	((cur >= 'A') && (cur <= 'Z')) \|\|
9040	((cur >= '0') && (cur <= '9')) \|\|
9041	(cur == '.') \|\| (cur == '_') \|\|
9042	(cur == '-')) {
9043	if (len + 1 >= size) {
9044	xmlChar *tmp;
9045
9046	size *= 2;
9047	tmp = (xmlChar ) xmlRealloc(buf, size sizeof(xmlChar));
9048	if (tmp == NULL) {
9049	xmlErrMemory(ctxt, NULL);
9050	xmlFree(buf);
9051	return(NULL);
9052	}
9053	buf = tmp;
9054	}
9055	buf[len++] = cur;
9056	NEXT;
9057	cur = CUR;
9058	if (cur == 0) {
9059	SHRINK;
9060	GROW;
9061	cur = CUR;
9062	}
9063	}
9064	buf[len] = 0;
9065	} else {
9066	xmlFatalErr(ctxt, XML_ERR_ENCODING_NAME, NULL);
9067	}
9068	return(buf);
9069	}
9070
9071	/**
9072	* xmlParseEncodingDecl:
9073	* @ctxt: an XML parser context
9074	*
9075	* parse the XML encoding declaration
9076	*
9077	* [80] EncodingDecl ::= S 'encoding' Eq ('"' EncName '"' \| "'" EncName "'")
9078	*
9079	* this setups the conversion filters.
9080	*
9081	* Returns the encoding value or NULL
9082	*/
9083
9084	const xmlChar *
9085	xmlParseEncodingDecl(xmlParserCtxtPtr ctxt) {
9086	xmlChar *encoding = NULL;
9087
9088	SKIP_BLANKS;
9089	if (CMP8(CUR_PTR, 'e', 'n', 'c', 'o', 'd', 'i', 'n', 'g')) {
9090	SKIP(8);
9091	SKIP_BLANKS;
9092	if (RAW != '=') {
9093	xmlFatalErr(ctxt, XML_ERR_EQUAL_REQUIRED, NULL);
9094	return(NULL);
9095	}
9096	NEXT;
9097	SKIP_BLANKS;
9098	if (RAW == '"') {
9099	NEXT;
9100	encoding = xmlParseEncName(ctxt);
9101	if (RAW != '"') {
9102	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_CLOSED, NULL);
9103	} else
9104	NEXT;
9105	} else if (RAW == '\''){
9106	NEXT;
9107	encoding = xmlParseEncName(ctxt);
9108	if (RAW != '\'') {
9109	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_CLOSED, NULL);
9110	} else
9111	NEXT;
9112	} else {
9113	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_STARTED, NULL);
9114	}
9115	/*
9116	* UTF-16 encoding stwich has already taken place at this stage,
9117	* more over the little-endian/big-endian selection is already done
9118	*/
9119	if ((encoding != NULL) &&
9120	((!xmlStrcasecmp(encoding, BAD_CAST "UTF-16")) \|\|
9121	(!xmlStrcasecmp(encoding, BAD_CAST "UTF16")))) {
9122	if (ctxt->encoding != NULL)
9123	xmlFree((xmlChar *) ctxt->encoding);
9124	ctxt->encoding = encoding;
9125	}
9126	/*
9127	* UTF-8 encoding is handled natively
9128	*/
9129	else if ((encoding != NULL) &&
9130	((!xmlStrcasecmp(encoding, BAD_CAST "UTF-8")) \|\|
9131	(!xmlStrcasecmp(encoding, BAD_CAST "UTF8")))) {
9132	if (ctxt->encoding != NULL)
9133	xmlFree((xmlChar *) ctxt->encoding);
9134	ctxt->encoding = encoding;
9135	}
9136	else if (encoding != NULL) {
9137	xmlCharEncodingHandlerPtr handler;
9138
9139	if (ctxt->input->encoding != NULL)
9140	xmlFree((xmlChar *) ctxt->input->encoding);
9141	ctxt->input->encoding = encoding;
9142
9143	handler = xmlFindCharEncodingHandler((const char *) encoding);
9144	if (handler != NULL) {
9145	xmlSwitchToEncoding(ctxt, handler);
9146	} else {
9147	xmlFatalErrMsgStr(ctxt, XML_ERR_UNSUPPORTED_ENCODING,
9148	"Unsupported encoding %s\n", encoding);
9149	return(NULL);
9150	}
9151	}
9152	}
9153	return(encoding);
9154	}
9155
9156	/**
9157	* xmlParseSDDecl:
9158	* @ctxt: an XML parser context
9159	*
9160	* parse the XML standalone declaration
9161	*
9162	* [32] SDDecl ::= S 'standalone' Eq
9163	* (("'" ('yes' \| 'no') "'") \| ('"' ('yes' \| 'no')'"'))
9164	*
9165	* [ VC: Standalone Document Declaration ]
9166	* TODO The standalone document declaration must have the value "no"
9167	* if any external markup declarations contain declarations of:
9168	* - attributes with default values, if elements to which these
9169	* attributes apply appear in the document without specifications
9170	* of values for these attributes, or
9171	* - entities (other than amp, lt, gt, apos, quot), if references
9172	* to those entities appear in the document, or
9173	* - attributes with values subject to normalization, where the
9174	* attribute appears in the document with a value which will change
9175	* as a result of normalization, or
9176	* - element types with element content, if white space occurs directly
9177	* within any instance of those types.
9178	*
9179	* Returns:
9180	* 1 if standalone="yes"
9181	* 0 if standalone="no"
9182	* -2 if standalone attribute is missing or invalid
9183	* (A standalone value of -2 means that the XML declaration was found,
9184	* but no value was specified for the standalone attribute).
9185	*/
9186
9187	int
9188	xmlParseSDDecl(xmlParserCtxtPtr ctxt) {
9189	int standalone = -2;
9190
9191	SKIP_BLANKS;
9192	if (CMP10(CUR_PTR, 's', 't', 'a', 'n', 'd', 'a', 'l', 'o', 'n', 'e')) {
9193	SKIP(10);
9194	SKIP_BLANKS;
9195	if (RAW != '=') {
9196	xmlFatalErr(ctxt, XML_ERR_EQUAL_REQUIRED, NULL);
9197	return(standalone);
9198	}
9199	NEXT;
9200	SKIP_BLANKS;
9201	if (RAW == '\''){
9202	NEXT;
9203	if ((RAW == 'n') && (NXT(1) == 'o')) {
9204	standalone = 0;
9205	SKIP(2);
9206	} else if ((RAW == 'y') && (NXT(1) == 'e') &&
9207	(NXT(2) == 's')) {
9208	standalone = 1;
9209	SKIP(3);
9210	} else {
9211	xmlFatalErr(ctxt, XML_ERR_STANDALONE_VALUE, NULL);
9212	}
9213	if (RAW != '\'') {
9214	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_CLOSED, NULL);
9215	} else
9216	NEXT;
9217	} else if (RAW == '"'){
9218	NEXT;
9219	if ((RAW == 'n') && (NXT(1) == 'o')) {
9220	standalone = 0;
9221	SKIP(2);
9222	} else if ((RAW == 'y') && (NXT(1) == 'e') &&
9223	(NXT(2) == 's')) {
9224	standalone = 1;
9225	SKIP(3);
9226	} else {
9227	xmlFatalErr(ctxt, XML_ERR_STANDALONE_VALUE, NULL);
9228	}
9229	if (RAW != '"') {
9230	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_CLOSED, NULL);
9231	} else
9232	NEXT;
9233	} else {
9234	xmlFatalErr(ctxt, XML_ERR_STRING_NOT_STARTED, NULL);
9235	}
9236	}
9237	return(standalone);
9238	}
9239
9240	/**
9241	* xmlParseXMLDecl:
9242	* @ctxt: an XML parser context
9243	*
9244	* parse an XML declaration header
9245	*
9246	* [23] XMLDecl ::= '<?xml' VersionInfo EncodingDecl? SDDecl? S? '?>'
9247	*/
9248
9249	void
9250	xmlParseXMLDecl(xmlParserCtxtPtr ctxt) {
9251	xmlChar *version;
9252
9253	/*
9254	* This value for standalone indicates that the document has an
9255	* XML declaration but it does not have a standalone attribute.
9256	* It will be overwritten later if a standalone attribute is found.
9257	*/
9258	ctxt->input->standalone = -2;
9259
9260	/*
9261	* We know that '<?xml' is here.
9262	*/
9263	SKIP(5);
9264
9265	if (!IS_BLANK_CH(RAW)) {
9266	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED,
9267	"Blank needed after '<?xml'\n");
9268	}
9269	SKIP_BLANKS;
9270
9271	/*
9272	* We must have the VersionInfo here.
9273	*/
9274	version = xmlParseVersionInfo(ctxt);
9275	if (version == NULL) {
9276	xmlFatalErr(ctxt, XML_ERR_VERSION_MISSING, NULL);
9277	} else {
9278	if (!xmlStrEqual(version, (const xmlChar *) XML_DEFAULT_VERSION)) {
9279	/*
9280	* TODO: Blueberry should be detected here
9281	*/
9282	xmlWarningMsg(ctxt, XML_WAR_UNKNOWN_VERSION,
9283	"Unsupported version '%s'\n",
9284	version, NULL);
9285	}
9286	if (ctxt->version != NULL)
9287	xmlFree((void *) ctxt->version);
9288	ctxt->version = version;
9289	}
9290
9291	/*
9292	* We may have the encoding declaration
9293	*/
9294	if (!IS_BLANK_CH(RAW)) {
9295	if ((RAW == '?') && (NXT(1) == '>')) {
9296	SKIP(2);
9297	return;
9298	}
9299	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED, "Blank needed here\n");
9300	}
9301	xmlParseEncodingDecl(ctxt);
9302	if (ctxt->errNo == XML_ERR_UNSUPPORTED_ENCODING) {
9303	/*
9304	* The XML REC instructs us to stop parsing right here
9305	*/
9306	return;
9307	}
9308
9309	/*
9310	* We may have the standalone status.
9311	*/
9312	if ((ctxt->input->encoding != NULL) && (!IS_BLANK_CH(RAW))) {
9313	if ((RAW == '?') && (NXT(1) == '>')) {
9314	SKIP(2);
9315	return;
9316	}
9317	xmlFatalErrMsg(ctxt, XML_ERR_SPACE_REQUIRED, "Blank needed here\n");
9318	}
9319	SKIP_BLANKS;
9320	ctxt->input->standalone = xmlParseSDDecl(ctxt);
9321
9322	SKIP_BLANKS;
9323	if ((RAW == '?') && (NXT(1) == '>')) {
9324	SKIP(2);
9325	} else if (RAW == '>') {
9326	/* Deprecated old WD ... */
9327	xmlFatalErr(ctxt, XML_ERR_XMLDECL_NOT_FINISHED, NULL);
9328	NEXT;
9329	} else {
9330	xmlFatalErr(ctxt, XML_ERR_XMLDECL_NOT_FINISHED, NULL);
9331	MOVETO_ENDTAG(CUR_PTR);
9332	NEXT;
9333	}
9334	}
9335
9336	/**
9337	* xmlParseMisc:
9338	* @ctxt: an XML parser context
9339	*
9340	* parse an XML Misc* optional field.
9341	*
9342	* [27] Misc ::= Comment \| PI \| S
9343	*/
9344
9345	void
9346	xmlParseMisc(xmlParserCtxtPtr ctxt) {
9347	while (((RAW == '<') && (NXT(1) == '?')) \|\|
9348	(CMP4(CUR_PTR, '<', '!', '-', '-')) \|\|
9349	IS_BLANK_CH(CUR)) {
9350	if ((RAW == '<') && (NXT(1) == '?')) {
9351	xmlParsePI(ctxt);
9352	} else if (IS_BLANK_CH(CUR)) {
9353	NEXT;
9354	} else
9355	xmlParseComment(ctxt);
9356	}
9357	}
9358
9359	/**
9360	* xmlParseDocument:
9361	* @ctxt: an XML parser context
9362	*
9363	* parse an XML document (and build a tree if using the standard SAX
9364	* interface).
9365	*
9366	* [1] document ::= prolog element Misc*
9367	*
9368	* [22] prolog ::= XMLDecl? Misc* (doctypedecl Misc*)?
9369	*
9370	* Returns 0, -1 in case of error. the parser context is augmented
9371	* as a result of the parsing.
9372	*/
9373
9374	int
9375	xmlParseDocument(xmlParserCtxtPtr ctxt) {
9376	xmlChar start[4];
9377	xmlCharEncoding enc;
9378
9379	xmlInitParser();
9380
9381	if ((ctxt == NULL) \|\| (ctxt->input == NULL))
9382	return(-1);
9383
9384	GROW;
9385
9386	/*
9387	* SAX: detecting the level.
9388	*/
9389	xmlDetectSAX2(ctxt);
9390
9391	/*
9392	* SAX: beginning of the document processing.
9393	*/
9394	if ((ctxt->sax) && (ctxt->sax->setDocumentLocator))
9395	ctxt->sax->setDocumentLocator(ctxt->userData, &xmlDefaultSAXLocator);
9396
9397	if ((ctxt->encoding == (const xmlChar *)XML_CHAR_ENCODING_NONE) &&
9398	((ctxt->input->end - ctxt->input->cur) >= 4)) {
9399	/*
9400	* Get the 4 first bytes and decode the charset
9401	* if enc != XML_CHAR_ENCODING_NONE
9402	* plug some encoding conversion routines.
9403	*/
9404	start[0] = RAW;
9405	start[1] = NXT(1);
9406	start[2] = NXT(2);
9407	start[3] = NXT(3);
9408	enc = xmlDetectCharEncoding(&start[0], 4);
9409	if (enc != XML_CHAR_ENCODING_NONE) {
9410	xmlSwitchEncoding(ctxt, enc);
9411	}
9412	}
9413
9414
9415	if (CUR == 0) {
9416	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_EMPTY, NULL);
9417	}
9418
9419	/*
9420	* Check for the XMLDecl in the Prolog.
9421	*/
9422	GROW;
9423	if ((CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) && (IS_BLANK_CH(NXT(5)))) {
9424
9425	/*
9426	* Note that we will switch encoding on the fly.
9427	*/
9428	xmlParseXMLDecl(ctxt);
9429	if (ctxt->errNo == XML_ERR_UNSUPPORTED_ENCODING) {
9430	/*
9431	* The XML REC instructs us to stop parsing right here
9432	*/
9433	return(-1);
9434	}
9435	ctxt->standalone = ctxt->input->standalone;
9436	SKIP_BLANKS;
9437	} else {
9438	ctxt->version = xmlCharStrdup(XML_DEFAULT_VERSION);
9439	}
9440	if ((ctxt->sax) && (ctxt->sax->startDocument) && (!ctxt->disableSAX))
9441	ctxt->sax->startDocument(ctxt->userData);
9442
9443	/*
9444	* The Misc part of the Prolog
9445	*/
9446	GROW;
9447	xmlParseMisc(ctxt);
9448
9449	/*
9450	* Then possibly doc type declaration(s) and more Misc
9451	* (doctypedecl Misc*)?
9452	*/
9453	GROW;
9454	if (CMP9(CUR_PTR, '<', '!', 'D', 'O', 'C', 'T', 'Y', 'P', 'E')) {
9455
9456	ctxt->inSubset = 1;
9457	xmlParseDocTypeDecl(ctxt);
9458	if (RAW == '[') {
9459	ctxt->instate = XML_PARSER_DTD;
9460	xmlParseInternalSubset(ctxt);
9461	}
9462
9463	/*
9464	* Create and update the external subset.
9465	*/
9466	ctxt->inSubset = 2;
9467	if ((ctxt->sax != NULL) && (ctxt->sax->externalSubset != NULL) &&
9468	(!ctxt->disableSAX))
9469	ctxt->sax->externalSubset(ctxt->userData, ctxt->intSubName,
9470	ctxt->extSubSystem, ctxt->extSubURI);
9471	ctxt->inSubset = 0;
9472
9473	xmlCleanSpecialAttr(ctxt);
9474
9475	ctxt->instate = XML_PARSER_PROLOG;
9476	xmlParseMisc(ctxt);
9477	}
9478
9479	/*
9480	* Time to start parsing the tree itself
9481	*/
9482	GROW;
9483	if (RAW != '<') {
9484	xmlFatalErrMsg(ctxt, XML_ERR_DOCUMENT_EMPTY,
9485	"Start tag expected, '<' not found\n");
9486	} else {
9487	ctxt->instate = XML_PARSER_CONTENT;
9488	xmlParseElement(ctxt);
9489	ctxt->instate = XML_PARSER_EPILOG;
9490
9491
9492	/*
9493	* The Misc part at the end
9494	*/
9495	xmlParseMisc(ctxt);
9496
9497	if (RAW != 0) {
9498	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_END, NULL);
9499	}
9500	ctxt->instate = XML_PARSER_EOF;
9501	}
9502
9503	/*
9504	* SAX: end of the document processing.
9505	*/
9506	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
9507	ctxt->sax->endDocument(ctxt->userData);
9508
9509	/*
9510	* Remove locally kept entity definitions if the tree was not built
9511	*/
9512	if ((ctxt->myDoc != NULL) &&
9513	(xmlStrEqual(ctxt->myDoc->version, SAX_COMPAT_MODE))) {
9514	xmlFreeDoc(ctxt->myDoc);
9515	ctxt->myDoc = NULL;
9516	}
9517
9518	if (! ctxt->wellFormed) {
9519	ctxt->valid = 0;
9520	return(-1);
9521	}
9522	return(0);
9523	}
9524
9525	/**
9526	* xmlParseExtParsedEnt:
9527	* @ctxt: an XML parser context
9528	*
9529	* parse a general parsed entity
9530	* An external general parsed entity is well-formed if it matches the
9531	* production labeled extParsedEnt.
9532	*
9533	* [78] extParsedEnt ::= TextDecl? content
9534	*
9535	* Returns 0, -1 in case of error. the parser context is augmented
9536	* as a result of the parsing.
9537	*/
9538
9539	int
9540	xmlParseExtParsedEnt(xmlParserCtxtPtr ctxt) {
9541	xmlChar start[4];
9542	xmlCharEncoding enc;
9543
9544	if ((ctxt == NULL) \|\| (ctxt->input == NULL))
9545	return(-1);
9546
9547	xmlDefaultSAXHandlerInit();
9548
9549	xmlDetectSAX2(ctxt);
9550
9551	GROW;
9552
9553	/*
9554	* SAX: beginning of the document processing.
9555	*/
9556	if ((ctxt->sax) && (ctxt->sax->setDocumentLocator))
9557	ctxt->sax->setDocumentLocator(ctxt->userData, &xmlDefaultSAXLocator);
9558
9559	/*
9560	* Get the 4 first bytes and decode the charset
9561	* if enc != XML_CHAR_ENCODING_NONE
9562	* plug some encoding conversion routines.
9563	*/
9564	if ((ctxt->input->end - ctxt->input->cur) >= 4) {
9565	start[0] = RAW;
9566	start[1] = NXT(1);
9567	start[2] = NXT(2);
9568	start[3] = NXT(3);
9569	enc = xmlDetectCharEncoding(start, 4);
9570	if (enc != XML_CHAR_ENCODING_NONE) {
9571	xmlSwitchEncoding(ctxt, enc);
9572	}
9573	}
9574
9575
9576	if (CUR == 0) {
9577	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_EMPTY, NULL);
9578	}
9579
9580	/*
9581	* Check for the XMLDecl in the Prolog.
9582	*/
9583	GROW;
9584	if ((CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) && (IS_BLANK_CH(NXT(5)))) {
9585
9586	/*
9587	* Note that we will switch encoding on the fly.
9588	*/
9589	xmlParseXMLDecl(ctxt);
9590	if (ctxt->errNo == XML_ERR_UNSUPPORTED_ENCODING) {
9591	/*
9592	* The XML REC instructs us to stop parsing right here
9593	*/
9594	return(-1);
9595	}
9596	SKIP_BLANKS;
9597	} else {
9598	ctxt->version = xmlCharStrdup(XML_DEFAULT_VERSION);
9599	}
9600	if ((ctxt->sax) && (ctxt->sax->startDocument) && (!ctxt->disableSAX))
9601	ctxt->sax->startDocument(ctxt->userData);
9602
9603	/*
9604	* Doing validity checking on chunk doesn't make sense
9605	*/
9606	ctxt->instate = XML_PARSER_CONTENT;
9607	ctxt->validate = 0;
9608	ctxt->loadsubset = 0;
9609	ctxt->depth = 0;
9610
9611	xmlParseContent(ctxt);
9612
9613	if ((RAW == '<') && (NXT(1) == '/')) {
9614	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
9615	} else if (RAW != 0) {
9616	xmlFatalErr(ctxt, XML_ERR_EXTRA_CONTENT, NULL);
9617	}
9618
9619	/*
9620	* SAX: end of the document processing.
9621	*/
9622	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
9623	ctxt->sax->endDocument(ctxt->userData);
9624
9625	if (! ctxt->wellFormed) return(-1);
9626	return(0);
9627	}
9628
9629	#ifdef LIBXML_PUSH_ENABLED
9630	/************************************************************************
9631	* *
9632	* Progressive parsing interfaces *
9633	* *
9634	************************************************************************/
9635
9636	/**
9637	* xmlParseLookupSequence:
9638	* @ctxt: an XML parser context
9639	* @first: the first char to lookup
9640	* @next: the next char to lookup or zero
9641	* @third: the next char to lookup or zero
9642	*
9643	* Try to find if a sequence (first, next, third) or just (first next) or
9644	* (first) is available in the input stream.
9645	* This function has a side effect of (possibly) incrementing ctxt->checkIndex
9646	* to avoid rescanning sequences of bytes, it DOES change the state of the
9647	* parser, do not use liberally.
9648	*
9649	* Returns the index to the current parsing point if the full sequence
9650	* is available, -1 otherwise.
9651	*/
9652	static int
9653	xmlParseLookupSequence(xmlParserCtxtPtr ctxt, xmlChar first,
9654	xmlChar next, xmlChar third) {
9655	int base, len;
9656	xmlParserInputPtr in;
9657	const xmlChar *buf;
9658
9659	in = ctxt->input;
9660	if (in == NULL) return(-1);
9661	base = in->cur - in->base;
9662	if (base < 0) return(-1);
9663	if (ctxt->checkIndex > base)
9664	base = ctxt->checkIndex;
9665	if (in->buf == NULL) {
9666	buf = in->base;
9667	len = in->length;
9668	} else {
9669	buf = in->buf->buffer->content;
9670	len = in->buf->buffer->use;
9671	}
9672	/* take into account the sequence length */
9673	if (third) len -= 2;
9674	else if (next) len --;
9675	for (;base < len;base++) {
9676	if (buf[base] == first) {
9677	if (third != 0) {
9678	if ((buf[base + 1] != next) \|\|
9679	(buf[base + 2] != third)) continue;
9680	} else if (next != 0) {
9681	if (buf[base + 1] != next) continue;
9682	}
9683	ctxt->checkIndex = 0;
9684	#ifdef DEBUG_PUSH
9685	if (next == 0)
9686	xmlGenericError(xmlGenericErrorContext,
9687	"PP: lookup '%c' found at %d\n",
9688	first, base);
9689	else if (third == 0)
9690	xmlGenericError(xmlGenericErrorContext,
9691	"PP: lookup '%c%c' found at %d\n",
9692	first, next, base);
9693	else
9694	xmlGenericError(xmlGenericErrorContext,
9695	"PP: lookup '%c%c%c' found at %d\n",
9696	first, next, third, base);
9697	#endif
9698	return(base - (in->cur - in->base));
9699	}
9700	}
9701	ctxt->checkIndex = base;
9702	#ifdef DEBUG_PUSH
9703	if (next == 0)
9704	xmlGenericError(xmlGenericErrorContext,
9705	"PP: lookup '%c' failed\n", first);
9706	else if (third == 0)
9707	xmlGenericError(xmlGenericErrorContext,
9708	"PP: lookup '%c%c' failed\n", first, next);
9709	else
9710	xmlGenericError(xmlGenericErrorContext,
9711	"PP: lookup '%c%c%c' failed\n", first, next, third);
9712	#endif
9713	return(-1);
9714	}
9715
9716	/**
9717	* xmlParseGetLasts:
9718	* @ctxt: an XML parser context
9719	* @lastlt: pointer to store the last '<' from the input
9720	* @lastgt: pointer to store the last '>' from the input
9721	*
9722	* Lookup the last < and > in the current chunk
9723	*/
9724	static void
9725	xmlParseGetLasts(xmlParserCtxtPtr ctxt, const xmlChar **lastlt,
9726	const xmlChar **lastgt) {
9727	const xmlChar *tmp;
9728
9729	if ((ctxt == NULL) \|\| (lastlt == NULL) \|\| (lastgt == NULL)) {
9730	xmlGenericError(xmlGenericErrorContext,
9731	"Internal error: xmlParseGetLasts\n");
9732	return;
9733	}
9734	if ((ctxt->progressive != 0) && (ctxt->inputNr == 1)) {
9735	tmp = ctxt->input->end;
9736	tmp--;
9737	while ((tmp >= ctxt->input->base) && (*tmp != '<')) tmp--;
9738	if (tmp < ctxt->input->base) {
9739	*lastlt = NULL;
9740	*lastgt = NULL;
9741	} else {
9742	*lastlt = tmp;
9743	tmp++;
9744	while ((tmp < ctxt->input->end) && (*tmp != '>')) {
9745	if (*tmp == '\'') {
9746	tmp++;
9747	while ((tmp < ctxt->input->end) && (*tmp != '\'')) tmp++;
9748	if (tmp < ctxt->input->end) tmp++;
9749	} else if (*tmp == '"') {
9750	tmp++;
9751	while ((tmp < ctxt->input->end) && (*tmp != '"')) tmp++;
9752	if (tmp < ctxt->input->end) tmp++;
9753	} else
9754	tmp++;
9755	}
9756	if (tmp < ctxt->input->end)
9757	*lastgt = tmp;
9758	else {
9759	tmp = *lastlt;
9760	tmp--;
9761	while ((tmp >= ctxt->input->base) && (*tmp != '>')) tmp--;
9762	if (tmp >= ctxt->input->base)
9763	*lastgt = tmp;
9764	else
9765	*lastgt = NULL;
9766	}
9767	}
9768	} else {
9769	*lastlt = NULL;
9770	*lastgt = NULL;
9771	}
9772	}
9773	/**
9774	* xmlCheckCdataPush:
9775	* @cur: pointer to the bock of characters
9776	* @len: length of the block in bytes
9777	*
9778	* Check that the block of characters is okay as SCdata content [20]
9779	*
9780	* Returns the number of bytes to pass if okay, a negative index where an
9781	* UTF-8 error occured otherwise
9782	*/
9783	static int
9784	xmlCheckCdataPush(const xmlChar *utf, int len) {
9785	int ix;
9786	unsigned char c;
9787	int codepoint;
9788
9789	if ((utf == NULL) \|\| (len <= 0))
9790	return(0);
9791
9792	for (ix = 0; ix < len;) { /* string is 0-terminated */
9793	c = utf[ix];
9794	if ((c & 0x80) == 0x00) { /* 1-byte code, starts with 10 */
9795	if (c >= 0x20)
9796	ix++;
9797	else if ((c == 0xA) \|\| (c == 0xD) \|\| (c == 0x9))
9798	ix++;
9799	else
9800	return(-ix);
9801	} else if ((c & 0xe0) == 0xc0) {/* 2-byte code, starts with 110 */
9802	if (ix + 2 > len) return(ix);
9803	if ((utf[ix+1] & 0xc0 ) != 0x80)
9804	return(-ix);
9805	codepoint = (utf[ix] & 0x1f) << 6;
9806	codepoint \|= utf[ix+1] & 0x3f;
9807	if (!xmlIsCharQ(codepoint))
9808	return(-ix);
9809	ix += 2;
9810	} else if ((c & 0xf0) == 0xe0) {/* 3-byte code, starts with 1110 */
9811	if (ix + 3 > len) return(ix);
9812	if (((utf[ix+1] & 0xc0) != 0x80) \|\|
9813	((utf[ix+2] & 0xc0) != 0x80))
9814	return(-ix);
9815	codepoint = (utf[ix] & 0xf) << 12;
9816	codepoint \|= (utf[ix+1] & 0x3f) << 6;
9817	codepoint \|= utf[ix+2] & 0x3f;
9818	if (!xmlIsCharQ(codepoint))
9819	return(-ix);
9820	ix += 3;
9821	} else if ((c & 0xf8) == 0xf0) {/* 4-byte code, starts with 11110 */
9822	if (ix + 4 > len) return(ix);
9823	if (((utf[ix+1] & 0xc0) != 0x80) \|\|
9824	((utf[ix+2] & 0xc0) != 0x80) \|\|
9825	((utf[ix+3] & 0xc0) != 0x80))
9826	return(-ix);
9827	codepoint = (utf[ix] & 0x7) << 18;
9828	codepoint \|= (utf[ix+1] & 0x3f) << 12;
9829	codepoint \|= (utf[ix+2] & 0x3f) << 6;
9830	codepoint \|= utf[ix+3] & 0x3f;
9831	if (!xmlIsCharQ(codepoint))
9832	return(-ix);
9833	ix += 4;
9834	} else /* unknown encoding */
9835	return(-ix);
9836	}
9837	return(ix);
9838	}
9839
9840	/**
9841	* xmlParseTryOrFinish:
9842	* @ctxt: an XML parser context
9843	* @terminate: last chunk indicator
9844	*
9845	* Try to progress on parsing
9846	*
9847	* Returns zero if no parsing was possible
9848	*/
9849	static int
9850	xmlParseTryOrFinish(xmlParserCtxtPtr ctxt, int terminate) {
9851	int ret = 0;
9852	int avail, tlen;
9853	xmlChar cur, next;
9854	const xmlChar lastlt, lastgt;
9855
9856	if (ctxt->input == NULL)
9857	return(0);
9858
9859	#ifdef DEBUG_PUSH
9860	switch (ctxt->instate) {
9861	case XML_PARSER_EOF:
9862	xmlGenericError(xmlGenericErrorContext,
9863	"PP: try EOF\n"); break;
9864	case XML_PARSER_START:
9865	xmlGenericError(xmlGenericErrorContext,
9866	"PP: try START\n"); break;
9867	case XML_PARSER_MISC:
9868	xmlGenericError(xmlGenericErrorContext,
9869	"PP: try MISC\n");break;
9870	case XML_PARSER_COMMENT:
9871	xmlGenericError(xmlGenericErrorContext,
9872	"PP: try COMMENT\n");break;
9873	case XML_PARSER_PROLOG:
9874	xmlGenericError(xmlGenericErrorContext,
9875	"PP: try PROLOG\n");break;
9876	case XML_PARSER_START_TAG:
9877	xmlGenericError(xmlGenericErrorContext,
9878	"PP: try START_TAG\n");break;
9879	case XML_PARSER_CONTENT:
9880	xmlGenericError(xmlGenericErrorContext,
9881	"PP: try CONTENT\n");break;
9882	case XML_PARSER_CDATA_SECTION:
9883	xmlGenericError(xmlGenericErrorContext,
9884	"PP: try CDATA_SECTION\n");break;
9885	case XML_PARSER_END_TAG:
9886	xmlGenericError(xmlGenericErrorContext,
9887	"PP: try END_TAG\n");break;
9888	case XML_PARSER_ENTITY_DECL:
9889	xmlGenericError(xmlGenericErrorContext,
9890	"PP: try ENTITY_DECL\n");break;
9891	case XML_PARSER_ENTITY_VALUE:
9892	xmlGenericError(xmlGenericErrorContext,
9893	"PP: try ENTITY_VALUE\n");break;
9894	case XML_PARSER_ATTRIBUTE_VALUE:
9895	xmlGenericError(xmlGenericErrorContext,
9896	"PP: try ATTRIBUTE_VALUE\n");break;
9897	case XML_PARSER_DTD:
9898	xmlGenericError(xmlGenericErrorContext,
9899	"PP: try DTD\n");break;
9900	case XML_PARSER_EPILOG:
9901	xmlGenericError(xmlGenericErrorContext,
9902	"PP: try EPILOG\n");break;
9903	case XML_PARSER_PI:
9904	xmlGenericError(xmlGenericErrorContext,
9905	"PP: try PI\n");break;
9906	case XML_PARSER_IGNORE:
9907	xmlGenericError(xmlGenericErrorContext,
9908	"PP: try IGNORE\n");break;
9909	}
9910	#endif
9911
9912	if ((ctxt->input != NULL) &&
9913	(ctxt->input->cur - ctxt->input->base > 4096)) {
9914	xmlSHRINK(ctxt);
9915	ctxt->checkIndex = 0;
9916	}
9917	xmlParseGetLasts(ctxt, &lastlt, &lastgt);
9918
9919	while (1) {
9920	if ((ctxt->errNo != XML_ERR_OK) && (ctxt->disableSAX == 1))
9921	return(0);
9922
9923
9924	/*
9925	* Pop-up of finished entities.
9926	*/
9927	while ((RAW == 0) && (ctxt->inputNr > 1))
9928	xmlPopInput(ctxt);
9929
9930	if (ctxt->input == NULL) break;
9931	if (ctxt->input->buf == NULL)
9932	avail = ctxt->input->length -
9933	(ctxt->input->cur - ctxt->input->base);
9934	else {
9935	/*
9936	* If we are operating on converted input, try to flush
9937	* remainng chars to avoid them stalling in the non-converted
9938	* buffer.
9939	*/
9940	if ((ctxt->input->buf->raw != NULL) &&
9941	(ctxt->input->buf->raw->use > 0)) {
9942	int base = ctxt->input->base -
9943	ctxt->input->buf->buffer->content;
9944	int current = ctxt->input->cur - ctxt->input->base;
9945
9946	xmlParserInputBufferPush(ctxt->input->buf, 0, "");
9947	ctxt->input->base = ctxt->input->buf->buffer->content + base;
9948	ctxt->input->cur = ctxt->input->base + current;
9949	ctxt->input->end =
9950	&ctxt->input->buf->buffer->content[
9951	ctxt->input->buf->buffer->use];
9952	}
9953	avail = ctxt->input->buf->buffer->use -
9954	(ctxt->input->cur - ctxt->input->base);
9955	}
9956	if (avail < 1)
9957	goto done;
9958	switch (ctxt->instate) {
9959	case XML_PARSER_EOF:
9960	/*
9961	* Document parsing is done !
9962	*/
9963	goto done;
9964	case XML_PARSER_START:
9965	if (ctxt->charset == XML_CHAR_ENCODING_NONE) {
9966	xmlChar start[4];
9967	xmlCharEncoding enc;
9968
9969	/*
9970	* Very first chars read from the document flow.
9971	*/
9972	if (avail < 4)
9973	goto done;
9974
9975	/*
9976	* Get the 4 first bytes and decode the charset
9977	* if enc != XML_CHAR_ENCODING_NONE
9978	* plug some encoding conversion routines,
9979	* else xmlSwitchEncoding will set to (default)
9980	* UTF8.
9981	*/
9982	start[0] = RAW;
9983	start[1] = NXT(1);
9984	start[2] = NXT(2);
9985	start[3] = NXT(3);
9986	enc = xmlDetectCharEncoding(start, 4);
9987	xmlSwitchEncoding(ctxt, enc);
9988	break;
9989	}
9990
9991	if (avail < 2)
9992	goto done;
9993	cur = ctxt->input->cur[0];
9994	next = ctxt->input->cur[1];
9995	if (cur == 0) {
9996	if ((ctxt->sax) && (ctxt->sax->setDocumentLocator))
9997	ctxt->sax->setDocumentLocator(ctxt->userData,
9998	&xmlDefaultSAXLocator);
9999	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_EMPTY, NULL);
10000	ctxt->instate = XML_PARSER_EOF;
10001	#ifdef DEBUG_PUSH
10002	xmlGenericError(xmlGenericErrorContext,
10003	"PP: entering EOF\n");
10004	#endif
10005	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
10006	ctxt->sax->endDocument(ctxt->userData);
10007	goto done;
10008	}
10009	if ((cur == '<') && (next == '?')) {
10010	/* PI or XML decl */
10011	if (avail < 5) return(ret);
10012	if ((!terminate) &&
10013	(xmlParseLookupSequence(ctxt, '?', '>', 0) < 0))
10014	return(ret);
10015	if ((ctxt->sax) && (ctxt->sax->setDocumentLocator))
10016	ctxt->sax->setDocumentLocator(ctxt->userData,
10017	&xmlDefaultSAXLocator);
10018	if ((ctxt->input->cur[2] == 'x') &&
10019	(ctxt->input->cur[3] == 'm') &&
10020	(ctxt->input->cur[4] == 'l') &&
10021	(IS_BLANK_CH(ctxt->input->cur[5]))) {
10022	ret += 5;
10023	#ifdef DEBUG_PUSH
10024	xmlGenericError(xmlGenericErrorContext,
10025	"PP: Parsing XML Decl\n");
10026	#endif
10027	xmlParseXMLDecl(ctxt);
10028	if (ctxt->errNo == XML_ERR_UNSUPPORTED_ENCODING) {
10029	/*
10030	* The XML REC instructs us to stop parsing right
10031	* here
10032	*/
10033	ctxt->instate = XML_PARSER_EOF;
10034	return(0);
10035	}
10036	ctxt->standalone = ctxt->input->standalone;
10037	if ((ctxt->encoding == NULL) &&
10038	(ctxt->input->encoding != NULL))
10039	ctxt->encoding = xmlStrdup(ctxt->input->encoding);
10040	if ((ctxt->sax) && (ctxt->sax->startDocument) &&
10041	(!ctxt->disableSAX))
10042	ctxt->sax->startDocument(ctxt->userData);
10043	ctxt->instate = XML_PARSER_MISC;
10044	#ifdef DEBUG_PUSH
10045	xmlGenericError(xmlGenericErrorContext,
10046	"PP: entering MISC\n");
10047	#endif
10048	} else {
10049	ctxt->version = xmlCharStrdup(XML_DEFAULT_VERSION);
10050	if ((ctxt->sax) && (ctxt->sax->startDocument) &&
10051	(!ctxt->disableSAX))
10052	ctxt->sax->startDocument(ctxt->userData);
10053	ctxt->instate = XML_PARSER_MISC;
10054	#ifdef DEBUG_PUSH
10055	xmlGenericError(xmlGenericErrorContext,
10056	"PP: entering MISC\n");
10057	#endif
10058	}
10059	} else {
10060	if ((ctxt->sax) && (ctxt->sax->setDocumentLocator))
10061	ctxt->sax->setDocumentLocator(ctxt->userData,
10062	&xmlDefaultSAXLocator);
10063	ctxt->version = xmlCharStrdup(XML_DEFAULT_VERSION);
10064	if (ctxt->version == NULL) {
10065	xmlErrMemory(ctxt, NULL);
10066	break;
10067	}
10068	if ((ctxt->sax) && (ctxt->sax->startDocument) &&
10069	(!ctxt->disableSAX))
10070	ctxt->sax->startDocument(ctxt->userData);
10071	ctxt->instate = XML_PARSER_MISC;
10072	#ifdef DEBUG_PUSH
10073	xmlGenericError(xmlGenericErrorContext,
10074	"PP: entering MISC\n");
10075	#endif
10076	}
10077	break;
10078	case XML_PARSER_START_TAG: {
10079	const xmlChar *name;
10080	const xmlChar *prefix;
10081	const xmlChar *URI;
10082	int nsNr = ctxt->nsNr;
10083
10084	if ((avail < 2) && (ctxt->inputNr == 1))
10085	goto done;
10086	cur = ctxt->input->cur[0];
10087	if (cur != '<') {
10088	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_EMPTY, NULL);
10089	ctxt->instate = XML_PARSER_EOF;
10090	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
10091	ctxt->sax->endDocument(ctxt->userData);
10092	goto done;
10093	}
10094	if (!terminate) {
10095	if (ctxt->progressive) {
10096	/* > can be found unescaped in attribute values */
10097	if ((lastgt == NULL) \|\| (ctxt->input->cur >= lastgt))
10098	goto done;
10099	} else if (xmlParseLookupSequence(ctxt, '>', 0, 0) < 0) {
10100	goto done;
10101	}
10102	}
10103	if (ctxt->spaceNr == 0)
10104	spacePush(ctxt, -1);
10105	else if (*ctxt->space == -2)
10106	spacePush(ctxt, -1);
10107	else
10108	spacePush(ctxt, *ctxt->space);
10109	#ifdef LIBXML_SAX1_ENABLED
10110	if (ctxt->sax2)
10111	#endif /* LIBXML_SAX1_ENABLED */
10112	name = xmlParseStartTag2(ctxt, &prefix, &URI, &tlen);
10113	#ifdef LIBXML_SAX1_ENABLED
10114	else
10115	name = xmlParseStartTag(ctxt);
10116	#endif /* LIBXML_SAX1_ENABLED */
10117	if (ctxt->instate == XML_PARSER_EOF)
10118	goto done;
10119	if (name == NULL) {
10120	spacePop(ctxt);
10121	ctxt->instate = XML_PARSER_EOF;
10122	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
10123	ctxt->sax->endDocument(ctxt->userData);
10124	goto done;
10125	}
10126	#ifdef LIBXML_VALID_ENABLED
10127	/*
10128	* [ VC: Root Element Type ]
10129	* The Name in the document type declaration must match
10130	* the element type of the root element.
10131	*/
10132	if (ctxt->validate && ctxt->wellFormed && ctxt->myDoc &&
10133	ctxt->node && (ctxt->node == ctxt->myDoc->children))
10134	ctxt->valid &= xmlValidateRoot(&ctxt->vctxt, ctxt->myDoc);
10135	#endif /* LIBXML_VALID_ENABLED */
10136
10137	/*
10138	* Check for an Empty Element.
10139	*/
10140	if ((RAW == '/') && (NXT(1) == '>')) {
10141	SKIP(2);
10142
10143	if (ctxt->sax2) {
10144	if ((ctxt->sax != NULL) &&
10145	(ctxt->sax->endElementNs != NULL) &&
10146	(!ctxt->disableSAX))
10147	ctxt->sax->endElementNs(ctxt->userData, name,
10148	prefix, URI);
10149	if (ctxt->nsNr - nsNr > 0)
10150	nsPop(ctxt, ctxt->nsNr - nsNr);
10151	#ifdef LIBXML_SAX1_ENABLED
10152	} else {
10153	if ((ctxt->sax != NULL) &&
10154	(ctxt->sax->endElement != NULL) &&
10155	(!ctxt->disableSAX))
10156	ctxt->sax->endElement(ctxt->userData, name);
10157	#endif /* LIBXML_SAX1_ENABLED */
10158	}
10159	spacePop(ctxt);
10160	if (ctxt->nameNr == 0) {
10161	ctxt->instate = XML_PARSER_EPILOG;
10162	} else {
10163	ctxt->instate = XML_PARSER_CONTENT;
10164	}
10165	break;
10166	}
10167	if (RAW == '>') {
10168	NEXT;
10169	} else {
10170	xmlFatalErrMsgStr(ctxt, XML_ERR_GT_REQUIRED,
10171	"Couldn't find end of Start Tag %s\n",
10172	name);
10173	nodePop(ctxt);
10174	spacePop(ctxt);
10175	}
10176	if (ctxt->sax2)
10177	nameNsPush(ctxt, name, prefix, URI, ctxt->nsNr - nsNr);
10178	#ifdef LIBXML_SAX1_ENABLED
10179	else
10180	namePush(ctxt, name);
10181	#endif /* LIBXML_SAX1_ENABLED */
10182
10183	ctxt->instate = XML_PARSER_CONTENT;
10184	break;
10185	}
10186	case XML_PARSER_CONTENT: {
10187	const xmlChar *test;
10188	unsigned int cons;
10189	if ((avail < 2) && (ctxt->inputNr == 1))
10190	goto done;
10191	cur = ctxt->input->cur[0];
10192	next = ctxt->input->cur[1];
10193
10194	test = CUR_PTR;
10195	cons = ctxt->input->consumed;
10196	if ((cur == '<') && (next == '/')) {
10197	ctxt->instate = XML_PARSER_END_TAG;
10198	break;
10199	} else if ((cur == '<') && (next == '?')) {
10200	if ((!terminate) &&
10201	(xmlParseLookupSequence(ctxt, '?', '>', 0) < 0))
10202	goto done;
10203	xmlParsePI(ctxt);
10204	} else if ((cur == '<') && (next != '!')) {
10205	ctxt->instate = XML_PARSER_START_TAG;
10206	break;
10207	} else if ((cur == '<') && (next == '!') &&
10208	(ctxt->input->cur[2] == '-') &&
10209	(ctxt->input->cur[3] == '-')) {
10210	int term;
10211
10212	if (avail < 4)
10213	goto done;
10214	ctxt->input->cur += 4;
10215	term = xmlParseLookupSequence(ctxt, '-', '-', '>');
10216	ctxt->input->cur -= 4;
10217	if ((!terminate) && (term < 0))
10218	goto done;
10219	xmlParseComment(ctxt);
10220	ctxt->instate = XML_PARSER_CONTENT;
10221	} else if ((cur == '<') && (ctxt->input->cur[1] == '!') &&
10222	(ctxt->input->cur[2] == '[') &&
10223	(ctxt->input->cur[3] == 'C') &&
10224	(ctxt->input->cur[4] == 'D') &&
10225	(ctxt->input->cur[5] == 'A') &&
10226	(ctxt->input->cur[6] == 'T') &&
10227	(ctxt->input->cur[7] == 'A') &&
10228	(ctxt->input->cur[8] == '[')) {
10229	SKIP(9);
10230	ctxt->instate = XML_PARSER_CDATA_SECTION;
10231	break;
10232	} else if ((cur == '<') && (next == '!') &&
10233	(avail < 9)) {
10234	goto done;
10235	} else if (cur == '&') {
10236	if ((!terminate) &&
10237	(xmlParseLookupSequence(ctxt, ';', 0, 0) < 0))
10238	goto done;
10239	xmlParseReference(ctxt);
10240	} else {
10241	/* TODO Avoid the extra copy, handle directly !!! */
10242	/*
10243	* Goal of the following test is:
10244	* - minimize calls to the SAX 'character' callback
10245	* when they are mergeable
10246	* - handle an problem for isBlank when we only parse
10247	* a sequence of blank chars and the next one is
10248	* not available to check against '<' presence.
10249	* - tries to homogenize the differences in SAX
10250	* callbacks between the push and pull versions
10251	* of the parser.
10252	*/
10253	if ((ctxt->inputNr == 1) &&
10254	(avail < XML_PARSER_BIG_BUFFER_SIZE)) {
10255	if (!terminate) {
10256	if (ctxt->progressive) {
10257	if ((lastlt == NULL) \|\|
10258	(ctxt->input->cur > lastlt))
10259	goto done;
10260	} else if (xmlParseLookupSequence(ctxt,
10261	'<', 0, 0) < 0) {
10262	goto done;
10263	}
10264	}
10265	}
10266	ctxt->checkIndex = 0;
10267	xmlParseCharData(ctxt, 0);
10268	}
10269	/*
10270	* Pop-up of finished entities.
10271	*/
10272	while ((RAW == 0) && (ctxt->inputNr > 1))
10273	xmlPopInput(ctxt);
10274	if ((cons == ctxt->input->consumed) && (test == CUR_PTR)) {
10275	xmlFatalErr(ctxt, XML_ERR_INTERNAL_ERROR,
10276	"detected an error in element content\n");
10277	ctxt->instate = XML_PARSER_EOF;
10278	break;
10279	}
10280	break;
10281	}
10282	case XML_PARSER_END_TAG:
10283	if (avail < 2)
10284	goto done;
10285	if (!terminate) {
10286	if (ctxt->progressive) {
10287	/* > can be found unescaped in attribute values */
10288	if ((lastgt == NULL) \|\| (ctxt->input->cur >= lastgt))
10289	goto done;
10290	} else if (xmlParseLookupSequence(ctxt, '>', 0, 0) < 0) {
10291	goto done;
10292	}
10293	}
10294	if (ctxt->sax2) {
10295	xmlParseEndTag2(ctxt,
10296	(void ) ctxt->pushTab[ctxt->nameNr 3 - 3],
10297	(void ) ctxt->pushTab[ctxt->nameNr 3 - 2], 0,
10298	(int) (long) ctxt->pushTab[ctxt->nameNr * 3 - 1], 0);
10299	nameNsPop(ctxt);
10300	}
10301	#ifdef LIBXML_SAX1_ENABLED
10302	else
10303	xmlParseEndTag1(ctxt, 0);
10304	#endif /* LIBXML_SAX1_ENABLED */
10305	if (ctxt->instate == XML_PARSER_EOF) {
10306	/* Nothing */
10307	} else if (ctxt->nameNr == 0) {
10308	ctxt->instate = XML_PARSER_EPILOG;
10309	} else {
10310	ctxt->instate = XML_PARSER_CONTENT;
10311	}
10312	break;
10313	case XML_PARSER_CDATA_SECTION: {
10314	/*
10315	* The Push mode need to have the SAX callback for
10316	* cdataBlock merge back contiguous callbacks.
10317	*/
10318	int base;
10319
10320	base = xmlParseLookupSequence(ctxt, ']', ']', '>');
10321	if (base < 0) {
10322	if (avail >= XML_PARSER_BIG_BUFFER_SIZE + 2) {
10323	int tmp;
10324
10325	tmp = xmlCheckCdataPush(ctxt->input->cur,
10326	XML_PARSER_BIG_BUFFER_SIZE);
10327	if (tmp < 0) {
10328	tmp = -tmp;
10329	ctxt->input->cur += tmp;
10330	goto encoding_error;
10331	}
10332	if ((ctxt->sax != NULL) && (!ctxt->disableSAX)) {
10333	if (ctxt->sax->cdataBlock != NULL)
10334	ctxt->sax->cdataBlock(ctxt->userData,
10335	ctxt->input->cur, tmp);
10336	else if (ctxt->sax->characters != NULL)
10337	ctxt->sax->characters(ctxt->userData,
10338	ctxt->input->cur, tmp);
10339	}
10340	SKIPL(tmp);
10341	ctxt->checkIndex = 0;
10342	}
10343	goto done;
10344	} else {
10345	int tmp;
10346
10347	tmp = xmlCheckCdataPush(ctxt->input->cur, base);
10348	if ((tmp < 0) \|\| (tmp != base)) {
10349	tmp = -tmp;
10350	ctxt->input->cur += tmp;
10351	goto encoding_error;
10352	}
10353	if ((ctxt->sax != NULL) && (base > 0) &&
10354	(!ctxt->disableSAX)) {
10355	if (ctxt->sax->cdataBlock != NULL)
10356	ctxt->sax->cdataBlock(ctxt->userData,
10357	ctxt->input->cur, base);
10358	else if (ctxt->sax->characters != NULL)
10359	ctxt->sax->characters(ctxt->userData,
10360	ctxt->input->cur, base);
10361	}
10362	SKIPL(base + 3);
10363	ctxt->checkIndex = 0;
10364	ctxt->instate = XML_PARSER_CONTENT;
10365	#ifdef DEBUG_PUSH
10366	xmlGenericError(xmlGenericErrorContext,
10367	"PP: entering CONTENT\n");
10368	#endif
10369	}
10370	break;
10371	}
10372	case XML_PARSER_MISC:
10373	SKIP_BLANKS;
10374	if (ctxt->input->buf == NULL)
10375	avail = ctxt->input->length -
10376	(ctxt->input->cur - ctxt->input->base);
10377	else
10378	avail = ctxt->input->buf->buffer->use -
10379	(ctxt->input->cur - ctxt->input->base);
10380	if (avail < 2)
10381	goto done;
10382	cur = ctxt->input->cur[0];
10383	next = ctxt->input->cur[1];
10384	if ((cur == '<') && (next == '?')) {
10385	if ((!terminate) &&
10386	(xmlParseLookupSequence(ctxt, '?', '>', 0) < 0))
10387	goto done;
10388	#ifdef DEBUG_PUSH
10389	xmlGenericError(xmlGenericErrorContext,
10390	"PP: Parsing PI\n");
10391	#endif
10392	xmlParsePI(ctxt);
10393	ctxt->checkIndex = 0;
10394	} else if ((cur == '<') && (next == '!') &&
10395	(ctxt->input->cur[2] == '-') &&
10396	(ctxt->input->cur[3] == '-')) {
10397	if ((!terminate) &&
10398	(xmlParseLookupSequence(ctxt, '-', '-', '>') < 0))
10399	goto done;
10400	#ifdef DEBUG_PUSH
10401	xmlGenericError(xmlGenericErrorContext,
10402	"PP: Parsing Comment\n");
10403	#endif
10404	xmlParseComment(ctxt);
10405	ctxt->instate = XML_PARSER_MISC;
10406	ctxt->checkIndex = 0;
10407	} else if ((cur == '<') && (next == '!') &&
10408	(ctxt->input->cur[2] == 'D') &&
10409	(ctxt->input->cur[3] == 'O') &&
10410	(ctxt->input->cur[4] == 'C') &&
10411	(ctxt->input->cur[5] == 'T') &&
10412	(ctxt->input->cur[6] == 'Y') &&
10413	(ctxt->input->cur[7] == 'P') &&
10414	(ctxt->input->cur[8] == 'E')) {
10415	if ((!terminate) &&
10416	(xmlParseLookupSequence(ctxt, '>', 0, 0) < 0))
10417	goto done;
10418	#ifdef DEBUG_PUSH
10419	xmlGenericError(xmlGenericErrorContext,
10420	"PP: Parsing internal subset\n");
10421	#endif
10422	ctxt->inSubset = 1;
10423	xmlParseDocTypeDecl(ctxt);
10424	if (RAW == '[') {
10425	ctxt->instate = XML_PARSER_DTD;
10426	#ifdef DEBUG_PUSH
10427	xmlGenericError(xmlGenericErrorContext,
10428	"PP: entering DTD\n");
10429	#endif
10430	} else {
10431	/*
10432	* Create and update the external subset.
10433	*/
10434	ctxt->inSubset = 2;
10435	if ((ctxt->sax != NULL) && (!ctxt->disableSAX) &&
10436	(ctxt->sax->externalSubset != NULL))
10437	ctxt->sax->externalSubset(ctxt->userData,
10438	ctxt->intSubName, ctxt->extSubSystem,
10439	ctxt->extSubURI);
10440	ctxt->inSubset = 0;
10441	xmlCleanSpecialAttr(ctxt);
10442	ctxt->instate = XML_PARSER_PROLOG;
10443	#ifdef DEBUG_PUSH
10444	xmlGenericError(xmlGenericErrorContext,
10445	"PP: entering PROLOG\n");
10446	#endif
10447	}
10448	} else if ((cur == '<') && (next == '!') &&
10449	(avail < 9)) {
10450	goto done;
10451	} else {
10452	ctxt->instate = XML_PARSER_START_TAG;
10453	ctxt->progressive = 1;
10454	xmlParseGetLasts(ctxt, &lastlt, &lastgt);
10455	#ifdef DEBUG_PUSH
10456	xmlGenericError(xmlGenericErrorContext,
10457	"PP: entering START_TAG\n");
10458	#endif
10459	}
10460	break;
10461	case XML_PARSER_PROLOG:
10462	SKIP_BLANKS;
10463	if (ctxt->input->buf == NULL)
10464	avail = ctxt->input->length - (ctxt->input->cur - ctxt->input->base);
10465	else
10466	avail = ctxt->input->buf->buffer->use - (ctxt->input->cur - ctxt->input->base);
10467	if (avail < 2)
10468	goto done;
10469	cur = ctxt->input->cur[0];
10470	next = ctxt->input->cur[1];
10471	if ((cur == '<') && (next == '?')) {
10472	if ((!terminate) &&
10473	(xmlParseLookupSequence(ctxt, '?', '>', 0) < 0))
10474	goto done;
10475	#ifdef DEBUG_PUSH
10476	xmlGenericError(xmlGenericErrorContext,
10477	"PP: Parsing PI\n");
10478	#endif
10479	xmlParsePI(ctxt);
10480	} else if ((cur == '<') && (next == '!') &&
10481	(ctxt->input->cur[2] == '-') && (ctxt->input->cur[3] == '-')) {
10482	if ((!terminate) &&
10483	(xmlParseLookupSequence(ctxt, '-', '-', '>') < 0))
10484	goto done;
10485	#ifdef DEBUG_PUSH
10486	xmlGenericError(xmlGenericErrorContext,
10487	"PP: Parsing Comment\n");
10488	#endif
10489	xmlParseComment(ctxt);
10490	ctxt->instate = XML_PARSER_PROLOG;
10491	} else if ((cur == '<') && (next == '!') &&
10492	(avail < 4)) {
10493	goto done;
10494	} else {
10495	ctxt->instate = XML_PARSER_START_TAG;
10496	if (ctxt->progressive == 0)
10497	ctxt->progressive = 1;
10498	xmlParseGetLasts(ctxt, &lastlt, &lastgt);
10499	#ifdef DEBUG_PUSH
10500	xmlGenericError(xmlGenericErrorContext,
10501	"PP: entering START_TAG\n");
10502	#endif
10503	}
10504	break;
10505	case XML_PARSER_EPILOG:
10506	SKIP_BLANKS;
10507	if (ctxt->input->buf == NULL)
10508	avail = ctxt->input->length - (ctxt->input->cur - ctxt->input->base);
10509	else
10510	avail = ctxt->input->buf->buffer->use - (ctxt->input->cur - ctxt->input->base);
10511	if (avail < 2)
10512	goto done;
10513	cur = ctxt->input->cur[0];
10514	next = ctxt->input->cur[1];
10515	if ((cur == '<') && (next == '?')) {
10516	if ((!terminate) &&
10517	(xmlParseLookupSequence(ctxt, '?', '>', 0) < 0))
10518	goto done;
10519	#ifdef DEBUG_PUSH
10520	xmlGenericError(xmlGenericErrorContext,
10521	"PP: Parsing PI\n");
10522	#endif
10523	xmlParsePI(ctxt);
10524	ctxt->instate = XML_PARSER_EPILOG;
10525	} else if ((cur == '<') && (next == '!') &&
10526	(ctxt->input->cur[2] == '-') && (ctxt->input->cur[3] == '-')) {
10527	if ((!terminate) &&
10528	(xmlParseLookupSequence(ctxt, '-', '-', '>') < 0))
10529	goto done;
10530	#ifdef DEBUG_PUSH
10531	xmlGenericError(xmlGenericErrorContext,
10532	"PP: Parsing Comment\n");
10533	#endif
10534	xmlParseComment(ctxt);
10535	ctxt->instate = XML_PARSER_EPILOG;
10536	} else if ((cur == '<') && (next == '!') &&
10537	(avail < 4)) {
10538	goto done;
10539	} else {
10540	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_END, NULL);
10541	ctxt->instate = XML_PARSER_EOF;
10542	#ifdef DEBUG_PUSH
10543	xmlGenericError(xmlGenericErrorContext,
10544	"PP: entering EOF\n");
10545	#endif
10546	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
10547	ctxt->sax->endDocument(ctxt->userData);
10548	goto done;
10549	}
10550	break;
10551	case XML_PARSER_DTD: {
10552	/*
10553	* Sorry but progressive parsing of the internal subset
10554	* is not expected to be supported. We first check that
10555	* the full content of the internal subset is available and
10556	* the parsing is launched only at that point.
10557	* Internal subset ends up with "']' S? '>'" in an unescaped
10558	* section and not in a ']]>' sequence which are conditional
10559	* sections (whoever argued to keep that crap in XML deserve
10560	* a place in hell !).
10561	*/
10562	int base, i;
10563	xmlChar *buf;
10564	xmlChar quote = 0;
10565
10566	base = ctxt->input->cur - ctxt->input->base;
10567	if (base < 0) return(0);
10568	if (ctxt->checkIndex > base)
10569	base = ctxt->checkIndex;
10570	buf = ctxt->input->buf->buffer->content;
10571	for (;(unsigned int) base < ctxt->input->buf->buffer->use;
10572	base++) {
10573	if (quote != 0) {
10574	if (buf[base] == quote)
10575	quote = 0;
10576	continue;
10577	}
10578	if ((quote == 0) && (buf[base] == '<')) {
10579	int found = 0;
10580	/* special handling of comments */
10581	if (((unsigned int) base + 4 <
10582	ctxt->input->buf->buffer->use) &&
10583	(buf[base + 1] == '!') &&
10584	(buf[base + 2] == '-') &&
10585	(buf[base + 3] == '-')) {
10586	for (;(unsigned int) base + 3 <
10587	ctxt->input->buf->buffer->use; base++) {
10588	if ((buf[base] == '-') &&
10589	(buf[base + 1] == '-') &&
10590	(buf[base + 2] == '>')) {
10591	found = 1;
10592	base += 2;
10593	break;
10594	}
10595	}
10596	if (!found) {
10597	#if 0
10598	fprintf(stderr, "unfinished comment\n");
10599	#endif
10600	break; /* for */
10601	}
10602	continue;
10603	}
10604	}
10605	if (buf[base] == '"') {
10606	quote = '"';
10607	continue;
10608	}
10609	if (buf[base] == '\'') {
10610	quote = '\'';
10611	continue;
10612	}
10613	if (buf[base] == ']') {
10614	#if 0
10615	fprintf(stderr, "%c%c%c%c: ", buf[base],
10616	buf[base + 1], buf[base + 2], buf[base + 3]);
10617	#endif
10618	if ((unsigned int) base +1 >=
10619	ctxt->input->buf->buffer->use)
10620	break;
10621	if (buf[base + 1] == ']') {
10622	/* conditional crap, skip both ']' ! */
10623	base++;
10624	continue;
10625	}
10626	for (i = 1;
10627	(unsigned int) base + i < ctxt->input->buf->buffer->use;
10628	i++) {
10629	if (buf[base + i] == '>') {
10630	#if 0
10631	fprintf(stderr, "found\n");
10632	#endif
10633	goto found_end_int_subset;
10634	}
10635	if (!IS_BLANK_CH(buf[base + i])) {
10636	#if 0
10637	fprintf(stderr, "not found\n");
10638	#endif
10639	goto not_end_of_int_subset;
10640	}
10641	}
10642	#if 0
10643	fprintf(stderr, "end of stream\n");
10644	#endif
10645	break;
10646
10647	}
10648	not_end_of_int_subset:
10649	continue; /* for */
10650	}
10651	/*
10652	* We didn't found the end of the Internal subset
10653	*/
10654	#ifdef DEBUG_PUSH
10655	if (next == 0)
10656	xmlGenericError(xmlGenericErrorContext,
10657	"PP: lookup of int subset end filed\n");
10658	#endif
10659	goto done;
10660
10661	found_end_int_subset:
10662	xmlParseInternalSubset(ctxt);
10663	ctxt->inSubset = 2;
10664	if ((ctxt->sax != NULL) && (!ctxt->disableSAX) &&
10665	(ctxt->sax->externalSubset != NULL))
10666	ctxt->sax->externalSubset(ctxt->userData, ctxt->intSubName,
10667	ctxt->extSubSystem, ctxt->extSubURI);
10668	ctxt->inSubset = 0;
10669	xmlCleanSpecialAttr(ctxt);
10670	ctxt->instate = XML_PARSER_PROLOG;
10671	ctxt->checkIndex = 0;
10672	#ifdef DEBUG_PUSH
10673	xmlGenericError(xmlGenericErrorContext,
10674	"PP: entering PROLOG\n");
10675	#endif
10676	break;
10677	}
10678	case XML_PARSER_COMMENT:
10679	xmlGenericError(xmlGenericErrorContext,
10680	"PP: internal error, state == COMMENT\n");
10681	ctxt->instate = XML_PARSER_CONTENT;
10682	#ifdef DEBUG_PUSH
10683	xmlGenericError(xmlGenericErrorContext,
10684	"PP: entering CONTENT\n");
10685	#endif
10686	break;
10687	case XML_PARSER_IGNORE:
10688	xmlGenericError(xmlGenericErrorContext,
10689	"PP: internal error, state == IGNORE");
10690	ctxt->instate = XML_PARSER_DTD;
10691	#ifdef DEBUG_PUSH
10692	xmlGenericError(xmlGenericErrorContext,
10693	"PP: entering DTD\n");
10694	#endif
10695	break;
10696	case XML_PARSER_PI:
10697	xmlGenericError(xmlGenericErrorContext,
10698	"PP: internal error, state == PI\n");
10699	ctxt->instate = XML_PARSER_CONTENT;
10700	#ifdef DEBUG_PUSH
10701	xmlGenericError(xmlGenericErrorContext,
10702	"PP: entering CONTENT\n");
10703	#endif
10704	break;
10705	case XML_PARSER_ENTITY_DECL:
10706	xmlGenericError(xmlGenericErrorContext,
10707	"PP: internal error, state == ENTITY_DECL\n");
10708	ctxt->instate = XML_PARSER_DTD;
10709	#ifdef DEBUG_PUSH
10710	xmlGenericError(xmlGenericErrorContext,
10711	"PP: entering DTD\n");
10712	#endif
10713	break;
10714	case XML_PARSER_ENTITY_VALUE:
10715	xmlGenericError(xmlGenericErrorContext,
10716	"PP: internal error, state == ENTITY_VALUE\n");
10717	ctxt->instate = XML_PARSER_CONTENT;
10718	#ifdef DEBUG_PUSH
10719	xmlGenericError(xmlGenericErrorContext,
10720	"PP: entering DTD\n");
10721	#endif
10722	break;
10723	case XML_PARSER_ATTRIBUTE_VALUE:
10724	xmlGenericError(xmlGenericErrorContext,
10725	"PP: internal error, state == ATTRIBUTE_VALUE\n");
10726	ctxt->instate = XML_PARSER_START_TAG;
10727	#ifdef DEBUG_PUSH
10728	xmlGenericError(xmlGenericErrorContext,
10729	"PP: entering START_TAG\n");
10730	#endif
10731	break;
10732	case XML_PARSER_SYSTEM_LITERAL:
10733	xmlGenericError(xmlGenericErrorContext,
10734	"PP: internal error, state == SYSTEM_LITERAL\n");
10735	ctxt->instate = XML_PARSER_START_TAG;
10736	#ifdef DEBUG_PUSH
10737	xmlGenericError(xmlGenericErrorContext,
10738	"PP: entering START_TAG\n");
10739	#endif
10740	break;
10741	case XML_PARSER_PUBLIC_LITERAL:
10742	xmlGenericError(xmlGenericErrorContext,
10743	"PP: internal error, state == PUBLIC_LITERAL\n");
10744	ctxt->instate = XML_PARSER_START_TAG;
10745	#ifdef DEBUG_PUSH
10746	xmlGenericError(xmlGenericErrorContext,
10747	"PP: entering START_TAG\n");
10748	#endif
10749	break;
10750	}
10751	}
10752	done:
10753	#ifdef DEBUG_PUSH
10754	xmlGenericError(xmlGenericErrorContext, "PP: done %d\n", ret);
10755	#endif
10756	return(ret);
10757	encoding_error:
10758	{
10759	char buffer[150];
10760
10761	snprintf(buffer, 149, "Bytes: 0x%02X 0x%02X 0x%02X 0x%02X\n",
10762	ctxt->input->cur[0], ctxt->input->cur[1],
10763	ctxt->input->cur[2], ctxt->input->cur[3]);
10764	__xmlErrEncoding(ctxt, XML_ERR_INVALID_CHAR,
10765	"Input is not proper UTF-8, indicate encoding !\n%s",
10766	BAD_CAST buffer, NULL);
10767	}
10768	return(0);
10769	}
10770
10771	/**
10772	* xmlParseChunk:
10773	* @ctxt: an XML parser context
10774	* @chunk: an char array
10775	* @size: the size in byte of the chunk
10776	* @terminate: last chunk indicator
10777	*
10778	* Parse a Chunk of memory
10779	*
10780	* Returns zero if no error, the xmlParserErrors otherwise.
10781	*/
10782	int
10783	xmlParseChunk(xmlParserCtxtPtr ctxt, const char *chunk, int size,
10784	int terminate) {
10785	int end_in_lf = 0;
10786
10787	if (ctxt == NULL)
10788	return(XML_ERR_INTERNAL_ERROR);
10789	if ((ctxt->errNo != XML_ERR_OK) && (ctxt->disableSAX == 1))
10790	return(ctxt->errNo);
10791	if (ctxt->instate == XML_PARSER_START)
10792	xmlDetectSAX2(ctxt);
10793	if ((size > 0) && (chunk != NULL) && (!terminate) &&
10794	(chunk[size - 1] == '\r')) {
10795	end_in_lf = 1;
10796	size--;
10797	}
10798	if ((size > 0) && (chunk != NULL) && (ctxt->input != NULL) &&
10799	(ctxt->input->buf != NULL) && (ctxt->instate != XML_PARSER_EOF)) {
10800	int base = ctxt->input->base - ctxt->input->buf->buffer->content;
10801	int cur = ctxt->input->cur - ctxt->input->base;
10802	int res;
10803
10804	res =xmlParserInputBufferPush(ctxt->input->buf, size, chunk);
10805	if (res < 0) {
10806	ctxt->errNo = XML_PARSER_EOF;
10807	ctxt->disableSAX = 1;
10808	return (XML_PARSER_EOF);
10809	}
10810	ctxt->input->base = ctxt->input->buf->buffer->content + base;
10811	ctxt->input->cur = ctxt->input->base + cur;
10812	ctxt->input->end =
10813	&ctxt->input->buf->buffer->content[ctxt->input->buf->buffer->use];
10814	#ifdef DEBUG_PUSH
10815	xmlGenericError(xmlGenericErrorContext, "PP: pushed %d\n", size);
10816	#endif
10817
10818	} else if (ctxt->instate != XML_PARSER_EOF) {
10819	if ((ctxt->input != NULL) && ctxt->input->buf != NULL) {
10820	xmlParserInputBufferPtr in = ctxt->input->buf;
10821	if ((in->encoder != NULL) && (in->buffer != NULL) &&
10822	(in->raw != NULL)) {
10823	int nbchars;
10824
10825	nbchars = xmlCharEncInFunc(in->encoder, in->buffer, in->raw);
10826	if (nbchars < 0) {
10827	/* TODO 2.6.0 */
10828	xmlGenericError(xmlGenericErrorContext,
10829	"xmlParseChunk: encoder error\n");
10830	return(XML_ERR_INVALID_ENCODING);
10831	}
10832	}
10833	}
10834	}
10835	xmlParseTryOrFinish(ctxt, terminate);
10836	if ((end_in_lf == 1) && (ctxt->input != NULL) &&
10837	(ctxt->input->buf != NULL)) {
10838	xmlParserInputBufferPush(ctxt->input->buf, 1, "\r");
10839	}
10840	if ((ctxt->errNo != XML_ERR_OK) && (ctxt->disableSAX == 1))
10841	return(ctxt->errNo);
10842	if (terminate) {
10843	/*
10844	* Check for termination
10845	*/
10846	int avail = 0;
10847
10848	if (ctxt->input != NULL) {
10849	if (ctxt->input->buf == NULL)
10850	avail = ctxt->input->length -
10851	(ctxt->input->cur - ctxt->input->base);
10852	else
10853	avail = ctxt->input->buf->buffer->use -
10854	(ctxt->input->cur - ctxt->input->base);
10855	}
10856
10857	if ((ctxt->instate != XML_PARSER_EOF) &&
10858	(ctxt->instate != XML_PARSER_EPILOG)) {
10859	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_END, NULL);
10860	}
10861	if ((ctxt->instate == XML_PARSER_EPILOG) && (avail > 0)) {
10862	xmlFatalErr(ctxt, XML_ERR_DOCUMENT_END, NULL);
10863	}
10864	if (ctxt->instate != XML_PARSER_EOF) {
10865	if ((ctxt->sax) && (ctxt->sax->endDocument != NULL))
10866	ctxt->sax->endDocument(ctxt->userData);
10867	}
10868	ctxt->instate = XML_PARSER_EOF;
10869	}
10870	return((xmlParserErrors) ctxt->errNo);
10871	}
10872
10873	/************************************************************************
10874	* *
10875	* I/O front end functions to the parser *
10876	* *
10877	************************************************************************/
10878
10879	/**
10880	* xmlCreatePushParserCtxt:
10881	* @sax: a SAX handler
10882	* @user_data: The user data returned on SAX callbacks
10883	* @chunk: a pointer to an array of chars
10884	* @size: number of chars in the array
10885	* @filename: an optional file name or URI
10886	*
10887	* Create a parser context for using the XML parser in push mode.
10888	* If @buffer and @size are non-NULL, the data is used to detect
10889	* the encoding. The remaining characters will be parsed so they
10890	* don't need to be fed in again through xmlParseChunk.
10891	* To allow content encoding detection, @size should be >= 4
10892	* The value of @filename is used for fetching external entities
10893	* and error/warning reports.
10894	*
10895	* Returns the new parser context or NULL
10896	*/
10897
10898	xmlParserCtxtPtr
10899	xmlCreatePushParserCtxt(xmlSAXHandlerPtr sax, void *user_data,
10900	const char chunk, int size, const char filename) {
10901	xmlParserCtxtPtr ctxt;
10902	xmlParserInputPtr inputStream;
10903	xmlParserInputBufferPtr buf;
10904	xmlCharEncoding enc = XML_CHAR_ENCODING_NONE;
10905
10906	/*
10907	* plug some encoding conversion routines
10908	*/
10909	if ((chunk != NULL) && (size >= 4))
10910	enc = xmlDetectCharEncoding((const xmlChar *) chunk, size);
10911
10912	buf = xmlAllocParserInputBuffer(enc);
10913	if (buf == NULL) return(NULL);
10914
10915	ctxt = xmlNewParserCtxt();
10916	if (ctxt == NULL) {
10917	xmlErrMemory(NULL, "creating parser: out of memory\n");
10918	xmlFreeParserInputBuffer(buf);
10919	return(NULL);
10920	}
10921	ctxt->dictNames = 1;
10922	ctxt->pushTab = (void *) xmlMalloc(ctxt->nameMax 3 * sizeof(xmlChar *));
10923	if (ctxt->pushTab == NULL) {
10924	xmlErrMemory(ctxt, NULL);
10925	xmlFreeParserInputBuffer(buf);
10926	xmlFreeParserCtxt(ctxt);
10927	return(NULL);
10928	}
10929	if (sax != NULL) {
10930	#ifdef LIBXML_SAX1_ENABLED
10931	if (ctxt->sax != (xmlSAXHandlerPtr) &xmlDefaultSAXHandler)
10932	#endif /* LIBXML_SAX1_ENABLED */
10933	xmlFree(ctxt->sax);
10934	ctxt->sax = (xmlSAXHandlerPtr) xmlMalloc(sizeof(xmlSAXHandler));
10935	if (ctxt->sax == NULL) {
10936	xmlErrMemory(ctxt, NULL);
10937	xmlFreeParserInputBuffer(buf);
10938	xmlFreeParserCtxt(ctxt);
10939	return(NULL);
10940	}
10941	memset(ctxt->sax, 0, sizeof(xmlSAXHandler));
10942	if (sax->initialized == XML_SAX2_MAGIC)
10943	memcpy(ctxt->sax, sax, sizeof(xmlSAXHandler));
10944	else
10945	memcpy(ctxt->sax, sax, sizeof(xmlSAXHandlerV1));
10946	if (user_data != NULL)
10947	ctxt->userData = user_data;
10948	}
10949	if (filename == NULL) {
10950	ctxt->directory = NULL;
10951	} else {
10952	ctxt->directory = xmlParserGetDirectory(filename);
10953	}
10954
10955	inputStream = xmlNewInputStream(ctxt);
10956	if (inputStream == NULL) {
10957	xmlFreeParserCtxt(ctxt);
10958	xmlFreeParserInputBuffer(buf);
10959	return(NULL);
10960	}
10961
10962	if (filename == NULL)
10963	inputStream->filename = NULL;
10964	else {
10965	inputStream->filename = (char *)
10966	xmlCanonicPath((const xmlChar *) filename);
10967	if (inputStream->filename == NULL) {
10968	xmlFreeParserCtxt(ctxt);
10969	xmlFreeParserInputBuffer(buf);
10970	return(NULL);
10971	}
10972	}
10973	inputStream->buf = buf;
10974	inputStream->base = inputStream->buf->buffer->content;
10975	inputStream->cur = inputStream->buf->buffer->content;
10976	inputStream->end =
10977	&inputStream->buf->buffer->content[inputStream->buf->buffer->use];
10978
10979	inputPush(ctxt, inputStream);
10980
10981	/*
10982	* If the caller didn't provide an initial 'chunk' for determining
10983	* the encoding, we set the context to XML_CHAR_ENCODING_NONE so
10984	* that it can be automatically determined later
10985	*/
10986	if ((size == 0) \|\| (chunk == NULL)) {
10987	ctxt->charset = XML_CHAR_ENCODING_NONE;
10988	} else if ((ctxt->input != NULL) && (ctxt->input->buf != NULL)) {
10989	int base = ctxt->input->base - ctxt->input->buf->buffer->content;
10990	int cur = ctxt->input->cur - ctxt->input->base;
10991
10992	xmlParserInputBufferPush(ctxt->input->buf, size, chunk);
10993
10994	ctxt->input->base = ctxt->input->buf->buffer->content + base;
10995	ctxt->input->cur = ctxt->input->base + cur;
10996	ctxt->input->end =
10997	&ctxt->input->buf->buffer->content[ctxt->input->buf->buffer->use];
10998	#ifdef DEBUG_PUSH
10999	xmlGenericError(xmlGenericErrorContext, "PP: pushed %d\n", size);
11000	#endif
11001	}
11002
11003	if (enc != XML_CHAR_ENCODING_NONE) {
11004	xmlSwitchEncoding(ctxt, enc);
11005	}
11006
11007	return(ctxt);
11008	}
11009	#endif /* LIBXML_PUSH_ENABLED */
11010
11011	/**
11012	* xmlStopParser:
11013	* @ctxt: an XML parser context
11014	*
11015	* Blocks further parser processing
11016	*/
11017	void
11018	xmlStopParser(xmlParserCtxtPtr ctxt) {
11019	if (ctxt == NULL)
11020	return;
11021	ctxt->instate = XML_PARSER_EOF;
11022	ctxt->disableSAX = 1;
11023	if (ctxt->input != NULL) {
11024	ctxt->input->cur = BAD_CAST"";
11025	ctxt->input->base = ctxt->input->cur;
11026	}
11027	}
11028
11029	/**
11030	* xmlCreateIOParserCtxt:
11031	* @sax: a SAX handler
11032	* @user_data: The user data returned on SAX callbacks
11033	* @ioread: an I/O read function
11034	* @ioclose: an I/O close function
11035	* @ioctx: an I/O handler
11036	* @enc: the charset encoding if known
11037	*
11038	* Create a parser context for using the XML parser with an existing
11039	* I/O stream
11040	*
11041	* Returns the new parser context or NULL
11042	*/
11043	xmlParserCtxtPtr
11044	xmlCreateIOParserCtxt(xmlSAXHandlerPtr sax, void *user_data,
11045	xmlInputReadCallback ioread, xmlInputCloseCallback ioclose,
11046	void *ioctx, xmlCharEncoding enc) {
11047	xmlParserCtxtPtr ctxt;
11048	xmlParserInputPtr inputStream;
11049	xmlParserInputBufferPtr buf;
11050
11051	if (ioread == NULL) return(NULL);
11052
11053	buf = xmlParserInputBufferCreateIO(ioread, ioclose, ioctx, enc);
11054	if (buf == NULL) return(NULL);
11055
11056	ctxt = xmlNewParserCtxt();
11057	if (ctxt == NULL) {
11058	xmlFreeParserInputBuffer(buf);
11059	return(NULL);
11060	}
11061	if (sax != NULL) {
11062	#ifdef LIBXML_SAX1_ENABLED
11063	if (ctxt->sax != (xmlSAXHandlerPtr) &xmlDefaultSAXHandler)
11064	#endif /* LIBXML_SAX1_ENABLED */
11065	xmlFree(ctxt->sax);
11066	ctxt->sax = (xmlSAXHandlerPtr) xmlMalloc(sizeof(xmlSAXHandler));
11067	if (ctxt->sax == NULL) {
11068	xmlErrMemory(ctxt, NULL);
11069	xmlFreeParserCtxt(ctxt);
11070	return(NULL);
11071	}
11072	memset(ctxt->sax, 0, sizeof(xmlSAXHandler));
11073	if (sax->initialized == XML_SAX2_MAGIC)
11074	memcpy(ctxt->sax, sax, sizeof(xmlSAXHandler));
11075	else
11076	memcpy(ctxt->sax, sax, sizeof(xmlSAXHandlerV1));
11077	if (user_data != NULL)
11078	ctxt->userData = user_data;
11079	}
11080
11081	inputStream = xmlNewIOInputStream(ctxt, buf, enc);
11082	if (inputStream == NULL) {
11083	xmlFreeParserCtxt(ctxt);
11084	return(NULL);
11085	}
11086	inputPush(ctxt, inputStream);
11087
11088	return(ctxt);
11089	}
11090
11091	#ifdef LIBXML_VALID_ENABLED
11092	/************************************************************************
11093	* *
11094	* Front ends when parsing a DTD *
11095	* *
11096	************************************************************************/
11097
11098	/**
11099	* xmlIOParseDTD:
11100	* @sax: the SAX handler block or NULL
11101	* @input: an Input Buffer
11102	* @enc: the charset encoding if known
11103	*
11104	* Load and parse a DTD
11105	*
11106	* Returns the resulting xmlDtdPtr or NULL in case of error.
11107	* @input will be freed by the function in any case.
11108	*/
11109
11110	xmlDtdPtr
11111	xmlIOParseDTD(xmlSAXHandlerPtr sax, xmlParserInputBufferPtr input,
11112	xmlCharEncoding enc) {
11113	xmlDtdPtr ret = NULL;
11114	xmlParserCtxtPtr ctxt;
11115	xmlParserInputPtr pinput = NULL;
11116	xmlChar start[4];
11117
11118	if (input == NULL)
11119	return(NULL);
11120
11121	ctxt = xmlNewParserCtxt();
11122	if (ctxt == NULL) {
11123	xmlFreeParserInputBuffer(input);
11124	return(NULL);
11125	}
11126
11127	/*
11128	* Set-up the SAX context
11129	*/
11130	if (sax != NULL) {
11131	if (ctxt->sax != NULL)
11132	xmlFree(ctxt->sax);
11133	ctxt->sax = sax;
11134	ctxt->userData = ctxt;
11135	}
11136	xmlDetectSAX2(ctxt);
11137
11138	/*
11139	* generate a parser input from the I/O handler
11140	*/
11141
11142	pinput = xmlNewIOInputStream(ctxt, input, XML_CHAR_ENCODING_NONE);
11143	if (pinput == NULL) {
11144	if (sax != NULL) ctxt->sax = NULL;
11145	xmlFreeParserInputBuffer(input);
11146	xmlFreeParserCtxt(ctxt);
11147	return(NULL);
11148	}
11149
11150	/*
11151	* plug some encoding conversion routines here.
11152	*/
11153	xmlPushInput(ctxt, pinput);
11154	if (enc != XML_CHAR_ENCODING_NONE) {
11155	xmlSwitchEncoding(ctxt, enc);
11156	}
11157
11158	pinput->filename = NULL;
11159	pinput->line = 1;
11160	pinput->col = 1;
11161	pinput->base = ctxt->input->cur;
11162	pinput->cur = ctxt->input->cur;
11163	pinput->free = NULL;
11164
11165	/*
11166	* let's parse that entity knowing it's an external subset.
11167	*/
11168	ctxt->inSubset = 2;
11169	ctxt->myDoc = xmlNewDoc(BAD_CAST "1.0");
11170	ctxt->myDoc->extSubset = xmlNewDtd(ctxt->myDoc, BAD_CAST "none",
11171	BAD_CAST "none", BAD_CAST "none");
11172
11173	if ((enc == XML_CHAR_ENCODING_NONE) &&
11174	((ctxt->input->end - ctxt->input->cur) >= 4)) {
11175	/*
11176	* Get the 4 first bytes and decode the charset
11177	* if enc != XML_CHAR_ENCODING_NONE
11178	* plug some encoding conversion routines.
11179	*/
11180	start[0] = RAW;
11181	start[1] = NXT(1);
11182	start[2] = NXT(2);
11183	start[3] = NXT(3);
11184	enc = xmlDetectCharEncoding(start, 4);
11185	if (enc != XML_CHAR_ENCODING_NONE) {
11186	xmlSwitchEncoding(ctxt, enc);
11187	}
11188	}
11189
11190	xmlParseExternalSubset(ctxt, BAD_CAST "none", BAD_CAST "none");
11191
11192	if (ctxt->myDoc != NULL) {
11193	if (ctxt->wellFormed) {
11194	ret = ctxt->myDoc->extSubset;
11195	ctxt->myDoc->extSubset = NULL;
11196	if (ret != NULL) {
11197	xmlNodePtr tmp;
11198
11199	ret->doc = NULL;
11200	tmp = ret->children;
11201	while (tmp != NULL) {
11202	tmp->doc = NULL;
11203	tmp = tmp->next;
11204	}
11205	}
11206	} else {
11207	ret = NULL;
11208	}
11209	xmlFreeDoc(ctxt->myDoc);
11210	ctxt->myDoc = NULL;
11211	}
11212	if (sax != NULL) ctxt->sax = NULL;
11213	xmlFreeParserCtxt(ctxt);
11214
11215	return(ret);
11216	}
11217
11218	/**
11219	* xmlSAXParseDTD:
11220	* @sax: the SAX handler block
11221	* @ExternalID: a NAME* containing the External ID of the DTD
11222	* @SystemID: a NAME* containing the URL to the DTD
11223	*
11224	* Load and parse an external subset.
11225	*
11226	* Returns the resulting xmlDtdPtr or NULL in case of error.
11227	*/
11228
11229	xmlDtdPtr
11230	xmlSAXParseDTD(xmlSAXHandlerPtr sax, const xmlChar *ExternalID,
11231	const xmlChar *SystemID) {
11232	xmlDtdPtr ret = NULL;
11233	xmlParserCtxtPtr ctxt;
11234	xmlParserInputPtr input = NULL;
11235	xmlCharEncoding enc;
11236	xmlChar* systemIdCanonic;
11237
11238	if ((ExternalID == NULL) && (SystemID == NULL)) return(NULL);
11239
11240	ctxt = xmlNewParserCtxt();
11241	if (ctxt == NULL) {
11242	return(NULL);
11243	}
11244
11245	/*
11246	* Set-up the SAX context
11247	*/
11248	if (sax != NULL) {
11249	if (ctxt->sax != NULL)
11250	xmlFree(ctxt->sax);
11251	ctxt->sax = sax;
11252	ctxt->userData = ctxt;
11253	}
11254
11255	/*
11256	* Canonicalise the system ID
11257	*/
11258	systemIdCanonic = xmlCanonicPath(SystemID);
11259	if ((SystemID != NULL) && (systemIdCanonic == NULL)) {
11260	xmlFreeParserCtxt(ctxt);
11261	return(NULL);
11262	}
11263
11264	/*
11265	* Ask the Entity resolver to load the damn thing
11266	*/
11267
11268	if ((ctxt->sax != NULL) && (ctxt->sax->resolveEntity != NULL))
11269	input = ctxt->sax->resolveEntity(ctxt->userData, ExternalID,
11270	systemIdCanonic);
11271	if (input == NULL) {
11272	if (sax != NULL) ctxt->sax = NULL;
11273	xmlFreeParserCtxt(ctxt);
11274	if (systemIdCanonic != NULL)
11275	xmlFree(systemIdCanonic);
11276	return(NULL);
11277	}
11278
11279	/*
11280	* plug some encoding conversion routines here.
11281	*/
11282	xmlPushInput(ctxt, input);
11283	if ((ctxt->input->end - ctxt->input->cur) >= 4) {
11284	enc = xmlDetectCharEncoding(ctxt->input->cur, 4);
11285	xmlSwitchEncoding(ctxt, enc);
11286	}
11287
11288	if (input->filename == NULL)
11289	input->filename = (char *) systemIdCanonic;
11290	else
11291	xmlFree(systemIdCanonic);
11292	input->line = 1;
11293	input->col = 1;
11294	input->base = ctxt->input->cur;
11295	input->cur = ctxt->input->cur;
11296	input->free = NULL;
11297
11298	/*
11299	* let's parse that entity knowing it's an external subset.
11300	*/
11301	ctxt->inSubset = 2;
11302	ctxt->myDoc = xmlNewDoc(BAD_CAST "1.0");
11303	ctxt->myDoc->extSubset = xmlNewDtd(ctxt->myDoc, BAD_CAST "none",
11304	ExternalID, SystemID);
11305	xmlParseExternalSubset(ctxt, ExternalID, SystemID);
11306
11307	if (ctxt->myDoc != NULL) {
11308	if (ctxt->wellFormed) {
11309	ret = ctxt->myDoc->extSubset;
11310	ctxt->myDoc->extSubset = NULL;
11311	if (ret != NULL) {
11312	xmlNodePtr tmp;
11313
11314	ret->doc = NULL;
11315	tmp = ret->children;
11316	while (tmp != NULL) {
11317	tmp->doc = NULL;
11318	tmp = tmp->next;
11319	}
11320	}
11321	} else {
11322	ret = NULL;
11323	}
11324	xmlFreeDoc(ctxt->myDoc);
11325	ctxt->myDoc = NULL;
11326	}
11327	if (sax != NULL) ctxt->sax = NULL;
11328	xmlFreeParserCtxt(ctxt);
11329
11330	return(ret);
11331	}
11332
11333
11334	/**
11335	* xmlParseDTD:
11336	* @ExternalID: a NAME* containing the External ID of the DTD
11337	* @SystemID: a NAME* containing the URL to the DTD
11338	*
11339	* Load and parse an external subset.
11340	*
11341	* Returns the resulting xmlDtdPtr or NULL in case of error.
11342	*/
11343
11344	xmlDtdPtr
11345	xmlParseDTD(const xmlChar ExternalID, const xmlChar SystemID) {
11346	return(xmlSAXParseDTD(NULL, ExternalID, SystemID));
11347	}
11348	#endif /* LIBXML_VALID_ENABLED */
11349
11350	/************************************************************************
11351	* *
11352	* Front ends when parsing an Entity *
11353	* *
11354	************************************************************************/
11355
11356	/**
11357	* xmlParseCtxtExternalEntity:
11358	* @ctx: the existing parsing context
11359	* @URL: the URL for the entity to load
11360	* @ID: the System ID for the entity to load
11361	* @lst: the return value for the set of parsed nodes
11362	*
11363	* Parse an external general entity within an existing parsing context
11364	* An external general parsed entity is well-formed if it matches the
11365	* production labeled extParsedEnt.
11366	*
11367	* [78] extParsedEnt ::= TextDecl? content
11368	*
11369	* Returns 0 if the entity is well formed, -1 in case of args problem and
11370	* the parser error code otherwise
11371	*/
11372
11373	int
11374	xmlParseCtxtExternalEntity(xmlParserCtxtPtr ctx, const xmlChar *URL,
11375	const xmlChar ID, xmlNodePtr lst) {
11376	xmlParserCtxtPtr ctxt;
11377	xmlDocPtr newDoc;
11378	xmlNodePtr newRoot;
11379	xmlSAXHandlerPtr oldsax = NULL;
11380	int ret = 0;
11381	xmlChar start[4];
11382	xmlCharEncoding enc;
11383	xmlParserInputPtr inputStream;
11384	char *directory = NULL;
11385
11386	if (ctx == NULL) return(-1);
11387
11388	if (ctx->depth > 40) {
11389	return(XML_ERR_ENTITY_LOOP);
11390	}
11391
11392	if (lst != NULL)
11393	*lst = NULL;
11394	if ((URL == NULL) && (ID == NULL))
11395	return(-1);
11396	if (ctx->myDoc == NULL) /* @@ relax but check for dereferences */
11397	return(-1);
11398
11399	ctxt = xmlNewParserCtxt();
11400	if (ctxt == NULL) {
11401	return(-1);
11402	}
11403
11404	ctxt->userData = ctxt;
11405	ctxt->_private = ctx->_private;
11406
11407	inputStream = xmlLoadExternalEntity((char )URL, (char )ID, ctxt);
11408	if (inputStream == NULL) {
11409	xmlFreeParserCtxt(ctxt);
11410	return(-1);
11411	}
11412
11413	inputPush(ctxt, inputStream);
11414
11415	if ((ctxt->directory == NULL) && (directory == NULL))
11416	directory = xmlParserGetDirectory((char *)URL);
11417	if ((ctxt->directory == NULL) && (directory != NULL))
11418	ctxt->directory = directory;
11419
11420	oldsax = ctxt->sax;
11421	ctxt->sax = ctx->sax;
11422	xmlDetectSAX2(ctxt);
11423	newDoc = xmlNewDoc(BAD_CAST "1.0");
11424	if (newDoc == NULL) {
11425	xmlFreeParserCtxt(ctxt);
11426	return(-1);
11427	}
11428	if (ctx->myDoc->dict) {
11429	newDoc->dict = ctx->myDoc->dict;
11430	xmlDictReference(newDoc->dict);
11431	}
11432	if (ctx->myDoc != NULL) {
11433	newDoc->intSubset = ctx->myDoc->intSubset;
11434	newDoc->extSubset = ctx->myDoc->extSubset;
11435	}
11436	if (ctx->myDoc->URL != NULL) {
11437	newDoc->URL = xmlStrdup(ctx->myDoc->URL);
11438	}
11439	newRoot = xmlNewDocNode(newDoc, NULL, BAD_CAST "pseudoroot", NULL);
11440	if (newRoot == NULL) {
11441	ctxt->sax = oldsax;
11442	xmlFreeParserCtxt(ctxt);
11443	newDoc->intSubset = NULL;
11444	newDoc->extSubset = NULL;
11445	xmlFreeDoc(newDoc);
11446	return(-1);
11447	}
11448	xmlAddChild((xmlNodePtr) newDoc, newRoot);
11449	nodePush(ctxt, newDoc->children);
11450	if (ctx->myDoc == NULL) {
11451	ctxt->myDoc = newDoc;
11452	} else {
11453	ctxt->myDoc = ctx->myDoc;
11454	newDoc->children->doc = ctx->myDoc;
11455	}
11456
11457	/*
11458	* Get the 4 first bytes and decode the charset
11459	* if enc != XML_CHAR_ENCODING_NONE
11460	* plug some encoding conversion routines.
11461	*/
11462	GROW
11463	if ((ctxt->input->end - ctxt->input->cur) >= 4) {
11464	start[0] = RAW;
11465	start[1] = NXT(1);
11466	start[2] = NXT(2);
11467	start[3] = NXT(3);
11468	enc = xmlDetectCharEncoding(start, 4);
11469	if (enc != XML_CHAR_ENCODING_NONE) {
11470	xmlSwitchEncoding(ctxt, enc);
11471	}
11472	}
11473
11474	/*
11475	* Parse a possible text declaration first
11476	*/
11477	if ((CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) && (IS_BLANK_CH(NXT(5)))) {
11478	xmlParseTextDecl(ctxt);
11479	}
11480
11481	/*
11482	* Doing validity checking on chunk doesn't make sense
11483	*/
11484	ctxt->instate = XML_PARSER_CONTENT;
11485	ctxt->validate = ctx->validate;
11486	ctxt->valid = ctx->valid;
11487	ctxt->loadsubset = ctx->loadsubset;
11488	ctxt->depth = ctx->depth + 1;
11489	ctxt->replaceEntities = ctx->replaceEntities;
11490	if (ctxt->validate) {
11491	ctxt->vctxt.error = ctx->vctxt.error;
11492	ctxt->vctxt.warning = ctx->vctxt.warning;
11493	} else {
11494	ctxt->vctxt.error = NULL;
11495	ctxt->vctxt.warning = NULL;
11496	}
11497	ctxt->vctxt.nodeTab = NULL;
11498	ctxt->vctxt.nodeNr = 0;
11499	ctxt->vctxt.nodeMax = 0;
11500	ctxt->vctxt.node = NULL;
11501	if (ctxt->dict != NULL) xmlDictFree(ctxt->dict);
11502	ctxt->dict = ctx->dict;
11503	ctxt->str_xml = xmlDictLookup(ctxt->dict, BAD_CAST "xml", 3);
11504	ctxt->str_xmlns = xmlDictLookup(ctxt->dict, BAD_CAST "xmlns", 5);
11505	ctxt->str_xml_ns = xmlDictLookup(ctxt->dict, XML_XML_NAMESPACE, 36);
11506	ctxt->dictNames = ctx->dictNames;
11507	ctxt->attsDefault = ctx->attsDefault;
11508	ctxt->attsSpecial = ctx->attsSpecial;
11509	ctxt->linenumbers = ctx->linenumbers;
11510
11511	xmlParseContent(ctxt);
11512
11513	ctx->validate = ctxt->validate;
11514	ctx->valid = ctxt->valid;
11515	if ((RAW == '<') && (NXT(1) == '/')) {
11516	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
11517	} else if (RAW != 0) {
11518	xmlFatalErr(ctxt, XML_ERR_EXTRA_CONTENT, NULL);
11519	}
11520	if (ctxt->node != newDoc->children) {
11521	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
11522	}
11523
11524	if (!ctxt->wellFormed) {
11525	if (ctxt->errNo == 0)
11526	ret = 1;
11527	else
11528	ret = ctxt->errNo;
11529	} else {
11530	if (lst != NULL) {
11531	xmlNodePtr cur;
11532
11533	/*
11534	* Return the newly created nodeset after unlinking it from
11535	* they pseudo parent.
11536	*/
11537	cur = newDoc->children->children;
11538	*lst = cur;
11539	while (cur != NULL) {
11540	cur->parent = NULL;
11541	cur = cur->next;
11542	}
11543	newDoc->children->children = NULL;
11544	}
11545	ret = 0;
11546	}
11547	ctxt->sax = oldsax;
11548	ctxt->dict = NULL;
11549	ctxt->attsDefault = NULL;
11550	ctxt->attsSpecial = NULL;
11551	xmlFreeParserCtxt(ctxt);
11552	newDoc->intSubset = NULL;
11553	newDoc->extSubset = NULL;
11554	xmlFreeDoc(newDoc);
11555
11556	return(ret);
11557	}
11558
11559	/**
11560	* xmlParseExternalEntityPrivate:
11561	* @doc: the document the chunk pertains to
11562	* @oldctxt: the previous parser context if available
11563	* @sax: the SAX handler bloc (possibly NULL)
11564	* @user_data: The user data returned on SAX callbacks (possibly NULL)
11565	* @depth: Used for loop detection, use 0
11566	* @URL: the URL for the entity to load
11567	* @ID: the System ID for the entity to load
11568	* @list: the return value for the set of parsed nodes
11569	*
11570	* Private version of xmlParseExternalEntity()
11571	*
11572	* Returns 0 if the entity is well formed, -1 in case of args problem and
11573	* the parser error code otherwise
11574	*/
11575
11576	static xmlParserErrors
11577	xmlParseExternalEntityPrivate(xmlDocPtr doc, xmlParserCtxtPtr oldctxt,
11578	xmlSAXHandlerPtr sax,
11579	void user_data, int depth, const xmlChar URL,
11580	const xmlChar ID, xmlNodePtr list) {
11581	xmlParserCtxtPtr ctxt;
11582	xmlDocPtr newDoc;
11583	xmlNodePtr newRoot;
11584	xmlSAXHandlerPtr oldsax = NULL;
11585	xmlParserErrors ret = XML_ERR_OK;
11586	xmlChar start[4];
11587	xmlCharEncoding enc;
11588
11589	if (depth > 40) {
11590	return(XML_ERR_ENTITY_LOOP);
11591	}
11592
11593
11594
11595	if (list != NULL)
11596	*list = NULL;
11597	if ((URL == NULL) && (ID == NULL))
11598	return(XML_ERR_INTERNAL_ERROR);
11599	if (doc == NULL)
11600	return(XML_ERR_INTERNAL_ERROR);
11601
11602
11603	ctxt = xmlCreateEntityParserCtxt(URL, ID, NULL);
11604	if (ctxt == NULL) return(XML_WAR_UNDECLARED_ENTITY);
11605	ctxt->userData = ctxt;
11606	if (oldctxt != NULL) {
11607	ctxt->_private = oldctxt->_private;
11608	ctxt->loadsubset = oldctxt->loadsubset;
11609	ctxt->validate = oldctxt->validate;
11610	ctxt->external = oldctxt->external;
11611	ctxt->record_info = oldctxt->record_info;
11612	ctxt->node_seq.maximum = oldctxt->node_seq.maximum;
11613	ctxt->node_seq.length = oldctxt->node_seq.length;
11614	ctxt->node_seq.buffer = oldctxt->node_seq.buffer;
11615	} else {
11616	/*
11617	* Doing validity checking on chunk without context
11618	* doesn't make sense
11619	*/
11620	ctxt->_private = NULL;
11621	ctxt->validate = 0;
11622	ctxt->external = 2;
11623	ctxt->loadsubset = 0;
11624	}
11625	if (sax != NULL) {
11626	oldsax = ctxt->sax;
11627	ctxt->sax = sax;
11628	if (user_data != NULL)
11629	ctxt->userData = user_data;
11630	}
11631	xmlDetectSAX2(ctxt);
11632	newDoc = xmlNewDoc(BAD_CAST "1.0");
11633	if (newDoc == NULL) {
11634	ctxt->node_seq.maximum = 0;
11635	ctxt->node_seq.length = 0;
11636	ctxt->node_seq.buffer = NULL;
11637	xmlFreeParserCtxt(ctxt);
11638	return(XML_ERR_INTERNAL_ERROR);
11639	}
11640	newDoc->intSubset = doc->intSubset;
11641	newDoc->extSubset = doc->extSubset;
11642	newDoc->dict = doc->dict;
11643	xmlDictReference(newDoc->dict);
11644
11645	if (doc->URL != NULL) {
11646	newDoc->URL = xmlStrdup(doc->URL);
11647	}
11648	newRoot = xmlNewDocNode(newDoc, NULL, BAD_CAST "pseudoroot", NULL);
11649	if (newRoot == NULL) {
11650	if (sax != NULL)
11651	ctxt->sax = oldsax;
11652	ctxt->node_seq.maximum = 0;
11653	ctxt->node_seq.length = 0;
11654	ctxt->node_seq.buffer = NULL;
11655	xmlFreeParserCtxt(ctxt);
11656	newDoc->intSubset = NULL;
11657	newDoc->extSubset = NULL;
11658	xmlFreeDoc(newDoc);
11659	return(XML_ERR_INTERNAL_ERROR);
11660	}
11661	xmlAddChild((xmlNodePtr) newDoc, newRoot);
11662	nodePush(ctxt, newDoc->children);
11663	ctxt->myDoc = doc;
11664	newRoot->doc = doc;
11665
11666	/*
11667	* Get the 4 first bytes and decode the charset
11668	* if enc != XML_CHAR_ENCODING_NONE
11669	* plug some encoding conversion routines.
11670	*/
11671	GROW;
11672	if ((ctxt->input->end - ctxt->input->cur) >= 4) {
11673	start[0] = RAW;
11674	start[1] = NXT(1);
11675	start[2] = NXT(2);
11676	start[3] = NXT(3);
11677	enc = xmlDetectCharEncoding(start, 4);
11678	if (enc != XML_CHAR_ENCODING_NONE) {
11679	xmlSwitchEncoding(ctxt, enc);
11680	}
11681	}
11682
11683	/*
11684	* Parse a possible text declaration first
11685	*/
11686	if ((CMP5(CUR_PTR, '<', '?', 'x', 'm', 'l')) && (IS_BLANK_CH(NXT(5)))) {
11687	xmlParseTextDecl(ctxt);
11688	}
11689
11690	ctxt->instate = XML_PARSER_CONTENT;
11691	ctxt->depth = depth;
11692
11693	xmlParseContent(ctxt);
11694
11695	if ((RAW == '<') && (NXT(1) == '/')) {
11696	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
11697	} else if (RAW != 0) {
11698	xmlFatalErr(ctxt, XML_ERR_EXTRA_CONTENT, NULL);
11699	}
11700	if (ctxt->node != newDoc->children) {
11701	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
11702	}
11703
11704	if (!ctxt->wellFormed) {
11705	if (ctxt->errNo == 0)
11706	ret = XML_ERR_INTERNAL_ERROR;
11707	else
11708	ret = (xmlParserErrors)ctxt->errNo;
11709	} else {
11710	if (list != NULL) {
11711	xmlNodePtr cur;
11712
11713	/*
11714	* Return the newly created nodeset after unlinking it from
11715	* they pseudo parent.
11716	*/
11717	cur = newDoc->children->children;
11718	*list = cur;
11719	while (cur != NULL) {
11720	cur->parent = NULL;
11721	cur = cur->next;
11722	}
11723	newDoc->children->children = NULL;
11724	}
11725	ret = XML_ERR_OK;
11726	}
11727
11728	/*
11729	* Record in the parent context the number of entities replacement
11730	* done when parsing that reference.
11731	*/
11732	oldctxt->nbentities += ctxt->nbentities;
11733	/*
11734	* Also record the size of the entity parsed
11735	*/
11736	if (ctxt->input != NULL) {
11737	oldctxt->sizeentities += ctxt->input->consumed;
11738	oldctxt->sizeentities += (ctxt->input->cur - ctxt->input->base);
11739	}
11740	/*
11741	* And record the last error if any
11742	*/
11743	if (ctxt->lastError.code != XML_ERR_OK)
11744	xmlCopyError(&ctxt->lastError, &oldctxt->lastError);
11745
11746	if (sax != NULL)
11747	ctxt->sax = oldsax;
11748	oldctxt->node_seq.maximum = ctxt->node_seq.maximum;
11749	oldctxt->node_seq.length = ctxt->node_seq.length;
11750	oldctxt->node_seq.buffer = ctxt->node_seq.buffer;
11751	oldctxt->nbentities += ctxt->nbentities;
11752	ctxt->node_seq.maximum = 0;
11753	ctxt->node_seq.length = 0;
11754	ctxt->node_seq.buffer = NULL;
11755	xmlFreeParserCtxt(ctxt);
11756	newDoc->intSubset = NULL;
11757	newDoc->extSubset = NULL;
11758	xmlFreeDoc(newDoc);
11759
11760	return(ret);
11761	}
11762
11763	#ifdef LIBXML_SAX1_ENABLED
11764	/**
11765	* xmlParseExternalEntity:
11766	* @doc: the document the chunk pertains to
11767	* @sax: the SAX handler bloc (possibly NULL)
11768	* @user_data: The user data returned on SAX callbacks (possibly NULL)
11769	* @depth: Used for loop detection, use 0
11770	* @URL: the URL for the entity to load
11771	* @ID: the System ID for the entity to load
11772	* @lst: the return value for the set of parsed nodes
11773	*
11774	* Parse an external general entity
11775	* An external general parsed entity is well-formed if it matches the
11776	* production labeled extParsedEnt.
11777	*
11778	* [78] extParsedEnt ::= TextDecl? content
11779	*
11780	* Returns 0 if the entity is well formed, -1 in case of args problem and
11781	* the parser error code otherwise
11782	*/
11783
11784	int
11785	xmlParseExternalEntity(xmlDocPtr doc, xmlSAXHandlerPtr sax, void *user_data,
11786	int depth, const xmlChar URL, const xmlChar ID, xmlNodePtr *lst) {
11787	return(xmlParseExternalEntityPrivate(doc, NULL, sax, user_data, depth, URL,
11788	ID, lst));
11789	}
11790
11791	/**
11792	* xmlParseBalancedChunkMemory:
11793	* @doc: the document the chunk pertains to
11794	* @sax: the SAX handler bloc (possibly NULL)
11795	* @user_data: The user data returned on SAX callbacks (possibly NULL)
11796	* @depth: Used for loop detection, use 0
11797	* @string: the input string in UTF8 or ISO-Latin (zero terminated)
11798	* @lst: the return value for the set of parsed nodes
11799	*
11800	* Parse a well-balanced chunk of an XML document
11801	* called by the parser
11802	* The allowed sequence for the Well Balanced Chunk is the one defined by
11803	* the content production in the XML grammar:
11804	*
11805	* [43] content ::= (element \| CharData \| Reference \| CDSect \| PI \| Comment)*
11806	*
11807	* Returns 0 if the chunk is well balanced, -1 in case of args problem and
11808	* the parser error code otherwise
11809	*/
11810
11811	int
11812	xmlParseBalancedChunkMemory(xmlDocPtr doc, xmlSAXHandlerPtr sax,
11813	void user_data, int depth, const xmlChar string, xmlNodePtr *lst) {
11814	return xmlParseBalancedChunkMemoryRecover( doc, sax, user_data,
11815	depth, string, lst, 0 );
11816	}
11817	#endif /* LIBXML_SAX1_ENABLED */
11818
11819	/**
11820	* xmlParseBalancedChunkMemoryInternal:
11821	* @oldctxt: the existing parsing context
11822	* @string: the input string in UTF8 or ISO-Latin (zero terminated)
11823	* @user_data: the user data field for the parser context
11824	* @lst: the return value for the set of parsed nodes
11825	*
11826	*
11827	* Parse a well-balanced chunk of an XML document
11828	* called by the parser
11829	* The allowed sequence for the Well Balanced Chunk is the one defined by
11830	* the content production in the XML grammar:
11831	*
11832	* [43] content ::= (element \| CharData \| Reference \| CDSect \| PI \| Comment)*
11833	*
11834	* Returns XML_ERR_OK if the chunk is well balanced, and the parser
11835	* error code otherwise
11836	*
11837	* In case recover is set to 1, the nodelist will not be empty even if
11838	* the parsed chunk is not well balanced.
11839	*/
11840	static xmlParserErrors
11841	xmlParseBalancedChunkMemoryInternal(xmlParserCtxtPtr oldctxt,
11842	const xmlChar string, void user_data, xmlNodePtr *lst) {
11843	xmlParserCtxtPtr ctxt;
11844	xmlDocPtr newDoc = NULL;
11845	xmlNodePtr newRoot;
11846	xmlSAXHandlerPtr oldsax = NULL;
11847	xmlNodePtr content = NULL;
11848	xmlNodePtr last = NULL;
11849	int size;
11850	xmlParserErrors ret = XML_ERR_OK;
11851
11852	if (oldctxt->depth > 40) {
11853	return(XML_ERR_ENTITY_LOOP);
11854	}
11855
11856
11857	if (lst != NULL)
11858	*lst = NULL;
11859	if (string == NULL)
11860	return(XML_ERR_INTERNAL_ERROR);
11861
11862	size = xmlStrlen(string);
11863
11864	ctxt = xmlCreateMemoryParserCtxt((char *) string, size);
11865	if (ctxt == NULL) return(XML_WAR_UNDECLARED_ENTITY);
11866	if (user_data != NULL)
11867	ctxt->userData = user_data;
11868	else
11869	ctxt->userData = ctxt;
11870	if (ctxt->dict != NULL) xmlDictFree(ctxt->dict);
11871	ctxt->dict = oldctxt->dict;
11872	ctxt->str_xml = xmlDictLookup(ctxt->dict, BAD_CAST "xml", 3);
11873	ctxt->str_xmlns = xmlDictLookup(ctxt->dict, BAD_CAST "xmlns", 5);
11874	ctxt->str_xml_ns = xmlDictLookup(ctxt->dict, XML_XML_NAMESPACE, 36);
11875
11876	oldsax = ctxt->sax;
11877	ctxt->sax = oldctxt->sax;
11878	xmlDetectSAX2(ctxt);
11879	ctxt->replaceEntities = oldctxt->replaceEntities;
11880	ctxt->options = oldctxt->options;
11881
11882	ctxt->_private = oldctxt->_private;
11883	if (oldctxt->myDoc == NULL) {
11884	newDoc = xmlNewDoc(BAD_CAST "1.0");
11885	if (newDoc == NULL) {
11886	ctxt->sax = oldsax;
11887	ctxt->dict = NULL;
11888	xmlFreeParserCtxt(ctxt);
11889	return(XML_ERR_INTERNAL_ERROR);
11890	}
11891	newDoc->dict = ctxt->dict;
11892	xmlDictReference(newDoc->dict);
11893	ctxt->myDoc = newDoc;
11894	} else {
11895	ctxt->myDoc = oldctxt->myDoc;
11896	content = ctxt->myDoc->children;
11897	last = ctxt->myDoc->last;
11898	}
11899	newRoot = xmlNewDocNode(ctxt->myDoc, NULL, BAD_CAST "pseudoroot", NULL);
11900	if (newRoot == NULL) {
11901	ctxt->sax = oldsax;
11902	ctxt->dict = NULL;
11903	xmlFreeParserCtxt(ctxt);
11904	if (newDoc != NULL) {
11905	xmlFreeDoc(newDoc);
11906	}
11907	return(XML_ERR_INTERNAL_ERROR);
11908	}
11909	ctxt->myDoc->children = NULL;
11910	ctxt->myDoc->last = NULL;
11911	xmlAddChild((xmlNodePtr) ctxt->myDoc, newRoot);
11912	nodePush(ctxt, ctxt->myDoc->children);
11913	ctxt->instate = XML_PARSER_CONTENT;
11914	ctxt->depth = oldctxt->depth + 1;
11915
11916	ctxt->validate = 0;
11917	ctxt->loadsubset = oldctxt->loadsubset;
11918	if ((oldctxt->validate) \|\| (oldctxt->replaceEntities != 0)) {
11919	/*
11920	* ID/IDREF registration will be done in xmlValidateElement below
11921	*/
11922	ctxt->loadsubset \|= XML_SKIP_IDS;
11923	}
11924	ctxt->dictNames = oldctxt->dictNames;
11925	ctxt->attsDefault = oldctxt->attsDefault;
11926	ctxt->attsSpecial = oldctxt->attsSpecial;
11927
11928	xmlParseContent(ctxt);
11929	if ((RAW == '<') && (NXT(1) == '/')) {
11930	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
11931	} else if (RAW != 0) {
11932	xmlFatalErr(ctxt, XML_ERR_EXTRA_CONTENT, NULL);
11933	}
11934	if (ctxt->node != ctxt->myDoc->children) {
11935	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
11936	}
11937
11938	if (!ctxt->wellFormed) {
11939	if (ctxt->errNo == 0)
11940	ret = XML_ERR_INTERNAL_ERROR;
11941	else
11942	ret = (xmlParserErrors)ctxt->errNo;
11943	} else {
11944	ret = XML_ERR_OK;
11945	}
11946
11947	if ((lst != NULL) && (ret == XML_ERR_OK)) {
11948	xmlNodePtr cur;
11949
11950	/*
11951	* Return the newly created nodeset after unlinking it from
11952	* they pseudo parent.
11953	*/
11954	cur = ctxt->myDoc->children->children;
11955	*lst = cur;
11956	while (cur != NULL) {
11957	#ifdef LIBXML_VALID_ENABLED
11958	if ((oldctxt->validate) && (oldctxt->wellFormed) &&
11959	(oldctxt->myDoc) && (oldctxt->myDoc->intSubset) &&
11960	(cur->type == XML_ELEMENT_NODE)) {
11961	oldctxt->valid &= xmlValidateElement(&oldctxt->vctxt,
11962	oldctxt->myDoc, cur);
11963	}
11964	#endif /* LIBXML_VALID_ENABLED */
11965	cur->parent = NULL;
11966	cur = cur->next;
11967	}
11968	ctxt->myDoc->children->children = NULL;
11969	}
11970	if (ctxt->myDoc != NULL) {
11971	xmlFreeNode(ctxt->myDoc->children);
11972	ctxt->myDoc->children = content;
11973	ctxt->myDoc->last = last;
11974	}
11975
11976	/*
11977	* Record in the parent context the number of entities replacement
11978	* done when parsing that reference.
11979	*/
11980	oldctxt->nbentities += ctxt->nbentities;
11981	/*
11982	* Also record the last error if any
11983	*/
11984	if (ctxt->lastError.code != XML_ERR_OK)
11985	xmlCopyError(&ctxt->lastError, &oldctxt->lastError);
11986
11987	ctxt->sax = oldsax;
11988	ctxt->dict = NULL;
11989	ctxt->attsDefault = NULL;
11990	ctxt->attsSpecial = NULL;
11991	xmlFreeParserCtxt(ctxt);
11992	if (newDoc != NULL) {
11993	xmlFreeDoc(newDoc);
11994	}
11995
11996	return(ret);
11997	}
11998
11999	/**
12000	* xmlParseInNodeContext:
12001	* @node: the context node
12002	* @data: the input string
12003	* @datalen: the input string length in bytes
12004	* @options: a combination of xmlParserOption
12005	* @lst: the return value for the set of parsed nodes
12006	*
12007	* Parse a well-balanced chunk of an XML document
12008	* within the context (DTD, namespaces, etc ...) of the given node.
12009	*
12010	* The allowed sequence for the data is a Well Balanced Chunk defined by
12011	* the content production in the XML grammar:
12012	*
12013	* [43] content ::= (element \| CharData \| Reference \| CDSect \| PI \| Comment)*
12014	*
12015	* Returns XML_ERR_OK if the chunk is well balanced, and the parser
12016	* error code otherwise
12017	*/
12018	xmlParserErrors
12019	xmlParseInNodeContext(xmlNodePtr node, const char *data, int datalen,
12020	int options, xmlNodePtr *lst) {
12021	#ifdef SAX2
12022	xmlParserCtxtPtr ctxt;
12023	xmlDocPtr doc = NULL;
12024	xmlNodePtr fake, cur;
12025	int nsnr = 0;
12026
12027	xmlParserErrors ret = XML_ERR_OK;
12028
12029	/*
12030	* check all input parameters, grab the document
12031	*/
12032	if ((lst == NULL) \|\| (node == NULL) \|\| (data == NULL) \|\| (datalen < 0))
12033	return(XML_ERR_INTERNAL_ERROR);
12034	switch (node->type) {
12035	case XML_ELEMENT_NODE:
12036	case XML_ATTRIBUTE_NODE:
12037	case XML_TEXT_NODE:
12038	case XML_CDATA_SECTION_NODE:
12039	case XML_ENTITY_REF_NODE:
12040	case XML_PI_NODE:
12041	case XML_COMMENT_NODE:
12042	case XML_DOCUMENT_NODE:
12043	case XML_HTML_DOCUMENT_NODE:
12044	break;
12045	default:
12046	return(XML_ERR_INTERNAL_ERROR);
12047
12048	}
12049	while ((node != NULL) && (node->type != XML_ELEMENT_NODE) &&
12050	(node->type != XML_DOCUMENT_NODE) &&
12051	(node->type != XML_HTML_DOCUMENT_NODE))
12052	node = node->parent;
12053	if (node == NULL)
12054	return(XML_ERR_INTERNAL_ERROR);
12055	if (node->type == XML_ELEMENT_NODE)
12056	doc = node->doc;
12057	else
12058	doc = (xmlDocPtr) node;
12059	if (doc == NULL)
12060	return(XML_ERR_INTERNAL_ERROR);
12061
12062	/*
12063	* allocate a context and set-up everything not related to the
12064	* node position in the tree
12065	*/
12066	if (doc->type == XML_DOCUMENT_NODE)
12067	ctxt = xmlCreateMemoryParserCtxt((char *) data, datalen);
12068	#ifdef LIBXML_HTML_ENABLED
12069	else if (doc->type == XML_HTML_DOCUMENT_NODE)
12070	ctxt = htmlCreateMemoryParserCtxt((char *) data, datalen);
12071	#endif
12072	else
12073	return(XML_ERR_INTERNAL_ERROR);
12074
12075	if (ctxt == NULL)
12076	return(XML_ERR_NO_MEMORY);
12077	fake = xmlNewComment(NULL);
12078	if (fake == NULL) {
12079	xmlFreeParserCtxt(ctxt);
12080	return(XML_ERR_NO_MEMORY);
12081	}
12082	xmlAddChild(node, fake);
12083
12084	/*
12085	* Use input doc's dict if present, else assure XML_PARSE_NODICT is set.
12086	* We need a dictionary for xmlDetectSAX2, so if there's no doc dict
12087	* we must wait until the last moment to free the original one.
12088	*/
12089	if (doc->dict != NULL) {
12090	if (ctxt->dict != NULL)
12091	xmlDictFree(ctxt->dict);
12092	ctxt->dict = doc->dict;
12093	} else
12094	options \|= XML_PARSE_NODICT;
12095
12096	xmlCtxtUseOptions(ctxt, options);
12097	xmlDetectSAX2(ctxt);
12098	ctxt->myDoc = doc;
12099
12100	if (node->type == XML_ELEMENT_NODE) {
12101	nodePush(ctxt, node);
12102	/*
12103	* initialize the SAX2 namespaces stack
12104	*/
12105	cur = node;
12106	while ((cur != NULL) && (cur->type == XML_ELEMENT_NODE)) {
12107	xmlNsPtr ns = cur->nsDef;
12108	const xmlChar iprefix, ihref;
12109
12110	while (ns != NULL) {
12111	if (ctxt->dict) {
12112	iprefix = xmlDictLookup(ctxt->dict, ns->prefix, -1);
12113	ihref = xmlDictLookup(ctxt->dict, ns->href, -1);
12114	} else {
12115	iprefix = ns->prefix;
12116	ihref = ns->href;
12117	}
12118
12119	if (xmlGetNamespace(ctxt, iprefix) == NULL) {
12120	nsPush(ctxt, iprefix, ihref);
12121	nsnr++;
12122	}
12123	ns = ns->next;
12124	}
12125	cur = cur->parent;
12126	}
12127	ctxt->instate = XML_PARSER_CONTENT;
12128	}
12129
12130	if ((ctxt->validate) \|\| (ctxt->replaceEntities != 0)) {
12131	/*
12132	* ID/IDREF registration will be done in xmlValidateElement below
12133	*/
12134	ctxt->loadsubset \|= XML_SKIP_IDS;
12135	}
12136
12137	#ifdef LIBXML_HTML_ENABLED
12138	if (doc->type == XML_HTML_DOCUMENT_NODE)
12139	__htmlParseContent(ctxt);
12140	else
12141	#endif
12142	xmlParseContent(ctxt);
12143
12144	nsPop(ctxt, nsnr);
12145	if ((RAW == '<') && (NXT(1) == '/')) {
12146	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
12147	} else if (RAW != 0) {
12148	xmlFatalErr(ctxt, XML_ERR_EXTRA_CONTENT, NULL);
12149	}
12150	if ((ctxt->node != NULL) && (ctxt->node != node)) {
12151	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
12152	ctxt->wellFormed = 0;
12153	}
12154
12155	if (!ctxt->wellFormed) {
12156	if (ctxt->errNo == 0)
12157	ret = XML_ERR_INTERNAL_ERROR;
12158	else
12159	ret = (xmlParserErrors)ctxt->errNo;
12160	} else {
12161	ret = XML_ERR_OK;
12162	}
12163
12164	/*
12165	* Return the newly created nodeset after unlinking it from
12166	* the pseudo sibling.
12167	*/
12168
12169	cur = fake->next;
12170	fake->next = NULL;
12171	node->last = fake;
12172
12173	if (cur != NULL) {
12174	cur->prev = NULL;
12175	}
12176
12177	*lst = cur;
12178
12179	while (cur != NULL) {
12180	cur->parent = NULL;
12181	cur = cur->next;
12182	}
12183
12184	xmlUnlinkNode(fake);
12185	xmlFreeNode(fake);
12186
12187
12188	if (ret != XML_ERR_OK) {
12189	xmlFreeNodeList(*lst);
12190	*lst = NULL;
12191	}
12192
12193	if (doc->dict != NULL)
12194	ctxt->dict = NULL;
12195	xmlFreeParserCtxt(ctxt);
12196
12197	return(ret);
12198	#else /* !SAX2 */
12199	return(XML_ERR_INTERNAL_ERROR);
12200	#endif
12201	}
12202
12203	#ifdef LIBXML_SAX1_ENABLED
12204	/**
12205	* xmlParseBalancedChunkMemoryRecover:
12206	* @doc: the document the chunk pertains to
12207	* @sax: the SAX handler bloc (possibly NULL)
12208	* @user_data: The user data returned on SAX callbacks (possibly NULL)
12209	* @depth: Used for loop detection, use 0
12210	* @string: the input string in UTF8 or ISO-Latin (zero terminated)
12211	* @lst: the return value for the set of parsed nodes
12212	* @recover: return nodes even if the data is broken (use 0)
12213	*
12214	*
12215	* Parse a well-balanced chunk of an XML document
12216	* called by the parser
12217	* The allowed sequence for the Well Balanced Chunk is the one defined by
12218	* the content production in the XML grammar:
12219	*
12220	* [43] content ::= (element \| CharData \| Reference \| CDSect \| PI \| Comment)*
12221	*
12222	* Returns 0 if the chunk is well balanced, -1 in case of args problem and
12223	* the parser error code otherwise
12224	*
12225	* In case recover is set to 1, the nodelist will not be empty even if
12226	* the parsed chunk is not well balanced.
12227	*/
12228	int
12229	xmlParseBalancedChunkMemoryRecover(xmlDocPtr doc, xmlSAXHandlerPtr sax,
12230	void user_data, int depth, const xmlChar string, xmlNodePtr *lst,
12231	int recover) {
12232	xmlParserCtxtPtr ctxt;
12233	xmlDocPtr newDoc;
12234	xmlSAXHandlerPtr oldsax = NULL;
12235	xmlNodePtr content, newRoot;
12236	int size;
12237	int ret = 0;
12238
12239	if (depth > 40) {
12240	return(XML_ERR_ENTITY_LOOP);
12241	}
12242
12243
12244	if (lst != NULL)
12245	*lst = NULL;
12246	if (string == NULL)
12247	return(-1);
12248
12249	size = xmlStrlen(string);
12250
12251	ctxt = xmlCreateMemoryParserCtxt((char *) string, size);
12252	if (ctxt == NULL) return(-1);
12253	ctxt->userData = ctxt;
12254	if (sax != NULL) {
12255	oldsax = ctxt->sax;
12256	ctxt->sax = sax;
12257	if (user_data != NULL)
12258	ctxt->userData = user_data;
12259	}
12260	newDoc = xmlNewDoc(BAD_CAST "1.0");
12261	if (newDoc == NULL) {
12262	xmlFreeParserCtxt(ctxt);
12263	return(-1);
12264	}
12265	if ((doc != NULL) && (doc->dict != NULL)) {
12266	xmlDictFree(ctxt->dict);
12267	ctxt->dict = doc->dict;
12268	xmlDictReference(ctxt->dict);
12269	ctxt->str_xml = xmlDictLookup(ctxt->dict, BAD_CAST "xml", 3);
12270	ctxt->str_xmlns = xmlDictLookup(ctxt->dict, BAD_CAST "xmlns", 5);
12271	ctxt->str_xml_ns = xmlDictLookup(ctxt->dict, XML_XML_NAMESPACE, 36);
12272	ctxt->dictNames = 1;
12273	} else {
12274	xmlCtxtUseOptions(ctxt, XML_PARSE_NODICT);
12275	}
12276	if (doc != NULL) {
12277	newDoc->intSubset = doc->intSubset;
12278	newDoc->extSubset = doc->extSubset;
12279	}
12280	newRoot = xmlNewDocNode(newDoc, NULL, BAD_CAST "pseudoroot", NULL);
12281	if (newRoot == NULL) {
12282	if (sax != NULL)
12283	ctxt->sax = oldsax;
12284	xmlFreeParserCtxt(ctxt);
12285	newDoc->intSubset = NULL;
12286	newDoc->extSubset = NULL;
12287	xmlFreeDoc(newDoc);
12288	return(-1);
12289	}
12290	xmlAddChild((xmlNodePtr) newDoc, newRoot);
12291	nodePush(ctxt, newRoot);
12292	if (doc == NULL) {
12293	ctxt->myDoc = newDoc;
12294	} else {
12295	ctxt->myDoc = newDoc;
12296	newDoc->children->doc = doc;
12297	/* Ensure that doc has XML spec namespace */
12298	xmlSearchNsByHref(doc, (xmlNodePtr)doc, XML_XML_NAMESPACE);
12299	newDoc->oldNs = doc->oldNs;
12300	}
12301	ctxt->instate = XML_PARSER_CONTENT;
12302	ctxt->depth = depth;
12303
12304	/*
12305	* Doing validity checking on chunk doesn't make sense
12306	*/
12307	ctxt->validate = 0;
12308	ctxt->loadsubset = 0;
12309	xmlDetectSAX2(ctxt);
12310
12311	if ( doc != NULL ){
12312	content = doc->children;
12313	doc->children = NULL;
12314	xmlParseContent(ctxt);
12315	doc->children = content;
12316	}
12317	else {
12318	xmlParseContent(ctxt);
12319	}
12320	if ((RAW == '<') && (NXT(1) == '/')) {
12321	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
12322	} else if (RAW != 0) {
12323	xmlFatalErr(ctxt, XML_ERR_EXTRA_CONTENT, NULL);
12324	}
12325	if (ctxt->node != newDoc->children) {
12326	xmlFatalErr(ctxt, XML_ERR_NOT_WELL_BALANCED, NULL);
12327	}
12328
12329	if (!ctxt->wellFormed) {
12330	if (ctxt->errNo == 0)
12331	ret = 1;
12332	else
12333	ret = ctxt->errNo;
12334	} else {
12335	ret = 0;
12336	}
12337
12338	if ((lst != NULL) && ((ret == 0) \|\| (recover == 1))) {
12339	xmlNodePtr cur;
12340
12341	/*
12342	* Return the newly created nodeset after unlinking it from
12343	* they pseudo parent.
12344	*/
12345	cur = newDoc->children->children;
12346	*lst = cur;
12347	while (cur != NULL) {
12348	xmlSetTreeDoc(cur, doc);
12349	cur->parent = NULL;
12350	cur = cur->next;
12351	}
12352	newDoc->children->children = NULL;
12353	}
12354
12355	if (sax != NULL)
12356	ctxt->sax = oldsax;
12357	xmlFreeParserCtxt(ctxt);
12358	newDoc->intSubset = NULL;
12359	newDoc->extSubset = NULL;
12360	newDoc->oldNs = NULL;
12361	xmlFreeDoc(newDoc);
12362
12363	return(ret);
12364	}
12365
12366	/**
12367	* xmlSAXParseEntity:
12368	* @sax: the SAX handler block
12369	* @filename: the filename
12370	*
12371	* parse an XML external entity out of context and build a tree.
12372	* It use the given SAX function block to handle the parsing callback.
12373	* If sax is NULL, fallback to the default DOM tree building routines.
12374	*
12375	* [78] extParsedEnt ::= TextDecl? content
12376	*
12377	* This correspond to a "Well Balanced" chunk
12378	*
12379	* Returns the resulting document tree
12380	*/
12381
12382	xmlDocPtr
12383	xmlSAXParseEntity(xmlSAXHandlerPtr sax, const char *filename) {
12384	xmlDocPtr ret;
12385	xmlParserCtxtPtr ctxt;
12386
12387	ctxt = xmlCreateFileParserCtxt(filename);
12388	if (ctxt == NULL) {
12389	return(NULL);
12390	}
12391	if (sax != NULL) {
12392	if (ctxt->sax != NULL)
12393	xmlFree(ctxt->sax);
12394	ctxt->sax = sax;
12395	ctxt->userData = NULL;
12396	}
12397
12398	xmlParseExtParsedEnt(ctxt);
12399
12400	if (ctxt->wellFormed)
12401	ret = ctxt->myDoc;
12402	else {
12403	ret = NULL;
12404	xmlFreeDoc(ctxt->myDoc);
12405	ctxt->myDoc = NULL;
12406	}
12407	if (sax != NULL)
12408	ctxt->sax = NULL;
12409	xmlFreeParserCtxt(ctxt);
12410
12411	return(ret);
12412	}
12413
12414	/**
12415	* xmlParseEntity:
12416	* @filename: the filename
12417	*
12418	* parse an XML external entity out of context and build a tree.
12419	*
12420	* [78] extParsedEnt ::= TextDecl? content
12421	*
12422	* This correspond to a "Well Balanced" chunk
12423	*
12424	* Returns the resulting document tree
12425	*/
12426
12427	xmlDocPtr
12428	xmlParseEntity(const char *filename) {
12429	return(xmlSAXParseEntity(NULL, filename));
12430	}
12431	#endif /* LIBXML_SAX1_ENABLED */
12432
12433	/**
12434	* xmlCreateEntityParserCtxt:
12435	* @URL: the entity URL
12436	* @ID: the entity PUBLIC ID
12437	* @base: a possible base for the target URI
12438	*
12439	* Create a parser context for an external entity
12440	* Automatic support for ZLIB/Compress compressed document is provided
12441	* by default if found at compile-time.
12442	*
12443	* Returns the new parser context or NULL
12444	*/
12445	xmlParserCtxtPtr
12446	xmlCreateEntityParserCtxt(const xmlChar URL, const xmlChar ID,
12447	const xmlChar *base) {
12448	xmlParserCtxtPtr ctxt;
12449	xmlParserInputPtr inputStream;
12450	char *directory = NULL;
12451	xmlChar *uri;
12452
12453	ctxt = xmlNewParserCtxt();
12454	if (ctxt == NULL) {
12455	return(NULL);
12456	}
12457
12458	uri = xmlBuildURI(URL, base);
12459
12460	if (uri == NULL) {
12461	inputStream = xmlLoadExternalEntity((char )URL, (char )ID, ctxt);
12462	if (inputStream == NULL) {
12463	xmlFreeParserCtxt(ctxt);
12464	return(NULL);
12465	}
12466
12467	inputPush(ctxt, inputStream);
12468
12469	if ((ctxt->directory == NULL) && (directory == NULL))
12470	directory = xmlParserGetDirectory((char *)URL);
12471	if ((ctxt->directory == NULL) && (directory != NULL))
12472	ctxt->directory = directory;
12473	} else {
12474	inputStream = xmlLoadExternalEntity((char )uri, (char )ID, ctxt);
12475	if (inputStream == NULL) {
12476	xmlFree(uri);
12477	xmlFreeParserCtxt(ctxt);
12478	return(NULL);
12479	}
12480
12481	inputPush(ctxt, inputStream);
12482
12483	if ((ctxt->directory == NULL) && (directory == NULL))
12484	directory = xmlParserGetDirectory((char *)uri);
12485	if ((ctxt->directory == NULL) && (directory != NULL))
12486	ctxt->directory = directory;
12487	xmlFree(uri);
12488	}
12489	return(ctxt);
12490	}
12491
12492	/************************************************************************
12493	* *
12494	* Front ends when parsing from a file *
12495	* *
12496	************************************************************************/
12497
12498	/**
12499	* xmlCreateURLParserCtxt:
12500	* @filename: the filename or URL
12501	* @options: a combination of xmlParserOption
12502	*
12503	* Create a parser context for a file or URL content.
12504	* Automatic support for ZLIB/Compress compressed document is provided
12505	* by default if found at compile-time and for file accesses
12506	*
12507	* Returns the new parser context or NULL
12508	*/
12509	xmlParserCtxtPtr
12510	xmlCreateURLParserCtxt(const char *filename, int options)
12511	{
12512	xmlParserCtxtPtr ctxt;
12513	xmlParserInputPtr inputStream;
12514	char *directory = NULL;
12515
12516	ctxt = xmlNewParserCtxt();
12517	if (ctxt == NULL) {
12518	xmlErrMemory(NULL, "cannot allocate parser context");
12519	return(NULL);
12520	}
12521
12522	if (options)
12523	xmlCtxtUseOptions(ctxt, options);
12524	ctxt->linenumbers = 1;
12525
12526	inputStream = xmlLoadExternalEntity(filename, NULL, ctxt);
12527	if (inputStream == NULL) {
12528	xmlFreeParserCtxt(ctxt);
12529	return(NULL);
12530	}
12531
12532	inputPush(ctxt, inputStream);
12533	if ((ctxt->directory == NULL) && (directory == NULL))
12534	directory = xmlParserGetDirectory(filename);
12535	if ((ctxt->directory == NULL) && (directory != NULL))
12536	ctxt->directory = directory;
12537
12538	return(ctxt);
12539	}
12540
12541	/**
12542	* xmlCreateFileParserCtxt:
12543	* @filename: the filename
12544	*
12545	* Create a parser context for a file content.
12546	* Automatic support for ZLIB/Compress compressed document is provided
12547	* by default if found at compile-time.
12548	*
12549	* Returns the new parser context or NULL
12550	*/
12551	xmlParserCtxtPtr
12552	xmlCreateFileParserCtxt(const char *filename)
12553	{
12554	return(xmlCreateURLParserCtxt(filename, 0));
12555	}
12556
12557	#ifdef LIBXML_SAX1_ENABLED
12558	/**
12559	* xmlSAXParseFileWithData:
12560	* @sax: the SAX handler block
12561	* @filename: the filename
12562	* @recovery: work in recovery mode, i.e. tries to read no Well Formed
12563	* documents
12564	* @data: the userdata
12565	*
12566	* parse an XML file and build a tree. Automatic support for ZLIB/Compress
12567	* compressed document is provided by default if found at compile-time.
12568	* It use the given SAX function block to handle the parsing callback.
12569	* If sax is NULL, fallback to the default DOM tree building routines.
12570	*
12571	* User data (void *) is stored within the parser context in the
12572	* context's _private member, so it is available nearly everywhere in libxml
12573	*
12574	* Returns the resulting document tree
12575	*/
12576
12577	xmlDocPtr
12578	xmlSAXParseFileWithData(xmlSAXHandlerPtr sax, const char *filename,
12579	int recovery, void *data) {
12580	xmlDocPtr ret;
12581	xmlParserCtxtPtr ctxt;
12582	char *directory = NULL;
12583
12584	xmlInitParser();
12585
12586	ctxt = xmlCreateFileParserCtxt(filename);
12587	if (ctxt == NULL) {
12588	return(NULL);
12589	}
12590	if (sax != NULL) {
12591	if (ctxt->sax != NULL)
12592	xmlFree(ctxt->sax);
12593	ctxt->sax = sax;
12594	}
12595	xmlDetectSAX2(ctxt);
12596	if (data!=NULL) {
12597	ctxt->_private = data;
12598	}
12599
12600	if ((ctxt->directory == NULL) && (directory == NULL))
12601	directory = xmlParserGetDirectory(filename);
12602	if ((ctxt->directory == NULL) && (directory != NULL))
12603	ctxt->directory = (char ) xmlStrdup((xmlChar ) directory);
12604
12605	ctxt->recovery = recovery;
12606
12607	xmlParseDocument(ctxt);
12608
12609	if ((ctxt->wellFormed) \|\| recovery) {
12610	ret = ctxt->myDoc;
12611	if (ret != NULL) {
12612	if (ctxt->input->buf->compressed > 0)
12613	ret->compression = 9;
12614	else
12615	ret->compression = ctxt->input->buf->compressed;
12616	}
12617	}
12618	else {
12619	ret = NULL;
12620	xmlFreeDoc(ctxt->myDoc);
12621	ctxt->myDoc = NULL;
12622	}
12623	if (sax != NULL)
12624	ctxt->sax = NULL;
12625	xmlFreeParserCtxt(ctxt);
12626
12627	return(ret);
12628	}
12629
12630	/**
12631	* xmlSAXParseFile:
12632	* @sax: the SAX handler block
12633	* @filename: the filename
12634	* @recovery: work in recovery mode, i.e. tries to read no Well Formed
12635	* documents
12636	*
12637	* parse an XML file and build a tree. Automatic support for ZLIB/Compress
12638	* compressed document is provided by default if found at compile-time.
12639	* It use the given SAX function block to handle the parsing callback.
12640	* If sax is NULL, fallback to the default DOM tree building routines.
12641	*
12642	* Returns the resulting document tree
12643	*/
12644
12645	xmlDocPtr
12646	xmlSAXParseFile(xmlSAXHandlerPtr sax, const char *filename,
12647	int recovery) {
12648	return(xmlSAXParseFileWithData(sax,filename,recovery,NULL));
12649	}
12650
12651	/**
12652	* xmlRecoverDoc:
12653	* @cur: a pointer to an array of xmlChar
12654	*
12655	* parse an XML in-memory document and build a tree.
12656	* In the case the document is not Well Formed, a tree is built anyway
12657	*
12658	* Returns the resulting document tree
12659	*/
12660
12661	xmlDocPtr
12662	xmlRecoverDoc(xmlChar *cur) {
12663	return(xmlSAXParseDoc(NULL, cur, 1));
12664	}
12665
12666	/**
12667	* xmlParseFile:
12668	* @filename: the filename
12669	*
12670	* parse an XML file and build a tree. Automatic support for ZLIB/Compress
12671	* compressed document is provided by default if found at compile-time.
12672	*
12673	* Returns the resulting document tree if the file was wellformed,
12674	* NULL otherwise.
12675	*/
12676
12677	xmlDocPtr
12678	xmlParseFile(const char *filename) {
12679	return(xmlSAXParseFile(NULL, filename, 0));
12680	}
12681
12682	/**
12683	* xmlRecoverFile:
12684	* @filename: the filename
12685	*
12686	* parse an XML file and build a tree. Automatic support for ZLIB/Compress
12687	* compressed document is provided by default if found at compile-time.
12688	* In the case the document is not Well Formed, a tree is built anyway
12689	*
12690	* Returns the resulting document tree
12691	*/
12692
12693	xmlDocPtr
12694	xmlRecoverFile(const char *filename) {
12695	return(xmlSAXParseFile(NULL, filename, 1));
12696	}
12697
12698
12699	/**
12700	* xmlSetupParserForBuffer:
12701	* @ctxt: an XML parser context
12702	* @buffer: a xmlChar * buffer
12703	* @filename: a file name
12704	*
12705	* Setup the parser context to parse a new buffer; Clears any prior
12706	* contents from the parser context. The buffer parameter must not be
12707	* NULL, but the filename parameter can be
12708	*/
12709	void
12710	xmlSetupParserForBuffer(xmlParserCtxtPtr ctxt, const xmlChar* buffer,
12711	const char* filename)
12712	{
12713	xmlParserInputPtr input;
12714
12715	if ((ctxt == NULL) \|\| (buffer == NULL))
12716	return;
12717
12718	input = xmlNewInputStream(ctxt);
12719	if (input == NULL) {
12720	xmlErrMemory(NULL, "parsing new buffer: out of memory\n");
12721	xmlClearParserCtxt(ctxt);
12722	return;
12723	}
12724
12725	xmlClearParserCtxt(ctxt);
12726	if (filename != NULL)
12727	input->filename = (char ) xmlCanonicPath((const xmlChar )filename);
12728	input->base = buffer;
12729	input->cur = buffer;
12730	input->end = &buffer[xmlStrlen(buffer)];
12731	inputPush(ctxt, input);
12732	}
12733
12734	/**
12735	* xmlSAXUserParseFile:
12736	* @sax: a SAX handler
12737	* @user_data: The user data returned on SAX callbacks
12738	* @filename: a file name
12739	*
12740	* parse an XML file and call the given SAX handler routines.
12741	* Automatic support for ZLIB/Compress compressed document is provided
12742	*
12743	* Returns 0 in case of success or a error number otherwise
12744	*/
12745	int
12746	xmlSAXUserParseFile(xmlSAXHandlerPtr sax, void *user_data,
12747	const char *filename) {
12748	int ret = 0;
12749	xmlParserCtxtPtr ctxt;
12750
12751	ctxt = xmlCreateFileParserCtxt(filename);
12752	if (ctxt == NULL) return -1;
12753	if (ctxt->sax != (xmlSAXHandlerPtr) &xmlDefaultSAXHandler)
12754	xmlFree(ctxt->sax);
12755	ctxt->sax = sax;
12756	xmlDetectSAX2(ctxt);
12757
12758	if (user_data != NULL)
12759	ctxt->userData = user_data;
12760
12761	xmlParseDocument(ctxt);
12762
12763	if (ctxt->wellFormed)
12764	ret = 0;
12765	else {
12766	if (ctxt->errNo != 0)
12767	ret = ctxt->errNo;
12768	else
12769	ret = -1;
12770	}
12771	if (sax != NULL)
12772	ctxt->sax = NULL;
12773	if (ctxt->myDoc != NULL) {
12774	xmlFreeDoc(ctxt->myDoc);
12775	ctxt->myDoc = NULL;
12776	}
12777	xmlFreeParserCtxt(ctxt);
12778
12779	return ret;
12780	}
12781	#endif /* LIBXML_SAX1_ENABLED */
12782
12783	/************************************************************************
12784	* *
12785	* Front ends when parsing from memory *
12786	* *
12787	************************************************************************/
12788
12789	/**
12790	* xmlCreateMemoryParserCtxt:
12791	* @buffer: a pointer to a char array
12792	* @size: the size of the array
12793	*
12794	* Create a parser context for an XML in-memory document.
12795	*
12796	* Returns the new parser context or NULL
12797	*/
12798	xmlParserCtxtPtr
12799	xmlCreateMemoryParserCtxt(const char *buffer, int size) {
12800	xmlParserCtxtPtr ctxt;
12801	xmlParserInputPtr input;
12802	xmlParserInputBufferPtr buf;
12803
12804	if (buffer == NULL)
12805	return(NULL);
12806	if (size <= 0)
12807	return(NULL);
12808
12809	ctxt = xmlNewParserCtxt();
12810	if (ctxt == NULL)
12811	return(NULL);
12812
12813	/* TODO: xmlParserInputBufferCreateStatic, requires some serious changes */
12814	buf = xmlParserInputBufferCreateMem(buffer, size, XML_CHAR_ENCODING_NONE);
12815	if (buf == NULL) {
12816	xmlFreeParserCtxt(ctxt);
12817	return(NULL);
12818	}
12819
12820	input = xmlNewInputStream(ctxt);
12821	if (input == NULL) {
12822	xmlFreeParserInputBuffer(buf);
12823	xmlFreeParserCtxt(ctxt);
12824	return(NULL);
12825	}
12826
12827	input->filename = NULL;
12828	input->buf = buf;
12829	input->base = input->buf->buffer->content;
12830	input->cur = input->buf->buffer->content;
12831	input->end = &input->buf->buffer->content[input->buf->buffer->use];
12832
12833	inputPush(ctxt, input);
12834	return(ctxt);
12835	}
12836
12837	#ifdef LIBXML_SAX1_ENABLED
12838	/**
12839	* xmlSAXParseMemoryWithData:
12840	* @sax: the SAX handler block
12841	* @buffer: an pointer to a char array
12842	* @size: the size of the array
12843	* @recovery: work in recovery mode, i.e. tries to read no Well Formed
12844	* documents
12845	* @data: the userdata
12846	*
12847	* parse an XML in-memory block and use the given SAX function block
12848	* to handle the parsing callback. If sax is NULL, fallback to the default
12849	* DOM tree building routines.
12850	*
12851	* User data (void *) is stored within the parser context in the
12852	* context's _private member, so it is available nearly everywhere in libxml
12853	*
12854	* Returns the resulting document tree
12855	*/
12856
12857	xmlDocPtr
12858	xmlSAXParseMemoryWithData(xmlSAXHandlerPtr sax, const char *buffer,
12859	int size, int recovery, void *data) {
12860	xmlDocPtr ret;
12861	xmlParserCtxtPtr ctxt;
12862
12863	ctxt = xmlCreateMemoryParserCtxt(buffer, size);
12864	if (ctxt == NULL) return(NULL);
12865	if (sax != NULL) {
12866	if (ctxt->sax != NULL)
12867	xmlFree(ctxt->sax);
12868	ctxt->sax = sax;
12869	}
12870	xmlDetectSAX2(ctxt);
12871	if (data!=NULL) {
12872	ctxt->_private=data;
12873	}
12874
12875	ctxt->recovery = recovery;
12876
12877	xmlParseDocument(ctxt);
12878
12879	if ((ctxt->wellFormed) \|\| recovery) ret = ctxt->myDoc;
12880	else {
12881	ret = NULL;
12882	xmlFreeDoc(ctxt->myDoc);
12883	ctxt->myDoc = NULL;
12884	}
12885	if (sax != NULL)
12886	ctxt->sax = NULL;
12887	xmlFreeParserCtxt(ctxt);
12888
12889	return(ret);
12890	}
12891
12892	/**
12893	* xmlSAXParseMemory:
12894	* @sax: the SAX handler block
12895	* @buffer: an pointer to a char array
12896	* @size: the size of the array
12897	* @recovery: work in recovery mode, i.e. tries to read not Well Formed
12898	* documents
12899	*
12900	* parse an XML in-memory block and use the given SAX function block
12901	* to handle the parsing callback. If sax is NULL, fallback to the default
12902	* DOM tree building routines.
12903	*
12904	* Returns the resulting document tree
12905	*/
12906	xmlDocPtr
12907	xmlSAXParseMemory(xmlSAXHandlerPtr sax, const char *buffer,
12908	int size, int recovery) {
12909	return xmlSAXParseMemoryWithData(sax, buffer, size, recovery, NULL);
12910	}
12911
12912	/**
12913	* xmlParseMemory:
12914	* @buffer: an pointer to a char array
12915	* @size: the size of the array
12916	*
12917	* parse an XML in-memory block and build a tree.
12918	*
12919	* Returns the resulting document tree
12920	*/
12921
12922	xmlDocPtr xmlParseMemory(const char *buffer, int size) {
12923	return(xmlSAXParseMemory(NULL, buffer, size, 0));
12924	}
12925
12926	/**
12927	* xmlRecoverMemory:
12928	* @buffer: an pointer to a char array
12929	* @size: the size of the array
12930	*
12931	* parse an XML in-memory block and build a tree.
12932	* In the case the document is not Well Formed, a tree is built anyway
12933	*
12934	* Returns the resulting document tree
12935	*/
12936
12937	xmlDocPtr xmlRecoverMemory(const char *buffer, int size) {
12938	return(xmlSAXParseMemory(NULL, buffer, size, 1));
12939	}
12940
12941	/**
12942	* xmlSAXUserParseMemory:
12943	* @sax: a SAX handler
12944	* @user_data: The user data returned on SAX callbacks
12945	* @buffer: an in-memory XML document input
12946	* @size: the length of the XML document in bytes
12947	*
12948	* A better SAX parsing routine.
12949	* parse an XML in-memory buffer and call the given SAX handler routines.
12950	*
12951	* Returns 0 in case of success or a error number otherwise
12952	*/
12953	int xmlSAXUserParseMemory(xmlSAXHandlerPtr sax, void *user_data,
12954	const char *buffer, int size) {
12955	int ret = 0;
12956	xmlParserCtxtPtr ctxt;
12957
12958	ctxt = xmlCreateMemoryParserCtxt(buffer, size);
12959	if (ctxt == NULL) return -1;
12960	if (ctxt->sax != (xmlSAXHandlerPtr) &xmlDefaultSAXHandler)
12961	xmlFree(ctxt->sax);
12962	ctxt->sax = sax;
12963	xmlDetectSAX2(ctxt);
12964
12965	if (user_data != NULL)
12966	ctxt->userData = user_data;
12967
12968	xmlParseDocument(ctxt);
12969
12970	if (ctxt->wellFormed)
12971	ret = 0;
12972	else {
12973	if (ctxt->errNo != 0)
12974	ret = ctxt->errNo;
12975	else
12976	ret = -1;
12977	}
12978	if (sax != NULL)
12979	ctxt->sax = NULL;
12980	if (ctxt->myDoc != NULL) {
12981	xmlFreeDoc(ctxt->myDoc);
12982	ctxt->myDoc = NULL;
12983	}
12984	xmlFreeParserCtxt(ctxt);
12985
12986	return ret;
12987	}
12988	#endif /* LIBXML_SAX1_ENABLED */
12989
12990	/**
12991	* xmlCreateDocParserCtxt:
12992	* @cur: a pointer to an array of xmlChar
12993	*
12994	* Creates a parser context for an XML in-memory document.
12995	*
12996	* Returns the new parser context or NULL
12997	*/
12998	xmlParserCtxtPtr
12999	xmlCreateDocParserCtxt(const xmlChar *cur) {
13000	int len;
13001
13002	if (cur == NULL)
13003	return(NULL);
13004	len = xmlStrlen(cur);
13005	return(xmlCreateMemoryParserCtxt((const char *)cur, len));
13006	}
13007
13008	#ifdef LIBXML_SAX1_ENABLED
13009	/**
13010	* xmlSAXParseDoc:
13011	* @sax: the SAX handler block
13012	* @cur: a pointer to an array of xmlChar
13013	* @recovery: work in recovery mode, i.e. tries to read no Well Formed
13014	* documents
13015	*
13016	* parse an XML in-memory document and build a tree.
13017	* It use the given SAX function block to handle the parsing callback.
13018	* If sax is NULL, fallback to the default DOM tree building routines.
13019	*
13020	* Returns the resulting document tree
13021	*/
13022
13023	xmlDocPtr
13024	xmlSAXParseDoc(xmlSAXHandlerPtr sax, const xmlChar *cur, int recovery) {
13025	xmlDocPtr ret;
13026	xmlParserCtxtPtr ctxt;
13027	xmlSAXHandlerPtr oldsax = NULL;
13028
13029	if (cur == NULL) return(NULL);
13030
13031
13032	ctxt = xmlCreateDocParserCtxt(cur);
13033	if (ctxt == NULL) return(NULL);
13034	if (sax != NULL) {
13035	oldsax = ctxt->sax;
13036	ctxt->sax = sax;
13037	ctxt->userData = NULL;
13038	}
13039	xmlDetectSAX2(ctxt);
13040
13041	xmlParseDocument(ctxt);
13042	if ((ctxt->wellFormed) \|\| recovery) ret = ctxt->myDoc;
13043	else {
13044	ret = NULL;
13045	xmlFreeDoc(ctxt->myDoc);
13046	ctxt->myDoc = NULL;
13047	}
13048	if (sax != NULL)
13049	ctxt->sax = oldsax;
13050	xmlFreeParserCtxt(ctxt);
13051
13052	return(ret);
13053	}
13054
13055	/**
13056	* xmlParseDoc:
13057	* @cur: a pointer to an array of xmlChar
13058	*
13059	* parse an XML in-memory document and build a tree.
13060	*
13061	* Returns the resulting document tree
13062	*/
13063
13064	xmlDocPtr
13065	xmlParseDoc(const xmlChar *cur) {
13066	return(xmlSAXParseDoc(NULL, cur, 0));
13067	}
13068	#endif /* LIBXML_SAX1_ENABLED */
13069
13070	#ifdef LIBXML_LEGACY_ENABLED
13071	/************************************************************************
13072	* *
13073	* Specific function to keep track of entities references *
13074	* and used by the XSLT debugger *
13075	* *
13076	************************************************************************/
13077
13078	static xmlEntityReferenceFunc xmlEntityRefFunc = NULL;
13079
13080	/**
13081	* xmlAddEntityReference:
13082	* @ent : A valid entity
13083	* @firstNode : A valid first node for children of entity
13084	* @lastNode : A valid last node of children entity
13085	*
13086	* Notify of a reference to an entity of type XML_EXTERNAL_GENERAL_PARSED_ENTITY
13087	*/
13088	static void
13089	xmlAddEntityReference(xmlEntityPtr ent, xmlNodePtr firstNode,
13090	xmlNodePtr lastNode)
13091	{
13092	if (xmlEntityRefFunc != NULL) {
13093	(*xmlEntityRefFunc) (ent, firstNode, lastNode);
13094	}
13095	}
13096
13097
13098	/**
13099	* xmlSetEntityReferenceFunc:
13100	* @func: A valid function
13101	*
13102	* Set the function to call call back when a xml reference has been made
13103	*/
13104	void
13105	xmlSetEntityReferenceFunc(xmlEntityReferenceFunc func)
13106	{
13107	xmlEntityRefFunc = func;
13108	}
13109	#endif /* LIBXML_LEGACY_ENABLED */
13110
13111	/************************************************************************
13112	* *
13113	* Miscellaneous *
13114	* *
13115	************************************************************************/
13116
13117	#ifdef LIBXML_XPATH_ENABLED
13118	#include <libxml/xpath.h>
13119	#endif
13120
13121	extern void XMLCDECL xmlGenericErrorDefaultFunc(void ctx, const char msg, ...);
13122	static int xmlParserInitialized = 0;
13123
13124	/**
13125	* xmlInitParser:
13126	*
13127	* Initialization function for the XML parser.
13128	* This is not reentrant. Call once before processing in case of
13129	* use in multithreaded programs.
13130	*/
13131
13132	void
13133	xmlInitParser(void) {
13134	if (xmlParserInitialized != 0)
13135	return;
13136
13137	#ifdef LIBXML_THREAD_ENABLED
13138	__xmlGlobalInitMutexLock();
13139	if (xmlParserInitialized == 0) {
13140	#endif
13141	if ((xmlGenericError == xmlGenericErrorDefaultFunc) \|\|
13142	(xmlGenericError == NULL))
13143	initGenericErrorDefaultFunc(NULL);
13144	xmlInitGlobals();
13145	xmlInitThreads();
13146	xmlInitMemory();
13147	xmlInitCharEncodingHandlers();
13148	xmlDefaultSAXHandlerInit();
13149	xmlRegisterDefaultInputCallbacks();
13150	#ifdef LIBXML_OUTPUT_ENABLED
13151	xmlRegisterDefaultOutputCallbacks();
13152	#endif /* LIBXML_OUTPUT_ENABLED */
13153	#ifdef LIBXML_HTML_ENABLED
13154	htmlInitAutoClose();
13155	htmlDefaultSAXHandlerInit();
13156	#endif
13157	#ifdef LIBXML_XPATH_ENABLED
13158	xmlXPathInit();
13159	#endif
13160	xmlParserInitialized = 1;
13161	#ifdef LIBXML_THREAD_ENABLED
13162	}
13163	__xmlGlobalInitMutexUnlock();
13164	#endif
13165	}
13166
13167	/**
13168	* xmlCleanupParser:
13169	*
13170	* Cleanup function for the XML library. It tries to reclaim all
13171	* parsing related global memory allocated for the library processing.
13172	* It doesn't deallocate any document related memory. Calling this
13173	* function should not prevent reusing the library but one should
13174	* call xmlCleanupParser() only when the process has
13175	* finished using the library or XML document built with it.
13176	*/
13177
13178	void
13179	xmlCleanupParser(void) {
13180	if (!xmlParserInitialized)
13181	return;
13182
13183	xmlCleanupCharEncodingHandlers();
13184	#ifdef LIBXML_CATALOG_ENABLED
13185	xmlCatalogCleanup();
13186	#endif
13187	xmlDictCleanup();
13188	xmlCleanupInputCallbacks();
13189	#ifdef LIBXML_OUTPUT_ENABLED
13190	xmlCleanupOutputCallbacks();
13191	#endif
13192	#ifdef LIBXML_SCHEMAS_ENABLED
13193	xmlSchemaCleanupTypes();
13194	xmlRelaxNGCleanupTypes();
13195	#endif
13196	xmlCleanupGlobals();
13197	xmlResetLastError();
13198	xmlCleanupThreads(); /* must be last if called not from the main thread */
13199	xmlCleanupMemory();
13200	xmlParserInitialized = 0;
13201	}
13202
13203	/************************************************************************
13204	* *
13205	* New set (2.6.0) of simpler and more flexible APIs *
13206	* *
13207	************************************************************************/
13208
13209	/**
13210	* DICT_FREE:
13211	* @str: a string
13212	*
13213	* Free a string if it is not owned by the "dict" dictionnary in the
13214	* current scope
13215	*/
13216	#define DICT_FREE(str) \
13217	if ((str) && ((!dict) \|\| \
13218	(xmlDictOwns(dict, (const xmlChar *)(str)) == 0))) \
13219	xmlFree((char *)(str));
13220
13221	/**
13222	* xmlCtxtReset:
13223	* @ctxt: an XML parser context
13224	*
13225	* Reset a parser context
13226	*/
13227	void
13228	xmlCtxtReset(xmlParserCtxtPtr ctxt)
13229	{
13230	xmlParserInputPtr input;
13231	xmlDictPtr dict;
13232
13233	if (ctxt == NULL)
13234	return;
13235
13236	dict = ctxt->dict;
13237
13238	while ((input = inputPop(ctxt)) != NULL) { /* Non consuming */
13239	xmlFreeInputStream(input);
13240	}
13241	ctxt->inputNr = 0;
13242	ctxt->input = NULL;
13243
13244	ctxt->spaceNr = 0;
13245	if (ctxt->spaceTab != NULL) {
13246	ctxt->spaceTab[0] = -1;
13247	ctxt->space = &ctxt->spaceTab[0];
13248	} else {
13249	ctxt->space = NULL;
13250	}
13251
13252
13253	ctxt->nodeNr = 0;
13254	ctxt->node = NULL;
13255
13256	ctxt->nameNr = 0;
13257	ctxt->name = NULL;
13258
13259	DICT_FREE(ctxt->version);
13260	ctxt->version = NULL;
13261	DICT_FREE(ctxt->encoding);
13262	ctxt->encoding = NULL;
13263	DICT_FREE(ctxt->directory);
13264	ctxt->directory = NULL;
13265	DICT_FREE(ctxt->extSubURI);
13266	ctxt->extSubURI = NULL;
13267	DICT_FREE(ctxt->extSubSystem);
13268	ctxt->extSubSystem = NULL;
13269	if (ctxt->myDoc != NULL)
13270	xmlFreeDoc(ctxt->myDoc);
13271	ctxt->myDoc = NULL;
13272
13273	ctxt->standalone = -1;
13274	ctxt->hasExternalSubset = 0;
13275	ctxt->hasPErefs = 0;
13276	ctxt->html = 0;
13277	ctxt->external = 0;
13278	ctxt->instate = XML_PARSER_START;
13279	ctxt->token = 0;
13280
13281	ctxt->wellFormed = 1;
13282	ctxt->nsWellFormed = 1;
13283	ctxt->disableSAX = 0;
13284	ctxt->valid = 1;
13285	#if 0
13286	ctxt->vctxt.userData = ctxt;
13287	ctxt->vctxt.error = xmlParserValidityError;
13288	ctxt->vctxt.warning = xmlParserValidityWarning;
13289	#endif
13290	ctxt->record_info = 0;
13291	ctxt->nbChars = 0;
13292	ctxt->checkIndex = 0;
13293	ctxt->inSubset = 0;
13294	ctxt->errNo = XML_ERR_OK;
13295	ctxt->depth = 0;
13296	ctxt->charset = XML_CHAR_ENCODING_UTF8;
13297	ctxt->catalogs = NULL;
13298	ctxt->nbentities = 0;
13299	ctxt->sizeentities = 0;
13300	xmlInitNodeInfoSeq(&ctxt->node_seq);
13301
13302	if (ctxt->attsDefault != NULL) {
13303	xmlHashFree(ctxt->attsDefault, (xmlHashDeallocator) xmlFree);
13304	ctxt->attsDefault = NULL;
13305	}
13306	if (ctxt->attsSpecial != NULL) {
13307	xmlHashFree(ctxt->attsSpecial, NULL);
13308	ctxt->attsSpecial = NULL;
13309	}
13310
13311	#ifdef LIBXML_CATALOG_ENABLED
13312	if (ctxt->catalogs != NULL)
13313	xmlCatalogFreeLocal(ctxt->catalogs);
13314	#endif
13315	if (ctxt->lastError.code != XML_ERR_OK)
13316	xmlResetError(&ctxt->lastError);
13317	}
13318
13319	/**
13320	* xmlCtxtResetPush:
13321	* @ctxt: an XML parser context
13322	* @chunk: a pointer to an array of chars
13323	* @size: number of chars in the array
13324	* @filename: an optional file name or URI
13325	* @encoding: the document encoding, or NULL
13326	*
13327	* Reset a push parser context
13328	*
13329	* Returns 0 in case of success and 1 in case of error
13330	*/
13331	int
13332	xmlCtxtResetPush(xmlParserCtxtPtr ctxt, const char *chunk,
13333	int size, const char filename, const char encoding)
13334	{
13335	xmlParserInputPtr inputStream;
13336	xmlParserInputBufferPtr buf;
13337	xmlCharEncoding enc = XML_CHAR_ENCODING_NONE;
13338
13339	if (ctxt == NULL)
13340	return(1);
13341
13342	if ((encoding == NULL) && (chunk != NULL) && (size >= 4))
13343	enc = xmlDetectCharEncoding((const xmlChar *) chunk, size);
13344
13345	buf = xmlAllocParserInputBuffer(enc);
13346	if (buf == NULL)
13347	return(1);
13348
13349	if (ctxt == NULL) {
13350	xmlFreeParserInputBuffer(buf);
13351	return(1);
13352	}
13353
13354	xmlCtxtReset(ctxt);
13355
13356	if (ctxt->pushTab == NULL) {
13357	ctxt->pushTab = (void *) xmlMalloc(ctxt->nameMax 3 *
13358	sizeof(xmlChar *));
13359	if (ctxt->pushTab == NULL) {
13360	xmlErrMemory(ctxt, NULL);
13361	xmlFreeParserInputBuffer(buf);
13362	return(1);
13363	}
13364	}
13365
13366	if (filename == NULL) {
13367	ctxt->directory = NULL;
13368	} else {
13369	ctxt->directory = xmlParserGetDirectory(filename);
13370	}
13371
13372	inputStream = xmlNewInputStream(ctxt);
13373	if (inputStream == NULL) {
13374	xmlFreeParserInputBuffer(buf);
13375	return(1);
13376	}
13377
13378	if (filename == NULL)
13379	inputStream->filename = NULL;
13380	else
13381	inputStream->filename = (char *)
13382	xmlCanonicPath((const xmlChar *) filename);
13383	inputStream->buf = buf;
13384	inputStream->base = inputStream->buf->buffer->content;
13385	inputStream->cur = inputStream->buf->buffer->content;
13386	inputStream->end =
13387	&inputStream->buf->buffer->content[inputStream->buf->buffer->use];
13388
13389	inputPush(ctxt, inputStream);
13390
13391	if ((size > 0) && (chunk != NULL) && (ctxt->input != NULL) &&
13392	(ctxt->input->buf != NULL)) {
13393	int base = ctxt->input->base - ctxt->input->buf->buffer->content;
13394	int cur = ctxt->input->cur - ctxt->input->base;
13395
13396	xmlParserInputBufferPush(ctxt->input->buf, size, chunk);
13397
13398	ctxt->input->base = ctxt->input->buf->buffer->content + base;
13399	ctxt->input->cur = ctxt->input->base + cur;
13400	ctxt->input->end =
13401	&ctxt->input->buf->buffer->content[ctxt->input->buf->buffer->
13402	use];
13403	#ifdef DEBUG_PUSH
13404	xmlGenericError(xmlGenericErrorContext, "PP: pushed %d\n", size);
13405	#endif
13406	}
13407
13408	if (encoding != NULL) {
13409	xmlCharEncodingHandlerPtr hdlr;
13410
13411	hdlr = xmlFindCharEncodingHandler(encoding);
13412	if (hdlr != NULL) {
13413	xmlSwitchToEncoding(ctxt, hdlr);
13414	} else {
13415	xmlFatalErrMsgStr(ctxt, XML_ERR_UNSUPPORTED_ENCODING,
13416	"Unsupported encoding %s\n", BAD_CAST encoding);
13417	}
13418	} else if (enc != XML_CHAR_ENCODING_NONE) {
13419	xmlSwitchEncoding(ctxt, enc);
13420	}
13421
13422	return(0);
13423	}
13424
13425	/**
13426	* xmlCtxtUseOptions:
13427	* @ctxt: an XML parser context
13428	* @options: a combination of xmlParserOption
13429	*
13430	* Applies the options to the parser context
13431	*
13432	* Returns 0 in case of success, the set of unknown or unimplemented options
13433	* in case of error.
13434	*/
13435	int
13436	xmlCtxtUseOptions(xmlParserCtxtPtr ctxt, int options)
13437	{
13438	if (ctxt == NULL)
13439	return(-1);
13440	if (options & XML_PARSE_RECOVER) {
13441	ctxt->recovery = 1;
13442	options -= XML_PARSE_RECOVER;
13443	} else
13444	ctxt->recovery = 0;
13445	if (options & XML_PARSE_DTDLOAD) {
13446	ctxt->loadsubset = XML_DETECT_IDS;
13447	options -= XML_PARSE_DTDLOAD;
13448	} else
13449	ctxt->loadsubset = 0;
13450	if (options & XML_PARSE_DTDATTR) {
13451	ctxt->loadsubset \|= XML_COMPLETE_ATTRS;
13452	options -= XML_PARSE_DTDATTR;
13453	}
13454	if (options & XML_PARSE_NOENT) {
13455	ctxt->replaceEntities = 1;
13456	/* ctxt->loadsubset \|= XML_DETECT_IDS; */
13457	options -= XML_PARSE_NOENT;
13458	} else
13459	ctxt->replaceEntities = 0;
13460	if (options & XML_PARSE_PEDANTIC) {
13461	ctxt->pedantic = 1;
13462	options -= XML_PARSE_PEDANTIC;
13463	} else
13464	ctxt->pedantic = 0;
13465	if (options & XML_PARSE_NOBLANKS) {
13466	ctxt->keepBlanks = 0;
13467	ctxt->sax->ignorableWhitespace = xmlSAX2IgnorableWhitespace;
13468	options -= XML_PARSE_NOBLANKS;
13469	} else
13470	ctxt->keepBlanks = 1;
13471	if (options & XML_PARSE_DTDVALID) {
13472	ctxt->validate = 1;
13473	if (options & XML_PARSE_NOWARNING)
13474	ctxt->vctxt.warning = NULL;
13475	if (options & XML_PARSE_NOERROR)
13476	ctxt->vctxt.error = NULL;
13477	options -= XML_PARSE_DTDVALID;
13478	} else
13479	ctxt->validate = 0;
13480	if (options & XML_PARSE_NOWARNING) {
13481	ctxt->sax->warning = NULL;
13482	options -= XML_PARSE_NOWARNING;
13483	}
13484	if (options & XML_PARSE_NOERROR) {
13485	ctxt->sax->error = NULL;
13486	ctxt->sax->fatalError = NULL;
13487	options -= XML_PARSE_NOERROR;
13488	}
13489	#ifdef LIBXML_SAX1_ENABLED
13490	if (options & XML_PARSE_SAX1) {
13491	ctxt->sax->startElement = xmlSAX2StartElement;
13492	ctxt->sax->endElement = xmlSAX2EndElement;
13493	ctxt->sax->startElementNs = NULL;
13494	ctxt->sax->endElementNs = NULL;
13495	ctxt->sax->initialized = 1;
13496	options -= XML_PARSE_SAX1;
13497	}
13498	#endif /* LIBXML_SAX1_ENABLED */
13499	if (options & XML_PARSE_NODICT) {
13500	ctxt->dictNames = 0;
13501	options -= XML_PARSE_NODICT;
13502	} else {
13503	ctxt->dictNames = 1;
13504	}
13505	if (options & XML_PARSE_NOCDATA) {
13506	ctxt->sax->cdataBlock = NULL;
13507	options -= XML_PARSE_NOCDATA;
13508	}
13509	if (options & XML_PARSE_NSCLEAN) {
13510	ctxt->options \|= XML_PARSE_NSCLEAN;
13511	options -= XML_PARSE_NSCLEAN;
13512	}
13513	if (options & XML_PARSE_NONET) {
13514	ctxt->options \|= XML_PARSE_NONET;
13515	options -= XML_PARSE_NONET;
13516	}
13517	if (options & XML_PARSE_COMPACT) {
13518	ctxt->options \|= XML_PARSE_COMPACT;
13519	options -= XML_PARSE_COMPACT;
13520	}
13521	ctxt->linenumbers = 1;
13522	return (options);
13523	}
13524
13525	/**
13526	* xmlDoRead:
13527	* @ctxt: an XML parser context
13528	* @URL: the base URL to use for the document
13529	* @encoding: the document encoding, or NULL
13530	* @options: a combination of xmlParserOption
13531	* @reuse: keep the context for reuse
13532	*
13533	* Common front-end for the xmlRead functions
13534	*
13535	* Returns the resulting document tree or NULL
13536	*/
13537	static xmlDocPtr
13538	xmlDoRead(xmlParserCtxtPtr ctxt, const char URL, const char encoding,
13539	int options, int reuse)
13540	{
13541	xmlDocPtr ret;
13542
13543	xmlCtxtUseOptions(ctxt, options);
13544	if (encoding != NULL) {
13545	xmlCharEncodingHandlerPtr hdlr;
13546
13547	hdlr = xmlFindCharEncodingHandler(encoding);
13548	if (hdlr != NULL)
13549	xmlSwitchToEncoding(ctxt, hdlr);
13550	}
13551	if ((URL != NULL) && (ctxt->input != NULL) &&
13552	(ctxt->input->filename == NULL))
13553	ctxt->input->filename = (char ) xmlStrdup((const xmlChar ) URL);
13554	xmlParseDocument(ctxt);
13555	if ((ctxt->wellFormed) \|\| ctxt->recovery)
13556	ret = ctxt->myDoc;
13557	else {
13558	ret = NULL;
13559	if (ctxt->myDoc != NULL) {
13560	xmlFreeDoc(ctxt->myDoc);
13561	}
13562	}
13563	ctxt->myDoc = NULL;
13564	if (!reuse) {
13565	xmlFreeParserCtxt(ctxt);
13566	}
13567
13568	return (ret);
13569	}
13570
13571	/**
13572	* xmlReadDoc:
13573	* @cur: a pointer to a zero terminated string
13574	* @URL: the base URL to use for the document
13575	* @encoding: the document encoding, or NULL
13576	* @options: a combination of xmlParserOption
13577	*
13578	* parse an XML in-memory document and build a tree.
13579	*
13580	* Returns the resulting document tree
13581	*/
13582	xmlDocPtr
13583	xmlReadDoc(const xmlChar * cur, const char URL, const char encoding, int options)
13584	{
13585	xmlParserCtxtPtr ctxt;
13586
13587	if (cur == NULL)
13588	return (NULL);
13589
13590	ctxt = xmlCreateDocParserCtxt(cur);
13591	if (ctxt == NULL)
13592	return (NULL);
13593	return (xmlDoRead(ctxt, URL, encoding, options, 0));
13594	}
13595
13596	/**
13597	* xmlReadFile:
13598	* @filename: a file or URL
13599	* @encoding: the document encoding, or NULL
13600	* @options: a combination of xmlParserOption
13601	*
13602	* parse an XML file from the filesystem or the network.
13603	*
13604	* Returns the resulting document tree
13605	*/
13606	xmlDocPtr
13607	xmlReadFile(const char filename, const char encoding, int options)
13608	{
13609	xmlParserCtxtPtr ctxt;
13610
13611	ctxt = xmlCreateURLParserCtxt(filename, options);
13612	if (ctxt == NULL)
13613	return (NULL);
13614	return (xmlDoRead(ctxt, NULL, encoding, options, 0));
13615	}
13616
13617	/**
13618	* xmlReadMemory:
13619	* @buffer: a pointer to a char array
13620	* @size: the size of the array
13621	* @URL: the base URL to use for the document
13622	* @encoding: the document encoding, or NULL
13623	* @options: a combination of xmlParserOption
13624	*
13625	* parse an XML in-memory document and build a tree.
13626	*
13627	* Returns the resulting document tree
13628	*/
13629	xmlDocPtr
13630	xmlReadMemory(const char buffer, int size, const char URL, const char *encoding, int options)
13631	{
13632	xmlParserCtxtPtr ctxt;
13633
13634	ctxt = xmlCreateMemoryParserCtxt(buffer, size);
13635	if (ctxt == NULL)
13636	return (NULL);
13637	return (xmlDoRead(ctxt, URL, encoding, options, 0));
13638	}
13639
13640	/**
13641	* xmlReadFd:
13642	* @fd: an open file descriptor
13643	* @URL: the base URL to use for the document
13644	* @encoding: the document encoding, or NULL
13645	* @options: a combination of xmlParserOption
13646	*
13647	* parse an XML from a file descriptor and build a tree.
13648	* NOTE that the file descriptor will not be closed when the
13649	* reader is closed or reset.
13650	*
13651	* Returns the resulting document tree
13652	*/
13653	xmlDocPtr
13654	xmlReadFd(int fd, const char URL, const char encoding, int options)
13655	{
13656	xmlParserCtxtPtr ctxt;
13657	xmlParserInputBufferPtr input;
13658	xmlParserInputPtr stream;
13659
13660	if (fd < 0)
13661	return (NULL);
13662
13663	input = xmlParserInputBufferCreateFd(fd, XML_CHAR_ENCODING_NONE);
13664	if (input == NULL)
13665	return (NULL);
13666	input->closecallback = NULL;
13667	ctxt = xmlNewParserCtxt();
13668	if (ctxt == NULL) {
13669	xmlFreeParserInputBuffer(input);
13670	return (NULL);
13671	}
13672	stream = xmlNewIOInputStream(ctxt, input, XML_CHAR_ENCODING_NONE);
13673	if (stream == NULL) {
13674	xmlFreeParserInputBuffer(input);
13675	xmlFreeParserCtxt(ctxt);
13676	return (NULL);
13677	}
13678	inputPush(ctxt, stream);
13679	return (xmlDoRead(ctxt, URL, encoding, options, 0));
13680	}
13681
13682	/**
13683	* xmlReadIO:
13684	* @ioread: an I/O read function
13685	* @ioclose: an I/O close function
13686	* @ioctx: an I/O handler
13687	* @URL: the base URL to use for the document
13688	* @encoding: the document encoding, or NULL
13689	* @options: a combination of xmlParserOption
13690	*
13691	* parse an XML document from I/O functions and source and build a tree.
13692	*
13693	* Returns the resulting document tree
13694	*/
13695	xmlDocPtr
13696	xmlReadIO(xmlInputReadCallback ioread, xmlInputCloseCallback ioclose,
13697	void ioctx, const char URL, const char *encoding, int options)
13698	{
13699	xmlParserCtxtPtr ctxt;
13700	xmlParserInputBufferPtr input;
13701	xmlParserInputPtr stream;
13702
13703	if (ioread == NULL)
13704	return (NULL);
13705
13706	input = xmlParserInputBufferCreateIO(ioread, ioclose, ioctx,
13707	XML_CHAR_ENCODING_NONE);
13708	if (input == NULL)
13709	return (NULL);
13710	ctxt = xmlNewParserCtxt();
13711	if (ctxt == NULL) {
13712	xmlFreeParserInputBuffer(input);
13713	return (NULL);
13714	}
13715	stream = xmlNewIOInputStream(ctxt, input, XML_CHAR_ENCODING_NONE);
13716	if (stream == NULL) {
13717	xmlFreeParserInputBuffer(input);
13718	xmlFreeParserCtxt(ctxt);
13719	return (NULL);
13720	}
13721	inputPush(ctxt, stream);
13722	return (xmlDoRead(ctxt, URL, encoding, options, 0));
13723	}
13724
13725	/**
13726	* xmlCtxtReadDoc:
13727	* @ctxt: an XML parser context
13728	* @cur: a pointer to a zero terminated string
13729	* @URL: the base URL to use for the document
13730	* @encoding: the document encoding, or NULL
13731	* @options: a combination of xmlParserOption
13732	*
13733	* parse an XML in-memory document and build a tree.
13734	* This reuses the existing @ctxt parser context
13735	*
13736	* Returns the resulting document tree
13737	*/
13738	xmlDocPtr
13739	xmlCtxtReadDoc(xmlParserCtxtPtr ctxt, const xmlChar * cur,
13740	const char URL, const char encoding, int options)
13741	{
13742	xmlParserInputPtr stream;
13743
13744	if (cur == NULL)
13745	return (NULL);
13746	if (ctxt == NULL)
13747	return (NULL);
13748
13749	xmlCtxtReset(ctxt);
13750
13751	stream = xmlNewStringInputStream(ctxt, cur);
13752	if (stream == NULL) {
13753	return (NULL);
13754	}
13755	inputPush(ctxt, stream);
13756	return (xmlDoRead(ctxt, URL, encoding, options, 1));
13757	}
13758
13759	/**
13760	* xmlCtxtReadFile:
13761	* @ctxt: an XML parser context
13762	* @filename: a file or URL
13763	* @encoding: the document encoding, or NULL
13764	* @options: a combination of xmlParserOption
13765	*
13766	* parse an XML file from the filesystem or the network.
13767	* This reuses the existing @ctxt parser context
13768	*
13769	* Returns the resulting document tree
13770	*/
13771	xmlDocPtr
13772	xmlCtxtReadFile(xmlParserCtxtPtr ctxt, const char *filename,
13773	const char *encoding, int options)
13774	{
13775	xmlParserInputPtr stream;
13776
13777	if (filename == NULL)
13778	return (NULL);
13779	if (ctxt == NULL)
13780	return (NULL);
13781
13782	xmlCtxtReset(ctxt);
13783
13784	stream = xmlLoadExternalEntity(filename, NULL, ctxt);
13785	if (stream == NULL) {
13786	return (NULL);
13787	}
13788	inputPush(ctxt, stream);
13789	return (xmlDoRead(ctxt, NULL, encoding, options, 1));
13790	}
13791
13792	/**
13793	* xmlCtxtReadMemory:
13794	* @ctxt: an XML parser context
13795	* @buffer: a pointer to a char array
13796	* @size: the size of the array
13797	* @URL: the base URL to use for the document
13798	* @encoding: the document encoding, or NULL
13799	* @options: a combination of xmlParserOption
13800	*
13801	* parse an XML in-memory document and build a tree.
13802	* This reuses the existing @ctxt parser context
13803	*
13804	* Returns the resulting document tree
13805	*/
13806	xmlDocPtr
13807	xmlCtxtReadMemory(xmlParserCtxtPtr ctxt, const char *buffer, int size,
13808	const char URL, const char encoding, int options)
13809	{
13810	xmlParserInputBufferPtr input;
13811	xmlParserInputPtr stream;
13812
13813	if (ctxt == NULL)
13814	return (NULL);
13815	if (buffer == NULL)
13816	return (NULL);
13817
13818	xmlCtxtReset(ctxt);
13819
13820	input = xmlParserInputBufferCreateMem(buffer, size, XML_CHAR_ENCODING_NONE);
13821	if (input == NULL) {
13822	return(NULL);
13823	}
13824
13825	stream = xmlNewIOInputStream(ctxt, input, XML_CHAR_ENCODING_NONE);
13826	if (stream == NULL) {
13827	xmlFreeParserInputBuffer(input);
13828	return(NULL);
13829	}
13830
13831	inputPush(ctxt, stream);
13832	return (xmlDoRead(ctxt, URL, encoding, options, 1));
13833	}
13834
13835	/**
13836	* xmlCtxtReadFd:
13837	* @ctxt: an XML parser context
13838	* @fd: an open file descriptor
13839	* @URL: the base URL to use for the document
13840	* @encoding: the document encoding, or NULL
13841	* @options: a combination of xmlParserOption
13842	*
13843	* parse an XML from a file descriptor and build a tree.
13844	* This reuses the existing @ctxt parser context
13845	* NOTE that the file descriptor will not be closed when the
13846	* reader is closed or reset.
13847	*
13848	* Returns the resulting document tree
13849	*/
13850	xmlDocPtr
13851	xmlCtxtReadFd(xmlParserCtxtPtr ctxt, int fd,
13852	const char URL, const char encoding, int options)
13853	{
13854	xmlParserInputBufferPtr input;
13855	xmlParserInputPtr stream;
13856
13857	if (fd < 0)
13858	return (NULL);
13859	if (ctxt == NULL)
13860	return (NULL);
13861
13862	xmlCtxtReset(ctxt);
13863
13864
13865	input = xmlParserInputBufferCreateFd(fd, XML_CHAR_ENCODING_NONE);
13866	if (input == NULL)
13867	return (NULL);
13868	input->closecallback = NULL;
13869	stream = xmlNewIOInputStream(ctxt, input, XML_CHAR_ENCODING_NONE);
13870	if (stream == NULL) {
13871	xmlFreeParserInputBuffer(input);
13872	return (NULL);
13873	}
13874	inputPush(ctxt, stream);
13875	return (xmlDoRead(ctxt, URL, encoding, options, 1));
13876	}
13877
13878	/**
13879	* xmlCtxtReadIO:
13880	* @ctxt: an XML parser context
13881	* @ioread: an I/O read function
13882	* @ioclose: an I/O close function
13883	* @ioctx: an I/O handler
13884	* @URL: the base URL to use for the document
13885	* @encoding: the document encoding, or NULL
13886	* @options: a combination of xmlParserOption
13887	*
13888	* parse an XML document from I/O functions and source and build a tree.
13889	* This reuses the existing @ctxt parser context
13890	*
13891	* Returns the resulting document tree
13892	*/
13893	xmlDocPtr
13894	xmlCtxtReadIO(xmlParserCtxtPtr ctxt, xmlInputReadCallback ioread,
13895	xmlInputCloseCallback ioclose, void *ioctx,
13896	const char *URL,
13897	const char *encoding, int options)
13898	{
13899	xmlParserInputBufferPtr input;
13900	xmlParserInputPtr stream;
13901
13902	if (ioread == NULL)
13903	return (NULL);
13904	if (ctxt == NULL)
13905	return (NULL);
13906
13907	xmlCtxtReset(ctxt);
13908
13909	input = xmlParserInputBufferCreateIO(ioread, ioclose, ioctx,
13910	XML_CHAR_ENCODING_NONE);
13911	if (input == NULL)
13912	return (NULL);
13913	stream = xmlNewIOInputStream(ctxt, input, XML_CHAR_ENCODING_NONE);
13914	if (stream == NULL) {
13915	xmlFreeParserInputBuffer(input);
13916	return (NULL);
13917	}
13918	inputPush(ctxt, stream);
13919	return (xmlDoRead(ctxt, URL, encoding, options, 1));
13920	}
13921
13922	#define bottom_parser
13923	#include "elfgcchack.h"

注意: 瀏覽 TracBrowser 來幫助您使用儲存庫瀏覽器

source: vbox/trunk/src/libs/libxml2-2.6.31/parser.c@ 41752

以其他格式下載: