1*448a3816Sskrll /* $NetBSD: yamltree.c,v 1.1.1.1 2019/12/22 12:34:03 skrll Exp $ */
2*448a3816Sskrll
3*448a3816Sskrll // SPDX-License-Identifier: GPL-2.0-or-later
4*448a3816Sskrll /*
5*448a3816Sskrll * (C) Copyright Linaro, Ltd. 2018
6*448a3816Sskrll * (C) Copyright Arm Holdings. 2017
7*448a3816Sskrll * (C) Copyright David Gibson <dwg@au1.ibm.com>, IBM Corporation. 2005.
8*448a3816Sskrll */
9*448a3816Sskrll
10*448a3816Sskrll #include <stdlib.h>
11*448a3816Sskrll #include <yaml.h>
12*448a3816Sskrll #include "dtc.h"
13*448a3816Sskrll #include "srcpos.h"
14*448a3816Sskrll
15*448a3816Sskrll char *yaml_error_name[] = {
16*448a3816Sskrll [YAML_NO_ERROR] = "no error",
17*448a3816Sskrll [YAML_MEMORY_ERROR] = "memory error",
18*448a3816Sskrll [YAML_READER_ERROR] = "reader error",
19*448a3816Sskrll [YAML_SCANNER_ERROR] = "scanner error",
20*448a3816Sskrll [YAML_PARSER_ERROR] = "parser error",
21*448a3816Sskrll [YAML_COMPOSER_ERROR] = "composer error",
22*448a3816Sskrll [YAML_WRITER_ERROR] = "writer error",
23*448a3816Sskrll [YAML_EMITTER_ERROR] = "emitter error",
24*448a3816Sskrll };
25*448a3816Sskrll
26*448a3816Sskrll #define yaml_emitter_emit_or_die(emitter, event) ( \
27*448a3816Sskrll { \
28*448a3816Sskrll if (!yaml_emitter_emit(emitter, event)) \
29*448a3816Sskrll die("yaml '%s': %s in %s, line %i\n", \
30*448a3816Sskrll yaml_error_name[(emitter)->error], \
31*448a3816Sskrll (emitter)->problem, __func__, __LINE__); \
32*448a3816Sskrll })
33*448a3816Sskrll
yaml_propval_int(yaml_emitter_t * emitter,struct marker * markers,char * data,int len,int width)34*448a3816Sskrll static void yaml_propval_int(yaml_emitter_t *emitter, struct marker *markers, char *data, int len, int width)
35*448a3816Sskrll {
36*448a3816Sskrll yaml_event_t event;
37*448a3816Sskrll void *tag;
38*448a3816Sskrll int off, start_offset = markers->offset;
39*448a3816Sskrll
40*448a3816Sskrll switch(width) {
41*448a3816Sskrll case 1: tag = "!u8"; break;
42*448a3816Sskrll case 2: tag = "!u16"; break;
43*448a3816Sskrll case 4: tag = "!u32"; break;
44*448a3816Sskrll case 8: tag = "!u64"; break;
45*448a3816Sskrll default:
46*448a3816Sskrll die("Invalid width %i", width);
47*448a3816Sskrll }
48*448a3816Sskrll assert(len % width == 0);
49*448a3816Sskrll
50*448a3816Sskrll yaml_sequence_start_event_initialize(&event, NULL,
51*448a3816Sskrll (yaml_char_t *)tag, width == 4, YAML_FLOW_SEQUENCE_STYLE);
52*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
53*448a3816Sskrll
54*448a3816Sskrll for (off = 0; off < len; off += width) {
55*448a3816Sskrll char buf[32];
56*448a3816Sskrll struct marker *m;
57*448a3816Sskrll bool is_phandle = false;
58*448a3816Sskrll
59*448a3816Sskrll switch(width) {
60*448a3816Sskrll case 1:
61*448a3816Sskrll sprintf(buf, "0x%"PRIx8, *(uint8_t*)(data + off));
62*448a3816Sskrll break;
63*448a3816Sskrll case 2:
64*448a3816Sskrll sprintf(buf, "0x%"PRIx16, fdt16_to_cpu(*(fdt16_t*)(data + off)));
65*448a3816Sskrll break;
66*448a3816Sskrll case 4:
67*448a3816Sskrll sprintf(buf, "0x%"PRIx32, fdt32_to_cpu(*(fdt32_t*)(data + off)));
68*448a3816Sskrll m = markers;
69*448a3816Sskrll is_phandle = false;
70*448a3816Sskrll for_each_marker_of_type(m, REF_PHANDLE) {
71*448a3816Sskrll if (m->offset == (start_offset + off)) {
72*448a3816Sskrll is_phandle = true;
73*448a3816Sskrll break;
74*448a3816Sskrll }
75*448a3816Sskrll }
76*448a3816Sskrll break;
77*448a3816Sskrll case 8:
78*448a3816Sskrll sprintf(buf, "0x%"PRIx64, fdt64_to_cpu(*(fdt64_t*)(data + off)));
79*448a3816Sskrll break;
80*448a3816Sskrll }
81*448a3816Sskrll
82*448a3816Sskrll if (is_phandle)
83*448a3816Sskrll yaml_scalar_event_initialize(&event, NULL,
84*448a3816Sskrll (yaml_char_t*)"!phandle", (yaml_char_t *)buf,
85*448a3816Sskrll strlen(buf), 0, 0, YAML_PLAIN_SCALAR_STYLE);
86*448a3816Sskrll else
87*448a3816Sskrll yaml_scalar_event_initialize(&event, NULL,
88*448a3816Sskrll (yaml_char_t*)YAML_INT_TAG, (yaml_char_t *)buf,
89*448a3816Sskrll strlen(buf), 1, 1, YAML_PLAIN_SCALAR_STYLE);
90*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
91*448a3816Sskrll }
92*448a3816Sskrll
93*448a3816Sskrll yaml_sequence_end_event_initialize(&event);
94*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
95*448a3816Sskrll }
96*448a3816Sskrll
yaml_propval_string(yaml_emitter_t * emitter,char * str,int len)97*448a3816Sskrll static void yaml_propval_string(yaml_emitter_t *emitter, char *str, int len)
98*448a3816Sskrll {
99*448a3816Sskrll yaml_event_t event;
100*448a3816Sskrll int i;
101*448a3816Sskrll
102*448a3816Sskrll assert(str[len-1] == '\0');
103*448a3816Sskrll
104*448a3816Sskrll /* Make sure the entire string is in the lower 7-bit ascii range */
105*448a3816Sskrll for (i = 0; i < len; i++)
106*448a3816Sskrll assert(isascii(str[i]));
107*448a3816Sskrll
108*448a3816Sskrll yaml_scalar_event_initialize(&event, NULL,
109*448a3816Sskrll (yaml_char_t *)YAML_STR_TAG, (yaml_char_t*)str,
110*448a3816Sskrll len-1, 0, 1, YAML_DOUBLE_QUOTED_SCALAR_STYLE);
111*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
112*448a3816Sskrll }
113*448a3816Sskrll
yaml_propval(yaml_emitter_t * emitter,struct property * prop)114*448a3816Sskrll static void yaml_propval(yaml_emitter_t *emitter, struct property *prop)
115*448a3816Sskrll {
116*448a3816Sskrll yaml_event_t event;
117*448a3816Sskrll int len = prop->val.len;
118*448a3816Sskrll struct marker *m = prop->val.markers;
119*448a3816Sskrll
120*448a3816Sskrll /* Emit the property name */
121*448a3816Sskrll yaml_scalar_event_initialize(&event, NULL,
122*448a3816Sskrll (yaml_char_t *)YAML_STR_TAG, (yaml_char_t*)prop->name,
123*448a3816Sskrll strlen(prop->name), 1, 1, YAML_PLAIN_SCALAR_STYLE);
124*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
125*448a3816Sskrll
126*448a3816Sskrll /* Boolean properties are easiest to deal with. Length is zero, so just emit 'true' */
127*448a3816Sskrll if (len == 0) {
128*448a3816Sskrll yaml_scalar_event_initialize(&event, NULL,
129*448a3816Sskrll (yaml_char_t *)YAML_BOOL_TAG,
130*448a3816Sskrll (yaml_char_t*)"true",
131*448a3816Sskrll strlen("true"), 1, 0, YAML_PLAIN_SCALAR_STYLE);
132*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
133*448a3816Sskrll return;
134*448a3816Sskrll }
135*448a3816Sskrll
136*448a3816Sskrll if (!m)
137*448a3816Sskrll die("No markers present in property '%s' value\n", prop->name);
138*448a3816Sskrll
139*448a3816Sskrll yaml_sequence_start_event_initialize(&event, NULL,
140*448a3816Sskrll (yaml_char_t *)YAML_SEQ_TAG, 1, YAML_FLOW_SEQUENCE_STYLE);
141*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
142*448a3816Sskrll
143*448a3816Sskrll for_each_marker(m) {
144*448a3816Sskrll int chunk_len;
145*448a3816Sskrll char *data = &prop->val.val[m->offset];
146*448a3816Sskrll
147*448a3816Sskrll if (m->type < TYPE_UINT8)
148*448a3816Sskrll continue;
149*448a3816Sskrll
150*448a3816Sskrll chunk_len = type_marker_length(m) ? : len;
151*448a3816Sskrll assert(chunk_len > 0);
152*448a3816Sskrll len -= chunk_len;
153*448a3816Sskrll
154*448a3816Sskrll switch(m->type) {
155*448a3816Sskrll case TYPE_UINT16:
156*448a3816Sskrll yaml_propval_int(emitter, m, data, chunk_len, 2);
157*448a3816Sskrll break;
158*448a3816Sskrll case TYPE_UINT32:
159*448a3816Sskrll yaml_propval_int(emitter, m, data, chunk_len, 4);
160*448a3816Sskrll break;
161*448a3816Sskrll case TYPE_UINT64:
162*448a3816Sskrll yaml_propval_int(emitter, m, data, chunk_len, 8);
163*448a3816Sskrll break;
164*448a3816Sskrll case TYPE_STRING:
165*448a3816Sskrll yaml_propval_string(emitter, data, chunk_len);
166*448a3816Sskrll break;
167*448a3816Sskrll default:
168*448a3816Sskrll yaml_propval_int(emitter, m, data, chunk_len, 1);
169*448a3816Sskrll break;
170*448a3816Sskrll }
171*448a3816Sskrll }
172*448a3816Sskrll
173*448a3816Sskrll yaml_sequence_end_event_initialize(&event);
174*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
175*448a3816Sskrll }
176*448a3816Sskrll
177*448a3816Sskrll
yaml_tree(struct node * tree,yaml_emitter_t * emitter)178*448a3816Sskrll static void yaml_tree(struct node *tree, yaml_emitter_t *emitter)
179*448a3816Sskrll {
180*448a3816Sskrll struct property *prop;
181*448a3816Sskrll struct node *child;
182*448a3816Sskrll yaml_event_t event;
183*448a3816Sskrll
184*448a3816Sskrll if (tree->deleted)
185*448a3816Sskrll return;
186*448a3816Sskrll
187*448a3816Sskrll yaml_mapping_start_event_initialize(&event, NULL,
188*448a3816Sskrll (yaml_char_t *)YAML_MAP_TAG, 1, YAML_ANY_MAPPING_STYLE);
189*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
190*448a3816Sskrll
191*448a3816Sskrll for_each_property(tree, prop)
192*448a3816Sskrll yaml_propval(emitter, prop);
193*448a3816Sskrll
194*448a3816Sskrll /* Loop over all the children, emitting them into the map */
195*448a3816Sskrll for_each_child(tree, child) {
196*448a3816Sskrll yaml_scalar_event_initialize(&event, NULL,
197*448a3816Sskrll (yaml_char_t *)YAML_STR_TAG, (yaml_char_t*)child->name,
198*448a3816Sskrll strlen(child->name), 1, 0, YAML_PLAIN_SCALAR_STYLE);
199*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
200*448a3816Sskrll yaml_tree(child, emitter);
201*448a3816Sskrll }
202*448a3816Sskrll
203*448a3816Sskrll yaml_mapping_end_event_initialize(&event);
204*448a3816Sskrll yaml_emitter_emit_or_die(emitter, &event);
205*448a3816Sskrll }
206*448a3816Sskrll
dt_to_yaml(FILE * f,struct dt_info * dti)207*448a3816Sskrll void dt_to_yaml(FILE *f, struct dt_info *dti)
208*448a3816Sskrll {
209*448a3816Sskrll yaml_emitter_t emitter;
210*448a3816Sskrll yaml_event_t event;
211*448a3816Sskrll
212*448a3816Sskrll yaml_emitter_initialize(&emitter);
213*448a3816Sskrll yaml_emitter_set_output_file(&emitter, f);
214*448a3816Sskrll yaml_stream_start_event_initialize(&event, YAML_UTF8_ENCODING);
215*448a3816Sskrll yaml_emitter_emit_or_die(&emitter, &event);
216*448a3816Sskrll
217*448a3816Sskrll yaml_document_start_event_initialize(&event, NULL, NULL, NULL, 0);
218*448a3816Sskrll yaml_emitter_emit_or_die(&emitter, &event);
219*448a3816Sskrll
220*448a3816Sskrll yaml_sequence_start_event_initialize(&event, NULL, (yaml_char_t *)YAML_SEQ_TAG, 1, YAML_ANY_SEQUENCE_STYLE);
221*448a3816Sskrll yaml_emitter_emit_or_die(&emitter, &event);
222*448a3816Sskrll
223*448a3816Sskrll yaml_tree(dti->dt, &emitter);
224*448a3816Sskrll
225*448a3816Sskrll yaml_sequence_end_event_initialize(&event);
226*448a3816Sskrll yaml_emitter_emit_or_die(&emitter, &event);
227*448a3816Sskrll
228*448a3816Sskrll yaml_document_end_event_initialize(&event, 0);
229*448a3816Sskrll yaml_emitter_emit_or_die(&emitter, &event);
230*448a3816Sskrll
231*448a3816Sskrll yaml_stream_end_event_initialize(&event);
232*448a3816Sskrll yaml_emitter_emit_or_die(&emitter, &event);
233*448a3816Sskrll
234*448a3816Sskrll yaml_emitter_delete(&emitter);
235*448a3816Sskrll }
236