silentbob/gclib/src/dhash.cxx

   1 /*
   2  * (c) Oleg Puchinin 2005,2006
   3  * graycardinalster@gmail.com
   4  *
   5  * June 2006 - [DEPRECATED] Use EHash instead.
   6  */
   7
   8 #include <gclib/gclib.h>
   9 #include <gclib/gclib_c.h>
  10
  11 DHash::DHash (int asize)
  12 {
  13         if (asize)
  14                 size = asize;
  15         else
  16                 size = 256;
  17
  18         keys = CNEW(char *, size);
  19         values = CNEW(char *, size);
  20         types = CNEW(int, size);
  21         memset (keys, 0, sizeof (char *) * size);
  22         memset (values, 0, sizeof (char *) * size);
  23         memset (types, 0, (sizeof (int)) * size);
  24 }
  25
  26 DHash::~DHash ()
  27 {
  28         int i;
  29
  30         for (i = 0; i < size; i++) {
  31                 if (keys[i] != NULL)
  32                         free (keys[i]);
  33         }
  34         DROP (keys);
  35         DROP (values);
  36         DROP (types);
  37 }
  38
  39 bool DHash::set (char * KEY, char * VALUE, int TYPE)
  40 {
  41         int i;
  42
  43         for (i = 0; i < size; i++) {
  44                 if (keys[i] && EQ (keys[i], KEY)) {
  45                         values[i] = VALUE;
  46                         types[i] = TYPE;
  47                         return true;
  48                 }
  49         }
  50
  51         for (i = 0; i < size; i++) {
  52                 if (keys[i] == NULL) {
  53                         keys[i] = strdup (KEY);
  54                         values[i] = VALUE;
  55                         types[i] = TYPE;
  56                         return true;
  57                 }
  58         }
  59
  60         return false;
  61 }
  62
  63 bool DHash::set (char * KEY, long VALUE, int TYPE)
  64 {
  65         return set (KEY, LPCHAR (VALUE), DHASH_INT);
  66 }
  67
  68 char * DHash::get (char * KEY)
  69 {
  70         int i;
  71
  72         for (i = 0; i < size; i++) {
  73                 if (keys[i] && EQ (keys[i], KEY)) {
  74                         return values[i];
  75                 }
  76         }
  77
  78         return NULL;
  79 }
  80
  81 char * DHash::del (char * KEY)
  82 {
  83         int i;
  84
  85         for (i = 0; i < size; i++) {
  86                 if (keys[i] && EQ (keys[i], KEY)) {
  87                         keys[i] = NULL;
  88                         return values[i];
  89                 }
  90         }
  91
  92         return NULL;
  93 }
  94
  95 void DHash::foreach (Dhash_f func)
  96 {
  97         int i;
  98
  99         for (i = 0; i < size; i++)
 100                 func (keys[i], values[i]);
 101 }
 102
 103 int DHash::from_file (char *f_name)
 104 {
 105         FILE * f;
 106         char * m_buf;
 107         char * d_key;
 108         char * d_set;
 109
 110         m_buf = CNEW (char, 4096);
 111         f = fopen (f_name, "r");
 112         if (! f)
 113                 return -1;
 114
 115         while (true) {
 116                 if (fgets (m_buf, 256, f) == NULL)
 117                         break;
 118
 119                 if (m_buf[0] == '#')
 120                         continue;
 121
 122                 chomp (m_buf);
 123                 d_key = strchr (m_buf, '=');
 124                 if (! d_key)
 125                         continue;
 126
 127                 d_set = d_key;
 128                 *d_set = '\0';
 129                 while ((*(--d_key) == ' ' || *d_key == '\t')
 130                                 && d_key != m_buf)
 131                         *d_key = '\0';
 132
 133                 while (*(++d_set) && (*d_set == ' ' || *d_set == '\t'));
 134
 135                 set (m_buf, strdup (d_set));
 136         }
 137
 138         fclose (f);
 139         DROP (m_buf);
 140         return 0;
 141 }