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 void isl_obj_list_print(void *v, FILE *out)
  64 {
  65         struct isl_list *list = (struct isl_list *)v;
  66         int i;
  67
  68         fprintf(out, "(");
  69         for (i = 0; i < list->n; ++i) {
  70                 if (i)
  71                         fprintf(out, ", ");
  72                 list->obj[i].type->print(list->obj[i].v, out);
  73         }
  74         fprintf(out, ")");
  75 }
  76
  77 static void *isl_obj_list_add(void *v1, void *v2)
  78 {
  79         int i;
  80         struct isl_list *list1 = (struct isl_list *)v1;
  81         struct isl_list *list2 = (struct isl_list *)v2;
  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 struct isl_obj_vtable isl_obj_list_vtable = {
 112         isl_obj_list_copy,
 113         isl_obj_list_add,
 114         isl_obj_list_print,
 115         isl_obj_list_free
 116 };