以下是取自core.typed github repo的示例的一部分:
(ns typedclj.rps-async
(:require [clojure.core.typed :as t]
[clojure.core.async :as a]
[clojure.core.typed.async :as ta]))
(t/defalias Move
"A legal move in rock-paper-scissors"
(t/U ':rock ':paper ':scissors))
(t/defalias PlayerName
"A player's name in rock-paper-scissors"
t/Str)
(t/defalias PlayerMove
"A move in rock-paper-scissors. A Tuple of player name and move"
'[PlayerName Move])
(t/defalias RPSResult
"The result of a rock-paper-scissors match.
A 3 place vector of the two player moves, and the winner"
'[PlayerMove PlayerMove PlayerName])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t/ann MOVES (t/Vec Move))
(def MOVES [:rock :paper :scissors])
(t/ann BEATS (t/Map Move Move))
(def BEATS {:rock :scissors, :paper :rock, :scissors :paper})
(def BEATS {:a :b})
请注意,在最后一行中,我将BEATS重新定义为{:a:b},这与其类型注释冲突,但是当我在repl中对此进行评估时,不会抛出任何错误。我期待一个错误,因为据说最新版本的core.typed能够在运行时报告类型错误。
这是整个project.clj文件:
(defproject typedclj "0.1.0-SNAPSHOT"
:description "FIXME: write description"
:url "http://example.com/FIXME"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
:dependencies [[org.clojure/clojure "1.6.0"]
[org.clojure/core.async "0.1.346.0-17112a-alpha" :exclusions [org.clojure/tools.analyzer.jvm]]
[org.clojure/core.typed "0.2.92"]
[clj-http "1.1.2"]
[http-kit "2.1.18"]
]
:repl-options {:nrepl-middleware [clojure.core.typed.repl/wrap-clj-repl]}
:main ^:skip-aot typedclj.core
:target-path "target/%s"
:profiles {:uberjar {:aot :all}})
使用core.typed 0.3.0-alpha2可以很好地捕获此类错误:
Type Error (/private/var/folders/5d/44ctbbln4dsflgzxph1dm8wr0000gn/T/form-init3488589171262628870.clj:36:12) Type mismatch:
Expected: typedclj.rps-async/Move
Actual: (t/Val :b)
in: :b
Type Error (/Users/kaiyin/personal_config_bin_files/workspace/typedclj/src/typedclj/rps_async.clj:36:12) Type mismatch:
Expected: (t/Map typedclj.rps-async/Move typedclj.rps-async/Move)
Actual: (t/HMap :mandatory {:a typedclj.rps-async/Move} :complete? true)
in: {:a :b}
答案 0 :(得分:2)
您需要明确选择隐式类型检查。像这样更改你的ns形式:
(ns ^:core.typed typedclj.rps-async
...)
答案 1 :(得分:0)
是的,当您明确要求它执行此操作时,它会在运行时报告错误。这与静态类型语言略有不同,其中类型错误会阻止程序成功构建 - 它只是一个可选的"健全性检查"这里。
类型检查与编译是分开的,必须明确运行
使用
clojure.core.typed/check-ns
键入检查当前名称空间。 这可以在REPL完成。注意:
ann
等全局注释仅在找到时才有效 目前正在使用check-ns
检查名称空间,或将其包含在cf
中。 REPL中的原始ann
无效。全局注释应该是 顶级表单或(可能是嵌套的)顶级do
内部。
在REPL中,您应该将表达式包装在cf
中,以便从给定代码中推断出类型并打印出来。 (参见this blog post)如果要从源文件中定义的命名空间中键入检查代码,请使用check-ns
键入 - 检查整个命名空间。