Please file new bugs on Launchpad: Invirt or XVM (if you're not sure which, just pick one)

Context Navigation

source: trunk/packages/libyaml/tests/example-deconstructor.c @ 1222

Last change on this file since 1222 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
7	int
8	main(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
1024	parser_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
1088	emitter_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
1119	event_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.

Download in other formats: