mono/utils/mono-property-hash.c

   1 /*
   2  * mono-property-hash.c: Hash table for (object, property) pairs
   3  *
   4  * Author:
   5  *      Zoltan Varga (vargaz@gmail.com)
   6  *
   7  * (C) 2008 Novell, Inc
   8  */
   9
  10 #include "mono-property-hash.h"
  11
  12 struct _MonoPropertyHash {
  13         /* We use one hash table per property */
  14         GHashTable *hashes;
  15 };
  16
  17 MonoPropertyHash*
  18 mono_property_hash_new (void)
  19 {
  20         MonoPropertyHash *hash = g_new0 (MonoPropertyHash, 1);
  21
  22         hash->hashes = g_hash_table_new (NULL, NULL);
  23
  24         return hash;
  25 }
  26
  27 static void
  28 free_hash (gpointer key, gpointer value, gpointer user_data)
  29 {
  30         GHashTable *hash = (GHashTable*)value;
  31
  32         g_hash_table_destroy (hash);
  33 }
  34
  35 void
  36 mono_property_hash_destroy (MonoPropertyHash *hash)
  37 {
  38         g_hash_table_foreach (hash->hashes, free_hash, NULL);
  39         g_free (hash);
  40 }
  41
  42 void
  43 mono_property_hash_insert (MonoPropertyHash *hash, gpointer object, guint32 property,
  44                                                    gpointer value)
  45 {
  46         GHashTable *prop_hash;
  47
  48         prop_hash = g_hash_table_lookup (hash->hashes, GUINT_TO_POINTER (property));
  49         if (!prop_hash) {
  50                 // FIXME: Maybe use aligned_hash
  51                 prop_hash = g_hash_table_new (NULL, NULL);
  52                 g_hash_table_insert (hash->hashes, GUINT_TO_POINTER (property), prop_hash);
  53         }
  54
  55         g_hash_table_insert (prop_hash, object, value);
  56 }
  57
  58 static void
  59 remove_object (gpointer key, gpointer value, gpointer user_data)
  60 {
  61         GHashTable *prop_hash = (GHashTable*)value;
  62
  63         g_hash_table_remove (prop_hash, user_data);
  64 }
  65
  66 void
  67 mono_property_hash_remove_object (MonoPropertyHash *hash, gpointer object)
  68 {
  69         g_hash_table_foreach (hash->hashes, remove_object, object);
  70 }
  71
  72 gpointer
  73 mono_property_hash_lookup (MonoPropertyHash *hash, gpointer object, guint32 property)
  74 {
  75         GHashTable *prop_hash;
  76
  77         prop_hash = g_hash_table_lookup (hash->hashes, GUINT_TO_POINTER (property));
  78         if (!prop_hash)
  79                 return NULL;
  80         return g_hash_table_lookup (prop_hash, object);
  81 }
  82