scaffolding for char callback

ffi/export.h

@@ -158,6 +158,7 @@ extern "C" {
 #endif
 
 MLLIB_PUBLIC(void mltonFramebufferSizeCallback (Int32 x0, Int32 x1);)
+MLLIB_PUBLIC(void mltonCharCallback (Word32 x0);)
 
 #undef MLLIB_PRIVATE
 #undef MLLIB_PUBLIC

ffi/glfw-input.c

@@ -16,3 +16,11 @@ void setFramebufferSizeCallback(GLFWwindow* window) {
   glfwSetFramebufferSizeCallback(window, framebufferSizeCallback);
 }
 
+void charCallback(GLFWwindow* window, unsigned int codepoint) {
+  mltonCharCallback(codepoint);
+}
+
+void setCharCallback(GLFWwindow* window) {
+  glfwSetCharCallback(window, charCallback);
+}
+

ffi/glfw-input.sml

@@ -19,4 +19,9 @@ struct
     _export "mltonFramebufferSizeCallback" public : (int * int -> unit) -> unit;
   val setFramebufferSizeCallback =
     _import "setFramebufferSizeCallback" public : window -> unit;
+
+  val exportCharCallback =
+    _export "mltonCharCallback" public : (Word32.word -> unit) -> unit;
+  val setCharCallback =
+    _import "setCharCallback" public : window -> unit;
 end

shell/shell.sml

@@ -6,11 +6,23 @@ struct
   fun frameBufferSizeCallback inputMailbox (width, height) =
     Mailbox.send (inputMailbox, RESIZE_EVENT (width, height))
 
+  fun charCallback word =
+    let
+      val word = Word32.toInt word
+      val chr = Char.chr word
+      val s = Char.toString chr ^ "\n"
+    in
+      print s
+    end
+
   fun registerCallbacks (inputMailbox, window) =
     let
       val resizeCallback = frameBufferSizeCallback inputMailbox
       val () = Input.exportFramebufferSizeCallback resizeCallback
       val () = Input.setFramebufferSizeCallback window
+
+      val () = Input.exportCharCallback charCallback
+      val () = Input.setCharCallback window
     in
       ()
     end