Clojure programı kendi MANIFEST.MF okunurken

Question

Bir Clojure programı kendi MANIFEST.MF dosyasını nasıl bulabilir (bir JAR dosyasında paketlendiği varsayılarak).

benim "-Ana" işlevinden bu yapmaya çalışıyorum, ancak bir sınıf aşağıdaki kodda kullanmak bulamıyorum:

(.getValue 
    (.. 
     (java.util.jar.Manifest. 
     (.openStream 
      (java.net.URL. 
      (str 
       "jar:" 
       (.. 
       (class **WHAT-GOES-HERE**) 
       getProtectionDomain 
       getCodeSource 
       getLocation) 
       "!/META-INF/MANIFEST.MF")))) 
     getMainAttributes) 
    "Build-number")) 

teşekkür ederiz.

Answer 1

Bu güvenilir iş gibi görünüyor o!

(when-let [loc (-> (.getProtectionDomain clazz) .getCodeSource .getLocation)] 
    (-> (str "jar:" loc "!/META-INF/MANIFEST.MF") 
     URL. .openStream Manifest. .getMainAttributes 
     (.getValue "Build-Number"))) 

Answer 2

Çalıştığım bir yanıt buldum, ancak özellikle Class/forName numaralı telefonu aramayı değiştirmeye yönelik önerilere açığım. Ben alabilir gibi Burada, yaklaşık olarak basit okunabilir bir versiyonu

(defn manifest-map 
    "Returns the mainAttributes of the manifest of the passed in class as a map." 
    [clazz] 
    (->> (str "jar:" 
      (-> clazz 
       .getProtectionDomain 
       .getCodeSource 
       .getLocation) 
      "!/META-INF/MANIFEST.MF") 
     clojure.java.io/input-stream 
     java.util.jar.Manifest. 
     .getMainAttributes 
     (map (fn [[k v]] [(str k) v])) 
     (into {}))) 

(get (manifest-map MyClass) "Build-Number") 

Answer 3

:

(defn -main [& args] 
    (println "Version " 
    (.getValue 
     (.. 
     (Manifest. 
      (.openStream 
      (URL. 
       (str 
       "jar:" 
       (.. 
        (Class/forName "org.example.myproject.thisfile") 
        getProtectionDomain 
        getCodeSource 
        getLocation) 
       "!/META-INF/MANIFEST.MF")))) 
     getMainAttributes) 
     "Build-number"))) 

Answer 4

: Ben gözleri biraz daha kolay benim versiyonunu bulmak

(defn set-version 
    "Set the version variable to the build number." 
    [] 
    (def version 
    (.getValue (.. (Manifest. 
     (.openStream 
     (URL. 
      (str "jar:" 
      (.getLocation 
       (.getCodeSource 
       (.getProtectionDomain org.example.myproject.thisfile))) 
      "!/META-INF/MANIFEST.MF")))) 
     getMainAttributes) 
     "Build-number"))) 

Answer 5

da esasen burada bulunan diğer cevaplar benzer bir çağrı kullanarak, bu işlevselliği sağlayan clj-manifest yoktur.