isl_name.c

   1 /*
   2  * Copyright 2008-2009 Katholieke Universiteit Leuven
   3  *
   4  * Use of this software is governed by the GNU LGPLv2.1 license
   5  *
   6  * Written by Sven Verdoolaege, K.U.Leuven, Departement
   7  * Computerwetenschappen, Celestijnenlaan 200A, B-3001 Leuven, Belgium
   8  */
   9
  10 #include <string.h>
  11 #include "isl_name.h"
  12
  13 struct isl_name *isl_name_alloc(struct isl_ctx *ctx, const char *s)
  14 {
  15         const char *copy = strdup(s);
  16         struct isl_name *name;
  17
  18         if (!copy)
  19                 return NULL;
  20         name = isl_alloc_type(ctx, struct isl_name);
  21         if (!name)
  22                 return NULL;
  23
  24         name->ref = 1;
  25         name->name = copy;
  26
  27         return name;
  28 }
  29
  30 static int isl_name_has_name(const void *entry, const void *val)
  31 {
  32         struct isl_name *name = (struct isl_name *)entry;
  33         const char *s = (const char *)val;
  34
  35         return !strcmp(name->name, s);
  36 }
  37
  38 struct isl_name *isl_name_get(struct isl_ctx *ctx, const char *name)
  39 {
  40         struct isl_hash_table_entry *entry;
  41         uint32_t name_hash;
  42
  43         name_hash = isl_hash_string(isl_hash_init(), name);
  44         entry = isl_hash_table_find(ctx, &ctx->name_hash, name_hash,
  45                                         isl_name_has_name, name, 1);
  46         if (!entry)
  47                 return NULL;
  48         if (entry->data)
  49                 return isl_name_copy(ctx, entry->data);
  50         entry->data = isl_name_alloc(ctx, name);
  51         if (!entry->data)
  52                 ctx->name_hash.n--;
  53         return entry->data;
  54 }
  55
  56 struct isl_name *isl_name_copy(struct isl_ctx *ctx, struct isl_name *name)
  57 {
  58         if (!name)
  59                 return NULL;
  60
  61         name->ref++;
  62         return name;
  63 }
  64
  65 static int isl_name_eq(const void *entry, const void *name)
  66 {
  67         return entry == name;
  68 }
  69
  70 void isl_name_free(struct isl_ctx *ctx, struct isl_name *name)
  71 {
  72         uint32_t name_hash;
  73         struct isl_hash_table_entry *entry;
  74
  75         if (!name)
  76                 return;
  77
  78         if (--name->ref > 0)
  79                 return;
  80
  81         name_hash = isl_hash_string(isl_hash_init(), name->name);
  82         entry = isl_hash_table_find(ctx, &ctx->name_hash, name_hash,
  83                                         isl_name_eq, name, 0);
  84         isl_assert(ctx, entry, return);
  85         isl_hash_table_remove(ctx, &ctx->name_hash, entry);
  86
  87         free((char *)name->name);
  88         free(name);
  89 }