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

具体可以参考http://walkwithoutrhythm.net/blog/2012/03/26/how-to-call-clojure-1-dot-3-functions-from-java/


lein  https://github.com/technomancy/leiningen


lein Tutorial https://github.com/technomancy/leiningen/blob/stable/doc/TUTORIAL.md



新建一个工程
$ 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,完工





Logo

开放原子开发者工作坊旨在鼓励更多人参与开源活动,与志同道合的开发者们相互交流开发经验、分享开发心得、获取前沿技术趋势。工作坊有多种形式的开发者活动,如meetup、训练营等,主打技术交流,干货满满,真诚地邀请各位开发者共同参与!

更多推荐