add isl_morph_dom_dim and isl_morph_ran_dim

diff --git a/isl_morph.c b/isl_morph.c
index 80ec05a..c557718 100644 (file)
--- a/isl_morph.c
+++ b/isl_morph.c
@@ -95,6 +95,22 @@ __isl_give isl_dim *isl_morph_get_ran_dim(__isl_keep isl_morph *morph)
        return isl_dim_copy(morph->ran->dim);
 }
 
+unsigned isl_morph_dom_dim(__isl_keep isl_morph *morph, enum isl_dim_type type)
+{
+       if (!morph)
+               return 0;
+
+       return isl_basic_set_dim(morph->dom, type);
+}
+
+unsigned isl_morph_ran_dim(__isl_keep isl_morph *morph, enum isl_dim_type type)
+{
+       if (!morph)
+               return 0;
+
+       return isl_basic_set_dim(morph->ran, type);
+}
+
 __isl_give isl_morph *isl_morph_remove_dom_dims(__isl_take isl_morph *morph,
        enum isl_dim_type type, unsigned first, unsigned n)
 {

diff --git a/isl_morph.h b/isl_morph.h
index 4ab41dd..4e04ca7 100644 (file)
--- a/isl_morph.h
+++ b/isl_morph.h
@@ -43,6 +43,8 @@ __isl_give isl_morph *isl_morph_identity(__isl_keep isl_basic_set *bset);
 void isl_morph_free(__isl_take isl_morph *morph);
 
 __isl_give isl_dim *isl_morph_get_ran_dim(__isl_keep isl_morph *morph);
+unsigned isl_morph_dom_dim(__isl_keep isl_morph *morph, enum isl_dim_type type);
+unsigned isl_morph_ran_dim(__isl_keep isl_morph *morph, enum isl_dim_type type);
 
 __isl_give isl_morph *isl_morph_remove_dom_dims(__isl_take isl_morph *morph,
        enum isl_dim_type type, unsigned first, unsigned n);