[libyaml.git] / src / reader.c


#include "yaml_private.h"

/*
 * Declarations.
 */

static int
yaml_parser_set_reader_error(yaml_parser_t *parser, const char *problem,
        size_t offset, int value);

static int
yaml_parser_update_raw_buffer(yaml_parser_t *parser);

static int
yaml_parser_determine_encoding(yaml_parser_t *parser);

YAML_DECLARE(int)
yaml_parser_update_buffer(yaml_parser_t *parser, size_t length);

/*
 * Set the reader error and return 0.
 */

static int
yaml_parser_set_reader_error(yaml_parser_t *parser, const char *problem,
        size_t offset, int value)
{
    parser->error = YAML_READER_ERROR;
    parser->problem = problem;
    parser->problem_offset = offset;
    parser->problem_value = value;

    return 0;
}

/*
 * Byte order marks.
 */

#define BOM_UTF8    "\xef\xbb\xbf"
#define BOM_UTF16LE "\xff\xfe"
#define BOM_UTF16BE "\xfe\xff"

/*
 * Determine the input stream encoding by checking the BOM symbol. If no BOM is
 * found, the UTF-8 encoding is assumed. Return 1 on success, 0 on failure.
 */

static int
yaml_parser_determine_encoding(yaml_parser_t *parser)
{
    /* Ensure that we had enough bytes in the raw buffer. */

    while (!parser->eof 
            && parser->raw_buffer.last - parser->raw_buffer.pointer < 3) {
        if (!yaml_parser_update_raw_buffer(parser)) {
            return 0;
        }
    }

    /* Determine the encoding. */

    if (parser->raw_buffer.last - parser->raw_buffer.pointer >= 2
            && !memcmp(parser->raw_buffer.pointer, BOM_UTF16LE, 2)) {
        parser->encoding = YAML_UTF16LE_ENCODING;
        parser->raw_buffer.pointer += 2;
        parser->offset += 2;
    }
    else if (parser->raw_buffer.last - parser->raw_buffer.pointer >= 2
            && !memcmp(parser->raw_buffer.pointer, BOM_UTF16BE, 2)) {
        parser->encoding = YAML_UTF16BE_ENCODING;
        parser->raw_buffer.pointer += 2;
        parser->offset += 2;
    }
    else if (parser->raw_buffer.last - parser->raw_buffer.pointer >= 3
            && !memcmp(parser->raw_buffer.pointer, BOM_UTF8, 3)) {
        parser->encoding = YAML_UTF8_ENCODING;
        parser->raw_buffer.pointer += 3;
        parser->offset += 3;
    }
    else {
        parser->encoding = YAML_UTF8_ENCODING;
    }

    return 1;
}

/*
 * Update the raw buffer.
 */

static int
yaml_parser_update_raw_buffer(yaml_parser_t *parser)
{
    size_t size_read = 0;

    /* Return if the raw buffer is full. */

    if (parser->raw_buffer.start == parser->raw_buffer.pointer
            && parser->raw_buffer.last == parser->raw_buffer.end)
        return 1;

    /* Return on EOF. */

    if (parser->eof) return 1;

    /* Move the remaining bytes in the raw buffer to the beginning. */

    if (parser->raw_buffer.start < parser->raw_buffer.pointer
            && parser->raw_buffer.pointer < parser->raw_buffer.last) {
        memmove(parser->raw_buffer.start, parser->raw_buffer.pointer,
                parser->raw_buffer.last - parser->raw_buffer.pointer);
    }
    parser->raw_buffer.last -=
        parser->raw_buffer.pointer - parser->raw_buffer.start;
    parser->raw_buffer.pointer = parser->raw_buffer.start;

    /* Call the read handler to fill the buffer. */

    if (!parser->read_handler(parser->read_handler_data, parser->raw_buffer.last,
                parser->raw_buffer.end - parser->raw_buffer.last, &size_read)) {
        return yaml_parser_set_reader_error(parser, "Input error",
                parser->offset, -1);
    }
    parser->raw_buffer.last += size_read;
    if (!size_read) {
        parser->eof = 1;
    }

    return 1;
}

/*
 * Ensure that the buffer contains at least `length` characters.
 * Return 1 on success, 0 on failure.
 *
 * The length is supposed to be significantly less that the buffer size.
 */

