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) +
  11                         (n - 1) * sizeof(struct isl_obj));
  12         if (!list)
  13                 return NULL;
  14
  15         list->ctx = ctx;
  16         isl_ctx_ref(list->ctx);
  17         list->ref = 1;
  18         list->n = n;
  19
  20         for (i = 0; i < n; ++i) {
  21                 list->obj[i].type = isl_obj_none;
  22                 list->obj[i].v = NULL;
  23         }
  24
  25         return list;
  26 }
  27
  28 struct isl_list *isl_list_copy(struct isl_list *list)
  29 {
  30         if (!list)
  31                 return NULL;
  32
  33         list->ref++;
  34         return list;
  35 }
  36
  37 void isl_list_free(struct isl_list *list)
  38 {
  39         int i;
  40
  41         if (!list)
  42                 return;
  43
  44         if (--list->ref > 0)
  45                 return;
  46
  47         for (i = 0; i < list->n; ++i)
  48                 list->obj[i].type->free(list->obj[i].v);
  49         isl_ctx_deref(list->ctx);
  50         free(list);
  51 }
  52
  53 static void *isl_obj_list_copy(void *v)
  54 {
  55         return isl_list_copy((struct isl_list *)v);
  56 }
  57
  58 static void isl_obj_list_free(void *v)
  59 {
  60         isl_list_free((struct isl_list *)v);
  61 }
  62
  63 static __isl_give isl_printer *isl_obj_list_print(__isl_take isl_printer *p,
  64         void *v)
  65 {
  66         struct isl_list *list = (struct isl_list *)v;
  67         int i;
  68
  69         isl_printer_print_str(p, "(");
  70         for (i = 0; i < list->n; ++i) {
  71                 if (i)
  72                         isl_printer_print_str(p, ", ");
  73                 list->obj[i].type->print(p, list->obj[i].v);
  74         }
  75         isl_printer_print_str(p, ")");
  76 }
  77
  78 static void *isl_obj_list_add(void *v1, void *v2)
  79 {
  80         int i;
  81         struct isl_list *list1 = (struct isl_list *)v1;
  82         struct isl_list *list2 = (struct isl_list *)v2;
  83         struct isl_list *list;
  84
  85         if (!list1 || !list2)
  86                 goto error;
  87
  88         list = isl_list_alloc(list1->ctx, list1->n + list2->n);
  89         if (!list)
  90                 goto error;
  91
  92         for (i = 0; i < list1->n; ++i) {
  93                 list->obj[i].type = list1->obj[i].type;
  94                 list->obj[i].v = list1->obj[i].type->copy(list1->obj[i].v);
  95         }
  96
  97         for (i = 0; i < list2->n; ++i) {
  98                 list->obj[list1->n + i].type = list2->obj[i].type;
  99                 list->obj[list1->n + i].v = list2->obj[i].type->copy(list2->obj[i].v);
 100         }
 101
 102         isl_list_free(list1);
 103         isl_list_free(list2);
 104
 105         return list;
 106 error:
 107         isl_list_free(list1);
 108         isl_list_free(list2);
 109         return NULL;
 110 }
 111
 112 struct isl_obj_vtable isl_obj_list_vtable = {
 113         isl_obj_list_copy,
 114         isl_obj_list_add,
 115         isl_obj_list_print,
 116         isl_obj_list_free
 117 };