add shader strings for open gl

2024-09-30 15:46:19 +01:00
parent c37c8d60e3
commit ae8005dceb
6 changed files with 41 additions and 8 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -5,8 +5,13 @@ struct
  (* 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