1 files changed, 147 insertions, 0 deletions
diff --git a/lassi-order.c b/lassi-order.c
new file mode 100644
index 0000000..ceeb3f1
--- /dev/null
+++ b/lassi-order.c
@@ -0,0 +1,147 @@
+#include <string.h>
+
+#include <glib.h>
+
+#include "lassi-order.h"
+
+int lassi_list_compare(GList *i, GList *j) {
+    
+    for (; i && j; i = i->next, j = j->next) {
+        int c;
+
+        c = strcmp(i->data, j->data);
+
+        if (c)
+            return c;
+
+    }
+
+    if (i)
+        return 1;
+
+    if (j)
+        return -1;
+
+    return 0;
+}
+
+gboolean lassi_list_nodups(GList *l) {
+    GList *i, *j;
+
+    for (i = l; i; i = i->next)
+        for (j = i->next; j; j = j->next)
+            if (strcmp(i->data, j->data) == 0)
+                return FALSE;
+
+    return TRUE;
+}
+
+GList *lassi_list_merge(GList *a, GList *b) {
+    GList *ia, *ib, *p, *c, *d;
+
+    g_assert(lassi_list_nodups(a));
+    g_assert(lassi_list_nodups(b));
+
+    p = b;
+
+    for (ia = a; ia; ia = ia->next) {
+
+        for (ib = p; ib; ib = ib->next) {
+
+            if (strcmp(ia->data, ib->data) == 0) {
+                
+                /* Found a common entry, hence copy everything since
+                 * the last one we found from b to a */
+
+                for (c = p; c != ib; c = c->next) {
+
+                    /* Before we copy, make sure this entry is not yet
+                     * in a */
+
+                    for (d = a; d; d = d->next)
+                        if (strcmp(c->data, d->data) == 0)
+                            break;
+
+                    if (!d)
+                        /* OK, This one is new, let's copy it */
+
+                        a = g_list_insert_before(a, ia, g_strdup(c->data));
+                }
+
+                p = ib->next;
+            }
+        }
+    }
+
+    /* Copy the tail */
+    for (c = p; c; c = c->next) {
+
+        for (d = a; d; d = d->next)
+            if (strcmp(c->data, d->data) == 0)
+                break;
+        
+        if (!d)
+            a = g_list_append(a, g_strdup(c->data));
+    }
+
+    g_assert(lassi_list_nodups(a));
+    
+    return a;
+}
+
+GList* lassi_list_copy(GList *l) {
+    GList *r = NULL;
+
+    for (; l; l = l->next)
+        r = g_list_prepend(r, g_strdup(l->data));
+    
+    return g_list_reverse(r);
+}
+
+void lassi_list_free(GList *i) {
+    while (i) {
+        g_free(i->data);
+        i = i->next;
+    }
+}
+
+
+#if 0
+
+int main(int argc, char *argv[]) {
+    GList *a = NULL, *b = NULL, *c = NULL, *d = NULL, *i;
+
+    
+    a = g_list_append(a, "eins");
+    a = g_list_append(a, "zwei");
+    a = g_list_append(a, "vier");
+    a = g_list_append(a, "fünf");
+    a = g_list_append(a, "sechs");
+    a = g_list_append(a, "acht");
+
+    b = g_list_append(b, "eins");
+    b = g_list_append(b, "zwei");
+    b = g_list_append(b, "drei");
+    b = g_list_append(b, "vier");
+    b = g_list_append(b, "sechs");
+    b = g_list_append(b, "acht");
+
+    c = g_list_append(c, "eins");
+    c = g_list_append(c, "sieben");
+    c = g_list_append(c, "acht");
+
+    d = g_list_append(d, "drei");
+    d = g_list_append(d, "neun");
+    d = g_list_append(d, "zwei");
+    
+    a = lassi_list_merge(a, b);
+    a = lassi_list_merge(a, c);
+    a = lassi_list_merge(a, d);
+
+    for (i = a; i; i = i->next)
+        g_debug("%s", (char*) i->data);
+
+    return 0;
+}
+
+#endif