source: package_tags/libyaml/0.1.1-1~andersk1/tests/example-deconstructor.c @ 2728

Last change on this file since 2728 was 898, checked in by hartmans, 16 years ago

Add pyyaml and libyaml packages
backported from lenny.
There is discussion about how these should go in the repository; these are added in this form
in order to make forward progress.

File size: 43.0 KB
Line 
1
2#include <yaml.h>
3
4#include <stdlib.h>
5#include <stdio.h>
6
7int
8main(int argc, char *argv[])
9{
10    int help = 0;
11    int canonical = 0;
12    int unicode = 0;
13    int k;
14    int done = 0;
15
16    yaml_parser_t parser;
17    yaml_emitter_t emitter;
18    yaml_event_t input_event;
19    yaml_event_t output_event;
20
21    /* Clear the objects. */
22
23    memset(&parser, 0, sizeof(parser));
24    memset(&emitter, 0, sizeof(emitter));
25    memset(&input_event, 0, sizeof(input_event));
26    memset(&output_event, 0, sizeof(output_event));
27
28    /* Analyze command line options. */
29
30    for (k = 1; k < argc; k ++)
31    {
32        if (strcmp(argv[k], "-h") == 0
33                || strcmp(argv[k], "--help") == 0) {
34            help = 1;
35        }
36
37        else if (strcmp(argv[k], "-c") == 0
38                || strcmp(argv[k], "--canonical") == 0) {
39            canonical = 1;
40        }
41
42        else if (strcmp(argv[k], "-u") == 0
43                || strcmp(argv[k], "--unicode") == 0) {
44            unicode = 1;
45        }
46
47        else {
48            fprintf(stderr, "Unrecognized option: %s\n"
49                    "Try `%s --help` for more information.\n",
50                    argv[k], argv[0]);
51            return 1;
52        }
53    }
54
55    /* Display the help string. */
56
57    if (help)
58    {
59        printf("%s <input\n"
60                "or\n%s -h | --help\nDeconstruct a YAML stream\n\nOptions:\n"
61                "-h, --help\t\tdisplay this help and exit\n"
62                "-c, --canonical\t\toutput in the canonical YAML format\n"
63                "-u, --unicode\t\toutput unescaped non-ASCII characters\n",
64                argv[0], argv[0]);
65        return 0;
66    }
67
68    /* Initialize the parser and emitter objects. */
69
70    if (!yaml_parser_initialize(&parser)) {
71        fprintf(stderr, "Could not initialize the parser object\n");
72        return 1;
73    }
74
75    if (!yaml_emitter_initialize(&emitter)) {
76        yaml_parser_delete(&parser);
77        fprintf(stderr, "Could not inialize the emitter object\n");
78        return 1;
79    }
80
81    /* Set the parser parameters. */
82
83    yaml_parser_set_input_file(&parser, stdin);
84
85    /* Set the emitter parameters. */
86
87    yaml_emitter_set_output_file(&emitter, stdout);
88
89    yaml_emitter_set_canonical(&emitter, canonical);
90    yaml_emitter_set_unicode(&emitter, unicode);
91
92    /* Create and emit the STREAM-START event. */
93
94    if (!yaml_stream_start_event_initialize(&output_event, YAML_UTF8_ENCODING))
95        goto event_error;
96    if (!yaml_emitter_emit(&emitter, &output_event))
97        goto emitter_error;
98
99    /* Create and emit the DOCUMENT-START event. */
100
101    if (!yaml_document_start_event_initialize(&output_event,
102                NULL, NULL, NULL, 0))
103        goto event_error;
104    if (!yaml_emitter_emit(&emitter, &output_event))
105        goto emitter_error;
106
107    /* Create and emit the SEQUENCE-START event. */
108
109    if (!yaml_sequence_start_event_initialize(&output_event,
110                NULL, "tag:yaml.org,2002:seq", 1,
111                YAML_BLOCK_SEQUENCE_STYLE))
112        goto event_error;
113    if (!yaml_emitter_emit(&emitter, &output_event))
114        goto emitter_error;
115
116    /* Loop through the input events. */
117
118    while (!done)
119    {
120        /* Get the next event. */
121
122        if (!yaml_parser_parse(&parser, &input_event))
123            goto parser_error;
124
125        /* Check if this is the stream end. */
126
127        if (input_event.type == YAML_STREAM_END_EVENT) {
128            done = 1;
129        }
130
131        /* Create and emit a MAPPING-START event. */
132
133        if (!yaml_mapping_start_event_initialize(&output_event,
134                    NULL, "tag:yaml.org,2002:map", 1,
135                    YAML_BLOCK_MAPPING_STYLE))
136            goto event_error;
137        if (!yaml_emitter_emit(&emitter, &output_event))
138            goto emitter_error;
139
140        /* Analyze the event. */
141
142        switch (input_event.type)
143        {
144            case YAML_STREAM_START_EVENT:
145
146                /* Write 'type'. */
147
148                if (!yaml_scalar_event_initialize(&output_event,
149                            NULL, "tag:yaml.org,2002:str", "type", -1,
150                            1, 1, YAML_PLAIN_SCALAR_STYLE))
151                    goto event_error;
152                if (!yaml_emitter_emit(&emitter, &output_event))
153                    goto emitter_error;
154
155                /* Write 'STREAM-START'. */
156
157                if (!yaml_scalar_event_initialize(&output_event,
158                            NULL, "tag:yaml.org,2002:str", "STREAM-START", -1,
159                            1, 1, YAML_PLAIN_SCALAR_STYLE))
160                    goto event_error;
161                if (!yaml_emitter_emit(&emitter, &output_event))
162                    goto emitter_error;
163
164                /* Display encoding information. */
165
166                if (input_event.data.stream_start.encoding)
167                {
168                    yaml_encoding_t encoding
169                        = input_event.data.stream_start.encoding;
170
171                    /* Write 'encoding'. */
172
173                    if (!yaml_scalar_event_initialize(&output_event,
174                                NULL, "tag:yaml.org,2002:str", "encoding", -1,
175                                1, 1, YAML_PLAIN_SCALAR_STYLE))
176                        goto event_error;
177                    if (!yaml_emitter_emit(&emitter, &output_event))
178                        goto emitter_error;
179
180                    /* Write the stream encoding. */
181
182                    if (!yaml_scalar_event_initialize(&output_event,
183                                NULL, "tag:yaml.org,2002:str",
184                                (encoding == YAML_UTF8_ENCODING ? "utf-8" :
185                                 encoding == YAML_UTF16LE_ENCODING ? "utf-16-le" :
186                                 encoding == YAML_UTF16BE_ENCODING ? "utf-16-be" :
187                                 "unknown"), -1,
188                                1, 1, YAML_PLAIN_SCALAR_STYLE))
189                        goto event_error;
190                    if (!yaml_emitter_emit(&emitter, &output_event))
191                        goto emitter_error;
192                }
193
194                break;
195
196            case YAML_STREAM_END_EVENT:
197
198                /* Write 'type'. */
199
200                if (!yaml_scalar_event_initialize(&output_event,
201                            NULL, "tag:yaml.org,2002:str", "type", -1,
202                            1, 1, YAML_PLAIN_SCALAR_STYLE))
203                    goto event_error;
204                if (!yaml_emitter_emit(&emitter, &output_event))
205                    goto emitter_error;
206
207                /* Write 'STREAM-END'. */
208
209                if (!yaml_scalar_event_initialize(&output_event,
210                            NULL, "tag:yaml.org,2002:str", "STREAM-END", -1,
211                            1, 1, YAML_PLAIN_SCALAR_STYLE))
212                    goto event_error;
213                if (!yaml_emitter_emit(&emitter, &output_event))
214                    goto emitter_error;
215
216                break;
217
218            case YAML_DOCUMENT_START_EVENT:
219
220                /* Write 'type'. */
221
222                if (!yaml_scalar_event_initialize(&output_event,
223                            NULL, "tag:yaml.org,2002:str", "type", -1,
224                            1, 1, YAML_PLAIN_SCALAR_STYLE))
225                    goto event_error;
226                if (!yaml_emitter_emit(&emitter, &output_event))
227                    goto emitter_error;
228
229                /* Write 'DOCUMENT-START'. */
230
231                if (!yaml_scalar_event_initialize(&output_event,
232                            NULL, "tag:yaml.org,2002:str", "DOCUMENT-START", -1,
233                            1, 1, YAML_PLAIN_SCALAR_STYLE))
234                    goto event_error;
235                if (!yaml_emitter_emit(&emitter, &output_event))
236                    goto emitter_error;
237
238                /* Display the document version numbers. */
239
240                if (input_event.data.document_start.version_directive)
241                {
242                    yaml_version_directive_t *version
243                        = input_event.data.document_start.version_directive;
244                    char number[64];
245
246                    /* Write 'version'. */
247                   
248                    if (!yaml_scalar_event_initialize(&output_event,
249                                NULL, "tag:yaml.org,2002:str", "version", -1,
250                                1, 1, YAML_PLAIN_SCALAR_STYLE))
251                        goto event_error;
252                    if (!yaml_emitter_emit(&emitter, &output_event))
253                        goto emitter_error;
254
255                    /* Write '{'. */
256
257                    if (!yaml_mapping_start_event_initialize(&output_event,
258                                NULL, "tag:yaml.org,2002:map", 1,
259                                YAML_FLOW_MAPPING_STYLE))
260                        goto event_error;
261                    if (!yaml_emitter_emit(&emitter, &output_event))
262                        goto emitter_error;
263
264                    /* Write 'major'. */
265
266                    if (!yaml_scalar_event_initialize(&output_event,
267                                NULL, "tag:yaml.org,2002:str", "major", -1,
268                                1, 1, YAML_PLAIN_SCALAR_STYLE))
269                        goto event_error;
270                    if (!yaml_emitter_emit(&emitter, &output_event))
271                        goto emitter_error;
272
273                    /* Write a number. */
274
275                    sprintf(number, "%d", version->major);
276                    if (!yaml_scalar_event_initialize(&output_event,
277                                NULL, "tag:yaml.org,2002:int", number, -1,
278                                1, 1, YAML_PLAIN_SCALAR_STYLE))
279                        goto event_error;
280                    if (!yaml_emitter_emit(&emitter, &output_event))
281                        goto emitter_error;
282
283                    /* Write 'minor'. */
284
285                    if (!yaml_scalar_event_initialize(&output_event,
286                                NULL, "tag:yaml.org,2002:str", "minor", -1,
287                                1, 1, YAML_PLAIN_SCALAR_STYLE))
288                        goto event_error;
289                    if (!yaml_emitter_emit(&emitter, &output_event))
290                        goto emitter_error;
291
292                    /* Write a number. */
293
294                    sprintf(number, "%d", version->minor);
295                    if (!yaml_scalar_event_initialize(&output_event,
296                                NULL, "tag:yaml.org,2002:int", number, -1,
297                                1, 1, YAML_PLAIN_SCALAR_STYLE))
298                        goto event_error;
299                    if (!yaml_emitter_emit(&emitter, &output_event))
300                        goto emitter_error;
301
302                    /* Write '}'. */
303
304                    if (!yaml_mapping_end_event_initialize(&output_event))
305                        goto event_error;
306                    if (!yaml_emitter_emit(&emitter, &output_event))
307                        goto emitter_error;
308                }
309
310                /* Display the document tag directives. */
311
312                if (input_event.data.document_start.tag_directives.start
313                        != input_event.data.document_start.tag_directives.end)
314                {
315                    yaml_tag_directive_t *tag;
316
317                    /* Write 'tags'. */
318                   
319                    if (!yaml_scalar_event_initialize(&output_event,
320                                NULL, "tag:yaml.org,2002:str", "tags", -1,
321                                1, 1, YAML_PLAIN_SCALAR_STYLE))
322                        goto event_error;
323                    if (!yaml_emitter_emit(&emitter, &output_event))
324                        goto emitter_error;
325
326                    /* Start a block sequence. */
327
328                    if (!yaml_sequence_start_event_initialize(&output_event,
329                                NULL, "tag:yaml.org,2002:seq", 1,
330                                YAML_BLOCK_SEQUENCE_STYLE))
331                        goto event_error;
332                    if (!yaml_emitter_emit(&emitter, &output_event))
333                        goto emitter_error;
334
335                    for (tag = input_event.data.document_start.tag_directives.start;
336                            tag != input_event.data.document_start.tag_directives.end;
337                            tag ++)
338                    {
339                        /* Write '{'. */
340
341                        if (!yaml_mapping_start_event_initialize(&output_event,
342                                    NULL, "tag:yaml.org,2002:map", 1,
343                                    YAML_FLOW_MAPPING_STYLE))
344                            goto event_error;
345                        if (!yaml_emitter_emit(&emitter, &output_event))
346                            goto emitter_error;
347
348                        /* Write 'handle'. */
349
350                        if (!yaml_scalar_event_initialize(&output_event,
351                                    NULL, "tag:yaml.org,2002:str", "handle", -1,
352                                    1, 1, YAML_PLAIN_SCALAR_STYLE))
353                            goto event_error;
354                        if (!yaml_emitter_emit(&emitter, &output_event))
355                            goto emitter_error;
356
357                        /* Write the tag directive handle. */
358
359                        if (!yaml_scalar_event_initialize(&output_event,
360                                    NULL, "tag:yaml.org,2002:str",
361                                    tag->handle, -1,
362                                    0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
363                            goto event_error;
364                        if (!yaml_emitter_emit(&emitter, &output_event))
365                            goto emitter_error;
366
367                        /* Write 'prefix'. */
368
369                        if (!yaml_scalar_event_initialize(&output_event,
370                                    NULL, "tag:yaml.org,2002:str", "prefix", -1,
371                                    1, 1, YAML_PLAIN_SCALAR_STYLE))
372                            goto event_error;
373                        if (!yaml_emitter_emit(&emitter, &output_event))
374                            goto emitter_error;
375
376                        /* Write the tag directive prefix. */
377
378                        if (!yaml_scalar_event_initialize(&output_event,
379                                    NULL, "tag:yaml.org,2002:str",
380                                    tag->prefix, -1,
381                                    0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
382                            goto event_error;
383                        if (!yaml_emitter_emit(&emitter, &output_event))
384                            goto emitter_error;
385
386                        /* Write '}'. */
387
388                        if (!yaml_mapping_end_event_initialize(&output_event))
389                            goto event_error;
390                        if (!yaml_emitter_emit(&emitter, &output_event))
391                            goto emitter_error;
392                    }
393
394                    /* End a block sequence. */
395
396                    if (!yaml_sequence_end_event_initialize(&output_event))
397                        goto event_error;
398                    if (!yaml_emitter_emit(&emitter, &output_event))
399                        goto emitter_error;
400                }
401
402                /* Write 'implicit'. */
403
404                if (!yaml_scalar_event_initialize(&output_event,
405                            NULL, "tag:yaml.org,2002:str", "implicit", -1,
406                            1, 1, YAML_PLAIN_SCALAR_STYLE))
407                    goto event_error;
408                if (!yaml_emitter_emit(&emitter, &output_event))
409                    goto emitter_error;
410
411                /* Write if the document is implicit. */
412
413                if (!yaml_scalar_event_initialize(&output_event,
414                            NULL, "tag:yaml.org,2002:bool",
415                            (input_event.data.document_start.implicit ?
416                             "true" : "false"), -1,
417                            1, 0, YAML_PLAIN_SCALAR_STYLE))
418                    goto event_error;
419                if (!yaml_emitter_emit(&emitter, &output_event))
420                    goto emitter_error;
421
422                break;
423
424            case YAML_DOCUMENT_END_EVENT:
425
426                /* Write 'type'. */
427
428                if (!yaml_scalar_event_initialize(&output_event,
429                            NULL, "tag:yaml.org,2002:str", "type", -1,
430                            1, 1, YAML_PLAIN_SCALAR_STYLE))
431                    goto event_error;
432                if (!yaml_emitter_emit(&emitter, &output_event))
433                    goto emitter_error;
434
435                /* Write 'DOCUMENT-END'. */
436
437                if (!yaml_scalar_event_initialize(&output_event,
438                            NULL, "tag:yaml.org,2002:str", "DOCUMENT-END", -1,
439                            1, 1, YAML_PLAIN_SCALAR_STYLE))
440                    goto event_error;
441                if (!yaml_emitter_emit(&emitter, &output_event))
442                    goto emitter_error;
443
444                /* Write 'implicit'. */
445
446                if (!yaml_scalar_event_initialize(&output_event,
447                            NULL, "tag:yaml.org,2002:str", "implicit", -1,
448                            1, 1, YAML_PLAIN_SCALAR_STYLE))
449                    goto event_error;
450                if (!yaml_emitter_emit(&emitter, &output_event))
451                    goto emitter_error;
452
453                /* Write if the document is implicit. */
454
455                if (!yaml_scalar_event_initialize(&output_event,
456                            NULL, "tag:yaml.org,2002:bool",
457                            (input_event.data.document_end.implicit ?
458                             "true" : "false"), -1,
459                            1, 0, YAML_PLAIN_SCALAR_STYLE))
460                    goto event_error;
461                if (!yaml_emitter_emit(&emitter, &output_event))
462                    goto emitter_error;
463
464                break;
465
466            case YAML_ALIAS_EVENT:
467
468                /* Write 'type'. */
469
470                if (!yaml_scalar_event_initialize(&output_event,
471                            NULL, "tag:yaml.org,2002:str", "type", -1,
472                            1, 1, YAML_PLAIN_SCALAR_STYLE))
473                    goto event_error;
474                if (!yaml_emitter_emit(&emitter, &output_event))
475                    goto emitter_error;
476
477                /* Write 'ALIAS'. */
478
479                if (!yaml_scalar_event_initialize(&output_event,
480                            NULL, "tag:yaml.org,2002:str", "ALIAS", -1,
481                            1, 1, YAML_PLAIN_SCALAR_STYLE))
482                    goto event_error;
483                if (!yaml_emitter_emit(&emitter, &output_event))
484                    goto emitter_error;
485
486                /* Write 'anchor'. */
487
488                if (!yaml_scalar_event_initialize(&output_event,
489                            NULL, "tag:yaml.org,2002:str", "anchor", -1,
490                            1, 1, YAML_PLAIN_SCALAR_STYLE))
491                    goto event_error;
492                if (!yaml_emitter_emit(&emitter, &output_event))
493                    goto emitter_error;
494
495                /* Write the alias anchor. */
496
497                if (!yaml_scalar_event_initialize(&output_event,
498                            NULL, "tag:yaml.org,2002:str",
499                            input_event.data.alias.anchor, -1,
500                            0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
501                    goto event_error;
502                if (!yaml_emitter_emit(&emitter, &output_event))
503                    goto emitter_error;
504
505                break;
506
507            case YAML_SCALAR_EVENT:
508
509                /* Write 'type'. */
510
511                if (!yaml_scalar_event_initialize(&output_event,
512                            NULL, "tag:yaml.org,2002:str", "type", -1,
513                            1, 1, YAML_PLAIN_SCALAR_STYLE))
514                    goto event_error;
515                if (!yaml_emitter_emit(&emitter, &output_event))
516                    goto emitter_error;
517
518                /* Write 'SCALAR'. */
519
520                if (!yaml_scalar_event_initialize(&output_event,
521                            NULL, "tag:yaml.org,2002:str", "SCALAR", -1,
522                            1, 1, YAML_PLAIN_SCALAR_STYLE))
523                    goto event_error;
524                if (!yaml_emitter_emit(&emitter, &output_event))
525                    goto emitter_error;
526
527                /* Display the scalar anchor. */
528
529                if (input_event.data.scalar.anchor)
530                {
531                    /* Write 'anchor'. */
532
533                    if (!yaml_scalar_event_initialize(&output_event,
534                                NULL, "tag:yaml.org,2002:str", "anchor", -1,
535                                1, 1, YAML_PLAIN_SCALAR_STYLE))
536                        goto event_error;
537                    if (!yaml_emitter_emit(&emitter, &output_event))
538                        goto emitter_error;
539
540                    /* Write the scalar anchor. */
541
542                    if (!yaml_scalar_event_initialize(&output_event,
543                                NULL, "tag:yaml.org,2002:str",
544                                input_event.data.scalar.anchor, -1,
545                                0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
546                        goto event_error;
547                    if (!yaml_emitter_emit(&emitter, &output_event))
548                        goto emitter_error;
549                }
550
551                /* Display the scalar tag. */
552
553                if (input_event.data.scalar.tag)
554                {
555                    /* Write 'tag'. */
556
557                    if (!yaml_scalar_event_initialize(&output_event,
558                                NULL, "tag:yaml.org,2002:str", "tag", -1,
559                                1, 1, YAML_PLAIN_SCALAR_STYLE))
560                        goto event_error;
561                    if (!yaml_emitter_emit(&emitter, &output_event))
562                        goto emitter_error;
563
564                    /* Write the scalar tag. */
565
566                    if (!yaml_scalar_event_initialize(&output_event,
567                                NULL, "tag:yaml.org,2002:str",
568                                input_event.data.scalar.tag, -1,
569                                0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
570                        goto event_error;
571                    if (!yaml_emitter_emit(&emitter, &output_event))
572                        goto emitter_error;
573                }
574
575                /* Display the scalar value. */
576
577                /* Write 'value'. */
578
579                if (!yaml_scalar_event_initialize(&output_event,
580                            NULL, "tag:yaml.org,2002:str", "value", -1,
581                            1, 1, YAML_PLAIN_SCALAR_STYLE))
582                    goto event_error;
583                if (!yaml_emitter_emit(&emitter, &output_event))
584                    goto emitter_error;
585
586                /* Write the scalar value. */
587
588                if (!yaml_scalar_event_initialize(&output_event,
589                            NULL, "tag:yaml.org,2002:str",
590                            input_event.data.scalar.value,
591                            input_event.data.scalar.length,
592                            0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
593                    goto event_error;
594                if (!yaml_emitter_emit(&emitter, &output_event))
595                    goto emitter_error;
596
597                /* Display if the scalar tag is implicit. */
598
599                /* Write 'implicit'. */
600               
601                if (!yaml_scalar_event_initialize(&output_event,
602                            NULL, "tag:yaml.org,2002:str", "implicit", -1,
603                            1, 1, YAML_PLAIN_SCALAR_STYLE))
604                    goto event_error;
605                if (!yaml_emitter_emit(&emitter, &output_event))
606                    goto emitter_error;
607
608                /* Write '{'. */
609
610                if (!yaml_mapping_start_event_initialize(&output_event,
611                            NULL, "tag:yaml.org,2002:map", 1,
612                            YAML_FLOW_MAPPING_STYLE))
613                    goto event_error;
614                if (!yaml_emitter_emit(&emitter, &output_event))
615                    goto emitter_error;
616
617                /* Write 'plain'. */
618
619                if (!yaml_scalar_event_initialize(&output_event,
620                            NULL, "tag:yaml.org,2002:str", "plain", -1,
621                            1, 1, YAML_PLAIN_SCALAR_STYLE))
622                    goto event_error;
623                if (!yaml_emitter_emit(&emitter, &output_event))
624                    goto emitter_error;
625
626                /* Write if the scalar is implicit in the plain style. */
627
628                if (!yaml_scalar_event_initialize(&output_event,
629                            NULL, "tag:yaml.org,2002:bool",
630                            (input_event.data.scalar.plain_implicit ?
631                             "true" : "false"), -1,
632                            1, 0, YAML_PLAIN_SCALAR_STYLE))
633                    goto event_error;
634                if (!yaml_emitter_emit(&emitter, &output_event))
635                    goto emitter_error;
636
637                /* Write 'quoted'. */
638
639                if (!yaml_scalar_event_initialize(&output_event,
640                            NULL, "tag:yaml.org,2002:str", "non-plain", -1,
641                            1, 1, YAML_PLAIN_SCALAR_STYLE))
642                    goto event_error;
643                if (!yaml_emitter_emit(&emitter, &output_event))
644                    goto emitter_error;
645
646                /* Write if the scalar is implicit in a non-plain style. */
647
648                if (!yaml_scalar_event_initialize(&output_event,
649                            NULL, "tag:yaml.org,2002:bool",
650                            (input_event.data.scalar.quoted_implicit ?
651                             "true" : "false"), -1,
652                            1, 0, YAML_PLAIN_SCALAR_STYLE))
653                    goto event_error;
654                if (!yaml_emitter_emit(&emitter, &output_event))
655                    goto emitter_error;
656
657                /* Write '}'. */
658
659                if (!yaml_mapping_end_event_initialize(&output_event))
660                    goto event_error;
661                if (!yaml_emitter_emit(&emitter, &output_event))
662                    goto emitter_error;
663
664                /* Display the style information. */
665
666                if (input_event.data.scalar.style)
667                {
668                    yaml_scalar_style_t style = input_event.data.scalar.style;
669
670                    /* Write 'style'. */
671
672                    if (!yaml_scalar_event_initialize(&output_event,
673                                NULL, "tag:yaml.org,2002:str", "style", -1,
674                                1, 1, YAML_PLAIN_SCALAR_STYLE))
675                        goto event_error;
676                    if (!yaml_emitter_emit(&emitter, &output_event))
677                        goto emitter_error;
678
679                    /* Write the scalar style. */
680
681                    if (!yaml_scalar_event_initialize(&output_event,
682                                NULL, "tag:yaml.org,2002:str",
683                                (style == YAML_PLAIN_SCALAR_STYLE ? "plain" :
684                                 style == YAML_SINGLE_QUOTED_SCALAR_STYLE ?
685                                        "single-quoted" :
686                                 style == YAML_DOUBLE_QUOTED_SCALAR_STYLE ?
687                                        "double-quoted" :
688                                 style == YAML_LITERAL_SCALAR_STYLE ? "literal" :
689                                 style == YAML_FOLDED_SCALAR_STYLE ? "folded" :
690                                 "unknown"), -1,
691                                1, 1, YAML_PLAIN_SCALAR_STYLE))
692                        goto event_error;
693                    if (!yaml_emitter_emit(&emitter, &output_event))
694                        goto emitter_error;
695                }
696
697                break;
698
699            case YAML_SEQUENCE_START_EVENT:
700
701                /* Write 'type'. */
702
703                if (!yaml_scalar_event_initialize(&output_event,
704                            NULL, "tag:yaml.org,2002:str", "type", -1,
705                            1, 1, YAML_PLAIN_SCALAR_STYLE))
706                    goto event_error;
707                if (!yaml_emitter_emit(&emitter, &output_event))
708                    goto emitter_error;
709
710                /* Write 'SEQUENCE-START'. */
711
712                if (!yaml_scalar_event_initialize(&output_event,
713                            NULL, "tag:yaml.org,2002:str", "SEQUENCE-START", -1,
714                            1, 1, YAML_PLAIN_SCALAR_STYLE))
715                    goto event_error;
716                if (!yaml_emitter_emit(&emitter, &output_event))
717                    goto emitter_error;
718
719                /* Display the sequence anchor. */
720
721                if (input_event.data.sequence_start.anchor)
722                {
723                    /* Write 'anchor'. */
724
725                    if (!yaml_scalar_event_initialize(&output_event,
726                                NULL, "tag:yaml.org,2002:str", "anchor", -1,
727                                1, 1, YAML_PLAIN_SCALAR_STYLE))
728                        goto event_error;
729                    if (!yaml_emitter_emit(&emitter, &output_event))
730                        goto emitter_error;
731
732                    /* Write the sequence anchor. */
733
734                    if (!yaml_scalar_event_initialize(&output_event,
735                                NULL, "tag:yaml.org,2002:str",
736                                input_event.data.sequence_start.anchor, -1,
737                                0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
738                        goto event_error;
739                    if (!yaml_emitter_emit(&emitter, &output_event))
740                        goto emitter_error;
741                }
742
743                /* Display the sequence tag. */
744
745                if (input_event.data.sequence_start.tag)
746                {
747                    /* Write 'tag'. */
748
749                    if (!yaml_scalar_event_initialize(&output_event,
750                                NULL, "tag:yaml.org,2002:str", "tag", -1,
751                                1, 1, YAML_PLAIN_SCALAR_STYLE))
752                        goto event_error;
753                    if (!yaml_emitter_emit(&emitter, &output_event))
754                        goto emitter_error;
755
756                    /* Write the sequence tag. */
757
758                    if (!yaml_scalar_event_initialize(&output_event,
759                                NULL, "tag:yaml.org,2002:str",
760                                input_event.data.sequence_start.tag, -1,
761                                0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
762                        goto event_error;
763                    if (!yaml_emitter_emit(&emitter, &output_event))
764                        goto emitter_error;
765                }
766
767                /* Write 'implicit'. */
768
769                if (!yaml_scalar_event_initialize(&output_event,
770                            NULL, "tag:yaml.org,2002:str", "implicit", -1,
771                            1, 1, YAML_PLAIN_SCALAR_STYLE))
772                    goto event_error;
773                if (!yaml_emitter_emit(&emitter, &output_event))
774                    goto emitter_error;
775
776                /* Write if the sequence tag is implicit. */
777
778                if (!yaml_scalar_event_initialize(&output_event,
779                            NULL, "tag:yaml.org,2002:bool",
780                            (input_event.data.sequence_start.implicit ?
781                             "true" : "false"), -1,
782                            1, 0, YAML_PLAIN_SCALAR_STYLE))
783                    goto event_error;
784                if (!yaml_emitter_emit(&emitter, &output_event))
785                    goto emitter_error;
786
787                /* Display the style information. */
788
789                if (input_event.data.sequence_start.style)
790                {
791                    yaml_sequence_style_t style
792                        = input_event.data.sequence_start.style;
793
794                    /* Write 'style'. */
795
796                    if (!yaml_scalar_event_initialize(&output_event,
797                                NULL, "tag:yaml.org,2002:str", "style", -1,
798                                1, 1, YAML_PLAIN_SCALAR_STYLE))
799                        goto event_error;
800                    if (!yaml_emitter_emit(&emitter, &output_event))
801                        goto emitter_error;
802
803                    /* Write the scalar style. */
804
805                    if (!yaml_scalar_event_initialize(&output_event,
806                                NULL, "tag:yaml.org,2002:str",
807                                (style == YAML_BLOCK_SEQUENCE_STYLE ? "block" :
808                                 style == YAML_FLOW_SEQUENCE_STYLE ? "flow" :
809                                 "unknown"), -1,
810                                1, 1, YAML_PLAIN_SCALAR_STYLE))
811                        goto event_error;
812                    if (!yaml_emitter_emit(&emitter, &output_event))
813                        goto emitter_error;
814                }
815
816                break;
817
818            case YAML_SEQUENCE_END_EVENT:
819
820                /* Write 'type'. */
821
822                if (!yaml_scalar_event_initialize(&output_event,
823                            NULL, "tag:yaml.org,2002:str", "type", -1,
824                            1, 1, YAML_PLAIN_SCALAR_STYLE))
825                    goto event_error;
826                if (!yaml_emitter_emit(&emitter, &output_event))
827                    goto emitter_error;
828
829                /* Write 'SEQUENCE-END'. */
830
831                if (!yaml_scalar_event_initialize(&output_event,
832                            NULL, "tag:yaml.org,2002:str", "SEQUENCE-END", -1,
833                            1, 1, YAML_PLAIN_SCALAR_STYLE))
834                    goto event_error;
835                if (!yaml_emitter_emit(&emitter, &output_event))
836                    goto emitter_error;
837
838                break;
839
840            case YAML_MAPPING_START_EVENT:
841
842                /* Write 'type'. */
843
844                if (!yaml_scalar_event_initialize(&output_event,
845                            NULL, "tag:yaml.org,2002:str", "type", -1,
846                            1, 1, YAML_PLAIN_SCALAR_STYLE))
847                    goto event_error;
848                if (!yaml_emitter_emit(&emitter, &output_event))
849                    goto emitter_error;
850
851                /* Write 'MAPPING-START'. */
852
853                if (!yaml_scalar_event_initialize(&output_event,
854                            NULL, "tag:yaml.org,2002:str", "MAPPING-START", -1,
855                            1, 1, YAML_PLAIN_SCALAR_STYLE))
856                    goto event_error;
857                if (!yaml_emitter_emit(&emitter, &output_event))
858                    goto emitter_error;
859
860                /* Display the mapping anchor. */
861
862                if (input_event.data.mapping_start.anchor)
863                {
864                    /* Write 'anchor'. */
865
866                    if (!yaml_scalar_event_initialize(&output_event,
867                                NULL, "tag:yaml.org,2002:str", "anchor", -1,
868                                1, 1, YAML_PLAIN_SCALAR_STYLE))
869                        goto event_error;
870                    if (!yaml_emitter_emit(&emitter, &output_event))
871                        goto emitter_error;
872
873                    /* Write the mapping anchor. */
874
875                    if (!yaml_scalar_event_initialize(&output_event,
876                                NULL, "tag:yaml.org,2002:str",
877                                input_event.data.mapping_start.anchor, -1,
878                                0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
879                        goto event_error;
880                    if (!yaml_emitter_emit(&emitter, &output_event))
881                        goto emitter_error;
882                }
883
884                /* Display the mapping tag. */
885
886                if (input_event.data.mapping_start.tag)
887                {
888                    /* Write 'tag'. */
889
890                    if (!yaml_scalar_event_initialize(&output_event,
891                                NULL, "tag:yaml.org,2002:str", "tag", -1,
892                                1, 1, YAML_PLAIN_SCALAR_STYLE))
893                        goto event_error;
894                    if (!yaml_emitter_emit(&emitter, &output_event))
895                        goto emitter_error;
896
897                    /* Write the mapping tag. */
898
899                    if (!yaml_scalar_event_initialize(&output_event,
900                                NULL, "tag:yaml.org,2002:str",
901                                input_event.data.mapping_start.tag, -1,
902                                0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE))
903                        goto event_error;
904                    if (!yaml_emitter_emit(&emitter, &output_event))
905                        goto emitter_error;
906                }
907
908                /* Write 'implicit'. */
909
910                if (!yaml_scalar_event_initialize(&output_event,
911                            NULL, "tag:yaml.org,2002:str", "implicit", -1,
912                            1, 1, YAML_PLAIN_SCALAR_STYLE))
913                    goto event_error;
914                if (!yaml_emitter_emit(&emitter, &output_event))
915                    goto emitter_error;
916
917                /* Write if the mapping tag is implicit. */
918
919                if (!yaml_scalar_event_initialize(&output_event,
920                            NULL, "tag:yaml.org,2002:bool",
921                            (input_event.data.mapping_start.implicit ?
922                             "true" : "false"), -1,
923                            1, 0, YAML_PLAIN_SCALAR_STYLE))
924                    goto event_error;
925                if (!yaml_emitter_emit(&emitter, &output_event))
926                    goto emitter_error;
927
928                /* Display the style information. */
929
930                if (input_event.data.mapping_start.style)
931                {
932                    yaml_mapping_style_t style
933                        = input_event.data.mapping_start.style;
934
935                    /* Write 'style'. */
936
937                    if (!yaml_scalar_event_initialize(&output_event,
938                                NULL, "tag:yaml.org,2002:str", "style", -1,
939                                1, 1, YAML_PLAIN_SCALAR_STYLE))
940                        goto event_error;
941                    if (!yaml_emitter_emit(&emitter, &output_event))
942                        goto emitter_error;
943
944                    /* Write the scalar style. */
945
946                    if (!yaml_scalar_event_initialize(&output_event,
947                                NULL, "tag:yaml.org,2002:str",
948                                (style == YAML_BLOCK_MAPPING_STYLE ? "block" :
949                                 style == YAML_FLOW_MAPPING_STYLE ? "flow" :
950                                 "unknown"), -1,
951                                1, 1, YAML_PLAIN_SCALAR_STYLE))
952                        goto event_error;
953                    if (!yaml_emitter_emit(&emitter, &output_event))
954                        goto emitter_error;
955                }
956
957                break;
958
959            case YAML_MAPPING_END_EVENT:
960
961                /* Write 'type'. */
962
963                if (!yaml_scalar_event_initialize(&output_event,
964                            NULL, "tag:yaml.org,2002:str", "type", -1,
965                            1, 1, YAML_PLAIN_SCALAR_STYLE))
966                    goto event_error;
967                if (!yaml_emitter_emit(&emitter, &output_event))
968                    goto emitter_error;
969
970                /* Write 'MAPPING-END'. */
971
972                if (!yaml_scalar_event_initialize(&output_event,
973                            NULL, "tag:yaml.org,2002:str", "MAPPING-END", -1,
974                            1, 1, YAML_PLAIN_SCALAR_STYLE))
975                    goto event_error;
976                if (!yaml_emitter_emit(&emitter, &output_event))
977                    goto emitter_error;
978
979                break;
980
981            default:
982                /* It couldn't really happen. */
983                break;
984        }
985
986        /* Delete the event object. */
987
988        yaml_event_delete(&input_event);
989
990        /* Create and emit a MAPPING-END event. */
991
992        if (!yaml_mapping_end_event_initialize(&output_event))
993            goto event_error;
994        if (!yaml_emitter_emit(&emitter, &output_event))
995            goto emitter_error;
996    }
997
998    /* Create and emit the SEQUENCE-END event. */
999
1000    if (!yaml_sequence_end_event_initialize(&output_event))
1001        goto event_error;
1002    if (!yaml_emitter_emit(&emitter, &output_event))
1003        goto emitter_error;
1004
1005    /* Create and emit the DOCUMENT-END event. */
1006
1007    if (!yaml_document_end_event_initialize(&output_event, 0))
1008        goto event_error;
1009    if (!yaml_emitter_emit(&emitter, &output_event))
1010        goto emitter_error;
1011
1012    /* Create and emit the STREAM-END event. */
1013
1014    if (!yaml_stream_end_event_initialize(&output_event))
1015        goto event_error;
1016    if (!yaml_emitter_emit(&emitter, &output_event))
1017        goto emitter_error;
1018
1019    yaml_parser_delete(&parser);
1020    yaml_emitter_delete(&emitter);
1021
1022    return 0;
1023
1024parser_error:
1025
1026    /* Display a parser error message. */
1027
1028    switch (parser.error)
1029    {
1030        case YAML_MEMORY_ERROR:
1031            fprintf(stderr, "Memory error: Not enough memory for parsing\n");
1032            break;
1033
1034        case YAML_READER_ERROR:
1035            if (parser.problem_value != -1) {
1036                fprintf(stderr, "Reader error: %s: #%X at %d\n", parser.problem,
1037                        parser.problem_value, parser.problem_offset);
1038            }
1039            else {
1040                fprintf(stderr, "Reader error: %s at %d\n", parser.problem,
1041                        parser.problem_offset);
1042            }
1043            break;
1044
1045        case YAML_SCANNER_ERROR:
1046            if (parser.context) {
1047                fprintf(stderr, "Scanner error: %s at line %d, column %d\n"
1048                        "%s at line %d, column %d\n", parser.context,
1049                        parser.context_mark.line+1, parser.context_mark.column+1,
1050                        parser.problem, parser.problem_mark.line+1,
1051                        parser.problem_mark.column+1);
1052            }
1053            else {
1054                fprintf(stderr, "Scanner error: %s at line %d, column %d\n",
1055                        parser.problem, parser.problem_mark.line+1,
1056                        parser.problem_mark.column+1);
1057            }
1058            break;
1059
1060        case YAML_PARSER_ERROR:
1061            if (parser.context) {
1062                fprintf(stderr, "Parser error: %s at line %d, column %d\n"
1063                        "%s at line %d, column %d\n", parser.context,
1064                        parser.context_mark.line+1, parser.context_mark.column+1,
1065                        parser.problem, parser.problem_mark.line+1,
1066                        parser.problem_mark.column+1);
1067            }
1068            else {
1069                fprintf(stderr, "Parser error: %s at line %d, column %d\n",
1070                        parser.problem, parser.problem_mark.line+1,
1071                        parser.problem_mark.column+1);
1072            }
1073            break;
1074
1075        default:
1076            /* Couldn't happen. */
1077            fprintf(stderr, "Internal error\n");
1078            break;
1079    }
1080
1081    yaml_event_delete(&input_event);
1082    yaml_event_delete(&output_event);
1083    yaml_parser_delete(&parser);
1084    yaml_emitter_delete(&emitter);
1085
1086    return 1;
1087
1088emitter_error:
1089
1090    /* Display an emitter error message. */
1091
1092    switch (emitter.error)
1093    {
1094        case YAML_MEMORY_ERROR:
1095            fprintf(stderr, "Memory error: Not enough memory for emitting\n");
1096            break;
1097
1098        case YAML_WRITER_ERROR:
1099            fprintf(stderr, "Writer error: %s\n", emitter.problem);
1100            break;
1101
1102        case YAML_EMITTER_ERROR:
1103            fprintf(stderr, "Emitter error: %s\n", emitter.problem);
1104            break;
1105
1106        default:
1107            /* Couldn't happen. */
1108            fprintf(stderr, "Internal error\n");
1109            break;
1110    }
1111
1112    yaml_event_delete(&input_event);
1113    yaml_event_delete(&output_event);
1114    yaml_parser_delete(&parser);
1115    yaml_emitter_delete(&emitter);
1116
1117    return 1;
1118
1119event_error:
1120
1121    fprintf(stderr, "Memory error: Not enough memory for creating an event\n");
1122
1123    yaml_event_delete(&input_event);
1124    yaml_event_delete(&output_event);
1125    yaml_parser_delete(&parser);
1126    yaml_emitter_delete(&emitter);
1127
1128    return 1;
1129}
1130
Note: See TracBrowser for help on using the repository browser.