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 /* Print the string "name" and the map "map" to "emitter".
163 static int emit_named_map(yaml_emitter_t
*emitter
, const char *name
,
164 __isl_keep isl_map
*map
)
166 if (emit_string(emitter
, name
) < 0)
168 if (emit_map(emitter
, map
) < 0)
173 /* Print the isl_multi_pw_aff "mpa" to "emitter".
175 static int emit_multi_pw_aff(yaml_emitter_t
*emitter
,
176 __isl_keep isl_multi_pw_aff
*mpa
)
178 isl_ctx
*ctx
= isl_multi_pw_aff_get_ctx(mpa
);
183 p
= isl_printer_to_str(ctx
);
184 p
= isl_printer_print_multi_pw_aff(p
, mpa
);
185 str
= isl_printer_get_str(p
);
187 r
= emit_string(emitter
, str
);
192 /* Print the string "name" and the isl_multi_pw_aff "mpa" to "emitter".
194 static int emit_named_multi_pw_aff(yaml_emitter_t
*emitter
, const char *name
,
195 __isl_keep isl_multi_pw_aff
*mpa
)
197 if (emit_string(emitter
, name
) < 0)
199 if (emit_multi_pw_aff(emitter
, mpa
) < 0)
204 /* Print "type" to "emitter".
206 static int emit_type(yaml_emitter_t
*emitter
, struct pet_type
*type
)
210 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
211 YAML_BLOCK_MAPPING_STYLE
))
213 if (!yaml_emitter_emit(emitter
, &event
))
216 if (emit_string(emitter
, "name") < 0)
218 if (emit_string(emitter
, type
->name
) < 0)
221 if (emit_string(emitter
, "definition") < 0)
223 if (emit_string(emitter
, type
->definition
) < 0)
226 if (!yaml_mapping_end_event_initialize(&event
))
228 if (!yaml_emitter_emit(emitter
, &event
))
234 /* Print the list of "n_type" "types", if any, to "emitter".
236 static int emit_types(yaml_emitter_t
*emitter
, int n_type
,
237 struct pet_type
**types
)
245 if (emit_string(emitter
, "types") < 0)
247 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
248 YAML_BLOCK_SEQUENCE_STYLE
))
250 if (!yaml_emitter_emit(emitter
, &event
))
253 for (i
= 0; i
< n_type
; ++i
)
254 if (emit_type(emitter
, types
[i
]) < 0)
257 if (!yaml_sequence_end_event_initialize(&event
))
259 if (!yaml_emitter_emit(emitter
, &event
))
265 static int emit_array(yaml_emitter_t
*emitter
, struct pet_array
*array
)
269 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
270 YAML_BLOCK_MAPPING_STYLE
))
272 if (!yaml_emitter_emit(emitter
, &event
))
275 if (emit_string(emitter
, "context") < 0)
277 if (emit_set(emitter
, array
->context
) < 0)
280 if (emit_string(emitter
, "extent") < 0)
282 if (emit_set(emitter
, array
->extent
) < 0)
285 if (array
->value_bounds
) {
286 if (emit_string(emitter
, "value_bounds") < 0)
288 if (emit_set(emitter
, array
->value_bounds
) < 0)
292 if (emit_string(emitter
, "element_type") < 0)
294 if (emit_string(emitter
, array
->element_type
) < 0)
296 if (emit_named_int(emitter
, "element_size", array
->element_size
) < 0)
299 if (array
->live_out
) {
300 if (emit_string(emitter
, "live_out") < 0)
302 if (emit_string(emitter
, "1") < 0)
306 if (array
->uniquely_defined
) {
307 if (emit_string(emitter
, "uniquely_defined") < 0)
309 if (emit_string(emitter
, "1") < 0)
313 if (array
->declared
&& emit_named_int(emitter
, "declared", 1) < 0)
315 if (array
->exposed
&& emit_named_int(emitter
, "exposed", 1) < 0)
318 if (!yaml_mapping_end_event_initialize(&event
))
320 if (!yaml_emitter_emit(emitter
, &event
))
326 static int emit_arrays(yaml_emitter_t
*emitter
, int n_array
,
327 struct pet_array
**arrays
)
332 if (emit_string(emitter
, "arrays") < 0)
334 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
335 YAML_BLOCK_SEQUENCE_STYLE
))
337 if (!yaml_emitter_emit(emitter
, &event
))
340 for (i
= 0; i
< n_array
; ++i
)
341 if (emit_array(emitter
, arrays
[i
]) < 0)
344 if (!yaml_sequence_end_event_initialize(&event
))
346 if (!yaml_emitter_emit(emitter
, &event
))
352 static int emit_expr_type(yaml_emitter_t
*emitter
, enum pet_expr_type type
)
354 if (emit_string(emitter
, pet_type_str(type
)) < 0)
359 static int emit_expr(yaml_emitter_t
*emitter
, struct pet_expr
*expr
)
363 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
364 YAML_BLOCK_MAPPING_STYLE
))
366 if (!yaml_emitter_emit(emitter
, &event
))
369 if (emit_string(emitter
, "type") < 0)
371 if (emit_expr_type(emitter
, expr
->type
) < 0)
374 switch (expr
->type
) {
375 case pet_expr_double
:
376 if (emit_string(emitter
, "value") < 0)
378 if (emit_double(emitter
, expr
->d
.val
) < 0)
380 if (emit_string(emitter
, "string") < 0)
382 if (emit_string(emitter
, expr
->d
.s
) < 0)
385 case pet_expr_access
:
386 if (emit_string(emitter
, "relation") < 0)
388 if (emit_map(emitter
, expr
->acc
.access
) < 0)
390 if (emit_named_multi_pw_aff(emitter
,
391 "index", expr
->acc
.index
) < 0)
393 if (expr
->acc
.ref_id
&&
394 emit_named_id(emitter
, "reference", expr
->acc
.ref_id
) < 0)
396 if (emit_string(emitter
, "read") < 0)
398 if (emit_int(emitter
, expr
->acc
.read
) < 0)
400 if (emit_string(emitter
, "write") < 0)
402 if (emit_int(emitter
, expr
->acc
.write
) < 0)
406 case pet_expr_binary
:
407 if (emit_string(emitter
, "operation") < 0)
409 if (emit_string(emitter
, pet_op_str(expr
->op
)) < 0)
412 case pet_expr_ternary
:
415 if (emit_string(emitter
, "name") < 0)
417 if (emit_string(emitter
, expr
->name
) < 0)
421 if (emit_string(emitter
, "type_name") < 0)
423 if (emit_string(emitter
, expr
->type_name
) < 0)
428 if (expr
->n_arg
> 0) {
431 if (emit_string(emitter
, "arguments") < 0)
433 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
434 YAML_BLOCK_SEQUENCE_STYLE
))
436 if (!yaml_emitter_emit(emitter
, &event
))
439 for (i
= 0; i
< expr
->n_arg
; ++i
)
440 if (emit_expr(emitter
, expr
->args
[i
]) < 0)
443 if (!yaml_sequence_end_event_initialize(&event
))
445 if (!yaml_emitter_emit(emitter
, &event
))
449 if (!yaml_mapping_end_event_initialize(&event
))
451 if (!yaml_emitter_emit(emitter
, &event
))
457 static int emit_stmt(yaml_emitter_t
*emitter
, struct pet_stmt
*stmt
)
461 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
462 YAML_BLOCK_MAPPING_STYLE
))
464 if (!yaml_emitter_emit(emitter
, &event
))
467 if (emit_string(emitter
, "line") < 0)
469 if (emit_int(emitter
, stmt
->line
) < 0)
472 if (emit_string(emitter
, "domain") < 0)
474 if (emit_set(emitter
, stmt
->domain
) < 0)
477 if (emit_string(emitter
, "schedule") < 0)
479 if (emit_map(emitter
, stmt
->schedule
) < 0)
482 if (emit_string(emitter
, "body") < 0)
484 if (emit_expr(emitter
, stmt
->body
) < 0)
487 if (stmt
->n_arg
> 0) {
490 if (emit_string(emitter
, "arguments") < 0)
492 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
493 YAML_BLOCK_SEQUENCE_STYLE
))
495 if (!yaml_emitter_emit(emitter
, &event
))
498 for (i
= 0; i
< stmt
->n_arg
; ++i
)
499 if (emit_expr(emitter
, stmt
->args
[i
]) < 0)
502 if (!yaml_sequence_end_event_initialize(&event
))
504 if (!yaml_emitter_emit(emitter
, &event
))
508 if (!yaml_mapping_end_event_initialize(&event
))
510 if (!yaml_emitter_emit(emitter
, &event
))
516 static int emit_statements(yaml_emitter_t
*emitter
, int n_stmt
,
517 struct pet_stmt
**stmts
)
522 if (emit_string(emitter
, "statements") < 0)
524 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
525 YAML_BLOCK_SEQUENCE_STYLE
))
527 if (!yaml_emitter_emit(emitter
, &event
))
530 for (i
= 0; i
< n_stmt
; ++i
)
531 if (emit_stmt(emitter
, stmts
[i
]) < 0)
534 if (!yaml_sequence_end_event_initialize(&event
))
536 if (!yaml_emitter_emit(emitter
, &event
))
542 /* Print "implication" to "emitter".
544 static int emit_implication(yaml_emitter_t
*emitter
,
545 struct pet_implication
*implication
)
549 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
550 YAML_BLOCK_MAPPING_STYLE
))
552 if (!yaml_emitter_emit(emitter
, &event
))
555 if (emit_named_int(emitter
, "satisfied", implication
->satisfied
) < 0)
558 if (emit_named_map(emitter
, "extension", implication
->extension
) < 0)
561 if (!yaml_mapping_end_event_initialize(&event
))
563 if (!yaml_emitter_emit(emitter
, &event
))
569 /* Print the list of "n_implication" "implications", if any, to "emitter".
571 static int emit_implications(yaml_emitter_t
*emitter
, int n_implication
,
572 struct pet_implication
**implications
)
577 if (n_implication
== 0)
580 if (emit_string(emitter
, "implications") < 0)
582 if (!yaml_sequence_start_event_initialize(&event
, NULL
, NULL
, 1,
583 YAML_BLOCK_SEQUENCE_STYLE
))
585 if (!yaml_emitter_emit(emitter
, &event
))
588 for (i
= 0; i
< n_implication
; ++i
)
589 if (emit_implication(emitter
, implications
[i
]) < 0)
592 if (!yaml_sequence_end_event_initialize(&event
))
594 if (!yaml_emitter_emit(emitter
, &event
))
600 static int emit_scop(yaml_emitter_t
*emitter
, struct pet_scop
*scop
)
604 if (!yaml_mapping_start_event_initialize(&event
, NULL
, NULL
, 1,
605 YAML_BLOCK_MAPPING_STYLE
))
607 if (!yaml_emitter_emit(emitter
, &event
))
610 if (emit_named_unsigned(emitter
, "start", scop
->start
) < 0)
612 if (emit_named_unsigned(emitter
, "end", scop
->end
) < 0)
614 if (emit_string(emitter
, "context") < 0)
616 if (emit_set(emitter
, scop
->context
) < 0)
618 if (!isl_set_plain_is_universe(scop
->context_value
) &&
619 emit_named_set(emitter
, "context_value", scop
->context_value
) < 0)
622 if (emit_types(emitter
, scop
->n_type
, scop
->types
) < 0)
624 if (emit_arrays(emitter
, scop
->n_array
, scop
->arrays
) < 0)
627 if (emit_statements(emitter
, scop
->n_stmt
, scop
->stmts
) < 0)
630 if (emit_implications(emitter
, scop
->n_implication
,
631 scop
->implications
) < 0)
634 if (!yaml_mapping_end_event_initialize(&event
))
636 if (!yaml_emitter_emit(emitter
, &event
))
642 /* Print a YAML serialization of "scop" to "out".
644 int pet_scop_emit(FILE *out
, struct pet_scop
*scop
)
646 yaml_emitter_t emitter
;
649 yaml_emitter_initialize(&emitter
);
651 yaml_emitter_set_output_file(&emitter
, out
);
653 yaml_stream_start_event_initialize(&event
, YAML_UTF8_ENCODING
);
654 if (!yaml_emitter_emit(&emitter
, &event
))
657 if (!yaml_document_start_event_initialize(&event
, NULL
, NULL
, NULL
, 1))
659 if (!yaml_emitter_emit(&emitter
, &event
))
662 if (emit_scop(&emitter
, scop
) < 0)
665 if (!yaml_document_end_event_initialize(&event
, 1))
667 if (!yaml_emitter_emit(&emitter
, &event
))
670 yaml_stream_end_event_initialize(&event
);
671 if (!yaml_emitter_emit(&emitter
, &event
))
674 yaml_emitter_delete(&emitter
);
677 yaml_emitter_delete(&emitter
);