progress binding RGFW and making RGFW shell

2026-01-22 21:02:22 +00:00
parent e0c09c5480
commit d0f9220cfe
8 changed files with 80 additions and 28 deletions
--- a/ffi/rgfw-export.sml
+++ b/ffi/rgfw-export.sml
@@ -0,0 +1,14 @@
+structure Rgfw =
+struct
+  type window = MLton.Pointer.t
+
+  (* RGFW functions. *)
+  val createWindow = 
+    _import "createWindow" public : string * int * int * int * int -> window;
+  val closeWindow =
+    _import "closeWindow" public : window -> unit;
+  val shouldCloseWindow =
+    _import "shouldCloseWindow" public : window -> bool;
+  val swapBuffers =
+    _import "swapBuffers" public : window -> unit;
+end