Java 在clojure中支持xml和json REST响应

假设我有一个java的RESTAPI，它支持JSON或XML响应。响应包含相同的数据，但形式不同。例如，在json中，我可能有：

{
    "persons": [
        {
            "name":"Bob",
            "age":24,
            "hometown":"New York"
        }
    ]
}

而在XML中，它看起来是这样的：

<persons>
    <person name="bob" age="24">
        <hometown>New York</hometown>
    </person>
</persons>

JAXB读取注释，Jackson使用字段名来确定要做什么。因此，使用单个模型很容易支持多种输出格式

所以我的问题是，如何在clojure中做同样的事情。我知道有CLJJSON可以轻松地将clojure映射和向量转换为json（如果我没有弄错的话，可以使用jackson）。我知道clojure.xml.emit和clojure.contrib.xml.prxml都可以将映射和向量反序列化为xml。但是，除非我弄错了，否则我认为这两个人不会很好地合作

因为prxml期望xml节点被表示为向量，xml属性被表示为映射，这与clj json的工作方式根本不同，后者向量表示数组，映射表示对象。而clojure.core.emit需要一个形式为

{:tag:person:attrs{:name“Bob”：age 24}:content…}

的映射，这与clj json所需要的完全不同

我能想到的唯一一件事是在我的代码中格式化prxml的数据结构，然后编写一个函数，当响应类型为json时，将数据结构转换为cljjson想要的内容。但这似乎有点站不住脚。我更希望有一对JSON和XML库能够像JAXB和Jackson那样兼容

---

想法？

很大程度上取决于您选择如何在代码中表示模型

假设您使用了记录。下面是一个精心设计的示例，演示如何“注释”记录并为XML和JSON提供序列化程序

;; Depends on cheshire and data.xml
(ns user
  (:require [cheshire.core :as json]
            [clojure.data.xml :as xml]))

(defrecord Person [name age hometown])
(defrecord Animal [name sound])

(def xml-attrs {Person [:name :age]
                Animal [:name]})

(defn record->xml-data [rec]
  (let [tag (-> rec class .getSimpleName .toLowerCase keyword)
        attrs (select-keys rec (xml-attrs (class rec)))
        content (for [[k v] rec
                      :when (not (contains? attrs k))]
                  (xml/element k nil (str v)))]
    (apply xml/element tag attrs content)))

(defn record->xml [rec]
  (xml/emit-str (record->xml-data rec)))

(defn record->json [rec]
  (json/generate-string rec))

用法：

> (def bob (Person. "Bob" 24 "New York"))
#'user/bob

> (println (record->xml bob))
<?xml version="1.0" encoding="UTF-8"?><person age="24" name="Bob"><hometown>New York</hometown></person>
nil

> (println (record->json bob))
{"name":"Bob","age":24,"hometown":"New York"}
nil

> (println (record->xml (Animal. "Fido" "Bark!")))
<?xml version="1.0" encoding="UTF-8"?><animal name="Fido"><sound>Bark!</sound></animal>
nil

---

也许看看新的？这似乎仍然需要像clojure.xml所期望的那样格式化数据，例如

{:tag:person:attrs{:name“Bob”：age 24}:content…}

。我还没有使用data.xml，但我的想法是，可以建立自己的发射器，根据需要写出xml。不过，我不是100%确定。谢谢你的提问，这给了我一些想法，我正在做一些类似的事情。我仍在研究如何有效地使用“更深入”的其他资源引用。

> (def bob (Person. "Bob" 24 "New York"))
#'user/bob

> (println (record->xml bob))
<?xml version="1.0" encoding="UTF-8"?><person age="24" name="Bob"><hometown>New York</hometown></person>
nil

> (println (record->json bob))
{"name":"Bob","age":24,"hometown":"New York"}
nil

> (println (record->xml (Animal. "Fido" "Bark!")))
<?xml version="1.0" encoding="UTF-8"?><animal name="Fido"><sound>Bark!</sound></animal>
nil

(defrecord-xml Person [^:xml-attr name ^:xml-attr age hometown])