init

ffi/glfw-key-input.sml

@@ -0,0 +1,11 @@
+structure Key =
+struct
+  type window = MLton.Pointer.t
+
+  (* Export function to C. *)
+  val export =
+    _export "printFromMLton" public : (int * int * int * int -> unit) -> unit;
+
+  (* Import function to set callback for GLFW. *)
+  val setCallback = _import "setKeyCallback" public reentrant : window -> unit;
+end