luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow complex types in native arglists

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-17 14:01:49 -05:00
parent b5dd785fe0
commit 8159fdebad
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/coffi/ffi.clj
View file

@ -740,6 +740,12 @@
:args (s/cat :libspec ::libspec)
:ret (s/map-of keyword? any?))
(s/def ::type
(s/nonconforming
(s/or :simple-type qualified-keyword?
:complex-type (s/cat :base-type qualified-keyword?
:type-args (s/* ::type)))))
(s/def ::defcfn-args
(s/and
(s/cat :name simple-symbol?
@ -748,7 +754,7 @@
:symbol (s/nonconforming
(s/or :string string?
:symbol simple-symbol?))
:native-arglist (s/coll-of qualified-keyword? :kind vector?)
:native-arglist (s/coll-of ::type :kind vector?)
:return-type qualified-keyword?
:wrapper (s/?
(s/cat