[Gd-chatter] r10746 - trunk/fundev/sources/lib/build-system

[andreas at gwydiondylan.org]

Author: andreas
Date: Fri May 19 13:14:27 2006
New Revision: 10746

Modified:
   trunk/fundev/sources/lib/build-system/paths.dylan
Log:
job: fd

Store application data in a saner place:

"$(APPDATA)\Open Dylan" on Win32

"~/Open Dylan" on Unixen.

Modified: trunk/fundev/sources/lib/build-system/paths.dylan
==============================================================================
--- trunk/fundev/sources/lib/build-system/paths.dylan	(original)
+++ trunk/fundev/sources/lib/build-system/paths.dylan	Fri May 19 13:14:27 2006
@@ -132,5 +132,12 @@
 define function user-root-path()
  => (path :: <directory-locator>);
   let path = read-environment-variable("OPEN_DYLAN_USER_ROOT");
-  as(<directory-locator>, path | home-directory())
+  let default = 
+    subdirectory-locator(
+      if ($os-name == #"win32")
+      as(<directory-locator>, read-environment-variable("APPDATA"))
+    else
+      home-directory()
+    end, "Open Dylan");
+  (path & as(<directory-locator>, path)) | default;
 end;