add basic imperative shell

2024-12-10 19:48:07 +00:00
parent fb2be7be73
commit 9d42e14b2f
17 changed files with 5083 additions and 1 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -0,0 +1,19 @@
+structure Input =
+struct
+  type window = MLton.Pointer.t
+
+  (* Constants. *)
+  val (PRESS, _) =
+    _symbol "PRESS" public : ( unit -> int ) * ( int -> unit );
+  val PRESS = PRESS ()
+
+  val (REPEAT, _) =
+    _symbol "REPEAT" public : ( unit -> int ) * ( int -> unit );
+  val REPEAT = REPEAT ()
+
+  val (RELEASE, _) =
+    _symbol "RELEASE" public : ( unit -> int ) * ( int -> unit );
+  val RELEASE = RELEASE ()
+
+
+end