10

无论如何从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*，这就是为什么我需要用返回字符串的宏 with-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)
4

4 回答 4

7

您必须自己使用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\"]");
}
于 2011-07-13T06:31:16.610 回答
5

问题是基本的。

调用（及其姐妹应用）用于函数。

宏不是函数，因此不能调用它们。需要编译宏。在普通的 Lisp 中，它们可以被评估或宏扩展或其他。在 10m 的范围内，显然 Clojure 没有简单的 RT.eval(String script) 函数来简化此操作。

但是，这就是需要做的。您需要编译并执行它。

我看到一个将Clojure与Java JSR 223集成的包，IT有一个eval（因为223有一个eval）。但我不知道a）包裹是否好或b）这是否是你想要去的方向。

于 2011-07-13T03:54:38.537 回答
1

免责声明：我对 clojure 知之甚少（我的经验是使用其他函数式语言和 Java）

然而，我的直觉说问题就在身边prxml.invoke()。这里的想法是该语句评估得太快，并将结果发送到 withOutStr （而不是让 withOutStr 评估它）。

仅查看在线资源...尤其是RT，Var和AFn以及with-out-str的 clojure 文档，我会尝试以下内容：

String stringXML = (String) withOutStr.invoke(RT.list(prxml,"[:Name \"Bob\"]"));

编辑：另外我会怀疑它能够从java调用clojure宏，否则Var上的isMacro（）函数似乎相当愚蠢......

编辑 2：下载了 clojure，并尝试了它......不起作用所以暂时忽略它。

编辑 3：with-out-str 显然需要 2 个参数，因此：

final Cons consXML = (Cons) withOutStr.invoke(prxml, RT.list("[:Name \"Bob\"]"));
final Object[] objs = RT.seqToArray(consXML);
System.out.println(Arrays.toString(objs));

输出为：[clojure.core/let, [s__4095__auto__ (new java.io.StringWriter)], (clojure.core/binding [clojure.core/*out* s__4095__auto__] (clojure.core/str s__4095__auto__))]

我想知道这是否会评估为有用的东西（不确定我在绑定上是否正确，必须弄清楚如何通过 Java 评估缺点。

编辑 4：通过编译器和更多代码，似乎宏实际上有 2 个隐藏参数。查看提交 17a8c90

在我拥有的编译器中复制方法：

final ISeq form = RT.cons(withOutStr, RT.cons(prxml, RT.cons("[:Name \"Bob\"]", null)));
final Cons consXML = (Cons) withOutStr.applyTo(RT.cons(form, RT.cons(null, form.next())));
System.out.println(consXML.toString());
// Output: (clojure.core/let [s__4095__auto__ (new java.io.StringWriter)] (clojure.core/binding [clojure.core/*out* s__4095__auto__] #'clojure.contrib.prxml/prxml "[:Name \"Bob\"]" (clojure.core/str s__4095__auto__)))

这似乎更有希望，但它仍然需要评估在编译器中似乎有特殊情况的 let 表达式。

于 2011-07-13T01:50:25.087 回答
0

如果要从 C# 或 Java 执行 Clojure 代码，请使用 Clojure 的load-string函数。这将采用一个普通字符串并完全按照您在 REPL 中键入字符串的方式执行它。这包括处理宏。

这是 C# 代码的简短版本。Java 版本不会太远。

    private static readonly IFn LOAD_STRING = Clojure.var("clojure.core", "load-string");

    private void executeButton_Click(object sender, EventArgs e)
    {
        try
        {
            object result = LOAD_STRING.invoke(sourceTextBox.Text);
            if (null == result)
                resultTextBox.Text = "null";
            else
                resultTextBox.Text = result.ToString() + " (" + result.GetType().Name + ")";
        }
        catch (Exception ex)
        {
            resultTextBox.Text = ex.ToString();
        }
    }

您可以在此处查看示例程序的完整版本。它包含大量示例代码来演示 Clojure 互操作。

于 2016-05-08T16:19:33.110 回答