Lua: Add string_list for dynamic string lists

1 files changed, 40 insertions, 0 deletions

diff --git a/src/string_list.c b/src/string_list.c
new file mode 100644
index 00000000..b39ecd6f
--- /dev/null
+++ b/src/string_list.c
@@ -0,0 +1,40 @@
+#include "angband.h"
+
+int compare_string_list(string_list *a, string_list *b)
+{
+	if (a == b)
+	{
+		return 0;
+	}
+
+	return strcmp(a->s, b->s);
+}
+
+SGLIB_DEFINE_LIST_FUNCTIONS(string_list, compare_string_list, next);
+
+/*
+ * Initialize a string_list value. Copies the input string.
+ */
+void string_list_init(string_list *sl, cptr s)
+{
+	assert(sl != NULL);
+
+	sl->s = string_make(s);
+	sl->next = NULL;
+}
+
+/*
+ * Destroy string_value.
+ */
+void string_list_destroy(string_list *sl)
+{
+	assert(sl != NULL);
+
+	if (sl->s) {
+		string_free(sl->s);
+		sl->s = NULL;
+	}
+
+	/* We do NOT free the rest of the list. */
+	sl->next = NULL;
+}