checkpoint (seem to have encountered an FFI bug?)

2026-01-23 12:52:47 +00:00
parent 609c30bef5
commit e18032dcc8
6 changed files with 219 additions and 6 deletions
--- a/ffi/rgfw-import.sml
+++ b/ffi/rgfw-import.sml
@@ -10,7 +10,15 @@ struct
  val shouldCloseWindow =
    _import "shouldCloseWindow" public : window -> bool;
  val swapBuffers =
-    _import "swapBuffers" public reentrant : window -> unit;
+    _import "swapBuffers" public : window -> unit;
+  val pollEvents =
+    _import "pollEvents" public reentrant : unit -> unit;
+
  val writeClipboard =
    _import "writeClipboard" public : string * int -> unit;
+
+  val exportEscapeCallback =
+    _export "mltonEscape" public : (unit -> unit) -> unit;
+  val setKeyCallback =
+    _import "setKeyCallback" public : unit -> unit;
 end