从clojure映射中初始化Java构建器类的更好方法?

Question

大家

我正在尝试编写一个函数来将 CsvReadOptions.Builder.html 包装在 clojure 中。

该函数将采用这样的映射：{：header true ：locale "US"}，该函数将根据映射配置构建器。

(defn reader-options [ opts ]
(let [ b (CsvReadOptions$Builder.)]
(cond-> b
(contains? opts :locale ) (.locale (:locale opts))
(contains? opts :header ) (.header (:header opts))
true (.build ))
)
)

抱歉，如果问得太多了，在 clojure 中是否有更好的方法来实现这一目标？ 因为密钥工作在一行中重复。

(contains? opts :locale ) (.locale (:locale opts))    

再次感谢您的任何建议。

Answer 1

理论上，您可以编写一个宏来扩展为所需的代码：

(defmacro defbuilder [fn-name builder-class fields]
(let [opts (gensym)]
`(defn ~fn-name [~opts]
(cond-> (new ~builder-class)
~@(mapcat
(fn [field-sym]
(let [field-kw (keyword (name field-sym))]
`((contains? ~opts ~field-kw)
(. ~field-sym (get ~opts ~field-kw)))))
fields)
true (.build)))))

现在

(defbuilder options-from-map CsvReadOptions$Builder
[header locale...])

将生成：

(clojure.core/defn options-from-map [G__12809]
(clojure.core/cond-> (new CsvReadOptions$Builder)
(clojure.core/contains? G__12809 :header)
(. header (clojure.core/get G__12809 :header))
(clojure.core/contains? G__12809 :locale)
(. locale (clojure.core/get G__12809 :locale))
...
true (.build)))

但实际上，此代码是：

可

• 读性和可维护性较差(有些库大量使用宏，阅读起来很痛苦(，以及
• 您可能希望为某些方法添加其他特定处理(例如，将区域设置字符串转换为Locale对象(。

因此，最好手动编写包装器 - 或者，如果您只需要在代码中使用一次 Builder，请完全省略包装器并使用互操作。

Answer 2

在这个问题中，你有几个因素：

1. 可选参数
2. 可变对象
3. Java 互操作

这就是您在每行上locale和header复制 3 次的原因。 我想不出减少这种重复的直接方法。 如果这是应用程序中的常见模式，则可以编写宏(编译器扩展(以使其更容易。 除非这在你的代码中非常频繁地发生，否则成本(在复杂性、文档、误解等方面(将大大超过收益。

有点像买一辆新车而不是清洁旧车。 除非在极端情况下，否则成本可能不值得受益。

;)

Answer 3

你可以在let中使用解构：

(let [{:keys [a b c]} {:a 1 :b false}]
[a b c])
;; => [1 false nil]

或在函数参数中：

(defn args-demo [{:keys [a b c]}]
[a b c])
(args-demo {:a 1 :b false})
;; => [1 false nil]

问题是，如果映射中不存在特定键，它会绑定到nil。如果你的值可以有nil值，那么它就不起作用。

您可以将一些"标记"值用于非现值：

(let [{:keys [a b c] :or {a ::absent b ::absent c ::absent}} {:a 1 :b nil}]
(cond-> {}
(not= a ::absent) (assoc :a2 a)
(not= b ::absent) (assoc :b2 b)
(not= c ::absent) (assoc :c2 c)))
;; => {:a2 1, :b2 nil}

您还可以创建一个宏：

(defmacro when-key-present
[k m & body]
`(let [{:keys [~k] :or {~k ::not-found}} ~m]
(when (not= ~k ::not-found)
~@body)))
(when-key-present a {:a false :b nil}
(println "a was" a))
;; prints "a was false"
(when-key-present b {:a false :b nil}
(println "b was" b))
;; prints "b was nil"
(when-key-present c {:a false :b nil}
(println "c was" c))
;; doesn't print anything

你的函数将变成：

(defn reader-options [opts]
(let [builder (CsvReadOptions$Builder.)]
(when-key-present locale opts
(.locale builder locale))
(when-key-present header opts
(.header builder header))
(.build builder)))

您甚至可以超越并创建一个宏，该宏将假定opts map中的键与应调用的构建器方法相同，因此您可以像这样使用它：

(let [builder (CsvReadOptions$Builder.)]
(doseq [k (keys opts)]
(set-builder-property builder k opts)))

但这变得越来越神奇，越来越难以理解，所以我在诉诸宏之前会三思而后行。