New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

infer specs #1

Open
wants to merge 1 commit into
from
Jump to file or symbol
Failed to load files and symbols.
+131 −1
Diff settings

Always

Just for now

View
@@ -8,6 +8,136 @@
[clojure.spec :as s]
[clojure.spec.test :as stest]))
;; Start: Generated by clojure.core.typed - DO NOT EDIT
(defmulti E-multi-spec7593 :E)
(defmethod
E-multi-spec7593
:if
[_]
(s/keys
:req-un
[:keys7594/else :keys7594/E :keys7594/then :keys7594/test]))
(defmethod
E-multi-spec7593
:lambda
[_]
(s/keys
:req-un
[:keys7595/E :keys7595/arg :keys7595/body :keys7595/arg-type]))
(defmethod
E-multi-spec7593
:app
[_]
(s/keys :req-un [:keys7596/args :keys7596/fun :keys7596/E]))
(defmethod
E-multi-spec7593
:var
[_]
(s/keys :req-un [:keys7597/name :keys7597/E]))
(defmethod E-multi-spec7593 :false [_] (s/keys :req-un [:keys7598/E]))
(s/def :keys7598/E keyword?)
(s/def :keys7597/E keyword?)
(s/def :keys7594/then (s/and ::E))
(s/def :keys7595/arg symbol?)
(s/def :keys7594/E keyword?)
(s/def :keys7596/E keyword?)
(s/def :keys7595/E keyword?)
(s/def :keys7594/else (s/and ::E))
(s/def :keys7595/body (s/and ::E))
(s/def :keys7596/args (s/and (s/coll-of ::E)))
(s/def :keys7594/test (s/and ::E))
(defmulti T-multi-spec7599 :T)
(defmethod T-multi-spec7599 :num [_] (s/keys :req-un [:keys7600/T]))
(defmethod
T-multi-spec7599
:intersection
[_]
(s/keys :req-un [:keys7601/T :keys7601/types]))
(defmethod
T-multi-spec7599
:fun
[_]
(s/keys :req-un [:keys7602/return :keys7602/params :keys7602/T]))
(defmethod T-multi-spec7599 :false [_] (s/keys :req-un [:keys7603/T]))
(s/def :keys7600/T keyword?)
(s/def :keys7601/T keyword?)
(s/def :keys7601/types set?)
(s/def :keys7602/return (s/and ::T))
(s/def :keys7604/name symbol?)
(s/def :keys7604/type (s/and ::T))
(s/def ::NameTypeMap (s/keys :req-un [:keys7604/name :keys7604/type]))
(s/def :keys7602/params (s/and (s/tuple ::NameTypeMap)))
(s/def :keys7602/T keyword?)
(s/def :keys7603/T keyword?)
(s/def ::T (s/and (s/multi-spec T-multi-spec7599 :T)))
(s/def :keys7595/arg-type (s/and ::T))
(s/def :keys7596/fun (s/and ::E))
(s/def :keys7597/name symbol?)
(s/def ::E (s/and (s/multi-spec E-multi-spec7593 :E)))
(s/fdef parse-exp :args (s/cat :e any?) :ret ::E)
(defmulti P-multi-spec7605 :P)
(defmethod
P-multi-spec7605
:is
[_]
(s/keys :req-un [:keys7606/exp :keys7606/P :keys7606/type]))
(defmethod
P-multi-spec7605
:or
[_]
(s/keys :req-un [:keys7607/P :keys7607/ps]))
(defmethod
P-multi-spec7605
:=
[_]
(s/keys :req-un [:keys7608/P :keys7608/exps]))
(defmethod
P-multi-spec7605
:not
[_]
(s/keys :req-un [:keys7609/P :keys7609/p]))
(defmethod
P-multi-spec7605
:and
[_]
(s/keys :req-un [:keys7610/P :keys7610/ps]))
(s/def :keys7606/P keyword?)
(s/def :keys7610/P keyword?)
(s/def :keys7607/P keyword?)
(s/def :keys7608/P keyword?)
(s/def :keys7609/P keyword?)
(s/def :keys7610/ps set?)
(s/def :keys7608/exps set?)
(s/def :keys7606/type (s/and ::T))
(s/def :keys7606/exp (s/and ::E))
(s/def :keys7607/ps set?)
(s/def :keys7609/p (s/and ::P))
(s/def ::P (s/and (s/multi-spec P-multi-spec7605 :P)))
(s/fdef parse-prop :args (s/cat :p (s/coll-of any?)) :ret ::P)
(s/fdef
id
:args
(s/cat :x (s/map-of any? any?))
:ret
(s/map-of any? any?))
(s/fdef unparse-exp :args (s/cat :e ::E) :ret any?)
(s/fdef unparse-prop :args (s/cat :p ::P) :ret (s/coll-of any?))
(s/fdef tc :args (s/cat :ps (s/coll-of (s/or)) :e false?) :ret false?)
(s/fdef
unparse-type
:args
(s/cat :t ::T)
:ret
(s/or :symbol? symbol? :false? false?))
(s/fdef
parse-roundtrip
:args
(s/cat :syn (s/coll-of any?))
:ret
boolean?)
(s/fdef check :args (s/cat :ps set? :e ::E) :ret ::T)
(s/fdef parse-type :args (s/cat :t any?) :ret ::T)
;; End: Generated by clojure.core.typed - DO NOT EDIT
;; e ::= x | (if e e e) | (lambda (x :- t) e) | (e e*) | #f | n? | add1
;; t ::= [x : t -> t] | (not t) | (or t t) | (and t t) | #f | N | Any
;; p ::= (is e t) | (not p) | (or p p) | (and p p) | (= e e)
@@ -526,4 +656,4 @@ str/upper-case
(atom {x 1
y 2})
)
)