contrib/libyaml/src/yaml_private.h

   1
   2 #if HAVE_CONFIG_H
   3 #include <config.h>
   4 #endif
   5
   6 #include <yaml.h>
   7
   8 #include <assert.h>
   9 #include <limits.h>
  10
  11 /*
  12  * Memory management.
  13  */
  14
  15 YAML_DECLARE(void *)
  16 yaml_malloc(size_t size);
  17
  18 YAML_DECLARE(void *)
  19 yaml_realloc(void *ptr, size_t size);
  20
  21 YAML_DECLARE(void)
  22 yaml_free(void *ptr);
  23
  24 YAML_DECLARE(yaml_char_t *)
  25 yaml_strdup(const yaml_char_t *);
  26
  27 /*
  28  * Reader: Ensure that the buffer contains at least `length` characters.
  29  */
  30
  31 YAML_DECLARE(int)
  32 yaml_parser_update_buffer(yaml_parser_t *parser, size_t length);
  33
  34 /*
  35  * Scanner: Ensure that the token stack contains at least one token ready.
  36  */
  37
  38 YAML_DECLARE(int)
  39 yaml_parser_fetch_more_tokens(yaml_parser_t *parser);
  40
  41 /*
  42  * The size of the input raw buffer.
  43  */
  44
  45 #define INPUT_RAW_BUFFER_SIZE   16384
  46
  47 /*
  48  * The size of the input buffer.
  49  *
  50  * It should be possible to decode the whole raw buffer.
  51  */
  52
  53 #define INPUT_BUFFER_SIZE       (INPUT_RAW_BUFFER_SIZE*3)
  54
  55 /*
  56  * The size of the output buffer.
  57  */
  58
  59 #define OUTPUT_BUFFER_SIZE      16384
  60
  61 /*
  62  * The size of the output raw buffer.
  63  *
  64  * It should be possible to encode the whole output buffer.
  65  */
  66
  67 #define OUTPUT_RAW_BUFFER_SIZE  (OUTPUT_BUFFER_SIZE*2+2)
  68
  69 /*
  70  * The size of other stacks and queues.
  71  */
  72
  73 #define INITIAL_STACK_SIZE  16
  74 #define INITIAL_QUEUE_SIZE  16
  75 #define INITIAL_STRING_SIZE 16
  76
  77 /*
  78  * Buffer management.
  79  */
  80
  81 #define BUFFER_INIT(context,buffer,size)                                        \
  82     (((buffer).start = yaml_malloc(size)) ?                                     \
  83         ((buffer).last = (buffer).pointer = (buffer).start,                     \
  84          (buffer).end = (buffer).start+(size),                                  \
  85          1) :                                                                   \
  86         ((context)->error = YAML_MEMORY_ERROR,                                  \
  87          0))
  88
  89 #define BUFFER_DEL(context,buffer)                                              \
  90     (yaml_free((buffer).start),                                                 \
  91      (buffer).start = (buffer).pointer = (buffer).end = 0)
  92
  93 /*
  94  * String management.
  95  */
  96
  97 typedef struct {
  98     yaml_char_t *start;
  99     yaml_char_t *end;
 100     yaml_char_t *pointer;
 101 } yaml_string_t;
 102
 103 YAML_DECLARE(int)
 104 yaml_string_extend(yaml_char_t **start,
 105         yaml_char_t **pointer, yaml_char_t **end);
 106
 107 YAML_DECLARE(int)
 108 yaml_string_join(
 109         yaml_char_t **a_start, yaml_char_t **a_pointer, yaml_char_t **a_end,
 110         yaml_char_t **b_start, yaml_char_t **b_pointer, yaml_char_t **b_end);
 111
 112 #define NULL_STRING { NULL, NULL, NULL }
 113
 114 #define STRING(string,length)   { (string), (string)+(length), (string) }
 115
 116 #define STRING_ASSIGN(value,string,length)                                      \
 117     ((value).start = (string),                                                  \
 118      (value).end = (string)+(length),                                           \
 119      (value).pointer = (string))
 120
 121 #define STRING_INIT(context,string,size)                                        \
 122     (((string).start = yaml_malloc(size)) ?                                     \
 123         ((string).pointer = (string).start,                                     \
 124          (string).end = (string).start+(size),                                  \
 125          memset((string).start, 0, (size)),                                     \
 126          1) :                                                                   \
 127         ((context)->error = YAML_MEMORY_ERROR,                                  \
 128          0))
 129
 130 #define STRING_DEL(context,string)                                              \
 131     (yaml_free((string).start),                                                 \
 132      (string).start = (string).pointer = (string).end = 0)
 133
 134 #define STRING_EXTEND(context,string)                                           \
 135     (((string).pointer+5 < (string).end)                                        \
 136         || yaml_string_extend(&(string).start,                                  \
 137             &(string).pointer, &(string).end))
 138
 139 #define CLEAR(context,string)                                                   \
 140     ((string).pointer = (string).start,                                         \
 141      memset((string).start, 0, (string).end-(string).start))
 142
 143 #define JOIN(context,string_a,string_b)                                         \
 144     ((yaml_string_join(&(string_a).start, &(string_a).pointer,                  \
 145                        &(string_a).end, &(string_b).start,                      \
 146                        &(string_b).pointer, &(string_b).end)) ?                 \
 147         ((string_b).pointer = (string_b).start,                                 \
 148          1) :                                                                   \
 149         ((context)->error = YAML_MEMORY_ERROR,                                  \
 150          0))
 151
 152 /*
 153  * String check operations.
 154  */
 155
 156 /*
 157  * Check the octet at the specified position.
 158  */
 159
 160 #define CHECK_AT(string,octet,offset)                                           \
 161     ((string).pointer[offset] == (yaml_char_t)(octet))
 162
 163 /*
 164  * Check the current octet in the buffer.
 165  */
 166
 167 #define CHECK(string,octet) CHECK_AT((string),(octet),0)
 168
 169 /*
 170  * Check if the character at the specified position is an alphabetical
 171  * character, a digit, '_', or '-'.
 172  */
 173
 174 #define IS_ALPHA_AT(string,offset)                                              \
 175      (((string).pointer[offset] >= (yaml_char_t) '0' &&                         \
 176        (string).pointer[offset] <= (yaml_char_t) '9') ||                        \
 177       ((string).pointer[offset] >= (yaml_char_t) 'A' &&                         \
 178        (string).pointer[offset] <= (yaml_char_t) 'Z') ||                        \
 179       ((string).pointer[offset] >= (yaml_char_t) 'a' &&                         \
 180        (string).pointer[offset] <= (yaml_char_t) 'z') ||                        \
 181       (string).pointer[offset] == '_' ||                                        \
 182       (string).pointer[offset] == '-')
 183
 184 #define IS_ALPHA(string)    IS_ALPHA_AT((string),0)
 185
 186 /*
 187  * Check if the character at the specified position is a digit.
 188  */
 189
 190 #define IS_DIGIT_AT(string,offset)                                              \
 191      (((string).pointer[offset] >= (yaml_char_t) '0' &&                         \
 192        (string).pointer[offset] <= (yaml_char_t) '9'))
 193
 194 #define IS_DIGIT(string)    IS_DIGIT_AT((string),0)
 195
 196 /*
 197  * Get the value of a digit.
 198  */
 199
 200 #define AS_DIGIT_AT(string,offset)                                              \
 201      ((string).pointer[offset] - (yaml_char_t) '0')
 202
 203 #define AS_DIGIT(string)    AS_DIGIT_AT((string),0)
 204
 205 /*
 206  * Check if the character at the specified position is a hex-digit.
 207  */
 208
 209 #define IS_HEX_AT(string,offset)                                                \
 210      (((string).pointer[offset] >= (yaml_char_t) '0' &&                         \
 211        (string).pointer[offset] <= (yaml_char_t) '9') ||                        \
 212       ((string).pointer[offset] >= (yaml_char_t) 'A' &&                         \
 213        (string).pointer[offset] <= (yaml_char_t) 'F') ||                        \
 214       ((string).pointer[offset] >= (yaml_char_t) 'a' &&                         \
 215        (string).pointer[offset] <= (yaml_char_t) 'f'))
 216
 217 #define IS_HEX(string)    IS_HEX_AT((string),0)
 218
 219 /*
 220  * Get the value of a hex-digit.
 221  */
 222
 223 #define AS_HEX_AT(string,offset)                                                \
 224       (((string).pointer[offset] >= (yaml_char_t) 'A' &&                        \
 225         (string).pointer[offset] <= (yaml_char_t) 'F') ?                        \
 226        ((string).pointer[offset] - (yaml_char_t) 'A' + 10) :                    \
 227        ((string).pointer[offset] >= (yaml_char_t) 'a' &&                        \
 228         (string).pointer[offset] <= (yaml_char_t) 'f') ?                        \
 229        ((string).pointer[offset] - (yaml_char_t) 'a' + 10) :                    \
 230        ((string).pointer[offset] - (yaml_char_t) '0'))
 231
 232 #define AS_HEX(string)  AS_HEX_AT((string),0)
 233
 234 /*
 235  * Check if the character is ASCII.
 236  */
 237
 238 #define IS_ASCII_AT(string,offset)                                              \
 239     ((string).pointer[offset] <= (yaml_char_t) '\x7F')
 240
 241 #define IS_ASCII(string)    IS_ASCII_AT((string),0)
 242
 243 /*
 244  * Check if the character can be printed unescaped.
 245  */
 246
 247 #define IS_PRINTABLE_AT(string,offset)                                          \
 248     (((string).pointer[offset] == 0x0A)         /* . == #x0A */                 \
 249      || ((string).pointer[offset] >= 0x20       /* #x20 <= . <= #x7E */         \
 250          && (string).pointer[offset] <= 0x7E)                                   \
 251      || ((string).pointer[offset] == 0xC2       /* #0xA0 <= . <= #xD7FF */      \
 252          && (string).pointer[offset+1] >= 0xA0)                                 \
 253      || ((string).pointer[offset] > 0xC2                                        \
 254          && (string).pointer[offset] < 0xED)                                    \
 255      || ((string).pointer[offset] == 0xED                                       \
 256          && (string).pointer[offset+1] < 0xA0)                                  \
 257      || ((string).pointer[offset] == 0xEE)                                      \
 258      || ((string).pointer[offset] == 0xEF      /* #xE000 <= . <= #xFFFD */      \
 259          && !((string).pointer[offset+1] == 0xBB        /* && . != #xFEFF */    \
 260              && (string).pointer[offset+2] == 0xBF)                             \
 261          && !((string).pointer[offset+1] == 0xBF                                \
 262              && ((string).pointer[offset+2] == 0xBE                             \
 263                  || (string).pointer[offset+2] == 0xBF))))
 264
 265 #define IS_PRINTABLE(string)    IS_PRINTABLE_AT((string),0)
 266
 267 /*
 268  * Check if the character at the specified position is NUL.
 269  */
 270
 271 #define IS_Z_AT(string,offset)    CHECK_AT((string),'\0',(offset))
 272
 273 #define IS_Z(string)    IS_Z_AT((string),0)
 274
 275 /*
 276  * Check if the character at the specified position is BOM.
 277  */
 278
 279 #define IS_BOM_AT(string,offset)                                                \
 280      (CHECK_AT((string),'\xEF',(offset))                                        \
 281       && CHECK_AT((string),'\xBB',(offset)+1)                                   \
 282       && CHECK_AT((string),'\xBF',(offset)+2))  /* BOM (#xFEFF) */
 283
 284 #define IS_BOM(string)  IS_BOM_AT(string,0)
 285
 286 /*
 287  * Check if the character at the specified position is space.
 288  */
 289
 290 #define IS_SPACE_AT(string,offset)  CHECK_AT((string),' ',(offset))
 291
 292 #define IS_SPACE(string)    IS_SPACE_AT((string),0)
 293
 294 /*
 295  * Check if the character at the specified position is tab.
 296  */
 297
 298 #define IS_TAB_AT(string,offset)    CHECK_AT((string),'\t',(offset))
 299
 300 #define IS_TAB(string)  IS_TAB_AT((string),0)
 301
 302 /*
 303  * Check if the character at the specified position is blank (space or tab).
 304  */
 305
 306 #define IS_BLANK_AT(string,offset)                                              \
 307     (IS_SPACE_AT((string),(offset)) || IS_TAB_AT((string),(offset)))
 308
 309 #define IS_BLANK(string)    IS_BLANK_AT((string),0)
 310
 311 /*
 312  * Check if the character at the specified position is a line break.
 313  */
 314
 315 #define IS_BREAK_AT(string,offset)                                              \
 316     (CHECK_AT((string),'\r',(offset))               /* CR (#xD)*/               \
 317      || CHECK_AT((string),'\n',(offset))            /* LF (#xA) */              \
 318      || (CHECK_AT((string),'\xC2',(offset))                                     \
 319          && CHECK_AT((string),'\x85',(offset)+1))   /* NEL (#x85) */            \
 320      || (CHECK_AT((string),'\xE2',(offset))                                     \
 321          && CHECK_AT((string),'\x80',(offset)+1)                                \
 322          && CHECK_AT((string),'\xA8',(offset)+2))   /* LS (#x2028) */           \
 323      || (CHECK_AT((string),'\xE2',(offset))                                     \
 324          && CHECK_AT((string),'\x80',(offset)+1)                                \
 325          && CHECK_AT((string),'\xA9',(offset)+2)))  /* PS (#x2029) */
 326
 327 #define IS_BREAK(string)    IS_BREAK_AT((string),0)
 328
 329 #define IS_CRLF_AT(string,offset)                                               \
 330      (CHECK_AT((string),'\r',(offset)) && CHECK_AT((string),'\n',(offset)+1))
 331
 332 #define IS_CRLF(string) IS_CRLF_AT((string),0)
 333
 334 /*
 335  * Check if the character is a line break or NUL.
 336  */
 337
 338 #define IS_BREAKZ_AT(string,offset)                                             \
 339     (IS_BREAK_AT((string),(offset)) || IS_Z_AT((string),(offset)))
 340
 341 #define IS_BREAKZ(string)   IS_BREAKZ_AT((string),0)
 342
 343 /*
 344  * Check if the character is a line break, space, or NUL.
 345  */
 346
 347 #define IS_SPACEZ_AT(string,offset)                                             \
 348     (IS_SPACE_AT((string),(offset)) || IS_BREAKZ_AT((string),(offset)))
 349
 350 #define IS_SPACEZ(string)   IS_SPACEZ_AT((string),0)
 351
 352 /*
 353  * Check if the character is a line break, space, tab, or NUL.
 354  */
 355
 356 #define IS_BLANKZ_AT(string,offset)                                             \
 357     (IS_BLANK_AT((string),(offset)) || IS_BREAKZ_AT((string),(offset)))
 358
 359 #define IS_BLANKZ(string)   IS_BLANKZ_AT((string),0)
 360
 361 /*
 362  * Determine the width of the character.
 363  */
 364
 365 #define WIDTH_AT(string,offset)                                                 \
 366      (((string).pointer[offset] & 0x80) == 0x00 ? 1 :                           \
 367       ((string).pointer[offset] & 0xE0) == 0xC0 ? 2 :                           \
 368       ((string).pointer[offset] & 0xF0) == 0xE0 ? 3 :                           \
 369       ((string).pointer[offset] & 0xF8) == 0xF0 ? 4 : 0)
 370
 371 #define WIDTH(string)   WIDTH_AT((string),0)
 372
 373 /*
 374  * Move the string pointer to the next character.
 375  */
 376
 377 #define MOVE(string)    ((string).pointer += WIDTH((string)))
 378
 379 /*
 380  * Copy a character and move the pointers of both strings.
 381  */
 382
 383 #define COPY(string_a,string_b)                                                 \
 384     ((*(string_b).pointer & 0x80) == 0x00 ?                                     \
 385      (*((string_a).pointer++) = *((string_b).pointer++)) :                      \
 386      (*(string_b).pointer & 0xE0) == 0xC0 ?                                     \
 387      (*((string_a).pointer++) = *((string_b).pointer++),                        \
 388       *((string_a).pointer++) = *((string_b).pointer++)) :                      \
 389      (*(string_b).pointer & 0xF0) == 0xE0 ?                                     \
 390      (*((string_a).pointer++) = *((string_b).pointer++),                        \
 391       *((string_a).pointer++) = *((string_b).pointer++),                        \
 392       *((string_a).pointer++) = *((string_b).pointer++)) :                      \
 393      (*(string_b).pointer & 0xF8) == 0xF0 ?                                     \
 394      (*((string_a).pointer++) = *((string_b).pointer++),                        \
 395       *((string_a).pointer++) = *((string_b).pointer++),                        \
 396       *((string_a).pointer++) = *((string_b).pointer++),                        \
 397       *((string_a).pointer++) = *((string_b).pointer++)) : 0)
 398
 399 /*
 400  * Stack and queue management.
 401  */
 402
 403 YAML_DECLARE(int)
 404 yaml_stack_extend(void **start, void **top, void **end);
 405
 406 YAML_DECLARE(int)
 407 yaml_queue_extend(void **start, void **head, void **tail, void **end);
 408
 409 #define STACK_INIT(context,stack,size)                                          \
 410     (((stack).start = yaml_malloc((size)*sizeof(*(stack).start))) ?             \
 411         ((stack).top = (stack).start,                                           \
 412          (stack).end = (stack).start+(size),                                    \
 413          1) :                                                                   \
 414         ((context)->error = YAML_MEMORY_ERROR,                                  \
 415          0))
 416
 417 #define STACK_DEL(context,stack)                                                \
 418     (yaml_free((stack).start),                                                  \
 419      (stack).start = (stack).top = (stack).end = 0)
 420
 421 #define STACK_EMPTY(context,stack)                                              \
 422     ((stack).start == (stack).top)
 423
 424 #define PUSH(context,stack,value)                                               \
 425     (((stack).top != (stack).end                                                \
 426       || yaml_stack_extend((void **)&(stack).start,                             \
 427               (void **)&(stack).top, (void **)&(stack).end)) ?                  \
 428         (*((stack).top++) = value,                                              \
 429          1) :                                                                   \
 430         ((context)->error = YAML_MEMORY_ERROR,                                  \
 431          0))
 432
 433 #define POP(context,stack)                                                      \
 434     (*(--(stack).top))
 435
 436 #define QUEUE_INIT(context,queue,size)                                          \
 437     (((queue).start = yaml_malloc((size)*sizeof(*(queue).start))) ?             \
 438         ((queue).head = (queue).tail = (queue).start,                           \
 439          (queue).end = (queue).start+(size),                                    \
 440          1) :                                                                   \
 441         ((context)->error = YAML_MEMORY_ERROR,                                  \
 442          0))
 443
 444 #define QUEUE_DEL(context,queue)                                                \
 445     (yaml_free((queue).start),                                                  \
 446      (queue).start = (queue).head = (queue).tail = (queue).end = 0)
 447
 448 #define QUEUE_EMPTY(context,queue)                                              \
 449     ((queue).head == (queue).tail)
 450
 451 #define ENQUEUE(context,queue,value)                                            \
 452     (((queue).tail != (queue).end                                               \
 453       || yaml_queue_extend((void **)&(queue).start, (void **)&(queue).head,     \
 454             (void **)&(queue).tail, (void **)&(queue).end)) ?                   \
 455         (*((queue).tail++) = value,                                             \
 456          1) :                                                                   \
 457         ((context)->error = YAML_MEMORY_ERROR,                                  \
 458          0))
 459
 460 #define DEQUEUE(context,queue)                                                  \
 461     (*((queue).head++))
 462
 463 #define QUEUE_INSERT(context,queue,index,value)                                 \
 464     (((queue).tail != (queue).end                                               \
 465       || yaml_queue_extend((void **)&(queue).start, (void **)&(queue).head,     \
 466             (void **)&(queue).tail, (void **)&(queue).end)) ?                   \
 467         (memmove((queue).head+(index)+1,(queue).head+(index),                   \
 468             ((queue).tail-(queue).head-(index))*sizeof(*(queue).start)),        \
 469          *((queue).head+(index)) = value,                                       \
 470          (queue).tail++,                                                        \
 471          1) :                                                                   \
 472         ((context)->error = YAML_MEMORY_ERROR,                                  \
 473          0))
 474
 475 /*
 476  * Token initializers.
 477  */
 478
 479 #define TOKEN_INIT(token,token_type,token_start_mark,token_end_mark)            \
 480     (memset(&(token), 0, sizeof(yaml_token_t)),                                 \
 481      (token).type = (token_type),                                               \
 482      (token).start_mark = (token_start_mark),                                   \
 483      (token).end_mark = (token_end_mark))
 484
 485 #define STREAM_START_TOKEN_INIT(token,token_encoding,start_mark,end_mark)       \
 486     (TOKEN_INIT((token),YAML_STREAM_START_TOKEN,(start_mark),(end_mark)),       \
 487      (token).data.stream_start.encoding = (token_encoding))
 488
 489 #define STREAM_END_TOKEN_INIT(token,start_mark,end_mark)                        \
 490     (TOKEN_INIT((token),YAML_STREAM_END_TOKEN,(start_mark),(end_mark)))
 491
 492 #define ALIAS_TOKEN_INIT(token,token_value,start_mark,end_mark)                 \
 493     (TOKEN_INIT((token),YAML_ALIAS_TOKEN,(start_mark),(end_mark)),              \
 494      (token).data.alias.value = (token_value))
 495
 496 #define ANCHOR_TOKEN_INIT(token,token_value,start_mark,end_mark)                \
 497     (TOKEN_INIT((token),YAML_ANCHOR_TOKEN,(start_mark),(end_mark)),             \
 498      (token).data.anchor.value = (token_value))
 499
 500 #define TAG_TOKEN_INIT(token,token_handle,token_suffix,start_mark,end_mark)     \
 501     (TOKEN_INIT((token),YAML_TAG_TOKEN,(start_mark),(end_mark)),                \
 502      (token).data.tag.handle = (token_handle),                                  \
 503      (token).data.tag.suffix = (token_suffix))
 504
 505 #define SCALAR_TOKEN_INIT(token,token_value,token_length,token_style,start_mark,end_mark)   \
 506     (TOKEN_INIT((token),YAML_SCALAR_TOKEN,(start_mark),(end_mark)),             \
 507      (token).data.scalar.value = (token_value),                                 \
 508      (token).data.scalar.length = (token_length),                               \
 509      (token).data.scalar.style = (token_style))
 510
 511 #define VERSION_DIRECTIVE_TOKEN_INIT(token,token_major,token_minor,start_mark,end_mark)     \
 512     (TOKEN_INIT((token),YAML_VERSION_DIRECTIVE_TOKEN,(start_mark),(end_mark)),  \
 513      (token).data.version_directive.major = (token_major),                      \
 514      (token).data.version_directive.minor = (token_minor))
 515
 516 #define TAG_DIRECTIVE_TOKEN_INIT(token,token_handle,token_prefix,start_mark,end_mark)       \
 517     (TOKEN_INIT((token),YAML_TAG_DIRECTIVE_TOKEN,(start_mark),(end_mark)),      \
 518      (token).data.tag_directive.handle = (token_handle),                        \
 519      (token).data.tag_directive.prefix = (token_prefix))
 520
 521 /*
 522  * Event initializers.
 523  */
 524
 525 #define EVENT_INIT(event,event_type,event_start_mark,event_end_mark)            \
 526     (memset(&(event), 0, sizeof(yaml_event_t)),                                 \
 527      (event).type = (event_type),                                               \
 528      (event).start_mark = (event_start_mark),                                   \
 529      (event).end_mark = (event_end_mark))
 530
 531 #define STREAM_START_EVENT_INIT(event,event_encoding,start_mark,end_mark)       \
 532     (EVENT_INIT((event),YAML_STREAM_START_EVENT,(start_mark),(end_mark)),       \
 533      (event).data.stream_start.encoding = (event_encoding))
 534
 535 #define STREAM_END_EVENT_INIT(event,start_mark,end_mark)                        \
 536     (EVENT_INIT((event),YAML_STREAM_END_EVENT,(start_mark),(end_mark)))
 537
 538 #define DOCUMENT_START_EVENT_INIT(event,event_version_directive,                \
 539         event_tag_directives_start,event_tag_directives_end,event_implicit,start_mark,end_mark) \
 540     (EVENT_INIT((event),YAML_DOCUMENT_START_EVENT,(start_mark),(end_mark)),     \
 541      (event).data.document_start.version_directive = (event_version_directive), \
 542      (event).data.document_start.tag_directives.start = (event_tag_directives_start),   \
 543      (event).data.document_start.tag_directives.end = (event_tag_directives_end),   \
 544      (event).data.document_start.implicit = (event_implicit))
 545
 546 #define DOCUMENT_END_EVENT_INIT(event,event_implicit,start_mark,end_mark)       \
 547     (EVENT_INIT((event),YAML_DOCUMENT_END_EVENT,(start_mark),(end_mark)),       \
 548      (event).data.document_end.implicit = (event_implicit))
 549
 550 #define ALIAS_EVENT_INIT(event,event_anchor,start_mark,end_mark)                \
 551     (EVENT_INIT((event),YAML_ALIAS_EVENT,(start_mark),(end_mark)),              \
 552      (event).data.alias.anchor = (event_anchor))
 553
 554 #define SCALAR_EVENT_INIT(event,event_anchor,event_tag,event_value,event_length,    \
 555         event_plain_implicit, event_quoted_implicit,event_style,start_mark,end_mark)    \
 556     (EVENT_INIT((event),YAML_SCALAR_EVENT,(start_mark),(end_mark)),             \
 557      (event).data.scalar.anchor = (event_anchor),                               \
 558      (event).data.scalar.tag = (event_tag),                                     \
 559      (event).data.scalar.value = (event_value),                                 \
 560      (event).data.scalar.length = (event_length),                               \
 561      (event).data.scalar.plain_implicit = (event_plain_implicit),               \
 562      (event).data.scalar.quoted_implicit = (event_quoted_implicit),             \
 563      (event).data.scalar.style = (event_style))
 564
 565 #define SEQUENCE_START_EVENT_INIT(event,event_anchor,event_tag,                 \
 566         event_implicit,event_style,start_mark,end_mark)                         \
 567     (EVENT_INIT((event),YAML_SEQUENCE_START_EVENT,(start_mark),(end_mark)),     \
 568      (event).data.sequence_start.anchor = (event_anchor),                       \
 569      (event).data.sequence_start.tag = (event_tag),                             \
 570      (event).data.sequence_start.implicit = (event_implicit),                   \
 571      (event).data.sequence_start.style = (event_style))
 572
 573 #define SEQUENCE_END_EVENT_INIT(event,start_mark,end_mark)                      \
 574     (EVENT_INIT((event),YAML_SEQUENCE_END_EVENT,(start_mark),(end_mark)))
 575
 576 #define MAPPING_START_EVENT_INIT(event,event_anchor,event_tag,                  \
 577         event_implicit,event_style,start_mark,end_mark)                         \
 578     (EVENT_INIT((event),YAML_MAPPING_START_EVENT,(start_mark),(end_mark)),      \
 579      (event).data.mapping_start.anchor = (event_anchor),                        \
 580      (event).data.mapping_start.tag = (event_tag),                              \
 581      (event).data.mapping_start.implicit = (event_implicit),                    \
 582      (event).data.mapping_start.style = (event_style))
 583
 584 #define MAPPING_END_EVENT_INIT(event,start_mark,end_mark)                       \
 585     (EVENT_INIT((event),YAML_MAPPING_END_EVENT,(start_mark),(end_mark)))
 586
 587 /*
 588  * Document initializer.
 589  */
 590
 591 #define DOCUMENT_INIT(document,document_nodes_start,document_nodes_end,         \
 592         document_version_directive,document_tag_directives_start,               \
 593         document_tag_directives_end,document_start_implicit,                    \
 594         document_end_implicit,document_start_mark,document_end_mark)            \
 595     (memset(&(document), 0, sizeof(yaml_document_t)),                           \
 596      (document).nodes.start = (document_nodes_start),                           \
 597      (document).nodes.end = (document_nodes_end),                               \
 598      (document).nodes.top = (document_nodes_start),                             \
 599      (document).version_directive = (document_version_directive),               \
 600      (document).tag_directives.start = (document_tag_directives_start),         \
 601      (document).tag_directives.end = (document_tag_directives_end),             \
 602      (document).start_implicit = (document_start_implicit),                     \
 603      (document).end_implicit = (document_end_implicit),                         \
 604      (document).start_mark = (document_start_mark),                             \
 605      (document).end_mark = (document_end_mark))
 606
 607 /*
 608  * Node initializers.
 609  */
 610
 611 #define NODE_INIT(node,node_type,node_tag,node_start_mark,node_end_mark)        \
 612     (memset(&(node), 0, sizeof(yaml_node_t)),                                   \
 613      (node).type = (node_type),                                                 \
 614      (node).tag = (node_tag),                                                   \
 615      (node).start_mark = (node_start_mark),                                     \
 616      (node).end_mark = (node_end_mark))
 617
 618 #define SCALAR_NODE_INIT(node,node_tag,node_value,node_length,                  \
 619         node_style,start_mark,end_mark)                                         \
 620     (NODE_INIT((node),YAML_SCALAR_NODE,(node_tag),(start_mark),(end_mark)),     \
 621      (node).data.scalar.value = (node_value),                                   \
 622      (node).data.scalar.length = (node_length),                                 \
 623      (node).data.scalar.style = (node_style))
 624
 625 #define SEQUENCE_NODE_INIT(node,node_tag,node_items_start,node_items_end,       \
 626         node_style,start_mark,end_mark)                                         \
 627     (NODE_INIT((node),YAML_SEQUENCE_NODE,(node_tag),(start_mark),(end_mark)),   \
 628      (node).data.sequence.items.start = (node_items_start),                     \
 629      (node).data.sequence.items.end = (node_items_end),                         \
 630      (node).data.sequence.items.top = (node_items_start),                       \
 631      (node).data.sequence.style = (node_style))
 632
 633 #define MAPPING_NODE_INIT(node,node_tag,node_pairs_start,node_pairs_end,        \
 634         node_style,start_mark,end_mark)                                         \
 635     (NODE_INIT((node),YAML_MAPPING_NODE,(node_tag),(start_mark),(end_mark)),    \
 636      (node).data.mapping.pairs.start = (node_pairs_start),                      \
 637      (node).data.mapping.pairs.end = (node_pairs_end),                          \
 638      (node).data.mapping.pairs.top = (node_pairs_start),                        \
 639      (node).data.mapping.style = (node_style))
 640