将 Java 对象转换为 Clojure 类型答案

【问题标题】：convert Java objects to Clojure types将 Java 对象转换为 Clojure 类型
【发布时间】：2021-01-12 11:26:24
【问题描述】：

嗨，目前我正在使用 java.data (https://github.com/clojure/java.data) 将 java pojos 转换为与 clojure 兼容的类型。它不适用于嵌套对象。

例如：

class Abc {
   Map<String, Def> someMap;
}

Class Def {
   String b;
}

如果我将 Abc 的示例实例传递给 java.data，我得到的输出为：

   {
      :someMap { 
         "keyString" #object[com.sample.Def 0xb33584d "com.sample.Def@b33584d"]
      }
   }

但我希望输出为：

   {
       :someMap { 
            "keyString" {
                 "b" "value" 
            } 
       }
   }

我该如何解决这个问题？

我尝试了 clojure.core bean (https://clojuredocs.org/clojure.core/bean)，它似乎也能正常工作。

提前谢谢你。

【问题讨论】：

标签： clojure javabeans clojure-java-interop edn

【解决方案1】：

为了使其工作，您的 Java 对象需要符合 JavaBean specification。这意味着they need methods .getXXX() （至少）读取对象属性，也意味着.setXXX() 构造一个新对象。示例：

班级Inner:

package demo;
public class Inner {
    public String secret;
    public String getSecret() {
        return secret;
    }    
    public Inner(String arg) {
        this.secret = arg;
    }
}

班级Outer:

package demo;
import java.util.HashMap;
import demo.Inner;

public class Outer {
  public HashMap<String, Inner> someMap;

  public Outer() {
    HashMap<String,Inner> hm = new HashMap<String, Inner>();
    hm.put("stuff", new Inner( "happens"));
    hm.put("another", new Inner( "thing"));
    this.someMap = hm;
  }

  public HashMap getSomeMap() { return someMap; }
}

和用于解码嵌套 JavaBean 对象的 Clojure 代码：

(ns tst.demo.core
  (:use demo.core tupelo.core tupelo.test)
  (:require
    [clojure.java.data :as jd])
  (:import [demo Calc]))

(dotest
  (let [java-obj    (Outer.)
        obj-shallow (jd/from-java java-obj)
        obj-deep    (jd/from-java-deep java-obj {})]
    (spyx         java-obj)
    (spyx         obj-shallow)
    (spyx-pretty  obj-deep)
    ))

结果显示发生了什么：

--------------------------------------
   Clojure 1.10.2-alpha1    Java 14
--------------------------------------

lein test tst.demo.core
java-obj     => #object[demo.Outer 0x138d8219 "demo.Outer@138d8219"]
obj-shallow  => {:someMap {"another" #object[demo.Inner 0x8d86c4d "demo.Inner@8d86c4d"], "stuff" #object[demo.Inner 0x28c92c51 "demo.Inner@28c92c51"]}}
obj-deep     => {:someMap {"another" {:secret "thing"}, 
                           "stuff"   {:secret "happens"}}}

原始的java-obj 对 Clojure 来说是不透明的。使用jd/from-java 仅使用JavaBean getter 解包外层。使用jd/from-java-deep（请注意所需的选项映射，此处留空）将递归地解压JavaBean，使用基于其java 类的每个对象上的适当getter。

以上所有代码均基于this template project。享受吧！

【讨论】：

【解决方案2】：

Clojure 的内置bean 函数只进行浅层转换——它不会递归地转换任何嵌套信息。查看 https://github.com/clojure/java.data 了解从 Java 对象到 Clojure 数据结构（以及返回）的递归转换。

java.data 还支持“builder”风格的 Java API，因此您可以更轻松地从 Clojure 构建 Java 对象。

【讨论】：