gpt4 book ai didi

具有非关键字键的映射的 Clojure 规范

转载 作者:行者123 更新时间:2023-12-02 16:46:05 27 4
gpt4 key购买 nike

让我们看看莱宁根项目 map 的真实示例 :global-vars :

 ;; Sets the values of global vars within Clojure. This example
;; disables all pre- and post-conditions and emits warnings on
;; reflective calls. See the Clojure documentation for the list of
;; valid global variables to set (and their meaningful values).
:global-vars {*warn-on-reflection* true
*assert* false}

它允许 leiningen 的用户重新定义默认值Clojures 项目范围内的全局变量。

现在,如果该映射的键由关键字组成,我们将使用 clojure.spec/keys首先指定哪些键可以成为映射的一部分,然后分别定义这些键下预期的值。但自从 clojure.spec/keys默默地忽略 :req 中的非关键字和:req-un并抛出 :opt 的异常和:opt-un (从 alpha15 开始)我们必须以某种方式解决这个问题。

我们可以通过以下方式获取大部分全局变量的类型

(for [[sym varr] (ns-publics 'clojure.core)
:when (re-matches #"\*.+\*" (name sym))]
[varr (type @varr)])
=>
[*print-namespace-maps* java.lang.Boolean]
[*source-path* java.lang.String]
[*command-line-args* clojure.lang.ArraySeq]
[*read-eval* java.lang.Boolean]
[*verbose-defrecords* java.lang.Boolean]
[*print-level* nil]
[*suppress-read* nil]
[*print-length* nil]
[*file* java.lang.String]
[*use-context-classloader* java.lang.Boolean]
[*err* java.io.PrintWriter]
[*default-data-reader-fn* nil]
[*allow-unresolved-vars* java.lang.Boolean]
[*print-meta* java.lang.Boolean]
[*compile-files* java.lang.Boolean]
[*math-context* nil]
[*data-readers* clojure.lang.PersistentArrayMap]
[*clojure-version* clojure.lang.PersistentArrayMap]
[*unchecked-math* java.lang.Boolean]
[*out* java.io.PrintWriter]
[*warn-on-reflection* nil]
[*compile-path* java.lang.String]
[*in* clojure.lang.LineNumberingPushbackReader]
[*ns* clojure.lang.Namespace]
[*assert* java.lang.Boolean]
[*print-readably* java.lang.Boolean]
[*flush-on-newline* java.lang.Boolean]
[*agent* nil]
[*fn-loader* nil]
[*compiler-options* nil]
[*print-dup* java.lang.Boolean]

其余的我们可以通过阅读文档来填写。但我的问题是:我们如何编写一个规范来确保 map 是否包含键 '*assert*它只能保存 bool 值?

最佳答案

仅供引用,目前没有计划支持 s/keys 中的非关键字键.

有几种方法可以做到这一点(一种是在验证之前或在领先的构象异构体中执行类似 clojure.walk/keywordize-keys 的操作,然后使用 s/keys )。

另一种方法是将映射视为映射条目元组的集合(某些宏可以显着清理它):

(defn warn-on-reflection? [s] #(= % '*warn-on-reflection*))
(s/def ::warn-on-reflection (s/tuple warn-on-reflection? boolean?))
(defn assert? [s] #(= % '*assert*))
(s/def ::assert (s/tuple assert? boolean?))

(s/def ::global-vars
(s/coll-of (s/or :wor ::warn-on-reflection, :assert ::assert) :kind map?))

最后s/multi-spec尝试代替 s/or 可能会很有趣上面 - 这将使其成为一个可以在以后添加的开放规范。以某种方式,开放此规范可能很有用(因此也接受 (s/tuple any? any?) - 因为将来可能会添加新内容或未在此处列出(例如,也有来自其他 namespace 的动态变量)。

此外,请注意其中的一些属性规范。例如,*unchecked-math*被视为逻辑真值,特别是采用特殊值 :warn-on-boxed这是逻辑上正确的,但也会触发额外的行为。

关于具有非关键字键的映射的 Clojure 规范,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43453776/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com