针对 Clojure 的任何变量,您将使用 Clojure.var() 获取其引用,然后对其调用 invoke()。对于像消息这样的字面量,您可以使用 Clojure.read() 从字符串中读取 Clojure 数据,或者使用构造函数,如 hash-map。with-open 是一个宏,但在此情况下,它基本上是在复制您可以使用 Java 中的 try-with-resources 做的事情,因此您实际上不需要它。您需要在这里展开 -> 或者在 Clojure 函数中放置更多此类代码,然后只调用它。
我没有编译此代码,但您最终将得到类似以下内容:
```
private static final IFn require = Clojure.var("clojure.core", "require");
private static final IFn doall = Clojure.var("clojure.core", "doall");
private static final Object portKW = Clojure.read(":port");
private static final Object opKW = Clojure.read(":op");
private static final Object codeKW = Clojure.read(":code");
private static final IFn connect;
private static final IFn client;
private static final IFn message;
static {
require.invoke(Clojure.read("nrepl.core"));
connect = Clojure.var("nrepl.core", "connect");
client = Clojure.var("nrepl.core", "client");
message = Clojure.var("nrepl.core", "message");
}
public Object getConnection(int port) {
return connect.invoke(portKW, port);
}
public Object getClient(Object conn, int timeout) {
return client.invoke(conn, timeout);
}
public Object send(Object client, Object message) {
Object result = message.invoke(client, message);
return doall.invoke(result);
}
```
then
```
try (Object conn = getConnection(59258)) {
Object client = getClient(conn, 1000);
Object result = send(client, Map.of(opKW, "eval", codeKW, "(time (reduce + (range 1e6)))"));
// 这里是 map,根据需要进行处理
}
```