java 怎么调用clojure_java 调用 clojure

这里不介绍调用文本clojure然后jvm中执行的过程， 也不介绍手动aot 来编译成class来给jvm调用。主要还是介绍下使用lein来打包成jar 然后java程序中调用，本人觉得这个是最舒服的做法。

新建一个工程

$ lein new app hello

直接运行测试

$ lein run

Hello, World!

编辑文件 src/hello/core.clj

(ns hello.t

(:gen-class

:methods [#^{:static true} [jerry [String] String]])

)

(defn -jerry [gophee]

(str "jerry like tom !" gophee)

)

注意这里可能会遇到一个问题，默认的lein生成的project的project.clj是

(defproject my-stuff "0.1.0-SNAPSHOT"

:description "FIXME: write description"

:url "http://example.com/FIXME"

:license {:name "Eclipse Public License"

:url "http://www.eclipse.org/legal/epl-v10.html"}

:dependencies [[org.clojure/clojure "1.5.1"]]

:main ^:skip-aot hello.core

:target-path "target/%s"

:profiles {:uberjar {:aot :all}})

打包后发现只有main的才生成name space的，可以修改成

(defproject hello "0.1.0-SNAPSHOT"

:description "FIXME: write description"

:url "http://example.com/FIXME"

:license {:name "Eclipse Public License"

:url "http://www.eclipse.org/legal/epl-v10.html"}

:dependencies [[org.clojure/clojure "1.5.1"]]

;:main ^:skip-aot hello.core

:main librarian-clojure.run

:aot :all

:target-path "target/%s"

:profiles {:uberjar {:aot :all}})

当然也可以用正则表达式来定义name space

You can also specify regex as parameter for :compile option – it will compile only matched namespaces

可以参考

http://blog.japila.pl/2012/02/aot-compile-all-namespaces-in-a-clojure-project-aot-all-in-project-clj-leiningen/

打包到jar

$ lein uberjar

然后在eclipse 中添加hello-0.1.0-SNAPSHOT.jar

写个java类测试下

public class CallClass {

public static void main(String[] args) {

String  ss = hello.t.jerry(" test ");

System.out.println(ss);

}

}

输出 jerry like  tom ! test

ok,完工