有没有从
Java调用Clojure宏？
这是我正在努力做的：
- RT.var("clojure.core","require").invoke(Symbol.create("clojure.contrib.prxml"));
- Var prxml = RT.var("clojure.contrib.prxml","prxml");
- Var withOutStr = RT.var("clojure.core","with-out-str");
- String stringXML = (String) withOutStr.invoke((prxml.invoke("[:Name \"Bob\"]")));
prxml默认写入* out *,这就是为什么我需要使用返回字符串的-out-str来包装宏.
我收到这个错误：
- [java] java.lang.IllegalArgumentException: Wrong number of args (1) passed to: core$with-out-str
- [java] at clojure.lang.AFn.throwArity(AFn.java:437)
- [java] at clojure.lang.RestFn.invoke(RestFn.java:412)
- [java] at clojure.lang.Var.invoke(Var.java:365)
- [java] at JavaClojure.xml.main(Unknown Source)
解决方法
你必须用OutStr自己滚动.
- class YourClass {
- static final Var withBindings = RT.var("clojure.core","with-bindings*");
- static final Var list = RT.var("clojure.core","list*");
- static final Var out = RT.var("clojure.core","*out*");
- static final Var prxml = RT.var("clojure.contrib.prxml","prxml");
- static String withOutStr(IFn f,Object args...) {
- StringWriter wtr = new StringWriter();
- withBindings.applyTo(list.invoke(RT.map(out,wtr),f,args));
- return wtr.toString();
- }
- ...
- String stringXML = withOutStr(prxml,"[:Name \"Bob\"]");
- }
