clojure - 将 Java 对象转换为 Clojure 类型

Question

您好，目前我正在使用 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)，它似乎也能正常工作。

提前谢谢你。

Answer 1

为了使其正常工作，您的 Java 对象需要符合 JavaBean specification .这意味着 they need methods .getXXX() 读取对象属性(至少)，还有 .setXXX() 构造新对象。示例:

类内部:

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

类外部:

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; }
}

和 Clojure 代码来解码嵌套的 JavaBean 对象:

(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(注意所需的选项映射，此处留空)将根据每个对象的 java 类使用适当的 getter 递归解压 JavaBean。

以上所有代码均基于this template project .享受吧!