对于任何 Clojure 变量,您将使用 Clojure.var() 来获取其引用,然后调用它。对于像消息这样的字面量,您可以使用 Clojure.read() 从字符串中读取 Clojure 数据,或者使用构造函数,如 hash-map。with-open 是一个宏,但在这种情况下,它基本上是重复了您可以使用 try-with-resources 在 Java 中做的事情,所以您实际上不需要它。-> 需要展开,或者您可以将更多内容放入 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);
}
```
然后
```
try (Object conn = getConnection(59258)) {
Object client = getClient(conn, 1000);
Object result = send(client, Map.of(opKW, "eval", codeKW, "(time (reduce + (range 1e6)))"));
// 这里 result 是一个 map,做你想做的事情
}
```