Initial commit.

1 files changed, 109 insertions, 0 deletions

diff --git a/src/salis.c b/src/salis.c
new file mode 100644
index 0000000..1aae1fa
--- /dev/null
+++ b/src/salis.c
@@ -0,0 +1,109 @@
+#include <assert.h>
+#include <stdio.h>
+#include "getter.h"
+#include "salis.h"
+
+static boolean g_is_init;
+static uint32 g_cycle;
+static uint32 g_epoch;
+
+void sal_main_init(uint32 order, string pipe)
+{
+	/* Initialize all Salis modules to their initial states. We pass along any
+	arguments to their respective modules.
+	*/
+	assert(!g_is_init);
+	_sal_mem_init(order);
+	_sal_comm_init(pipe);
+	_sal_evo_init();
+	_sal_proc_init();
+	g_is_init = TRUE;
+}
+
+void sal_main_quit(void)
+{
+	/* Reset Salis and all of its modules back to zero. We may, thus, shutdown
+	Salis and re-initialize it with different parameters without having to
+	reload the library (useful, for example, when running data gathering
+	scripts that must iterate through many save files).
+	*/
+	assert(g_is_init);
+	_sal_proc_quit();
+	_sal_evo_quit();
+	_sal_comm_quit();
+	_sal_mem_quit();
+	g_is_init = FALSE;
+	g_cycle = 0;
+	g_epoch = 0;
+}
+
+void sal_main_load(string file_name, string pipe)
+{
+	/* Load simulation state from file. This file must have been created by
+	'sal_main_save()'. File name of common pipe must also be provided.
+	*/
+	FILE *file;
+	assert(!g_is_init);
+	assert(file_name);
+	file = fopen(file_name, "rb");
+	assert(file);
+	fread(&g_is_init, sizeof(boolean), 1, file);
+	fread(&g_cycle, sizeof(uint32), 1, file);
+	fread(&g_epoch, sizeof(uint32), 1, file);
+	_sal_mem_load_from(file);
+	_sal_evo_load_from(file);
+	_sal_proc_load_from(file);
+	fclose(file);
+	_sal_comm_init(pipe);
+}
+
+void sal_main_save(string file_name)
+{
+	/* Save simulation state to a file. This file may later be re-loaded with
+	'sal_main_load()'. We save in binary format (to save space), which means
+	save files might not be entirely portable.
+	*/
+	FILE *file;
+	assert(g_is_init);
+	assert(file_name);
+	file = fopen(file_name, "wb");
+	assert(file);
+	fwrite(&g_is_init, sizeof(boolean), 1, file);
+	fwrite(&g_cycle, sizeof(uint32), 1, file);
+	fwrite(&g_epoch, sizeof(uint32), 1, file);
+	_sal_mem_save_into(file);
+	_sal_evo_save_into(file);
+	_sal_proc_save_into(file);
+	fclose(file);
+}
+
+boolean sal_main_is_init(void)
+{
+	/* Check if Salis is currently initialized/running.
+	*/
+	return g_is_init;
+}
+
+/* Getter methods for the Salis main module.
+*/
+UINT32_GETTER(main, cycle)
+UINT32_GETTER(main, epoch)
+
+void sal_main_cycle(void)
+{
+	/* Cycle the Salis simulator once. The combination of a cycle * epoch
+	counter allows us to track simulations for an insane period of time
+	(2^64 cycles).
+	*/
+	g_cycle++;
+
+	if (!g_cycle) {
+		g_epoch++;
+	}
+
+	/* Cycle all of the Salis modules.
+	*/
+	_sal_mem_cycle();
+	_sal_evo_cycle();
+	_sal_proc_cycle();
+}