namespaces - clojure - 不同命名空间中的 eval 代码

Question

我正在编写类似于 REPL 服务器的代码。来自用户的请求在这样的函数中进行评估:

(defn execute [request]
  (str (try
          (eval (read-string request))
        (catch Exception e (.getLocalizedMessage e)))))

每个客户端在单独的线程中。但它们具有相同的命名空间。如何在动态创建的命名空间中运行代码？因此，当新客户端连接时，我想创建新的命名空间并在那里运行客户端处理循环代码。或者也许可以运行 (eval ..)在其他命名空间中？

谢谢。

更新。
解决了!

执行功能:

(defn execute  
  "evaluates s-forms"  
  ([request] (execute request *ns*))  
  ([request user-ns]  
    (str  
      (try  
        (binding [*ns* user-ns] (eval (read-string request)))  
        (catch Exception e (.getLocalizedMessage e))))))

每个客户端通过以下方式获得自己的命名空间:

(defn generate-ns  
  "generates ns for client connection"  
  [] (let [user-ns (create-ns (symbol (str "client-" (Math/abs (.nextInt random)))))]  
    (execute (str "(clojure.core/refer 'clojure.core)") user-ns)  
    user-ns))`  

(defn delete-ns  
  "deletes ns after client disconnected"  
  [user-ns] (remove-ns (symbol (ns-name user-ns))))

offtop:如何在行首的代码片段中制作偏移量？

Answer 1

解决了:

(binding [*ns* user-ns] (eval (read-string request)))