YAML_DECLARE(int)
yaml_parser_update_buffer(yaml_parser_t *parser, size_t length)
{
    assert(parser->read_handler);   /* Read handler must be set. */

    /* If the EOF flag is set and the raw buffer is empty, do nothing. */

    if (parser->eof && parser->raw_buffer.pointer == parser->raw_buffer.last)
        return 1;

    /* Return if the buffer contains enough characters. */

    if (parser->unread >= length)
        return 1;

    /* Determine the input encoding if it is not known yet. */

    if (!parser->encoding) {
        if (!yaml_parser_determine_encoding(parser))
            return 0;
    }

    /* Move the unread characters to the beginning of the buffer. */

    if (parser->buffer.start < parser->buffer.pointer
            && parser->buffer.pointer < parser->buffer.last) {
        size_t size = parser->buffer.last - parser->buffer.pointer;
        memmove(parser->buffer.start, parser->buffer.pointer, size);
        parser->buffer.pointer = parser->buffer.start;
        parser->buffer.last = parser->buffer.start + size;
    }
    else if (parser->buffer.pointer == parser->buffer.last) {
        parser->buffer.pointer = parser->buffer.start;
        parser->buffer.last = parser->buffer.start;
    }

    /* Fill the buffer until it has enough characters. */

    while (parser->unread < length)
    {
        /* Fill the raw buffer. */

        if (!yaml_parser_update_raw_buffer(parser)) return 0;

        /* Decode the raw buffer. */

        while (parser->raw_buffer.pointer != parser->raw_buffer.last)
        {
            unsigned int value = 0, value2 = 0;
            int incomplete = 0;
            unsigned char octet;
            unsigned int width = 0;
            int low, high;
            size_t k;
            size_t raw_unread = parser->raw_buffer.last - parser->raw_buffer.pointer;

            /* Decode the next character. */

            switch (parser->encoding)
            {
                case YAML_UTF8_ENCODING:

                    /*
                     * Decode a UTF-8 character.  Check RFC 3629
                     * (http://www.ietf.org/rfc/rfc3629.txt) for more details.
                     *
                     * The following table (taken from the RFC) is used for
                     * decoding.
                     *
                     *    Char. number range |        UTF-8 octet sequence
                     *      (hexadecimal)    |              (binary)
                     *   --------------------+------------------------------------
                     *   0000 0000-0000 007F | 0xxxxxxx
                     *   0000 0080-0000 07FF | 110xxxxx 10xxxxxx
                     *   0000 0800-0000 FFFF | 1110xxxx 10xxxxxx 10xxxxxx
                     *   0001 0000-0010 FFFF | 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
                     *
                     * Additionally, the characters in the range 0xD800-0xDFFF
                     * are prohibited as they are reserved for use with UTF-16
                     * surrogate pairs.
                     */

                    /* Determine the length of the UTF-8 sequence. */

                    octet = parser->raw_buffer.pointer[0];
                    width = (octet & 0x80) == 0x00 ? 1 :
                            (octet & 0xE0) == 0xC0 ? 2 :
                            (octet & 0xF0) == 0xE0 ? 3 :
                            (octet & 0xF8) == 0xF0 ? 4 : 0;

                    /* Check if the leading octet is valid. */

                    if (!width)
                        return yaml_parser_set_reader_error(parser,
                                "Invalid leading UTF-8 octet",
                                parser->offset, octet);

                    /* Check if the raw buffer contains an incomplete character. */

                    if (width > raw_unread) {
                        if (parser->eof) {
                            return yaml_parser_set_reader_error(parser,
                                    "Incomplete UTF-8 octet sequence",
                                    parser->offset, -1);
                        }
                        incomplete = 1;
                        break;
                    }

                    /* Decode the leading octet. */

                    value = (octet & 0x80) == 0x00 ? octet & 0x7F :
                            (octet & 0xE0) == 0xC0 ? octet & 0x1F :
                            (octet & 0xF0) == 0xE0 ? octet & 0x0F :
                            (octet & 0xF8) == 0xF0 ? octet & 0x07 : 0;

                    /* Check and decode the trailing octets. */

                    for (k = 1; k < width; k ++)
                    {
                        octet = parser->raw_buffer.pointer[k];

                        /* Check if the octet is valid. */

                        if ((octet & 0xC0) != 0x80)
                            return yaml_parser_set_reader_error(parser,
                                    "Invalid trailing UTF-8 octet",
                                    parser->offset+k, octet);

                        /* Decode the octet. */

                        value = (value << 6) + (octet & 0x3F);
                    }

                    /* Check the length of the sequence against the value. */

                    if (!((width == 1) ||
                            (width == 2 && value >= 0x80) ||
                            (width == 3 && value >= 0x800) ||
                            (width == 4 && value >= 0x10000)))
                        return yaml_parser_set_reader_error(parser,
                                "Invalid length of a UTF-8 sequence",
                                parser->offset, -1);

                    /* Check the range of the value. */

                    if ((value >= 0xD800 && value <= 0xDFFF) || value > 0x10FFFF)
                        return yaml_parser_set_reader_error(parser,
                                "Invalid Unicode character",
                                parser->offset, value);

                    break;
                
                case YAML_UTF16LE_ENCODING:
                case YAML_UTF16BE_ENCODING:

                    low = (parser->encoding == YAML_UTF16LE_ENCODING ? 0 : 1);
                    high = (parser->encoding == YAML_UTF16LE_ENCODING ? 1 : 0);

                    /*
                     * The UTF-16 encoding is not as simple as one might
                     * naively think.  Check RFC 2781
                     * (http://www.ietf.org/rfc/rfc2781.txt).
                     *
                     * Normally, two subsequent bytes describe a Unicode
                     * character.  However a special technique (called a
                     * surrogate pair) is used for specifying character
                     * values larger than 0xFFFF.
                     *
                     * A surrogate pair consists of two pseudo-characters:
                     *      high surrogate area (0xD800-0xDBFF)
                     *      low surrogate area (0xDC00-0xDFFF)
                     *
                     * The following formulas are used for decoding
                     * and encoding characters using surrogate pairs:
                     * 
                     *  U  = U' + 0x10000   (0x01 00 00 <= U <= 0x10 FF FF)
                     *  U' = yyyyyyyyyyxxxxxxxxxx   (0 <= U' <= 0x0F FF FF)
                     *  W1 = 110110yyyyyyyyyy
                     *  W2 = 110111xxxxxxxxxx
                     *
                     * where U is the character value, W1 is the high surrogate
                     * area, W2 is the low surrogate area.
                     */

                    /* Check for incomplete UTF-16 character. */

                    if (raw_unread < 2) {
                        if (parser->eof) {
                            return yaml_parser_set_reader_error(parser,
                                    "Incomplete UTF-16 character",
                                    parser->offset, -1);
                        }
                        incomplete = 1;
                        break;
                    }

                    /* Get the character. */

                    value = parser->raw_buffer.pointer[low]
                        + (parser->raw_buffer.pointer[high] << 8);

                    /* Check for unexpected low surrogate area. */

                    if ((value & 0xFC00) == 0xDC00)
                        return yaml_parser_set_reader_error(parser,
                                "Unexpected low surrogate area",
                                parser->offset, value);

                    /* Check for a high surrogate area. */

                    if ((value & 0xFC00) == 0xD800) {

                        width = 4;

                        /* Check for incomplete surrogate pair. */

                        if (raw_unread < 4) {
                            if (parser->eof) {
                                return yaml_parser_set_reader_error(parser,
                                        "Incomplete UTF-16 surrogate pair",
                                        parser->offset, -1);
                            }
                            incomplete = 1;
                            break;
                        }

                        /* Get the next character. */

                        value2 = parser->raw_buffer.pointer[low+2]
                            + (parser->raw_buffer.pointer[high+2] << 8);

                        /* Check for a low surrogate area. */

                        if ((value2 & 0xFC00) != 0xDC00)
                            return yaml_parser_set_reader_error(parser,
                                    "Expected low surrogate area",
                                    parser->offset+2, value2);

                        /* Generate the value of the surrogate pair. */

                        value = 0x10000 + ((value & 0x3FF) << 10) + (value2 & 0x3FF);
                    }

                    else {
                        width = 2;
                    }

                    break;

                default:
                    assert(1);      /* Impossible. */
            }

            /* Check if the raw buffer contains enough bytes to form a character. */

            if (incomplete) break;

            /*
             * Check if the character is in the allowed range:
             *      #x9 | #xA | #xD | [#x20-#x7E]               (8 bit)
             *      | #x85 | [#xA0-#xD7FF] | [#xE000-#xFFFD]    (16 bit)
             *      | [#x10000-#x10FFFF]                        (32 bit)
             */

            if (! (value == 0x09 || value == 0x0A || value == 0x0D
                        || (value >= 0x20 && value <= 0x7E)
                        || (value == 0x85) || (value >= 0xA0 && value <= 0xD7FF)
                        || (value >= 0xE000 && value <= 0xFFFD)
                        || (value >= 0x10000 && value <= 0x10FFFF)))
                return yaml_parser_set_reader_error(parser,
                        "Control characters are not allowed",
                        parser->offset, value);

            /* Move the raw pointers. */

            parser->raw_buffer.pointer += width;
            parser->offset += width;

            /* Finally put the character into the buffer. */

            /* 0000 0000-0000 007F -> 0xxxxxxx */
            if (value <= 0x7F) {
                *(parser->buffer.last++) = value;
            }
            /* 0000 0080-0000 07FF -> 110xxxxx 10xxxxxx */
            else if (value <= 0x7FF) {
                *(parser->buffer.last++) = 0xC0 + (value >> 6);
                *(parser->buffer.last++) = 0x80 + (value & 0x3F);
            }
            /* 0000 0800-0000 FFFF -> 1110xxxx 10xxxxxx 10xxxxxx */
            else if (value <= 0xFFFF) {
                *(parser->buffer.last++) = 0xE0 + (value >> 12);
                *(parser->buffer.last++) = 0x80 + ((value >> 6) & 0x3F);
                *(parser->buffer.last++) = 0x80 + (value & 0x3F);
            }
            /* 0001 0000-0010 FFFF -> 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */
            else {
                *(parser->buffer.last++) = 0xF0 + (value >> 18);
                *(parser->buffer.last++) = 0x80 + ((value >> 12) & 0x3F);
                *(parser->buffer.last++) = 0x80 + ((value >> 6) & 0x3F);
                *(parser->buffer.last++) = 0x80 + (value & 0x3F);
            }

            parser->unread ++;
        }

        /* On EOF, put NUL into the buffer and return. */

        if (parser->eof) {
            *(parser->buffer.last++) = '\0';
            parser->unread ++;
            return 1;
        }

    }

    return 1;
}
Commit	Line	Data
95b98ba9	1
625fcfe9	2	#include "yaml_private.h"
6eb1ded4	3
625fcfe9 KS	4	/*
	5	* Declarations.
	6	*/
	7
	8	static int
	9	yaml_parser_set_reader_error(yaml_parser_t parser, const char problem,
	10	size_t offset, int value);
