isl_obj_list.c

   1 #include <isl_obj_list.h>
   2
   3 struct isl_list *isl_list_alloc(struct isl_ctx *ctx, int n)
   4 {
   5         int i;
   6         struct isl_list *list;
   7
   8         isl_assert(ctx, n >= 0, return NULL);
   9         list = isl_alloc(ctx, struct isl_list,
  10                         sizeof(struct isl_list) + n * sizeof(struct isl_obj));
  11         if (!list)
  12                 return NULL;
  13
  14         list->ctx = ctx;
  15         isl_ctx_ref(list->ctx);
  16         list->ref = 1;
  17         list->n = n;
  18
  19         for (i = 0; i < n; ++i) {
  20                 list->obj[i].type = isl_obj_none;
  21                 list->obj[i].v = NULL;
  22         }
  23
  24         return list;
  25 }
  26
  27 struct isl_list *isl_list_copy(struct isl_list *list)
  28 {
  29         if (!list)
  30                 return NULL;
  31
  32         list->ref++;
  33         return list;
  34 }
  35
  36 void isl_list_free(struct isl_list *list)
  37 {
  38         int i;
  39
  40         if (!list)
  41                 return;
  42
  43         if (--list->ref > 0)
  44                 return;
  45
  46         for (i = 0; i < list->n; ++i)
  47                 list->obj[i].type->free(list->obj[i].v);
  48         isl_ctx_deref(list->ctx);
  49         free(list);
  50 }
  51
  52 static void *isl_obj_list_copy(void *v)
  53 {
  54         return isl_list_copy((struct isl_list *)v);
  55 }
  56
  57 static void isl_obj_list_free(void *v)
  58 {
  59         isl_list_free((struct isl_list *)v);
  60 }
  61
  62 static __isl_give isl_printer *isl_obj_list_print(__isl_take isl_printer *p,
  63         void *v)
  64 {
  65         struct isl_list *list = (struct isl_list *)v;
  66         int i;
  67
  68         p = isl_printer_print_str(p, "(");
  69         for (i = 0; i < list->n; ++i) {
  70                 if (i)
  71                         p = isl_printer_print_str(p, ", ");
  72                 p = list->obj[i].type->print(p, list->obj[i].v);
  73         }
  74         p = isl_printer_print_str(p, ")");
  75         return p;
  76 }
  77
  78 __isl_give isl_list *isl_list_concat(__isl_take isl_list *list1,
  79         __isl_take isl_list *list2)
  80 {
  81         int i;
  82         struct isl_list *list;
  83
  84         if (!list1 || !list2)
  85                 goto error;
  86
  87         list = isl_list_alloc(list1->ctx, list1->n + list2->n);
  88         if (!list)
  89                 goto error;
  90
  91         for (i = 0; i < list1->n; ++i) {
  92                 list->obj[i].type = list1->obj[i].type;
  93                 list->obj[i].v = list1->obj[i].type->copy(list1->obj[i].v);
  94         }
  95
  96         for (i = 0; i < list2->n; ++i) {
  97                 list->obj[list1->n + i].type = list2->obj[i].type;
  98                 list->obj[list1->n + i].v = list2->obj[i].type->copy(list2->obj[i].v);
  99         }
 100
 101         isl_list_free(list1);
 102         isl_list_free(list2);
 103
 104         return list;
 105 error:
 106         isl_list_free(list1);
 107         isl_list_free(list2);
 108         return NULL;
 109 }
 110
 111 __isl_give isl_list *isl_list_add_obj(__isl_take isl_list *list,
 112         __isl_take struct isl_obj obj)
 113 {
 114         struct isl_list *new_list;
 115
 116         if (!list || !obj.v)
 117                 goto error;
 118
 119         new_list = isl_realloc(list->ctx, list, struct isl_list,
 120                         sizeof(struct isl_list) +
 121                         (list->n + 1) * sizeof(struct isl_obj));
 122         if (!new_list)
 123                 goto error;
 124
 125         list = new_list;
 126         list->obj[list->n] = obj;
 127         list->n++;
 128
 129         return list;
 130 error:
 131         obj.type->free(obj.v);
 132         isl_list_free(list);
 133         return NULL;
 134 }
 135
 136 static void *isl_obj_list_add(void *v1, void *v2)
 137 {
 138         struct isl_list *list1 = (struct isl_list *)v1;
 139         struct isl_list *list2 = (struct isl_list *)v2;
 140
 141         return isl_list_concat(list1, list2);
 142 }
 143
 144 struct isl_obj_vtable isl_obj_list_vtable = {
 145         isl_obj_list_copy,
 146         isl_obj_list_add,
 147         isl_obj_list_print,
 148         isl_obj_list_free
 149 };