Make initial home path configurable.

Author: objecthub

Sources/LispKit/Primitives/SystemLibrary.swift

@@ -53,7 +53,8 @@ public final class SystemLibrary: NativeLibrary {
   public override func declarations() {
     self.currentDirectoryProc =
       Procedure(.procedure(Procedure("_validCurrentPath", self.validCurrentPath)),
-                .makeString(self.context.fileHandler.currentDirectoryPath))
+                .makeString(self.context.initialHomePath ??
+                            self.context.fileHandler.currentDirectoryPath))
     self.compileAndEvalFirstProc =
       Procedure("_compileAndEvalFirst", self.compileAndEvalFirst)
     self.define("current-directory", as: .procedure(self.currentDirectoryProc))

Sources/LispKit/Runtime/Context.swift

@@ -35,6 +35,9 @@ public final class Context {
   /// Command-line arguments
   public let commandLineArguments: [String]
 
+  /// Initial home path used by the LispKit file system
+  public let initialHomePath: String?
+  
   /// A delegate object which receives updates related to the virtual machine managed by
   /// this context. The virtual machine also delegates some functionality to this object.
   public var delegate: ContextDelegate?
@@ -100,6 +103,7 @@ public final class Context {
               implementationName: String? = nil,
               implementationVersion: String? = nil,
               commandLineArguments: [String]? = nil,
+              initialHomePath: String? = nil,
               includeInternalResources: Bool = true,
               includeDocumentPath: String? = "LispKit",
               delegate: ContextDelegate? = nil) {
@@ -108,6 +112,7 @@ public final class Context {
     self.implementationName = implementationName ?? Context.implementationName
     self.implementationVersion = implementationVersion ?? Context.implementationVersion
     self.commandLineArguments = commandLineArguments ?? CommandLine.arguments
+    self.initialHomePath = initialHomePath
     self.console = console
     self.heap = Heap()
     self.fileHandler = FileHandler(includeInternalResources: includeInternalResources,