将 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

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

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

Answer 2

为了使其工作，您的 Java 对象需要符合 JavaBean specification. This means they need methods .getXXX() 才能读取对象属性（至少），并且 .setXXX()构造一个新对象。示例：

Class Inner:

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

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

和 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 class.[= 使用适当的 getter 递归解压 JavaBean。 23=]

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

将 Java 个对象转换为 Clojure 类型

convert Java objects to Clojure types

clojure

javabeans

clojure-java-interop

edn