1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
/*
* Copyright 2010 INRIA Saclay
*
* Use of this software is governed by the MIT license
*
* Written by Sven Verdoolaege,
* INRIA Saclay - Ile-de-France, Parc Club Orsay Universite,
* ZAC des vignes, 4 rue Jacques Monod, 91893 Orsay, France
*/
#include "isl_union_macro.h"
/* Print "pw" in a sequence of "PART" objects delimited by semicolons.
* Each "PART" object itself is also printed as a semicolon delimited
* sequence of pieces.
* If data->first = 1, then this is the first in the sequence.
* Update data->first to tell the next element that it is not the first.
*/
static isl_stat FN(print_body_wrap,BASE)(__isl_take PART *pw,
void *user)
{
struct isl_union_print_data *data;
data = (struct isl_union_print_data *) user;
if (!data->first)
data->p = isl_printer_print_str(data->p, "; ");
data->first = 0;
data->p = FN(print_body,BASE)(data->p, pw);
FN(PART,free)(pw);
return isl_stat_non_null(data->p);
}
/* Print the body of "u" (everything except the parameter declarations)
* to "p" in isl format.
*/
static __isl_give isl_printer *FN(print_body_union,BASE)(
__isl_take isl_printer *p, __isl_keep UNION *u)
{
struct isl_union_print_data data;
p = isl_printer_print_str(p, s_open_set[0]);
data.p = p;
data.first = 1;
if (FN(FN(UNION,foreach),BASE)(u, &FN(print_body_wrap,BASE), &data) < 0)
data.p = isl_printer_free(data.p);
p = data.p;
p = isl_printer_print_str(p, s_close_set[0]);
return p;
}
/* Print the "UNION" object "u" to "p" in isl format.
*/
static __isl_give isl_printer *FN(FN(print_union,BASE),isl)(
__isl_take isl_printer *p, __isl_keep UNION *u)
{
struct isl_print_space_data space_data = { 0 };
isl_space *space;
space = FN(UNION,get_space)(u);
p = print_param_tuple(p, space, &space_data);
isl_space_free(space);
p = FN(print_body_union,BASE)(p, u);
return p;
}
|
