Implement Channel.withEnvironment method

Author: SavchenkoValeriy

Source/Swift/Channel+SwiftCallback+Boilerplate.swift

@@ -120,4 +120,8 @@ extension Channel {
         args: (arg1, arg2, arg3, arg4, arg5))
     }
   }
+
+  public func withEnvironment(_ function: @escaping (Environment) throws -> Void) {
+    register(callback: LazySwiftCallback0(function: function), args: ())
+  }
 }

Test/TestModule/Test.swift

@@ -121,6 +121,15 @@ public func Init(_ runtimePtr: RuntimePointer) -> Int32 {
       (x: PersistentEmacsValue) in persistentArray.append(x)
     }
     try env.defun("swift-get-array") { persistentArray }
+    try env.defun("swift-with-environment") {
+      (callback: PersistentEmacsValue) in
+      Task {
+        channel.withEnvironment {
+          (env:Environment) throws in
+          try env.funcall(callback)
+        }
+      }
+    }
   } catch {
     return 1
   }

Test/swift-module-test.el

@@ -70,10 +70,11 @@
   (should (equal (swift-call-lambda "hello") "Received hello"))
   (should (equal (funcall (swift-get-lambda) "hello") "Received hello")))
 
-(ert-deftest-async swift-module:check-async (done1 done2 done3)
+(ert-deftest-async swift-module:check-async (done1 done2 done3 done4)
   (swift-async-channel done1)
   (swift-async-lisp-callback done2)
-  (swift-async-lisp-callback done3))
+  (swift-async-lisp-callback done3)
+  (swift-with-environment done4))
 
 (ert-deftest swift-module:check-persistence ()
   (mapc (lambda (x) (swift-add-to-array x)) (number-sequence 1 5))