isl_obj_str.c

   1 #include <string.h>
   2 #include <isl_obj_str.h>
   3
   4 __isl_give isl_str *isl_str_alloc(struct isl_ctx *ctx)
   5 {
   6         isl_str *str;
   7
   8         str = isl_alloc_type(ctx, struct isl_str);
   9         if (!str)
  10                 return NULL;
  11
  12         str->ctx = ctx;
  13         isl_ctx_ref(str->ctx);
  14         str->ref = 1;
  15
  16         str->s = NULL;
  17
  18         return str;
  19 }
  20
  21 __isl_give isl_str *isl_str_copy(__isl_keep isl_str *str)
  22 {
  23         if (!str)
  24                 return NULL;
  25
  26         str->ref++;
  27         return str;
  28 }
  29
  30 void isl_str_free(__isl_take isl_str *str)
  31 {
  32         int i;
  33
  34         if (!str)
  35                 return;
  36
  37         if (--str->ref > 0)
  38                 return;
  39
  40         free(str->s);
  41         isl_ctx_deref(str->ctx);
  42         free(str);
  43 }
  44
  45 static void *isl_obj_str_copy(void *v)
  46 {
  47         return isl_str_copy((isl_str *)v);
  48 }
  49
  50 static void isl_obj_str_free(void *v)
  51 {
  52         isl_str_free((isl_str *)v);
  53 }
  54
  55 static __isl_give isl_printer *isl_obj_str_print(__isl_take isl_printer *p,
  56         void *v)
  57 {
  58         isl_str *str = (isl_str *)v;
  59
  60         isl_printer_print_str(p, str->s);
  61 }
  62
  63 __isl_give isl_str *isl_str_concat(__isl_take isl_str *str1,
  64         __isl_take isl_str *str2)
  65 {
  66         int i;
  67         isl_str *str = NULL;
  68         size_t len1, len2;
  69
  70         if (!str1 || !str2)
  71                 goto error;
  72
  73         str = isl_str_alloc(str1->ctx);
  74         if (!str)
  75                 goto error;
  76
  77         len1 = strlen(str1->s);
  78         len2 = strlen(str2->s);
  79         str->s = isl_alloc_array(str1->ctx, char, len1 + len2 + 1);
  80         if (!str->s)
  81                 goto error;
  82
  83         memcpy(str->s, str1->s, len1);
  84         memcpy(str->s + len1, str2->s, len2);
  85         str->s[len1 + len2] = '\0';
  86
  87         isl_str_free(str1);
  88         isl_str_free(str2);
  89
  90         return str;
  91 error:
  92         isl_str_free(str1);
  93         isl_str_free(str2);
  94         isl_str_free(str);
  95         return NULL;
  96 }
  97
  98 static void *isl_obj_str_add(void *v1, void *v2)
  99 {
 100         isl_str *str1 = (isl_str *)v1;
 101         isl_str *str2 = (isl_str *)v2;
 102
 103         return isl_str_concat(str1, str2);
 104 }
 105
 106 struct isl_obj_vtable isl_obj_str_vtable = {
 107         isl_obj_str_copy,
 108         isl_obj_str_add,
 109         isl_obj_str_print,
 110         isl_obj_str_free
 111 };