6eb1ded4	11
625fcfe9 KS	12	static int
	13	yaml_parser_update_raw_buffer(yaml_parser_t *parser);
	14
	15	static int
	16	yaml_parser_determine_encoding(yaml_parser_t *parser);
	17
	18	YAML_DECLARE(int)
	19	yaml_parser_update_buffer(yaml_parser_t *parser, size_t length);
6eb1ded4	20
6eb1ded4	21	/*
3d790dfd	22	* Set the reader error and return 0.
6eb1ded4 KS	23	*/
6eb1ded4 KS	24
f642fd11	25	static int
2fa16060 KS	26	yaml_parser_set_reader_error(yaml_parser_t parser, const char problem,
2fa16060 KS	27	size_t offset, int value)
3d790dfd KS	28	{
	29	parser->error = YAML_READER_ERROR;
	30	parser->problem = problem;
2fa16060 KS	31	parser->problem_offset = offset;
2fa16060 KS	32	parser->problem_value = value;
6eb1ded4	33
3d790dfd KS	34	return 0;
3d790dfd KS	35	}
6eb1ded4	36
f642fd11	37	/*
625fcfe9	38	* Byte order marks.
f642fd11 KS	39	*/
f642fd11 KS	40
625fcfe9 KS	41	#define BOM_UTF8 "\xef\xbb\xbf"
	42	#define BOM_UTF16LE "\xff\xfe"
	43	#define BOM_UTF16BE "\xfe\xff"
