Implement grecs_list_compare; other minor fixes.

* src/grecs.hin (grecs_list_compare)
(grecs_node_unlink): New protos.
* src/list.c (grecs_list_compare): New function.
* src/wordsplit.c (wordsplit_getwords): Word count is size_t
* src/wordsplit.h (wordsplit_getwords): Fix proto.

1 files changed, 25 insertions, 0 deletions

diff --git a/src/list.c b/src/list.c
index 2d57fe0..f6aa6ad 100644
--- a/src/list.c
+++ b/src/list.c
@@ -200,3 +200,28 @@ grecs_list_index(struct grecs_list *lp, size_t idx)
 	return ep ? ep->data : NULL;
 }
 
+int
+grecs_list_compare(struct grecs_list *a, struct grecs_list *b)
+{
+	struct grecs_list_entry *ap, *bp;
+	int (*cmp)(const void *, const void *);
+
+	if (!a)
+		return !!b;
+	else if (!b)
+		return 1;
+	
+	if (grecs_list_size(a) != grecs_list_size(b))
+		return 1;
+	if (a->cmp != b->cmp)
+		return 1;
+	
+	cmp = a->cmp ? a->cmp : _ptrcmp;
+	
+	for (ap = a->head, bp = b->head; ap; ap = ap->next, bp = bp->next)
+		if (cmp (ap->data, bp->data))
+			return 1;
+	
+	return 0;
+}
+