utils/Burg/list.c

   1 char rcsid_list[] = "$Id$";
   2
   3 #include "b.h"
   4
   5 IntList
   6 newIntList(x, next) int x; IntList next;
   7 {
   8   IntList l;
   9
  10   l = (IntList) zalloc(sizeof(*l));
  11   assert(l);
  12   l->x = x;
  13   l->next = next;
  14
  15   return l;
  16 }
  17
  18 List
  19 newList(x, next) void *x; List next;
  20 {
  21   List l;
  22
  23   l = (List) zalloc(sizeof(*l));
  24   assert(l);
  25   l->x = x;
  26   l->next = next;
  27
  28   return l;
  29 }
  30
  31 List
  32 appendList(x, l) void *x; List l;
  33 {
  34   List last;
  35   List p;
  36
  37   last = 0;
  38   for (p = l; p; p = p->next) {
  39     last = p;
  40   }
  41   if (last) {
  42     last->next = newList(x, 0);
  43     return l;
  44   } else {
  45     return newList(x, 0);
  46   }
  47 }
  48
  49 void
  50 foreachList(f, l) ListFn f; List l;
  51 {
  52   for (; l; l = l->next) {
  53     (*f)(l->x);
  54   }
  55 }
  56
  57 void
  58 reveachList(f, l) ListFn f; List l;
  59 {
  60   if (l) {
  61     reveachList(f, l->next);
  62     (*f)(l->x);
  63   }
  64 }
  65
  66 int
  67 length(l) List l;
  68 {
  69   int c = 0;
  70
  71   for(; l; l = l->next) {
  72     c++;
  73   }
  74   return c;
  75 }