Add a function for constructing a fully wrapped c function
This commit is contained in:
parent
eeee025303
commit
d67d539285
1 changed files with 11 additions and 0 deletions
|
|
@ -799,6 +799,17 @@
|
||||||
args-types
|
args-types
|
||||||
ret-type)))))
|
ret-type)))))
|
||||||
|
|
||||||
|
(defn cfn
|
||||||
|
"Constructs a Clojure function to call the native function referenced by `symbol`.
|
||||||
|
|
||||||
|
The function returned will serialize any passed arguments into the `args`
|
||||||
|
types, and deserialize the return to the `ret` type."
|
||||||
|
[symbol args ret]
|
||||||
|
(-> symbol
|
||||||
|
ensure-address
|
||||||
|
(make-downcall args ret)
|
||||||
|
(make-serde-wrapper args ret)))
|
||||||
|
|
||||||
;;; Function types
|
;;; Function types
|
||||||
|
|
||||||
(def ^:private return-for-type
|
(def ^:private return-for-type
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue