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

Create a public make-downcall function

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

9
src/coffi/ffi.clj
View file

@ -640,6 +640,15 @@
[symbol-or-addr type]
(StaticVariable. (ensure-address symbol-or-addr) type (atom nil)))
(defn make-downcall
[symbol-or-addr args ret]
(-> symbol-or-addr
ensure-address
(downcall-handle
(method-type args ret)
(function-descriptor args ret))
(downcall-fn args ret)))
(s/def ::defcfn-args
(s/cat :name simple-symbol?
:doc (s/? string?)