23 lines · c
1#define xCAT(A,B) A ## B2#define CAT(A,B) xCAT(A,B)3#undef EL4#define EL CAT(isl_,BASE)5#undef PW_BASE6#define PW_BASE CAT(pw_,BASE)7#undef PW8#define PW CAT(isl_,PW_BASE)9#undef UNION_BASE10#define UNION_BASE CAT(union_,PW_BASE)11#undef UNION12#define UNION CAT(isl_,UNION_BASE)13#define xFN(TYPE,NAME) TYPE ## _ ## NAME14#define FN(TYPE,NAME) xFN(TYPE,NAME)15 16/* Create a union piecewise expression17 * with the given base expression on a universe domain.18 */19__isl_give UNION *FN(FN(UNION,from),BASE)(__isl_take EL *el)20{21 return FN(FN(UNION,from),PW_BASE)(FN(FN(PW,from),BASE)(el));22}23