从外部Clojar导入/使用资源

Question

我试图做的是将一个大文件（MIDI soundfont）打包到一个独立的Maven repo/clojar中，然后能够以编程方式将其下拉并从一个单独的项目中使用。这个看似简单的任务比我想象的要复杂得多。

理想的情况是，如果有一种方法可以直接访问这些资源，或者将它们公开为公共变量，或者其他什么。这是我尝试的第一件事——我做了这样的事情：

(ns midi.soundfont.fluid-r3
  (:require [clojure.java.io :as io]))

(def sf2
  (io/file (io/resource "fluid-r3.sf2")))

但是，我遇到的问题是，io/resource仅在当前类路径上查找资源文件。当我试图从另一个项目（或从REPL）中请求此命名空间时，我得到：

java.lang.IllegalArgumentException: Not a file: jar:file:/Users/dave/.m2/repository/midi/soundfont/fluid-r3/midi.soundfont.fluid-r3/0.1.0/midi.soundfont.fluid-r3-0.1.0.jar!/fluid-r3.sf2

如果无法直接访问资源，我会很乐意使用一种解决方案，将文件复制到文件系统中的某个路径。我也尝试过这个方法，但在尝试从其他项目运行“将文件复制到文件系统”方法时遇到了相同的问题--io/resource仍然无法找到该文件，因为它不在当前类路径上。

我发现之前曾有人问过类似的问题，例如：

• 惯用Clojure将资源从运行的jar复制到外部

但是，这些解决方案似乎只适用于复制当前（正在运行的）项目中的资源文件。

有可能做这两件事中的一件吗？

1. 从外部clojar访问资源文件

Answer 1

“从外部clojar访问资源文件”

我从这篇文章中找到了这个解决方案。德米特里·索特尼科夫在他的冷冻项目中做到了这一点。

源代码在这里。加载插件函数将检索所有插件。edn来自外部Clojar的每个资源目录下。

(ns cryogen-core.plugins
  (:require [clojure.edn :as edn]
            [clojure.string :as string]
            [text-decoration.core :refer :all]))

(defn load-plugin [^java.net.URL url]
  (let [{:keys [description init]} (edn/read-string (slurp url))]
    (println (green (str "loading module: " description)))
    (-> init str (string/split #"/") first symbol require)
    ((resolve init))))

(defn load-plugins []
  (let [plugins (.getResources (ClassLoader/getSystemClassLoader) "plugin.edn")]
    (doseq [plugin (enumeration-seq plugins)]
      (load-plugin (. ^java.net.URL plugin openStream)))))

如果您不喜欢太多java互操作，那么在石榴库中有一个resources函数，它可以检索外部Clojar中具有给定名称的所有资源。

Answer 2

（io/resource“fluid-r3.sf2”）是一个url，而不是一个文件。若您希望它一次全部存储在内存中，您可以slurpit，或者使用java将其作为流读取。网URLapi（如果需要，在读取时将其写入文件）。

示例：

user> (type (clojure.java.io/resource "text.txt"))
java.net.URL
user> (slurp (clojure.java.io/resource "text.txt"))
"this is a text file\n"

Answer 3

正如dbasch正确解释的那样，io/resource返回一个URL，而不是一个文件。但是，为什么您能够在REPL上使用io/file或lein run打开该URL，而不是从jar打开？这是因为第一种情况下的URL指向文件系统中的普通文件，而使用jar运行时的URL指向jar中的资源，因此它不是正确的文件。

我在这个github回购中做了一个例子。我将把-main代码复制到这里以供参考：

(defn -main [& args]
  (let [r (io/resource "greet")]
    (println r)
    (println (slurp r))
    (with-open [rdr (io/reader r)]
      (println (clojure.string/join ", " (line-seq rdr))))
    (println (io/file r))))

在运行时使用lein run显示：

› lein run
#<URL file:/home/nicolas/projects/clojure/resources/resources/greet>
hello
world

hello, world
#<File /home/nicolas/projects/clojure/resources/resources/greet>

运行uberjar显示：

› java -jar target/resources-0.1.0-SNAPSHOT-standalone.jar 
#<URL jar:file:/home/nicolas/projects/clojure/resources/target/resources-0.1.0-SNAPSHOT-standalone.jar!/greet>
hello
world

hello, world
Exception in thread "main" java.lang.IllegalArgumentException: Not a file: jar:file:/home/nicolas/projects/clojure/resources/target/resources-0.1.0-SNAPSHOT-standalone.jar!/greet
        at clojure.java.io$fn__8588.invoke(io.clj:63)
        at clojure.java.io$fn__8572$G__8556__8577.invoke(io.clj:35)

查看#