path - Clojure:如何获取正在运行的JAR/根源目录的路径？

Question

在Java中，有一个simple way可以获取正在运行的jar文件的路径:

MyClass.class.getProtectionDomain().getCodeSource().getLocation().getPath()

但是在Clojure中，我们 没有类名，只有 namespace 和函数。相同的情况适用于未编译的脚本/REPL。

所以我的问题是:

我们如何找到正在运行的jar文件的路径？

我们如何找到未编译的源文件的路径？

Answer 1

默认情况下，类的名称是AOT编译的 namespace 的名称(这是gen-class的名称)，因此您可以简单地使用 namespace 的类。

(ns foo.core
  (:gen-class))

(defn this-jar
  "utility function to get the name of jar in which this function is invoked"
  [& [ns]]
  ;; The .toURI step is vital to avoid problems with special characters,
  ;; including spaces and pluses.
  ;; Source: https://stackoverflow.com/q/320542/7012#comment18478290_320595
  (-> (or ns (class *ns*))
      .getProtectionDomain .getCodeSource .getLocation .toURI .getPath))

(defn -main [& _]
  (println (this-jar foo.core)))

运行结果:

$ java -cp foo-0.1.0-SNAPSHOT-standalone.jar foo.core
/home/rlevy/prj/foo/target/foo-0.1.0-SNAPSHOT-standalone.jar