X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=isl_union_map.c;h=918fa3c214329918013aeb308d91923afec1b083;hb=dcee7a5eaf6d240d74d14db54f84e1c3d3f0abeb;hp=ec53f9381b0814a502e774775a3107132b5f7cd1;hpb=d38e528da2fad74f81c98dc6cd5cacd9b6bea98b;p=platform%2Fupstream%2Fisl.git diff --git a/isl_union_map.c b/isl_union_map.c index ec53f93..918fa3c 100644 --- a/isl_union_map.c +++ b/isl_union_map.c @@ -8,16 +8,35 @@ * 91893 Orsay, France */ +#define ISL_DIM_H #include #include #include #include #include -#include +#include #include #include -static __isl_give isl_union_map *isl_union_map_alloc(__isl_take isl_dim *dim, +/* Is this union set a parameter domain? + */ +int isl_union_set_is_params(__isl_keep isl_union_set *uset) +{ + isl_set *set; + int params; + + if (!uset) + return -1; + if (uset->table.n != 1) + return 0; + + set = isl_set_from_union_set(isl_union_set_copy(uset)); + params = isl_set_is_params(set); + isl_set_free(set); + return params; +} + +static __isl_give isl_union_map *isl_union_map_alloc(__isl_take isl_space *dim, int size) { isl_union_map *umap; @@ -36,17 +55,17 @@ static __isl_give isl_union_map *isl_union_map_alloc(__isl_take isl_dim *dim, return umap; error: - isl_dim_free(dim); + isl_space_free(dim); isl_union_map_free(umap); return NULL; } -__isl_give isl_union_map *isl_union_map_empty(__isl_take isl_dim *dim) +__isl_give isl_union_map *isl_union_map_empty(__isl_take isl_space *dim) { return isl_union_map_alloc(dim, 16); } -__isl_give isl_union_set *isl_union_set_empty(__isl_take isl_dim *dim) +__isl_give isl_union_set *isl_union_set_empty(__isl_take isl_space *dim) { return isl_union_map_empty(dim); } @@ -61,16 +80,16 @@ isl_ctx *isl_union_set_get_ctx(__isl_keep isl_union_set *uset) return uset ? uset->dim->ctx : NULL; } -__isl_give isl_dim *isl_union_map_get_dim(__isl_keep isl_union_map *umap) +__isl_give isl_space *isl_union_map_get_space(__isl_keep isl_union_map *umap) { if (!umap) return NULL; - return isl_dim_copy(umap->dim); + return isl_space_copy(umap->dim); } -__isl_give isl_dim *isl_union_set_get_dim(__isl_keep isl_union_set *uset) +__isl_give isl_space *isl_union_set_get_space(__isl_keep isl_union_set *uset) { - return isl_union_map_get_dim(uset); + return isl_union_map_get_space(uset); } static int free_umap_entry(void **entry, void *user) @@ -96,7 +115,7 @@ __isl_give isl_union_map *isl_union_map_dup(__isl_keep isl_union_map *umap) if (!umap) return NULL; - dup = isl_union_map_empty(isl_dim_copy(umap->dim)); + dup = isl_union_map_empty(isl_space_copy(umap->dim)); if (isl_union_map_foreach_map(umap, &add_map, &dup) < 0) goto error; return dup; @@ -127,8 +146,8 @@ static int align_entry(void **entry, void *user) isl_reordering *exp; struct isl_union_align *data = user; - exp = isl_reordering_extend_dim(isl_reordering_copy(data->exp), - isl_map_get_dim(map)); + exp = isl_reordering_extend_space(isl_reordering_copy(data->exp), + isl_map_get_space(map)); data->res = isl_union_map_add_map(data->res, isl_map_realign(isl_map_copy(map), exp)); @@ -142,28 +161,24 @@ static int align_entry(void **entry, void *user) * umap that do not appear in model. */ __isl_give isl_union_map *isl_union_map_align_params( - __isl_take isl_union_map *umap, __isl_take isl_dim *model) + __isl_take isl_union_map *umap, __isl_take isl_space *model) { struct isl_union_align data = { NULL, NULL }; if (!umap || !model) goto error; - if (isl_dim_match(umap->dim, isl_dim_param, model, isl_dim_param)) { - isl_dim_free(model); + if (isl_space_match(umap->dim, isl_dim_param, model, isl_dim_param)) { + isl_space_free(model); return umap; } - model = isl_dim_drop(model, isl_dim_in, - 0, isl_dim_size(model, isl_dim_in)); - model = isl_dim_drop(model, isl_dim_out, - 0, isl_dim_size(model, isl_dim_out)); - + model = isl_space_params(model); data.exp = isl_parameter_alignment_reordering(umap->dim, model); if (!data.exp) goto error; - data.res = isl_union_map_alloc(isl_dim_copy(data.exp->dim), + data.res = isl_union_map_alloc(isl_space_copy(data.exp->dim), umap->table.n); if (isl_hash_table_foreach(umap->dim->ctx, &umap->table, &align_entry, &data) < 0) @@ -171,18 +186,18 @@ __isl_give isl_union_map *isl_union_map_align_params( isl_reordering_free(data.exp); isl_union_map_free(umap); - isl_dim_free(model); + isl_space_free(model); return data.res; error: isl_reordering_free(data.exp); isl_union_map_free(umap); isl_union_map_free(data.res); - isl_dim_free(model); + isl_space_free(model); return NULL; } __isl_give isl_union_set *isl_union_set_align_params( - __isl_take isl_union_set *uset, __isl_take isl_dim *model) + __isl_take isl_union_set *uset, __isl_take isl_space *model) { return isl_union_map_align_params(uset, model); } @@ -190,8 +205,8 @@ __isl_give isl_union_set *isl_union_set_align_params( __isl_give isl_union_map *isl_union_map_union(__isl_take isl_union_map *umap1, __isl_take isl_union_map *umap2) { - umap1 = isl_union_map_align_params(umap1, isl_union_map_get_dim(umap2)); - umap2 = isl_union_map_align_params(umap2, isl_union_map_get_dim(umap1)); + umap1 = isl_union_map_align_params(umap1, isl_union_map_get_space(umap2)); + umap2 = isl_union_map_align_params(umap2, isl_union_map_get_space(umap1)); umap1 = isl_union_map_cow(umap1); @@ -241,7 +256,7 @@ void *isl_union_map_free(__isl_take isl_union_map *umap) isl_hash_table_foreach(umap->dim->ctx, &umap->table, &free_umap_entry, NULL); isl_hash_table_clear(&umap->table); - isl_dim_free(umap->dim); + isl_space_free(umap->dim); free(umap); return NULL; } @@ -254,9 +269,9 @@ void *isl_union_set_free(__isl_take isl_union_set *uset) static int has_dim(const void *entry, const void *val) { isl_map *map = (isl_map *)entry; - isl_dim *dim = (isl_dim *)val; + isl_space *dim = (isl_space *)val; - return isl_dim_equal(map->dim, dim); + return isl_space_is_equal(map->dim, dim); } __isl_give isl_union_map *isl_union_map_add_map(__isl_take isl_union_map *umap, @@ -273,9 +288,9 @@ __isl_give isl_union_map *isl_union_map_add_map(__isl_take isl_union_map *umap, return umap; } - if (!isl_dim_match(map->dim, isl_dim_param, umap->dim, isl_dim_param)) { - umap = isl_union_map_align_params(umap, isl_map_get_dim(map)); - map = isl_map_align_params(map, isl_union_map_get_dim(umap)); + if (!isl_space_match(map->dim, isl_dim_param, umap->dim, isl_dim_param)) { + umap = isl_union_map_align_params(umap, isl_map_get_space(map)); + map = isl_map_align_params(map, isl_union_map_get_space(umap)); } umap = isl_union_map_cow(umap); @@ -283,7 +298,7 @@ __isl_give isl_union_map *isl_union_map_add_map(__isl_take isl_union_map *umap, if (!map || !umap) goto error; - hash = isl_dim_get_hash(map->dim); + hash = isl_space_get_hash(map->dim); entry = isl_hash_table_find(umap->dim->ctx, &umap->table, hash, &has_dim, map->dim, 1); if (!entry) @@ -313,15 +328,14 @@ __isl_give isl_union_set *isl_union_set_add_set(__isl_take isl_union_set *uset, __isl_give isl_union_map *isl_union_map_from_map(__isl_take isl_map *map) { - isl_dim *dim; + isl_space *dim; isl_union_map *umap; if (!map) return NULL; - dim = isl_map_get_dim(map); - dim = isl_dim_drop(dim, isl_dim_in, 0, isl_dim_size(dim, isl_dim_in)); - dim = isl_dim_drop(dim, isl_dim_out, 0, isl_dim_size(dim, isl_dim_out)); + dim = isl_map_get_space(map); + dim = isl_space_params(dim); umap = isl_union_map_empty(dim); umap = isl_union_map_add_map(umap, map); @@ -406,7 +420,7 @@ __isl_give isl_set *isl_set_from_union_set(__isl_take isl_union_set *uset) } __isl_give isl_map *isl_union_map_extract_map(__isl_keep isl_union_map *umap, - __isl_take isl_dim *dim) + __isl_take isl_space *dim) { uint32_t hash; struct isl_hash_table_entry *entry; @@ -414,20 +428,20 @@ __isl_give isl_map *isl_union_map_extract_map(__isl_keep isl_union_map *umap, if (!umap || !dim) goto error; - hash = isl_dim_get_hash(dim); + hash = isl_space_get_hash(dim); entry = isl_hash_table_find(umap->dim->ctx, &umap->table, hash, &has_dim, dim, 0); if (!entry) return isl_map_empty(dim); - isl_dim_free(dim); + isl_space_free(dim); return isl_map_copy(entry->data); error: - isl_dim_free(dim); + isl_space_free(dim); return NULL; } __isl_give isl_set *isl_union_set_extract_set(__isl_keep isl_union_set *uset, - __isl_take isl_dim *dim) + __isl_take isl_space *dim) { return (isl_set *)isl_union_map_extract_map(uset, dim); } @@ -435,7 +449,7 @@ __isl_give isl_set *isl_union_set_extract_set(__isl_keep isl_union_set *uset, /* Check if umap contains a map in the given space. */ __isl_give int isl_union_map_contains(__isl_keep isl_union_map *umap, - __isl_keep isl_dim *dim) + __isl_keep isl_space *dim) { uint32_t hash; struct isl_hash_table_entry *entry; @@ -443,14 +457,14 @@ __isl_give int isl_union_map_contains(__isl_keep isl_union_map *umap, if (!umap || !dim) return -1; - hash = isl_dim_get_hash(dim); + hash = isl_space_get_hash(dim); entry = isl_hash_table_find(umap->dim->ctx, &umap->table, hash, &has_dim, dim, 0); return !!entry; } __isl_give int isl_union_set_contains(__isl_keep isl_union_set *uset, - __isl_keep isl_dim *dim) + __isl_keep isl_space *dim) { return isl_union_map_contains(uset, dim); } @@ -497,7 +511,7 @@ static int subtract_entry(void **entry, void *user) struct isl_hash_table_entry *entry2; isl_map *map = *entry; - hash = isl_dim_get_hash(map->dim); + hash = isl_space_get_hash(map->dim); entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, hash, &has_dim, map->dim, 0); map = isl_map_copy(map); @@ -525,14 +539,14 @@ static __isl_give isl_union_map *gen_bin_op(__isl_take isl_union_map *umap1, { struct isl_union_map_gen_bin_data data = { NULL, NULL }; - umap1 = isl_union_map_align_params(umap1, isl_union_map_get_dim(umap2)); - umap2 = isl_union_map_align_params(umap2, isl_union_map_get_dim(umap1)); + umap1 = isl_union_map_align_params(umap1, isl_union_map_get_space(umap2)); + umap2 = isl_union_map_align_params(umap2, isl_union_map_get_space(umap1)); if (!umap1 || !umap2) goto error; data.umap2 = umap2; - data.res = isl_union_map_alloc(isl_dim_copy(umap1->dim), + data.res = isl_union_map_alloc(isl_space_copy(umap1->dim), umap1->table.n); if (isl_hash_table_foreach(umap1->dim->ctx, &umap1->table, fn, &data) < 0) @@ -560,6 +574,84 @@ __isl_give isl_union_set *isl_union_set_subtract( return isl_union_map_subtract(uset1, uset2); } +struct isl_union_map_gen_bin_set_data { + isl_set *set; + isl_union_map *res; +}; + +static int intersect_params_entry(void **entry, void *user) +{ + struct isl_union_map_gen_bin_set_data *data = user; + isl_map *map = *entry; + int empty; + + map = isl_map_copy(map); + map = isl_map_intersect_params(map, isl_set_copy(data->set)); + + empty = isl_map_is_empty(map); + if (empty < 0) { + isl_map_free(map); + return -1; + } + + data->res = isl_union_map_add_map(data->res, map); + + return 0; +} + +static __isl_give isl_union_map *gen_bin_set_op(__isl_take isl_union_map *umap, + __isl_take isl_set *set, int (*fn)(void **, void *)) +{ + struct isl_union_map_gen_bin_set_data data = { NULL, NULL }; + + umap = isl_union_map_align_params(umap, isl_set_get_space(set)); + set = isl_set_align_params(set, isl_union_map_get_space(umap)); + + if (!umap || !set) + goto error; + + data.set = set; + data.res = isl_union_map_alloc(isl_space_copy(umap->dim), + umap->table.n); + if (isl_hash_table_foreach(umap->dim->ctx, &umap->table, + fn, &data) < 0) + goto error; + + isl_union_map_free(umap); + isl_set_free(set); + return data.res; +error: + isl_union_map_free(umap); + isl_set_free(set); + isl_union_map_free(data.res); + return NULL; +} + +__isl_give isl_union_map *isl_union_map_intersect_params( + __isl_take isl_union_map *umap, __isl_take isl_set *set) +{ + return gen_bin_set_op(umap, set, &intersect_params_entry); +} + +__isl_give isl_union_set *isl_union_set_intersect_params( + __isl_take isl_union_set *uset, __isl_take isl_set *set) +{ + return isl_union_map_intersect_params(uset, set); +} + +static __isl_give isl_union_map *union_map_intersect_params( + __isl_take isl_union_map *umap, __isl_take isl_union_set *uset) +{ + return isl_union_map_intersect_params(umap, + isl_set_from_union_set(uset)); +} + +static __isl_give isl_union_map *union_map_gist_params( + __isl_take isl_union_map *umap, __isl_take isl_union_set *uset) +{ + return isl_union_map_gist_params(umap, isl_set_from_union_set(uset)); +} + struct isl_union_map_match_bin_data { isl_union_map *umap2; isl_union_map *res; @@ -574,7 +666,7 @@ static int match_bin_entry(void **entry, void *user) isl_map *map = *entry; int empty; - hash = isl_dim_get_hash(map->dim); + hash = isl_space_get_hash(map->dim); entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, hash, &has_dim, map->dim, 0); if (!entry2) @@ -604,14 +696,14 @@ static __isl_give isl_union_map *match_bin_op(__isl_take isl_union_map *umap1, { struct isl_union_map_match_bin_data data = { NULL, NULL, fn }; - umap1 = isl_union_map_align_params(umap1, isl_union_map_get_dim(umap2)); - umap2 = isl_union_map_align_params(umap2, isl_union_map_get_dim(umap1)); + umap1 = isl_union_map_align_params(umap1, isl_union_map_get_space(umap2)); + umap2 = isl_union_map_align_params(umap2, isl_union_map_get_space(umap1)); if (!umap1 || !umap2) goto error; data.umap2 = umap2; - data.res = isl_union_map_alloc(isl_dim_copy(umap1->dim), + data.res = isl_union_map_alloc(isl_space_copy(umap1->dim), umap1->table.n); if (isl_hash_table_foreach(umap1->dim->ctx, &umap1->table, &match_bin_entry, &data) < 0) @@ -633,10 +725,61 @@ __isl_give isl_union_map *isl_union_map_intersect( return match_bin_op(umap1, umap2, &isl_map_intersect); } +/* Compute the intersection of the two union_sets. + * As a special case, if exactly one of the two union_sets + * is a parameter domain, then intersect the parameter domain + * of the other one with this set. + */ __isl_give isl_union_set *isl_union_set_intersect( __isl_take isl_union_set *uset1, __isl_take isl_union_set *uset2) { + int p1, p2; + + p1 = isl_union_set_is_params(uset1); + p2 = isl_union_set_is_params(uset2); + if (p1 < 0 || p2 < 0) + goto error; + if (!p1 && p2) + return union_map_intersect_params(uset1, uset2); + if (p1 && !p2) + return union_map_intersect_params(uset2, uset1); return isl_union_map_intersect(uset1, uset2); +error: + isl_union_set_free(uset1); + isl_union_set_free(uset2); + return NULL; +} + +static int gist_params_entry(void **entry, void *user) +{ + struct isl_union_map_gen_bin_set_data *data = user; + isl_map *map = *entry; + int empty; + + map = isl_map_copy(map); + map = isl_map_gist_params(map, isl_set_copy(data->set)); + + empty = isl_map_is_empty(map); + if (empty < 0) { + isl_map_free(map); + return -1; + } + + data->res = isl_union_map_add_map(data->res, map); + + return 0; +} + +__isl_give isl_union_map *isl_union_map_gist_params( + __isl_take isl_union_map *umap, __isl_take isl_set *set) +{ + return gen_bin_set_op(umap, set, &gist_params_entry); +} + +__isl_give isl_union_set *isl_union_set_gist_params( + __isl_take isl_union_set *uset, __isl_take isl_set *set) +{ + return isl_union_map_gist_params(uset, set); } __isl_give isl_union_map *isl_union_map_gist(__isl_take isl_union_map *umap, @@ -648,6 +791,8 @@ __isl_give isl_union_map *isl_union_map_gist(__isl_take isl_union_map *umap, __isl_give isl_union_set *isl_union_set_gist(__isl_take isl_union_set *uset, __isl_take isl_union_set *context) { + if (isl_union_set_is_params(context)) + return union_map_gist_params(uset, context); return isl_union_map_gist(uset, context); } @@ -704,16 +849,16 @@ static int intersect_domain_entry(void **entry, void *user) struct isl_union_map_gen_bin_data *data = user; uint32_t hash; struct isl_hash_table_entry *entry2; - isl_dim *dim; + isl_space *dim; isl_map *map = *entry; int empty; - dim = isl_map_get_dim(map); - dim = isl_dim_domain(dim); - hash = isl_dim_get_hash(dim); + dim = isl_map_get_space(map); + dim = isl_space_domain(dim); + hash = isl_space_get_hash(dim); entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, hash, &has_dim, dim, 0); - isl_dim_free(dim); + isl_space_free(dim); if (!entry2) return 0; @@ -735,27 +880,117 @@ static int intersect_domain_entry(void **entry, void *user) return 0; } +/* Intersect the domain of "umap" with "uset". + * If "uset" is a parameters domain, then intersect the parameter + * domain of "umap" with this set. + */ __isl_give isl_union_map *isl_union_map_intersect_domain( __isl_take isl_union_map *umap, __isl_take isl_union_set *uset) { + if (isl_union_set_is_params(uset)) + return union_map_intersect_params(umap, uset); return gen_bin_op(umap, uset, &intersect_domain_entry); } +static int gist_domain_entry(void **entry, void *user) +{ + struct isl_union_map_gen_bin_data *data = user; + uint32_t hash; + struct isl_hash_table_entry *entry2; + isl_space *dim; + isl_map *map = *entry; + int empty; + + dim = isl_map_get_space(map); + dim = isl_space_domain(dim); + hash = isl_space_get_hash(dim); + entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, + hash, &has_dim, dim, 0); + isl_space_free(dim); + if (!entry2) + return 0; + + map = isl_map_copy(map); + map = isl_map_gist_domain(map, isl_set_copy(entry2->data)); + + empty = isl_map_is_empty(map); + if (empty < 0) { + isl_map_free(map); + return -1; + } + + data->res = isl_union_map_add_map(data->res, map); + + return 0; +} + +/* Compute the gist of "umap" with respect to the domain "uset". + * If "uset" is a parameters domain, then compute the gist + * with respect to this parameter domain. + */ +__isl_give isl_union_map *isl_union_map_gist_domain( + __isl_take isl_union_map *umap, __isl_take isl_union_set *uset) +{ + if (isl_union_set_is_params(uset)) + return union_map_gist_params(umap, uset); + return gen_bin_op(umap, uset, &gist_domain_entry); +} + +static int gist_range_entry(void **entry, void *user) +{ + struct isl_union_map_gen_bin_data *data = user; + uint32_t hash; + struct isl_hash_table_entry *entry2; + isl_space *space; + isl_map *map = *entry; + int empty; + + space = isl_map_get_space(map); + space = isl_space_range(space); + hash = isl_space_get_hash(space); + entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, + hash, &has_dim, space, 0); + isl_space_free(space); + if (!entry2) + return 0; + + map = isl_map_copy(map); + map = isl_map_gist_range(map, isl_set_copy(entry2->data)); + + empty = isl_map_is_empty(map); + if (empty < 0) { + isl_map_free(map); + return -1; + } + + data->res = isl_union_map_add_map(data->res, map); + + return 0; +} + +/* Compute the gist of "umap" with respect to the range "uset". + */ +__isl_give isl_union_map *isl_union_map_gist_range( + __isl_take isl_union_map *umap, __isl_take isl_union_set *uset) +{ + return gen_bin_op(umap, uset, &gist_range_entry); +} + static int intersect_range_entry(void **entry, void *user) { struct isl_union_map_gen_bin_data *data = user; uint32_t hash; struct isl_hash_table_entry *entry2; - isl_dim *dim; + isl_space *dim; isl_map *map = *entry; int empty; - dim = isl_map_get_dim(map); - dim = isl_dim_range(dim); - hash = isl_dim_get_hash(dim); + dim = isl_map_get_space(map); + dim = isl_space_range(dim); + hash = isl_space_get_hash(dim); entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, hash, &has_dim, dim, 0); - isl_dim_free(dim); + isl_space_free(dim); if (!entry2) return 0; @@ -796,7 +1031,7 @@ static int apply_range_entry(void **entry, void *user) isl_map *map2 = *entry; int empty; - if (!isl_dim_tuple_match(data->map->dim, isl_dim_out, + if (!isl_space_tuple_match(data->map->dim, isl_dim_out, map2->dim, isl_dim_in)) return 0; @@ -835,14 +1070,14 @@ static __isl_give isl_union_map *bin_op(__isl_take isl_union_map *umap1, { struct isl_union_map_bin_data data = { NULL, NULL, NULL, fn }; - umap1 = isl_union_map_align_params(umap1, isl_union_map_get_dim(umap2)); - umap2 = isl_union_map_align_params(umap2, isl_union_map_get_dim(umap1)); + umap1 = isl_union_map_align_params(umap1, isl_union_map_get_space(umap2)); + umap2 = isl_union_map_align_params(umap2, isl_union_map_get_space(umap1)); if (!umap1 || !umap2) goto error; data.umap2 = umap2; - data.res = isl_union_map_alloc(isl_dim_copy(umap1->dim), + data.res = isl_union_map_alloc(isl_space_copy(umap1->dim), umap1->table.n); if (isl_hash_table_foreach(umap1->dim->ctx, &umap1->table, &bin_entry, &data) < 0) @@ -883,7 +1118,7 @@ static int map_lex_lt_entry(void **entry, void *user) struct isl_union_map_bin_data *data = user; isl_map *map2 = *entry; - if (!isl_dim_tuple_match(data->map->dim, isl_dim_out, + if (!isl_space_tuple_match(data->map->dim, isl_dim_out, map2->dim, isl_dim_out)) return 0; @@ -905,7 +1140,7 @@ static int map_lex_le_entry(void **entry, void *user) struct isl_union_map_bin_data *data = user; isl_map *map2 = *entry; - if (!isl_dim_tuple_match(data->map->dim, isl_dim_out, + if (!isl_space_tuple_match(data->map->dim, isl_dim_out, map2->dim, isl_dim_out)) return 0; @@ -940,10 +1175,22 @@ __isl_give isl_union_map *isl_union_map_product(__isl_take isl_union_map *umap1, return bin_op(umap1, umap2, &product_entry); } +static int set_product_entry(void **entry, void *user) +{ + struct isl_union_map_bin_data *data = user; + isl_set *set2 = *entry; + + set2 = isl_set_product(isl_set_copy(data->map), isl_set_copy(set2)); + + data->res = isl_union_set_add_set(data->res, set2); + + return 0; +} + __isl_give isl_union_set *isl_union_set_product(__isl_take isl_union_set *uset1, __isl_take isl_union_set *uset2) { - return isl_union_map_product(uset1, uset2); + return bin_op(uset1, uset2, &set_product_entry); } static int range_product_entry(void **entry, void *user) @@ -951,7 +1198,7 @@ static int range_product_entry(void **entry, void *user) struct isl_union_map_bin_data *data = user; isl_map *map2 = *entry; - if (!isl_dim_tuple_match(data->map->dim, isl_dim_in, + if (!isl_space_tuple_match(data->map->dim, isl_dim_in, map2->dim, isl_dim_in)) return 0; @@ -974,7 +1221,7 @@ static int flat_range_product_entry(void **entry, void *user) struct isl_union_map_bin_data *data = user; isl_map *map2 = *entry; - if (!isl_dim_tuple_match(data->map->dim, isl_dim_in, + if (!isl_space_tuple_match(data->map->dim, isl_dim_in, map2->dim, isl_dim_in)) return 0; @@ -992,10 +1239,41 @@ __isl_give isl_union_map *isl_union_map_flat_range_product( return bin_op(umap1, umap2, &flat_range_product_entry); } +static __isl_give isl_union_set *cond_un_op(__isl_take isl_union_map *umap, + int (*fn)(void **, void *)) +{ + isl_union_set *res; + + if (!umap) + return NULL; + + res = isl_union_map_alloc(isl_space_copy(umap->dim), umap->table.n); + if (isl_hash_table_foreach(umap->dim->ctx, &umap->table, fn, &res) < 0) + goto error; + + isl_union_map_free(umap); + return res; +error: + isl_union_map_free(umap); + isl_union_set_free(res); + return NULL; +} + +static int from_range_entry(void **entry, void *user) +{ + isl_map *set = *entry; + isl_union_set **res = user; + + *res = isl_union_map_add_map(*res, + isl_map_from_range(isl_set_copy(set))); + + return 0; +} + __isl_give isl_union_map *isl_union_map_from_range( __isl_take isl_union_set *uset) { - return uset; + return cond_un_op(uset, &from_range_entry); } __isl_give isl_union_map *isl_union_map_from_domain( @@ -1201,32 +1479,12 @@ __isl_give isl_union_set *isl_union_set_lexmax( return isl_union_map_lexmax(uset); } -static __isl_give isl_union_set *cond_un_op(__isl_take isl_union_map *umap, - int (*fn)(void **, void *)) -{ - isl_union_set *res; - - if (!umap) - return NULL; - - res = isl_union_map_alloc(isl_dim_copy(umap->dim), umap->table.n); - if (isl_hash_table_foreach(umap->dim->ctx, &umap->table, fn, &res) < 0) - goto error; - - isl_union_map_free(umap); - return res; -error: - isl_union_map_free(umap); - isl_union_set_free(res); - return NULL; -} - static int universe_entry(void **entry, void *user) { isl_map *map = *entry; isl_union_map **res = user; - map = isl_map_universe(isl_map_get_dim(map)); + map = isl_map_universe(isl_map_get_space(map)); *res = isl_union_map_add_map(*res, map); return 0; @@ -1257,6 +1515,37 @@ __isl_give isl_union_map *isl_union_map_reverse(__isl_take isl_union_map *umap) return cond_un_op(umap, &reverse_entry); } +static int params_entry(void **entry, void *user) +{ + isl_map *map = *entry; + isl_union_set **res = user; + + *res = isl_union_set_add_set(*res, isl_map_params(isl_map_copy(map))); + + return 0; +} + +/* Compute the parameter domain of the given union map. + */ +__isl_give isl_set *isl_union_map_params(__isl_take isl_union_map *umap) +{ + int empty; + + empty = isl_union_map_is_empty(umap); + if (empty < 0) + return isl_union_map_free(umap); + if (empty) + return isl_set_empty(isl_union_map_get_space(umap)); + return isl_set_from_union_set(cond_un_op(umap, ¶ms_entry)); +} + +/* Compute the parameter domain of the given union set. + */ +__isl_give isl_set *isl_union_set_params(__isl_take isl_union_set *uset) +{ + return isl_union_map_params(uset); +} + static int domain_entry(void **entry, void *user) { isl_map *map = *entry; @@ -1326,7 +1615,7 @@ static int deltas_entry(void **entry, void *user) isl_map *map = *entry; isl_union_set **res = user; - if (!isl_dim_tuple_match(map->dim, isl_dim_in, map->dim, isl_dim_out)) + if (!isl_space_tuple_match(map->dim, isl_dim_in, map->dim, isl_dim_out)) return 0; *res = isl_union_set_add_set(*res, isl_map_deltas(isl_map_copy(map))); @@ -1344,7 +1633,7 @@ static int deltas_map_entry(void **entry, void *user) isl_map *map = *entry; isl_union_map **res = user; - if (!isl_dim_tuple_match(map->dim, isl_dim_in, map->dim, isl_dim_out)) + if (!isl_space_tuple_match(map->dim, isl_dim_in, map->dim, isl_dim_out)) return 0; *res = isl_union_map_add_map(*res, @@ -1419,7 +1708,7 @@ static int is_subset_entry(void **entry, void *user) struct isl_hash_table_entry *entry2; isl_map *map = *entry; - hash = isl_dim_get_hash(map->dim); + hash = isl_space_get_hash(map->dim); entry2 = isl_hash_table_find(data->umap2->dim->ctx, &data->umap2->table, hash, &has_dim, map->dim, 0); if (!entry2) { @@ -1441,8 +1730,8 @@ int isl_union_map_is_subset(__isl_keep isl_union_map *umap1, umap1 = isl_union_map_copy(umap1); umap2 = isl_union_map_copy(umap2); - umap1 = isl_union_map_align_params(umap1, isl_union_map_get_dim(umap2)); - umap2 = isl_union_map_align_params(umap2, isl_union_map_get_dim(umap1)); + umap1 = isl_union_map_align_params(umap1, isl_union_map_get_space(umap2)); + umap2 = isl_union_map_align_params(umap2, isl_union_map_get_space(umap1)); if (!umap1 || !umap2) goto error; @@ -1537,7 +1826,7 @@ __isl_give isl_basic_map *isl_union_map_sample(__isl_take isl_union_map *umap) goto error; if (!sample) - sample = isl_basic_map_empty(isl_union_map_get_dim(umap)); + sample = isl_basic_map_empty(isl_union_map_get_space(umap)); isl_union_map_free(umap); @@ -1638,16 +1927,16 @@ int isl_union_set_is_empty(__isl_keep isl_union_set *uset) static int is_subset_of_identity(__isl_keep isl_map *map) { int is_subset; - isl_dim *dim; + isl_space *dim; isl_map *id; if (!map) return -1; - if (!isl_dim_tuple_match(map->dim, isl_dim_in, map->dim, isl_dim_out)) + if (!isl_space_tuple_match(map->dim, isl_dim_in, map->dim, isl_dim_out)) return 0; - dim = isl_map_get_dim(map); + dim = isl_map_get_space(map); id = isl_map_identity(dim); is_subset = isl_map_is_subset(map, id); @@ -1781,7 +2070,7 @@ static int plain_injective_on_range(__isl_take isl_union_map *umap, * based on later dimensions. */ static int separates(struct isl_fixed_map *v, int n, - __isl_take isl_dim *dim, int pos, int n_range) + __isl_take isl_space *dim, int pos, int n_range) { int i; @@ -1802,7 +2091,7 @@ static int separates(struct isl_fixed_map *v, int n, if (j == i + 1) continue; - part = isl_union_map_alloc(isl_dim_copy(dim), j - i); + part = isl_union_map_alloc(isl_space_copy(dim), j - i); for (k = i; k < j; ++k) part = isl_union_map_add_map(part, isl_map_copy(v[k].map)); @@ -1816,11 +2105,11 @@ static int separates(struct isl_fixed_map *v, int n, i = j - 1; } - isl_dim_free(dim); + isl_space_free(dim); free_isl_fixed_map_array(v, n); return i + 1 >= n; error: - isl_dim_free(dim); + isl_space_free(dim); free_isl_fixed_map_array(v, n); return -1; } @@ -1861,7 +2150,7 @@ static int plain_injective_on_range(__isl_take isl_union_map *umap, for (data.pos = first; data.pos < n_range; ++data.pos) { int fixed; int injective; - isl_dim *dim; + isl_space *dim; data.n = 0; fixed = union_map_forall_user(umap, &fixed_at_pos, &data); @@ -1869,7 +2158,7 @@ static int plain_injective_on_range(__isl_take isl_union_map *umap, goto error; if (!fixed) continue; - dim = isl_union_map_get_dim(umap); + dim = isl_union_map_get_space(umap); injective = separates(data.v, n, dim, data.pos, n_range); isl_union_map_free(umap); return injective; @@ -1986,14 +2275,14 @@ __isl_give isl_union_set *isl_union_set_coefficients( __isl_take isl_union_set *uset) { isl_ctx *ctx; - isl_dim *dim; + isl_space *dim; isl_union_set *res; if (!uset) return NULL; ctx = isl_union_set_get_ctx(uset); - dim = isl_dim_set_alloc(ctx, 0, 0); + dim = isl_space_set_alloc(ctx, 0, 0); res = isl_union_map_alloc(dim, uset->table.n); if (isl_hash_table_foreach(uset->dim->ctx, &uset->table, &coefficients_entry, &res) < 0) @@ -2034,7 +2323,7 @@ __isl_give isl_union_set *isl_union_set_solutions( return NULL; if (uset->table.n == 0) { - res = isl_union_set_empty(isl_union_set_get_dim(uset)); + res = isl_union_set_empty(isl_union_set_get_space(uset)); isl_union_set_free(uset); return res; }