(svn r14153) -Codechange: split ini file reading/saving from settings.cpp.

1 files changed, 257 insertions, 0 deletions

diff --git a/src/ini.cpp b/src/ini.cpp
new file mode 100644
index 000000000..19ed16eae
--- /dev/null
+++ b/src/ini.cpp
@@ -0,0 +1,257 @@
+
+#include "stdafx.h"
+#include "core/alloc_func.hpp"
+#include "core/math_func.hpp"
+#include "debug.h"
+#include "ini_type.h"
+#include "string_func.h"
+
+IniItem::IniItem(IniGroup *parent, const char *name, size_t len) : next(NULL), value(NULL), comment(NULL)
+{
+	if (len == 0) len = strlen(name);
+
+	this->name = strndup(name, len);
+	*parent->last_item = this;
+	parent->last_item = &this->next;
+}
+
+IniItem::~IniItem()
+{
+	free(this->name);
+	free(this->value);
+	free(this->comment);
+
+	delete this->next;
+}
+
+IniGroup::IniGroup(IniFile *parent, const char *name, size_t len) : next(NULL), type(IGT_VARIABLES), item(NULL), comment(NULL)
+{
+	if (len == 0) len = strlen(name);
+
+	this->name = strndup(name, len);
+	this->last_item = &this->item;
+	*parent->last_group = this;
+	parent->last_group = &this->next;
+
+	if (parent->list_group_names == NULL) return;
+
+	for (uint i = 0; parent->list_group_names[i] != NULL; i++) {
+		if (strcmp(this->name, parent->list_group_names[i]) == 0) {
+			this->type = IGT_LIST;
+			return;
+		}
+	}
+}
+
+IniGroup::~IniGroup()
+{
+	free(this->name);
+	free(this->comment);
+
+	delete this->item;
+	delete this->next;
+}
+
+IniItem *IniGroup::GetItem(const char *name, bool create)
+{
+	IniItem *item;
+	size_t len = strlen(name);
+
+	for (item = this->item; item != NULL; item = item->next) {
+		if (strcmp(item->name, name) == 0) return item;
+	}
+
+	if (!create) return NULL;
+
+	/* otherwise make a new one */
+	return new IniItem(this, name, len);
+}
+
+IniFile::IniFile(const char **list_group_names) : group(NULL), comment(NULL), list_group_names(list_group_names)
+{
+	this->last_group = &this->group;
+}
+
+IniFile::~IniFile()
+{
+	free(this->comment);
+	delete this->group;
+}
+
+IniGroup *IniFile::GetGroup(const char *name, size_t len)
+{
+	IniGroup *group;
+
+	if (len == 0) len = strlen(name);
+
+	/* does it exist already? */
+	for (group = this->group; group != NULL; group = group->next) {
+		if (!memcmp(group->name, name, len) && group->name[len] == 0) {
+			return group;
+		}
+	}
+
+	/* otherwise make a new one */
+	group = new IniGroup(this, name, len);
+	group->comment = strdup("\n");
+	return group;
+}
+
+void IniFile::RemoveGroup(const char *name)
+{
+	size_t len = strlen(name);
+	IniGroup *prev = NULL;
+	IniGroup *group;
+
+	/* does it exist already? */
+	for (group = this->group; group != NULL; prev = group, group = group->next) {
+		if (memcmp(group->name, name, len) == 0) {
+			break;
+		}
+	}
+
+	if (group == NULL) return;
+
+	if (prev != NULL) {
+		prev->next = prev->next->next;
+	} else {
+		this->group = this->group->next;
+		prev = this->group;
+	}
+
+	group->next = NULL;
+	delete group;
+}
+
+void IniFile::LoadFromDisk(const char *filename)
+{
+	assert(this->last_group == &this->group);
+
+	char buffer[1024], c, *s, *t, *e;
+	IniGroup *group = NULL;
+	IniItem *item = NULL;
+
+	char *comment = NULL;
+	uint comment_size = 0;
+	uint comment_alloc = 0;
+
+	FILE *in = fopen(filename, "r");
+	if (in == NULL) return;
+
+	/* for each line in the file */
+	while (fgets(buffer, sizeof(buffer), in)) {
+
+		/* trim whitespace from the left side */
+		for (s = buffer; *s == ' ' || *s == '\t'; s++) {}
+
+		/* trim whitespace from right side. */
+		e = s + strlen(s);
+		while (e > s && ((c = e[-1]) == '\n' || c == '\r' || c == ' ' || c == '\t')) e--;
+		*e = '\0';
+
+		/* skip comments and empty lines */
+		if (*s == '#' || *s == ';' || *s == '\0') {
+			uint ns = comment_size + (e - s + 1);
+			uint a = comment_alloc;
+			uint pos;
+			/* add to comment */
+			if (ns > a) {
+				a = max(a, 128U);
+				do a *= 2; while (a < ns);
+				comment = ReallocT(comment, comment_alloc = a);
+			}
+			pos = comment_size;
+			comment_size += (e - s + 1);
+			comment[pos + e - s] = '\n'; // comment newline
+			memcpy(comment + pos, s, e - s); // copy comment contents
+			continue;
+		}
+
+		/* it's a group? */
+		if (s[0] == '[') {
+			if (e[-1] != ']') {
+				ShowInfoF("ini: invalid group name '%s'", buffer);
+			} else {
+				e--;
+			}
+			s++; // skip [
+			group = new IniGroup(this, s, e - s);
+			if (comment_size) {
+				group->comment = strndup(comment, comment_size);
+				comment_size = 0;
+			}
+		} else if (group) {
+			/* find end of keyname */
+			if (*s == '\"') {
+				s++;
+				for (t = s; *t != '\0' && *t != '\"'; t++) {}
+				if (*t == '\"') *t = ' ';
+			} else {
+				for (t = s; *t != '\0' && *t != '=' && *t != '\t' && *t != ' '; t++) {}
+			}
+
+			/* it's an item in an existing group */
+			item = new IniItem(group, s, t-s);
+			if (comment_size) {
+				item->comment = strndup(comment, comment_size);
+				comment_size = 0;
+			}
+
+			/* find start of parameter */
+			while (*t == '=' || *t == ' ' || *t == '\t') t++;
+
+
+			/* remove starting quotation marks */
+			if (*t == '\"') t++;
+			/* remove ending quotation marks */
+			e = t + strlen(t);
+			if (e > t && e[-1] == '\"') e--;
+			*e = '\0';
+
+			item->value = strndup(t, e - t);
+		} else {
+			/* it's an orphan item */
+			ShowInfoF("ini: '%s' outside of group", buffer);
+		}
+	}
+
+	if (comment_size > 0) {
+		this->comment = strndup(comment, comment_size);
+		comment_size = 0;
+	}
+
+	free(comment);
+	fclose(in);
+}
+
+bool IniFile::SaveToDisk(const char *filename)
+{
+	FILE *f;
+	IniGroup *group;
+	IniItem *item;
+
+	f = fopen(filename, "w");
+	if (f == NULL) return false;
+
+	for (group = this->group; group != NULL; group = group->next) {
+		if (group->comment) fputs(group->comment, f);
+		fprintf(f, "[%s]\n", group->name);
+		for (item = group->item; item != NULL; item = item->next) {
+			assert(item->value != NULL);
+			if (item->comment != NULL) fputs(item->comment, f);
+
+			/* protect item->name with quotes if needed */
+			if (strchr(item->name, ' ') != NULL) {
+				fprintf(f, "\"%s\"", item->name);
+			} else {
+				fprintf(f, "%s", item->name);
+			}
+
+			fprintf(f, " = %s\n", item->value);
+		}
+	}
+	if (this->comment) fputs(this->comment, f);
+
+	fclose(f);
+	return true;
+}