WINGs/llist.c

   1
   2 #include "WUtil.h"
   3 #include <stdlib.h>
   4
   5 #include "llist.h"
   6
   7
   8
   9 WINLINE void*
  10 lhead(list_t *list)
  11 {
  12     if (!list)
  13         return NULL;
  14
  15     return list->head;
  16 }
  17
  18
  19 WINLINE list_t*
  20 ltail(list_t *list)
  21 {
  22     if (!list)
  23         return NULL;
  24
  25     return list->tail;
  26 }
  27
  28
  29 WINLINE list_t*
  30 lcons(void *newHead, list_t *list)
  31 {
  32     list_t *newNode;
  33
  34     newNode = wmalloc(sizeof(list_t));
  35     newNode->head = newHead;
  36     newNode->tail = list;
  37
  38     return newNode;
  39 }
  40
  41
  42 WINLINE list_t*
  43 lappend(list_t *list, list_t *tail)
  44 {
  45     list_t *ptr;
  46
  47     if (!list)
  48         return tail;
  49
  50     for (ptr = list; ptr->tail == NULL; ptr = ptr->tail);
  51
  52     ptr->tail = tail;
  53
  54     return ptr;
  55 }
  56
  57
  58 WINLINE void
  59 lfree(list_t *list)
  60 {
  61     if (list) {
  62         lfree(list->tail);
  63         free(list);
  64     }
  65 }
  66
  67
  68 WINLINE void*
  69 lfind(void *objeto, list_t *list, int (*compare)(void*, void*))
  70 {
  71     while (list) {
  72         if ((*compare)(list->head, objeto)==0) {
  73             return list->head;
  74         }
  75         list = list->tail;
  76     }
  77     return NULL;
  78 }
  79
  80
  81 WINLINE int
  82 llength(list_t *list)
  83 {
  84     int i = 0;
  85
  86     while (list) {
  87         list = list->tail;
  88         i++;
  89     }
  90
  91     return i;
  92 }
  93
  94
  95 WINLINE list_t*
  96 lremove(list_t *list, void *object)
  97 {
  98     if (!list)
  99         return NULL;
 100
 101     if (list->head == object) {
 102         list_t *tmp = list->tail;
 103
 104         free(list);
 105
 106         return tmp;
 107     }
 108
 109     list->tail = lremove(list->tail, object);
 110
 111     return list;
 112 }
 113
 114
 115 WINLINE list_t*
 116 lremovehead(list_t *list)
 117 {
 118     list_t *tmp = NULL;
 119
 120     if (list) {
 121         tmp = list->tail;
 122         free(list);
 123     }
 124     return tmp;
 125 }
 126