From dc4013f7d49da3cd3e9760f98b39b7e269993f29 Mon Sep 17 00:00:00 2001
From: Joshua Suskalo <joshua@iris.tv>
Date: Fri, 17 Sep 2021 10:51:26 -0500
Subject: [PATCH] Create a public make-downcall function

---
 src/coffi/ffi.clj | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/coffi/ffi.clj b/src/coffi/ffi.clj
index 50cef80..6492513 100644
--- a/src/coffi/ffi.clj
+++ b/src/coffi/ffi.clj
@@ -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?)