如何在 Clojure 中创建自定义 java 对象类的数组？

Question

这是我的代码。我想制作一个 Fruit 数组（自定义 java 对象类）。

(defn build-fruit
  [part]
  (let [name (:name part)
        color (:color part)
        price (:price part)
        is_available (:is_available part)]
  (-> (Fruit/newBuilder)
      (.setName name)
      (.setColor color)
      (.setPrice price)
      (.setIsAvailable is_available)
      (.build))))

(defn build-fruits
  [result length]
  (loop [remaining-fruits result
         final-fruits (make-array Fruit length)]
    (if (empty? remaining-fruits)
      final-fruits
      (let [[part & remaining] remaining-fruits]
        (recur remaining
               (into-array final-fruits (build-fruit part)))))) ;got an error here
  )

(defn -getAllFruits [this ^Empty req ^StreamObserver res]
  (let [result (clj-grpc.database/findAllFruit)
        length (count result)
        fruits (build-fruits result length)]
    (doto res
      (.onNext (-> (ListOfFruits/newBuilder)
                   (.addAllFruit fruits)
                   (.build)))
      (.onCompleted))))

但出现错误

java.lang.ClassCastException: [Lorg.example.fruitproto.Fruit; cannot be cast to java.lang.Class
    at clojure.core$into_array.invokeStatic(core.clj:3431)
    at clojure.core$into_array.invoke(core.clj:3431)
    at clj_grpc.fruitservice$build_fruits.invokeStatic(fruitservice.clj:118)
    at clj_grpc.fruitservice$build_fruits.invoke(fruitservice.clj:110)

我的猜测是我无法使用 make-array。我也不能使用像这样的简单数组 [] 因为它还出现了另一个错误。实现这一目标的正确方法是什么？

Answer 1

下面是一个使用 into-array 的独立示例，构建 LocalDate 而不是 Fruit 的数组：

(ns overflow.example
  (:import (java.time LocalDate)))

(defn build-local-date [{:keys [year month day]}]
  (LocalDate/of year month day))

(defn build-local-dates [xs]
  (into-array LocalDate (map build-local-date xs)))