我有一个想在 Clojure 中使用的 Java 类。但是，我想将它用作 Clojure 映射。这样做需要哪些步骤？
我查看了IPersistentMap 的代码——Java 类应该实现它吗？还是应该有一些实现协议的 Clojure 代码？
我知道我可以编写一些映射代码，将代码从 Java 对象显式转换为映射，但该解决方案的工作量/回报率很高。另外，我可能会多次遇到同样的情况。
具体示例：我有一个用 Java 编写的解析器。我想用它来解析一些文本，然后像在 Clojure 映射中一样访问解析后的数据结构的内容：
(def parser (new MyParser))
(let [parse-tree (parser ... parse some text ...)]
((parse-tree :items) "itemid"))
【问题讨论】：
标签： java clojure clojure-java-interop
bean 工作正常，但它不能很好地处理一些 Java 对象。
(import java.awt.Insets)
(bean (Insets. 1 2 3 4))
=> {:class java.awt.Insets}
但是这个java问题有java解决方案：
(import (com.fasterxml.jackson.databind ObjectMapper))
(import (java.util Map))
(into {} (.. (ObjectMapper.) (convertValue (Insets. 1 2 3 4) Map)))
=> {"top" 1, "left" 2, "bottom" 3, "right" 4}
【讨论】：
当然(bean javaObject)（请参阅bean ClojureDoc）运行良好，但它不允许您选择您想要的属性和您不想要的属性。当您将结果映射输入json-str 函数时，它会产生影响，在这种情况下，您可能会收到一条错误消息：“不知道如何编写 JSON of ...”
当我处理基本上接受 JSON（如 neocons 的底层）的 NoSQL DB（mongoDB、neo4j）时，我发现这很烦人。
那么我的解决方案是什么？
(defmacro get-map-from-object-props [object & props]
;->> will eval and reorder the next list starting from the end
(->> (identity props) ;identity is here to return the 'props' seq
;map each property with their name as key and the java object invocation as the value
;the ~@ is here to unsplice the few properties
(map (fn [prop] [(keyword (str prop)) `(.. ~object ~@(prop-symbol prop) )]))
(into {})))
;getter is a simple function that transform a property name to its getter "name" -> "getName"
(defn prop-symbol [prop]
(map symbol (map getter (clojure.string/split (str prop) #"\\."))))
你可以这样使用它（是的，如果有的话，这个函数会处理一个属性链）
(get-map-from-object-props javaObject property1 property2 property3.property1)
希望对某人有所帮助...
【讨论】：
如果只使用带有（内部）字符串作为键的 java.util.HashMap，并在几行 Clojure 中进行转换呢？：
(into {} (java.util.HashMap. {"foo" "bar" "baz" "quux"})) ?
{"foo" "bar" "baz" "quux"}
或使用关键字：
(into {}
(map
(juxt
#(keyword (key %))
#(val %))
(java.util.HashMap. {"foo" "bar" "baz" "quux"})))
{:baz "quux", :foo "bar"}
【讨论】：
user=> (defn parser [text]
"{ :items { \"itemid\" 55 }}");Mock
user=> (let [parse-tree (read-string (parser "Abracadabra"))]
((parse-tree :items) "itemid"))
55
【讨论】：
想到函数bean：
获取一个 Java 对象并根据其 JavaBean 属性返回映射抽象的只读实现。
来自网站的示例：
user=> (import java.util.Date)
java.util.Date
user=> (def *now* (Date.))
#'user/*now*
user=> (bean *now*)
{:seconds 57, :date 13, :class java.util.Date,
:minutes 55, :hours 17, :year 110, :timezoneOffset -330,
:month 6, :day 2, :time 1279023957492}
【讨论】：
bean 应用程序。
Clojure 关键字可以在任何实现 java.lang.Map 接口的必需（只读）部分的内容中查找内容。问题可能是您实际上并没有使用 clojure 关键字作为键，因此这可能对您没有帮助。
至于 IPersistentMap；您的解析器可能没有实现与该接口相关的任何内容。
就个人而言，我会编写一个直接向上的转换函数。 Clojure 使用了很多这些（例如 seq），并且在转换之后，您知道您正在处理一个真正的持久映射，而不是仅在某些时候表现得像它的东西（所以您可以实际调用 seq、keys、vals 等）。
或者;
【讨论】：
final 中生成所有字段都没有问题，如果有帮助的话。