Clojure: come ottenere il percorso di una directory sorgente JAR/root in esecuzione?

Question

In Java c'è una simple way per ottenere il percorso di un file jar in esecuzione:

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

Ma in Clojure abbiamo non abbiamo nome della classe, solo spazio dei nomi e funzioni. La stessa cosa vale per gli script non compilati/REPL.

Quindi le mie domande sono:

1. Come possiamo trovare una via alla esecuzione file jar?
2. Come trovare un percorso per i file di origine non completati?

Answer 1

Non l'ho provato, ma sembra che tutto ciò che serve sia un'istanza di classe. Così, per esempio, si può non fare questo:

(-> (new Object) (.getClass) (.getProtectionDomain) (.getCodeSource) (.getLocation) (.getPath)) 

Answer 2

si potrebbe provare a ottenere il percorso da una classe definita da Clojure per sé, ad esempio:

(-> clojure.lang.Atom (.getProtectionDomain) (.getCodeSource) (.getLocation)) 

=> file:/some/path/to/clojure-1.3.0.jar 

Credo che questo sia tecnicamente il file jar in esecuzione se si stanno eseguendo script Clojure o codice al REPL.

Answer 3

L'idea di classpath è di nascondere da dove vengono le classi. Potresti avere classi con lo stesso nome caricate da diversi classloader, potresti avere la stessa classe in più jar e fare affidamento sull'ordinamento del classpath per scegliere quello corretto.

Perché vuoi sapere? Se è per qualsiasi altra ragione che non sia il debug/logging, sei su un terreno pericoloso e dovresti procedere con cautela.

In effetti è perfettamente ragionevole che le classi non abbiano file jar. Questo può accadere in Java per qualsiasi classe generata in runtime (si pensi ai proxy).

In clojure un semplice esempio sarebbe come mostrato nella sessione di sostituzione in basso ... Vedrete il suggerimento di @ mikera funziona bene per clojure.lang.Atom che è un built-in classe. Ma quando si utilizza un deftype per creare il proprio tipo, clojure genera una classe e non ha posizione ...

user> (prn (-> clojure.lang.Atom 
       (.getProtectionDomain) 
       (.getCodeSource) 
       (.getLocation))) 
#<URL file:/workspace/clj-scratch/lib/clojure-1.3.0.jar> 
nil 
user> (deftype Foo []) 
user.Foo 
user> (prn (-> (Foo.) 
       (.getClass) 
       (.getProtectionDomain) 
       (.getCodeSource) 
       (.getLocation))) 
nil 
nil 
user> 

Answer 4

file sorgente scoperta in un vaso: tools.namespace/clojure-sources-in-jar

Answer 5

Per impostazione predefinita il il nome della tua classe è il nome del tuo spazio dei nomi compilato con AOT (questo è ciò che è per gen-class), quindi puoi semplicemente usare la classe dello spazio dei nomi.

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

(defn this-jar 
    "utility function to get the name of jar in which this function is invoked" 
    [& [ns]] 
    (-> (or ns (class *ns*)) 
     .getProtectionDomain .getCodeSource .getLocation .getPath)) 

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

risultato dell'esecuzione:

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

Answer 6

(defn this-jar 
    "utility function to get the name of jar in which this function is invoked" 
    [& [ns]] 
    (-> (or ns (class *ns*)) 
     .getProtectionDomain .getCodeSource .getLocation .toURI .getPath)) 

Si noti che è fondamentale per chiamare .toURI per evitare problemi con i percorsi che hanno spazi come descritto nella domanda equivalente Java: How to get the path of a running JAR file?.