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

Implement the macro in terms of invokeWithArguments

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-16 14:10:28 -05:00
parent 9aa608a254
commit 6801c7735e
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/coffi/ffi.clj
View file

@ -467,10 +467,16 @@
(find-symbol ~(name (:symbol args)))
(method-type args-types# ret-type#)
(function-descriptor args-types# ret-type#))
~(:name args) (fn [& args#]
~(:name args) (fn [~@arg-syms]
(with-open [~scope (stack-scope)]
(let [[~@arg-syms] (map #(serialize ))]
(.invoke downcall# ~@arg-syms))))
(let [args# (map #(serialize %1 %2 ~scope)
[~@arg-syms]
args-types#)]
;; TODO(Joshua): Rewrite this to use jgpc42/insn
;; to generate bytecode for a proper invoke for
;; an instant performance boost
(deserialize (.invokeWithArguments downcall# (object-array args#))
ret-type#))))
fun# ~(if (:fn-tail args)
`(fn ~(-> args :fn-tail :arglist)
~@(-> args :fn-tail :body))