0.51.1 pre snapshot. Be careful, it may be buggy. It fixes some bugs though.

WINGs/llist.c

@@ -0,0 +1,126 @@
+
+#include "WUtil.h"
+#include <stdlib.h>
+
+#include "llist.h"
+
+
+
+WINLINE void*
+lhead(list_t *list)
+{
+    if (!list)
+	return NULL;
+
+    return list->head;
+}
+
+
+WINLINE list_t*
+ltail(list_t *list)
+{
+    if (!list)
+	return NULL;
+
+    return list->tail;
+}
+
+
+WINLINE list_t*
+lcons(void *newHead, list_t *list)
+{
+    list_t *newNode;
+
+    newNode = wmalloc(sizeof(list_t));
+    newNode->head = newHead;
+    newNode->tail = list;
+
+    return newNode;
+}
+
+
+WINLINE list_t*
+lappend(list_t *list, list_t *tail)
+{
+    list_t *ptr;
+
+    if (!list)
+	return tail;
+
+    for (ptr = list; ptr->tail == NULL; ptr = ptr->tail);
+
+    ptr->tail = tail;
+
+    return ptr;
+}
+
+
+WINLINE void
+lfree(list_t *list)
+{
+    if (list) {
+	lfree(list->tail);
+	free(list);
+    }
+}
+
+
+WINLINE void*
+lfind(void *objeto, list_t *list, int (*compare)(void*, void*))
+{
+    while (list) {
+	if ((*compare)(list->head, objeto)==0) {
+	    return list->head;
+	}
+	list = list->tail;
+    }
+    return NULL;
+}
+
+
+WINLINE int
+llength(list_t *list)
+{
+    int i = 0;
+
+    while (list) {
+	list = list->tail;
+	i++;
+    }
+	
+    return i;
+}
+
+
+WINLINE list_t*
+lremove(list_t *list, void *object)
+{
+    if (!list)
+	return NULL;
+
+    if (list->head == object) {
+	list_t *tmp = list->tail;
+
+	free(list);
+
+	return tmp;
+    }
+
+    list->tail = lremove(list->tail, object);
+
+    return list;
+}
+
+
+WINLINE list_t*
+lremovehead(list_t *list)
+{
+    list_t *tmp = NULL;
+    
+    if (list) {
+	tmp = list->tail;
+	free(list);
+    }
+    return tmp;
+}
+