clojure - 使用 Plumatic Sc​​hema 强制转换为 bigdec

Question

我有类型的传入数据{:loan/amount 1200}。

是否可以使用 plumatic Sc​​hema将其强制转换为，即将数字（甚至数字字符串）强制转换为 bigdecimals ？{:loan/amount 1200M}

我不知道如何定义新的数据类型（如s/Bigdec），然后确保它用于clojure.core/bigdec将某个值强制为java.math.BigDecimal.

Answer 1

Schema 中有两个独立的概念：验证和强制。

对于第一个，您需要定义您的架构。类被视为模式，因此您无需为java.math.BigDecimal. 您的架构可能如下所示：

(require '[schema.core :as s])
(require '[schema.coerce :as c])

(s/defschema Loan {:loan/amount java.math.BigDecimal})

现在您可以根据架构验证您的数据：

(s/validate Loan {:loan/amount 10M})
;; => {:loan/amount 10M}

现在，如果您有一些想要强制的数据，则需要定义一个强制函数，该函数是从所需目标模式（java.math.BigDecimal在您的情况下）到将实际值转换为所需bigdec值的函数的匹配器。

(def safe-bigdec (c/safe bigdec)

schema.coerce/safe是一个实用函数，它包装了原始函数，如果原始函数在调用时抛出异常，safe将返回原始输入值而不是抛出异常。

我们的匹配器函数将检查当前模式元素是否为BigDecimal并返回转换函数或nil其他（意味着对其他类型没有强制）：

(defn big-decimal-matcher [schema]
  (when (= java.math.BigDecimal schema)
    safe-bigdec))

最后，我们需要一个强制器来执行实际的强制：

(def loan-coercer (c/coercer Loan big-decimal-matcher))

完成所有设置后，我们现在可以使用我们的强制器：

(loan-coercer {:loan/amount "12.34"})
;; => {:loan/amount 12.34M}

(loan-coercer {:loan/amount 1234})
;; => {:loan/amount 1234M}

(loan-coercer {:loan/amount "abc"})
;; => #schema.utils.ErrorContainer{:error {:loan/amount (not (instance? java.math.BigDecimal "abc"))}}