Increase interpreter stack size when run loop is enabled in LispKitRepl.

Author: objecthub

LispKit.xcodeproj/project.xcworkspace/xcshareddata/swiftpm/Package.resolved

@@ -1,5 +1,5 @@
 {
-  "originHash" : "c0cf977fd6347d3cc8de46822359ed43d81d8a9d5f35685d1112a0e50aed672d",
+  "originHash" : "38833ba30b68407110856ab66591f9ae6191d6797e0b3efd94ba0238e342ed30",
   "pins" : [
     {
       "identity" : "bitbytedata",

Makefile

@@ -14,9 +14,9 @@ debug: replinfo
 
 repl: release
 ifeq ($(program),)
-	.build/release/LispKitRepl -r Sources/LispKit/Resources -d LispKit
+	.build/release/LispKitRepl -x -r Sources/LispKit/Resources -d LispKit
 else
-	.build/release/LispKitRepl -r Sources/LispKit/Resources -d LispKit $(program)
+	.build/release/LispKitRepl -x -r Sources/LispKit/Resources -d LispKit $(program)
 endif
 
 release: replinfo

Sources/LispKit/Data/Expr.swift

@@ -554,6 +554,10 @@ public enum Expr: Hashable {
     switch self {
       case .symbol(let sym):
         return .symbol(sym.root)
+      case .pair(let car0, .pair(let car1, .pair(let car2, let cdr))):
+        return .pair(car0.datum, .pair(car1.datum, .pair(car2.datum, cdr.datum)))
+      case .pair(let car0, .pair(let car1, let cdr)):
+        return .pair(car0.datum, .pair(car1.datum, cdr.datum))
       case .pair(let car, let cdr):
         return .pair(car.datum, cdr.datum)
       case .syntax(_, let expr):

Sources/LispKitRepl/AppInfo.swift

@@ -43,7 +43,7 @@ public struct AppInfo {
   public static let buildDate = { () -> String in
     let dateFormatter = DateFormatter()
     dateFormatter.dateFormat = "yyyy-MM-dd HH:mm"
-    return dateFormatter.string(from: Date(timeIntervalSince1970: 1720824594))
+    return dateFormatter.string(from: Date(timeIntervalSince1970: 1721732211))
   }()
   public static let buildAnnotation = " (\(AppInfo.buildDate))"
 }

Sources/LispKitRepl/LispKitRepl.swift

@@ -56,6 +56,9 @@ struct LispKitRepl {
           repl.release()
           exit(succeeded ? 0 : 1)
         }
+        // Set stack size of interpreter thread (12 MByte by default)
+        main.stackSize = (repl.systemStackSize.value ?? (12 * 1024)) * 1024
+        main.qualityOfService = .userInitiated
         main.start()
         RunLoop.current.run()
       } else {

Sources/LispKitTools/LispKitRepl.swift

@@ -55,6 +55,7 @@ open class LispKitRepl {
   public let raw: Option
   public let tabWidth: SingletonArgument<Int>
   public let runloop: Option
+  public let systemStackSize: SingletonArgument<Int>
   public let help: Option
 
   // LispKit setup
@@ -120,6 +121,9 @@ open class LispKitRepl {
                             value: 2)
     self.runloop    = f.option("x", "runloop",
                                description: "Enable runloop, i.e. support asynchronous APIs")
+    self.systemStackSize = f.int("y", "systemstack",
+                                 description: "Stack size (in KB) of interpreter thread " +
+                                              "(if --runloop is used)")
     self.help       = f.option("h", "help",
                                description: "Show description of usage and options of this tools.")
     // Instantiate the terminal