f642fd11 KS	44
	45	/*
	46	* Determine the input stream encoding by checking the BOM symbol. If no BOM is
	47	* found, the UTF-8 encoding is assumed. Return 1 on success, 0 on failure.
	48	*/
	49
f642fd11 KS	50	static int
	51	yaml_parser_determine_encoding(yaml_parser_t *parser)
	52	{
	53	/* Ensure that we had enough bytes in the raw buffer. */
	54
625fcfe9 KS	55	while (!parser->eof
625fcfe9 KS	56	&& parser->raw_buffer.last - parser->raw_buffer.pointer < 3) {
f642fd11 KS	57	if (!yaml_parser_update_raw_buffer(parser)) {
	58	return 0;
	59	}
	60	}
	61
	62	/* Determine the encoding. */
	63
625fcfe9 KS	64	if (parser->raw_buffer.last - parser->raw_buffer.pointer >= 2
625fcfe9 KS	65	&& !memcmp(parser->raw_buffer.pointer, BOM_UTF16LE, 2)) {
f642fd11	66	parser->encoding = YAML_UTF16LE_ENCODING;
625fcfe9	67	parser->raw_buffer.pointer += 2;
f642fd11 KS	68	parser->offset += 2;
f642fd11 KS	69	}
625fcfe9 KS	70	else if (parser->raw_buffer.last - parser->raw_buffer.pointer >= 2
625fcfe9 KS	71	&& !memcmp(parser->raw_buffer.pointer, BOM_UTF16BE, 2)) {
f642fd11	72	parser->encoding = YAML_UTF16BE_ENCODING;
625fcfe9	73	parser->raw_buffer.pointer += 2;
f642fd11 KS	74	parser->offset += 2;
f642fd11 KS	75	}
625fcfe9 KS	76	else if (parser->raw_buffer.last - parser->raw_buffer.pointer >= 3
625fcfe9 KS	77	&& !memcmp(parser->raw_buffer.pointer, BOM_UTF8, 3)) {
f642fd11	78	parser->encoding = YAML_UTF8_ENCODING;
625fcfe9	79	parser->raw_buffer.pointer += 3;
f642fd11 KS	80	parser->offset += 3;
	81	}
	82	else {
	83	parser->encoding = YAML_UTF8_ENCODING;
	84	}
	85
	86	return 1;
	87	}
