Clojure の BaseX の内部データ型を使用して XML 構造を構築しようとしています。
(defn basex-elem [token-name dict]
(let [elem (org.basex.query.item.FElem.
(org.basex.query.item.QNm. token-name))]
(for [[k v] dict]
(do
(println "THIS IS REACHED")
(let [k-name (org.basex.query.item.QNm. (.getName k))
k-attr (org.basex.query.item.FAttr.
k-name
org.basex.util.Token/token v))]
(.add elem k-attr))))
elem))
this を使用して要素を作成すると、「THIS IS REACHED」は出力されません:
(def test-elem (basex-elem "element-name" {:key1 "value1", :key2 "value2"}))
; => #'user/test-elem
したがって、値は属性なしで返されます。
test-elem
; => #<FElem <element-name/>>
ただし、属性の追加は別の方法で機能します。
(.add test-elem
(org.basex.query.item.FAttr.
(org.basex.query.item.QNm. "foo")
(org.basex.util.Token/token "bar")))
; => #<FElem <element-name foo="bar"/>>
したがって、おそらく私はループで何か間違ったことをしています。ポインタはありますか?