First cut of adding a default file name

The default file name is OS specific and tries to follow the customs on
each of the OSs. It can be configured through the preferences dialog.

On MacOS we get a strange warning which appears to be a well documented
Gtk bug on MacOS.

Signed-off-by: Dirk Hohndel <dirk@hohndel.org>

1 files changed, 24 insertions, 0 deletions

diff --git a/windows.c b/windows.c
index 29ef6122e..87bcaf6bd 100644
--- a/windows.c
+++ b/windows.c
@@ -1,7 +1,9 @@
 /* windows.c */
 /* implements Windows specific functions */
+#include "dive.h"
 #include "display-gtk.h"
 #include <windows.h>
+#include <shlobj.h>
 #define DIVELIST_DEFAULT_FONT "Sans 8"
 
 static HKEY hkey;
@@ -93,6 +95,28 @@ const char *subsurface_icon_name()
 	return "subsurface.ico";
 }
 
+const char *subsurface_default_filename()
+{
+	if (default_filename) {
+		return default_filename;
+	} else {
+		char datapath[MAX_PATH];
+		const char *user;
+		char *buffer;
+		int len;
+
+		user = g_get_user_name();
+		if (! SUCCEEDED(SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, datapath))) {
+			datapath[0] = '.';
+			datapath[1] = '\0';
+		}
+		len = strlen(datapath) + strlen(user) + 17;
+		buffer = malloc(len);
+		snprintf(buffer, len, "%s\\Subsurface\\%s.xml", datapath, user);
+		return buffer;
+	}
+}
+
 void subsurface_ui_setup(GtkSettings *settings, GtkWidget *menubar,
 		GtkWidget *vbox, GtkUIManager *ui_manager)
 {