add isl_basic_set_set_tuple_name

Signed-off-by: Sven Verdoolaege <skimo@kotnet.org>

diff --git a/doc/user.pod b/doc/user.pod
index e75f48f..0c3d38d 100644 (file)
--- a/doc/user.pod
+++ b/doc/user.pod
@@ -1219,10 +1219,12 @@ and should be a permutation of C<isl_dim_cst>, C<isl_dim_param>,
 C<isl_dim_in>, C<isl_dim_out> and C<isl_dim_div>.
 
 The names of the domain and range spaces of a set or relation can be
-read off using the following functions.
+read off or set using the following functions.
 
        const char *isl_basic_set_get_tuple_name(
                __isl_keep isl_basic_set *bset);
+       __isl_give isl_basic_set *isl_basic_set_set_tuple_name(
+               __isl_take isl_basic_set *set, const char *s);
        const char *isl_set_get_tuple_name(
                __isl_keep isl_set *set);
        const char *isl_basic_map_get_tuple_name(

diff --git a/include/isl/set.h b/include/isl/set.h
index 2dc97d4..864e847 100644 (file)
--- a/include/isl/set.h
+++ b/include/isl/set.h
@@ -45,6 +45,8 @@ __isl_give isl_local_space *isl_basic_set_get_local_space(
 
 const char *isl_basic_set_get_tuple_name(__isl_keep isl_basic_set *bset);
 const char *isl_set_get_tuple_name(__isl_keep isl_set *set);
+__isl_give isl_basic_set *isl_basic_set_set_tuple_name(
+       __isl_take isl_basic_set *set, const char *s);
 __isl_give isl_set *isl_set_set_tuple_name(__isl_take isl_set *set,
        const char *s);
 const char *isl_basic_set_get_dim_name(__isl_keep isl_basic_set *bset,

diff --git a/isl_map.c b/isl_map.c
index fc2be4a..afc284d 100644 (file)
--- a/isl_map.c
+++ b/isl_map.c
@@ -349,6 +349,12 @@ error:
        return NULL;
 }
 
+__isl_give isl_basic_set *isl_basic_set_set_tuple_name(
+       __isl_take isl_basic_set *bset, const char *s)
+{
+       return isl_basic_map_set_tuple_name(bset, isl_dim_set, s);
+}
+
 const char *isl_basic_map_get_tuple_name(__isl_keep isl_basic_map *bmap,
        enum isl_dim_type type)
 {