2 * Copyright 2011 Leiden University. All rights reserved.
4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above
12 * copyright notice, this list of conditions and the following
13 * disclaimer in the documentation and/or other materials provided
14 * with the distribution.
16 * THIS SOFTWARE IS PROVIDED BY LEIDEN UNIVERSITY ''AS IS'' AND ANY
17 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
19 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL LEIDEN UNIVERSITY OR
20 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
21 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
22 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
23 * OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
26 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 * The views and conclusions contained in the software and documentation
29 * are those of the authors and should not be interpreted as
30 * representing official policies, either expressed or implied, of
37 #include "scop_yaml.h"
39 static int emit_string(yaml_emitter_t
*emitter
, const char *str
)
43 if (!yaml_scalar_event_initialize(&event
, NULL
, NULL
,
44 (yaml_char_t
*) str
, strlen(str
),
45 1, 1, YAML_PLAIN_SCALAR_STYLE
))
47 if (!yaml_emitter_emit(emitter
, &event
))
53 /* Print the isl_id "id" to "emitter".
55 static int emit_id(yaml_emitter_t
*emitter
, __isl_keep isl_id
*id
)
57 return emit_string(emitter
, isl_id_get_name(id
));
60 /* Print the string "name" and the isl_id "id" to "emitter".
62 static int emit_named_id(yaml_emitter_t
*emitter
, const char *name
,
63 __isl_keep isl_id
*id
)
65 if (emit_string(emitter
, name
) < 0)
67 if (emit_id(emitter
, id
) < 0)
72 static int emit_int(yaml_emitter_t
*emitter
, int i
)
76 snprintf(buffer
, sizeof(buffer
), "%d", i
);
77 return emit_string(emitter
, buffer
);
80 static int emit_named_int(yaml_emitter_t
*emitter
, const char *name
, int i
)
82 if (emit_string(emitter
, name
) < 0)
84 if (emit_int(emitter
, i
) < 0)
89 /* Print the unsigned integer "u" to "emitter".
91 static int emit_unsigned(yaml_emitter_t
*emitter
, unsigned u
)
95 snprintf(buffer
, sizeof(buffer
), "%u", u
);
96 return emit_string(emitter
, buffer
);
99 /* Print the string "name" and the unsigned integer "u" to "emitter".
101 static int emit_named_unsigned(yaml_emitter_t
*emitter
, const char *name
,
104 if (emit_string(emitter
, name
) < 0)
106 if (emit_int(emitter
, u
) < 0)
111 static int emit_double(yaml_emitter_t
*emitter
, double d
)
115 snprintf(buffer
, sizeof(buffer
), "%g", d
);
116 return emit_string(emitter
, buffer
);
119 static int emit_map(yaml_emitter_t
*emitter
, __isl_keep isl_map
*map
)
121 isl_ctx
*ctx
= isl_map_get_ctx(map
);
126 p
= isl_printer_to_str(ctx
);
127 p
= isl_printer_print_map(p
, map
);
128 str
= isl_printer_get_str(p
);
130 r
= emit_string(emitter
, str
);
135 static int emit_set(yaml_emitter_t
*emitter
, __isl_keep isl_set
*set
)
137 isl_ctx
*ctx
= isl_set_get_ctx(set
);
142 p
= isl_printer_to_str(ctx
);
143 p
= isl_printer_print_set(p
, set
);
144 str
= isl_printer_get_str(p
);
146 r
= emit_string(emitter
, str
);
151 static int emit_named_set(yaml_emitter_t
*emitter
, const char *name
,
152 __isl_keep isl_set
*set
)
154 if (emit_string(emitter
, name
) < 0)
156 if (emit_set(emitter
, set
) < 0)
161 static int emit_array(yaml_emitter_t
*emitter
, struct pet_array
*array
)
165 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
166 YAML_BLOCK_MAPPING_STYLE
))
168 if (!yaml_emitter_emit(emitter
, &event
))
171 if (emit_string(emitter
, "context") < 0)
173 if (emit_set(emitter
, array
->context
) < 0)
176 if (emit_string(emitter
, "extent") < 0)
178 if (emit_set(emitter
, array
->extent
) < 0)
181 if (array
->value_bounds
) {
182 if (emit_string(emitter
, "value_bounds") < 0)
184 if (emit_set(emitter
, array
->value_bounds
) < 0)
188 if (emit_string(emitter
, "element_type") < 0)
190 if (emit_string(emitter
, array
->element_type
) < 0)
192 if (emit_named_int(emitter
, "element_size", array
->element_size
) < 0)
195 if (array
->live_out
) {
196 if (emit_string(emitter
, "live_out") < 0)
198 if (emit_string(emitter
, "1") < 0)
202 if (array
->uniquely_defined
) {
203 if (emit_string(emitter
, "uniquely_defined") < 0)
205 if (emit_string(emitter
, "1") < 0)
209 if (array
->declared
&& emit_named_int(emitter
, "declared", 1) < 0)
211 if (array
->exposed
&& emit_named_int(emitter
, "exposed", 1) < 0)
214 if (!yaml_mapping_end_event_initialize(&event
))
216 if (!yaml_emitter_emit(emitter
, &event
))
222 static int emit_arrays(yaml_emitter_t
*emitter
, int n_array
,
223 struct pet_array
**arrays
)
228 if (emit_string(emitter
, "arrays") < 0)
230 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
231 YAML_BLOCK_SEQUENCE_STYLE
))
233 if (!yaml_emitter_emit(emitter
, &event
))
236 for (i
= 0; i
< n_array
; ++i
)
237 if (emit_array(emitter
, arrays
[i
]) < 0)
240 if (!yaml_sequence_end_event_initialize(&event
))
242 if (!yaml_emitter_emit(emitter
, &event
))
248 static int emit_type(yaml_emitter_t
*emitter
, enum pet_expr_type type
)
250 if (emit_string(emitter
, pet_type_str(type
)) < 0)
255 static int emit_expr(yaml_emitter_t
*emitter
, struct pet_expr
*expr
)
259 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
260 YAML_BLOCK_MAPPING_STYLE
))
262 if (!yaml_emitter_emit(emitter
, &event
))
265 if (emit_string(emitter
, "type") < 0)
267 if (emit_type(emitter
, expr
->type
) < 0)
270 switch (expr
->type
) {
271 case pet_expr_double
:
272 if (emit_string(emitter
, "value") < 0)
274 if (emit_double(emitter
, expr
->d
.val
) < 0)
276 if (emit_string(emitter
, "string") < 0)
278 if (emit_string(emitter
, expr
->d
.s
) < 0)
281 case pet_expr_access
:
282 if (emit_string(emitter
, "relation") < 0)
284 if (emit_map(emitter
, expr
->acc
.access
) < 0)
286 if (expr
->acc
.ref_id
&&
287 emit_named_id(emitter
, "reference", expr
->acc
.ref_id
) < 0)
289 if (emit_string(emitter
, "read") < 0)
291 if (emit_int(emitter
, expr
->acc
.read
) < 0)
293 if (emit_string(emitter
, "write") < 0)
295 if (emit_int(emitter
, expr
->acc
.write
) < 0)
299 case pet_expr_binary
:
300 if (emit_string(emitter
, "operation") < 0)
302 if (emit_string(emitter
, pet_op_str(expr
->op
)) < 0)
305 case pet_expr_ternary
:
308 if (emit_string(emitter
, "name") < 0)
310 if (emit_string(emitter
, expr
->name
) < 0)
314 if (emit_string(emitter
, "type_name") < 0)
316 if (emit_string(emitter
, expr
->type_name
) < 0)
321 if (expr
->n_arg
> 0) {
324 if (emit_string(emitter
, "arguments") < 0)
326 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
327 YAML_BLOCK_SEQUENCE_STYLE
))
329 if (!yaml_emitter_emit(emitter
, &event
))
332 for (i
= 0; i
< expr
->n_arg
; ++i
)
333 if (emit_expr(emitter
, expr
->args
[i
]) < 0)
336 if (!yaml_sequence_end_event_initialize(&event
))
338 if (!yaml_emitter_emit(emitter
, &event
))
342 if (!yaml_mapping_end_event_initialize(&event
))
344 if (!yaml_emitter_emit(emitter
, &event
))
350 static int emit_stmt(yaml_emitter_t
*emitter
, struct pet_stmt
*stmt
)
354 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
355 YAML_BLOCK_MAPPING_STYLE
))
357 if (!yaml_emitter_emit(emitter
, &event
))
360 if (emit_string(emitter
, "line") < 0)
362 if (emit_int(emitter
, stmt
->line
) < 0)
365 if (emit_string(emitter
, "domain") < 0)
367 if (emit_set(emitter
, stmt
->domain
) < 0)
370 if (emit_string(emitter
, "schedule") < 0)
372 if (emit_map(emitter
, stmt
->schedule
) < 0)
375 if (emit_string(emitter
, "body") < 0)
377 if (emit_expr(emitter
, stmt
->body
) < 0)
380 if (stmt
->n_arg
> 0) {
383 if (emit_string(emitter
, "arguments") < 0)
385 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
386 YAML_BLOCK_SEQUENCE_STYLE
))
388 if (!yaml_emitter_emit(emitter
, &event
))
391 for (i
= 0; i
< stmt
->n_arg
; ++i
)
392 if (emit_expr(emitter
, stmt
->args
[i
]) < 0)
395 if (!yaml_sequence_end_event_initialize(&event
))
397 if (!yaml_emitter_emit(emitter
, &event
))
401 if (!yaml_mapping_end_event_initialize(&event
))
403 if (!yaml_emitter_emit(emitter
, &event
))
409 static int emit_statements(yaml_emitter_t
*emitter
, int n_stmt
,
410 struct pet_stmt
**stmts
)
415 if (emit_string(emitter
, "statements") < 0)
417 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
418 YAML_BLOCK_SEQUENCE_STYLE
))
420 if (!yaml_emitter_emit(emitter
, &event
))
423 for (i
= 0; i
< n_stmt
; ++i
)
424 if (emit_stmt(emitter
, stmts
[i
]) < 0)
427 if (!yaml_sequence_end_event_initialize(&event
))
429 if (!yaml_emitter_emit(emitter
, &event
))
435 static int emit_scop(yaml_emitter_t
*emitter
, struct pet_scop
*scop
)
439 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
440 YAML_BLOCK_MAPPING_STYLE
))
442 if (!yaml_emitter_emit(emitter
, &event
))
445 if (emit_named_unsigned(emitter
, "start", scop
->start
) < 0)
447 if (emit_named_unsigned(emitter
, "end", scop
->end
) < 0)
449 if (emit_string(emitter
, "context") < 0)
451 if (emit_set(emitter
, scop
->context
) < 0)
453 if (!isl_set_plain_is_universe(scop
->context_value
) &&
454 emit_named_set(emitter
, "context_value", scop
->context_value
) < 0)
457 if (emit_arrays(emitter
, scop
->n_array
, scop
->arrays
) < 0)
460 if (emit_statements(emitter
, scop
->n_stmt
, scop
->stmts
) < 0)
463 if (!yaml_mapping_end_event_initialize(&event
))
465 if (!yaml_emitter_emit(emitter
, &event
))
471 /* Print a YAML serialization of "scop" to "out".
473 int pet_scop_emit(FILE *out
, struct pet_scop
*scop
)
475 yaml_emitter_t emitter
;
478 yaml_emitter_initialize(&emitter
);
480 yaml_emitter_set_output_file(&emitter
, out
);
482 yaml_stream_start_event_initialize(&event
, YAML_UTF8_ENCODING
);
483 if (!yaml_emitter_emit(&emitter
, &event
))
486 if (!yaml_document_start_event_initialize(&event
, NULL
, NULL
, NULL
, 1))
488 if (!yaml_emitter_emit(&emitter
, &event
))
491 if (emit_scop(&emitter
, scop
) < 0)
494 if (!yaml_document_end_event_initialize(&event
, 1))
496 if (!yaml_emitter_emit(&emitter
, &event
))
499 yaml_stream_end_event_initialize(&event
);
500 if (!yaml_emitter_emit(&emitter
, &event
))
503 yaml_emitter_delete(&emitter
);
506 yaml_emitter_delete(&emitter
);