Initial revision

WINGs/userdefaults.c

@@ -0,0 +1,420 @@
+
+#include <stdlib.h>
+#include <strings.h>
+#include <stdio.h>
+#include <assert.h>
+
+#include "WUtil.h"
+
+#include <proplist.h>
+
+
+typedef struct W_UserDefaults {
+    proplist_t defaults;
+    
+    proplist_t appDomain;
+
+    proplist_t searchListArray;
+    proplist_t *searchList;	       /* cache for searchListArray */
+
+    char dirty;
+
+} UserDefaults;
+
+
+static UserDefaults *sharedUserDefaults = NULL;
+
+extern char *WMGetApplicationName();
+
+#define DEFAULTS_DIR "/Defaults"
+
+
+char*
+wusergnusteppath()
+{
+    char *path;
+    char *gspath;
+    int pathlen;
+
+    gspath = getenv("GNUSTEP_USER_ROOT");
+    if (gspath) {
+	gspath = wexpandpath(gspath);
+	pathlen = strlen(gspath) + 4;
+	path = wmalloc(pathlen);
+	strcpy(path, gspath);
+	free(gspath);
+    } else {
+	pathlen = strlen(wgethomedir()) + 10;
+	path = wmalloc(pathlen);
+	strcpy(path, wgethomedir());
+	strcat(path, "/GNUstep");
+    }
+
+    return path;
+}
+
+
+char*
+wdefaultspathfordomain(char *domain)
+{
+    char *path;
+    char *gspath;
+
+    gspath = wusergnusteppath();
+    path = wmalloc(strlen(gspath)+strlen(DEFAULTS_DIR)+strlen(domain)+4);
+    strcpy(path, gspath);
+    free(gspath);
+    strcat(path, DEFAULTS_DIR);
+    strcat(path, "/");
+    strcat(path, domain);
+
+    return path;
+}
+
+
+static void
+saveDefaultsChanges(void)
+{
+    if (sharedUserDefaults && sharedUserDefaults->dirty) {
+	PLSave(sharedUserDefaults->appDomain, YES);
+    }
+}
+
+
+WMUserDefaults*
+WMGetStandardUserDefaults(void)
+{    
+    if (!sharedUserDefaults) {
+	WMUserDefaults *defaults;
+	
+	proplist_t domain;
+	proplist_t key;
+	char *path;
+	int i;
+
+	defaults = wmalloc(sizeof(WMUserDefaults));
+	memset(defaults, 0, sizeof(WMUserDefaults));
+
+	defaults->defaults = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
+
+	defaults->searchList = wmalloc(sizeof(proplist_t)*3);
+	
+	/* application domain */
+	key = PLMakeString(WMGetApplicationName());
+	defaults->searchList[0] = key;
+
+	/* temporary kluge */
+	if (strcmp(WMGetApplicationName(), "WindowMaker")==0) {
+	    domain = NULL;
+ 	    path = NULL;
+	} else {
+	    path = wdefaultspathfordomain(PLGetString(key));
+	
+	    domain = PLGetProplistWithPath(path);
+	}
+	if (!domain) {
+	    proplist_t p;
+
+	    domain = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
+	    if (path) {
+		p = PLMakeString(path);
+		PLSetFilename(domain, p);
+		PLRelease(p);
+	    }
+	}
+	if (path)
+	    free(path);
+
+	defaults->appDomain = domain;
+
+	if (domain)
+	    PLInsertDictionaryEntry(defaults->defaults, key, domain);
+
+	PLRelease(key);
+
+	/* global domain */
+	key = PLMakeString("WMGLOBAL");
+	defaults->searchList[1] = key;
+
+	path = wdefaultspathfordomain(PLGetString(key));
+
+	domain = PLGetProplistWithPath(path);
+    
+	free(path);
+
+	if (!domain)
+	    domain = PLMakeDictionaryFromEntries(NULL, NULL, NULL);
+
+	if (domain)
+	    PLInsertDictionaryEntry(defaults->defaults, key, domain);
+
+	PLRelease(key);
+	
+	/* terminate list */
+	defaults->searchList[2] = NULL;
+
+	defaults->searchListArray=PLMakeArrayFromElements(NULL,NULL);
+	
+
+	i = 0;
+	while (defaults->searchList[i]) {
+	    PLAppendArrayElement(defaults->searchListArray, 
+				 defaults->searchList[i]);
+	    i++;
+	}
+
+	sharedUserDefaults = defaults;
+	
+	/* set to save changes in defaults when program is exited */
+	atexit(saveDefaultsChanges);
+    }
+
+    return sharedUserDefaults;
+}
+
+
+
+proplist_t
+WMGetUDObjectForKey(WMUserDefaults *database, char *defaultName)
+{
+    proplist_t domainName, domain;
+    proplist_t object = NULL;
+    proplist_t key = PLMakeString(defaultName);
+    int i = 0;
+    
+    while (database->searchList[i] && !object) {
+	domainName = database->searchList[i];
+	domain = PLGetDictionaryEntry(database->defaults, domainName);
+	if (domain) {
+	    object = PLGetDictionaryEntry(domain, key);
+	}
+	i++;
+    }
+    PLRelease(key);
+    
+    return object;
+}
+
+
+void
+WMSetUDObjectForKey(WMUserDefaults *database, proplist_t object,
+		    char *defaultName)
+{
+    proplist_t key = PLMakeString(defaultName);
+
+    database->dirty = 1;
+
+    PLInsertDictionaryEntry(database->appDomain, key, object);
+    PLRelease(key);
+}
+
+
+void
+WMRemoveUDObjectForKey(WMUserDefaults *database, char *defaultName)
+{
+    proplist_t key = PLMakeString(defaultName);
+
+    database->dirty = 1;
+
+    PLRemoveDictionaryEntry(database->appDomain, key);
+    
+    PLRelease(key);
+}
+
+
+char*
+WMGetUDStringForKey(WMUserDefaults *database, char *defaultName)
+{
+    proplist_t val;
+    
+    val = WMGetUDObjectForKey(database, defaultName);
+
+    if (!val)
+	return NULL;
+
+    if (!PLIsString(val))
+	return NULL;
+
+    return wstrdup(PLGetString(val));
+}
+
+
+int
+WMGetUDIntegerForKey(WMUserDefaults *database, char *defaultName)
+{
+    proplist_t val;
+    char *str;
+    int value;
+
+    val = WMGetUDObjectForKey(database, defaultName);
+    
+    if (!val)
+	return 0;
+
+    if (!PLIsString(val))
+	return 0;
+    
+    str = PLGetString(val);
+    if (!str)
+	return 0;
+    
+    if (sscanf(str, "%i", &value)!=1)
+	return 0;
+
+    return value;
+}
+
+
+
+int
+WMGetUDFloatForKey(WMUserDefaults *database, char *defaultName)
+{
+    proplist_t val;
+    char *str;
+    float value;
+
+    val = WMGetUDObjectForKey(database, defaultName);
+    
+    if (!val)
+	return 0.0;
+
+    if (!PLIsString(val))
+	return 0.0;
+    
+    str = PLGetString(val);
+    if (!str)
+	return 0.0;
+    
+    if (sscanf(str, "%f", &value)!=1)
+	return 0.0;
+
+    return value;
+}
+
+
+
+Bool
+WMGetUDBoolForKey(WMUserDefaults *database, char *defaultName)
+{
+    proplist_t val;
+    int value;
+    char *str;
+
+    val = WMGetUDObjectForKey(database, defaultName);
+    
+    if (!val)
+	return False;
+
+    if (!PLIsString(val))
+	return False;
+    
+    str = PLGetString(val);
+    if (!str)
+	return False;
+    
+    if (sscanf(str, "%i", &value)==1 && value!=0)
+	return True;
+
+    if (strcasecmp(str, "YES")==0)
+	return True;
+
+    if (strcasecmp(str, "Y")==0)
+	return True;
+
+    return False;
+}
+
+
+void
+WMSetUDIntegerForKey(WMUserDefaults *database, int value, char *defaultName)
+{
+    proplist_t object;
+    char buffer[128];
+
+    sprintf(buffer, "%i", value);
+    object = PLMakeString(buffer);
+ 
+    WMSetUDObjectForKey(database, object, defaultName);
+    PLRelease(object);
+}
+
+
+
+
+void
+WMSetUDStringForKey(WMUserDefaults *database, char *value, char *defaultName)
+{
+    proplist_t object;
+
+    object = PLMakeString(value);
+
+    WMSetUDObjectForKey(database, object, defaultName);
+    PLRelease(object);
+}
+
+
+
+void
+WMSetUDFloatForKey(WMUserDefaults *database, float value, char *defaultName)
+{
+    proplist_t object;
+    char buffer[128];
+
+    sprintf(buffer, "%f", value);
+    object = PLMakeString(buffer);
+
+    WMSetUDObjectForKey(database, object, defaultName);
+    PLRelease(object);
+}
+
+
+
+void
+WMSetUDBoolForKey(WMUserDefaults *database, Bool value, char *defaultName)
+{
+    static proplist_t yes = NULL, no = NULL;
+
+    if (!yes) {
+	yes = PLMakeString("YES");
+	no = PLMakeString("NO");
+    }
+
+    WMSetUDObjectForKey(database, value ? yes : no, defaultName);
+}
+
+
+proplist_t
+WMGetUDSearchList(WMUserDefaults *database)
+{
+    return database->searchListArray;
+}
+
+
+void
+WMSetUDSearchList(WMUserDefaults *database, proplist_t list)
+{
+    int i, c;
+    
+    if (database->searchList) {
+	i = 0;
+	while (database->searchList[i]) {
+	    PLRelease(database->searchList[i]);
+	    i++;
+	}
+	free(database->searchList);
+    }
+    if (database->searchListArray) {
+	PLRelease(database->searchListArray);
+    }
+
+    c = PLGetNumberOfElements(list);
+    database->searchList = wmalloc(sizeof(proplist_t)*(c+1));
+
+    for (i=0; i<c; i++) {
+	database->searchList[i] = PLGetArrayElement(list, i);
+    }
+    
+    database->searchListArray = PLDeepCopy(list);
+}
+
+