lib/object.c

   1 /*
   2  *      Sherlock Library -- Object Functions
   3  *
   4  *      (c) 1997--2004 Martin Mares <mj@ucw.cz>
   5  *      (c) 2004 Robert Spalek <robert@ucw.cz>
   6  *
   7  *      This software may be freely distributed and used according to the terms
   8  *      of the GNU Lesser General Public License.
   9  */
  10
  11 #include "lib/lib.h"
  12 #include "lib/pools.h"
  13 #include "lib/fastbuf.h"
  14 #include "lib/object.h"
  15
  16 #include <string.h>
  17 #include <stdio.h>
  18
  19 void
  20 obj_dump(struct odes *o)
  21 {
  22   for(struct oattr *a=o->attrs; a; a=a->next)
  23     for(struct oattr *b=a; b; b=b->same)
  24       printf("%c%s\n", (a==b ? a->attr : ' '), b->val);
  25 }
  26
  27 static struct oattr *
  28 oa_new(struct odes *o, uns x, byte *v)
  29 {
  30   struct oattr *a = mp_alloc(o->pool, sizeof(struct oattr) + strlen(v)+1);
  31
  32   a->next = a->same = NULL;
  33   a->attr = x;
  34   a->val = (byte*) (a+1);
  35   strcpy(a->val, v);
  36   return a;
  37 }
  38
  39 static struct oattr *
  40 oa_new_ref(struct odes *o, uns x, byte *v)
  41 {
  42   struct oattr *a = mp_alloc(o->pool, sizeof(struct oattr));
  43
  44   a->next = a->same = NULL;
  45   a->attr = x;
  46   a->val = v;
  47   return a;
  48 }
  49
  50 struct odes *
  51 obj_new(struct mempool *pool)
  52 {
  53   struct odes *o = mp_alloc(pool, sizeof(struct odes));
  54   o->pool = pool;
  55   o->attrs = NULL;
  56   o->cached_attr = NULL;
  57   return o;
  58 }
  59
  60 struct oattr *
  61 obj_find_attr(struct odes *o, uns x)
  62 {
  63   struct oattr *a;
  64   for(a=o->attrs; a && a->attr != x; a=a->next)
  65     ;
  66   return a;
  67 }
  68
  69 struct oattr *
  70 obj_find_attr_last(struct odes *o, uns x)
  71 {
  72   struct oattr *a = obj_find_attr(o, x);
  73
  74   if (a)
  75     {
  76       while (a->same)
  77         a = a->same;
  78     }
  79   return a;
  80 }
  81
  82 uns
  83 obj_del_attr(struct odes *o, struct oattr *a)
  84 {
  85   struct oattr *x, **p, *y, *l;
  86   byte aa = a->attr;
  87
  88   o->cached_attr = NULL;
  89   p = &o->attrs;
  90   while (x = *p)
  91     {
  92       if (x->attr == aa)
  93         {
  94           y = x;
  95           l = NULL;
  96           while (x = *p)
  97             {
  98               if (x == a)
  99                 {
 100                   *p = x->same;
 101                   return 1;
 102                 }
 103               p = &x->same;
 104               l = x;
 105             }
 106           return 0;
 107         }
 108       p = &x->next;
 109     }
 110   return 0;
 111 }
 112
 113 byte *
 114 obj_find_aval(struct odes *o, uns x)
 115 {
 116   struct oattr *a = obj_find_attr(o, x);
 117   return a ? a->val : NULL;
 118 }
 119
 120 struct oattr *
 121 obj_set_attr(struct odes *o, uns x, byte *v)
 122 {
 123   struct oattr *a, **z;
 124
 125   z = &o->attrs;
 126   while (a = *z)
 127     {
 128       if (a->attr == x)
 129         {
 130           *z = a->next;
 131           goto set;
 132         }
 133       z = &a->next;
 134     }
 135
 136  set:
 137   if (v)
 138     {
 139       a = oa_new(o, x, v);
 140       a->next = o->attrs;
 141       o->attrs = a;
 142     }
 143   else
 144     a = NULL;
 145   o->cached_attr = a;
 146   return a;
 147 }
 148
 149 struct oattr *
 150 obj_set_attr_num(struct odes *o, uns a, uns v)
 151 {
 152   byte x[32];
 153
 154   sprintf(x, "%d", v);
 155   return obj_set_attr(o, a, x);
 156 }
 157
 158 static inline struct oattr *
 159 obj_add_attr_internal(struct odes *o, struct oattr *b)
 160 {
 161   struct oattr *a;
 162
 163   if (!(a = o->cached_attr) || a->attr != b->attr)
 164     {
 165       if (!(a = obj_find_attr(o, b->attr)))
 166         {
 167           b->next = o->attrs;
 168           o->attrs = b;
 169           goto done;
 170         }
 171     }
 172   while (a->same)
 173     a = a->same;
 174   a->same = b;
 175  done:
 176   o->cached_attr = b;
 177   return b;
 178 }
 179
 180 struct oattr *
 181 obj_add_attr(struct odes *o, uns x, byte *v)
 182 {
 183   return obj_add_attr_internal(o, oa_new(o, x, v));
 184 }
 185
 186 struct oattr *
 187 obj_add_attr_ref(struct odes *o, uns x, byte *v)
 188 {
 189   return obj_add_attr_internal(o, oa_new_ref(o, x, v));
 190 }
 191
 192 struct oattr *
 193 obj_prepend_attr(struct odes *o, uns x, byte *v)
 194 {
 195   struct oattr *a, *b, **z;
 196
 197   b = oa_new(o, x, v);
 198   z = &o->attrs;
 199   while (a = *z)
 200     {
 201       if (a->attr == x)
 202         {
 203           b->same = a;
 204           b->next = a->next;
 205           a->next = NULL;
 206           *z = b;
 207           return b;
 208         }
 209       z = &a->next;
 210     }
 211   b->next = o->attrs;
 212   o->attrs = b;
 213   return b;
 214 }
 215
 216 struct oattr *
 217 obj_insert_attr(struct odes *o, struct oattr *first, struct oattr *after, byte *v)
 218 {
 219   struct oattr *b = oa_new(o, first->attr, v);
 220   b->same = after->same;
 221   after->same = b;
 222   return b;
 223 }
 224
 225 void
 226 obj_move_attr_to_head(struct odes *o, uns x)
 227 {
 228   struct oattr *a, **z;
 229
 230   z = &o->attrs;
 231   while (a = *z)
 232     {
 233       if (a->attr == x)
 234         {
 235           *z = a->next;
 236           a->next = o->attrs;
 237           o->attrs = a;
 238           break;
 239         }
 240       z = &a->next;
 241     }
 242 }
 243
 244 void
 245 obj_move_attr_to_tail(struct odes *o, uns x)
 246 {
 247   struct oattr *a, **z;
 248
 249   z = &o->attrs;
 250   while (a = *z)
 251     {
 252       if (a->attr == x)
 253         {
 254           *z = a->next;
 255           while (*z)
 256             z = &(*z)->next;
 257           *z = a;
 258           a->next = NULL;
 259           break;
 260         }
 261       z = &a->next;
 262     }
 263 }