95b98ba9 KS	88
95b98ba9 KS	89	/*
625fcfe9 KS	90	* Update the raw buffer.
	91	*/
	92
	93	static int
	94	yaml_parser_update_raw_buffer(yaml_parser_t *parser)
	95	{
	96	size_t size_read = 0;
	97
	98	/* Return if the raw buffer is full. */
	99
	100	if (parser->raw_buffer.start == parser->raw_buffer.pointer
	101	&& parser->raw_buffer.last == parser->raw_buffer.end)
	102	return 1;
	103
	104	/* Return on EOF. */
	105
	106	if (parser->eof) return 1;
	107
	108	/* Move the remaining bytes in the raw buffer to the beginning. */
	109
	110	if (parser->raw_buffer.start < parser->raw_buffer.pointer
	111	&& parser->raw_buffer.pointer < parser->raw_buffer.last) {
	112	memmove(parser->raw_buffer.start, parser->raw_buffer.pointer,
	113	parser->raw_buffer.last - parser->raw_buffer.pointer);
	114	}
	115	parser->raw_buffer.last -=
	116	parser->raw_buffer.pointer - parser->raw_buffer.start;
	117	parser->raw_buffer.pointer = parser->raw_buffer.start;
	118
	119	/* Call the read handler to fill the buffer. */
	120
	121	if (!parser->read_handler(parser->read_handler_data, parser->raw_buffer.last,
	122	parser->raw_buffer.end - parser->raw_buffer.last, &size_read)) {
	123	return yaml_parser_set_reader_error(parser, "Input error",
	124	parser->offset, -1);
	125	}
	126	parser->raw_buffer.last += size_read;
	127	if (!size_read) {
	128	parser->eof = 1;
	129	}
	130
	131	return 1;
	132	}
	133
	134	/*
	135	* Ensure that the buffer contains at least `length` characters.
95b98ba9	136	* Return 1 on success, 0 on failure.
6eb1ded4 KS	137	*
6eb1ded4 KS	138	* The length is supposed to be significantly less that the buffer size.
95b98ba9 KS	139	*/
95b98ba9 KS	140
f642fd11	141	YAML_DECLARE(int)
6eb1ded4	142	yaml_parser_update_buffer(yaml_parser_t *parser, size_t length)
95b98ba9	143	{
625fcfe9 KS	144	assert(parser->read_handler); /* Read handler must be set. */
625fcfe9 KS	145
2fa16060	146	/* If the EOF flag is set and the raw buffer is empty, do nothing. */
95b98ba9	147
625fcfe9	148	if (parser->eof && parser->raw_buffer.pointer == parser->raw_buffer.last)
95b98ba9 KS	149	return 1;
95b98ba9 KS	150
6eb1ded4 KS	151	/* Return if the buffer contains enough characters. */
	152
	153	if (parser->unread >= length)
	154	return 1;
	155
	156	/* Determine the input encoding if it is not known yet. */
95b98ba9	157
6eb1ded4 KS	158	if (!parser->encoding) {
6eb1ded4 KS	159	if (!yaml_parser_determine_encoding(parser))
95b98ba9	160	return 0;
95b98ba9 KS	161	}
95b98ba9 KS	162
6eb1ded4 KS	163	/* Move the unread characters to the beginning of the buffer. */
6eb1ded4 KS	164
625fcfe9 KS	165	if (parser->buffer.start < parser->buffer.pointer
	166	&& parser->buffer.pointer < parser->buffer.last) {
	167	size_t size = parser->buffer.last - parser->buffer.pointer;
	168	memmove(parser->buffer.start, parser->buffer.pointer, size);
	169	parser->buffer.pointer = parser->buffer.start;
	170	parser->buffer.last = parser->buffer.start + size;
6eb1ded4	171	}
625fcfe9 KS	172	else if (parser->buffer.pointer == parser->buffer.last) {
	173	parser->buffer.pointer = parser->buffer.start;
	174	parser->buffer.last = parser->buffer.start;
6eb1ded4 KS	175	}
	176
	177	/* Fill the buffer until it has enough characters. */
	178
	179	while (parser->unread < length)
	180	{
	181	/* Fill the raw buffer. */
	182
	183	if (!yaml_parser_update_raw_buffer(parser)) return 0;
	184
	185	/* Decode the raw buffer. */
	186
625fcfe9	187	while (parser->raw_buffer.pointer != parser->raw_buffer.last)
6eb1ded4	188	{
54815ffd	189	unsigned int value = 0, value2 = 0;
6eb1ded4	190	int incomplete = 0;
2fa16060	191	unsigned char octet;
54815ffd	192	unsigned int width = 0;
0174ed6e KS	193	int low, high;
	194	size_t k;
	195	size_t raw_unread = parser->raw_buffer.last - parser->raw_buffer.pointer;
6eb1ded4 KS	196
	197	/* Decode the next character. */
	198
	199	switch (parser->encoding)
	200	{
	201	case YAML_UTF8_ENCODING:
	202
3d790dfd KS	203	/*
	204	* Decode a UTF-8 character. Check RFC 3629
	205	* (http://www.ietf.org/rfc/rfc3629.txt) for more details.
	206	*
	207	* The following table (taken from the RFC) is used for
	208	* decoding.
	209	*
	210	* Char. number range \| UTF-8 octet sequence
	211	* (hexadecimal) \| (binary)
	212	* --------------------+------------------------------------
	213	* 0000 0000-0000 007F \| 0xxxxxxx
	214	* 0000 0080-0000 07FF \| 110xxxxx 10xxxxxx
	215	* 0000 0800-0000 FFFF \| 1110xxxx 10xxxxxx 10xxxxxx
	216	* 0001 0000-0010 FFFF \| 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
	217	*
	218	* Additionally, the characters in the range 0xD800-0xDFFF
	219	* are prohibited as they are reserved for use with UTF-16
	220	* surrogate pairs.
	221	*/
	222
	223	/* Determine the length of the UTF-8 sequence. */
	224
625fcfe9	225	octet = parser->raw_buffer.pointer[0];
2fa16060 KS	226	width = (octet & 0x80) == 0x00 ? 1 :
	227	(octet & 0xE0) == 0xC0 ? 2 :
	228	(octet & 0xF0) == 0xE0 ? 3 :
	229	(octet & 0xF8) == 0xF0 ? 4 : 0;
3d790dfd KS	230
	231	/* Check if the leading octet is valid. */
	232
2fa16060	233	if (!width)
3d790dfd	234	return yaml_parser_set_reader_error(parser,
2fa16060 KS	235	"Invalid leading UTF-8 octet",
2fa16060 KS	236	parser->offset, octet);
6eb1ded4 KS	237
	238	/* Check if the raw buffer contains an incomplete character. */
	239
625fcfe9	240	if (width > raw_unread) {
6eb1ded4	241	if (parser->eof) {
3d790dfd	242	return yaml_parser_set_reader_error(parser,
2fa16060 KS	243	"Incomplete UTF-8 octet sequence",
2fa16060 KS	244	parser->offset, -1);
6eb1ded4 KS	245	}
6eb1ded4 KS	246	incomplete = 1;
3d790dfd	247	break;
6eb1ded4 KS	248	}
6eb1ded4 KS	249
3d790dfd	250	/* Decode the leading octet. */
6eb1ded4	251
2fa16060 KS	252	value = (octet & 0x80) == 0x00 ? octet & 0x7F :
	253	(octet & 0xE0) == 0xC0 ? octet & 0x1F :
	254	(octet & 0xF0) == 0xE0 ? octet & 0x0F :
	255	(octet & 0xF8) == 0xF0 ? octet & 0x07 : 0;
3d790dfd KS	256
	257	/* Check and decode the trailing octets. */
	258
2fa16060	259	for (k = 1; k < width; k ++)
3d790dfd	260	{
625fcfe9	261	octet = parser->raw_buffer.pointer[k];
3d790dfd KS	262
	263	/* Check if the octet is valid. */
	264
2fa16060	265	if ((octet & 0xC0) != 0x80)
3d790dfd	266	return yaml_parser_set_reader_error(parser,
2fa16060 KS	267	"Invalid trailing UTF-8 octet",
2fa16060 KS	268	parser->offset+k, octet);
3d790dfd KS	269
	270	/* Decode the octet. */
	271
2fa16060	272	value = (value << 6) + (octet & 0x3F);
6eb1ded4 KS	273	}
6eb1ded4 KS	274
3d790dfd KS	275	/* Check the length of the sequence against the value. */
3d790dfd KS	276
2fa16060 KS	277	if (!((width == 1) \|\|
	278	(width == 2 && value >= 0x80) \|\|
	279	(width == 3 && value >= 0x800) \|\|
	280	(width == 4 && value >= 0x10000)))
3d790dfd	281	return yaml_parser_set_reader_error(parser,
2fa16060 KS	282	"Invalid length of a UTF-8 sequence",
2fa16060 KS	283	parser->offset, -1);
3d790dfd KS	284
	285	/* Check the range of the value. */
	286
	287	if ((value >= 0xD800 && value <= 0xDFFF) \|\| value > 0x10FFFF)
	288	return yaml_parser_set_reader_error(parser,
2fa16060 KS	289	"Invalid Unicode character",
2fa16060 KS	290	parser->offset, value);
3d790dfd	291
6eb1ded4 KS	292	break;
	293
	294	case YAML_UTF16LE_ENCODING:
3d790dfd	295	case YAML_UTF16BE_ENCODING:
6eb1ded4	296
3d790dfd KS	297	low = (parser->encoding == YAML_UTF16LE_ENCODING ? 0 : 1);
	298	high = (parser->encoding == YAML_UTF16LE_ENCODING ? 1 : 0);
	299
	300	/*
	301	* The UTF-16 encoding is not as simple as one might
	302	* naively think. Check RFC 2781
	303	* (http://www.ietf.org/rfc/rfc2781.txt).
	304	*
	305	* Normally, two subsequent bytes describe a Unicode
	306	* character. However a special technique (called a
	307	* surrogate pair) is used for specifying character
	308	* values larger than 0xFFFF.
	309	*
	310	* A surrogate pair consists of two pseudo-characters:
	311	* high surrogate area (0xD800-0xDBFF)
	312	* low surrogate area (0xDC00-0xDFFF)
	313	*
	314	* The following formulas are used for decoding
	315	* and encoding characters using surrogate pairs:
	316	*
	317	* U = U' + 0x10000 (0x01 00 00 <= U <= 0x10 FF FF)
	318	* U' = yyyyyyyyyyxxxxxxxxxx (0 <= U' <= 0x0F FF FF)
	319	* W1 = 110110yyyyyyyyyy
	320	* W2 = 110111xxxxxxxxxx
	321	*
	322	* where U is the character value, W1 is the high surrogate
	323	* area, W2 is the low surrogate area.
	324	*/
	325
	326	/* Check for incomplete UTF-16 character. */
6eb1ded4	327
625fcfe9	328	if (raw_unread < 2) {
6eb1ded4	329	if (parser->eof) {
3d790dfd	330	return yaml_parser_set_reader_error(parser,
2fa16060 KS	331	"Incomplete UTF-16 character",
2fa16060 KS	332	parser->offset, -1);
6eb1ded4 KS	333	}
6eb1ded4 KS	334	incomplete = 1;
3d790dfd	335	break;
6eb1ded4 KS	336	}
6eb1ded4 KS	337
3d790dfd	338	/* Get the character. */
6eb1ded4	339
625fcfe9 KS	340	value = parser->raw_buffer.pointer[low]
625fcfe9 KS	341	+ (parser->raw_buffer.pointer[high] << 8);
6eb1ded4	342
3d790dfd	343	/* Check for unexpected low surrogate area. */
6eb1ded4	344
3d790dfd KS	345	if ((value & 0xFC00) == 0xDC00)
3d790dfd KS	346	return yaml_parser_set_reader_error(parser,
2fa16060 KS	347	"Unexpected low surrogate area",
2fa16060 KS	348	parser->offset, value);
6eb1ded4	349
3d790dfd	350	/* Check for a high surrogate area. */
6eb1ded4	351
3d790dfd KS	352	if ((value & 0xFC00) == 0xD800) {
3d790dfd KS	353
2fa16060 KS	354	width = 4;
2fa16060 KS	355
3d790dfd KS	356	/* Check for incomplete surrogate pair. */
3d790dfd KS	357
625fcfe9	358	if (raw_unread < 4) {
3d790dfd KS	359	if (parser->eof) {
3d790dfd KS	360	return yaml_parser_set_reader_error(parser,
2fa16060 KS	361	"Incomplete UTF-16 surrogate pair",
2fa16060 KS	362	parser->offset, -1);
3d790dfd KS	363	}
	364	incomplete = 1;
	365	break;
6eb1ded4	366	}
6eb1ded4	367
3d790dfd	368	/* Get the next character. */
6eb1ded4	369
54815ffd	370	value2 = parser->raw_buffer.pointer[low+2]
625fcfe9	371	+ (parser->raw_buffer.pointer[high+2] << 8);
3d790dfd KS	372
	373	/* Check for a low surrogate area. */
	374
	375	if ((value2 & 0xFC00) != 0xDC00)
	376	return yaml_parser_set_reader_error(parser,
2fa16060 KS	377	"Expected low surrogate area",
2fa16060 KS	378	parser->offset+2, value2);
3d790dfd KS	379
	380	/* Generate the value of the surrogate pair. */
	381
	382	value = 0x10000 + ((value & 0x3FF) << 10) + (value2 & 0x3FF);
3d790dfd KS	383	}
	384
	385	else {
2fa16060	386	width = 2;
3d790dfd	387	}
6eb1ded4 KS	388
6eb1ded4 KS	389	break;
54815ffd KS	390
	391	default:
	392	assert(1); /* Impossible. */
6eb1ded4 KS	393	}
6eb1ded4 KS	394
3d790dfd KS	395	/* Check if the raw buffer contains enough bytes to form a character. */
	396
	397	if (incomplete) break;
	398
6eb1ded4 KS	399	/*
	400	* Check if the character is in the allowed range:
	401	* #x9 \| #xA \| #xD \| [#x20-#x7E] (8 bit)
	402	* \| #x85 \| [#xA0-#xD7FF] \| [#xE000-#xFFFD] (16 bit)
	403	* \| [#x10000-#x10FFFF] (32 bit)
	404	*/
	405
3d790dfd KS	406	if (! (value == 0x09 \|\| value == 0x0A \|\| value == 0x0D
	407	\|\| (value >= 0x20 && value <= 0x7E)
	408	\|\| (value == 0x85) \|\| (value >= 0xA0 && value <= 0xD7FF)
	409	\|\| (value >= 0xE000 && value <= 0xFFFD)
	410	\|\| (value >= 0x10000 && value <= 0x10FFFF)))
	411	return yaml_parser_set_reader_error(parser,
2fa16060 KS	412	"Control characters are not allowed",
	413	parser->offset, value);
	414
	415	/* Move the raw pointers. */
	416
625fcfe9	417	parser->raw_buffer.pointer += width;
2fa16060	418	parser->offset += width;
6eb1ded4 KS	419
	420	/* Finally put the character into the buffer. */
	421
	422	/* 0000 0000-0000 007F -> 0xxxxxxx */
3d790dfd	423	if (value <= 0x7F) {
625fcfe9	424	*(parser->buffer.last++) = value;
6eb1ded4 KS	425	}
6eb1ded4 KS	426	/* 0000 0080-0000 07FF -> 110xxxxx 10xxxxxx */
3d790dfd	427	else if (value <= 0x7FF) {
625fcfe9 KS	428	*(parser->buffer.last++) = 0xC0 + (value >> 6);
625fcfe9 KS	429	*(parser->buffer.last++) = 0x80 + (value & 0x3F);
6eb1ded4 KS	430	}
6eb1ded4 KS	431	/* 0000 0800-0000 FFFF -> 1110xxxx 10xxxxxx 10xxxxxx */
3d790dfd	432	else if (value <= 0xFFFF) {
625fcfe9 KS	433	*(parser->buffer.last++) = 0xE0 + (value >> 12);
	434	*(parser->buffer.last++) = 0x80 + ((value >> 6) & 0x3F);
	435	*(parser->buffer.last++) = 0x80 + (value & 0x3F);
6eb1ded4 KS	436	}
	437	/* 0001 0000-0010 FFFF -> 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx */
	438	else {
625fcfe9 KS	439	*(parser->buffer.last++) = 0xF0 + (value >> 18);
	440	*(parser->buffer.last++) = 0x80 + ((value >> 12) & 0x3F);
	441	*(parser->buffer.last++) = 0x80 + ((value >> 6) & 0x3F);
	442	*(parser->buffer.last++) = 0x80 + (value & 0x3F);
6eb1ded4	443	}
2fa16060 KS	444
	445	parser->unread ++;
	446	}
	447
	448	/* On EOF, put NUL into the buffer and return. */
	449
	450	if (parser->eof) {
625fcfe9	451	*(parser->buffer.last++) = '\0';
2fa16060 KS	452	parser->unread ++;
2fa16060 KS	453	return 1;
95b98ba9	454	}
2fa16060	455
95b98ba9 KS	456	}
95b98ba9 KS	457
3d790dfd	458	return 1;
6eb1ded4	459	}
95b98ba9	460