问题描述
我编码的东西像REPL服务器。来自用户的请求在此类函数中进行评估:
(defn execute [request]
(eval(read-string request))
(catch Exception e(.getLocalizedMessage e)))))
每个客户端在单独的线程中。但它们有相同的命名空间。如何在动态创建的命名空间中运行代码?所以当新客户端连接时,我想创建新的命名空间和运行客户端处理循环代码。或者也许可以在其他命名空间中运行(eval ..)
?
谢谢。 b
$ b
upd。
解决!
执行功能:
$ b b
(defn execute
评估s表单
([request](执行请求* ns *))
-ns]
(str
(try
(binding [* ns * user-ns](eval(read-string request)))
(catch Exception e(.getLocalizedMessage e))))))
每个客户端都有自己的命名空间:
(defn generate-ns
为客户端连接生成ns
[](let [user-ns (符号(strclient-(Math / abs(.nextInt random)))))]
(execute(str(clojure.core / refer'clojure.core))user-ns)
user-ns))`
(defn delete-ns
在客户端断开后删除ns
[user-ns](remove-ns name user-ns))))
offtop:如何在代码片段?
已解决:
(binding [* ns * user-ns](eval(read-string request)))
I'm coding something like REPL Server. Request from users evaluates in such function:
(defn execute [request]
(str (try
(eval (read-string request))
(catch Exception e (.getLocalizedMessage e)))))
Each client in separate thread. But they have the same namespace. How can I run code in dynamic created namespace ? So when new client connected, I want to create new namespace and to run client handling loop code there. Or maybe it's possible to run (eval ..)
in other namespace ?
Thanks.
upd.
Solved!
Execute function:
(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))))))
Each client gets it's own namespace by:
(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: How to make offsets in code snippets on begin of line ?
Solved:
(binding [*ns* user-ns] (eval (read-string request)))
这篇关于clojure - eval代码在不同的命名空间的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!