Ruby  2.0.0p247(2013-06-27revision41674)
ext/psych/yaml/yaml_private.h
Go to the documentation of this file.
00001 #ifdef RUBY_EXTCONF_H
00002 #include RUBY_EXTCONF_H
00003 #endif
00004 
00005 #if HAVE_CONFIG_H
00006 #include <config.h>
00007 #endif
00008 
00009 #include <yaml.h>
00010 
00011 #include <assert.h>
00012 #include <limits.h>
00013 
00014 /*
00015  * Memory management.
00016  */
00017 
00018 YAML_DECLARE(void *)
00019 yaml_malloc(size_t size);
00020 
00021 YAML_DECLARE(void *)
00022 yaml_realloc(void *ptr, size_t size);
00023 
00024 YAML_DECLARE(void)
00025 yaml_free(void *ptr);
00026 
00027 YAML_DECLARE(yaml_char_t *)
00028 yaml_strdup(const yaml_char_t *);
00029 
00030 /*
00031  * Reader: Ensure that the buffer contains at least `length` characters.
00032  */
00033 
00034 YAML_DECLARE(int)
00035 yaml_parser_update_buffer(yaml_parser_t *parser, size_t length);
00036 
00037 /*
00038  * Scanner: Ensure that the token stack contains at least one token ready.
00039  */
00040 
00041 YAML_DECLARE(int)
00042 yaml_parser_fetch_more_tokens(yaml_parser_t *parser);
00043 
00044 /*
00045  * The size of the input raw buffer.
00046  */
00047 
00048 #define INPUT_RAW_BUFFER_SIZE   16384
00049 
00050 /*
00051  * The size of the input buffer.
00052  *
00053  * It should be possible to decode the whole raw buffer.
00054  */
00055 
00056 #define INPUT_BUFFER_SIZE       (INPUT_RAW_BUFFER_SIZE*3)
00057 
00058 /*
00059  * The size of the output buffer.
00060  */
00061 
00062 #define OUTPUT_BUFFER_SIZE      16384
00063 
00064 /*
00065  * The size of the output raw buffer.
00066  *
00067  * It should be possible to encode the whole output buffer.
00068  */
00069 
00070 #define OUTPUT_RAW_BUFFER_SIZE  (OUTPUT_BUFFER_SIZE*2+2)
00071 
00072 /*
00073  * The size of other stacks and queues.
00074  */
00075 
00076 #define INITIAL_STACK_SIZE  16
00077 #define INITIAL_QUEUE_SIZE  16
00078 #define INITIAL_STRING_SIZE 16
00079 
00080 /*
00081  * Buffer management.
00082  */
00083 
00084 #define BUFFER_INIT(context,buffer,size)                                        \
00085     (((buffer).start = yaml_malloc(size)) ?                                     \
00086         ((buffer).last = (buffer).pointer = (buffer).start,                     \
00087          (buffer).end = (buffer).start+(size),                                  \
00088          1) :                                                                   \
00089         ((context)->error = YAML_MEMORY_ERROR,                                  \
00090          0))
00091 
00092 #define BUFFER_DEL(context,buffer)                                              \
00093     (yaml_free((buffer).start),                                                 \
00094      (buffer).start = (buffer).pointer = (buffer).end = 0)
00095 
00096 /*
00097  * String management.
00098  */
00099 
00100 typedef struct {
00101     yaml_char_t *start;
00102     yaml_char_t *end;
00103     yaml_char_t *pointer;
00104 } yaml_string_t;
00105 
00106 YAML_DECLARE(int)
00107 yaml_string_extend(yaml_char_t **start,
00108         yaml_char_t **pointer, yaml_char_t **end);
00109 
00110 YAML_DECLARE(int)
00111 yaml_string_join(
00112         yaml_char_t **a_start, yaml_char_t **a_pointer, yaml_char_t **a_end,
00113         yaml_char_t **b_start, yaml_char_t **b_pointer, yaml_char_t **b_end);
00114 
00115 #define NULL_STRING { NULL, NULL, NULL }
00116 
00117 #define STRING(string,length)   { (string), (string)+(length), (string) }
00118 
00119 #define STRING_ASSIGN(value,string,length)                                      \
00120     ((value).start = (string),                                                  \
00121      (value).end = (string)+(length),                                           \
00122      (value).pointer = (string))
00123 
00124 #define STRING_INIT(context,string,size)                                        \
00125     (((string).start = yaml_malloc(size)) ?                                     \
00126         ((string).pointer = (string).start,                                     \
00127          (string).end = (string).start+(size),                                  \
00128          memset((string).start, 0, (size)),                                     \
00129          1) :                                                                   \
00130         ((context)->error = YAML_MEMORY_ERROR,                                  \
00131          0))
00132 
00133 #define STRING_DEL(context,string)                                              \
00134     (yaml_free((string).start),                                                 \
00135      (string).start = (string).pointer = (string).end = 0)
00136 
00137 #define STRING_EXTEND(context,string)                                           \
00138     (((string).pointer+5 < (string).end)                                        \
00139         || yaml_string_extend(&(string).start,                                  \
00140             &(string).pointer, &(string).end))
00141 
00142 #define CLEAR(context,string)                                                   \
00143     ((string).pointer = (string).start,                                         \
00144      memset((string).start, 0, (string).end-(string).start))
00145 
00146 #define JOIN(context,string_a,string_b)                                         \
00147     ((yaml_string_join(&(string_a).start, &(string_a).pointer,                  \
00148                        &(string_a).end, &(string_b).start,                      \
00149                        &(string_b).pointer, &(string_b).end)) ?                 \
00150         ((string_b).pointer = (string_b).start,                                 \
00151          1) :                                                                   \
00152         ((context)->error = YAML_MEMORY_ERROR,                                  \
00153          0))
00154 
00155 /*
00156  * String check operations.
00157  */
00158 
00159 /*
00160  * Check the octet at the specified position.
00161  */
00162 
00163 #define CHECK_AT(string,octet,offset)                                           \
00164     ((string).pointer[offset] == (yaml_char_t)(octet))
00165 
00166 /*
00167  * Check the current octet in the buffer.
00168  */
00169 
00170 #define CHECK(string,octet) CHECK_AT((string),(octet),0)
00171 
00172 /*
00173  * Check if the character at the specified position is an alphabetical
00174  * character, a digit, '_', or '-'.
00175  */
00176 
00177 #define IS_ALPHA_AT(string,offset)                                              \
00178      (((string).pointer[offset] >= (yaml_char_t) '0' &&                         \
00179        (string).pointer[offset] <= (yaml_char_t) '9') ||                        \
00180       ((string).pointer[offset] >= (yaml_char_t) 'A' &&                         \
00181        (string).pointer[offset] <= (yaml_char_t) 'Z') ||                        \
00182       ((string).pointer[offset] >= (yaml_char_t) 'a' &&                         \
00183        (string).pointer[offset] <= (yaml_char_t) 'z') ||                        \
00184       (string).pointer[offset] == '_' ||                                        \
00185       (string).pointer[offset] == '-')
00186 
00187 #define IS_ALPHA(string)    IS_ALPHA_AT((string),0)
00188 
00189 /*
00190  * Check if the character at the specified position is a digit.
00191  */
00192 
00193 #define IS_DIGIT_AT(string,offset)                                              \
00194      (((string).pointer[offset] >= (yaml_char_t) '0' &&                         \
00195        (string).pointer[offset] <= (yaml_char_t) '9'))
00196 
00197 #define IS_DIGIT(string)    IS_DIGIT_AT((string),0)
00198 
00199 /*
00200  * Get the value of a digit.
00201  */
00202 
00203 #define AS_DIGIT_AT(string,offset)                                              \
00204      ((string).pointer[offset] - (yaml_char_t) '0')
00205 
00206 #define AS_DIGIT(string)    AS_DIGIT_AT((string),0)
00207 
00208 /*
00209  * Check if the character at the specified position is a hex-digit.
00210  */
00211 
00212 #define IS_HEX_AT(string,offset)                                                \
00213      (((string).pointer[offset] >= (yaml_char_t) '0' &&                         \
00214        (string).pointer[offset] <= (yaml_char_t) '9') ||                        \
00215       ((string).pointer[offset] >= (yaml_char_t) 'A' &&                         \
00216        (string).pointer[offset] <= (yaml_char_t) 'F') ||                        \
00217       ((string).pointer[offset] >= (yaml_char_t) 'a' &&                         \
00218        (string).pointer[offset] <= (yaml_char_t) 'f'))
00219 
00220 #define IS_HEX(string)    IS_HEX_AT((string),0)
00221 
00222 /*
00223  * Get the value of a hex-digit.
00224  */
00225 
00226 #define AS_HEX_AT(string,offset)                                                \
00227       (((string).pointer[offset] >= (yaml_char_t) 'A' &&                        \
00228         (string).pointer[offset] <= (yaml_char_t) 'F') ?                        \
00229        ((string).pointer[offset] - (yaml_char_t) 'A' + 10) :                    \
00230        ((string).pointer[offset] >= (yaml_char_t) 'a' &&                        \
00231         (string).pointer[offset] <= (yaml_char_t) 'f') ?                        \
00232        ((string).pointer[offset] - (yaml_char_t) 'a' + 10) :                    \
00233        ((string).pointer[offset] - (yaml_char_t) '0'))
00234 
00235 #define AS_HEX(string)  AS_HEX_AT((string),0)
00236 
00237 /*
00238  * Check if the character is ASCII.
00239  */
00240 
00241 #define IS_ASCII_AT(string,offset)                                              \
00242     ((string).pointer[offset] <= (yaml_char_t) '\x7F')
00243 
00244 #define IS_ASCII(string)    IS_ASCII_AT((string),0)
00245 
00246 /*
00247  * Check if the character can be printed unescaped.
00248  */
00249 
00250 #define IS_PRINTABLE_AT(string,offset)                                          \
00251     (((string).pointer[offset] == 0x0A)         /* . == #x0A */                 \
00252      || ((string).pointer[offset] >= 0x20       /* #x20 <= . <= #x7E */         \
00253          && (string).pointer[offset] <= 0x7E)                                   \
00254      || ((string).pointer[offset] == 0xC2       /* #0xA0 <= . <= #xD7FF */      \
00255          && (string).pointer[offset+1] >= 0xA0)                                 \
00256      || ((string).pointer[offset] > 0xC2                                        \
00257          && (string).pointer[offset] < 0xED)                                    \
00258      || ((string).pointer[offset] == 0xED                                       \
00259          && (string).pointer[offset+1] < 0xA0)                                  \
00260      || ((string).pointer[offset] == 0xEE)                                      \
00261      || ((string).pointer[offset] == 0xEF      /* #xE000 <= . <= #xFFFD */      \
00262          && !((string).pointer[offset+1] == 0xBB        /* && . != #xFEFF */    \
00263              && (string).pointer[offset+2] == 0xBF)                             \
00264          && !((string).pointer[offset+1] == 0xBF                                \
00265              && ((string).pointer[offset+2] == 0xBE                             \
00266                  || (string).pointer[offset+2] == 0xBF))))
00267 
00268 #define IS_PRINTABLE(string)    IS_PRINTABLE_AT((string),0)
00269 
00270 /*
00271  * Check if the character at the specified position is NUL.
00272  */
00273 
00274 #define IS_Z_AT(string,offset)    CHECK_AT((string),'\0',(offset))
00275 
00276 #define IS_Z(string)    IS_Z_AT((string),0)
00277 
00278 /*
00279  * Check if the character at the specified position is BOM.
00280  */
00281 
00282 #define IS_BOM_AT(string,offset)                                                \
00283      (CHECK_AT((string),'\xEF',(offset))                                        \
00284       && CHECK_AT((string),'\xBB',(offset)+1)                                   \
00285       && CHECK_AT((string),'\xBF',(offset)+2))  /* BOM (#xFEFF) */
00286 
00287 #define IS_BOM(string)  IS_BOM_AT(string,0)
00288 
00289 /*
00290  * Check if the character at the specified position is space.
00291  */
00292 
00293 #define IS_SPACE_AT(string,offset)  CHECK_AT((string),' ',(offset))
00294 
00295 #define IS_SPACE(string)    IS_SPACE_AT((string),0)
00296 
00297 /*
00298  * Check if the character at the specified position is tab.
00299  */
00300 
00301 #define IS_TAB_AT(string,offset)    CHECK_AT((string),'\t',(offset))
00302 
00303 #define IS_TAB(string)  IS_TAB_AT((string),0)
00304 
00305 /*
00306  * Check if the character at the specified position is blank (space or tab).
00307  */
00308 
00309 #define IS_BLANK_AT(string,offset)                                              \
00310     (IS_SPACE_AT((string),(offset)) || IS_TAB_AT((string),(offset)))
00311 
00312 #define IS_BLANK(string)    IS_BLANK_AT((string),0)
00313 
00314 /*
00315  * Check if the character at the specified position is a line break.
00316  */
00317 
00318 #define IS_BREAK_AT(string,offset)                                              \
00319     (CHECK_AT((string),'\r',(offset))               /* CR (#xD)*/               \
00320      || CHECK_AT((string),'\n',(offset))            /* LF (#xA) */              \
00321      || (CHECK_AT((string),'\xC2',(offset))                                     \
00322          && CHECK_AT((string),'\x85',(offset)+1))   /* NEL (#x85) */            \
00323      || (CHECK_AT((string),'\xE2',(offset))                                     \
00324          && CHECK_AT((string),'\x80',(offset)+1)                                \
00325          && CHECK_AT((string),'\xA8',(offset)+2))   /* LS (#x2028) */           \
00326      || (CHECK_AT((string),'\xE2',(offset))                                     \
00327          && CHECK_AT((string),'\x80',(offset)+1)                                \
00328          && CHECK_AT((string),'\xA9',(offset)+2)))  /* PS (#x2029) */
00329 
00330 #define IS_BREAK(string)    IS_BREAK_AT((string),0)
00331 
00332 #define IS_CRLF_AT(string,offset)                                               \
00333      (CHECK_AT((string),'\r',(offset)) && CHECK_AT((string),'\n',(offset)+1))
00334 
00335 #define IS_CRLF(string) IS_CRLF_AT((string),0)
00336 
00337 /*
00338  * Check if the character is a line break or NUL.
00339  */
00340 
00341 #define IS_BREAKZ_AT(string,offset)                                             \
00342     (IS_BREAK_AT((string),(offset)) || IS_Z_AT((string),(offset)))
00343 
00344 #define IS_BREAKZ(string)   IS_BREAKZ_AT((string),0)
00345 
00346 /*
00347  * Check if the character is a line break, space, or NUL.
00348  */
00349 
00350 #define IS_SPACEZ_AT(string,offset)                                             \
00351     (IS_SPACE_AT((string),(offset)) || IS_BREAKZ_AT((string),(offset)))
00352 
00353 #define IS_SPACEZ(string)   IS_SPACEZ_AT((string),0)
00354 
00355 /*
00356  * Check if the character is a line break, space, tab, or NUL.
00357  */
00358 
00359 #define IS_BLANKZ_AT(string,offset)                                             \
00360     (IS_BLANK_AT((string),(offset)) || IS_BREAKZ_AT((string),(offset)))
00361 
00362 #define IS_BLANKZ(string)   IS_BLANKZ_AT((string),0)
00363 
00364 /*
00365  * Determine the width of the character.
00366  */
00367 
00368 #define WIDTH_AT(string,offset)                                                 \
00369      (((string).pointer[offset] & 0x80) == 0x00 ? 1 :                           \
00370       ((string).pointer[offset] & 0xE0) == 0xC0 ? 2 :                           \
00371       ((string).pointer[offset] & 0xF0) == 0xE0 ? 3 :                           \
00372       ((string).pointer[offset] & 0xF8) == 0xF0 ? 4 : 0)
00373 
00374 #define WIDTH(string)   WIDTH_AT((string),0)
00375 
00376 /*
00377  * Move the string pointer to the next character.
00378  */
00379 
00380 #define MOVE(string)    ((string).pointer += WIDTH((string)))
00381 
00382 /*
00383  * Copy a character and move the pointers of both strings.
00384  */
00385 
00386 #define COPY(string_a,string_b)                                                 \
00387     ((*(string_b).pointer & 0x80) == 0x00 ?                                     \
00388      (*((string_a).pointer++) = *((string_b).pointer++)) :                      \
00389      (*(string_b).pointer & 0xE0) == 0xC0 ?                                     \
00390      (*((string_a).pointer++) = *((string_b).pointer++),                        \
00391       *((string_a).pointer++) = *((string_b).pointer++)) :                      \
00392      (*(string_b).pointer & 0xF0) == 0xE0 ?                                     \
00393      (*((string_a).pointer++) = *((string_b).pointer++),                        \
00394       *((string_a).pointer++) = *((string_b).pointer++),                        \
00395       *((string_a).pointer++) = *((string_b).pointer++)) :                      \
00396      (*(string_b).pointer & 0xF8) == 0xF0 ?                                     \
00397      (*((string_a).pointer++) = *((string_b).pointer++),                        \
00398       *((string_a).pointer++) = *((string_b).pointer++),                        \
00399       *((string_a).pointer++) = *((string_b).pointer++),                        \
00400       *((string_a).pointer++) = *((string_b).pointer++)) : 0)
00401 
00402 /*
00403  * Stack and queue management.
00404  */
00405 
00406 YAML_DECLARE(int)
00407 yaml_stack_extend(void **start, void **top, void **end);
00408 
00409 YAML_DECLARE(int)
00410 yaml_queue_extend(void **start, void **head, void **tail, void **end);
00411 
00412 #define STACK_INIT(context,stack,size)                                          \
00413     (((stack).start = yaml_malloc((size)*sizeof(*(stack).start))) ?             \
00414         ((stack).top = (stack).start,                                           \
00415          (stack).end = (stack).start+(size),                                    \
00416          1) :                                                                   \
00417         ((context)->error = YAML_MEMORY_ERROR,                                  \
00418          0))
00419 
00420 #define STACK_DEL(context,stack)                                                \
00421     (yaml_free((stack).start),                                                  \
00422      (stack).start = (stack).top = (stack).end = 0)
00423 
00424 #define STACK_EMPTY(context,stack)                                              \
00425     ((stack).start == (stack).top)
00426 
00427 #define PUSH(context,stack,value)                                               \
00428     (((stack).top != (stack).end                                                \
00429       || yaml_stack_extend((void **)&(stack).start,                             \
00430               (void **)&(stack).top, (void **)&(stack).end)) ?                  \
00431         (*((stack).top++) = value,                                              \
00432          1) :                                                                   \
00433         ((context)->error = YAML_MEMORY_ERROR,                                  \
00434          0))
00435 
00436 #define POP(context,stack)                                                      \
00437     (*(--(stack).top))
00438 
00439 #define QUEUE_INIT(context,queue,size)                                          \
00440     (((queue).start = yaml_malloc((size)*sizeof(*(queue).start))) ?             \
00441         ((queue).head = (queue).tail = (queue).start,                           \
00442          (queue).end = (queue).start+(size),                                    \
00443          1) :                                                                   \
00444         ((context)->error = YAML_MEMORY_ERROR,                                  \
00445          0))
00446 
00447 #define QUEUE_DEL(context,queue)                                                \
00448     (yaml_free((queue).start),                                                  \
00449      (queue).start = (queue).head = (queue).tail = (queue).end = 0)
00450 
00451 #define QUEUE_EMPTY(context,queue)                                              \
00452     ((queue).head == (queue).tail)
00453 
00454 #define ENQUEUE(context,queue,value)                                            \
00455     (((queue).tail != (queue).end                                               \
00456       || yaml_queue_extend((void **)&(queue).start, (void **)&(queue).head,     \
00457             (void **)&(queue).tail, (void **)&(queue).end)) ?                   \
00458         (*((queue).tail++) = value,                                             \
00459          1) :                                                                   \
00460         ((context)->error = YAML_MEMORY_ERROR,                                  \
00461          0))
00462 
00463 #define DEQUEUE(context,queue)                                                  \
00464     (*((queue).head++))
00465 
00466 #define QUEUE_INSERT(context,queue,index,value)                                 \
00467     (((queue).tail != (queue).end                                               \
00468       || yaml_queue_extend((void **)&(queue).start, (void **)&(queue).head,     \
00469             (void **)&(queue).tail, (void **)&(queue).end)) ?                   \
00470         (memmove((queue).head+(index)+1,(queue).head+(index),                   \
00471             ((queue).tail-(queue).head-(index))*sizeof(*(queue).start)),        \
00472          *((queue).head+(index)) = value,                                       \
00473          (queue).tail++,                                                        \
00474          1) :                                                                   \
00475         ((context)->error = YAML_MEMORY_ERROR,                                  \
00476          0))
00477 
00478 /*
00479  * Token initializers.
00480  */
00481 
00482 #define TOKEN_INIT(token,token_type,token_start_mark,token_end_mark)            \
00483     (memset(&(token), 0, sizeof(yaml_token_t)),                                 \
00484      (token).type = (token_type),                                               \
00485      (token).start_mark = (token_start_mark),                                   \
00486      (token).end_mark = (token_end_mark))
00487 
00488 #define STREAM_START_TOKEN_INIT(token,token_encoding,start_mark,end_mark)       \
00489     (TOKEN_INIT((token),YAML_STREAM_START_TOKEN,(start_mark),(end_mark)),       \
00490      (token).data.stream_start.encoding = (token_encoding))
00491 
00492 #define STREAM_END_TOKEN_INIT(token,start_mark,end_mark)                        \
00493     (TOKEN_INIT((token),YAML_STREAM_END_TOKEN,(start_mark),(end_mark)))
00494 
00495 #define ALIAS_TOKEN_INIT(token,token_value,start_mark,end_mark)                 \
00496     (TOKEN_INIT((token),YAML_ALIAS_TOKEN,(start_mark),(end_mark)),              \
00497      (token).data.alias.value = (token_value))
00498 
00499 #define ANCHOR_TOKEN_INIT(token,token_value,start_mark,end_mark)                \
00500     (TOKEN_INIT((token),YAML_ANCHOR_TOKEN,(start_mark),(end_mark)),             \
00501      (token).data.anchor.value = (token_value))
00502 
00503 #define TAG_TOKEN_INIT(token,token_handle,token_suffix,start_mark,end_mark)     \
00504     (TOKEN_INIT((token),YAML_TAG_TOKEN,(start_mark),(end_mark)),                \
00505      (token).data.tag.handle = (token_handle),                                  \
00506      (token).data.tag.suffix = (token_suffix))
00507 
00508 #define SCALAR_TOKEN_INIT(token,token_value,token_length,token_style,start_mark,end_mark)   \
00509     (TOKEN_INIT((token),YAML_SCALAR_TOKEN,(start_mark),(end_mark)),             \
00510      (token).data.scalar.value = (token_value),                                 \
00511      (token).data.scalar.length = (token_length),                               \
00512      (token).data.scalar.style = (token_style))
00513 
00514 #define VERSION_DIRECTIVE_TOKEN_INIT(token,token_major,token_minor,start_mark,end_mark)     \
00515     (TOKEN_INIT((token),YAML_VERSION_DIRECTIVE_TOKEN,(start_mark),(end_mark)),  \
00516      (token).data.version_directive.major = (token_major),                      \
00517      (token).data.version_directive.minor = (token_minor))
00518 
00519 #define TAG_DIRECTIVE_TOKEN_INIT(token,token_handle,token_prefix,start_mark,end_mark)       \
00520     (TOKEN_INIT((token),YAML_TAG_DIRECTIVE_TOKEN,(start_mark),(end_mark)),      \
00521      (token).data.tag_directive.handle = (token_handle),                        \
00522      (token).data.tag_directive.prefix = (token_prefix))
00523 
00524 /*
00525  * Event initializers.
00526  */
00527 
00528 #define EVENT_INIT(event,event_type,event_start_mark,event_end_mark)            \
00529     (memset(&(event), 0, sizeof(yaml_event_t)),                                 \
00530      (event).type = (event_type),                                               \
00531      (event).start_mark = (event_start_mark),                                   \
00532      (event).end_mark = (event_end_mark))
00533 
00534 #define STREAM_START_EVENT_INIT(event,event_encoding,start_mark,end_mark)       \
00535     (EVENT_INIT((event),YAML_STREAM_START_EVENT,(start_mark),(end_mark)),       \
00536      (event).data.stream_start.encoding = (event_encoding))
00537 
00538 #define STREAM_END_EVENT_INIT(event,start_mark,end_mark)                        \
00539     (EVENT_INIT((event),YAML_STREAM_END_EVENT,(start_mark),(end_mark)))
00540 
00541 #define DOCUMENT_START_EVENT_INIT(event,event_version_directive,                \
00542         event_tag_directives_start,event_tag_directives_end,event_implicit,start_mark,end_mark) \
00543     (EVENT_INIT((event),YAML_DOCUMENT_START_EVENT,(start_mark),(end_mark)),     \
00544      (event).data.document_start.version_directive = (event_version_directive), \
00545      (event).data.document_start.tag_directives.start = (event_tag_directives_start),   \
00546      (event).data.document_start.tag_directives.end = (event_tag_directives_end),   \
00547      (event).data.document_start.implicit = (event_implicit))
00548 
00549 #define DOCUMENT_END_EVENT_INIT(event,event_implicit,start_mark,end_mark)       \
00550     (EVENT_INIT((event),YAML_DOCUMENT_END_EVENT,(start_mark),(end_mark)),       \
00551      (event).data.document_end.implicit = (event_implicit))
00552 
00553 #define ALIAS_EVENT_INIT(event,event_anchor,start_mark,end_mark)                \
00554     (EVENT_INIT((event),YAML_ALIAS_EVENT,(start_mark),(end_mark)),              \
00555      (event).data.alias.anchor = (event_anchor))
00556 
00557 #define SCALAR_EVENT_INIT(event,event_anchor,event_tag,event_value,event_length,    \
00558         event_plain_implicit, event_quoted_implicit,event_style,start_mark,end_mark)    \
00559     (EVENT_INIT((event),YAML_SCALAR_EVENT,(start_mark),(end_mark)),             \
00560      (event).data.scalar.anchor = (event_anchor),                               \
00561      (event).data.scalar.tag = (event_tag),                                     \
00562      (event).data.scalar.value = (event_value),                                 \
00563      (event).data.scalar.length = (event_length),                               \
00564      (event).data.scalar.plain_implicit = (event_plain_implicit),               \
00565      (event).data.scalar.quoted_implicit = (event_quoted_implicit),             \
00566      (event).data.scalar.style = (event_style))
00567 
00568 #define SEQUENCE_START_EVENT_INIT(event,event_anchor,event_tag,                 \
00569         event_implicit,event_style,start_mark,end_mark)                         \
00570     (EVENT_INIT((event),YAML_SEQUENCE_START_EVENT,(start_mark),(end_mark)),     \
00571      (event).data.sequence_start.anchor = (event_anchor),                       \
00572      (event).data.sequence_start.tag = (event_tag),                             \
00573      (event).data.sequence_start.implicit = (event_implicit),                   \
00574      (event).data.sequence_start.style = (event_style))
00575 
00576 #define SEQUENCE_END_EVENT_INIT(event,start_mark,end_mark)                      \
00577     (EVENT_INIT((event),YAML_SEQUENCE_END_EVENT,(start_mark),(end_mark)))
00578 
00579 #define MAPPING_START_EVENT_INIT(event,event_anchor,event_tag,                  \
00580         event_implicit,event_style,start_mark,end_mark)                         \
00581     (EVENT_INIT((event),YAML_MAPPING_START_EVENT,(start_mark),(end_mark)),      \
00582      (event).data.mapping_start.anchor = (event_anchor),                        \
00583      (event).data.mapping_start.tag = (event_tag),                              \
00584      (event).data.mapping_start.implicit = (event_implicit),                    \
00585      (event).data.mapping_start.style = (event_style))
00586 
00587 #define MAPPING_END_EVENT_INIT(event,start_mark,end_mark)                       \
00588     (EVENT_INIT((event),YAML_MAPPING_END_EVENT,(start_mark),(end_mark)))
00589 
00590 /*
00591  * Document initializer.
00592  */
00593 
00594 #define DOCUMENT_INIT(document,document_nodes_start,document_nodes_end,         \
00595         document_version_directive,document_tag_directives_start,               \
00596         document_tag_directives_end,document_start_implicit,                    \
00597         document_end_implicit,document_start_mark,document_end_mark)            \
00598     (memset(&(document), 0, sizeof(yaml_document_t)),                           \
00599      (document).nodes.start = (document_nodes_start),                           \
00600      (document).nodes.end = (document_nodes_end),                               \
00601      (document).nodes.top = (document_nodes_start),                             \
00602      (document).version_directive = (document_version_directive),               \
00603      (document).tag_directives.start = (document_tag_directives_start),         \
00604      (document).tag_directives.end = (document_tag_directives_end),             \
00605      (document).start_implicit = (document_start_implicit),                     \
00606      (document).end_implicit = (document_end_implicit),                         \
00607      (document).start_mark = (document_start_mark),                             \
00608      (document).end_mark = (document_end_mark))
00609 
00610 /*
00611  * Node initializers.
00612  */
00613 
00614 #define NODE_INIT(node,node_type,node_tag,node_start_mark,node_end_mark)        \
00615     (memset(&(node), 0, sizeof(yaml_node_t)),                                   \
00616      (node).type = (node_type),                                                 \
00617      (node).tag = (node_tag),                                                   \
00618      (node).start_mark = (node_start_mark),                                     \
00619      (node).end_mark = (node_end_mark))
00620 
00621 #define SCALAR_NODE_INIT(node,node_tag,node_value,node_length,                  \
00622         node_style,start_mark,end_mark)                                         \
00623     (NODE_INIT((node),YAML_SCALAR_NODE,(node_tag),(start_mark),(end_mark)),     \
00624      (node).data.scalar.value = (node_value),                                   \
00625      (node).data.scalar.length = (node_length),                                 \
00626      (node).data.scalar.style = (node_style))
00627 
00628 #define SEQUENCE_NODE_INIT(node,node_tag,node_items_start,node_items_end,       \
00629         node_style,start_mark,end_mark)                                         \
00630     (NODE_INIT((node),YAML_SEQUENCE_NODE,(node_tag),(start_mark),(end_mark)),   \
00631      (node).data.sequence.items.start = (node_items_start),                     \
00632      (node).data.sequence.items.end = (node_items_end),                         \
00633      (node).data.sequence.items.top = (node_items_start),                       \
00634      (node).data.sequence.style = (node_style))
00635 
00636 #define MAPPING_NODE_INIT(node,node_tag,node_pairs_start,node_pairs_end,        \
00637         node_style,start_mark,end_mark)                                         \
00638     (NODE_INIT((node),YAML_MAPPING_NODE,(node_tag),(start_mark),(end_mark)),    \
00639      (node).data.mapping.pairs.start = (node_pairs_start),                      \
00640      (node).data.mapping.pairs.end = (node_pairs_end),                          \
00641      (node).data.mapping.pairs.top = (node_pairs_start),                        \
00642      (node).data.mapping.style = (node_style))
00643 
00644