mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
867581dd75
* Update bundled libyaml-0.2.1 from 0.1.7.
https://github.com/ruby/psych/pull/368
* Unify Psych's API: To use keyword arguments with method call.
https://github.com/ruby/psych/pull/358
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@64544 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
688 lines
30 KiB
C
688 lines
30 KiB
C
#ifdef RUBY_EXTCONF_H
|
|
#include RUBY_EXTCONF_H
|
|
#endif
|
|
|
|
#if HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif
|
|
|
|
#include <yaml.h>
|
|
|
|
#include <assert.h>
|
|
#include <limits.h>
|
|
#include <stddef.h>
|
|
|
|
/*
|
|
* Memory management.
|
|
*/
|
|
|
|
YAML_DECLARE(void *)
|
|
yaml_malloc(size_t size);
|
|
|
|
YAML_DECLARE(void *)
|
|
yaml_realloc(void *ptr, size_t size);
|
|
|
|
YAML_DECLARE(void)
|
|
yaml_free(void *ptr);
|
|
|
|
YAML_DECLARE(yaml_char_t *)
|
|
yaml_strdup(const yaml_char_t *);
|
|
|
|
/*
|
|
* Reader: Ensure that the buffer contains at least `length` characters.
|
|
*/
|
|
|
|
YAML_DECLARE(int)
|
|
yaml_parser_update_buffer(yaml_parser_t *parser, size_t length);
|
|
|
|
/*
|
|
* Scanner: Ensure that the token stack contains at least one token ready.
|
|
*/
|
|
|
|
YAML_DECLARE(int)
|
|
yaml_parser_fetch_more_tokens(yaml_parser_t *parser);
|
|
|
|
/*
|
|
* The size of the input raw buffer.
|
|
*/
|
|
|
|
#define INPUT_RAW_BUFFER_SIZE 16384
|
|
|
|
/*
|
|
* The size of the input buffer.
|
|
*
|
|
* It should be possible to decode the whole raw buffer.
|
|
*/
|
|
|
|
#define INPUT_BUFFER_SIZE (INPUT_RAW_BUFFER_SIZE*3)
|
|
|
|
/*
|
|
* The size of the output buffer.
|
|
*/
|
|
|
|
#define OUTPUT_BUFFER_SIZE 16384
|
|
|
|
/*
|
|
* The size of the output raw buffer.
|
|
*
|
|
* It should be possible to encode the whole output buffer.
|
|
*/
|
|
|
|
#define OUTPUT_RAW_BUFFER_SIZE (OUTPUT_BUFFER_SIZE*2+2)
|
|
|
|
/*
|
|
* The maximum size of a YAML input file.
|
|
* This used to be PTRDIFF_MAX, but that's not entirely portable
|
|
* because stdint.h isn't available on all platforms.
|
|
* It is not entirely clear why this isn't the maximum value
|
|
* that can fit into the parser->offset field.
|
|
*/
|
|
|
|
#define MAX_FILE_SIZE (~(size_t)0 / 2)
|
|
|
|
|
|
/*
|
|
* The size of other stacks and queues.
|
|
*/
|
|
|
|
#define INITIAL_STACK_SIZE 16
|
|
#define INITIAL_QUEUE_SIZE 16
|
|
#define INITIAL_STRING_SIZE 16
|
|
|
|
/*
|
|
* Buffer management.
|
|
*/
|
|
|
|
#define BUFFER_INIT(context,buffer,size) \
|
|
(((buffer).start = (yaml_char_t *)yaml_malloc(size)) ? \
|
|
((buffer).last = (buffer).pointer = (buffer).start, \
|
|
(buffer).end = (buffer).start+(size), \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define BUFFER_DEL(context,buffer) \
|
|
(yaml_free((buffer).start), \
|
|
(buffer).start = (buffer).pointer = (buffer).end = 0)
|
|
|
|
/*
|
|
* String management.
|
|
*/
|
|
|
|
typedef struct {
|
|
yaml_char_t *start;
|
|
yaml_char_t *end;
|
|
yaml_char_t *pointer;
|
|
} yaml_string_t;
|
|
|
|
YAML_DECLARE(int)
|
|
yaml_string_extend(yaml_char_t **start,
|
|
yaml_char_t **pointer, yaml_char_t **end);
|
|
|
|
YAML_DECLARE(int)
|
|
yaml_string_join(
|
|
yaml_char_t **a_start, yaml_char_t **a_pointer, yaml_char_t **a_end,
|
|
yaml_char_t **b_start, yaml_char_t **b_pointer, yaml_char_t **b_end);
|
|
|
|
#define NULL_STRING { NULL, NULL, NULL }
|
|
|
|
#define STRING(string,length) { (string), (string)+(length), (string) }
|
|
|
|
#define STRING_ASSIGN(value,string,length) \
|
|
((value).start = (string), \
|
|
(value).end = (string)+(length), \
|
|
(value).pointer = (string))
|
|
|
|
#define STRING_INIT(context,string,size) \
|
|
(((string).start = YAML_MALLOC(size)) ? \
|
|
((string).pointer = (string).start, \
|
|
(string).end = (string).start+(size), \
|
|
memset((string).start, 0, (size)), \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define STRING_DEL(context,string) \
|
|
(yaml_free((string).start), \
|
|
(string).start = (string).pointer = (string).end = 0)
|
|
|
|
#define STRING_EXTEND(context,string) \
|
|
((((string).pointer+5 < (string).end) \
|
|
|| yaml_string_extend(&(string).start, \
|
|
&(string).pointer, &(string).end)) ? \
|
|
1 : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define CLEAR(context,string) \
|
|
((string).pointer = (string).start, \
|
|
memset((string).start, 0, (string).end-(string).start))
|
|
|
|
#define JOIN(context,string_a,string_b) \
|
|
((yaml_string_join(&(string_a).start, &(string_a).pointer, \
|
|
&(string_a).end, &(string_b).start, \
|
|
&(string_b).pointer, &(string_b).end)) ? \
|
|
((string_b).pointer = (string_b).start, \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
/*
|
|
* String check operations.
|
|
*/
|
|
|
|
/*
|
|
* Check the octet at the specified position.
|
|
*/
|
|
|
|
#define CHECK_AT(string,octet,offset) \
|
|
((string).pointer[offset] == (yaml_char_t)(octet))
|
|
|
|
/*
|
|
* Check the current octet in the buffer.
|
|
*/
|
|
|
|
#define CHECK(string,octet) CHECK_AT((string),(octet),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is an alphabetical
|
|
* character, a digit, '_', or '-'.
|
|
*/
|
|
|
|
#define IS_ALPHA_AT(string,offset) \
|
|
(((string).pointer[offset] >= (yaml_char_t) '0' && \
|
|
(string).pointer[offset] <= (yaml_char_t) '9') || \
|
|
((string).pointer[offset] >= (yaml_char_t) 'A' && \
|
|
(string).pointer[offset] <= (yaml_char_t) 'Z') || \
|
|
((string).pointer[offset] >= (yaml_char_t) 'a' && \
|
|
(string).pointer[offset] <= (yaml_char_t) 'z') || \
|
|
(string).pointer[offset] == '_' || \
|
|
(string).pointer[offset] == '-')
|
|
|
|
#define IS_ALPHA(string) IS_ALPHA_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is a digit.
|
|
*/
|
|
|
|
#define IS_DIGIT_AT(string,offset) \
|
|
(((string).pointer[offset] >= (yaml_char_t) '0' && \
|
|
(string).pointer[offset] <= (yaml_char_t) '9'))
|
|
|
|
#define IS_DIGIT(string) IS_DIGIT_AT((string),0)
|
|
|
|
/*
|
|
* Get the value of a digit.
|
|
*/
|
|
|
|
#define AS_DIGIT_AT(string,offset) \
|
|
((string).pointer[offset] - (yaml_char_t) '0')
|
|
|
|
#define AS_DIGIT(string) AS_DIGIT_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is a hex-digit.
|
|
*/
|
|
|
|
#define IS_HEX_AT(string,offset) \
|
|
(((string).pointer[offset] >= (yaml_char_t) '0' && \
|
|
(string).pointer[offset] <= (yaml_char_t) '9') || \
|
|
((string).pointer[offset] >= (yaml_char_t) 'A' && \
|
|
(string).pointer[offset] <= (yaml_char_t) 'F') || \
|
|
((string).pointer[offset] >= (yaml_char_t) 'a' && \
|
|
(string).pointer[offset] <= (yaml_char_t) 'f'))
|
|
|
|
#define IS_HEX(string) IS_HEX_AT((string),0)
|
|
|
|
/*
|
|
* Get the value of a hex-digit.
|
|
*/
|
|
|
|
#define AS_HEX_AT(string,offset) \
|
|
(((string).pointer[offset] >= (yaml_char_t) 'A' && \
|
|
(string).pointer[offset] <= (yaml_char_t) 'F') ? \
|
|
((string).pointer[offset] - (yaml_char_t) 'A' + 10) : \
|
|
((string).pointer[offset] >= (yaml_char_t) 'a' && \
|
|
(string).pointer[offset] <= (yaml_char_t) 'f') ? \
|
|
((string).pointer[offset] - (yaml_char_t) 'a' + 10) : \
|
|
((string).pointer[offset] - (yaml_char_t) '0'))
|
|
|
|
#define AS_HEX(string) AS_HEX_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character is ASCII.
|
|
*/
|
|
|
|
#define IS_ASCII_AT(string,offset) \
|
|
((string).pointer[offset] <= (yaml_char_t) '\x7F')
|
|
|
|
#define IS_ASCII(string) IS_ASCII_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character can be printed unescaped.
|
|
*/
|
|
|
|
#define IS_PRINTABLE_AT(string,offset) \
|
|
(((string).pointer[offset] == 0x0A) /* . == #x0A */ \
|
|
|| ((string).pointer[offset] >= 0x20 /* #x20 <= . <= #x7E */ \
|
|
&& (string).pointer[offset] <= 0x7E) \
|
|
|| ((string).pointer[offset] == 0xC2 /* #0xA0 <= . <= #xD7FF */ \
|
|
&& (string).pointer[offset+1] >= 0xA0) \
|
|
|| ((string).pointer[offset] > 0xC2 \
|
|
&& (string).pointer[offset] < 0xED) \
|
|
|| ((string).pointer[offset] == 0xED \
|
|
&& (string).pointer[offset+1] < 0xA0) \
|
|
|| ((string).pointer[offset] == 0xEE) \
|
|
|| ((string).pointer[offset] == 0xEF /* #xE000 <= . <= #xFFFD */ \
|
|
&& !((string).pointer[offset+1] == 0xBB /* && . != #xFEFF */ \
|
|
&& (string).pointer[offset+2] == 0xBF) \
|
|
&& !((string).pointer[offset+1] == 0xBF \
|
|
&& ((string).pointer[offset+2] == 0xBE \
|
|
|| (string).pointer[offset+2] == 0xBF))))
|
|
|
|
#define IS_PRINTABLE(string) IS_PRINTABLE_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is NUL.
|
|
*/
|
|
|
|
#define IS_Z_AT(string,offset) CHECK_AT((string),'\0',(offset))
|
|
|
|
#define IS_Z(string) IS_Z_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is BOM.
|
|
*/
|
|
|
|
#define IS_BOM_AT(string,offset) \
|
|
(CHECK_AT((string),'\xEF',(offset)) \
|
|
&& CHECK_AT((string),'\xBB',(offset)+1) \
|
|
&& CHECK_AT((string),'\xBF',(offset)+2)) /* BOM (#xFEFF) */
|
|
|
|
#define IS_BOM(string) IS_BOM_AT(string,0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is space.
|
|
*/
|
|
|
|
#define IS_SPACE_AT(string,offset) CHECK_AT((string),' ',(offset))
|
|
|
|
#define IS_SPACE(string) IS_SPACE_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is tab.
|
|
*/
|
|
|
|
#define IS_TAB_AT(string,offset) CHECK_AT((string),'\t',(offset))
|
|
|
|
#define IS_TAB(string) IS_TAB_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is blank (space or tab).
|
|
*/
|
|
|
|
#define IS_BLANK_AT(string,offset) \
|
|
(IS_SPACE_AT((string),(offset)) || IS_TAB_AT((string),(offset)))
|
|
|
|
#define IS_BLANK(string) IS_BLANK_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character at the specified position is a line break.
|
|
*/
|
|
|
|
#define IS_BREAK_AT(string,offset) \
|
|
(CHECK_AT((string),'\r',(offset)) /* CR (#xD)*/ \
|
|
|| CHECK_AT((string),'\n',(offset)) /* LF (#xA) */ \
|
|
|| (CHECK_AT((string),'\xC2',(offset)) \
|
|
&& CHECK_AT((string),'\x85',(offset)+1)) /* NEL (#x85) */ \
|
|
|| (CHECK_AT((string),'\xE2',(offset)) \
|
|
&& CHECK_AT((string),'\x80',(offset)+1) \
|
|
&& CHECK_AT((string),'\xA8',(offset)+2)) /* LS (#x2028) */ \
|
|
|| (CHECK_AT((string),'\xE2',(offset)) \
|
|
&& CHECK_AT((string),'\x80',(offset)+1) \
|
|
&& CHECK_AT((string),'\xA9',(offset)+2))) /* PS (#x2029) */
|
|
|
|
#define IS_BREAK(string) IS_BREAK_AT((string),0)
|
|
|
|
#define IS_CRLF_AT(string,offset) \
|
|
(CHECK_AT((string),'\r',(offset)) && CHECK_AT((string),'\n',(offset)+1))
|
|
|
|
#define IS_CRLF(string) IS_CRLF_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character is a line break or NUL.
|
|
*/
|
|
|
|
#define IS_BREAKZ_AT(string,offset) \
|
|
(IS_BREAK_AT((string),(offset)) || IS_Z_AT((string),(offset)))
|
|
|
|
#define IS_BREAKZ(string) IS_BREAKZ_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character is a line break, space, or NUL.
|
|
*/
|
|
|
|
#define IS_SPACEZ_AT(string,offset) \
|
|
(IS_SPACE_AT((string),(offset)) || IS_BREAKZ_AT((string),(offset)))
|
|
|
|
#define IS_SPACEZ(string) IS_SPACEZ_AT((string),0)
|
|
|
|
/*
|
|
* Check if the character is a line break, space, tab, or NUL.
|
|
*/
|
|
|
|
#define IS_BLANKZ_AT(string,offset) \
|
|
(IS_BLANK_AT((string),(offset)) || IS_BREAKZ_AT((string),(offset)))
|
|
|
|
#define IS_BLANKZ(string) IS_BLANKZ_AT((string),0)
|
|
|
|
/*
|
|
* Determine the width of the character.
|
|
*/
|
|
|
|
#define WIDTH_AT(string,offset) \
|
|
(((string).pointer[offset] & 0x80) == 0x00 ? 1 : \
|
|
((string).pointer[offset] & 0xE0) == 0xC0 ? 2 : \
|
|
((string).pointer[offset] & 0xF0) == 0xE0 ? 3 : \
|
|
((string).pointer[offset] & 0xF8) == 0xF0 ? 4 : 0)
|
|
|
|
#define WIDTH(string) WIDTH_AT((string),0)
|
|
|
|
/*
|
|
* Move the string pointer to the next character.
|
|
*/
|
|
|
|
#define MOVE(string) ((string).pointer += WIDTH((string)))
|
|
|
|
/*
|
|
* Copy a character and move the pointers of both strings.
|
|
*/
|
|
|
|
#define COPY(string_a,string_b) \
|
|
((*(string_b).pointer & 0x80) == 0x00 ? \
|
|
(*((string_a).pointer++) = *((string_b).pointer++)) : \
|
|
(*(string_b).pointer & 0xE0) == 0xC0 ? \
|
|
(*((string_a).pointer++) = *((string_b).pointer++), \
|
|
*((string_a).pointer++) = *((string_b).pointer++)) : \
|
|
(*(string_b).pointer & 0xF0) == 0xE0 ? \
|
|
(*((string_a).pointer++) = *((string_b).pointer++), \
|
|
*((string_a).pointer++) = *((string_b).pointer++), \
|
|
*((string_a).pointer++) = *((string_b).pointer++)) : \
|
|
(*(string_b).pointer & 0xF8) == 0xF0 ? \
|
|
(*((string_a).pointer++) = *((string_b).pointer++), \
|
|
*((string_a).pointer++) = *((string_b).pointer++), \
|
|
*((string_a).pointer++) = *((string_b).pointer++), \
|
|
*((string_a).pointer++) = *((string_b).pointer++)) : 0)
|
|
|
|
/*
|
|
* Stack and queue management.
|
|
*/
|
|
|
|
YAML_DECLARE(int)
|
|
yaml_stack_extend(void **start, void **top, void **end);
|
|
|
|
YAML_DECLARE(int)
|
|
yaml_queue_extend(void **start, void **head, void **tail, void **end);
|
|
|
|
#define STACK_INIT(context,stack,type) \
|
|
(((stack).start = (type)yaml_malloc(INITIAL_STACK_SIZE*sizeof(*(stack).start))) ? \
|
|
((stack).top = (stack).start, \
|
|
(stack).end = (stack).start+INITIAL_STACK_SIZE, \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define STACK_DEL(context,stack) \
|
|
(yaml_free((stack).start), \
|
|
(stack).start = (stack).top = (stack).end = 0)
|
|
|
|
#define STACK_EMPTY(context,stack) \
|
|
((stack).start == (stack).top)
|
|
|
|
#define STACK_LIMIT(context,stack,size) \
|
|
((stack).top - (stack).start < (size) ? \
|
|
1 : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define PUSH(context,stack,value) \
|
|
(((stack).top != (stack).end \
|
|
|| yaml_stack_extend((void **)&(stack).start, \
|
|
(void **)&(stack).top, (void **)&(stack).end)) ? \
|
|
(*((stack).top++) = value, \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define POP(context,stack) \
|
|
(*(--(stack).top))
|
|
|
|
#define QUEUE_INIT(context,queue,size,type) \
|
|
(((queue).start = (type)yaml_malloc((size)*sizeof(*(queue).start))) ? \
|
|
((queue).head = (queue).tail = (queue).start, \
|
|
(queue).end = (queue).start+(size), \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define QUEUE_DEL(context,queue) \
|
|
(yaml_free((queue).start), \
|
|
(queue).start = (queue).head = (queue).tail = (queue).end = 0)
|
|
|
|
#define QUEUE_EMPTY(context,queue) \
|
|
((queue).head == (queue).tail)
|
|
|
|
#define ENQUEUE(context,queue,value) \
|
|
(((queue).tail != (queue).end \
|
|
|| yaml_queue_extend((void **)&(queue).start, (void **)&(queue).head, \
|
|
(void **)&(queue).tail, (void **)&(queue).end)) ? \
|
|
(*((queue).tail++) = value, \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
#define DEQUEUE(context,queue) \
|
|
(*((queue).head++))
|
|
|
|
#define QUEUE_INSERT(context,queue,index,value) \
|
|
(((queue).tail != (queue).end \
|
|
|| yaml_queue_extend((void **)&(queue).start, (void **)&(queue).head, \
|
|
(void **)&(queue).tail, (void **)&(queue).end)) ? \
|
|
(memmove((queue).head+(index)+1,(queue).head+(index), \
|
|
((queue).tail-(queue).head-(index))*sizeof(*(queue).start)), \
|
|
*((queue).head+(index)) = value, \
|
|
(queue).tail++, \
|
|
1) : \
|
|
((context)->error = YAML_MEMORY_ERROR, \
|
|
0))
|
|
|
|
/*
|
|
* Token initializers.
|
|
*/
|
|
|
|
#define TOKEN_INIT(token,token_type,token_start_mark,token_end_mark) \
|
|
(memset(&(token), 0, sizeof(yaml_token_t)), \
|
|
(token).type = (token_type), \
|
|
(token).start_mark = (token_start_mark), \
|
|
(token).end_mark = (token_end_mark))
|
|
|
|
#define STREAM_START_TOKEN_INIT(token,token_encoding,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_STREAM_START_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.stream_start.encoding = (token_encoding))
|
|
|
|
#define STREAM_END_TOKEN_INIT(token,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_STREAM_END_TOKEN,(start_mark),(end_mark)))
|
|
|
|
#define ALIAS_TOKEN_INIT(token,token_value,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_ALIAS_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.alias.value = (token_value))
|
|
|
|
#define ANCHOR_TOKEN_INIT(token,token_value,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_ANCHOR_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.anchor.value = (token_value))
|
|
|
|
#define TAG_TOKEN_INIT(token,token_handle,token_suffix,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_TAG_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.tag.handle = (token_handle), \
|
|
(token).data.tag.suffix = (token_suffix))
|
|
|
|
#define SCALAR_TOKEN_INIT(token,token_value,token_length,token_style,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_SCALAR_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.scalar.value = (token_value), \
|
|
(token).data.scalar.length = (token_length), \
|
|
(token).data.scalar.style = (token_style))
|
|
|
|
#define VERSION_DIRECTIVE_TOKEN_INIT(token,token_major,token_minor,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_VERSION_DIRECTIVE_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.version_directive.major = (token_major), \
|
|
(token).data.version_directive.minor = (token_minor))
|
|
|
|
#define TAG_DIRECTIVE_TOKEN_INIT(token,token_handle,token_prefix,start_mark,end_mark) \
|
|
(TOKEN_INIT((token),YAML_TAG_DIRECTIVE_TOKEN,(start_mark),(end_mark)), \
|
|
(token).data.tag_directive.handle = (token_handle), \
|
|
(token).data.tag_directive.prefix = (token_prefix))
|
|
|
|
/*
|
|
* Event initializers.
|
|
*/
|
|
|
|
#define EVENT_INIT(event,event_type,event_start_mark,event_end_mark) \
|
|
(memset(&(event), 0, sizeof(yaml_event_t)), \
|
|
(event).type = (event_type), \
|
|
(event).start_mark = (event_start_mark), \
|
|
(event).end_mark = (event_end_mark))
|
|
|
|
#define STREAM_START_EVENT_INIT(event,event_encoding,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_STREAM_START_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.stream_start.encoding = (event_encoding))
|
|
|
|
#define STREAM_END_EVENT_INIT(event,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_STREAM_END_EVENT,(start_mark),(end_mark)))
|
|
|
|
#define DOCUMENT_START_EVENT_INIT(event,event_version_directive, \
|
|
event_tag_directives_start,event_tag_directives_end,event_implicit,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_DOCUMENT_START_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.document_start.version_directive = (event_version_directive), \
|
|
(event).data.document_start.tag_directives.start = (event_tag_directives_start), \
|
|
(event).data.document_start.tag_directives.end = (event_tag_directives_end), \
|
|
(event).data.document_start.implicit = (event_implicit))
|
|
|
|
#define DOCUMENT_END_EVENT_INIT(event,event_implicit,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_DOCUMENT_END_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.document_end.implicit = (event_implicit))
|
|
|
|
#define ALIAS_EVENT_INIT(event,event_anchor,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_ALIAS_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.alias.anchor = (event_anchor))
|
|
|
|
#define SCALAR_EVENT_INIT(event,event_anchor,event_tag,event_value,event_length, \
|
|
event_plain_implicit, event_quoted_implicit,event_style,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_SCALAR_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.scalar.anchor = (event_anchor), \
|
|
(event).data.scalar.tag = (event_tag), \
|
|
(event).data.scalar.value = (event_value), \
|
|
(event).data.scalar.length = (event_length), \
|
|
(event).data.scalar.plain_implicit = (event_plain_implicit), \
|
|
(event).data.scalar.quoted_implicit = (event_quoted_implicit), \
|
|
(event).data.scalar.style = (event_style))
|
|
|
|
#define SEQUENCE_START_EVENT_INIT(event,event_anchor,event_tag, \
|
|
event_implicit,event_style,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_SEQUENCE_START_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.sequence_start.anchor = (event_anchor), \
|
|
(event).data.sequence_start.tag = (event_tag), \
|
|
(event).data.sequence_start.implicit = (event_implicit), \
|
|
(event).data.sequence_start.style = (event_style))
|
|
|
|
#define SEQUENCE_END_EVENT_INIT(event,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_SEQUENCE_END_EVENT,(start_mark),(end_mark)))
|
|
|
|
#define MAPPING_START_EVENT_INIT(event,event_anchor,event_tag, \
|
|
event_implicit,event_style,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_MAPPING_START_EVENT,(start_mark),(end_mark)), \
|
|
(event).data.mapping_start.anchor = (event_anchor), \
|
|
(event).data.mapping_start.tag = (event_tag), \
|
|
(event).data.mapping_start.implicit = (event_implicit), \
|
|
(event).data.mapping_start.style = (event_style))
|
|
|
|
#define MAPPING_END_EVENT_INIT(event,start_mark,end_mark) \
|
|
(EVENT_INIT((event),YAML_MAPPING_END_EVENT,(start_mark),(end_mark)))
|
|
|
|
/*
|
|
* Document initializer.
|
|
*/
|
|
|
|
#define DOCUMENT_INIT(document,document_nodes_start,document_nodes_end, \
|
|
document_version_directive,document_tag_directives_start, \
|
|
document_tag_directives_end,document_start_implicit, \
|
|
document_end_implicit,document_start_mark,document_end_mark) \
|
|
(memset(&(document), 0, sizeof(yaml_document_t)), \
|
|
(document).nodes.start = (document_nodes_start), \
|
|
(document).nodes.end = (document_nodes_end), \
|
|
(document).nodes.top = (document_nodes_start), \
|
|
(document).version_directive = (document_version_directive), \
|
|
(document).tag_directives.start = (document_tag_directives_start), \
|
|
(document).tag_directives.end = (document_tag_directives_end), \
|
|
(document).start_implicit = (document_start_implicit), \
|
|
(document).end_implicit = (document_end_implicit), \
|
|
(document).start_mark = (document_start_mark), \
|
|
(document).end_mark = (document_end_mark))
|
|
|
|
/*
|
|
* Node initializers.
|
|
*/
|
|
|
|
#define NODE_INIT(node,node_type,node_tag,node_start_mark,node_end_mark) \
|
|
(memset(&(node), 0, sizeof(yaml_node_t)), \
|
|
(node).type = (node_type), \
|
|
(node).tag = (node_tag), \
|
|
(node).start_mark = (node_start_mark), \
|
|
(node).end_mark = (node_end_mark))
|
|
|
|
#define SCALAR_NODE_INIT(node,node_tag,node_value,node_length, \
|
|
node_style,start_mark,end_mark) \
|
|
(NODE_INIT((node),YAML_SCALAR_NODE,(node_tag),(start_mark),(end_mark)), \
|
|
(node).data.scalar.value = (node_value), \
|
|
(node).data.scalar.length = (node_length), \
|
|
(node).data.scalar.style = (node_style))
|
|
|
|
#define SEQUENCE_NODE_INIT(node,node_tag,node_items_start,node_items_end, \
|
|
node_style,start_mark,end_mark) \
|
|
(NODE_INIT((node),YAML_SEQUENCE_NODE,(node_tag),(start_mark),(end_mark)), \
|
|
(node).data.sequence.items.start = (node_items_start), \
|
|
(node).data.sequence.items.end = (node_items_end), \
|
|
(node).data.sequence.items.top = (node_items_start), \
|
|
(node).data.sequence.style = (node_style))
|
|
|
|
#define MAPPING_NODE_INIT(node,node_tag,node_pairs_start,node_pairs_end, \
|
|
node_style,start_mark,end_mark) \
|
|
(NODE_INIT((node),YAML_MAPPING_NODE,(node_tag),(start_mark),(end_mark)), \
|
|
(node).data.mapping.pairs.start = (node_pairs_start), \
|
|
(node).data.mapping.pairs.end = (node_pairs_end), \
|
|
(node).data.mapping.pairs.top = (node_pairs_start), \
|
|
(node).data.mapping.style = (node_style))
|
|
|
|
/* Strict C compiler warning helpers */
|
|
|
|
#if defined(__clang__) || defined(__GNUC__)
|
|
# define HASATTRIBUTE_UNUSED
|
|
#endif
|
|
#ifdef HASATTRIBUTE_UNUSED
|
|
# define __attribute__unused__ __attribute__((__unused__))
|
|
#else
|
|
# define __attribute__unused__
|
|
#endif
|
|
|
|
/* Shim arguments are arguments that must be included in your function,
|
|
* but serve no purpose inside. Silence compiler warnings. */
|
|
#define SHIM(a) /*@unused@*/ a __attribute__unused__
|
|
|
|
/* UNUSED_PARAM() marks a shim argument in the body to silence compiler warnings */
|
|
#ifdef __clang__
|
|
# define UNUSED_PARAM(a) (void)(a);
|
|
#else
|
|
# define UNUSED_PARAM(a) /*@-noeffect*/if (0) (void)(a)/*@=noeffect*/;
|
|
#endif
|
|
|
|
#define YAML_MALLOC_STATIC(type) (type*)yaml_malloc(sizeof(type))
|
|
#define YAML_MALLOC(size) (yaml_char_t *)yaml_malloc(size)
|