--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lwlib/lw_dict.c	Sun Dec 19 17:01:42 2021 -0700
@@ -0,0 +1,114 @@
+/*
+lw_dict.c
+
+Copyright © 2021 William Astle
+
+This file is part of LWTOOLS.
+
+LWTOOLS is free software: you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation, either version 3 of the License, or (at your option) any later
+version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+more details.
+
+You should have received a copy of the GNU General Public License along with
+this program. If not, see <http://www.gnu.org/licenses/>.
+*/
+
+#include <stdlib.h>
+#include <string.h>
+
+#define ___lw_dict_c_seen___
+#include "lw_dict.h"
+#include "lw_string.h"
+#include "lw_alloc.h"
+
+lw_dict_t lw_dict_create(void)
+{
+	lw_dict_t s;
+	
+	
+	s = lw_alloc(sizeof(struct lw_dict_priv));
+	s -> head = NULL;
+	return s;
+}
+
+void lw_dict_unset(lw_dict_t S, char *key)
+{
+    struct lw_dict_ent *e1, *e2;
+    
+    for (e2 = NULL, e1 = S -> head; e1; )
+    {
+        if (strcmp(key, e1 -> key) == 0)
+            break;
+        e2 = e1;
+        e1 = e1 -> next;
+    }
+    if (!e1)
+        return;
+    if (!e2)
+        S -> head = e1 -> next;
+    else
+        e2 -> next = e1 -> next;
+    lw_free(e1 -> key);
+    lw_free(e1 -> value);
+    lw_free(e1);
+}
+
+void lw_dict_destroy(lw_dict_t S)
+{
+	if (S)
+	{
+	    while (S -> head)
+	        lw_dict_unset(S, S -> head -> key);
+        lw_free(S);
+	}
+}
+
+char *lw_dict_get(lw_dict_t S, char *key)
+{
+    struct lw_dict_ent *e1;
+    
+    for (e1 = S -> head; e1; e1 = e1 -> next)
+        if (strcmp(key, e1 -> key) == 0)
+            break;
+    if (e1)
+        return e1 -> value;
+    return "";
+}
+
+void lw_dict_set(lw_dict_t S, char *key, char *value)
+{
+    struct lw_dict_ent *e1;
+
+    for (e1 = S -> head; e1; e1 = e1 -> next)
+    {
+        if (strcmp(key, e1 -> key) == 0)
+        {
+            lw_free(e1 -> value);
+            e1 -> value = lw_strdup(value);
+            return;
+        }
+    }
+
+    e1 = lw_alloc(sizeof(struct lw_dict_ent));
+    e1 -> next = S -> head;
+    S -> head = e1;
+    e1 -> key = lw_strdup(key);
+    e1 -> value = lw_strdup(value);
+}
+
+lw_dict_t lw_dict_copy(lw_dict_t S)
+{
+    lw_dict_t R;
+    struct lw_dict_ent *e1;
+
+    R = lw_dict_create();
+    for (e1 = S -> head; e1; e1 = e1 -> next)
+        lw_dict_set(R, e1 -> key, e1 -> value);
+    return R;
+}