lib/slists.c

   1 /*
   2  *      UCW Library -- Single-Linked Lists
   3  *
   4  *      (c) 2005 Martin Mares <mj@ucw.cz>
   5  *
   6  *      This software may be freely distributed and used according to the terms
   7  *      of the GNU Lesser General Public License.
   8  */
   9
  10 #include "lib/lib.h"
  11 #include "lib/slists.h"
  12
  13 static inline snode *
  14 slist_raw_prev(slist *l, snode *n)
  15 {
  16   snode *m = &l->head;
  17   while (m)
  18     {
  19       if (n == m->next)
  20         return m;
  21       m = m->next;
  22     }
  23   ASSERT(0);
  24 }
  25
  26 void *
  27 slist_prev(slist *l, snode *n)
  28 {
  29   snode *p = slist_raw_prev(l, n);
  30   return (p == &l->head) ? NULL : p;
  31 }
  32
  33 void
  34 slist_insert_before(slist *l, snode *what, snode *before)
  35 {
  36   what->next = before;
  37   slist_raw_prev(l, before)->next = what;
  38 }
  39
  40 void
  41 slist_remove(slist *l, snode *n)
  42 {
  43   snode *p = slist_raw_prev(l, n);
  44   slist_remove_after(l, p);
  45 }
  46
  47 #ifdef TEST
  48
  49 #include <stdio.h>
  50 #include <alloca.h>
  51
  52 int main(void)
  53 {
  54   slist l;
  55
  56   struct x {
  57     snode n;
  58     int val;
  59   };
  60
  61   slist_init(&l);
  62   for (int i=1; i<=10; i++)
  63     {
  64       struct x *x = alloca(sizeof(*x));
  65       x->val = i;
  66       if (i % 2)
  67         slist_add_head(&l, &x->n);
  68       else
  69         slist_add_tail(&l, &x->n);
  70     }
  71
  72   struct x *x, *prev;
  73   SLIST_WALK_DELSAFE(x, l, prev)
  74     if (x->val == 5)
  75       slist_remove_after(&l, &prev->n);
  76     else if (x->val == 6)
  77       slist_remove(&l, &x->n);
  78   SLIST_FOR_EACH(struct x *, x, l)
  79     printf("%d/", x->val);
  80   putchar('\n');
  81 }
  82
  83 #endif