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

Create a public varargs factory builder

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-17 10:51:40 -05:00
parent dc4013f7d4
commit e72d57c10f
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/coffi/ffi.clj
View file

@ -649,6 +649,13 @@
(function-descriptor args ret)) (function-descriptor args ret))
(downcall-fn args ret))) (downcall-fn args ret)))
(defn make-varargs-factory
[symbol required-args ret]
(memoize
(fn [& types]
(let [args (concat required-args types)]
(make-downcall symbol args ret)))))
(s/def ::defcfn-args (s/def ::defcfn-args
(s/cat :name simple-symbol? (s/cat :name simple-symbol?
:doc (s/? string?) :doc (s/? string?)